fltkhs 0.7.0.2 → 0.7.0.3

raw patch · 7 files changed

+269/−129 lines, 7 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• fltkhs.cabal +1/−1
• scripts/doc-parser.hs +69/−13
• src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs +6/−2
• src/Graphics/UI/FLTK/LowLevel/Group.chs +22/−0
• src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs +163/−112
• src/Graphics/UI/FLTK/LowLevel/SimpleTerminal.chs +3/−1
• src/Graphics/UI/FLTK/LowLevel/TreePrefs.chs +5/−0

@@ -1,5 +1,5 @@ name : fltkhs-version : 0.7.0.2+version : 0.7.0.3 synopsis : FLTK bindings description: Low level bindings for the FLTK GUI toolkit. For installation and quick start instruction please scroll all the way down to the README. license : MIT

@@ -12,7 +12,25 @@ import Debug.Trace import System.Process import Data.Maybe+import Control.Arrow +parseFunc = do+  char '('+  spaces+  f <- manyTill anyChar (try newline)+  spacesOrNewLines+  return f++parseFuncs = do+  spacesOrNewLines+  fs <- many parseFunc+  return (filter (\f -> not (all ((==) ')') f)) fs)++parseFuncsLine o = do+  let searchString = "type" ++ " " ++ o ++ "Funcs" ++ " " ++ "="+  manyTill anyChar (try (string searchString))+  parseFuncs+ spacesOrNewLines =   skipMany $ (char ' ') <|> (char '\n') <|> crlf @@ -131,7 +149,7 @@ word = manyTill anyChar (try (string " "))  isWidget w ((_,_),_,w') = w == w'-data Command = Functions String | Hierarchy String+data Command = Functions String | Hierarchy String | Sync  traceHierarchy :: String -> [String] -> [(String,String)] -> [String] traceHierarchy w accum dict = case (lookup w dict) of@@ -144,23 +162,36 @@         case args of           ("functions":w':[]) -> Just (Functions w')           ("hierarchy":w':[]) -> Just (Hierarchy w')+          ("sync":[])         -> Just Sync           _                   -> Nothing--  objs <- readFile "../src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs" >>=-          return .-          filter (not . isInfixOf "Funcs") .-          filter (isPrefixOf "type") .-          lines+  hierarchyContents <- readFile "../src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs"+  let objs = (+               filter (not . isInfixOf "Funcs") .+               filter (isPrefixOf "type") .+               lines+             ) hierarchyContents   let readWidgetFile w = readFile ("../src/Graphics/UI/FLTK/LowLevel/" ++ w ++ ".chs")   let parseWidgetFile contents =         case (parse parseInstances "" contents) of           Left err        -> error (show err)           Right (functions, newVersionOnly) -> (Just functions, Just newVersionOnly)-  let hier' = map-                (\o -> case (parse runHierarchyParser "" o) of-                   Left err -> Nothing-                   Right r  -> Just r)-                objs+  let hier' = catMaybes+                (+                  map+                    (\o -> case (parse runHierarchyParser "" o) of+                       Left err -> Nothing+                       Right r  -> Just r)+                    objs+                )+      funcs =+        catMaybes+          (map+            (\(o,_) ->+               case (parse (parseFuncsLine o) "" hierarchyContents) of+                 Left err -> Nothing+                 Right r  -> Just (o,r)+            )+            hier')   case command of     Nothing -> error ""     (Just (Hierarchy w)) -> do@@ -168,7 +199,7 @@             map (\w -> "-- " ++ w) $               map (\w -> "\"" ++ w ++ "\"") $                 map (\w -> "Graphics.UI.FLTK.LowLevel." ++ w) $-                  traceHierarchy w [] (catMaybes hier')+                  traceHierarchy w [] hier'       putStr $ concat $ intersperse "\n--  |\n--  v\n" trace'       putStr "\n"     (Just (Functions w)) -> do@@ -176,6 +207,31 @@       let (functions, inNewVersionOnly) = parseWidgetFile contents       let rendered = maybe [] (sort . map (\(c, sig, mName, wType) -> pprint ((c, sig), mName, wType)))       putStr $ intercalate "\n--\n" (map ((++) "-- ") (rendered functions))+    (Just Sync) ->+      mapM+        (\(w,hierarchyFs) -> do+            contents <- readWidgetFile w+            let (fs, _) = parseWidgetFile contents+            let omitted =+                  case fs of+                    Nothing -> ([],[])+                    Just _fs ->+                      let namesOnly = map (\(_,_,nName,_) -> nName) _fs+                      in+                      (+                        filter+                          (\f ->+                               not (elem f namesOnly)+                          )+                          hierarchyFs+                      , filter+                          (\n -> not (elem n hierarchyFs))+                          namesOnly+                      )+            return (w,omitted)+        )+        funcs+       >>= print       -- putStr "\n"       -- putStr $ "\n-- Available in FLTK 1.3.4 only: \n"       -- putStr $ intercalate "\n--\n" (map ((++) "-- ") (rendered inNewVersionOnly))

@@ -212,7 +212,7 @@       ret <- rgb' color_chooserPtr r'' g'' b''       if (ret == 0) then return (Left NoChange) else return (Right ()) -instance (impl ~ (IO ( Either OutOfRange (Between0And1, Between0And1, Between0And1)))) => Op (GetRgb()) ColorChooser orig impl where+instance (impl ~ (IO ( Either OutOfRange (Between0And1, Between0And1, Between0And1)))) => Op (GetRgb ()) ColorChooser orig impl where   runOp _ _ color_chooser = do     _r <- getR color_chooser     _g <- getG color_chooser@@ -223,7 +223,7 @@       b <- _b       return (r,g,b)) -instance (impl ~ (IO ( Either OutOfRange (Between0And6, Between0And1, Between0And1)))) => Op (GetHsv()) ColorChooser orig impl where+instance (impl ~ (IO ( Either OutOfRange (Between0And6, Between0And1, Between0And1)))) => Op (GetHsv ()) ColorChooser orig impl where   runOp _ _ color_chooser = do     _h <- getHue color_chooser     _s <- getSaturation color_chooser@@ -359,11 +359,15 @@ -- -- getG :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1') --+-- getHsv :: 'Ref' 'ColorChooser' -> 'IO' ( 'Either' 'OutOfRange' ('Between0And6', 'Between0And1', 'Between0And1'))+-- -- getHue :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And6') -- -- getMode :: 'Ref' 'ColorChooser' -> 'IO' ('ColorChooserMode') -- -- getR :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')+--+-- getRgb :: 'Ref' 'ColorChooser' -> 'IO' ( 'Either' 'OutOfRange' ('Between0And1', 'Between0And1', 'Between0And1')) -- -- getSaturation :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1') --

