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