hedgewars/uWorld.pas
changeset 5523 9ac5acc4f3e5
parent 5522 5a4bc518c59a
child 5530 25d4118056e1
child 5675 cd10d6cba644
equal deleted inserted replaced
5522:5a4bc518c59a 5523:9ac5acc4f3e5
  1316 
  1316 
  1317 
  1317 
  1318 procedure onFocusStateChanged;
  1318 procedure onFocusStateChanged;
  1319 begin
  1319 begin
  1320 if (not cHasFocus) and (GameState <> gsConfirm) then
  1320 if (not cHasFocus) and (GameState <> gsConfirm) then
  1321     ParseCommand('quit', true)
  1321     ParseCommand('quit', true);
  1322 end;
  1322 end;
  1323 
  1323 
  1324 
  1324 
  1325 procedure initModule;
  1325 procedure initModule;
  1326 begin
  1326 begin