@@ -185,6 +185,22 @@ instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Group orig impl where   runOp _ _ group event = withRef group $ \groupPtr -> handleSuper' groupPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent +{# fun Fl_Group_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TextDisplay orig impl where+  runOp _ _ group rectangle = withRef group $ \groupPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' groupPtr x_pos y_pos w_pos h_pos++{# fun Fl_Group_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Group orig impl where+  runOp _ _ group rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef group $ \groupPtr -> resizeSuper' groupPtr x_pos y_pos width height++{# fun Fl_Group_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (DrawSuper ()) Group orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> drawSuper' groupPtr+ -- $groupfunctions -- @ -- add:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a-> 'IO' ()@@ -209,6 +225,8 @@ -- -- drawOutsideLabel:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' () --+-- drawSuper :: 'Ref' 'Group' -> 'IO' ()+-- -- end :: 'Ref' 'Group' -> 'IO' () -- -- find:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ('AtIndex')@@ -234,6 +252,10 @@ -- removeIndex :: 'Ref' 'Group' -> 'AtIndex' -> 'IO' () -- -- removeWidget:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ()+--+-- resize :: 'Ref' 'TextDisplay' -> 'Rectangle' -> 'IO' ()+--+-- resizeSuper :: 'Ref' 'Group' -> 'Rectangle' -> 'IO' () -- -- setClipChildren :: 'Ref' 'Group' -> 'Bool' -> 'IO' () --

@@ -691,20 +691,6 @@          ValueInput,          -- * ValueOutput          ValueOutput,-         -- * Timer-         Timer,-         GetDirection,-         getDirection,-         SetDirection,-         setDirection,-         GetSuspended,-         getSuspended,-         SetSuspended,-         setSuspended,-         -- * HiddenTimer-         HiddenTimer,-         -- * ValueTimer-         ValueTimer,          -- * Progress          Progress,          -- * Positioner@@ -1701,7 +1687,6 @@   (GetSelectionColor   (SetSelectionColor   (GetLabel-  (CopyLabel   (SetLabel   (GetLabeltype   (SetLabeltype@@ -1769,6 +1754,7 @@   (Flags   (SetFlag   (ClearFlag+  (ClearOutput   ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) type instance Functions Widget = WidgetFuncs @@ -1871,10 +1857,13 @@   (DrawChild   (DrawChildren   (DrawOutsideLabel+  (DrawSuper   (UpdateChild   (Begin   (Handle   (HandleSuper+  (Resize+  (ResizeSuper   (End   (Within   (Find@@ -1896,7 +1885,7 @@   (InsertBefore   (GetArray   (GetChild-  ())))))))))))))))))))))))))))))+  ())))))))))))))))))))))))))))))))) type instance Functions Group = GroupFuncs  MAKE_METHOD(DrawChild,drawChild)@@ -1978,7 +1967,18 @@   (GetDecoratedW   (GetDecoratedH   (WaitForExpose-  ())))))))))))))))))))))))))))))))))))))))))))))))))+  (HideSuper+  (Handle+  (SetCallback+  (Hide+  (GetLabel+  (SetLabel+  (CopyLabel+  (DrawBox+  (DrawBoxWithBoxtype+  (DrawBackdrop+  (DrawFocus+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) type instance Functions Window = WindowFuncs  MAKE_METHOD(DrawSuper,drawSuper)@@ -2109,7 +2109,8 @@   (DrawFocus   (SetType   (GetType_-  ()))))))))))))))))))))))))))+  (DrawBoxWithBoxtype+  ())))))))))))))))))))))))))))  type instance Functions Button = ButtonFuncs @@ -2135,7 +2136,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))+  (Resize+  (ResizeSuper+  ())))))))))))  type LightButton = CLightButton Button @@ -2156,7 +2159,10 @@   (ShowWidgetSuper   (Hide   (HideSuper-  (Destroy ())))))))))+  (Destroy+  (Resize+  (ResizeSuper+  ()))))))))))) type CheckButton = CCheckButton LightButton  type instance Functions CheckButton = CheckButtonFuncs@@ -2173,7 +2179,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))+  (Resize+  (ResizeSuper+  ())))))))))))  type instance Functions ReturnButton = ReturnButtonFuncs @@ -2189,7 +2197,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))+  (Resize+  (ResizeSuper+  ())))))))))))  type instance Functions RoundButton = RoundButtonFuncs @@ -2206,7 +2216,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ()))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))  type instance Functions RepeatButton = RepeatButtonFuncs @@ -2214,7 +2226,8 @@ data CToggleButton parent type ToggleButton = CToggleButton Button type ToggleButtonFuncs =-  (Destroy ())+  (Destroy+  ())  type instance Functions ToggleButton = ToggleButtonFuncs @@ -2284,7 +2297,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))))  type instance Functions Slider = SliderFuncs @@ -2486,7 +2501,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))+  (Resize+  (ResizeSuper+  ()))))))))))) type instance Functions MenuBar = MenuBarFuncs  @@ -2515,7 +2532,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ()))))))))))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))))))))))  type instance Functions SysMenuBar = SysMenuBarFuncs @@ -2533,7 +2552,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))  type instance Functions Choice = ChoiceFuncs @@ -2551,7 +2572,9 @@   (Hide   (HideSuper   (Popup-  ()))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))  type instance Functions MenuButton = MenuButtonFuncs @@ -2655,9 +2678,8 @@   (GetOrigin   (PrintableRect   (SetOrigin-  (GetOffscreenBeforeDelete   (GetOffscreen-  ()))))))))+  ())))))))  type instance Functions ImageSurface = ImageSurfaceFuncs @@ -2681,7 +2703,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))  type instance Functions Adjuster = AdjusterFuncs @@ -2708,7 +2732,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ()))))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))))  type instance Functions Dial = DialFuncs @@ -2740,7 +2766,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))+  (Resize+  (ResizeSuper+  ())))))))))))  type instance Functions Roller = RollerFuncs @@ -2765,7 +2793,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ()))))))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))))))  type instance Functions Counter = CounterFuncs @@ -2774,21 +2804,23 @@ data CScrollbar parent type Scrollbar = CScrollbar Slider type ScrollbarFuncs =- (Destroy- (Scrollvalue- (SetLinesize- (GetLinesize- (SetType- (GetType_- (Draw- (DrawSuper- (Handle- (HandleSuper- (ShowWidget- (ShowWidgetSuper- (Hide- (HideSuper- ()))))))))))))))+  (Destroy+  (Scrollvalue+  (SetLinesize+  (GetLinesize+  (SetType+  (GetType_+  (Draw+  (DrawSuper+  (Handle+  (HandleSuper+  (ShowWidget+  (ShowWidgetSuper+  (Hide+  (HideSuper+  (Resize+  (ResizeSuper+  ()))))))))))))))))  type instance Functions Scrollbar = ScrollbarFuncs @@ -2813,7 +2845,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))  type instance Functions ValueSlider = ValueSliderFuncs @@ -2826,7 +2860,7 @@ type Input = CInput Widget type InputFuncs =   (Destroy-  (SetType+  (SetInputType   (SetValue   (StaticValue   (GetValue@@ -2875,7 +2909,9 @@   (Hide   (HideSuper   (DrawText-  ()))))))))))))))))))))))))))))))))))))))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))))))))))))))))))))))))))))))))))))))  type instance Functions Input = InputFuncs @@ -2917,7 +2953,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))+  (Resize+  (ResizeSuper+  ())))))))))))  type instance Functions Output = OutputFuncs @@ -2943,7 +2981,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))))))  type instance Functions ValueInput = ValueInputFuncs @@ -2967,47 +3007,12 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))))  type instance Functions ValueOutput = ValueOutputFuncs -data CTimer parent-type Timer = CTimer Widget-type TimerFuncs =-  (Destroy-  (GetDirection-  (SetDirection-  (GetValue-  (SetValue-  (GetSuspended-  (SetSuspended-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  ())))))))))))))))--type instance Functions Timer = TimerFuncs--MAKE_METHOD(GetDirection,getDirection)-MAKE_METHOD(SetDirection,setDirection)-MAKE_METHOD(GetSuspended,getSuspended)-MAKE_METHOD(SetSuspended,setSuspended)--data CHiddenTimer parent-type HiddenTimer = CHiddenTimer Widget--type instance Functions HiddenTimer = ()--data CValueTimer parent-type ValueTimer = CValueTimer Widget--type instance Functions ValueTimer = ()- data CProgress parent type Progress = CProgress Widget type ProgressFuncs =@@ -3026,7 +3031,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))  type instance Functions Progress = ProgressFuncs @@ -3058,7 +3065,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))))))))))))  type instance Functions Positioner = PositionerFuncs @@ -3095,7 +3104,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))  type instance Functions Wizard = WizardFuncs @@ -3256,7 +3267,13 @@   (Resize   (GetRowSelected   (SelectAllRows-  ()))))))))))))))))+  (Draw+  (DrawSuper+  (Hide+  (HideSuper+  (ShowWidget+  (ShowWidgetSuper+  ()))))))))))))))))))))))  type instance Functions TableRow = TableRowFuncs @@ -3462,7 +3479,9 @@   (HideSuper   (SetShadow   (GetShadow-  ())))))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))))   type instance Functions Clock = ClockFuncs@@ -3528,7 +3547,9 @@   (SetWidgetmarginleft   (GetItemReselectMode   (SetItemReselectMode-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))+  (GetItemDrawMode+  (SetItemDrawMode+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))  type instance Functions TreePrefs = TreePrefsFuncs @@ -3834,7 +3855,11 @@   (SetWidgetmarginleft   (GetItemReselectMode   (SetItemReselectMode-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))+  (Resize+  (ResizeSuper+  (GetItemDrawMode+  (SetItemDrawMode+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))   type instance Functions Tree = TreeFuncs@@ -4060,8 +4085,13 @@ type TextDisplay = CTextDisplay Group type TextDisplayFuncs =   (Destroy+  (DrawSuper+  (Hide+  (HideSuper   (Resize+  (ResizeSuper   (Handle+  (HandleSuper   (SetBuffer   (GetBuffer   (RedisplayRange@@ -4120,7 +4150,10 @@   (SetLinenumberFormat   (GetLinenumberFormat   (WrapMode-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))+  (Draw+  (ShowWidget+  (ShowWidgetSuper+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))  type instance Functions TextDisplay = TextDisplayFuncs @@ -4180,7 +4213,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))  type instance Functions TextEditor = TextEditorFuncs @@ -4247,7 +4282,8 @@   (Hide   (HideSuper   (Resize-  ()))))))))))+  (ResizeSuper+  ())))))))))))  type instance Functions Tile = TileFuncs @@ -4267,7 +4303,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))+  (Resize+  (ResizeSuper+  ())))))))))))))))  type instance Functions Pack = PackFuncs @@ -4295,7 +4333,8 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))))+  (ResizeSuper+  ()))))))))))))))))))  type instance Functions Scrolled = ScrolledFuncs @@ -4325,7 +4364,10 @@   (TabPositions   (TabHeight   (GetTabAlign-  (SetTabAlign ()))))))))))))))))))))+  (SetTabAlign+  (Resize+  (ResizeSuper+  ()))))))))))))))))))))))  type instance Functions Tabs = TabsFuncs @@ -4371,7 +4413,10 @@   (HideSuper   (GetWrap   (SetWrap-  ()))))))))))))))))))))))))))))))+  (Resize+  (ResizeSuper+  (Range+  ())))))))))))))))))))))))))))))))))   type instance Functions Spinner = SpinnerFuncs@@ -4389,6 +4434,8 @@   (GetR   (GetG   (GetB+  (GetHsv+  (GetRgb   (SetHsv   (SetRgb   (Draw@@ -4399,9 +4446,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  (GetRgb-  (GetHsv-  ()))))))))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))))))))  type instance Functions ColorChooser = ColorChooserFuncs @@ -4435,7 +4482,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ())))))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))))) type instance Functions FileBrowser = FileBrowserFuncs  MAKE_METHOD(SetIconsize, setIconsize)@@ -4508,7 +4557,9 @@   (ShowWidgetSuper   (Hide   (HideSuper-  ()))))))))))))))+  (Resize+  (ResizeSuper+  ()))))))))))))))))  type instance Functions FileInput = FileInputFuncs MAKE_METHOD(SetErrorColor, setErrorColor)

