diff --git a/affection.cabal b/affection.cabal index ecd9b6e..99c68d3 100644 --- a/affection.cabal +++ b/affection.cabal @@ -101,7 +101,7 @@ library ghc-options: -Wall -- Other library packages from which modules are imported. build-depends: base >=4.9 && < 5 - , sdl2 + , sdl2 >= 2.4 && < 2.5 , linear , text , mtl diff --git a/src/Affection/MessageBus/Message/WindowMessage.hs b/src/Affection/MessageBus/Message/WindowMessage.hs index d857ed2..6e5356d 100644 --- a/src/Affection/MessageBus/Message/WindowMessage.hs +++ b/src/Affection/MessageBus/Message/WindowMessage.hs @@ -35,6 +35,7 @@ data WindowMessage | MsgWindowSizeChange { msgWSCWhen :: Double , msgWSCWindow :: SDL.Window + , msgWRNewSize :: V2 Int32 } | MsgWindowMinimize { msgWMinWhen :: Double @@ -77,7 +78,7 @@ instance Message WindowMessage where msgTime (MsgWindowExpose t _) = t msgTime (MsgWindowMove t _ _) = t msgTime (MsgWindowResize t _ _) = t - msgTime (MsgWindowSizeChange t _) = t + msgTime (MsgWindowSizeChange t _ _) = t msgTime (MsgWindowMinimize t _) = t msgTime (MsgWindowMaximize t _) = t msgTime (MsgWindowRestore t _) = t diff --git a/src/Affection/Subsystems/AffectionWindow.hs b/src/Affection/Subsystems/AffectionWindow.hs index e2e3bd5..2ec60ae 100644 --- a/src/Affection/Subsystems/AffectionWindow.hs +++ b/src/Affection/Subsystems/AffectionWindow.hs @@ -48,8 +48,8 @@ consumeSDLWindowEvents aw = doConsume SDL.WindowResizedEvent (SDL.WindowResizedEventData window newSize) -> do partEmit aw (MsgWindowResize ts window newSize) doConsume es - SDL.WindowSizeChangedEvent (SDL.WindowSizeChangedEventData window) -> do - partEmit aw (MsgWindowSizeChange ts window) + SDL.WindowSizeChangedEvent (SDL.WindowSizeChangedEventData window size) -> do + partEmit aw (MsgWindowSizeChange ts window size) doConsume es SDL.WindowMinimizedEvent (SDL.WindowMinimizedEventData window) -> do partEmit aw (MsgWindowMinimize ts window)