mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-11-06 07:13:37 +00:00
32 lines
777 B
Haskell
32 lines
777 B
Haskell
|
module MetaBrush.Asset.WindowIcons
|
||
|
|
( drawMinimise, drawRestoreDown, drawMaximise, drawClose )
|
||
|
|
where
|
||
|
|
|
||
|
|
-- gi-cairo-render
|
||
|
|
import qualified GI.Cairo.Render as Cairo
|
||
|
|
|
||
|
|
-- gi-gdk
|
||
|
|
import qualified GI.Gdk as GDK
|
||
|
|
|
||
|
|
-- MetaBrush
|
||
|
|
--import MetaBrush.Render.Util
|
||
|
|
-- ( withRGBA )
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
-- | Minimise window icon.
|
||
|
|
drawMinimise :: GDK.RGBA -> Cairo.Render ()
|
||
|
|
drawMinimise iconColour = pure ()
|
||
|
|
|
||
|
|
-- | Restore down window icon.
|
||
|
|
drawRestoreDown :: GDK.RGBA -> Cairo.Render ()
|
||
|
|
drawRestoreDown iconColour = pure ()
|
||
|
|
|
||
|
|
-- | Maximise window icon.
|
||
|
|
drawMaximise :: GDK.RGBA -> Cairo.Render ()
|
||
|
|
drawMaximise iconColour = pure ()
|
||
|
|
|
||
|
|
-- | Close window icon.
|
||
|
|
drawClose :: GDK.RGBA -> Cairo.Render ()
|
||
|
|
drawClose iconColour = pure ()
|