# HG changeset patch # User koda # Date 1329607538 -3600 # Node ID c9e873cf2b08ec590a8269dbe479214498a37043 # Parent 54faf30347202690fe4b3876f9779df0930c0194 two more this time diff -r 54faf3034720 -r c9e873cf2b08 hedgewars/uTouch.pas --- 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;