module MetaBrush.UI.FileBar
  ( FileBar(..), createFileBar, newFileTab
  , TabLocation(..)
  )
  where

-- gi-gtk
import qualified GI.Gtk as GTK

-- MetaBrush
import {-# SOURCE #-} MetaBrush.Context
  ( Variables )
import MetaBrush.Document
  ( Document )
import {-# SOURCE #-} MetaBrush.UI.InfoBar
  ( InfoBar )

--------------------------------------------------------------------------------

data FileBar
  = FileBar
  { fileBarBox  :: !GTK.Box
  , fileTabsBox :: !GTK.Box
  , fileBarPhantomRadioButton :: !GTK.RadioButton
  }

data TabLocation
  = AfterCurrentTab
  | LastTab

createFileBar
  :: Variables
  -> GTK.Window -> GTK.Label -> GTK.DrawingArea -> InfoBar
  -> IO FileBar

newFileTab
  :: Variables
  -> GTK.Window -> GTK.Label -> FileBar -> GTK.DrawingArea -> InfoBar
  -> Maybe Document
  -> TabLocation
  -> IO ()