mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-12-26 15:24:07 +00:00
26 lines
583 B
Haskell
26 lines
583 B
Haskell
module MetaBrush.UI.InfoBar
|
|
( InfoBar(..), createInfoBar, updateInfoBar )
|
|
where
|
|
|
|
-- gi-gtk
|
|
import qualified GI.Gtk as GTK
|
|
|
|
-- MetaBrush
|
|
import MetaBrush.Asset.Colours
|
|
( Colours )
|
|
import {-# SOURCE #-} MetaBrush.Context
|
|
( Variables )
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
data InfoBar
|
|
= InfoBar
|
|
{ infoBarArea :: !GTK.Box
|
|
, zoomText :: !GTK.Label
|
|
, cursorPosText, topLeftPosText, botRightPosText :: !GTK.Label
|
|
}
|
|
|
|
createInfoBar :: Colours -> IO InfoBar
|
|
|
|
updateInfoBar :: GTK.DrawingArea -> InfoBar -> Variables -> IO ()
|