anchor.diff:     *  The input is the index into the array, and the output is the 16-bit
      *  gamma value at that index, scaled to the output color precision.
      *
  -   *  \sa SDL_GetWindowGammaRamp()
  -   */
  -  extern DECLSPEC int SDLCALL SDL_SetWindowGammaRamp(SDL_Window * window,
  -                                                     const Uint16 * red,
  -                                                     const Uint16 * green,
  -                                                     const Uint16 * blue);
  -
  -  /**
  -   *  \brief Get the gamma ramp for a window.
  -   *  
  -   *  \param red   A pointer to a 256 element array of 16-bit quantities to hold 
  -   *               the translation table for the red channel, or NULL.
  -   *  \param green A pointer to a 256 element array of 16-bit quantities to hold 
  -   *               the translation table for the green channel, or NULL.
  -   *  \param blue  A pointer to a 256 element array of 16-bit quantities to hold 
  -   *               the translation table for the blue channel, or NULL.
  +   *  SDL_GetWindowGammaRamp()
  +   *}
  +
  +  function SDL_SetWindowGammaRamp(window: PSDLWindow; const red: PUInt16; const green: PUInt16; const blue: PUInt16): SInt32 cdecl external {$IFDEF GPC} name 'SDL_SetWindowGammaRamp' {$ELSE} SDL_LibName {$ENDIF};
  +
  +  {**
  +   *  Get the gamma ramp for a window.
  +   *  
  +   *  red   A pointer to a 256 element array of 16-bit quantities to hold
  +   *        the translation table for the red channel, or NULL.
  +   *  green A pointer to a 256 element array of 16-bit quantities to hold
  +   *        the translation table for the green channel, or NULL.
  +   *  blue  A pointer to a 256 element array of 16-bit quantities to hold
  +   *        the translation table for the blue channel, or NULL.
      *   
  -   *  \return 0 on success, or -1 if gamma ramps are unsupported.
  -   *  
  -   *  \sa SDL_SetWindowGammaRamp()
  -   */
  -  extern DECLSPEC int SDLCALL SDL_GetWindowGammaRamp(SDL_Window * window,
  -                                                     Uint16 * red,
  -                                                     Uint16 * green,
  -                                                     Uint16 * blue);
  -
  -  /**
  -   *  \brief Destroy a window.
  -   */
  -  procedure SDL_DestroyWindow(SDL_Window * window);
  -
  -
  -  /**
  -   *  \brief Returns whether the screensaver is currently enabled (default on).
  -   *  
  -   *  \sa SDL_EnableScreenSaver()
  -   *  \sa SDL_DisableScreenSaver()
  -   */
  -  extern DECLSPEC SDL_bool SDLCALL SDL_IsScreenSaverEnabled(void);
  -
  -  /**
  -   *  \brief Allow the screen to be blanked by a screensaver
  -   *  
  -   *  \sa SDL_IsScreenSaverEnabled()
  -   *  \sa SDL_DisableScreenSaver()
  -   */
  -  procedure SDL_EnableScreenSaver(void);
  +   *  0 on success, or -1 if gamma ramps are unsupported.
  +   *  
  +   *  SDL_SetWindowGammaRamp()
  +   *}
  +
  +  function SDL_GetWindowGammaRamp(window: PSDLWindow; red: PUInt16; green: PUInt16; blue: PUInt16): SInt32 cdecl external {$IFDEF GPC} name 'SDL_GetWindowGammaRamp' {$ELSE} SDL_LibName {$ENDIF};
  +
  +  {**
  +   *  Destroy a window.
  +   *}
  +
  +  procedure SDL_DestroyWindow(window: PSDLWindow) cdecl external {$IFDEF GPC} name 'SDL_DestroyWindow' {$ELSE} SDL_LibName {$ENDIF};
  +
  +  {**
  +   *  Returns whether the screensaver is currently enabled (default on).
  +   *  
  +   *  SDL_EnableScreenSaver()
  +   *  SDL_DisableScreenSaver()
  +   *}
  +
  +  function SDL_IsScreenSaverEnabled: TSDLBool cdecl external {$IFDEF GPC} name 'SDL_IsScreenSaverEnabled' {$ELSE} SDL_LibName {$ENDIF};
  +
  +  {**
  +   *  Allow the screen to be blanked by a screensaver
  +   *  
  +   *  SDL_IsScreenSaverEnabled()
  +   *  SDL_DisableScreenSaver()
  +   *}
  +
  +  procedure SDL_EnableScreenSaver cdecl external {$IFDEF GPC} name 'SDL_EnableScreenSaver' {$ELSE} SDL_LibName {$ENDIF};
   
     {**
      *  Prevent the screen from being blanked by a screensaver
  
positive.code:    *  SDL_GL_UnloadLibrary()
     *}
  
    extern DECLSPEC int SDLCALL SDL_GL_LoadLibrary(const char *path);
  
    /**
     *  \brief Get the address of an OpenGL function.
     */
    extern DECLSPEC void *SDLCALL SDL_GL_GetProcAddress(const char *proc);
  
    /**
     *  \brief Unload the OpenGL library previously loaded by SDL_GL_LoadLibrary().
     *  
     *  \sa SDL_GL_LoadLibrary()
     */
    procedure SDL_GL_UnloadLibrary(void);
  
    {**
     *  Return true if an OpenGL extension is supported for the current
     *  context.
     *}
  
    extern DECLSPEC SDL_bool SDLCALL SDL_GL_ExtensionSupported(const char
                                                               *extension);
  
    {**
     *  Set an OpenGL window attribute before window creation.
     *}
  
    extern DECLSPEC int SDLCALL SDL_GL_SetAttribute(SDL_GLattr attr, int value);
  
    {**
     *  Get the actual value for an attribute from the current context.
     *}
  
    extern DECLSPEC int SDLCALL SDL_GL_GetAttribute(SDL_GLattr attr, int *value);
  
    {**
     *  Create an OpenGL context for use with an OpenGL window, and make it
  
negative.code:    *  SDL_EnableScreenSaver()
     *}
  
    procedure SDL_DisableScreenSaver cdecl external {$IFDEF GPC} name 'SDL_DisableScreenSaver' {$ELSE} SDL_LibName {$ENDIF};
  
    {**
     *  OpenGL support functions
     *}
  
    {**
  