hedgewars/uTouch.pas
changeset 6955 71498ea59193
parent 6951 a37e470c8694
child 6956 7d9e2669c2f5
--- a/hedgewars/uTouch.pas	Sat Apr 28 15:03:52 2012 +0200
+++ b/hedgewars/uTouch.pas	Sat Apr 28 15:18:30 2012 +0200
@@ -277,7 +277,6 @@
 procedure onTouchLongClick(finger: TTouch_Data);
 begin
 {$IFDEF USE_TOUCH_INTERFACE}
-WriteLnToConsole('blabla');
 if isOnWidget(jumpWidget, finger) then
     begin
     ParseTeamCommand('ljump');
@@ -562,7 +561,6 @@
 function fingerHasMoved(finger: TTouch_Data): boolean;
 begin
     fingerHasMoved := trunc(sqrt(sqr(finger.X-finger.historicalX) + sqr(finger.y-finger.historicalY))) > 30;
-    WriteLnToConsole(inttostr(ord(fingerHasMoved)) + ' xy' + inttostr(finger.x) + ' ' + inttostr(finger.historicalx));
 end;
 
 function calculateDelta(finger1, finger2: TTouch_Data): LongInt; inline;