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
             )
          )