{-# LANGUAGE ImplicitParams, OverloadedStrings #-}
module Graphics.UI.FLTK.Theme.Light.TextEditor
  (
    textEditorNew
  )
where
import Graphics.UI.FLTK.Theme.Light.Common
import qualified Graphics.UI.FLTK.LowLevel.FLTKHS as LowLevel
import qualified Data.Text as T
import Graphics.UI.FLTK.Theme.Light.Assets

textEditorNew :: (?assets :: Assets) => LowLevel.Rectangle -> Maybe T.Text -> IO (LowLevel.Ref LowLevel.TextEditor)
textEditorNew r l = do
  t <- LowLevel.textEditorNew r l
  LowLevel.setColor t lightBackground
  LowLevel.setTextfont t commonFont
  LowLevel.setTextsize t commonFontSize
  color <- commonSelectionColor
  LowLevel.setSelectionColor t color
  LowLevel.setLabelfont t commonFont
  LowLevel.setLabelsize t commonFontSize
  return t