hedgewars/uKeys.pas
changeset 2714 c85ffe57d971
parent 2699 249adefa9c1c
child 2716 b9ca1bfca24f
--- a/hedgewars/uKeys.pas	Sun Jan 24 19:01:51 2010 +0000
+++ b/hedgewars/uKeys.pas	Sun Jan 24 19:52:30 2010 +0000
@@ -108,11 +108,7 @@
 movecursor(5 * CursorMovementX, 5 * CursorMovementY);
 
 k:= SDL_GetMouseState(nil, nil);
-{$IFDEF SDL13}
-pkbd:= SDL_GetKeyboardState(@j);
-{$ELSE}
 pkbd:= SDL_GetKeyState(@j);
-{$ENDIF}
 
 {$IFNDEF IPHONEOS}
 for i:= 6 to pred(j) do // first 6 will be overwritten
@@ -207,11 +203,8 @@
 begin
 
 k:= SDL_GetMouseState(nil, nil);
-{$IFDEF SDL13}
-pkbd:= SDL_GetKeyboardState(@j);
-{$ELSE}
 pkbd:= SDL_GetKeyState(@j);
-{$ENDIF}
+
 TryDo(j < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(j) + ')', true);
 
 {$IFNDEF IPHONEOS}
@@ -312,11 +305,7 @@
 //for i:= 0 to cKeyMaxIndex do writeln(stdout,inttostr(i) + ': ' + KeyNames[i]);
 
 // get the size of keyboard array
-{$IFDEF SDL13}
-SDL_GetKeyboardState(@k);
-{$ELSE}
 SDL_GetKeyState(@k);
-{$ENDIF}
 
 // Controller(s)
 for j:= 0 to Pred(ControllerNumControllers) do