hedgewars/uKeys.pas
changeset 3493 2adbae321127
parent 3407 dcc129c4352e
child 3513 f589230fa21b
--- a/hedgewars/uKeys.pas	Thu Jun 03 18:31:56 2010 +0000
+++ b/hedgewars/uKeys.pas	Thu Jun 03 23:02:35 2010 +0000
@@ -61,7 +61,7 @@
     DefaultBinds, CurrentBinds: TBinds;
 
     coeff: LongInt;
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
     leftClick: boolean;
     middleClick: boolean;
     rightClick: boolean;
@@ -86,9 +86,10 @@
     cursorDown: boolean;
     cursorLeft: boolean;
     cursorRight: boolean;
-    
+{$IFDEF IPHONEOS}    
 procedure setiPhoneBinds;
 {$ENDIF}
+{$ENDIF}
 implementation
 uses uTeams, uConsole, uMisc;
 //const KeyNumber = 1024;
@@ -509,7 +510,7 @@
     wheelUp:= false;
     wheelDown:= false;
     coeff:= 5;
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
     // this function is called by HW_allKeysUp so be careful
     
     // mouse emulation