textF' :: Customiser TextF -> F TextRequest (InputMsg (Int, String)) data TextF instance HasAlign TextF instance HasBgColorSpec TextF instance HasBorderWidth TextF instance HasFgColorSpec TextF instance HasFontSpec TextF instance HasInitText TextF instance HasMargin TextF instance HasSizing TextF instance HasStretchable TextF class HasInitText a where setInitText :: [String] -> Customiser a getInitText :: a -> [String] getInitTextMaybe :: a -> Maybe [String] instance HasInitText TextF