hedgewars/hwengine.pas
changeset 5968 4e8bb227be9a
parent 5912 d31eba29e706
child 5975 c3a8cab64fcb
--- a/hedgewars/hwengine.pas	Mon Sep 19 23:18:48 2011 +0200
+++ b/hedgewars/hwengine.pas	Mon Sep 19 23:35:07 2011 +0200
@@ -100,6 +100,7 @@
         gsExit: begin
                 isTerminated:= true;
                 end;
+        gsSuspend: exit;
         end;
 
 {$IFDEF SDL13}
@@ -158,11 +159,11 @@
     while isTerminated = false do
     begin
         SDL_PumpEvents();
-        {$IFDEF SDL13}
+{$IFDEF SDL13}
         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do
-        {$ELSE}
+{$ELSE}
         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0 do
-        {$ENDIF}
+{$ENDIF}
         begin
             case event.type_ of
                 SDL_KEYDOWN: if GameState = gsChat then