module Graphics.UI.LUI.Widgets.TextView(new)
where
import qualified Graphics.UI.LUI.Widget as Widget
import qualified Graphics.UI.LUI.Draw as Draw
import Graphics.UI.LUI.Widget(Widget, WidgetFuncs(..))
import Graphics.UI.HaskGame.Font(Font)
import Graphics.UI.HaskGame.Color(Color)
new :: Color -> Font -> String -> Widget model
new textColor textSize text =
const $
WidgetFuncs
{
widgetDraw = \_ -> Draw.text textColor textSize text
, widgetSize = \_ -> Draw.textSize textSize text
, widgetGetKeymap = Nothing
}