Add missing cursor icons (#289)

* add missing cursor icons * rename CursorSize to CursorSizeAll
fjvallarino · Mar 21, 2024 · 94d7f24 · 94d7f24
1 parent 465f33c
commit 94d7f24
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/src/Monomer/Core/Combinators.hs b/src/Monomer/Core/Combinators.hs
@@ -730,6 +730,14 @@ class CmbCursorIcon t where
   cursorDiagTL = cursorIcon CursorDiagTL
   cursorDiagTR :: t
   cursorDiagTR = cursorIcon CursorDiagTR
+  cursorSizeAll :: t
+  cursorSizeAll = cursorIcon CursorSizeAll
+  cursorWait :: t
+  cursorWait = cursorIcon CursorWait
+  cursorWaitArrow :: t
+  cursorWaitArrow = cursorIcon CursorWaitArrow
+  cursorCrosshair :: t
+  cursorCrosshair = cursorIcon CursorCrosshair
   cursorIcon :: CursorIcon -> t
 
 -- | Basic style for each item of a list.

diff --git a/src/Monomer/Core/StyleTypes.hs b/src/Monomer/Core/StyleTypes.hs
@@ -61,6 +61,10 @@ data CursorIcon
   | CursorSizeV
   | CursorDiagTL
   | CursorDiagTR
+  | CursorSizeAll
+  | CursorWait
+  | CursorWaitArrow
+  | CursorCrosshair
   deriving (Eq, Ord, Enum, Show, Generic)
 
 instance Default CursorIcon where

diff --git a/src/Monomer/Main/Handlers.hs b/src/Monomer/Main/Handlers.hs
@@ -941,3 +941,7 @@ cursorToSDL CursorSizeH = SDLEnum.SDL_SYSTEM_CURSOR_SIZEWE
 cursorToSDL CursorSizeV = SDLEnum.SDL_SYSTEM_CURSOR_SIZENS
 cursorToSDL CursorDiagTL = SDLEnum.SDL_SYSTEM_CURSOR_SIZENWSE
 cursorToSDL CursorDiagTR = SDLEnum.SDL_SYSTEM_CURSOR_SIZENESW
+cursorToSDL CursorSizeAll = SDLEnum.SDL_SYSTEM_CURSOR_SIZEALL
+cursorToSDL CursorWait = SDLEnum.SDL_SYSTEM_CURSOR_WAIT
+cursorToSDL CursorWaitArrow = SDLEnum.SDL_SYSTEM_CURSOR_WAITARROW
+cursorToSDL CursorCrosshair = SDLEnum.SDL_SYSTEM_CURSOR_CROSSHAIR