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

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

-- MetaBrush
import {-# SOURCE #-} MetaBrush.Context
  ( Variables, UIElements )
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

instance Show TabLocation

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

newFileTab :: Variables -> UIElements -> Maybe Document -> TabLocation -> IO ()