hedgewars/uTouch.pas
changeset 6676 21cf35a570a7
parent 6654 120e95c10532
child 6683 75a1d84ac606
--- a/hedgewars/uTouch.pas	Sun Feb 12 15:35:06 2012 +0100
+++ b/hedgewars/uTouch.pas	Sun Feb 12 15:59:10 2012 +0100
@@ -93,11 +93,11 @@
     //moving
     stopLeft, stopRight, walkingLeft, walkingRight :  boolean;
 
-
 procedure onTouchDown(x,y: Longword; pointerId: SDL_FingerId);
 var 
     finger: PTouch_Finger;
 begin
+{$IFDEF USE_TOUCH_INTERFACE}
 finger := addFinger(x,y,pointerId);
 case pointerCount of
         1:
@@ -163,6 +163,7 @@
             baseZoomValue := ZoomValue
         end;
     end;//end case pointerCount of
+{$ENDIF}
 end;
 
 procedure onTouchMotion(x,y: Longword;dx,dy: LongInt; pointerId: SDL_FingerId);