hedgewars/SDLh.pas
changeset 3405 8fdb08497bf1
parent 3389 9b97b9240c22
child 3463 23c50be687a9
equal deleted inserted replaced
3404:d445798e5fe2 3405:8fdb08497bf1
    58     {$linkframework SDL}
    58     {$linkframework SDL}
    59     {$linkframework SDL_net}
    59     {$linkframework SDL_net}
    60     {$linkframework SDL_image}
    60     {$linkframework SDL_image}
    61     {$linkframework SDL_ttf}
    61     {$linkframework SDL_ttf}
    62     {$linkframework SDL_mixer}
    62     {$linkframework SDL_mixer}
       
    63     {$linkframework OpenGL}
    63   {$ENDIF}
    64   {$ENDIF}
    64 {$ENDIF}
    65 {$ENDIF}
    65 
    66 
    66 
    67 
    67 (*  SDL  *)
    68 (*  SDL  *)
   730 procedure SDL_JoystickClose(joy: PSDL_Joystick); cdecl; external SDLLibName;
   731 procedure SDL_JoystickClose(joy: PSDL_Joystick); cdecl; external SDLLibName;
   731 
   732 
   732 function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName;
   733 function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName;
   733 function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName;
   734 function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName;
   734 
   735 
       
   736 {* OpenGL *}
       
   737 {$IFDEF DARWIN}
       
   738 function CGLGetCurrentContext(): Pointer; cdecl; external 'OpenGL';
       
   739 procedure CGLSetParameter(context: Pointer; option: LongInt; value: Pointer); cdecl; external 'OpenGL';
       
   740 {$ENDIF}
       
   741 
   735 (*  SDL_TTF  *)
   742 (*  SDL_TTF  *)
   736 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   743 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
   737 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   744 procedure TTF_Quit; cdecl; external SDL_TTFLibName;
   738 
   745 
   739 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;
   746 function  TTF_SizeUTF8(font: PTTF_Font; const text: PChar; var w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName;