Expose new functionality found in SDL2 2.0.4

Author: polarina

ChangeLog.md

@@ -1,6 +1,38 @@
 2.2.0
 =====
 
+* Version 2.0.4 of the SDL2 C library is now required:
+  * `SDL.Event`:
+    * Add `AudioDeviceEvent` constructor to `Event`
+    * Add `KeymapChangedEvent` constructor to `EventPayload`
+    * Add `mouseWheelEventDirection` field to `MouseWheelEventData`
+  * `SDL.Input.Mouse`:
+    * Add `MouseScrollDirection` enumeration
+  * `SDL.Raw.Audio`:
+    * Add `clearQueuedAudio` function
+    * Add `getQueuedAudioSize` function
+    * Add `queueAudio` function
+  * `SDL.Raw.Enum`:
+    * Add `SDL_GL_CONTEXT_RELEASE_BEHAVIOR` pattern synonym
+    * Add `JoystickPowerLevel` pattern synonyms
+    * Add `SDL_MOUSEWHEEL_NORMAL` and `SDL_MOUSEWHEEL_FLIPPED` pattern synonyms
+    * Add `SDL_KEYMAPCHANGED`, `SDL_AUDIODEVICEADDED`, `SDL_AUDIODEVICEREMOVED`,
+      `SDL_RENDER_TARGETS_RESET`, and `SDL_RENDER_DEVICE_RESET` pattern synonyms
+    * Add `SDL_GL_CONTEXT_RELEASE_BEHAVIOR_NONE` and
+      `SDL_GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH` pattern synonyms
+    * Add `SDL_WINDOW_MOUSE_CAPTURE` pattern synonym
+  * `SDL.Raw.Event`:
+    * Add `captureMouse` function
+    * Add `getGlobalMouseState` function
+    * Add `warpMouseGlobal` function
+    * Add `joystickCurrentPowerLevel` function
+    * Add `joystickFromInstanceID` function
+    * Add `gameControllerFromInstanceID` function
+  * `SDL.Raw.Event`:
+    * Add `AudioDeviceEvent` constructor to `Event`
+    * Add `KeymapChangedEvent` constructor to `Event`
+    * Add `mouseWheelEventDirection` field to `MouseMotionEvent` constructor
+
 * Add `SDL.Exception` module, exposing `SDLException`
 * Add new function, `createSoftwareRenderer`, to render onto a surface
 * Add joystick POV hat support

README.md

