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