hedgewars/uMobile.pas
changeset 6247 6dfad55fd71c
parent 5994 3c578f531cc1
child 6580 6155187bf599
--- a/hedgewars/uMobile.pas	Mon Oct 31 01:44:32 2011 +0100
+++ b/hedgewars/uMobile.pas	Mon Oct 31 03:08:16 2011 +0100
@@ -24,11 +24,9 @@
 {$IFDEF IPHONEOS}
 (*  iOS calls written in ObjcExports.m  *)
 procedure clearView; cdecl; external;
-procedure startSpinningProgress; cdecl; external;
-procedure stopSpinningProgress; cdecl; external;
-procedure saveBeganSynching; cdecl; external;
+procedure startLoadingIndicator; cdecl; external;
+procedure stopLoadingIndicator; cdecl; external;
 procedure saveFinishedSynching; cdecl; external;
-procedure setGameRunning(arg: boolean); cdecl; external;
 procedure updateVisualsNewTurn; cdecl; external;
 function  isApplePhone: Boolean; cdecl; external;
 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;
@@ -40,8 +38,7 @@
 procedure GameLoaded; inline;
 procedure AmmoUpdate; // do not inline
 procedure NewTurnBeginning; inline;
-procedure SaveBegan; inline;
-procedure SaveFinished; inline;
+procedure SaveLoadingEnded; inline;
 
 implementation
 uses uVariables;
@@ -71,14 +68,14 @@
 procedure GameLoading; inline;
 begin
 {$IFDEF IPHONEOS}
-    startSpinningProgress();
+    startLoadingIndicator();
 {$ENDIF}
 end;
 
 procedure GameLoaded; inline;
 begin
 {$IFDEF IPHONEOS}
-    stopSpinningProgress();
+    stopLoadingIndicator();
 {$ENDIF}
 end;
 
@@ -101,14 +98,7 @@
     AmmoUpdate();
 end;
 
-procedure SaveBegan; inline;
-begin
-{$IFDEF IPHONEOS}
-    saveBeganSynching();
-{$ENDIF}
-end;
-
-procedure SaveFinished; inline;
+procedure SaveLoadingEnded; inline;
 begin
 {$IFDEF IPHONEOS}
     saveFinishedSynching();