hedgewars/PascalExports.pas
changeset 4920 bc3c077e15a2
parent 4861 91f889289a47
child 4924 616b618814b5
equal deleted inserted replaced
4918:c6d3aec73f93 4920:bc3c077e15a2
   197     {$IFDEF IPHONEOS}setGameRunning(false);{$ENDIF}
   197     {$IFDEF IPHONEOS}setGameRunning(false);{$ENDIF}
   198     alsoShutdownFrontend:= closeFrontend;
   198     alsoShutdownFrontend:= closeFrontend;
   199     ParseCommand('forcequit', true);
   199     ParseCommand('forcequit', true);
   200 end;
   200 end;
   201 
   201 
       
   202 function HW_getSDLWindow: pointer; cdecl; export;
       
   203 begin
       
   204     exit( SDLwindow );
       
   205 end;
       
   206 
   202 // cursor handling
   207 // cursor handling
   203 procedure HW_setCursor(x,y: LongInt); cdecl; export;
   208 procedure HW_setCursor(x,y: LongInt); cdecl; export;
   204 begin
   209 begin
   205     CursorPoint.X:= x;
   210     CursorPoint.X:= x;
   206     CursorPoint.Y:= y;
   211     CursorPoint.Y:= y;