hedgewars/hwengine.pas
changeset 6327 1a69a0d52d32
parent 6268 d773867f93db
child 6329 9eb6c4a8d633
equal deleted inserted replaced
6326:07d83af9d2a8 6327:1a69a0d52d32
   154 begin
   154 begin
   155     PrevTime:= SDL_GetTicks;
   155     PrevTime:= SDL_GetTicks;
   156     while isTerminated = false do
   156     while isTerminated = false do
   157     begin
   157     begin
   158         SDL_PumpEvents();
   158         SDL_PumpEvents();
   159         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL13}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}SDL_ALLEVENTS{$ENDIF}) > 0 do
   159         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, {$IFDEF SDL13}SDL_FIRSTEVENT, SDL_LASTEVENT{$ELSE}HW_EVENT_MASK{$ENDIF}) > 0 do
   160         begin
   160         begin
   161             case event.type_ of
   161             case event.type_ of
   162 {$IFDEF SDL13}
   162 {$IFDEF SDL13}
   163                 SDL_KEYDOWN: if GameState = gsChat then
   163                 SDL_KEYDOWN: if GameState = gsChat then
   164                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
   164                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3