--- a/hedgewars/uStore.pas	Wed Jul 07 03:16:12 2010 +0200
+++ b/hedgewars/uStore.pas	Thu Jul 08 02:23:10 2010 +0200
@@ -1265,6 +1265,10 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
+{$IFDEF IPHONEOS}
+procedure startSpinning; cdecl; external;
+procedure stopSpinning; cdecl; external;
+{$ENDIF}
 procedure AddProgress;
 var r: TSDL_Rect;
     texsurf: PSDL_Surface;
@@ -1279,6 +1283,9 @@
         squaresize:= texsurf^.w shr 1;
         numsquares:= texsurf^.h div squaresize;
         SDL_FreeSurface(texsurf);
+{$IFDEF IPHONEOS}
+        startSpinning();
+{$ENDIF}
     end;
 
     TryDo(ProgrTex <> nil, 'Error - Progress Texure is nil!', true);
@@ -1301,15 +1308,12 @@
 
 end;
 
-{$IFDEF IPHONEOS}
-procedure spinningWheelDone; cdecl; external;
-{$ENDIF}
 procedure FinishProgress;
 begin
     WriteLnToConsole('Freeing progress surface... ');
     FreeTexture(ProgrTex);
 {$IFDEF IPHONEOS}
-    spinningWheelDone();
+    stopSpinning();
 {$ENDIF}
 end;