hedgewars/uInputHandler.pas
changeset 6982 8d41d22a291d
parent 6954 a61458a81480
child 6992 b8f3d8991e92
--- a/hedgewars/uInputHandler.pas	Tue May 01 20:54:30 2012 +0400
+++ b/hedgewars/uInputHandler.pas	Tue May 01 19:56:55 2012 +0200
@@ -48,7 +48,7 @@
 var tkbd, tkbdn: TKeyboardState;
     quitKeyCode: Byte;
     KeyNames: array [0..cKeyMaxIndex] of string[15];
-    
+    CurrentBinds: TBinds;
 
 function KeyNameToCode(name: shortstring): word;
 var code: Word;
@@ -450,31 +450,6 @@
 begin
     wheelUp:= false;
     wheelDown:= false;
-{$IFDEF HWLIBRARY}
-    // this function is called by HW_allKeysUp so be careful
-
-    // mouse emulation
-    leftClick:= false;
-    middleClick:= false;
-    rightClick:= false;
-
-    // arrow key emulation
-    upKey:= false;
-    downKey:= false;
-    rightKey:= false;
-    leftKey:= false;
-    preciseKey:= false;
-
-    // action key emulation
-    backspaceKey:= false;
-    spaceKey:= false;
-    enterKey:= false;
-    tabKey:= false;
-
-    // other key emulation
-    chatAction:= false;
-    pauseAction:= false;
-{$ENDIF}
 end;
 
 procedure freeModule;