hedgewars/uMobile.pas
changeset 5168 8a074a255af0
parent 5167 7b515d0945b1
child 5174 f5294509783e
--- a/hedgewars/uMobile.pas	Thu Apr 21 07:41:24 2011 +0200
+++ b/hedgewars/uMobile.pas	Thu Apr 21 08:22:34 2011 +0200
@@ -46,8 +46,6 @@
 implementation
 uses uVariables;
 
-const kSystemSoundID_Vibrate = $00000FFF;
-
 function isPhone: Boolean; inline;
 begin
 {$IFDEF IPHONEOS}
@@ -57,6 +55,7 @@
 end;
 
 procedure performRumble; inline;
+const kSystemSoundID_Vibrate = $00000FFF;
 begin
 {$IFDEF IPHONEOS}
     AudioServicesPlaySystemSound(kSystemSoundID_Vibrate);