hedgewars/SDLh.pas
changeset 3405 8fdb08497bf1
parent 3389 9b97b9240c22
child 3463 23c50be687a9
--- a/hedgewars/SDLh.pas	Sun May 02 18:25:13 2010 +0000
+++ b/hedgewars/SDLh.pas	Sun May 02 18:42:19 2010 +0000
@@ -60,6 +60,7 @@
     {$linkframework SDL_image}
     {$linkframework SDL_ttf}
     {$linkframework SDL_mixer}
+    {$linkframework OpenGL}
   {$ENDIF}
 {$ENDIF}
 
@@ -732,6 +733,12 @@
 function SDL_putenv(const text: PChar): LongInt; cdecl; external SDLLibName;
 function SDL_getenv(const text: PChar): PChar; cdecl; external SDLLibName;
 
+{* OpenGL *}
+{$IFDEF DARWIN}
+function CGLGetCurrentContext(): Pointer; cdecl; external 'OpenGL';
+procedure CGLSetParameter(context: Pointer; option: LongInt; value: Pointer); cdecl; external 'OpenGL';
+{$ENDIF}
+
 (*  SDL_TTF  *)
 function  TTF_Init: LongInt; cdecl; external SDL_TTFLibName;
 procedure TTF_Quit; cdecl; external SDL_TTFLibName;