@@ -2,7 +2,7 @@
 
 [![Build Status](https://travis-ci.org/haskell-game/sdl2.svg?branch=master)](https://travis-ci.org/haskell-game/sdl2)
 
-If you don't have SDL 2.0.2 or higher on your system via your
+If you don't have SDL 2.0.4 or higher on your system via your
 package manager, you can install it from the
 [official SDL site](https://www.libsdl.org/download-2.0.php).
 

sdl2.cabal

@@ -1,6 +1,6 @@
 name:                sdl2
 version:             2.2.0
-synopsis:            Both high- and low-level bindings to the SDL library (version 2.0.2+).
+synopsis:            Both high- and low-level bindings to the SDL library (version 2.0.4+).
 description:
   This package contains bindings to the SDL 2 library, in both high- and
   low-level forms:
@@ -116,7 +116,7 @@ library
     SDL2
 
   pkgconfig-depends:
-    sdl2 >= 2.0.2
+    sdl2 >= 2.0.4
 
   build-depends:
     base >= 4.7 && < 5,

src/SDL/Event.hs

@@ -123,6 +123,7 @@ data EventPayload
   | KeyboardEvent KeyboardEventData
   | TextEditingEvent TextEditingEventData
   | TextInputEvent TextInputEventData
+  | KeymapChangedEvent
   | MouseMotionEvent MouseMotionEventData
   | MouseButtonEvent MouseButtonEventData
   | MouseWheelEvent MouseWheelEventData
@@ -134,6 +135,7 @@ data EventPayload
   | ControllerAxisEvent ControllerAxisEventData
   | ControllerButtonEvent ControllerButtonEventData
   | ControllerDeviceEvent ControllerDeviceEventData
+  | AudioDeviceEvent AudioDeviceEventData
   | QuitEvent
   | UserEvent UserEventData
   | SysWMEvent SysWMEventData
@@ -322,6 +324,8 @@ data MouseWheelEventData =
                        -- ^ The 'MouseDevice' whose wheel was scrolled.
                       ,mouseWheelEventPos :: V2 Int32
                        -- ^ The amount scrolled.
+                      ,mouseWheelEventDirection :: MouseScrollDirection
+                       -- ^ The scroll direction mode.
                       }
   deriving (Eq,Ord,Generic,Show,Typeable)
 
@@ -405,6 +409,14 @@ data ControllerDeviceEventData =
                             }
   deriving (Eq,Ord,Generic,Show,Typeable)
 
+data AudioDeviceEventData =
+  AudioDeviceEventData {audioDeviceEventWhich :: Word32
+                        -- ^ The audio device  ID that reported the event.
+                       ,audioDeviceEventIsCapture :: Bool
+                        -- * If the audio device is a capture device.
+                       }
+  deriving (Eq,Ord,Generic,Show,Typeable)
+
 -- | Event data for application-defined events.
 data UserEventData =
   UserEventData {userEventWindow :: Window
@@ -570,6 +582,8 @@ convertRaw (Raw.TextInputEvent _ ts a b) =
                    (TextInputEvent
                       (TextInputEventData w'
                                           (ccharStringToText b))))
+convertRaw (Raw.KeymapChangedEvent _ ts) =
+  return (Event ts KeymapChangedEvent)
 convertRaw (Raw.MouseMotionEvent _ ts a b c d e f g) =
   do w' <- fmap Window (Raw.getWindowFromID a)
      let buttons =
@@ -610,13 +624,14 @@ convertRaw (Raw.MouseButtonEvent t ts a b c _ e f g) =
                                             button
                                             e
                                             (P (V2 f g)))))
-convertRaw (Raw.MouseWheelEvent _ ts a b c d) =
+convertRaw (Raw.MouseWheelEvent _ ts a b c d e) =
   do w' <- fmap Window (Raw.getWindowFromID a)
      return (Event ts
                    (MouseWheelEvent
                       (MouseWheelEventData w'
                                            (fromNumber b)
-                                           (V2 c d))))
+                                           (V2 c d)
+                                           (fromNumber e))))
 convertRaw (Raw.JoyAxisEvent _ ts a b c) =
   return (Event ts (JoyAxisEvent (JoyAxisEventData a b c)))
 convertRaw (Raw.JoyBallEvent _ ts a b c d) =
@@ -641,6 +656,8 @@ convertRaw (Raw.ControllerButtonEvent _ ts a b c) =
   return (Event ts (ControllerButtonEvent (ControllerButtonEventData a b c)))
 convertRaw (Raw.ControllerDeviceEvent _ ts a) =
   return (Event ts (ControllerDeviceEvent (ControllerDeviceEventData a)))
+convertRaw (Raw.AudioDeviceEvent _ ts a b) =
+  return (Event ts (AudioDeviceEvent (AudioDeviceEventData a (b /= 0))))
 convertRaw (Raw.QuitEvent _ ts) =
   return (Event ts QuitEvent)
 convertRaw (Raw.UserEvent _ ts a b c d) =

src/SDL/Input/Mouse.hs

@@ -14,6 +14,7 @@ module SDL.Input.Mouse
     -- * Mouse and Touch Input
   , MouseButton(..)
   , MouseDevice(..)
+  , MouseScrollDirection(..)
 
     -- * Mouse State
   , getModalMouseLocation
