diff --git a/fltkhs.cabal b/fltkhs.cabal
--- a/fltkhs.cabal
+++ b/fltkhs.cabal
@@ -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
diff --git a/scripts/doc-parser.hs b/scripts/doc-parser.hs
--- a/scripts/doc-parser.hs
+++ b/scripts/doc-parser.hs
@@ -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))
diff --git a/src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs b/src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs
--- a/src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs
+++ b/src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs
@@ -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')
 --
diff --git a/src/Graphics/UI/FLTK/LowLevel/Group.chs b/src/Graphics/UI/FLTK/LowLevel/Group.chs
--- a/src/Graphics/UI/FLTK/LowLevel/Group.chs
+++ b/src/Graphics/UI/FLTK/LowLevel/Group.chs
@@ -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' ()
 --
diff --git a/src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs b/src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs
--- a/src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs
+++ b/src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs
@@ -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)
diff --git a/src/Graphics/UI/FLTK/LowLevel/SimpleTerminal.chs b/src/Graphics/UI/FLTK/LowLevel/SimpleTerminal.chs
--- a/src/Graphics/UI/FLTK/LowLevel/SimpleTerminal.chs
+++ b/src/Graphics/UI/FLTK/LowLevel/SimpleTerminal.chs
@@ -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' ()
 --
diff --git a/src/Graphics/UI/FLTK/LowLevel/TreePrefs.chs b/src/Graphics/UI/FLTK/LowLevel/TreePrefs.chs
--- a/src/Graphics/UI/FLTK/LowLevel/TreePrefs.chs
+++ b/src/Graphics/UI/FLTK/LowLevel/TreePrefs.chs
@@ -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' ()
 --