hedgewars/PascalExports.pas
changeset 4924 616b618814b5
parent 4920 bc3c077e15a2
child 4939 6d512ba87f72
equal deleted inserted replaced
4923:c7829611c682 4924:616b618814b5
   199     ParseCommand('forcequit', true);
   199     ParseCommand('forcequit', true);
   200 end;
   200 end;
   201 
   201 
   202 function HW_getSDLWindow: pointer; cdecl; export;
   202 function HW_getSDLWindow: pointer; cdecl; export;
   203 begin
   203 begin
       
   204 {$IFDEF SDL13}
   204     exit( SDLwindow );
   205     exit( SDLwindow );
       
   206 {$ELSE}
       
   207     exit( nil );
       
   208 {$ENDIF}
   205 end;
   209 end;
   206 
   210 
   207 // cursor handling
   211 // cursor handling
   208 procedure HW_setCursor(x,y: LongInt); cdecl; export;
   212 procedure HW_setCursor(x,y: LongInt); cdecl; export;
   209 begin
   213 begin