hedgewars/uTouch.pas
changeset 6685 ef706fccfb0a
parent 6684 112a0eb8782b
child 6687 98be933770e0
--- a/hedgewars/uTouch.pas	Wed Feb 15 18:03:51 2012 +0100
+++ b/hedgewars/uTouch.pas	Wed Feb 15 18:22:39 2012 +0100
@@ -153,6 +153,11 @@
                 backspaceKey:= true;
                 exit;
             end;
+            if isOnRect(pauseButton, finger^) then
+            begin
+                isPaused:= not isPaused;
+                exit;
+            end;
             moveCursor:= not bShowAmmoMenu;
         end;
         2: