hedgewars/SDLh.pas
changeset 3668 3f7a95234d8a
parent 3663 8c28abf427f5
child 3697 d5b30d6373fc
equal deleted inserted replaced
3667:9359a70df013 3668:3f7a95234d8a
   844 {$IFDEF IPHONEOS}
   844 {$IFDEF IPHONEOS}
   845 (*  iPhone related calls  *)
   845 (*  iPhone related calls  *)
   846 procedure clearView; cdecl; external;
   846 procedure clearView; cdecl; external;
   847 procedure startSpinning; cdecl; external;
   847 procedure startSpinning; cdecl; external;
   848 procedure stopSpinning; cdecl; external;
   848 procedure stopSpinning; cdecl; external;
       
   849 function  isPhone: Boolean; cdecl; external;
   849 {$ENDIF}
   850 {$ENDIF}
   850 implementation
   851 implementation
   851 
   852 
   852 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
   853 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
   853 begin
   854 begin