textF' :: Customiser TextF -> F (TextRequest String) (InputMsg (Int, String)) data TextF instance HasAlign TextF instance HasBgColor TextF instance HasBorderWidth TextF instance HasFgColor TextF instance HasFont TextF instance HasInitSize TextF instance HasInitText TextF instance HasMargin TextF instance HasSizing TextF instance HasStretchable TextF class HasInitText a where setInitText :: [String] -> Customiser a getInitText :: a -> [String]
