From 94d7f244e7459e4b9de371f306cd33c3e3084ed5 Mon Sep 17 00:00:00 2001 From: Ruslan Gadeev Date: Thu, 21 Mar 2024 05:33:09 +0300 Subject: [PATCH] Add missing cursor icons (#289) * add missing cursor icons * rename CursorSize to CursorSizeAll --- src/Monomer/Core/Combinators.hs | 8 ++++++++ src/Monomer/Core/StyleTypes.hs | 4 ++++ src/Monomer/Main/Handlers.hs | 4 ++++ 3 files changed, 16 insertions(+) diff --git a/src/Monomer/Core/Combinators.hs b/src/Monomer/Core/Combinators.hs index 307d4c53..493e7e5e 100644 --- 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 index 0ea4f9fd..c600182f 100644 --- 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 index 657b17a9..c0668181 100644 --- 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