hedgewars/hwengine.pas
changeset 5724 3064ed85a5bd
parent 5686 3f2e6ec7719a
child 5730 1ef0027411f4
equal deleted inserted replaced
5723:87eec4c9a889 5724:3064ed85a5bd
   147     prevFocusState: boolean;
   147     prevFocusState: boolean;
   148 begin
   148 begin
   149     PrevTime:= SDL_GetTicks;
   149     PrevTime:= SDL_GetTicks;
   150     while isTerminated = false do
   150     while isTerminated = false do
   151     begin
   151     begin
   152 
   152         SDL_PumpEvents();
   153         while SDL_PollEvent(@event) <> 0 do
   153         {$IFDEF SDL13}
       
   154         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do
       
   155         {$ELSE}
       
   156         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0 do
       
   157         {$ENDIF}
   154         begin
   158         begin
   155             case event.type_ of
   159             case event.type_ of
   156                 SDL_KEYDOWN: if GameState = gsChat then
   160                 SDL_KEYDOWN: if GameState = gsChat then
   157 {$IFDEF SDL13}
   161 {$IFDEF SDL13}
   158                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
   162                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3