let game_act () =
let act = Gui.click() in
match act with
Glob.Null -> last_act := act
| Glob.Quit -> failwith "quit"
| Glob.Next -> (
(match !last_act with
Glob.Sel _ -> (collapse(); Gui.redraw_gb Glob.gb)
| _ -> ());
last_act := act
)
| Glob.Sel (icol, ilig) -> (
if (valid_sel icol ilig) then (
(match !last_act with
Glob.Sel (icol', ilig') -> mark_sel (icol', ilig')
| _ -> ());
mark_sel (icol, ilig);
Gui.redraw_gb Glob.gb;
last_act := act
)
)