hedgewars/uCommandHandlers.pas
changeset 5523 9ac5acc4f3e5
parent 5352 7f57d0c7816a
child 5524 40b7f95d9f18
equal deleted inserted replaced
5522:5a4bc518c59a 5523:9ac5acc4f3e5
    44 begin
    44 begin
    45     s:= s; // avoid compiler hint
    45     s:= s; // avoid compiler hint
    46     if GameState <> gsConfirm then
    46     if GameState <> gsConfirm then
    47     begin
    47     begin
    48         prevGState:= GameState;
    48         prevGState:= GameState;
    49         GameState:= gsConfirm
    49         GameState:= gsConfirm;
       
    50         SDL_ShowCursor(1)
    50     end else
    51     end else
    51     GameState:= prevGState
    52     begin
       
    53         GameState:= prevGState;
       
    54         SDL_ShowCursor(0)
       
    55     end
    52 end;
    56 end;
    53 
    57 
    54 procedure chForceQuit(var s: shortstring);
    58 procedure chForceQuit(var s: shortstring);
    55 begin
    59 begin
    56     s:= s; // avoid compiler hint
    60     s:= s; // avoid compiler hint