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 ()