@@ -109,6 +110,18 @@ instance FromNumber MouseDevice Word32 where
     Raw.SDL_TOUCH_MOUSEID -> Touch
     n -> Mouse $ fromIntegral n
 
+-- | Identifies mouse scroll direction.
+data MouseScrollDirection
+  = ScrollNormal
+  | ScrollFlipped
+  deriving (Data, Eq, Generic, Ord, Read, Show, Typeable)
+
+instance FromNumber MouseScrollDirection Word32 where
+  fromNumber n' = case n' of
+    Raw.SDL_MOUSEWHEEL_NORMAL -> ScrollNormal
+    Raw.SDL_MOUSEWHEEL_FLIPPED -> ScrollFlipped
+    _ -> ScrollNormal
+
 data WarpMouseOrigin
   = WarpInWindow Window
     -- ^ Move the mouse pointer within a given 'Window'.

src/SDL/Raw/Audio.hs

@@ -3,6 +3,7 @@ module SDL.Raw.Audio (
   audioInit,
   audioQuit,
   buildAudioCVT,
+  clearQueuedAudio,
   closeAudio,
   closeAudioDevice,
   convertAudio,
@@ -14,6 +15,7 @@ module SDL.Raw.Audio (
   getCurrentAudioDriver,
   getNumAudioDevices,
   getNumAudioDrivers,
+  getQueuedAudioSize,
   loadWAV,
   loadWAV_RW,
   lockAudio,
@@ -24,6 +26,7 @@ module SDL.Raw.Audio (
   openAudioDevice,
   pauseAudio,
   pauseAudioDevice,
+  queueAudio,
   unlockAudio,
   unlockAudioDevice
 ) where
@@ -40,6 +43,7 @@ import SDL.Raw.Types
 foreign import ccall "SDL.h SDL_AudioInit" audioInitFFI :: CString -> IO CInt
 foreign import ccall "SDL.h SDL_AudioQuit" audioQuitFFI :: IO ()
 foreign import ccall "SDL.h SDL_BuildAudioCVT" buildAudioCVTFFI :: Ptr AudioCVT -> AudioFormat -> Word8 -> CInt -> AudioFormat -> Word8 -> CInt -> IO CInt
+foreign import ccall "SDL.h SDL_ClearQueuedAudio" clearQueuedAudioFFI :: AudioDeviceID -> IO ()
 foreign import ccall "SDL.h SDL_CloseAudio" closeAudioFFI :: IO ()
 foreign import ccall "SDL.h SDL_CloseAudioDevice" closeAudioDeviceFFI :: AudioDeviceID -> IO ()
 foreign import ccall "SDL.h SDL_ConvertAudio" convertAudioFFI :: Ptr AudioCVT -> IO CInt
@@ -51,6 +55,7 @@ foreign import ccall "SDL.h SDL_GetAudioStatus" getAudioStatusFFI :: IO AudioSta
 foreign import ccall "SDL.h SDL_GetCurrentAudioDriver" getCurrentAudioDriverFFI :: IO CString
 foreign import ccall "SDL.h SDL_GetNumAudioDevices" getNumAudioDevicesFFI :: CInt -> IO CInt
 foreign import ccall "SDL.h SDL_GetNumAudioDrivers" getNumAudioDriversFFI :: IO CInt
+foreign import ccall "SDL.h SDL_GetQueuedAudioSize" getQueuedAudioSizeFFI :: AudioDeviceID -> IO Word32
 foreign import ccall "SDL.h SDL_LoadWAV_RW" loadWAV_RWFFI :: Ptr RWops -> CInt -> Ptr AudioSpec -> Ptr (Ptr Word8) -> Ptr Word32 -> IO (Ptr AudioSpec)
 foreign import ccall "SDL.h SDL_LockAudio" lockAudioFFI :: IO ()
 foreign import ccall "SDL.h SDL_LockAudioDevice" lockAudioDeviceFFI :: AudioDeviceID -> IO ()
@@ -60,6 +65,7 @@ foreign import ccall "SDL.h SDL_OpenAudio" openAudioFFI :: Ptr AudioSpec -> Ptr
 foreign import ccall "SDL.h SDL_OpenAudioDevice" openAudioDeviceFFI :: CString -> CInt -> Ptr AudioSpec -> Ptr AudioSpec -> CInt -> IO AudioDeviceID
 foreign import ccall "SDL.h SDL_PauseAudio" pauseAudioFFI :: CInt -> IO ()
 foreign import ccall "SDL.h SDL_PauseAudioDevice" pauseAudioDeviceFFI :: AudioDeviceID -> CInt -> IO ()
+foreign import ccall "SDL.h SDL_QueueAudio" queueAudioFFI :: AudioDeviceID -> Ptr () -> Word32 -> IO CInt
 foreign import ccall "SDL.h SDL_UnlockAudio" unlockAudioFFI :: IO ()
 foreign import ccall "SDL.h SDL_UnlockAudioDevice" unlockAudioDeviceFFI :: AudioDeviceID -> IO ()
 
@@ -75,6 +81,10 @@ buildAudioCVT :: MonadIO m => Ptr AudioCVT -> AudioFormat -> Word8 -> CInt -> Au
 buildAudioCVT v1 v2 v3 v4 v5 v6 v7 = liftIO $ buildAudioCVTFFI v1 v2 v3 v4 v5 v6 v7
 {-# INLINE buildAudioCVT #-}
 
+clearQueuedAudio :: MonadIO m => AudioDeviceID -> m ()
+clearQueuedAudio v1 = liftIO $ clearQueuedAudioFFI v1
+{-# INLINE clearQueuedAudio #-}
+
 closeAudio :: MonadIO m => m ()
 closeAudio = liftIO closeAudioFFI
 {-# INLINE closeAudio #-}
@@ -119,6 +129,10 @@ getNumAudioDrivers :: MonadIO m => m CInt
 getNumAudioDrivers = liftIO getNumAudioDriversFFI
 {-# INLINE getNumAudioDrivers #-}
 
+getQueuedAudioSize :: MonadIO m => AudioDeviceID -> m Word32
+getQueuedAudioSize v1 = liftIO $ getQueuedAudioSizeFFI v1
+{-# INLINE getQueuedAudioSize #-}
+
 loadWAV :: MonadIO m => CString -> Ptr AudioSpec -> Ptr (Ptr Word8) -> Ptr Word32 -> m (Ptr AudioSpec)
 loadWAV file spec audio_buf audio_len = liftIO $ do
   rw <- withCString "rb" $ rwFromFile file
@@ -161,6 +175,10 @@ pauseAudioDevice :: MonadIO m => AudioDeviceID -> CInt -> m ()
 pauseAudioDevice v1 v2 = liftIO $ pauseAudioDeviceFFI v1 v2
 {-# INLINE pauseAudioDevice #-}
 
+queueAudio :: MonadIO m => AudioDeviceID -> Ptr () -> Word32 -> m CInt
+queueAudio v1 v2 v3 = liftIO $ queueAudioFFI v1 v2 v3
+{-# INLINE queueAudio #-}
+
 unlockAudio :: MonadIO m => m ()
 unlockAudio = liftIO unlockAudioFFI
 {-# INLINE unlockAudio #-}

src/SDL/Raw/Enum.hsc

@@ -101,6 +101,7 @@ module SDL.Raw.Enum (
   pattern SDL_GL_CONTEXT_PROFILE_MASK,
   pattern SDL_GL_SHARE_WITH_CURRENT_CONTEXT,
   pattern SDL_GL_FRAMEBUFFER_SRGB_CAPABLE,
+  pattern SDL_GL_CONTEXT_RELEASE_BEHAVIOR,
 
   -- ** Hint Priority
   HintPriority,
@@ -120,6 +121,16 @@ module SDL.Raw.Enum (
   pattern SDL_INIT_NOPARACHUTE,
   pattern SDL_INIT_EVERYTHING,
 
+  -- ** Joystick Power Level
+  JoystickPowerLevel,
+  pattern SDL_JOYSTICK_POWER_UNKNOWN,
+  pattern SDL_JOYSTICK_POWER_EMPTY,
+  pattern SDL_JOYSTICK_POWER_LOW,
+  pattern SDL_JOYSTICK_POWER_MEDIUM,
+  pattern SDL_JOYSTICK_POWER_FULL,
+  pattern SDL_JOYSTICK_POWER_WIRED,
+  pattern SDL_JOYSTICK_POWER_MAX,
+
   -- ** Keycode
   Keycode,
   pattern SDLK_UNKNOWN,
@@ -694,6 +705,10 @@ module SDL.Raw.Enum (
   pattern SDL_BUTTON_X1MASK,
   pattern SDL_BUTTON_X2MASK,
 
+  -- ** Mouse Wheel Direction
+  pattern SDL_MOUSEWHEEL_NORMAL,
+  pattern SDL_MOUSEWHEEL_FLIPPED,
+
   -- ** Event Type
   pattern SDL_FIRSTEVENT,
   pattern SDL_QUIT,
@@ -709,6 +724,7 @@ module SDL.Raw.Enum (
   pattern SDL_KEYUP,
   pattern SDL_TEXTEDITING,
   pattern SDL_TEXTINPUT,
+  pattern SDL_KEYMAPCHANGED,
   pattern SDL_MOUSEMOTION,
   pattern SDL_MOUSEBUTTONDOWN,
   pattern SDL_MOUSEBUTTONUP,
@@ -734,6 +750,10 @@ module SDL.Raw.Enum (
   pattern SDL_MULTIGESTURE,
   pattern SDL_CLIPBOARDUPDATE,
   pattern SDL_DROPFILE,
+  pattern SDL_AUDIODEVICEADDED,
+  pattern SDL_AUDIODEVICEREMOVED,
+  pattern SDL_RENDER_TARGETS_RESET,
+  pattern SDL_RENDER_DEVICE_RESET,
   pattern SDL_USEREVENT,
   pattern SDL_LASTEVENT,
 
@@ -784,6 +804,10 @@ module SDL.Raw.Enum (
   pattern SDL_GL_CONTEXT_ROBUST_ACCESS_FLAG,
   pattern SDL_GL_CONTEXT_RESET_ISOLATION_FLAG,
 
+  -- ** OpenGL Context Release Behavior Flag
+  pattern SDL_GL_CONTEXT_RELEASE_BEHAVIOR_NONE,
+  pattern SDL_GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH,
+
   -- ** Pixel Formats
   pattern SDL_PIXELFORMAT_UNKNOWN,
   pattern SDL_PIXELFORMAT_INDEX1LSB,
@@ -873,6 +897,7 @@ module SDL.Raw.Enum (
   pattern SDL_WINDOW_FULLSCREEN_DESKTOP,
   pattern SDL_WINDOW_FOREIGN,
   pattern SDL_WINDOW_ALLOW_HIGHDPI,
+  pattern SDL_WINDOW_MOUSE_CAPTURE,
 
   -- ** Window Positioning
   pattern SDL_WINDOWPOS_UNDEFINED,
@@ -899,6 +924,7 @@ type GameControllerButton = (#type SDL_GameControllerButton)
 type GLattr = (#type SDL_GLattr)
 type HintPriority = (#type SDL_HintPriority)
 type InitFlag = Word32
+type JoystickPowerLevel = (#type SDL_JoystickPowerLevel)
 type Keycode = (#type SDL_Keycode)
 type Keymod = (#type SDL_Keymod)
 type LogPriority = (#type SDL_LogPriority)
@@ -991,6 +1017,7 @@ pattern SDL_GL_CONTEXT_FLAGS = (#const SDL_GL_CONTEXT_FLAGS) :: GLattr
 pattern SDL_GL_CONTEXT_PROFILE_MASK = (#const SDL_GL_CONTEXT_PROFILE_MASK) :: GLattr
 pattern SDL_GL_SHARE_WITH_CURRENT_CONTEXT = (#const SDL_GL_SHARE_WITH_CURRENT_CONTEXT) :: GLattr
 pattern SDL_GL_FRAMEBUFFER_SRGB_CAPABLE = (#const SDL_GL_FRAMEBUFFER_SRGB_CAPABLE) :: GLattr
+pattern SDL_GL_CONTEXT_RELEASE_BEHAVIOR = (#const SDL_GL_CONTEXT_RELEASE_BEHAVIOR) :: GLattr
 
 pattern SDL_HINT_DEFAULT = (#const SDL_HINT_DEFAULT) :: HintPriority
 pattern SDL_HINT_NORMAL = (#const SDL_HINT_NORMAL) :: HintPriority
@@ -1006,6 +1033,14 @@ pattern SDL_INIT_EVENTS = (#const SDL_INIT_EVENTS) :: InitFlag
 pattern SDL_INIT_NOPARACHUTE = (#const SDL_INIT_NOPARACHUTE) :: InitFlag
 pattern SDL_INIT_EVERYTHING = (#const SDL_INIT_EVERYTHING) :: InitFlag
 
+pattern SDL_JOYSTICK_POWER_UNKNOWN = (#const SDL_JOYSTICK_POWER_UNKNOWN) :: JoystickPowerLevel
+pattern SDL_JOYSTICK_POWER_EMPTY = (#const SDL_JOYSTICK_POWER_EMPTY) :: JoystickPowerLevel
+pattern SDL_JOYSTICK_POWER_LOW = (#const SDL_JOYSTICK_POWER_LOW) :: JoystickPowerLevel
+pattern SDL_JOYSTICK_POWER_MEDIUM = (#const SDL_JOYSTICK_POWER_MEDIUM) :: JoystickPowerLevel
+pattern SDL_JOYSTICK_POWER_FULL = (#const SDL_JOYSTICK_POWER_FULL) :: JoystickPowerLevel
+pattern SDL_JOYSTICK_POWER_WIRED = (#const SDL_JOYSTICK_POWER_WIRED) :: JoystickPowerLevel
+pattern SDL_JOYSTICK_POWER_MAX = (#const SDL_JOYSTICK_POWER_MAX) :: JoystickPowerLevel
+
 pattern SDLK_UNKNOWN = (#const SDLK_UNKNOWN) :: Keycode
 pattern SDLK_RETURN = (#const SDLK_RETURN) :: Keycode
 pattern SDLK_ESCAPE = (#const SDLK_ESCAPE) :: Keycode
@@ -1556,6 +1591,9 @@ pattern SDL_BUTTON_RMASK = (#const SDL_BUTTON_RMASK)
 pattern SDL_BUTTON_X1MASK = (#const SDL_BUTTON_X1MASK)
 pattern SDL_BUTTON_X2MASK = (#const SDL_BUTTON_X2MASK)
 
+pattern SDL_MOUSEWHEEL_NORMAL = (#const SDL_MOUSEWHEEL_NORMAL)
+pattern SDL_MOUSEWHEEL_FLIPPED = (#const SDL_MOUSEWHEEL_FLIPPED)
+
 pattern SDL_FIRSTEVENT = (#const SDL_FIRSTEVENT)
 pattern SDL_QUIT = (#const SDL_QUIT)
 pattern SDL_APP_TERMINATING = (#const SDL_APP_TERMINATING)
@@ -1570,6 +1608,7 @@ pattern SDL_KEYDOWN = (#const SDL_KEYDOWN)
 pattern SDL_KEYUP = (#const SDL_KEYUP)
 pattern SDL_TEXTEDITING = (#const SDL_TEXTEDITING)
 pattern SDL_TEXTINPUT = (#const SDL_TEXTINPUT)
+pattern SDL_KEYMAPCHANGED = (#const SDL_KEYMAPCHANGED)
 pattern SDL_MOUSEMOTION = (#const SDL_MOUSEMOTION)
 pattern SDL_MOUSEBUTTONDOWN = (#const SDL_MOUSEBUTTONDOWN)
 pattern SDL_MOUSEBUTTONUP = (#const SDL_MOUSEBUTTONUP)
@@ -1595,6 +1634,10 @@ pattern SDL_DOLLARRECORD = (#const SDL_DOLLARRECORD)
 pattern SDL_MULTIGESTURE = (#const SDL_MULTIGESTURE)
 pattern SDL_CLIPBOARDUPDATE = (#const SDL_CLIPBOARDUPDATE)
 pattern SDL_DROPFILE = (#const SDL_DROPFILE)
+pattern SDL_AUDIODEVICEADDED = (#const SDL_AUDIODEVICEADDED)
+pattern SDL_AUDIODEVICEREMOVED = (#const SDL_AUDIODEVICEREMOVED)
+pattern SDL_RENDER_TARGETS_RESET = (#const SDL_RENDER_TARGETS_RESET)
+pattern SDL_RENDER_DEVICE_RESET = (#const SDL_RENDER_DEVICE_RESET)
 pattern SDL_USEREVENT = (#const SDL_USEREVENT)
 pattern SDL_LASTEVENT = (#const SDL_LASTEVENT)
 
@@ -1638,6 +1681,9 @@ pattern SDL_GL_CONTEXT_FORWARD_COMPATIBLE_FLAG = (#const SDL_GL_CONTEXT_FORWARD_
 pattern SDL_GL_CONTEXT_ROBUST_ACCESS_FLAG = (#const SDL_GL_CONTEXT_ROBUST_ACCESS_FLAG)
 pattern SDL_GL_CONTEXT_RESET_ISOLATION_FLAG = (#const SDL_GL_CONTEXT_RESET_ISOLATION_FLAG)
 
+pattern SDL_GL_CONTEXT_RELEASE_BEHAVIOR_NONE = (#const SDL_GL_CONTEXT_RELEASE_BEHAVIOR_NONE)
+pattern SDL_GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH = (#const SDL_GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH)
+
 pattern SDL_PIXELFORMAT_UNKNOWN = (#const SDL_PIXELFORMAT_UNKNOWN)
 pattern SDL_PIXELFORMAT_INDEX1LSB = (#const SDL_PIXELFORMAT_INDEX1LSB)
 pattern SDL_PIXELFORMAT_INDEX1MSB = (#const SDL_PIXELFORMAT_INDEX1MSB)
@@ -1720,6 +1766,7 @@ pattern SDL_WINDOW_MOUSE_FOCUS = (#const SDL_WINDOW_MOUSE_FOCUS)
 pattern SDL_WINDOW_FULLSCREEN_DESKTOP = (#const SDL_WINDOW_FULLSCREEN_DESKTOP)
 pattern SDL_WINDOW_FOREIGN = (#const SDL_WINDOW_FOREIGN)
 pattern SDL_WINDOW_ALLOW_HIGHDPI = (#const SDL_WINDOW_ALLOW_HIGHDPI)
+pattern SDL_WINDOW_MOUSE_CAPTURE = (#const SDL_WINDOW_MOUSE_CAPTURE)
 
 pattern SDL_WINDOWPOS_UNDEFINED = (#const SDL_WINDOWPOS_UNDEFINED)
 pattern SDL_WINDOWPOS_CENTERED = (#const SDL_WINDOWPOS_CENTERED)