hedgewars/uTouch.pas
changeset 6716 c9e873cf2b08
parent 6714 f2f93017132c
child 6723 b77e2d4d664b
--- a/hedgewars/uTouch.pas	Sat Feb 18 19:33:48 2012 +0100
+++ b/hedgewars/uTouch.pas	Sun Feb 19 00:25:38 2012 +0100
@@ -254,6 +254,7 @@
 
 procedure onTouchLongClick(finger: TTouch_Data);
 begin
+{$IFDEF USE_TOUCH_INTERFACE}
 if isOnRect(jumpWidget.active, finger) then
     begin
     ParseCommand('ljump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0));
@@ -261,6 +262,7 @@
         ParseCommand('gencmd R', true);
     exit;
     end;
+{$ENDIF}
 end;
 
 procedure onTouchClick(finger: TTouch_Data);
@@ -289,7 +291,7 @@
     exit;
     end;
 
-
+{$IFDEF USE_TOUCH_INTERFACE}
 if isOnCurrentHog(finger) or isOnRect(AMWidget.active, finger) then
     begin
     bShowAmmoMenu := true;
@@ -303,6 +305,7 @@
         ParseCommand('gencmd R', true);
     exit;
     end;
+{$ENDIF}
 end;
 
 function addFinger(x,y: Longword; id: TSDL_FingerId): PTouch_Data;