@@ -97,7 +97,7 @@ instance (impl ~ (LineNumber -> LineNumber -> IO ())) => Op (RemoveLines ()) SimpleTerminal orig impl where    runOp _ _ simple_terminal (LineNumber start) (LineNumber count) = withRef simple_terminal $ \simple_terminalPtr -> removeLines' simple_terminalPtr start count {# fun Fl_Simple_Terminal_set_style_table as setStyleTable' { id `Ptr ()',id `Ptr ()',`Int',  `Int'} -> `()' #}-instance (impl ~ ([StyleTableEntry] -> Maybe Int -> IO ())) => Op (SetStyleTable()) SimpleTerminal orig impl where+instance (impl ~ ([StyleTableEntry] -> Maybe Int -> IO ())) => Op (SetStyleTable ()) SimpleTerminal orig impl where    runOp _ _ simple_terminal styleTable normal_style_index =      withRef simple_terminal $ \simple_terminalPtr -> do        stesPtr <- mkStyleTableEntriesPtr simple_terminal styleTable@@ -188,6 +188,8 @@ -- setNormalStyleIndex :: 'Ref' 'SimpleTerminal' -> 'AtIndex' -> 'IO' () -- -- setStayAtBottom :: 'Ref' 'SimpleTerminal' -> 'Bool' -> 'IO' ()+--+-- setStyleTable :: 'Ref' 'SimpleTerminal' -> ['StyleTableEntry'] -> 'Maybe' 'Int' -> 'IO' () -- -- setText :: 'Ref' 'SimpleTerminal' -> 'T.Text' -> 'IO' () --

@@ -29,6 +29,9 @@ {# fun Fl_Tree_Prefs_item_labelfont as itemLabelfont' { id `Ptr ()' } -> `Font' cToFont #} instance (impl ~ (IO (Font))) => Op (GetItemLabelfont ()) TreePrefs orig impl where   runOp _ _ tree_prefs = withRef tree_prefs $ \tree_prefsPtr -> itemLabelfont' tree_prefsPtr+{# fun Fl_Tree_Prefs_set_item_labelfont as setItemLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetItemLabelfont ()) TreePrefs orig impl where+  runOp _ _ tree_prefs val = withRef tree_prefs $ \tree_prefsPtr -> setItemLabelfont' tree_prefsPtr val {# fun Fl_Tree_Prefs_item_labelsize as itemLabelsize' { id `Ptr ()' } -> `CInt' id #} instance (impl ~ (IO (FontSize))) => Op (GetItemLabelsize ()) TreePrefs orig impl where   runOp _ _ tree_prefs = withRef tree_prefs $ \tree_prefsPtr -> itemLabelsize' tree_prefsPtr >>= return . FontSize@@ -266,6 +269,8 @@ -- setItemLabelbgcolor :: 'Ref' 'TreePrefs' -> 'Color' -> 'IO' () -- -- setItemLabelfgcolor :: 'Ref' 'TreePrefs' -> 'Color' -> 'IO' ()+--+-- setItemLabelfont :: 'Ref' 'TreePrefs' -> 'Font' -> 'IO' () -- -- setItemLabelsize :: 'Ref' 'TreePrefs' -> 'FontSize' -> 'IO' () --