packages feed

fltkhs 0.7.0.4 → 0.8.0.0

raw patch · 270 files changed

+22585/−16490 lines, 270 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

- Graphics.UI.FLTK.LowLevel.Adjuster: adjusterCustom :: Rectangle -> Maybe Text -> Maybe (Ref Adjuster -> IO ()) -> Maybe (CustomWidgetFuncs Adjuster) -> IO (Ref Adjuster)
- Graphics.UI.FLTK.LowLevel.Adjuster: adjusterNew :: Rectangle -> Maybe Text -> IO (Ref Adjuster)
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
- Graphics.UI.FLTK.LowLevel.Box: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Box orig impl
- Graphics.UI.FLTK.LowLevel.Browser: browserCustom :: Rectangle -> Maybe Text -> Maybe (Ref Browser -> IO ()) -> Maybe (CustomWidgetFuncs Browser) -> IO (Ref Browser)
- Graphics.UI.FLTK.LowLevel.Browser: browserNew :: Rectangle -> Maybe Text -> IO (Ref Browser)
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Load ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (GHC.Types.Char -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColumnChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (GHC.Types.Char -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFormatChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSelectionColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.BrowserType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.Bool -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideLine ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBottomline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMiddleline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTopline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetLine ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Displayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Visible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Move ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Swap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LinePosition -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Lineposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHasScrollbar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.SortType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SortWithSortType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ ([GHC.Types.Int] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColumnWidths ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Sort ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Char) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColumnChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Char) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFormatChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.BrowserType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHasScrollbar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Browser: instance (impl Data.Type.Equality.~ GHC.Types.IO [GHC.Types.Int]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColumnWidths ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
- Graphics.UI.FLTK.LowLevel.Button: HiddenButtonType :: ButtonType
- Graphics.UI.FLTK.LowLevel.Button: NormalButtonType :: ButtonType
- Graphics.UI.FLTK.LowLevel.Button: RadioButtonType :: ButtonType
- Graphics.UI.FLTK.LowLevel.Button: ToggleButtonType :: ButtonType
- Graphics.UI.FLTK.LowLevel.Button: buttonCustom :: Rectangle -> Maybe Text -> Maybe (Ref Button -> IO ()) -> Maybe (CustomWidgetFuncs Button) -> IO (Ref Button)
- Graphics.UI.FLTK.LowLevel.Button: buttonNew :: Rectangle -> Maybe Text -> IO (Ref Button)
- Graphics.UI.FLTK.LowLevel.Button: data ButtonType
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype, Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBoxWithBoxtype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ButtonType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBackdrop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Setonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Set ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.Button: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ButtonType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: checkButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref CheckButton -> IO ()) -> Maybe (CustomWidgetFuncs CheckButton) -> IO (Ref CheckButton)
- Graphics.UI.FLTK.LowLevel.CheckButton: checkButtonNew :: Rectangle -> Maybe Text -> IO (Ref CheckButton)
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
- Graphics.UI.FLTK.LowLevel.Choice: choiceCustom :: Rectangle -> Maybe Text -> Maybe (Ref Choice -> IO ()) -> Maybe (CustomWidgetFuncs Choice) -> IO (Ref Choice)
- Graphics.UI.FLTK.LowLevel.Choice: choiceNew :: Rectangle -> Maybe Text -> IO (Ref Choice)
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.MenuItem.MenuItemReference -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Choice: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
- Graphics.UI.FLTK.LowLevel.Clock: AnalogClock :: ClockType
- Graphics.UI.FLTK.LowLevel.Clock: ClockByTime :: Hour -> Minute -> Second -> ClockByTime
- Graphics.UI.FLTK.LowLevel.Clock: ClockSetByTime :: ClockByTime -> ClockSetTimeType
- Graphics.UI.FLTK.LowLevel.Clock: ClockSetSinceEpoch :: ClockSinceEpoch -> ClockSetTimeType
- Graphics.UI.FLTK.LowLevel.Clock: ClockSinceEpoch :: Second -> ClockSinceEpoch
- Graphics.UI.FLTK.LowLevel.Clock: DigitalClock :: ClockType
- Graphics.UI.FLTK.LowLevel.Clock: Hour :: Int -> Hour
- Graphics.UI.FLTK.LowLevel.Clock: Minute :: Int -> Minute
- Graphics.UI.FLTK.LowLevel.Clock: RoundClock :: ClockType
- Graphics.UI.FLTK.LowLevel.Clock: Second :: Int -> Second
- Graphics.UI.FLTK.LowLevel.Clock: SquareClock :: ClockType
- Graphics.UI.FLTK.LowLevel.Clock: clockCustom :: Rectangle -> Maybe Text -> Maybe (Ref Clock -> IO ()) -> Maybe (CustomWidgetFuncs Clock) -> IO (Ref Clock)
- Graphics.UI.FLTK.LowLevel.Clock: clockNew :: Rectangle -> Maybe Text -> IO (Ref Clock)
- Graphics.UI.FLTK.LowLevel.Clock: clockNewWithType :: ClockType -> Rectangle -> Text -> IO (Ref Clock)
- Graphics.UI.FLTK.LowLevel.Clock: data ClockByTime
- Graphics.UI.FLTK.LowLevel.Clock: data ClockSetTimeType
- Graphics.UI.FLTK.LowLevel.Clock: data ClockSinceEpoch
- Graphics.UI.FLTK.LowLevel.Clock: data ClockType
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShadow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Clock.ClockSetTimeType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Clock.ClockType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShadow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Clock.ClockByTime) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Clock.ClockSinceEpoch) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValueSinceEpoch ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Clock.ClockType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Clock.ClockType
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.ClockByTime
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.ClockSetTimeType
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.ClockSinceEpoch
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.ClockType
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.Hour
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.Minute
- Graphics.UI.FLTK.LowLevel.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Clock.Second
- Graphics.UI.FLTK.LowLevel.Clock: newtype Hour
- Graphics.UI.FLTK.LowLevel.Clock: newtype Minute
- Graphics.UI.FLTK.LowLevel.Clock: newtype Second
- Graphics.UI.FLTK.LowLevel.ColorChooser: CustomColorChooserFuncs :: (Ref a -> IO ColorChooserMode) -> (Ref a -> ColorChooserMode -> IO ()) -> (Ref a -> IO Between0And6) -> (Ref a -> IO Between0And1) -> (Ref a -> IO Between0And1) -> (Ref a -> IO Between0And1) -> (Ref a -> IO Between0And1) -> (Ref a -> IO Between0And1) -> (Ref a -> (Between0And6, Between0And1, Between0And1) -> IO Int) -> (Ref a -> (Between0And1, Between0And1, Between0And1) -> IO Int) -> CustomColorChooserFuncs a
- Graphics.UI.FLTK.LowLevel.ColorChooser: [bCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
- Graphics.UI.FLTK.LowLevel.ColorChooser: [gCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
- Graphics.UI.FLTK.LowLevel.ColorChooser: [getModeCustom] :: CustomColorChooserFuncs a -> Ref a -> IO ColorChooserMode
- Graphics.UI.FLTK.LowLevel.ColorChooser: [hsvCustom] :: CustomColorChooserFuncs a -> Ref a -> (Between0And6, Between0And1, Between0And1) -> IO Int
- Graphics.UI.FLTK.LowLevel.ColorChooser: [hueCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And6
- Graphics.UI.FLTK.LowLevel.ColorChooser: [rCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
- Graphics.UI.FLTK.LowLevel.ColorChooser: [rgbCustom] :: CustomColorChooserFuncs a -> Ref a -> (Between0And1, Between0And1, Between0And1) -> IO Int
- Graphics.UI.FLTK.LowLevel.ColorChooser: [saturationCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
- Graphics.UI.FLTK.LowLevel.ColorChooser: [setModeCustom] :: CustomColorChooserFuncs a -> Ref a -> ColorChooserMode -> IO ()
- Graphics.UI.FLTK.LowLevel.ColorChooser: [valueCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
- Graphics.UI.FLTK.LowLevel.ColorChooser: colorChooserCustom :: Rectangle -> Maybe Text -> Maybe (Ref ColorChooser -> IO ()) -> Maybe (CustomColorChooserFuncs ColorChooser) -> Maybe (CustomWidgetFuncs ColorChooser) -> IO (Ref ColorChooser)
- Graphics.UI.FLTK.LowLevel.ColorChooser: colorChooserNew :: Rectangle -> Maybe Text -> IO (Ref ColorChooser)
- Graphics.UI.FLTK.LowLevel.ColorChooser: data CustomColorChooserFuncs a
- Graphics.UI.FLTK.LowLevel.ColorChooser: flcColorChooser :: Text -> ColorChooserRGB -> Maybe ColorChooserMode -> IO (Maybe ColorChooserRGB)
- Graphics.UI.FLTK.LowLevel.ColorChooser: hsv2Rgb :: (Between0And6, Between0And1, Between0And1) -> IO (Maybe (Between0And1, Between0And1, Between0And1))
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRgb ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHsv ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ColorChooserMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange (Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRgb ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange (Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHsv ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetB ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetG ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSaturation ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ColorChooserMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
- Graphics.UI.FLTK.LowLevel.ColorChooser: rgb2Hsv :: (Between0And1, Between0And1, Between0And1) -> IO (Maybe (Between0And6, Between0And1, Between0And1))
- Graphics.UI.FLTK.LowLevel.CopySurface: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CopySurface orig impl
- Graphics.UI.FLTK.LowLevel.CopySurface: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CopySurface orig impl
- Graphics.UI.FLTK.LowLevel.CopySurface: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CopySurface orig impl
- Graphics.UI.FLTK.LowLevel.Counter: NormalCounterType :: CounterType
- Graphics.UI.FLTK.LowLevel.Counter: SimpleCounterType :: CounterType
- Graphics.UI.FLTK.LowLevel.Counter: counterCustom :: Rectangle -> Maybe Text -> Maybe (Ref Counter -> IO ()) -> Maybe (CustomWidgetFuncs Counter) -> IO (Ref Counter)
- Graphics.UI.FLTK.LowLevel.Counter: counterNew :: Rectangle -> Maybe Text -> IO (Ref Counter)
- Graphics.UI.FLTK.LowLevel.Counter: data CounterType
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLstep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Counter.CounterType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Counter.CounterType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
- Graphics.UI.FLTK.LowLevel.Counter: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Counter.CounterType
- Graphics.UI.FLTK.LowLevel.Counter: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Counter.CounterType
- Graphics.UI.FLTK.LowLevel.Counter: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Counter.CounterType
- Graphics.UI.FLTK.LowLevel.Dial: FillDialType :: DialType
- Graphics.UI.FLTK.LowLevel.Dial: LineDialType :: DialType
- Graphics.UI.FLTK.LowLevel.Dial: NormalDialType :: DialType
- Graphics.UI.FLTK.LowLevel.Dial: data DialType
- Graphics.UI.FLTK.LowLevel.Dial: dialCustom :: Rectangle -> Maybe Text -> Maybe (Ref Dial -> IO ()) -> Maybe (CustomWidgetFuncs Dial) -> IO (Ref Dial)
- Graphics.UI.FLTK.LowLevel.Dial: dialNew :: Rectangle -> Maybe Text -> IO (Ref Dial)
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Dial.DialType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAngle1 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAngle2 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAngles ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Dial.DialType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Angle) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAngle1 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Angle) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAngle2 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
- Graphics.UI.FLTK.LowLevel.Dial: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Dial.DialType
- Graphics.UI.FLTK.LowLevel.Dial: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Dial.DialType
- Graphics.UI.FLTK.LowLevel.Dial: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Dial.DialType
- Graphics.UI.FLTK.LowLevel.Dispatch: instance (Graphics.UI.FLTK.LowLevel.Dispatch.InHierarchy Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindInHierarchy a a b) => Graphics.UI.FLTK.LowLevel.Dispatch.Parent a b
- Graphics.UI.FLTK.LowLevel.Dispatch: type family Functions (x :: *) :: *
- Graphics.UI.FLTK.LowLevel.DoubleWindow: doubleWindowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref DoubleWindow -> IO ()) -> CustomWidgetFuncs DoubleWindow -> CustomWindowFuncs DoubleWindow -> IO (Ref DoubleWindow)
- Graphics.UI.FLTK.LowLevel.DoubleWindow: doubleWindowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref DoubleWindow)
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FlushSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
- Graphics.UI.FLTK.LowLevel.FL: getBoxtypePrim :: Boxtype -> IO (FunPtr BoxDrawFPrim)
- Graphics.UI.FLTK.LowLevel.FileBrowser: FileBrowserDirectories :: FileBrowserType
- Graphics.UI.FLTK.LowLevel.FileBrowser: FileBrowserFiles :: FileBrowserType
- Graphics.UI.FLTK.LowLevel.FileBrowser: alphaSort :: IO FileSortF
- Graphics.UI.FLTK.LowLevel.FileBrowser: caseAlphaSort :: IO FileSortF
- Graphics.UI.FLTK.LowLevel.FileBrowser: caseNumericSort :: IO FileSortF
- Graphics.UI.FLTK.LowLevel.FileBrowser: data FileBrowserType
- Graphics.UI.FLTK.LowLevel.FileBrowser: fileBrowserCustom :: Rectangle -> Maybe Text -> Maybe (Ref FileBrowser -> IO ()) -> Maybe (CustomWidgetFuncs FileBrowser) -> IO (Ref FileBrowser)
- Graphics.UI.FLTK.LowLevel.FileBrowser: fileBrowserNew :: Rectangle -> Maybe Text -> IO (Ref FileBrowser)
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.FileBrowser.FileSortF -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Load ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Foreign.C.Types.CUChar -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIconsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FileBrowserType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFiletype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO Foreign.C.Types.CUChar) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIconsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FileBrowserType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFiletype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
- Graphics.UI.FLTK.LowLevel.FileBrowser: numericSort :: IO FileSortF
- Graphics.UI.FLTK.LowLevel.FileBrowser: type FileSortF = FunPtr (((Ptr (Ptr ())) -> ((Ptr (Ptr ())) -> (IO CInt))))
- Graphics.UI.FLTK.LowLevel.FileInput: fileInputCustom :: Rectangle -> Maybe Text -> Maybe (Ref FileInput -> IO ()) -> Maybe (CustomWidgetFuncs FileInput) -> IO (Ref FileInput)
- Graphics.UI.FLTK.LowLevel.FileInput: fileInputNew :: Rectangle -> Maybe Text -> IO (Ref FileInput)
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetErrorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FileInput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetErrorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
- Graphics.UI.FLTK.LowLevel.FillSlider: fillSliderNew :: Rectangle -> Maybe Text -> IO (Ref FillSlider)
- Graphics.UI.FLTK.LowLevel.GlWindow: glWindowCanDo :: Mode -> IO Bool
- Graphics.UI.FLTK.LowLevel.GlWindow: glWindowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref GlWindow -> IO ()) -> CustomWidgetFuncs GlWindow -> CustomWindowFuncs GlWindow -> IO (Ref GlWindow)
- Graphics.UI.FLTK.LowLevel.GlWindow: glWindowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref GlWindow)
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetContextValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Modes -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Fl_Types.FlGlContext -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetContextWithDestroyFlag ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Fl_Types.FlGlContext -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetContext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FlushSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Invalidate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeOverlayCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Ortho ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedrawOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SwapBuffers ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Fl_Types.FlGlContext)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetContext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanDo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanDoOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetContextValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PixelsPerUnit ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PixelH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PixelW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Mode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
- Graphics.UI.FLTK.LowLevel.Group: groupCurrent :: IO (Maybe (Ref Group))
- Graphics.UI.FLTK.LowLevel.Group: groupCustom :: Rectangle -> Maybe Text -> Maybe (Ref Group -> IO ()) -> CustomWidgetFuncs Group -> IO (Ref Group)
- Graphics.UI.FLTK.LowLevel.Group: groupNew :: Rectangle -> Maybe Text -> IO (Ref Group)
- Graphics.UI.FLTK.LowLevel.Group: groupSetCurrent :: Parent a Group => Maybe (Ref a) -> IO ()
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Match obj Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()) obj orig (GHC.Types.IO ()), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) obj orig (GHC.Types.IO ()), impl Data.Type.Equality.~ (GHC.Types.IO a -> GHC.Types.IO a)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Within ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawOutsideLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Focus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.UpdateChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Find ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertBefore ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetClipChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InitSizes ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetNotResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DdfdesignKludge ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClipChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Children ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.Group: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetArray ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
- Graphics.UI.FLTK.LowLevel.HorFillSlider: horFillSliderNew :: Rectangle -> Maybe Text -> IO (Ref HorFillSlider)
- Graphics.UI.FLTK.LowLevel.HorNiceSlider: horNiceSliderNew :: Rectangle -> Maybe Text -> IO (Ref HorNiceSlider)
- Graphics.UI.FLTK.LowLevel.HorSlider: horSliderNew :: Rectangle -> Maybe Text -> IO (Ref HorSlider)
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Maybe.Maybe GHC.Types.Bool -> GHC.Maybe.Maybe GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scale ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Image.ImageFail ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Fail ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDataH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Size) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDataSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDataW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.Image: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOrigin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError Graphics.UI.FLTK.LowLevel.Fl_Types.Size)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrintableRect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FlOffscreen) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOffscreen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Position) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOrigin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
- Graphics.UI.FLTK.LowLevel.Input: FlFloatInput :: FlInputType
- Graphics.UI.FLTK.LowLevel.Input: FlHiddenInput :: FlInputType
- Graphics.UI.FLTK.LowLevel.Input: FlIntInput :: FlInputType
- Graphics.UI.FLTK.LowLevel.Input: FlMultilineInput :: FlInputType
- Graphics.UI.FLTK.LowLevel.Input: FlNormalInput :: FlInputType
- Graphics.UI.FLTK.LowLevel.Input: FlSecretInput :: FlInputType
- Graphics.UI.FLTK.LowLevel.Input: data FlInputType
- Graphics.UI.FLTK.LowLevel.Input: inputCustom :: Rectangle -> Maybe Text -> Maybe FlInputType -> Maybe (Ref Input -> IO ()) -> Maybe (CustomWidgetFuncs Input) -> IO (Ref Input)
- Graphics.UI.FLTK.LowLevel.Input: inputNew :: Rectangle -> Maybe Text -> Maybe FlInputType -> IO (Ref Input)
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.StaticValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertWithLength ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetReadonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Maybe.Maybe GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximumSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CutFromCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMark ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Char)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Index ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Clipboard -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CutRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Input.FlInputType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetInputType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CopyCuts ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Cut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Undo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetReadonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMark ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximumSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Input.FlInputType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetInputType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
- Graphics.UI.FLTK.LowLevel.Input: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Input.FlInputType
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
- Graphics.UI.FLTK.LowLevel.LightButton: lightButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref LightButton -> IO ()) -> Maybe (CustomWidgetFuncs LightButton) -> IO (Ref LightButton)
- Graphics.UI.FLTK.LowLevel.LightButton: lightButtonNew :: Rectangle -> Maybe Text -> IO (Ref LightButton)
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
- Graphics.UI.FLTK.LowLevel.MenuBar: menuBarCustom :: Rectangle -> Maybe Text -> Maybe (Ref MenuBar -> IO ()) -> Maybe (CustomWidgetFuncs MenuBar) -> IO (Ref MenuBar)
- Graphics.UI.FLTK.LowLevel.MenuBar: menuBarNew :: Rectangle -> Maybe Text -> IO (Ref MenuBar)
- Graphics.UI.FLTK.LowLevel.MenuButton: NormalMenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: Popup123MenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: Popup12MenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: Popup13MenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: Popup1MenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: Popup2MenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: Popup3MenuButton :: MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: data MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Popup ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
- Graphics.UI.FLTK.LowLevel.MenuButton: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.MenuButton.MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.MenuButton.MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.MenuButton.MenuButtonType
- Graphics.UI.FLTK.LowLevel.MenuButton: menuButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref MenuButton -> IO ()) -> Maybe (CustomWidgetFuncs MenuButton) -> IO (Ref MenuButton)
- Graphics.UI.FLTK.LowLevel.MenuButton: menuButtonNew :: Rectangle -> Maybe Text -> IO (Ref MenuButton)
- Graphics.UI.FLTK.LowLevel.MenuItem: MenuItemByIndex :: AtIndex -> MenuItemReference
- Graphics.UI.FLTK.LowLevel.MenuItem: MenuItemByPointer :: MenuItemPointer -> MenuItemReference
- Graphics.UI.FLTK.LowLevel.MenuItem: MenuItemName :: Text -> MenuItemName
- Graphics.UI.FLTK.LowLevel.MenuItem: MenuItemNameLocator :: MenuItemName -> MenuItemLocator
- Graphics.UI.FLTK.LowLevel.MenuItem: MenuItemPointer :: Ref a -> MenuItemPointer
- Graphics.UI.FLTK.LowLevel.MenuItem: MenuItemPointerLocator :: MenuItemPointer -> MenuItemLocator
- Graphics.UI.FLTK.LowLevel.MenuItem: addMenuItem :: Parent menuItem MenuItem => Either (Ref MenuPrim) (Ref MenuItem) -> Text -> Maybe Shortcut -> Maybe (Ref menuItem -> IO ()) -> MenuItemFlags -> (Ptr () -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> (Ptr () -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> IO AtIndex
- Graphics.UI.FLTK.LowLevel.MenuItem: data MenuItemLocator
- Graphics.UI.FLTK.LowLevel.MenuItem: data MenuItemPointer
- Graphics.UI.FLTK.LowLevel.MenuItem: data MenuItemReference
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, Graphics.UI.FLTK.LowLevel.Dispatch.Parent c Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Maybe.Maybe Data.Text.Internal.Text -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b) -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref c)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Popup ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Bool -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextWithStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TestShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent c Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b) -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref c) -> GHC.Maybe.Maybe GHC.Types.Bool -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Pulldown ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawWithT ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Size)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Measure ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig -> GHC.Types.IO ()) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelWithLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFlags ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DoCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deactivate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Set ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Setonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFirst ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFlags ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Active ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activevisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Checkbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Radio ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Submenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Visible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
- Graphics.UI.FLTK.LowLevel.MenuItem: menuItemCustom :: Parent a MenuItem => (Ref a -> Rectangle -> Maybe (Ref MenuPrim) -> Bool -> IO ()) -> IO (Ref MenuItem)
- Graphics.UI.FLTK.LowLevel.MenuItem: menuItemNew :: IO (Ref MenuItem)
- Graphics.UI.FLTK.LowLevel.MenuItem: newtype MenuItemName
- Graphics.UI.FLTK.LowLevel.MenuItem: toMenuItemDrawF :: Parent a MenuItem => (Ref a -> Rectangle -> Maybe (Ref MenuPrim) -> Bool -> IO ()) -> IO (FunPtr MenuItemDrawF)
- Graphics.UI.FLTK.LowLevel.MenuPrim: insertMenuItem :: Parent a MenuPrim => Ref MenuPrim -> Int -> Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> (Ptr () -> Int -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> (Ptr () -> Int -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> IO AtIndex
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Picked ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddAndGetMenuItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Setonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemPathname ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TestShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddName ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearSubmenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextWithIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.MenuItem.MenuItemLocator -> GHC.Types.IO (GHC.Maybe.Maybe GHC.Types.Int))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.MenuItem.MenuItemReference -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Global ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Mvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe GHC.Base.String)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemPathnameRecent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl Data.Type.Equality.~ GHC.Types.IO [GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem)]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
- Graphics.UI.FLTK.LowLevel.MenuPrim: menu_Custom :: Rectangle -> Maybe Text -> Maybe (CustomWidgetFuncs MenuPrim) -> IO (Ref MenuPrim)
- Graphics.UI.FLTK.LowLevel.MenuPrim: menu_New :: Rectangle -> Maybe Text -> IO (Ref MenuPrim)
- Graphics.UI.FLTK.LowLevel.MultiLabel: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MultiLabel orig impl
- Graphics.UI.FLTK.LowLevel.MultiLabel: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MultiLabel orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDirectory ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPresetFile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTitle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFilterValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilenameAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserOption] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOptions ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDirectory ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetErrmsg ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilename ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPresetFile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTitle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Filters ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilterValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserUserAction) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserOption]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOptions ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
- Graphics.UI.FLTK.LowLevel.NiceSlider: niceSliderNew :: Rectangle -> Maybe Text -> IO (Ref NiceSlider)
- Graphics.UI.FLTK.LowLevel.Output: FlMultilineOutput :: FlOutputType
- Graphics.UI.FLTK.LowLevel.Output: FlNormalOutput :: FlOutputType
- Graphics.UI.FLTK.LowLevel.Output: data FlOutputType
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Output.FlOutputType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
- Graphics.UI.FLTK.LowLevel.Output: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Output.FlOutputType
- Graphics.UI.FLTK.LowLevel.Output: outputCustom :: Rectangle -> Maybe Text -> Maybe (Ref Output -> IO ()) -> Maybe (CustomWidgetFuncs Output) -> IO (Ref Output)
- Graphics.UI.FLTK.LowLevel.Output: outputNew :: Rectangle -> Maybe Text -> Maybe FlOutputType -> IO (Ref Output)
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedrawOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanDoOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
- Graphics.UI.FLTK.LowLevel.OverlayWindow: overlayWindowNew :: forall a. Parent a OverlayWindow => Size -> Maybe Text -> Maybe Position -> (Ref a -> IO ()) -> IO (Ref OverlayWindow)
- Graphics.UI.FLTK.LowLevel.Pack: PackHorizontal :: PackType
- Graphics.UI.FLTK.LowLevel.Pack: PackVertical :: PackType
- Graphics.UI.FLTK.LowLevel.Pack: data PackType
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSpacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PackType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsHorizontal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSpacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PackType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
- Graphics.UI.FLTK.LowLevel.Pack: packCustom :: Rectangle -> Maybe Text -> Maybe (Ref Pack -> IO ()) -> Maybe (CustomWidgetFuncs Pack) -> IO (Ref Pack)
- Graphics.UI.FLTK.LowLevel.Pack: packNew :: Rectangle -> Maybe Text -> IO (Ref Pack)
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXstep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYstep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXbounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYbounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
- Graphics.UI.FLTK.LowLevel.Positioner: positionerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Positioner -> IO ()) -> Maybe (CustomWidgetFuncs Positioner) -> IO (Ref Positioner)
- Graphics.UI.FLTK.LowLevel.Positioner: positionerNew :: Rectangle -> Maybe Text -> IO (Ref Positioner)
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
- Graphics.UI.FLTK.LowLevel.Progress: progressCustom :: Rectangle -> Maybe Text -> Maybe (Ref Progress -> IO ()) -> Maybe (CustomWidgetFuncs Progress) -> IO (Ref Progress)
- Graphics.UI.FLTK.LowLevel.Progress: progressNew :: Rectangle -> Maybe Text -> IO (Ref Progress)
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
- Graphics.UI.FLTK.LowLevel.RadioLightButton: radioLightButtonNew :: Rectangle -> Maybe Text -> IO (Ref RadioLightButton)
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deactivate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
- Graphics.UI.FLTK.LowLevel.RepeatButton: repeatButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref RepeatButton -> IO ()) -> Maybe (CustomWidgetFuncs RepeatButton) -> IO (Ref RepeatButton)
- Graphics.UI.FLTK.LowLevel.RepeatButton: repeatButtonNew :: Rectangle -> Maybe Text -> IO (Ref RepeatButton)
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
- Graphics.UI.FLTK.LowLevel.ReturnButton: returnButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref ReturnButton -> IO ()) -> Maybe (CustomWidgetFuncs ReturnButton) -> IO (Ref ReturnButton)
- Graphics.UI.FLTK.LowLevel.ReturnButton: returnButtonNew :: Rectangle -> Maybe Text -> IO (Ref ReturnButton)
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
- Graphics.UI.FLTK.LowLevel.Roller: rollerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Roller -> IO ()) -> Maybe (CustomWidgetFuncs Roller) -> IO (Ref Roller)
- Graphics.UI.FLTK.LowLevel.Roller: rollerNew :: Rectangle -> Maybe Text -> IO (Ref Roller)
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
- Graphics.UI.FLTK.LowLevel.RoundButton: roundButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref RoundButton -> IO ()) -> Maybe (CustomWidgetFuncs RoundButton) -> IO (Ref RoundButton)
- Graphics.UI.FLTK.LowLevel.RoundButton: roundButtonNew :: Rectangle -> Maybe Text -> IO (Ref RoundButton)
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinesize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.LineSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinesize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
- Graphics.UI.FLTK.LowLevel.Scrollbar: scrollbarCustom :: Rectangle -> Maybe Text -> Maybe (Ref Scrollbar -> IO ()) -> Maybe (CustomWidgetFuncs Scrollbar) -> IO (Ref Scrollbar)
- Graphics.UI.FLTK.LowLevel.Scrollbar: scrollbarNew :: Rectangle -> Maybe Text -> IO (Ref Scrollbar)
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollTo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Xposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Yposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
- Graphics.UI.FLTK.LowLevel.Scrolled: scrolledCustom :: Rectangle -> Maybe Text -> Maybe (Ref Scrolled -> IO ()) -> Maybe (CustomWidgetFuncs Scrolled) -> IO (Ref Scrolled)
- Graphics.UI.FLTK.LowLevel.Scrolled: scrolledNew :: Rectangle -> Maybe Text -> IO (Ref Scrolled)
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAnsi ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStayAtBottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCurrentStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetNormalStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHistoryLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Types.StyleTableEntry] -> GHC.Maybe.Maybe GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStyleTable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe [Graphics.UI.FLTK.LowLevel.Fl_Types.StyleTableEntry])) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStyleTable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAnsi ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStayAtBottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStyleTableSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCurrentStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetNormalStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Lines) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHistoryLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: simpleTerminalCustom :: Rectangle -> Maybe Text -> Maybe (Ref SimpleTerminal -> IO ()) -> IO (Ref SimpleTerminal)
- Graphics.UI.FLTK.LowLevel.SimpleTerminal: simpleTerminalNew :: Rectangle -> Maybe Text -> IO (Ref SimpleTerminal)
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FlushSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
- Graphics.UI.FLTK.LowLevel.SingleWindow: singleWindowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref SingleWindow -> IO ()) -> CustomWidgetFuncs SingleWindow -> CustomWindowFuncs SingleWindow -> IO (Ref SingleWindow)
- Graphics.UI.FLTK.LowLevel.SingleWindow: singleWindowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref SingleWindow)
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Bounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSliderSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSlider ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.SliderType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSliderSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSlider ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.SliderType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
- Graphics.UI.FLTK.LowLevel.Slider: sliderCustom :: Rectangle -> Maybe Text -> Maybe (Ref Slider -> IO ()) -> Maybe (CustomWidgetFuncs Slider) -> IO (Ref Slider)
- Graphics.UI.FLTK.LowLevel.Slider: sliderNew :: Rectangle -> Maybe Text -> IO (Ref Slider)
- Graphics.UI.FLTK.LowLevel.Spinner: FloatSpinnerType :: SpinnerType
- Graphics.UI.FLTK.LowLevel.Spinner: IntSpinnerType :: SpinnerType
- Graphics.UI.FLTK.LowLevel.Spinner: data SpinnerType
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Range ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Spinner.SpinnerType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Spinner.SpinnerType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
- Graphics.UI.FLTK.LowLevel.Spinner: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Spinner.SpinnerType
- Graphics.UI.FLTK.LowLevel.Spinner: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Spinner.SpinnerType
- Graphics.UI.FLTK.LowLevel.Spinner: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Spinner.SpinnerType
- Graphics.UI.FLTK.LowLevel.Spinner: spinnerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Spinner -> IO ()) -> Maybe (CustomWidgetFuncs Spinner) -> IO (Ref Spinner)
- Graphics.UI.FLTK.LowLevel.Spinner: spinnerNew :: Rectangle -> Maybe Text -> IO (Ref Spinner)
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem, impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddName ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRangeOrNotSubmenu ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearSubmenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Global ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
- Graphics.UI.FLTK.LowLevel.SysMenuBar: sysMenuBarCustom :: Rectangle -> Maybe Text -> Maybe (Ref SysMenuBar -> IO ()) -> Maybe (CustomWidgetFuncs SysMenuBar) -> IO (Ref SysMenuBar)
- Graphics.UI.FLTK.LowLevel.SysMenuBar: sysMenuBarNew :: Rectangle -> Maybe Text -> IO (Ref SysMenuBar)
- Graphics.UI.FLTK.LowLevel.Table: Column :: Int -> Column
- Graphics.UI.FLTK.LowLevel.Table: CustomTableFuncs :: Maybe (Ref a -> IO ()) -> Maybe (Ref a -> Rows -> IO ()) -> Maybe (Ref a -> Columns -> IO ()) -> CustomTableFuncs a
- Graphics.UI.FLTK.LowLevel.Table: Row :: Int -> Row
- Graphics.UI.FLTK.LowLevel.Table: TableCoordinate :: Row -> Column -> TableCoordinate
- Graphics.UI.FLTK.LowLevel.Table: [clearCustom] :: CustomTableFuncs a -> Maybe (Ref a -> IO ())
- Graphics.UI.FLTK.LowLevel.Table: [setColsCustom] :: CustomTableFuncs a -> Maybe (Ref a -> Columns -> IO ())
- Graphics.UI.FLTK.LowLevel.Table: [setRowsCustom] :: CustomTableFuncs a -> Maybe (Ref a -> Rows -> IO ())
- Graphics.UI.FLTK.LowLevel.Table: data Column
- Graphics.UI.FLTK.LowLevel.Table: data CustomTableFuncs a
- Graphics.UI.FLTK.LowLevel.Table: data Row
- Graphics.UI.FLTK.LowLevel.Table: data TableCoordinate
- Graphics.UI.FLTK.LowLevel.Table: defaultCustomTableFuncs :: forall a. Parent a Table => CustomTableFuncs a
- Graphics.UI.FLTK.LowLevel.Table: fillCustomTableFunctionStruct :: forall a. Parent a Table => Ptr () -> Maybe (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomTableFuncs a -> IO ()
- Graphics.UI.FLTK.LowLevel.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertBefore ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Find ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabCellNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColHeaderHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColWidthAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeaderWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeightAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTableBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColsSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowsSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TableContext -> Graphics.UI.FLTK.LowLevel.Table.TableCoordinate -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DoCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TableContext -> Graphics.UI.FLTK.LowLevel.Table.TableCoordinate -> GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindCell ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Column -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Column -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Column -> GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Row -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Row -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTopRow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Row -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Row -> GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.TableCoordinate -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.TableCoordinate -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.TableCoordinate -> Graphics.UI.FLTK.LowLevel.Table.TableCoordinate -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InitSizes ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Table.TableCoordinate, Graphics.UI.FLTK.LowLevel.Table.TableCoordinate)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Table.TableCoordinate, Graphics.UI.FLTK.LowLevel.Table.TableCoordinate)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisibleCells ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabCellNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsInteractiveResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Children ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColHeaderHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeaderWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTableBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Columns) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rows) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TableContext) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallbackContext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Table.Column) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallbackCol ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Table.Column) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Table.Row) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallbackRow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Table.Row) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Table.Row) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopRow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetArray ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
- Graphics.UI.FLTK.LowLevel.Table: mkDrawCell :: (Ptr () -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()))
- Graphics.UI.FLTK.LowLevel.Table: mkSetInt :: SetIntPrim -> IO (FunPtr SetIntPrim)
- Graphics.UI.FLTK.LowLevel.Table: tableCustom :: Rectangle -> Maybe Text -> Maybe (Ref Table -> IO ()) -> (Ref Table -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs Table -> CustomTableFuncs Table -> IO (Ref Table)
- Graphics.UI.FLTK.LowLevel.Table: tableCustomFunctionStruct :: (Parent a Widget, Parent b Table) => Maybe (Ref a -> IO ()) -> Maybe (Ref b -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs a -> CustomTableFuncs b -> IO (Ptr ())
- Graphics.UI.FLTK.LowLevel.Table: toDrawCellPrim :: (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()))
- Graphics.UI.FLTK.LowLevel.Table: toSetColumnsPrim :: (Ref a -> Columns -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))
- Graphics.UI.FLTK.LowLevel.Table: toSetRowsPrim :: (Ref a -> Rows -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))
- Graphics.UI.FLTK.LowLevel.TableRow: TableRowDeselect :: TableRowSelectFlag
- Graphics.UI.FLTK.LowLevel.TableRow: TableRowSelect :: TableRowSelectFlag
- Graphics.UI.FLTK.LowLevel.TableRow: TableRowToggle :: TableRowSelectFlag
- Graphics.UI.FLTK.LowLevel.TableRow: data TableRowSelectFlag
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColsSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowsSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TableRowSelectMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Table.Row -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange GHC.Types.Bool))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TableRow.TableRowSelectFlag -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAllRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rows) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TableRowSelectMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
- Graphics.UI.FLTK.LowLevel.TableRow: tableRowNew :: Rectangle -> Maybe Text -> Maybe (Ref TableRow -> IO ()) -> (Ref TableRow -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs TableRow -> CustomTableFuncs TableRow -> IO (Ref TableRow)
- Graphics.UI.FLTK.LowLevel.Tabs: CustomTabFuncs :: (Ref a -> IO ()) -> (Ref a -> IO (Maybe AtIndex, Int, [(X, Width)])) -> (Ref a -> IO Height) -> (Ref a -> Position -> IO (Maybe (AtIndex, Ref Widget))) -> (Ref a -> IO ()) -> (Ref a -> TabsHeightOffset -> IO Rectangle) -> CustomTabFuncs a
- Graphics.UI.FLTK.LowLevel.Tabs: TabsAtBottom :: Maybe Int -> TabsHeightOffset
- Graphics.UI.FLTK.LowLevel.Tabs: TabsAtTop :: Maybe Int -> TabsHeightOffset
- Graphics.UI.FLTK.LowLevel.Tabs: [tabClientArea] :: CustomTabFuncs a -> Ref a -> TabsHeightOffset -> IO Rectangle
- Graphics.UI.FLTK.LowLevel.Tabs: [tabDrawCustom] :: CustomTabFuncs a -> Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.Tabs: [tabHeightCustom] :: CustomTabFuncs a -> Ref a -> IO Height
- Graphics.UI.FLTK.LowLevel.Tabs: [tabPositionsCustom] :: CustomTabFuncs a -> Ref a -> IO (Maybe AtIndex, Int, [(X, Width)])
- Graphics.UI.FLTK.LowLevel.Tabs: [tabRedrawTabs] :: CustomTabFuncs a -> Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.Tabs: [tabWhichCustom] :: CustomTabFuncs a -> Ref a -> Position -> IO (Maybe (AtIndex, Ref Widget))
- Graphics.UI.FLTK.LowLevel.Tabs: data CustomTabFuncs a
- Graphics.UI.FLTK.LowLevel.Tabs: data TabsHeightOffset
- Graphics.UI.FLTK.LowLevel.Tabs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Which ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Tabs.TabsHeightOffset -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClientArea ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TabPositions ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TabHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
- Graphics.UI.FLTK.LowLevel.Tabs: tabsCustom :: Rectangle -> Maybe Text -> Maybe (CustomTabFuncs Tabs) -> Maybe (CustomWidgetFuncs Tabs) -> IO (Ref Tabs)
- Graphics.UI.FLTK.LowLevel.Tabs: tabsNew :: Rectangle -> Maybe Text -> IO (Ref Tabs)
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AppendToBuffer ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ReplaceSecondarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ReplaceSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Appendfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Loadfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Savefile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AppendfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LoadfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SavefileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insertfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Outputfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OutputfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (GHC.Ptr.FunPtr () -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveModifyCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (GHC.Ptr.FunPtr () -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemovePredeleteCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanUndo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabDistance ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.Bool -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SearchBackwardWithMatchcase ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.Bool -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SearchForwardWithMatchcase ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Char -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindcharBackward ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Char -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindcharForward ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevCharClipped ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Utf8Align ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Char)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ByteAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Char)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CharAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextCharClipped ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SkipDisplayedCharacters ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RewindLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SkipLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHighlight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TextRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CountDisplayedCharacters ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Lines)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CountLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange GHC.Base.String))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TextModifyCb -> GHC.Types.IO (GHC.Ptr.FunPtr ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddModifyCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TextPredeleteCb -> GHC.Types.IO (GHC.Ptr.FunPtr ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddPredeleteCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallModifyCallbacks ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallPredeleteCallbacks ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveSecondarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondaryUnselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Unhighlight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Unselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Undo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrimarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FileEncodingWarningMessage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelectionText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectionText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHighlight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InputFileWasTranscoded ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLength ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabDistance ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelectionPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectionPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: indexStyleTableEntries :: [StyleTableEntry] -> [(Char, StyleTableEntry)]
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBuffer ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> [(GHC.Types.Char, Graphics.UI.FLTK.LowLevel.Fl_Types.StyleTableEntry)] -> GHC.Maybe.Maybe (GHC.Types.Char, Graphics.UI.FLTK.LowLevel.Fl_Types.UnfinishedStyleCb) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightData ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Overstrike ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColToX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.XToCol ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberBgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberFgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberFont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Bool -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetInsertPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Position))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PositionToXy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.Bool -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SkipLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RewindLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TextDisplayStyle)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PositionStyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.CursorType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorStyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.Bool -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CountLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedisplayRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scroll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Width -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Width -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.WrapType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WrapMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextWord ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PreviousWord ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowInsertPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveDown ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveLeft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveRight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveUp ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetBuffer ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberBgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberFgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberFont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetInsertPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
- Graphics.UI.FLTK.LowLevel.TextDisplay: mkStyleTableEntriesPtr :: Parent a TextDisplay => Ref a -> [StyleTableEntry] -> IO (ForeignPtr [StyleTableEntry])
- Graphics.UI.FLTK.LowLevel.TextDisplay: textDisplayCustom :: Rectangle -> Maybe Text -> Maybe (Ref TextDisplay -> IO ()) -> Maybe (CustomWidgetFuncs TextDisplay) -> IO (Ref TextDisplay)
- Graphics.UI.FLTK.LowLevel.TextDisplay: textDisplayNew :: Rectangle -> Maybe Text -> IO (Ref TextDisplay)
- Graphics.UI.FLTK.LowLevel.TextDisplay: toStyleTableEntries :: Int -> Ptr () -> IO (Maybe [StyleTableEntry])
- Graphics.UI.FLTK.LowLevel.TextEditor: KeyBinding :: KeyBindingKeySequence -> FunRef -> KeyBinding
- Graphics.UI.FLTK.LowLevel.TextEditor: KeyFunc :: (Ref a -> Char -> IO ()) -> KeyFunc
- Graphics.UI.FLTK.LowLevel.TextEditor: arrayToKeyBindings :: Ptr () -> IO [KeyBinding]
- Graphics.UI.FLTK.LowLevel.TextEditor: data KeyBinding
- Graphics.UI.FLTK.LowLevel.TextEditor: data KeyFunc
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetInsertMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.TextEditor.KeyBinding] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ReplaceKeyBindings ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetInsertMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.TextEditor.KeyBinding]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDefaultKeyBindings ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
- Graphics.UI.FLTK.LowLevel.TextEditor: keyBindingsToArray :: [KeyBinding] -> IO (Ptr ())
- Graphics.UI.FLTK.LowLevel.TextEditor: keyFuncToFunRef :: KeyFunc -> IO FunRef
- Graphics.UI.FLTK.LowLevel.TextEditor: textEditorCustom :: Rectangle -> Maybe Text -> Maybe (Ref TextEditor -> IO ()) -> Maybe (CustomWidgetFuncs TextEditor) -> IO (Ref TextEditor)
- Graphics.UI.FLTK.LowLevel.TextEditor: textEditorNew :: Rectangle -> Maybe Text -> IO (Ref TextEditor)
- Graphics.UI.FLTK.LowLevel.TextEditor: toKeyFuncPrim :: KeyFunc -> IO (FunPtr KeyFuncPrim)
- Graphics.UI.FLTK.LowLevel.TextEditor: type KeyFuncPrim = CInt -> Ptr () -> IO ()
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Includes ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Update ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Set ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Start ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
- Graphics.UI.FLTK.LowLevel.Tile: tileCustom :: Rectangle -> Maybe Text -> Maybe (Ref Tile -> IO ()) -> Maybe (CustomWidgetFuncs Tile) -> IO (Ref Tile)
- Graphics.UI.FLTK.LowLevel.Tile: tileNew :: Rectangle -> Maybe Text -> IO (Ref Tile)
- Graphics.UI.FLTK.LowLevel.ToggleButton: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ToggleButton orig impl
- Graphics.UI.FLTK.LowLevel.ToggleButton: toggleButtonNew :: Rectangle -> Maybe Text -> IO (Ref ToggleButton)
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertAbove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallbackItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe Data.Text.Internal.Text))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemPathname ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsScrollbar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RootLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem) -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAllAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem) -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAllAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetVposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.SearchDirection -> GHC.Types.Bool -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.SearchDirection -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextSelectedItemAfterItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemWithYoff ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenToggleAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectOnlyAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectToggleAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Display ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectOnly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemBottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemMiddle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemTop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemNotFound ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextAfterItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevBeforeItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Displayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TreeReasonType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallbackReason ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CloseAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Close ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Open ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsClose ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsOpen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RecalcTree ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowSelf ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FirstSelectedItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FirstVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCallbackItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFirst ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLast ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemClicked ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LastSelectedItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LastVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextSelectedItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Prev ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Root ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsVscrollVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TreeReasonType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCallbackReason ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
- Graphics.UI.FLTK.LowLevel.Tree: treeCustom :: Rectangle -> Maybe Text -> Maybe (Ref Tree -> IO ()) -> Maybe (CustomWidgetFuncs Tree) -> IO (Ref Tree)
- Graphics.UI.FLTK.LowLevel.Tree: treeNew :: Rectangle -> Maybe Text -> IO (Ref Tree)
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> [Data.Text.Internal.Text] -> GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Reparent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemNotFound ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SwapChildrenByTreeItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.TreeItem.MoveType -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.TreeItem.MoveError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveTo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertAbove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindClicked ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextDisplayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevDisplayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.EventOnCollapseIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.EventOnLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowSelf ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ActivateWith ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectSet ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.UpdatePrevNext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deparent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Child ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SwapChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Move ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ ([Data.Text.Internal.Text] -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindInChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ ([Data.Text.Internal.Text] -> GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Close ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Open ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextSibling ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Prev ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevSibling ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HasChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsActive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsClose ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsOpen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsRoot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Visible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.VisibleR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Children ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDepth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelY ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: HorizontalValuatorType :: ValuatorType
- Graphics.UI.FLTK.LowLevel.Valuator: VerticalValuatorType :: ValuatorType
- Graphics.UI.FLTK.LowLevel.Valuator: data ValuatorType
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Real.Rational -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Bounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Range ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clamp ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Round ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Double -> GHC.Types.Int -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Increment ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Precision ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Valuator.ValuatorType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Format ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Real.Rational) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Valuator.ValuatorType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
- Graphics.UI.FLTK.LowLevel.Valuator: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Valuator.ValuatorType
- Graphics.UI.FLTK.LowLevel.Valuator: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Valuator.ValuatorType
- Graphics.UI.FLTK.LowLevel.Valuator: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Valuator.ValuatorType
- Graphics.UI.FLTK.LowLevel.Valuator: valuatorCustom :: Rectangle -> Maybe Text -> Maybe (Ref Valuator -> IO ()) -> Maybe (CustomWidgetFuncs Valuator) -> IO (Ref Valuator)
- Graphics.UI.FLTK.LowLevel.Valuator: valuatorNew :: Rectangle -> Maybe Text -> IO (Ref Valuator)
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
- Graphics.UI.FLTK.LowLevel.ValueInput: valueInputCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueInput -> IO ()) -> Maybe (CustomWidgetFuncs ValueInput) -> IO (Ref ValueInput)
- Graphics.UI.FLTK.LowLevel.ValueInput: valueInputNew :: Rectangle -> Maybe Text -> IO (Ref ValueInput)
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
- Graphics.UI.FLTK.LowLevel.ValueOutput: valueOutputCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueOutput -> IO ()) -> Maybe (CustomWidgetFuncs ValueOutput) -> IO (Ref ValueOutput)
- Graphics.UI.FLTK.LowLevel.ValueOutput: valueOutputNew :: Rectangle -> Maybe Text -> IO (Ref ValueOutput)
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
- Graphics.UI.FLTK.LowLevel.ValueSlider: valueSliderCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueSlider -> IO ()) -> Maybe (CustomWidgetFuncs ValueSlider) -> IO (Ref ValueSlider)
- Graphics.UI.FLTK.LowLevel.ValueSlider: valueSliderNew :: Rectangle -> Maybe Text -> IO (Ref ValueSlider)
- Graphics.UI.FLTK.LowLevel.Widget: CustomWidgetFuncs :: Maybe (Ref a -> Event -> IO (Either UnknownEvent ())) -> Maybe (Ref a -> Rectangle -> IO ()) -> Maybe (Ref a -> IO ()) -> Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagChanged :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagClipChildren :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagCopiedLabel :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagCopiedTooltip :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagForcePosition :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagFullscreen :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagGroupRelative :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagInactive :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagInvisible :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagMacUseAccentsMenu :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagMenuWindow :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagModal :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagNeedsKeyboard :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagNoBorder :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagNoOverlay :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagNonModal :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagOutput :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagOverride :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagShortcutLabel :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagTooltipWindow :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagUserFlag1 :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagUserFlag2 :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagUserFlag3 :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: WidgetFlagVisibleFocus :: WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: [handleCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> Event -> IO (Either UnknownEvent ()))
- Graphics.UI.FLTK.LowLevel.Widget: [hideCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> IO ())
- Graphics.UI.FLTK.LowLevel.Widget: [resizeCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> Rectangle -> IO ())
- Graphics.UI.FLTK.LowLevel.Widget: [showCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> IO ())
- Graphics.UI.FLTK.LowLevel.Widget: customWidgetFunctionStruct :: forall a. Parent a Widget => Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a -> IO (Ptr ())
- Graphics.UI.FLTK.LowLevel.Widget: data CustomWidgetFuncs a
- Graphics.UI.FLTK.LowLevel.Widget: data WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: defaultCustomWidgetFuncs :: forall a. Parent a Widget => CustomWidgetFuncs a
- Graphics.UI.FLTK.LowLevel.Widget: fillCustomWidgetFunctionStruct :: forall a. Parent a Widget => Ptr () -> Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a -> IO ()
- Graphics.UI.FLTK.LowLevel.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Match obj Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj Data.Type.Equality.~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.X), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Y), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height), impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRectangle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Group, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDeimage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetImage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Contains ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inside ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig -> GHC.Types.IO ()) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CopyTooltip ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTooltip ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype, Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle, Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Alignments) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Width -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Size)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MeasureLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ModifyVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (GHC.Word.Word8 -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Alignments -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBoxWithBoxtype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectionColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColorWithBgSel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype -> Graphics.UI.FLTK.LowLevel.Fl_Types.ResolveImageLabelConflict -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Widget.WidgetFlag -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearFlag ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Widget.WidgetFlag -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFlag ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearDamageThenSet ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDamage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage] -> Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDamageInside ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.When] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWhen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearActive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearChanged ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearDamage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearOutput ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deactivate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DoCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBackdrop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Redraw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedrawLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetActive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetChanged ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOutput ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TakeFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Group))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDeimage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetImage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Window))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Window))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTooltip ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Active ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ActiveR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Changed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisibleR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HasCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Takesevents ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOutput ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Word.Word8) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Alignments) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectionColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Position) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopWindowOffset ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.X) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Y) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDamage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.When]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWhen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance (impl Data.Type.Equality.~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Widget.WidgetFlag]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flags ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
- Graphics.UI.FLTK.LowLevel.Widget: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Widget.WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Widget.WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Widget.WidgetFlag
- Graphics.UI.FLTK.LowLevel.Widget: widgetCustom :: Rectangle -> Maybe Text -> (Ref Widget -> IO ()) -> CustomWidgetFuncs Widget -> IO (Ref Widget)
- Graphics.UI.FLTK.LowLevel.Widget: widgetMaker :: forall a. Parent a Widget => Rectangle -> Maybe Text -> Maybe (Ref a -> IO ()) -> Maybe (CustomWidgetFuncs a) -> (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())) -> IO (Ref a)
- Graphics.UI.FLTK.LowLevel.Window: ByPosition :: Position -> PositionSpec
- Graphics.UI.FLTK.LowLevel.Window: ByWidget :: Ref a -> PositionSpec
- Graphics.UI.FLTK.LowLevel.Window: CustomWindowFuncs :: Maybe (Ref a -> IO ()) -> CustomWindowFuncs a
- Graphics.UI.FLTK.LowLevel.Window: DoubleWindowType :: WindowType
- Graphics.UI.FLTK.LowLevel.Window: OptionalSizeRangeArgs :: Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Bool -> OptionalSizeRangeArgs
- Graphics.UI.FLTK.LowLevel.Window: SingleWindowType :: WindowType
- Graphics.UI.FLTK.LowLevel.Window: [aspect] :: OptionalSizeRangeArgs -> Maybe Bool
- Graphics.UI.FLTK.LowLevel.Window: [dh] :: OptionalSizeRangeArgs -> Maybe Int
- Graphics.UI.FLTK.LowLevel.Window: [dw] :: OptionalSizeRangeArgs -> Maybe Int
- Graphics.UI.FLTK.LowLevel.Window: [flushCustom] :: CustomWindowFuncs a -> Maybe (Ref a -> IO ())
- Graphics.UI.FLTK.LowLevel.Window: [maxh] :: OptionalSizeRangeArgs -> Maybe Int
- Graphics.UI.FLTK.LowLevel.Window: [maxw] :: OptionalSizeRangeArgs -> Maybe Int
- Graphics.UI.FLTK.LowLevel.Window: currentWindow :: Parent a Window => IO (Ref a)
- Graphics.UI.FLTK.LowLevel.Window: data CustomWindowFuncs a
- Graphics.UI.FLTK.LowLevel.Window: data OptionalSizeRangeArgs
- Graphics.UI.FLTK.LowLevel.Window: data PositionSpec
- Graphics.UI.FLTK.LowLevel.Window: data WindowType
- Graphics.UI.FLTK.LowLevel.Window: defaultCustomWindowFuncs :: forall a. Parent a Window => CustomWindowFuncs a
- Graphics.UI.FLTK.LowLevel.Window: defaultOptionalSizeRangeArgs :: OptionalSizeRangeArgs
- Graphics.UI.FLTK.LowLevel.Window: fillCustomWidgetFunctionStruct :: forall a. Parent a Widget => Ptr () -> Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a -> IO ()
- Graphics.UI.FLTK.LowLevel.Window: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig -> GHC.Types.IO ()) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelWithIconlabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CopyLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIconlabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXclass ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype, Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FullscreenOff ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBoxWithBoxtype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Cursor -> (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color, GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorWithFgBg ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Cursor -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.CursorType -> (GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color, GHC.Maybe.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDefaultCursorWithFgBg ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.CursorType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDefaultCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SizeRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> Graphics.UI.FLTK.LowLevel.Window.OptionalSizeRangeArgs -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SizeRangeWithArgs ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Window.PositionSpec -> GHC.Maybe.Maybe GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HotSpot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Window.WindowType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearBorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBackdrop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FlushSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FreePosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Iconize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeFullscreen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMenuWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetNonModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOverride ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTooltipWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WaitForExpose ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIconlabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXclass ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Changed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetBorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMenuWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOverride ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTooltipWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NonModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Shown ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDecoratedH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDecoratedW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXRoot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYRoot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance (impl Data.Type.Equality.~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Window.WindowType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
- Graphics.UI.FLTK.LowLevel.Window: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Window.WindowType
- Graphics.UI.FLTK.LowLevel.Window: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Window.WindowType
- Graphics.UI.FLTK.LowLevel.Window: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Window.WindowType
- Graphics.UI.FLTK.LowLevel.Window: windowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref Window -> IO ()) -> CustomWidgetFuncs Window -> CustomWindowFuncs Window -> IO (Ref Window)
- Graphics.UI.FLTK.LowLevel.Window: windowMaker :: forall a b. (Parent a Window, Parent b Widget) => Size -> Maybe Position -> Maybe Text -> Maybe (Ref b -> IO ()) -> CustomWidgetFuncs b -> CustomWindowFuncs a -> (Int -> Int -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> CString -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())) -> IO (Ref a)
- Graphics.UI.FLTK.LowLevel.Window: windowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref Window)
- Graphics.UI.FLTK.LowLevel.Wizard: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl Data.Type.Equality.~ (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ResizeSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Prev ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: instance (impl Data.Type.Equality.~ GHC.Types.IO (GHC.Maybe.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Wizard: wizardCustom :: Rectangle -> Maybe Text -> Maybe (Ref Wizard -> IO ()) -> Maybe (CustomWidgetFuncs Wizard) -> IO (Ref Wizard)
- Graphics.UI.FLTK.LowLevel.Wizard: wizardNew :: Rectangle -> Maybe Text -> IO (Ref Wizard)
+ Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
+ Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
+ Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
+ Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
+ Graphics.UI.FLTK.LowLevel.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Adjuster orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: adjusterCustom :: Rectangle -> Maybe Text -> Maybe (Ref Adjuster -> IO ()) -> Maybe (CustomWidgetFuncs Adjuster) -> IO (Ref Adjuster)
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: adjusterNew :: Rectangle -> Maybe Text -> IO (Ref Adjuster)
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: drawAdjusterBase :: Ref AdjusterBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: handleAdjusterBase :: Ref AdjusterBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: hideAdjusterBase :: Ref AdjusterBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.AdjusterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: resizeAdjusterBase :: Ref AdjusterBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Adjuster: showWidgetAdjusterBase :: Ref AdjusterBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Browser: browserCustom :: Rectangle -> Maybe Text -> Maybe (Ref Browser -> IO ()) -> Maybe (CustomWidgetFuncs Browser) -> IO (Ref Browser)
+ Graphics.UI.FLTK.LowLevel.Base.Browser: browserNew :: Rectangle -> Maybe Text -> IO (Ref Browser)
+ Graphics.UI.FLTK.LowLevel.Base.Browser: drawBrowserBase :: Ref BrowserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Browser: handleBrowserBase :: Ref BrowserBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Browser: hideBrowserBase :: Ref BrowserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Load ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (GHC.Types.Char -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColumnChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (GHC.Types.Char -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFormatChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSelectionColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.BrowserType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.Bool -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideLine ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBottomline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMiddleline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTopline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetLine ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Displayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Visible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Move ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Swap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LinePosition -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Lineposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHasScrollbar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.SortType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SortWithSortType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ ([GHC.Types.Int] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColumnWidths ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Sort ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO GHC.Types.Char) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColumnChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO GHC.Types.Char) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFormatChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.BrowserType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopline ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PixelPosition) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHasScrollbar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: instance (impl ~ GHC.Types.IO [GHC.Types.Int]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColumnWidths ()) Graphics.UI.FLTK.LowLevel.Hierarchy.BrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Browser: resizeBrowserBase :: Ref BrowserBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Button: HiddenButtonType :: ButtonType
+ Graphics.UI.FLTK.LowLevel.Base.Button: NormalButtonType :: ButtonType
+ Graphics.UI.FLTK.LowLevel.Base.Button: RadioButtonType :: ButtonType
+ Graphics.UI.FLTK.LowLevel.Base.Button: ToggleButtonType :: ButtonType
+ Graphics.UI.FLTK.LowLevel.Base.Button: buttonCustom :: Rectangle -> Maybe Text -> Maybe (Ref Button -> IO ()) -> Maybe (CustomWidgetFuncs Button) -> IO (Ref Button)
+ Graphics.UI.FLTK.LowLevel.Base.Button: buttonNew :: Rectangle -> Maybe Text -> IO (Ref Button)
+ Graphics.UI.FLTK.LowLevel.Base.Button: data ButtonType
+ Graphics.UI.FLTK.LowLevel.Base.Button: handleButtonBase :: Ref ButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Button: hideButtonBase :: Ref ButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype, Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBoxWithBoxtype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ButtonType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBackdrop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Setonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Set ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ButtonType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Button: resizeButtonBase :: Ref ButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Button: showWidgetButtonBase :: Ref ButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: checkButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref CheckButton -> IO ()) -> Maybe (CustomWidgetFuncs CheckButton) -> IO (Ref CheckButton)
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: checkButtonNew :: Rectangle -> Maybe Text -> IO (Ref CheckButton)
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: drawCheckButtonBase :: Ref CheckButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: handleCheckButtonBase :: Ref CheckButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: hideCheckButtonBase :: Ref CheckButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: resizeCheckButtonBase :: Ref CheckButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.CheckButton: showWidgetCheckButtonBase :: Ref CheckButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Choice: choiceCustom :: Rectangle -> Maybe Text -> Maybe (Ref Choice -> IO ()) -> Maybe (CustomWidgetFuncs Choice) -> IO (Ref Choice)
+ Graphics.UI.FLTK.LowLevel.Base.Choice: choiceNew :: Rectangle -> Maybe Text -> IO (Ref Choice)
+ Graphics.UI.FLTK.LowLevel.Base.Choice: drawChoiceBase :: Ref ChoiceBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Choice: handleChoiceBase :: Ref ChoiceBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Choice: hideChoiceBase :: Ref ChoiceBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.MenuItem.MenuItemReference -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ChoiceBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Choice: resizeChoiceBase :: Ref ChoiceBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Choice: showWidgetChoiceBase :: Ref ChoiceBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Clock: AnalogClock :: ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: ClockByTime :: Hour -> Minute -> Second -> ClockByTime
+ Graphics.UI.FLTK.LowLevel.Base.Clock: ClockSetByTime :: ClockByTime -> ClockSetTimeType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: ClockSetSinceEpoch :: ClockSinceEpoch -> ClockSetTimeType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: ClockSinceEpoch :: Second -> ClockSinceEpoch
+ Graphics.UI.FLTK.LowLevel.Base.Clock: DigitalClock :: ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: Hour :: Int -> Hour
+ Graphics.UI.FLTK.LowLevel.Base.Clock: Minute :: Int -> Minute
+ Graphics.UI.FLTK.LowLevel.Base.Clock: RoundClock :: ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: Second :: Int -> Second
+ Graphics.UI.FLTK.LowLevel.Base.Clock: SquareClock :: ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: clockCustom :: Rectangle -> Maybe Text -> Maybe (Ref Clock -> IO ()) -> Maybe (CustomWidgetFuncs Clock) -> IO (Ref Clock)
+ Graphics.UI.FLTK.LowLevel.Base.Clock: clockNew :: Rectangle -> Maybe Text -> IO (Ref Clock)
+ Graphics.UI.FLTK.LowLevel.Base.Clock: clockNewWithType :: ClockType -> Rectangle -> Text -> IO (Ref Clock)
+ Graphics.UI.FLTK.LowLevel.Base.Clock: data ClockByTime
+ Graphics.UI.FLTK.LowLevel.Base.Clock: data ClockSetTimeType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: data ClockSinceEpoch
+ Graphics.UI.FLTK.LowLevel.Base.Clock: data ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: drawClockBase :: Ref ClockBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Clock: handleClockBase :: Ref ClockBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Clock: hideClockBase :: Ref ClockBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShadow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Clock.ClockSetTimeType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Clock.ClockType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShadow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Clock.ClockByTime) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Clock.ClockSinceEpoch) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValueSinceEpoch ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Clock.ClockType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ClockBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Clock.ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.ClockByTime
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.ClockSetTimeType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.ClockSinceEpoch
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.ClockType
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.Hour
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.Minute
+ Graphics.UI.FLTK.LowLevel.Base.Clock: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Clock.Second
+ Graphics.UI.FLTK.LowLevel.Base.Clock: newtype Hour
+ Graphics.UI.FLTK.LowLevel.Base.Clock: newtype Minute
+ Graphics.UI.FLTK.LowLevel.Base.Clock: newtype Second
+ Graphics.UI.FLTK.LowLevel.Base.Clock: resizeClockBase :: Ref ClockBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Clock: showWidgetClockBase :: Ref ClockBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: CustomColorChooserFuncs :: Ref a -> IO ColorChooserMode -> Ref a -> ColorChooserMode -> IO () -> Ref a -> IO Between0And6 -> Ref a -> IO Between0And1 -> Ref a -> IO Between0And1 -> Ref a -> IO Between0And1 -> Ref a -> IO Between0And1 -> Ref a -> IO Between0And1 -> Ref a -> (Between0And6, Between0And1, Between0And1) -> IO Int -> Ref a -> (Between0And1, Between0And1, Between0And1) -> IO Int -> CustomColorChooserFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [bCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [gCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [getModeCustom] :: CustomColorChooserFuncs a -> Ref a -> IO ColorChooserMode
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [hsvCustom] :: CustomColorChooserFuncs a -> Ref a -> (Between0And6, Between0And1, Between0And1) -> IO Int
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [hueCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And6
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [rCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [rgbCustom] :: CustomColorChooserFuncs a -> Ref a -> (Between0And1, Between0And1, Between0And1) -> IO Int
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [saturationCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [setModeCustom] :: CustomColorChooserFuncs a -> Ref a -> ColorChooserMode -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: [valueCustom] :: CustomColorChooserFuncs a -> Ref a -> IO Between0And1
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: colorChooserCustom :: Rectangle -> Maybe Text -> Maybe (Ref ColorChooser -> IO ()) -> Maybe (CustomColorChooserFuncs ColorChooser) -> Maybe (CustomWidgetFuncs ColorChooser) -> IO (Ref ColorChooser)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: colorChooserNew :: Rectangle -> Maybe Text -> IO (Ref ColorChooser)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: data CustomColorChooserFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: drawColorChooserBase :: Ref ColorChooserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: flcColorChooser :: Text -> ColorChooserRGB -> Maybe ColorChooserMode -> IO (Maybe ColorChooserRGB)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getBColorChooserBase :: Ref ColorChooserBase -> IO (Either OutOfRange Between0And1)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getGColorChooserBase :: Ref ColorChooserBase -> IO (Either OutOfRange Between0And1)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getHueColorChooserBase :: Ref ColorChooserBase -> IO (Either OutOfRange Between0And6)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getModeColorChooserBase :: Ref ColorChooserBase -> IO (ColorChooserMode)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getRColorChooserBase :: Ref ColorChooserBase -> IO (Either OutOfRange Between0And1)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getSaturationColorChooserBase :: Ref ColorChooserBase -> IO (Either OutOfRange Between0And1)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: getValueColorChooserBase :: Ref ColorChooserBase -> IO (Either OutOfRange Between0And1)
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: handleColorChooserBase :: Ref ColorChooserBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: hideColorChooserBase :: Ref ColorChooserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: hsv2Rgb :: (Between0And6, Between0And1, Between0And1) -> IO (Maybe (Between0And1, Between0And1, Between0And1))
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRgb ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHsv ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ColorChooserMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange (Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRgb ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange (Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHsv ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetB ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetG ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSaturation ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ColorChooserMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: resizeColorChooserBase :: Ref ColorChooserBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: rgb2Hsv :: (Between0And1, Between0And1, Between0And1) -> IO (Maybe (Between0And6, Between0And1, Between0And1))
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: setHsvColorChooserBase :: Ref ColorChooserBase -> (Between0And6, Between0And1, Between0And1) -> IO (Either NoChange ())
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: setModeColorChooserBase :: Ref ColorChooserBase -> ColorChooserMode -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: setRgbColorChooserBase :: Ref ColorChooserBase -> (Between0And1, Between0And1, Between0And1) -> IO (Either NoChange ())
+ Graphics.UI.FLTK.LowLevel.Base.ColorChooser: showWidgetColorChooserBase :: Ref ColorChooserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Counter: NormalCounterType :: CounterType
+ Graphics.UI.FLTK.LowLevel.Base.Counter: SimpleCounterType :: CounterType
+ Graphics.UI.FLTK.LowLevel.Base.Counter: counterCustom :: Rectangle -> Maybe Text -> Maybe (Ref Counter -> IO ()) -> Maybe (CustomWidgetFuncs Counter) -> IO (Ref Counter)
+ Graphics.UI.FLTK.LowLevel.Base.Counter: counterNew :: Rectangle -> Maybe Text -> IO (Ref Counter)
+ Graphics.UI.FLTK.LowLevel.Base.Counter: data CounterType
+ Graphics.UI.FLTK.LowLevel.Base.Counter: drawCounterBase :: Ref CounterBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Counter: handleCounterBase :: Ref CounterBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Counter: hideCounterBase :: Ref CounterBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLstep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Counter.CounterType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Counter.CounterType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CounterBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.Counter.CounterType
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Counter.CounterType
+ Graphics.UI.FLTK.LowLevel.Base.Counter: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Counter.CounterType
+ Graphics.UI.FLTK.LowLevel.Base.Counter: resizeCounterBase :: Ref CounterBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Counter: showWidgetCounterBase :: Ref CounterBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Dial: FillDialType :: DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: LineDialType :: DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: NormalDialType :: DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: data DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: dialCustom :: Rectangle -> Maybe Text -> Maybe (Ref Dial -> IO ()) -> Maybe (CustomWidgetFuncs Dial) -> IO (Ref Dial)
+ Graphics.UI.FLTK.LowLevel.Base.Dial: dialNew :: Rectangle -> Maybe Text -> IO (Ref Dial)
+ Graphics.UI.FLTK.LowLevel.Base.Dial: drawDialBase :: Ref DialBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Dial: handleDialBase :: Ref DialBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Dial: hideDialBase :: Ref DialBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Dial.DialType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAngle1 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAngle2 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Angle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAngles ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Dial.DialType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Angle) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAngle1 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Angle) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAngle2 ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DialBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.Dial.DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Dial.DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Dial.DialType
+ Graphics.UI.FLTK.LowLevel.Base.Dial: resizeDialBase :: Ref DialBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Dial: showWidgetDialBase :: Ref DialBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: doubleWindowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref DoubleWindow -> IO ()) -> CustomWidgetFuncs DoubleWindow -> CustomWindowFuncs DoubleWindow -> IO (Ref DoubleWindow)
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: doubleWindowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref DoubleWindow)
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: flushDoubleWindowBase :: Ref DoubleWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: handleDoubleWindowBase :: Ref DoubleWindowBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: hideDoubleWindowBase :: Ref DoubleWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: resizeDoubleWindowBase :: Ref DoubleWindowBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.DoubleWindow: showWidgetDoubleWindowBase :: Ref DoubleWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: FileBrowserDirectories :: FileBrowserType
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: FileBrowserFiles :: FileBrowserType
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: alphaSort :: IO ((FileSortF))
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: caseAlphaSort :: IO ((FileSortF))
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: caseNumericSort :: IO ((FileSortF))
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: data FileBrowserType
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: drawFileBrowserBase :: Ref FileBrowserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: fileBrowserCustom :: Rectangle -> Maybe Text -> Maybe (Ref FileBrowser -> IO ()) -> Maybe (CustomWidgetFuncs FileBrowser) -> IO (Ref FileBrowser)
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: fileBrowserNew :: Rectangle -> Maybe Text -> IO (Ref FileBrowser)
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: handleFileBrowserBase :: Ref FileBrowserBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: hideFileBrowserBase :: Ref FileBrowserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Base.FileBrowser.FileSortF -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Load ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Foreign.C.Types.CUChar -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIconsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FileBrowserType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFiletype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO Foreign.C.Types.CUChar) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIconsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FileBrowserType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFiletype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowserBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: numericSort :: IO ((FileSortF))
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: resizeFileBrowserBase :: Ref FileBrowserBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: showWidgetFileBrowserBase :: Ref FileBrowserBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileBrowser: type FileSortF = FunPtr (((Ptr (Ptr ())) -> ((Ptr (Ptr ())) -> (IO CInt))))
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: drawFileInputBase :: Ref FileInputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: fileInputCustom :: Rectangle -> Maybe Text -> Maybe (Ref FileInput -> IO ()) -> Maybe (CustomWidgetFuncs FileInput) -> IO (Ref FileInput)
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: fileInputNew :: Rectangle -> Maybe Text -> IO (Ref FileInput)
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: handleFileInputBase :: Ref FileInputBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: hideFileInputBase :: Ref FileInputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetErrorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetErrorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: resizeFileInputBase :: Ref FileInputBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FileInput: showWidgetFileInputBase :: Ref FileInputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.FillSlider: fillSliderNew :: Rectangle -> Maybe Text -> IO (Ref FillSlider)
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: drawGlWindowBase :: Ref GlWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: glWindowCanDo :: Mode -> IO Bool
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: glWindowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref GlWindow -> IO ()) -> CustomWidgetFuncs GlWindow -> CustomWindowFuncs GlWindow -> IO (Ref GlWindow)
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: glWindowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref GlWindow)
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: handleGlWindowBase :: Ref GlWindowBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: hideGlWindowBase :: Ref GlWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetContextValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Modes -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Fl_Types.FlGlContext -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetContextWithDestroyFlag ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Fl_Types.FlGlContext -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetContext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Invalidate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeOverlayCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Ortho ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedrawOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SwapBuffers ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Fl_Types.FlGlContext)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetContext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanDo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanDoOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetContextValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValid ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PixelsPerUnit ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PixelH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PixelW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Mode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: resizeGlWindowBase :: Ref GlWindowBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.GlWindow: showWidgetGlWindowBase :: Ref GlWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Group: groupCurrent :: IO (Maybe (Ref GroupBase))
+ Graphics.UI.FLTK.LowLevel.Base.Group: groupCustom :: Rectangle -> Maybe Text -> Maybe (Ref Group -> IO ()) -> CustomWidgetFuncs Group -> IO (Ref Group)
+ Graphics.UI.FLTK.LowLevel.Base.Group: groupNew :: Rectangle -> Maybe Text -> IO (Ref Group)
+ Graphics.UI.FLTK.LowLevel.Base.Group: groupSetCurrent :: (Parent a GroupBase) => Maybe (Ref a) -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Match obj ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()) obj orig (GHC.Types.IO ()), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) obj orig (GHC.Types.IO ()), impl ~ (GHC.Types.IO a -> GHC.Types.IO a)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Within ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawOutsideLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Focus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.UpdateChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Find ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertBefore ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetClipChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InitSizes ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetNotResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetResizable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DdfdesignKludge ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClipChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Children ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Group: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetArray ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.HorFillSlider: horFillSliderNew :: Rectangle -> Maybe Text -> IO (Ref HorFillSlider)
+ Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider: horNiceSliderNew :: Rectangle -> Maybe Text -> IO (Ref HorNiceSlider)
+ Graphics.UI.FLTK.LowLevel.Base.HorSlider: horSliderNew :: Rectangle -> Maybe Text -> IO (Ref HorSlider)
+ Graphics.UI.FLTK.LowLevel.Base.Input: FlFloatInput :: FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: FlHiddenInput :: FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: FlIntInput :: FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: FlMultilineInput :: FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: FlNormalInput :: FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: FlSecretInput :: FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: data FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: drawInputBase :: Ref InputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Input: handleInputBase :: Ref InputBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Input: hideInputBase :: Ref InputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Input: inputCustom :: Rectangle -> Maybe Text -> Maybe FlInputType -> Maybe (Ref Input -> IO ()) -> Maybe (CustomWidgetFuncs Input) -> IO (Ref Input)
+ Graphics.UI.FLTK.LowLevel.Base.Input: inputNew :: Rectangle -> Maybe Text -> Maybe FlInputType -> IO (Ref Input)
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.StaticValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertWithLength ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetReadonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Int -> GHC.Base.Maybe GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximumSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CutFromCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMark ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Input.FlInputType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetInputType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Char)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Index ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Clipboard -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CutRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CopyCuts ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Cut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Undo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetReadonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMark ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximumSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Input.FlInputType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetInputType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.InputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Input: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Input.FlInputType
+ Graphics.UI.FLTK.LowLevel.Base.Input: resizeInputBase :: Ref InputBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Input: showWidgetInputBase :: Ref InputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: drawLightButtonBase :: Ref LightButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: handleLightButtonBase :: Ref LightButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: hideLightButtonBase :: Ref LightButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: lightButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref LightButton -> IO ()) -> Maybe (CustomWidgetFuncs LightButton) -> IO (Ref LightButton)
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: lightButtonNew :: Rectangle -> Maybe Text -> IO (Ref LightButton)
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: resizeLightButtonBase :: Ref LightButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.LightButton: showWidgetLightButtonBase :: Ref LightButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: drawMenuBarBase :: Ref MenuBarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: handleMenuBarBase :: Ref MenuBarBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: hideMenuBarBase :: Ref MenuBarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: menuBarCustom :: Rectangle -> Maybe Text -> Maybe (Ref MenuBar -> IO ()) -> Maybe (CustomWidgetFuncs MenuBar) -> IO (Ref MenuBar)
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: menuBarNew :: Rectangle -> Maybe Text -> IO (Ref MenuBar)
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: resizeMenuBarBase :: Ref MenuBarBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuBar: showWidgetMenuBarBase :: Ref MenuBarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: NormalMenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: Popup123MenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: Popup12MenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: Popup13MenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: Popup1MenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: Popup2MenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: Popup3MenuButton :: MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: data MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: drawMenuButtonBase :: Ref MenuButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: handleMenuButtonBase :: Ref MenuButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: hideMenuButtonBase :: Ref MenuButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Popup ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.MenuButton.MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.MenuButton.MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.MenuButton.MenuButtonType
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: menuButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref MenuButton -> IO ()) -> Maybe (CustomWidgetFuncs MenuButton) -> IO (Ref MenuButton)
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: menuButtonNew :: Rectangle -> Maybe Text -> IO (Ref MenuButton)
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: resizeMenuButtonBase :: Ref MenuButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuButton: showWidgetMenuButtonBase :: Ref MenuButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: MenuItemByIndex :: AtIndex -> MenuItemReference
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: MenuItemByPointer :: MenuItemPointer -> MenuItemReference
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: MenuItemName :: Text -> MenuItemName
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: MenuItemNameLocator :: MenuItemName -> MenuItemLocator
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: MenuItemPointer :: (Ref a) -> MenuItemPointer
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: MenuItemPointerLocator :: MenuItemPointer -> MenuItemLocator
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: addMenuItem :: (Parent menuItem MenuItemBase) => Either (Ref MenuPrimBase) (Ref MenuItemBase) -> Text -> Maybe Shortcut -> Maybe (Ref menuItem -> IO ()) -> MenuItemFlags -> (Ptr () -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> (Ptr () -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> IO (AtIndex)
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: data MenuItemLocator
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: data MenuItemPointer
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: data MenuItemReference
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: drawMenuItemBase :: Parent a MenuPrimBase => Ref MenuItemBase -> Rectangle -> Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase, Graphics.UI.FLTK.LowLevel.Dispatch.Parent c Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Base.Maybe Data.Text.Internal.Text -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b) -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref c)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Popup ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Bool -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (GHC.Types.Int -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextWithStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TestShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, Graphics.UI.FLTK.LowLevel.Dispatch.Parent c Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b) -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref c) -> GHC.Base.Maybe GHC.Types.Bool -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Pulldown ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawWithT ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Size)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Measure ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig -> GHC.Types.IO ()) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelWithLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFlags ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DoCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deactivate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Set ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Setonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFirst ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFlags ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO (GHC.Ptr.FunPtr Graphics.UI.FLTK.LowLevel.Fl_Types.CallbackWithUserDataPrim)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Active ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activevisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Checkbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Radio ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Submenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Visible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: menuItemCustom :: (Parent a MenuItemBase) => (Ref a -> Rectangle -> Maybe (Ref MenuPrimBase) -> Bool -> IO ()) -> IO (Ref MenuItem)
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: menuItemNew :: IO (Ref MenuItem)
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: newtype MenuItemName
+ Graphics.UI.FLTK.LowLevel.Base.MenuItem: toMenuItemDrawF :: (Parent a MenuItemBase) => (Ref a -> Rectangle -> Maybe (Ref MenuPrimBase) -> Bool -> IO ()) -> IO (FunPtr MenuItemDrawF)
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: handleMenuPrimBase :: Ref MenuPrimBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: hideMenuPrimBase :: Ref MenuPrimBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: insertMenuItem :: (Parent a MenuPrimBase) => Ref MenuPrimBase -> Int -> Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> (Ptr () -> Int -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> (Ptr () -> Int -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) -> IO (AtIndex)
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Picked ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddAndGetMenuItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Setonly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemPathname ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TestShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddName ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.MenuItem.MenuItemLocator -> GHC.Types.IO (GHC.Base.Maybe GHC.Types.Int))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.MenuItem.MenuItemReference -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearSubmenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextWithIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Global ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Mvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe GHC.Base.String)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemPathnameRecent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDownColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: instance (impl ~ GHC.Types.IO [GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase)]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: menu_Custom :: Rectangle -> Maybe Text -> Maybe (CustomWidgetFuncs MenuPrim) -> IO (Ref MenuPrim)
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: menu_New :: Rectangle -> Maybe Text -> IO (Ref MenuPrim)
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: resizeMenuPrimBase :: Ref MenuPrimBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.MenuPrim: showWidgetMenuPrimBase :: Ref MenuPrimBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.NiceSlider: niceSliderNew :: Rectangle -> Maybe Text -> IO (Ref NiceSlider)
+ Graphics.UI.FLTK.LowLevel.Base.Output: FlMultilineOutput :: FlOutputType
+ Graphics.UI.FLTK.LowLevel.Base.Output: FlNormalOutput :: FlOutputType
+ Graphics.UI.FLTK.LowLevel.Base.Output: data FlOutputType
+ Graphics.UI.FLTK.LowLevel.Base.Output: drawOutputBase :: Ref OutputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Output: handleOutputBase :: Ref OutputBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Output: hideOutputBase :: Ref OutputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Output.FlOutputType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Output: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Output.FlOutputType
+ Graphics.UI.FLTK.LowLevel.Base.Output: outputCustom :: Rectangle -> Maybe Text -> Maybe (Ref Output -> IO ()) -> Maybe (CustomWidgetFuncs Output) -> IO (Ref Output)
+ Graphics.UI.FLTK.LowLevel.Base.Output: outputNew :: Rectangle -> Maybe Text -> Maybe FlOutputType -> IO (Ref Output)
+ Graphics.UI.FLTK.LowLevel.Base.Output: resizeOutputBase :: Ref OutputBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Output: showWidgetOutputBase :: Ref OutputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: flushOverlayWindowBase :: Ref OverlayWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: hideOverlayWindowBase :: Ref OverlayWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedrawOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanDoOverlay ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: overlayWindowNew :: forall a. (Parent a OverlayWindowBase) => Size -> Maybe Text -> Maybe Position -> (Ref a -> IO ()) -> IO (Ref OverlayWindow)
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: resizeOverlayWindowBase :: Ref OverlayWindowBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.OverlayWindow: showWidgetOverlayWindowBase :: Ref OverlayWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Pack: PackHorizontal :: PackType
+ Graphics.UI.FLTK.LowLevel.Base.Pack: PackVertical :: PackType
+ Graphics.UI.FLTK.LowLevel.Base.Pack: data PackType
+ Graphics.UI.FLTK.LowLevel.Base.Pack: drawPackBase :: Ref PackBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Pack: handlePackBase :: Ref PackBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Pack: hidePackBase :: Ref PackBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSpacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PackType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsHorizontal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSpacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PackType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PackBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Pack: packCustom :: Rectangle -> Maybe Text -> Maybe (Ref Pack -> IO ()) -> Maybe (CustomWidgetFuncs Pack) -> IO (Ref Pack)
+ Graphics.UI.FLTK.LowLevel.Base.Pack: packNew :: Rectangle -> Maybe Text -> IO (Ref Pack)
+ Graphics.UI.FLTK.LowLevel.Base.Pack: resizePackBase :: Ref PackBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Pack: showWidgetPackBase :: Ref PackBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: drawPositionerBase :: Ref PositionerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: handlePositionerBase :: Ref PositionerBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: hidePositionerBase :: Ref PositionerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXstep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYstep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXbounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetYbounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseX) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYmaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYminimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.PreciseY) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.PositionerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: positionerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Positioner -> IO ()) -> Maybe (CustomWidgetFuncs Positioner) -> IO (Ref Positioner)
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: positionerNew :: Rectangle -> Maybe Text -> IO (Ref Positioner)
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: resizePositionerBase :: Ref PositionerBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Positioner: showWidgetPositionerBase :: Ref PositionerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Progress: drawProgressBase :: Ref ProgressBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Progress: handleProgressBase :: Ref ProgressBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Progress: hideProgressBase :: Ref ProgressBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ (GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ (GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ (GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: instance (impl ~ GHC.Types.IO GHC.Types.Float) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ProgressBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Progress: progressCustom :: Rectangle -> Maybe Text -> Maybe (Ref Progress -> IO ()) -> Maybe (CustomWidgetFuncs Progress) -> IO (Ref Progress)
+ Graphics.UI.FLTK.LowLevel.Base.Progress: progressNew :: Rectangle -> Maybe Text -> IO (Ref Progress)
+ Graphics.UI.FLTK.LowLevel.Base.Progress: resizeProgressBase :: Ref ProgressBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Progress: showWidgetProgressBase :: Ref ProgressBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RadioLightButton: radioLightButtonNew :: Rectangle -> Maybe Text -> IO (Ref RadioLightButton)
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: drawRepeatButtonBase :: Ref RepeatButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: handleRepeatButtonBase :: Ref RepeatButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: hideRepeatButtonBase :: Ref RepeatButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deactivate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: repeatButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref RepeatButton -> IO ()) -> Maybe (CustomWidgetFuncs RepeatButton) -> IO (Ref RepeatButton)
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: repeatButtonNew :: Rectangle -> Maybe Text -> IO (Ref RepeatButton)
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: resizeRepeatButtonBase :: Ref RepeatButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RepeatButton: showWidgetRepeatButtonBase :: Ref RepeatButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: drawReturnButtonBase :: Ref ReturnButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: handleReturnButtonBase :: Ref ReturnButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: hideReturnButtonBase :: Ref ReturnButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: resizeReturnButtonBase :: Ref ReturnButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: returnButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref ReturnButton -> IO ()) -> Maybe (CustomWidgetFuncs ReturnButton) -> IO (Ref ReturnButton)
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: returnButtonNew :: Rectangle -> Maybe Text -> IO (Ref ReturnButton)
+ Graphics.UI.FLTK.LowLevel.Base.ReturnButton: showWidgetReturnButtonBase :: Ref ReturnButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Roller: drawRollerBase :: Ref RollerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Roller: handleRollerBase :: Ref RollerBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Roller: hideRollerBase :: Ref RollerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Roller: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RollerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Roller: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RollerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RollerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RollerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RollerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RollerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Roller: resizeRollerBase :: Ref RollerBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Roller: rollerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Roller -> IO ()) -> Maybe (CustomWidgetFuncs Roller) -> IO (Ref Roller)
+ Graphics.UI.FLTK.LowLevel.Base.Roller: rollerNew :: Rectangle -> Maybe Text -> IO (Ref Roller)
+ Graphics.UI.FLTK.LowLevel.Base.Roller: showWidgetRollerBase :: Ref RollerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: drawRoundButtonBase :: Ref RoundButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: handleRoundButtonBase :: Ref RoundButtonBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: hideRoundButtonBase :: Ref RoundButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: resizeRoundButtonBase :: Ref RoundButtonBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: roundButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref RoundButton -> IO ()) -> Maybe (CustomWidgetFuncs RoundButton) -> IO (Ref RoundButton)
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: roundButtonNew :: Rectangle -> Maybe Text -> IO (Ref RoundButton)
+ Graphics.UI.FLTK.LowLevel.Base.RoundButton: showWidgetRoundButtonBase :: Ref RoundButtonBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: drawScrollbarBase :: Ref ScrollbarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: handleScrollbarBase :: Ref ScrollbarBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: hideScrollbarBase :: Ref ScrollbarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinesize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.LineSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinesize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollbarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: resizeScrollbarBase :: Ref ScrollbarBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: scrollbarCustom :: Rectangle -> Maybe Text -> Maybe (Ref Scrollbar -> IO ()) -> Maybe (CustomWidgetFuncs Scrollbar) -> IO (Ref Scrollbar)
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: scrollbarNew :: Rectangle -> Maybe Text -> IO (Ref Scrollbar)
+ Graphics.UI.FLTK.LowLevel.Base.Scrollbar: showWidgetScrollbarBase :: Ref ScrollbarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: drawScrolledBase :: Ref ScrolledBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: handleScrolledBase :: Ref ScrolledBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: hideScrolledBase :: Ref ScrolledBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ScrollTo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Xposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Yposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ScrollbarMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ScrolledBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: resizeScrolledBase :: Ref ScrolledBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: scrolledCustom :: Rectangle -> Maybe Text -> Maybe (Ref Scrolled -> IO ()) -> Maybe (CustomWidgetFuncs Scrolled) -> IO (Ref Scrolled)
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: scrolledNew :: Rectangle -> Maybe Text -> IO (Ref Scrolled)
+ Graphics.UI.FLTK.LowLevel.Base.Scrolled: showWidgetScrolledBase :: Ref ScrolledBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: drawSimpleTerminalBase :: Ref SimpleTerminalBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: handleSimpleTerminalBase :: Ref SimpleTerminalBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: hideSimpleTerminalBase :: Ref SimpleTerminalBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAnsi ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStayAtBottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCurrentStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetNormalStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHistoryLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Types.StyleTableEntry] -> GHC.Base.Maybe GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStyleTable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe [Graphics.UI.FLTK.LowLevel.Fl_Types.StyleTableEntry])) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStyleTable ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAnsi ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStayAtBottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStyleTableSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCurrentStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetNormalStyleIndex ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Lines) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHistoryLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminalBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: resizeSimpleTerminalBase :: Ref SimpleTerminalBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: showWidgetSimpleTerminalBase :: Ref SimpleTerminalBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: simpleTerminalCustom :: Rectangle -> Maybe Text -> Maybe (Ref SimpleTerminal -> IO ()) -> IO (Ref SimpleTerminal)
+ Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal: simpleTerminalNew :: Rectangle -> Maybe Text -> IO (Ref SimpleTerminal)
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: handleSingleWindowBase :: Ref SingleWindowBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: hideSingleWindowBase :: Ref SingleWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: resizeSingleWindowBase :: Ref SingleWindowBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: showWidgetSingleWindowBase :: Ref SingleWindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: singleWindowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref SingleWindow -> IO ()) -> CustomWidgetFuncs SingleWindow -> CustomWindowFuncs SingleWindow -> IO (Ref SingleWindow)
+ Graphics.UI.FLTK.LowLevel.Base.SingleWindow: singleWindowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref SingleWindow)
+ Graphics.UI.FLTK.LowLevel.Base.Slider: drawSliderBase :: Ref SliderBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Slider: handleSliderBase :: Ref SliderBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Slider: hideSliderBase :: Ref SliderBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Bounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSliderSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSlider ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.SliderType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollvalue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSliderSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSlider ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.SliderType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Slider: resizeSliderBase :: Ref SliderBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Slider: showWidgetSliderBase :: Ref SliderBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Slider: sliderCustom :: Rectangle -> Maybe Text -> Maybe (Ref Slider -> IO ()) -> Maybe (CustomWidgetFuncs Slider) -> IO (Ref Slider)
+ Graphics.UI.FLTK.LowLevel.Base.Slider: sliderNew :: Rectangle -> Maybe Text -> IO (Ref Slider)
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: FloatSpinnerType :: SpinnerType
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: IntSpinnerType :: SpinnerType
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: data SpinnerType
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: drawSpinnerBase :: Ref SpinnerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: handleSpinnerBase :: Ref SpinnerBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: hideSpinnerBase :: Ref SpinnerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Range ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Spinner.SpinnerType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWrap ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Spinner.SpinnerType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SpinnerBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.Spinner.SpinnerType
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Spinner.SpinnerType
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Spinner.SpinnerType
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: resizeSpinnerBase :: Ref SpinnerBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: showWidgetSpinnerBase :: Ref SpinnerBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: spinnerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Spinner -> IO ()) -> Maybe (CustomWidgetFuncs Spinner) -> IO (Ref Spinner)
+ Graphics.UI.FLTK.LowLevel.Base.Spinner: spinnerNew :: Rectangle -> Maybe Text -> IO (Ref Spinner)
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: drawSysMenuBarBase :: Ref SysMenuBarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: handleSysMenuBarBase :: Ref SysMenuBarBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: hideSysMenuBarBase :: Ref SysMenuBarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrimBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Shortcut -> (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ()) -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddName ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRangeOrNotSubmenu ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearSubmenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.MenuItemFlags -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMenu ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Global ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBarBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: resizeSysMenuBarBase :: Ref SysMenuBarBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: showWidgetSysMenuBarBase :: Ref SysMenuBarBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: sysMenuBarCustom :: Rectangle -> Maybe Text -> Maybe (Ref SysMenuBar -> IO ()) -> Maybe (CustomWidgetFuncs SysMenuBar) -> IO (Ref SysMenuBar)
+ Graphics.UI.FLTK.LowLevel.Base.SysMenuBar: sysMenuBarNew :: Rectangle -> Maybe Text -> IO (Ref SysMenuBar)
+ Graphics.UI.FLTK.LowLevel.Base.Table: Column :: Int -> Column
+ Graphics.UI.FLTK.LowLevel.Base.Table: CustomTableFuncs :: Maybe (Ref a -> IO ()) -> Maybe (Ref a -> Rows -> IO ()) -> Maybe (Ref a -> Columns -> IO ()) -> CustomTableFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Table: Row :: Int -> Row
+ Graphics.UI.FLTK.LowLevel.Base.Table: TableCoordinate :: Row -> Column -> TableCoordinate
+ Graphics.UI.FLTK.LowLevel.Base.Table: [clearCustom] :: CustomTableFuncs a -> Maybe (Ref a -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Table: [setColsCustom] :: CustomTableFuncs a -> Maybe (Ref a -> Columns -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Table: [setRowsCustom] :: CustomTableFuncs a -> Maybe (Ref a -> Rows -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Table: clearTableBase :: Ref Table -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: data Column
+ Graphics.UI.FLTK.LowLevel.Base.Table: data CustomTableFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Table: data Row
+ Graphics.UI.FLTK.LowLevel.Base.Table: data TableCoordinate
+ Graphics.UI.FLTK.LowLevel.Base.Table: defaultCustomTableFuncs :: forall a. (Parent a TableBase) => CustomTableFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Table: drawTableBase :: Ref TableBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: fillCustomTableFunctionStruct :: forall a. (Parent a TableBase) => Ptr () -> Maybe (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomTableFuncs a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: handleTableBase :: Ref TableBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Table: hideTableBase :: Ref TableBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.Widget, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertBefore ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Find ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabCellNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColHeaderHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColWidthAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeaderWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeightAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Column -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Column -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Column -> GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Row -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Row -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTopRow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Row -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Row -> GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate -> Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTableBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRowHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TableContext -> Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DoCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TableContext -> Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate -> GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindCell ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Begin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InitSizes ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate, Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO (Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate, Graphics.UI.FLTK.LowLevel.Base.Table.TableCoordinate)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisibleCells ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeader ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabCellNav ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsInteractiveResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Children ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColHeaderHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeaderWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowResizeMin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Table.Column) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallbackCol ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Table.Column) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Table.Row) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallbackRow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Table.Row) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Table.Row) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopRow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTableBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowHeaderColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Columns) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rows) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TableContext) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallbackContext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetArray ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Table: mkDrawCell :: (Ptr () -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()))
+ Graphics.UI.FLTK.LowLevel.Base.Table: mkSetInt :: SetIntPrim -> IO (FunPtr SetIntPrim)
+ Graphics.UI.FLTK.LowLevel.Base.Table: resizeTableBase :: Ref TableBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: setColsTableBase :: Ref Table -> Columns -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: setRowsTableBase :: Ref Table -> Rows -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: showWidgetTableBase :: Ref TableBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Table: tableCustom :: Rectangle -> Maybe Text -> Maybe (Ref Table -> IO ()) -> (Ref Table -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs Table -> CustomTableFuncs Table -> IO (Ref Table)
+ Graphics.UI.FLTK.LowLevel.Base.Table: tableCustomFunctionStruct :: (Parent a WidgetBase, Parent b TableBase) => Maybe (Ref a -> IO ()) -> Maybe (Ref b -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs a -> CustomTableFuncs b -> IO (Ptr ())
+ Graphics.UI.FLTK.LowLevel.Base.Table: toDrawCellPrim :: (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> CInt -> IO ()))
+ Graphics.UI.FLTK.LowLevel.Base.Table: toSetColumnsPrim :: (Ref a -> Columns -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))
+ Graphics.UI.FLTK.LowLevel.Base.Table: toSetRowsPrim :: (Ref a -> Rows -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: TableRowDeselect :: TableRowSelectFlag
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: TableRowSelect :: TableRowSelectFlag
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: TableRowToggle :: TableRowSelectFlag
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: clearTableRowBase :: Ref Table -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: data TableRowSelectFlag
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: drawTableRowBase :: Ref TableRowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: handleTableRowBase :: Ref TableRowBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: hideTableRowBase :: Ref TableRowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Table.Row -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange GHC.Types.Bool))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRowSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.TableRow.TableRowSelectFlag -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAllRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TableRowSelectMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rows) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TableRowSelectMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: resizeTableRowBase :: Ref TableRowBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: setColsTableRowBase :: Ref Table -> Columns -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: setRowsTableRowBase :: Ref Table -> Rows -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: showWidgetTableRowBase :: Ref TableRowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TableRow: tableRowNew :: Rectangle -> Maybe Text -> Maybe (Ref TableRow -> IO ()) -> (Ref TableRow -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs TableRow -> CustomTableFuncs TableRow -> IO (Ref TableRow)
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: CustomTabFuncs :: Ref a -> IO () -> Ref a -> IO (Maybe AtIndex, Int, [(X, Width)]) -> Ref a -> IO Height -> Ref a -> Position -> IO (Maybe (AtIndex, Ref WidgetBase)) -> Ref a -> IO () -> Ref a -> TabsHeightOffset -> IO Rectangle -> CustomTabFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: TabsAtBottom :: (Maybe Int) -> TabsHeightOffset
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: TabsAtTop :: (Maybe Int) -> TabsHeightOffset
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: [tabClientArea] :: CustomTabFuncs a -> Ref a -> TabsHeightOffset -> IO Rectangle
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: [tabDrawCustom] :: CustomTabFuncs a -> Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: [tabHeightCustom] :: CustomTabFuncs a -> Ref a -> IO Height
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: [tabPositionsCustom] :: CustomTabFuncs a -> Ref a -> IO (Maybe AtIndex, Int, [(X, Width)])
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: [tabRedrawTabs] :: CustomTabFuncs a -> Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: [tabWhichCustom] :: CustomTabFuncs a -> Ref a -> Position -> IO (Maybe (AtIndex, Ref WidgetBase))
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: data CustomTabFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: data TabsHeightOffset
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: drawTabsBase :: Ref TabsBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: handleTabsBase :: Ref TabsBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: hideTabsBase :: Ref TabsBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Tabs.TabsHeightOffset -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClientArea ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Which ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Widget))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TabPositions ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TabHeight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TabsBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: resizeTabsBase :: Ref TabsBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: showWidgetTabsBase :: Ref TabsBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: tabsCustom :: Rectangle -> Maybe Text -> Maybe (CustomTabFuncs Tabs) -> Maybe (CustomWidgetFuncs Tabs) -> IO (Ref Tabs)
+ Graphics.UI.FLTK.LowLevel.Base.Tabs: tabsNew :: Rectangle -> Maybe Text -> IO (Ref Tabs)
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: drawTextDisplayBase :: Ref TextDisplayBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: handleTextDisplayBase :: Ref TextDisplayBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: hideTextDisplayBase :: Ref TextDisplayBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: indexStyleTableEntries :: [StyleTableEntry] -> [(Char, StyleTableEntry)]
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBuffer ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> [(GHC.Types.Char, Graphics.UI.FLTK.LowLevel.Fl_Types.StyleTableEntry)] -> GHC.Base.Maybe (GHC.Types.Char, Graphics.UI.FLTK.LowLevel.Fl_Types.UnfinishedStyleCb) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightData ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Overstrike ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColToX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.XToCol ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberBgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberFgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberFont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Bool -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetInsertPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Position))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PositionToXy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.Bool -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SkipLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RewindLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TextDisplayStyle)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PositionStyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.CursorType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorStyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.Bool -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CountLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedisplayRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scroll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.PositionType -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.XyToPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Width -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinenumberWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Width -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.WrapType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WrapMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextWord ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PreviousWord ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowInsertPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveDown ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveLeft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveRight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveUp ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetBuffer ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberFormat ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.AlignType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCursorColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberBgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberFgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberFont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetInsertPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinenumberWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarWidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplayBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: mkStyleTableEntriesPtr :: (Parent a TextDisplayBase) => Ref a -> [StyleTableEntry] -> IO (ForeignPtr [StyleTableEntry])
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: resizeTextDisplayBase :: Ref TextDisplayBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: showWidgetTextDisplayBase :: Ref TextDisplayBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: textDisplayCustom :: Rectangle -> Maybe Text -> Maybe (Ref TextDisplay -> IO ()) -> Maybe (CustomWidgetFuncs TextDisplay) -> IO (Ref TextDisplay)
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: textDisplayNew :: Rectangle -> Maybe Text -> IO (Ref TextDisplay)
+ Graphics.UI.FLTK.LowLevel.Base.TextDisplay: toStyleTableEntries :: Int -> Ptr () -> IO (Maybe [StyleTableEntry])
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: KeyBinding :: KeyBindingKeySequence -> (FunPtr KeyFuncPrim) -> KeyBinding
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: KeyFunc :: (Ref a -> Char -> IO ()) -> KeyFunc
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: arrayToKeyBindings :: Ptr () -> IO [KeyBinding]
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: data KeyBinding
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: data KeyFunc
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: drawTextEditorBase :: Ref TextEditorBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: handleTextEditorBase :: Ref TextEditorBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: hideTextEditorBase :: Ref TextEditorBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetInsertMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Base.TextEditor.KeyBinding] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ReplaceKeyBindings ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetInsertMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Base.TextEditor.KeyBinding]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDefaultKeyBindings ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: keyBindingsToArray :: [KeyBinding] -> IO (Ptr ())
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: resizeTextEditorBase :: Ref TextEditorBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: showWidgetTextEditorBase :: Ref TextEditorBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: textEditorCustom :: Rectangle -> Maybe Text -> Maybe (Ref TextEditor -> IO ()) -> Maybe (CustomWidgetFuncs TextEditor) -> IO (Ref TextEditor)
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: textEditorNew :: Rectangle -> Maybe Text -> IO (Ref TextEditor)
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: toKeyFuncPrim :: KeyFunc -> IO (FunPtr KeyFuncPrim)
+ Graphics.UI.FLTK.LowLevel.Base.TextEditor: type KeyFuncPrim = CInt -> Ptr () -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tile: drawTileBase :: Ref TileBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tile: handleTileBase :: Ref TileBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Tile: hideTileBase :: Ref TileBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tile: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TileBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tile: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TileBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tile: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TileBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tile: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TileBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tile: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TileBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tile: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TileBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tile: resizeTileBase :: Ref TileBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tile: showWidgetTileBase :: Ref TileBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tile: tileCustom :: Rectangle -> Maybe Text -> Maybe (Ref Tile -> IO ()) -> Maybe (CustomWidgetFuncs Tile) -> IO (Ref Tile)
+ Graphics.UI.FLTK.LowLevel.Base.Tile: tileNew :: Rectangle -> Maybe Text -> IO (Ref Tile)
+ Graphics.UI.FLTK.LowLevel.Base.ToggleButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ToggleButtonBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ToggleButton: toggleButtonNew :: Rectangle -> Maybe Text -> IO (Ref ToggleButton)
+ Graphics.UI.FLTK.LowLevel.Base.Tree: drawTreeBase :: Ref TreeBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tree: handleTreeBase :: Ref TreeBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Tree: hideTreeBase :: Ref TreeBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertAbove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallbackItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemPathname ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsScrollbar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RootLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem) -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAllAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem) -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAllAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetVposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.SearchDirection -> GHC.Types.Bool -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.SearchDirection -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextSelectedItemAfterItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemWithYoff ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenToggleAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectOnlyAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectToggleAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Display ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectOnly ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemBottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemMiddle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowItemTop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemNotFound ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextAfterItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevBeforeItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Displayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TreeReasonType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallbackReason ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CloseAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAndCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Close ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Open ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsClose ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsOpen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RecalcTree ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowSelf ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FirstSelectedItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FirstVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCallbackItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFirst ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLast ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ItemClicked ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LastSelectedItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LastVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextSelectedItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Prev ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Root ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsVscrollVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetScrollbarSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVposition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.TreeReasonType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCallbackReason ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Tree: resizeTreeBase :: Ref TreeBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tree: showWidgetTreeBase :: Ref TreeBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Tree: treeCustom :: Rectangle -> Maybe Text -> Maybe (Ref Tree -> IO ()) -> Maybe (CustomWidgetFuncs Tree) -> IO (Ref Tree)
+ Graphics.UI.FLTK.LowLevel.Base.Tree: treeNew :: Rectangle -> Maybe Text -> IO (Ref Tree)
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: HorizontalValuatorType :: ValuatorType
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: VerticalValuatorType :: ValuatorType
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: data ValuatorType
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: handleValuatorBase :: Ref ValuatorBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: hideValuatorBase :: Ref ValuatorBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Real.Rational -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Bounds ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Range ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clamp ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Round ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Double -> GHC.Types.Int -> GHC.Types.IO GHC.Types.Double)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Increment ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Precision ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Valuator.ValuatorType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Format ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO GHC.Real.Rational) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetStep ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMaximum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMinimum ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO GHC.Types.Double) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Valuator.ValuatorType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValuatorBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.Valuator.ValuatorType
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Valuator.ValuatorType
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Valuator.ValuatorType
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: resizeValuatorBase :: Ref ValuatorBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: valuatorCustom :: Rectangle -> Maybe Text -> Maybe (Ref Valuator -> IO ()) -> Maybe (CustomWidgetFuncs Valuator) -> IO (Ref Valuator)
+ Graphics.UI.FLTK.LowLevel.Base.Valuator: valuatorNew :: Rectangle -> Maybe Text -> IO (Ref Valuator)
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: drawValueInputBase :: Ref ValueInputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: handleValueInputBase :: Ref ValueInputBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: hideValueInputBase :: Ref ValueInputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.ShortcutKeySequence)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShortcut ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: resizeValueInputBase :: Ref ValueInputBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: showWidgetValueInputBase :: Ref ValueInputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: valueInputCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueInput -> IO ()) -> Maybe (CustomWidgetFuncs ValueInput) -> IO (Ref ValueInput)
+ Graphics.UI.FLTK.LowLevel.Base.ValueInput: valueInputNew :: Rectangle -> Maybe Text -> IO (Ref ValueInput)
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: drawValueOutputBase :: Ref ValueOutputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: handleValueOutputBase :: Ref ValueOutputBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: hideValueOutputBase :: Ref ValueOutputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSoft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutputBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: resizeValueOutputBase :: Ref ValueOutputBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: showWidgetValueOutputBase :: Ref ValueOutputBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: valueOutputCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueOutput -> IO ()) -> Maybe (CustomWidgetFuncs ValueOutput) -> IO (Ref ValueOutput)
+ Graphics.UI.FLTK.LowLevel.Base.ValueOutput: valueOutputNew :: Rectangle -> Maybe Text -> IO (Ref ValueOutput)
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: drawValueSliderBase :: Ref ValueSliderBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: handleValueSliderBase :: Ref ValueSliderBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: hideValueSliderBase :: Ref ValueSliderBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTextsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSliderBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: resizeValueSliderBase :: Ref ValueSliderBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: showWidgetValueSliderBase :: Ref ValueSliderBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: valueSliderCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueSlider -> IO ()) -> Maybe (CustomWidgetFuncs ValueSlider) -> IO (Ref ValueSlider)
+ Graphics.UI.FLTK.LowLevel.Base.ValueSlider: valueSliderNew :: Rectangle -> Maybe Text -> IO (Ref ValueSlider)
+ Graphics.UI.FLTK.LowLevel.Base.Widget: CustomWidgetFuncs :: Maybe (Ref a -> Event -> IO (Either UnknownEvent ())) -> Maybe (Ref a -> Rectangle -> IO ()) -> Maybe (Ref a -> IO ()) -> Maybe (Ref a -> IO ()) -> Maybe (Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()) -> CustomWidgetFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagChanged :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagClipChildren :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagCopiedLabel :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagCopiedTooltip :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagForcePosition :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagFullscreen :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagGroupRelative :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagInactive :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagInvisible :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagMacUseAccentsMenu :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagMenuWindow :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagModal :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagNeedsKeyboard :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagNoBorder :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagNoOverlay :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagNonModal :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagOutput :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagOverride :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagShortcutLabel :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagTooltipWindow :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagUserFlag1 :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagUserFlag2 :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagUserFlag3 :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: WidgetFlagVisibleFocus :: WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: [destroyCallbacksCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> [Maybe (FunPtr (IO ()))] -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Widget: [handleCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> Event -> IO (Either UnknownEvent ()))
+ Graphics.UI.FLTK.LowLevel.Base.Widget: [hideCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Widget: [resizeCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> Rectangle -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Widget: [showCustom] :: CustomWidgetFuncs a -> Maybe (Ref a -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Widget: customWidgetFunctionStruct :: forall a. (Parent a WidgetBase) => Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a -> IO (Ptr ())
+ Graphics.UI.FLTK.LowLevel.Base.Widget: data CustomWidgetFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Widget: data WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: defaultCustomWidgetFuncs :: forall a. (Parent a WidgetBase) => CustomWidgetFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Widget: defaultDestroyCallbacks :: Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Widget: defaultDestroyWidgetCallbacks :: (Parent a WidgetBase) => Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Widget: fillCustomWidgetFunctionStruct :: forall a. (Parent a WidgetBase) => Ptr () -> Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Widget: handleWidgetBase :: Ref WidgetBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Widget: hideWidgetBase :: Ref WidgetBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Match obj ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()), Graphics.UI.FLTK.LowLevel.Dispatch.Match obj ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindOp orig orig (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.X), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Y), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width), Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) obj orig (GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height), impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetRectangle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDeimage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetImage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Contains ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inside ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig -> GHC.Types.IO ()) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CopyTooltip ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTooltip ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype, Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle, Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Alignments) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Width -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Size)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MeasureLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ModifyVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (GHC.Word.Word8 -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Widget.WidgetFlag -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearFlag ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Widget.WidgetFlag -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFlag ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Alignments -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBoxWithBoxtype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectionColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetColorWithBgSel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype -> Graphics.UI.FLTK.LowLevel.Fl_Types.ResolveImageLabelConflict -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearDamageThenSet ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDamage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage] -> Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDamageInside ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.When] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWhen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearActive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearChanged ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearDamage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearOutput ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deactivate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DoCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBackdrop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Redraw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RedrawLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetActive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetChanged ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOutput ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TakeFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.GroupBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDeimage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetImage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO (GHC.Ptr.FunPtr Graphics.UI.FLTK.LowLevel.Fl_Types.CallbackWithUserDataPrim)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTooltip ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Active ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ActiveR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Changed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisibleFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetVisibleR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HasCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Takesevents ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOutput ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO GHC.Word.Word8) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Alignments) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetAlign ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectionColor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Labeltype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabeltype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Position) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTopWindowOffset ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.X) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Y) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Base.Widget.WidgetFlag]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flags ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Damage]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDamage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.When]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWhen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.Widget.WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Widget.WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Widget.WidgetFlag
+ Graphics.UI.FLTK.LowLevel.Base.Widget: resizeWidgetBase :: Ref WidgetBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Widget: showWidgetWidgetBase :: Ref WidgetBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Widget: widgetCustom :: Rectangle -> Maybe Text -> (Ref Widget -> IO ()) -> CustomWidgetFuncs Widget -> IO (Ref Widget)
+ Graphics.UI.FLTK.LowLevel.Base.Widget: widgetMaker :: forall a. (Parent a WidgetBase) => Rectangle -> Maybe Text -> Maybe (Ref a -> IO ()) -> Maybe (CustomWidgetFuncs a) -> (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())) -> IO (Ref a)
+ Graphics.UI.FLTK.LowLevel.Base.Window: ByPosition :: Position -> PositionSpec
+ Graphics.UI.FLTK.LowLevel.Base.Window: ByWidget :: (Ref a) -> PositionSpec
+ Graphics.UI.FLTK.LowLevel.Base.Window: CustomWindowFuncs :: Maybe (Ref a -> IO ()) -> CustomWindowFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Window: DoubleWindowType :: WindowType
+ Graphics.UI.FLTK.LowLevel.Base.Window: OptionalSizeRangeArgs :: Maybe Int -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Bool -> OptionalSizeRangeArgs
+ Graphics.UI.FLTK.LowLevel.Base.Window: SingleWindowType :: WindowType
+ Graphics.UI.FLTK.LowLevel.Base.Window: [aspect] :: OptionalSizeRangeArgs -> Maybe Bool
+ Graphics.UI.FLTK.LowLevel.Base.Window: [dh] :: OptionalSizeRangeArgs -> Maybe Int
+ Graphics.UI.FLTK.LowLevel.Base.Window: [dw] :: OptionalSizeRangeArgs -> Maybe Int
+ Graphics.UI.FLTK.LowLevel.Base.Window: [flushCustom] :: CustomWindowFuncs a -> Maybe (Ref a -> IO ())
+ Graphics.UI.FLTK.LowLevel.Base.Window: [maxh] :: OptionalSizeRangeArgs -> Maybe Int
+ Graphics.UI.FLTK.LowLevel.Base.Window: [maxw] :: OptionalSizeRangeArgs -> Maybe Int
+ Graphics.UI.FLTK.LowLevel.Base.Window: currentWindow :: (Parent a WindowBase) => IO (Ref a)
+ Graphics.UI.FLTK.LowLevel.Base.Window: data CustomWindowFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Window: data OptionalSizeRangeArgs
+ Graphics.UI.FLTK.LowLevel.Base.Window: data PositionSpec
+ Graphics.UI.FLTK.LowLevel.Base.Window: data WindowType
+ Graphics.UI.FLTK.LowLevel.Base.Window: defaultCustomWindowFuncs :: forall a. (Parent a WindowBase) => CustomWindowFuncs a
+ Graphics.UI.FLTK.LowLevel.Base.Window: defaultOptionalSizeRangeArgs :: OptionalSizeRangeArgs
+ Graphics.UI.FLTK.LowLevel.Base.Window: fillCustomWidgetFunctionStruct :: forall a. (Parent a WidgetBase) => Ptr () -> Maybe (Ref a -> IO ()) -> CustomWidgetFuncs a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Window: flushWindowBase :: Ref WindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Window: handleWindowBase :: Ref WindowBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Window: hideWindowBase :: Ref WindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig -> GHC.Types.IO ()) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Data.Text.Internal.Text -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelWithIconlabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CopyLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetIconlabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetXclass ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype, Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawFocus ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FullscreenOff ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetBorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Window.PositionSpec -> GHC.Base.Maybe GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HotSpot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Base.Window.WindowType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBoxWithBoxtype ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Cursor -> (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color, GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursorWithFgBg ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Cursor -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.CursorType -> (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color, GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDefaultCursorWithFgBg ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.CursorType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDefaultCursor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SizeRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> Graphics.UI.FLTK.LowLevel.Base.Window.OptionalSizeRangeArgs -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SizeRangeWithArgs ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearBorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBackdrop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawBox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FreePosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Iconize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MakeFullscreen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMenuWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetNonModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOverride ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTooltipWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WaitForExpose ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetIconlabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXclass ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Changed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetBorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMenuWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOverride ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTooltipWindow ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NonModal ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Shown ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDecoratedH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDecoratedW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetXRoot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetYRoot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Base.Window.WindowType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WindowBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance GHC.Classes.Eq Graphics.UI.FLTK.LowLevel.Base.Window.WindowType
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance GHC.Enum.Enum Graphics.UI.FLTK.LowLevel.Base.Window.WindowType
+ Graphics.UI.FLTK.LowLevel.Base.Window: instance GHC.Show.Show Graphics.UI.FLTK.LowLevel.Base.Window.WindowType
+ Graphics.UI.FLTK.LowLevel.Base.Window: resizeWindowBase :: Ref WindowBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Window: showWidgetWindowBase :: Ref WindowBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Window: windowCustom :: Size -> Maybe Position -> Maybe Text -> Maybe (Ref Window -> IO ()) -> CustomWidgetFuncs Window -> CustomWindowFuncs Window -> IO (Ref Window)
+ Graphics.UI.FLTK.LowLevel.Base.Window: windowMaker :: forall a b. (Parent a WindowBase, Parent b WidgetBase) => Size -> Maybe Position -> Maybe Text -> Maybe (Ref b -> IO ()) -> CustomWidgetFuncs b -> CustomWindowFuncs a -> (Int -> Int -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> CString -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())) -> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())) -> IO (Ref a)
+ Graphics.UI.FLTK.LowLevel.Base.Window: windowNew :: Size -> Maybe Position -> Maybe Text -> IO (Ref Window)
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: drawWizardBase :: Ref WizardBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: handleWizardBase :: Ref WizardBase -> Event -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: hideWizardBase :: Ref WizardBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Prev ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.WizardBase orig impl
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: resizeWizardBase :: Ref WizardBase -> Rectangle -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: showWidgetWizardBase :: Ref WizardBase -> IO ()
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: wizardCustom :: Rectangle -> Maybe Text -> Maybe (Ref Wizard -> IO ()) -> Maybe (CustomWidgetFuncs Wizard) -> IO (Ref Wizard)
+ Graphics.UI.FLTK.LowLevel.Base.Wizard: wizardNew :: Rectangle -> Maybe Text -> IO (Ref Wizard)
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Bitmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Bitmap orig impl
+ Graphics.UI.FLTK.LowLevel.Box: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Box orig impl
+ Graphics.UI.FLTK.LowLevel.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
+ Graphics.UI.FLTK.LowLevel.Browser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
+ Graphics.UI.FLTK.LowLevel.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
+ Graphics.UI.FLTK.LowLevel.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
+ Graphics.UI.FLTK.LowLevel.Browser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Browser orig impl
+ Graphics.UI.FLTK.LowLevel.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
+ Graphics.UI.FLTK.LowLevel.Button: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
+ Graphics.UI.FLTK.LowLevel.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
+ Graphics.UI.FLTK.LowLevel.Button: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Button orig impl
+ Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
+ Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
+ Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
+ Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
+ Graphics.UI.FLTK.LowLevel.CheckButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CheckButton orig impl
+ Graphics.UI.FLTK.LowLevel.Choice: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
+ Graphics.UI.FLTK.LowLevel.Choice: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
+ Graphics.UI.FLTK.LowLevel.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
+ Graphics.UI.FLTK.LowLevel.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
+ Graphics.UI.FLTK.LowLevel.Choice: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Choice orig impl
+ Graphics.UI.FLTK.LowLevel.Clock: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
+ Graphics.UI.FLTK.LowLevel.Clock: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
+ Graphics.UI.FLTK.LowLevel.Clock: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
+ Graphics.UI.FLTK.LowLevel.Clock: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
+ Graphics.UI.FLTK.LowLevel.Clock: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Clock orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRgb ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ ((Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1, Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1) -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHsv ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.ColorChooserMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetB ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetG ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSaturation ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And1)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.Between0And6)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.ColorChooser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.ColorChooserMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.CopySurface: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CopySurface orig impl
+ Graphics.UI.FLTK.LowLevel.CopySurface: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CopySurface orig impl
+ Graphics.UI.FLTK.LowLevel.CopySurface: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.CopySurface orig impl
+ Graphics.UI.FLTK.LowLevel.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
+ Graphics.UI.FLTK.LowLevel.Counter: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
+ Graphics.UI.FLTK.LowLevel.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
+ Graphics.UI.FLTK.LowLevel.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
+ Graphics.UI.FLTK.LowLevel.Counter: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Counter orig impl
+ Graphics.UI.FLTK.LowLevel.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
+ Graphics.UI.FLTK.LowLevel.Dial: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
+ Graphics.UI.FLTK.LowLevel.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
+ Graphics.UI.FLTK.LowLevel.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
+ Graphics.UI.FLTK.LowLevel.Dial: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Dial orig impl
+ Graphics.UI.FLTK.LowLevel.Dispatch: instance (Graphics.UI.FLTK.LowLevel.Dispatch.InHierarchy ~ Graphics.UI.FLTK.LowLevel.Dispatch.FindInHierarchy a a b) => Graphics.UI.FLTK.LowLevel.Dispatch.Parent a b
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: flush' :: (Ptr ()) -> IO ()
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: flush''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: hide' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: hide''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.DoubleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: resize' :: (Ptr ()) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: resize''_ :: ((Ptr ()) -> (CInt -> (CInt -> (CInt -> (CInt -> (IO ()))))))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: windowDestroy' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: windowDestroy''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: windowHandle' :: (Ptr ()) -> (CInt) -> IO ((Int))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: windowHandle''_ :: ((Ptr ()) -> (CInt -> (IO CInt)))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: windowShow' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.DoubleWindow: windowShow''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
+ Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
+ Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
+ Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
+ Graphics.UI.FLTK.LowLevel.FileBrowser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileBrowser orig impl
+ Graphics.UI.FLTK.LowLevel.FileInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
+ Graphics.UI.FLTK.LowLevel.FileInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
+ Graphics.UI.FLTK.LowLevel.FileInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
+ Graphics.UI.FLTK.LowLevel.FileInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
+ Graphics.UI.FLTK.LowLevel.FileInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.FileInput orig impl
+ Graphics.UI.FLTK.LowLevel.Fl_Types: type DestroyCallbacksPrim = Ptr () -> Ptr () -> IO ()
+ Graphics.UI.FLTK.LowLevel.Fl_Types: unpackFunctionPointerToFreeStruct :: Ptr () -> IO (CInt, Ptr (FunPtr (IO ())))
+ Graphics.UI.FLTK.LowLevel.GlWindow: flush' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: flush''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: handle' :: (Ptr ()) -> (Event) -> IO ((Int))
+ Graphics.UI.FLTK.LowLevel.GlWindow: handle''_ :: ((Ptr ()) -> (CInt -> (IO CInt)))
+ Graphics.UI.FLTK.LowLevel.GlWindow: hide' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: hide''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
+ Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
+ Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
+ Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
+ Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
+ Graphics.UI.FLTK.LowLevel.GlWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.GlWindow orig impl
+ Graphics.UI.FLTK.LowLevel.GlWindow: resize' :: (Ptr ()) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: resize''_ :: ((Ptr ()) -> (CInt -> (CInt -> (CInt -> (CInt -> (IO ()))))))
+ Graphics.UI.FLTK.LowLevel.GlWindow: show' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: show''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: windowDestroy' :: (Ptr ()) -> IO ((()))
+ Graphics.UI.FLTK.LowLevel.GlWindow: windowDestroy''_ :: ((Ptr ()) -> (IO ()))
+ Graphics.UI.FLTK.LowLevel.Group: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
+ Graphics.UI.FLTK.LowLevel.Group: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
+ Graphics.UI.FLTK.LowLevel.Group: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Group orig impl
+ Graphics.UI.FLTK.LowLevel.Hierarchy: data GetCallback a
+ Graphics.UI.FLTK.LowLevel.Hierarchy: data XyToPosition a
+ Graphics.UI.FLTK.LowLevel.Hierarchy: getCallback :: (HasCallStack, Match r ~ FindOp a a (GetCallback ()), Op (GetCallback ()) r a impl) => Ref a -> impl
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type AdjusterBase = CAdjusterBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type BrowserBase = CBrowserBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ButtonBase = CButtonBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type CheckButtonBase = CCheckButtonBase LightButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ChoiceBase = CChoiceBase MenuPrimBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ClockBase = CClockBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ColorChooserBase = CColorChooserBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type CounterBase = CCounterBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type DialBase = CDialBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type DoubleWindowBase = CDoubleWindowBase WindowBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FileBrowserBase = CFileBrowserBase BrowserBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FileInputBase = CFileInputBase InputBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FillSliderBase = CFillSliderBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type GlWindowBase = CGlWindowBase WindowBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type GroupBase = CGroupBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorFillSliderBase = CHorFillSliderBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorNiceSliderBase = CHorNiceSliderBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorSliderBase = CHorSliderBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type InputBase = CInputBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type LightButtonBase = CLightButtonBase ButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuBarBase = CMenuBarBase MenuPrimBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuButtonBase = CMenuButtonBase MenuPrimBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuItemBase = CMenuItemBase Base
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuPrimBase = CMenuPrimBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type NiceSliderBase = CNiceSliderBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type OutputBase = COutputBase InputBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type OverlayWindowBase = COverlayWindowBase DoubleWindowBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type PackBase = CPackBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type PositionerBase = CPositionerBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ProgressBase = CProgressBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RadioLightButtonBase = CRadioLightButtonBase LightButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RepeatButtonBase = CRepeatButtonBase ButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ReturnButtonBase = CReturnButtonBase ButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RollerBase = CRollerBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RoundButtonBase = CRoundButtonBase ButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ScrollbarBase = CScrollbarBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ScrolledBase = CScrolledBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SimpleTerminalBase = CSimpleTerminalBase TextDisplayBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SingleWindowBase = CSingleWindowBase WindowBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SliderBase = CSliderBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SpinnerBase = CSpinnerBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SysMenuBarBase = CSysMenuBarBase MenuBarBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TableBase = CTableBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TableRowBase = CTableRowBase TableBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TabsBase = CTabsBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TextDisplayBase = CTextDisplayBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TextEditorBase = CTextEditorBase TextDisplayBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TileBase = CTileBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ToggleButtonBase = CToggleButtonBase ButtonBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TreeBase = CTreeBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValuatorBase = CValuatorBase WidgetBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueInputBase = CValueInputBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueOutputBase = CValueOutputBase ValuatorBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueSliderBase = CValueSliderBase SliderBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type WidgetBase = CWidgetBase Base
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type WidgetBaseFuncs = (Activate (Active (ActiveR (Changed (ClearActive (ClearChanged (ClearDamage (ClearDamageThenSet (ClearFlag (ClearOutput (ClearVisible (ClearVisibleFocus (Contains (CopyTooltip (Deactivate (Destroy (DoCallback (DrawBackdrop (DrawBox (DrawBoxWithBoxtype (DrawFocus (DrawLabel (Flags (GetAlign (GetBox (GetCallback (GetColor (GetDamage (GetDeimage (GetH (GetImage (GetLabel (GetLabelcolor (GetLabelfont (GetLabelsize (GetLabeltype (GetOutput (GetParent (GetRectangle (GetSelectionColor (GetTooltip (GetTopWindow (GetTopWindowOffset (GetType_ (GetVisible (GetVisibleFocus (GetVisibleR (GetW (GetWhen (GetWindow (GetX (GetY (Handle (HasCallback (Hide (Inside (MeasureLabel (ModifyVisibleFocus (Redraw (RedrawLabel (Resize (SetActive (SetAlign (SetBox (SetCallback (SetChanged (SetColor (SetColorWithBgSel (SetDamage (SetDamageInside (SetDeimage (SetFlag (SetImage (SetLabel (SetLabelcolor (SetLabelfont (SetLabelsize (SetLabeltype (SetOutput (SetParent (SetSelectionColor (SetTooltip (SetType (SetVisible (SetVisibleFocus (SetWhen (ShowWidget (TakeFocus (Takesevents ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type WindowBase = CWindowBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type WizardBase = CWizardBase GroupBase
+ Graphics.UI.FLTK.LowLevel.Hierarchy: xyToPosition :: (HasCallStack, Match r ~ FindOp a a (XyToPosition ()), Op (XyToPosition ()) r a impl) => Ref a -> impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Base.Maybe GHC.Types.Bool -> GHC.Base.Maybe GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Scale ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Image.ImageFail ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Fail ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDataH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Height) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Size) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDataSize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDataW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.Image: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Width) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Image orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOrigin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCurrent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError Graphics.UI.FLTK.LowLevel.Fl_Types.Size)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrintableRect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FlOffscreen) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOffscreen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.ImageSurface: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Position) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOrigin ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ImageSurface orig impl
+ Graphics.UI.FLTK.LowLevel.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
+ Graphics.UI.FLTK.LowLevel.Input: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
+ Graphics.UI.FLTK.LowLevel.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
+ Graphics.UI.FLTK.LowLevel.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
+ Graphics.UI.FLTK.LowLevel.Input: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Input orig impl
+ Graphics.UI.FLTK.LowLevel.LightButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
+ Graphics.UI.FLTK.LowLevel.LightButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
+ Graphics.UI.FLTK.LowLevel.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
+ Graphics.UI.FLTK.LowLevel.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
+ Graphics.UI.FLTK.LowLevel.LightButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.LightButton orig impl
+ Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.MenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
+ Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
+ Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
+ Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
+ Graphics.UI.FLTK.LowLevel.MenuButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuButton orig impl
+ Graphics.UI.FLTK.LowLevel.MenuItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItem orig impl
+ Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
+ Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
+ Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
+ Graphics.UI.FLTK.LowLevel.MenuPrim: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MenuPrim orig impl
+ Graphics.UI.FLTK.LowLevel.MultiLabel: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MenuItemLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MultiLabel orig impl
+ Graphics.UI.FLTK.LowLevel.MultiLabel: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.MultiLabel orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetDirectory ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetPresetFile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTitle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetFilterValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilenameAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ (Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserType -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetType ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserOption] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOptions ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDirectory ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetErrmsg ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilename ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilter ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPresetFile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTitle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Filters ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetFilterValue ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserType) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetType_ ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserUserAction) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.NativeFileChooser: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.NativeFileChooser.NativeFileChooserOption]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOptions ()) Graphics.UI.FLTK.LowLevel.Hierarchy.NativeFileChooser orig impl
+ Graphics.UI.FLTK.LowLevel.Output: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
+ Graphics.UI.FLTK.LowLevel.Output: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
+ Graphics.UI.FLTK.LowLevel.Output: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
+ Graphics.UI.FLTK.LowLevel.Output: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
+ Graphics.UI.FLTK.LowLevel.Output: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Output orig impl
+ Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
+ Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
+ Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
+ Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
+ Graphics.UI.FLTK.LowLevel.OverlayWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.OverlayWindow orig impl
+ Graphics.UI.FLTK.LowLevel.Pack: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
+ Graphics.UI.FLTK.LowLevel.Pack: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
+ Graphics.UI.FLTK.LowLevel.Pack: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
+ Graphics.UI.FLTK.LowLevel.Pack: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
+ Graphics.UI.FLTK.LowLevel.Pack: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pack orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Pixmap: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Pixmap orig impl
+ Graphics.UI.FLTK.LowLevel.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
+ Graphics.UI.FLTK.LowLevel.Positioner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
+ Graphics.UI.FLTK.LowLevel.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
+ Graphics.UI.FLTK.LowLevel.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
+ Graphics.UI.FLTK.LowLevel.Positioner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Positioner orig impl
+ Graphics.UI.FLTK.LowLevel.Progress: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
+ Graphics.UI.FLTK.LowLevel.Progress: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
+ Graphics.UI.FLTK.LowLevel.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
+ Graphics.UI.FLTK.LowLevel.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
+ Graphics.UI.FLTK.LowLevel.Progress: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Progress orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Inactive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Uncache ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCount ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetD ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RGBImage: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RGBImage orig impl
+ Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
+ Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
+ Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
+ Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
+ Graphics.UI.FLTK.LowLevel.RepeatButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RepeatButton orig impl
+ Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
+ Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
+ Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
+ Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
+ Graphics.UI.FLTK.LowLevel.ReturnButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ReturnButton orig impl
+ Graphics.UI.FLTK.LowLevel.Roller: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
+ Graphics.UI.FLTK.LowLevel.Roller: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
+ Graphics.UI.FLTK.LowLevel.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
+ Graphics.UI.FLTK.LowLevel.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
+ Graphics.UI.FLTK.LowLevel.Roller: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Roller orig impl
+ Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
+ Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
+ Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
+ Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
+ Graphics.UI.FLTK.LowLevel.RoundButton: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.RoundButton orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.Float -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ColorAverage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Position -> Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.X -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.Y -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawResize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Size -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Desaturate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.SVGImage: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SVGImage orig impl
+ Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
+ Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
+ Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
+ Graphics.UI.FLTK.LowLevel.Scrollbar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar orig impl
+ Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
+ Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
+ Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
+ Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
+ Graphics.UI.FLTK.LowLevel.Scrolled: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrolled orig impl
+ Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
+ Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
+ Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
+ Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
+ Graphics.UI.FLTK.LowLevel.SimpleTerminal: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SimpleTerminal orig impl
+ Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.SingleWindow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SingleWindow orig impl
+ Graphics.UI.FLTK.LowLevel.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
+ Graphics.UI.FLTK.LowLevel.Slider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
+ Graphics.UI.FLTK.LowLevel.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
+ Graphics.UI.FLTK.LowLevel.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
+ Graphics.UI.FLTK.LowLevel.Slider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Slider orig impl
+ Graphics.UI.FLTK.LowLevel.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
+ Graphics.UI.FLTK.LowLevel.Spinner: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
+ Graphics.UI.FLTK.LowLevel.Spinner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
+ Graphics.UI.FLTK.LowLevel.Spinner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
+ Graphics.UI.FLTK.LowLevel.Spinner: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Spinner orig impl
+ Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.SysMenuBar: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.SysMenuBar orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.Table: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Table orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Columns -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCols ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rows -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetRows ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Clear ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.TableRow: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TableRow orig impl
+ Graphics.UI.FLTK.LowLevel.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
+ Graphics.UI.FLTK.LowLevel.Tabs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
+ Graphics.UI.FLTK.LowLevel.Tabs: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
+ Graphics.UI.FLTK.LowLevel.Tabs: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
+ Graphics.UI.FLTK.LowLevel.Tabs: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tabs orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Copy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AppendToBuffer ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ReplaceSecondarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ReplaceSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Appendfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Loadfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Savefile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AppendfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LoadfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SavefileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insertfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Outputfile ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Data.Text.Internal.Text -> Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.Int -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.DataProcessingError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OutputfileWithBuflen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (GHC.Ptr.FunPtr () -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveModifyCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (GHC.Ptr.FunPtr () -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemovePredeleteCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CanUndo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetTabDistance ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.Bool -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SearchBackwardWithMatchcase ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.Bool -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SearchForwardWithMatchcase ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Char -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindcharBackward ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Char -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NotFound Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindcharForward ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevCharClipped ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Utf8Align ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.WordStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Char)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ByteAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Char)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CharAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextChar ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextCharClipped ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SkipDisplayedCharacters ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RewindLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.Lines -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SkipLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Replace ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Remove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetHighlight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO Data.Text.Internal.Text)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.TextRange ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CountDisplayedCharacters ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.Lines)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CountLines ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange GHC.Base.String))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineEnd ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.LineNumber -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LineStart ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TextModifyCb -> GHC.Types.IO (GHC.Ptr.FunPtr ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddModifyCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.TextPredeleteCb -> GHC.Types.IO (GHC.Ptr.FunPtr ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddPredeleteCallback ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallModifyCallbacks ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.CallPredeleteCallbacks ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveSecondarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondaryUnselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Unhighlight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Unselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.NoChange Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Undo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightSelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrimarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelection ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FileEncodingWarningMessage ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HighlightText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelectionText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectionText ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetHighlight ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InputFileWasTranscoded ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLength ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetTabDistance ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SecondarySelectionPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextBuffer: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectionPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextBuffer orig impl
+ Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
+ Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
+ Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
+ Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
+ Graphics.UI.FLTK.LowLevel.TextDisplay: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextDisplay orig impl
+ Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
+ Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
+ Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
+ Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
+ Graphics.UI.FLTK.LowLevel.TextEditor: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextEditor orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO GHC.Types.Bool)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Includes ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.Int -> GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Update ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Set ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.IndexRange)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetPosition ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Selected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.End ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.TextSelection: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Start ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TextSelection orig impl
+ Graphics.UI.FLTK.LowLevel.Tile: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
+ Graphics.UI.FLTK.LowLevel.Tile: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
+ Graphics.UI.FLTK.LowLevel.Tile: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
+ Graphics.UI.FLTK.LowLevel.Tile: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
+ Graphics.UI.FLTK.LowLevel.Tile: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tile orig impl
+ Graphics.UI.FLTK.LowLevel.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
+ Graphics.UI.FLTK.LowLevel.Tree: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
+ Graphics.UI.FLTK.LowLevel.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
+ Graphics.UI.FLTK.LowLevel.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
+ Graphics.UI.FLTK.LowLevel.Tree: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Tree orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Add ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, Graphics.UI.FLTK.LowLevel.Dispatch.Parent b Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref b -> [Data.Text.Internal.Text] -> GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.AddAt ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Reparent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemNotFound ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SwapChildrenByTreeItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Graphics.UI.FLTK.LowLevel.TreeItem.MoveType -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.TreeItem.MoveError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.MoveTo ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Insert ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> Data.Text.Internal.Text -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.InsertAbove ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindClicked ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextDisplayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevDisplayed ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.EventOnCollapseIcon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs, impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a -> GHC.Types.IO GHC.Types.Int)) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.EventOnLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (GHC.Base.Maybe Data.Text.Internal.Text -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowSelf ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ActivateWith ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectSet ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.UpdatePrevNext ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref orig)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deparent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Child ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SwapChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.OutOfRange ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Move ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownError ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.RemoveChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ (Graphics.UI.FLTK.LowLevel.TreeItem.TreeItemLocator -> GHC.Types.IO (GHC.Base.Maybe Graphics.UI.FLTK.LowLevel.Fl_Types.AtIndex))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindChild ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ ([Data.Text.Internal.Text] -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindInChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ ([Data.Text.Internal.Text] -> GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem)))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.FindItem ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Activate ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ClearChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Close ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Deselect ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Open ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.OpenToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Select ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectToggle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetParent ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Next ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.NextSibling ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Prev ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.PrevSibling ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.WidgetBase))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO Data.Text.Internal.Text) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabel ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HasChildren ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsActive ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsClose ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsOpen ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsRoot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsSelected ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.IsVisible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Visible ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.VisibleR ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Children ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DeselectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetDepth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetY ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelH ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelW ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelX ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.LabelY ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SelectAll ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreeItem: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreeItem orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (Graphics.UI.FLTK.LowLevel.Dispatch.Parent a Graphics.UI.FLTK.LowLevel.Hierarchy.Image, impl ~ (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref a) -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Bool -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (GHC.Types.Int -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSelectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ ([Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode] -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.SetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetCloseicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenicon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO (GHC.Base.Maybe (Graphics.UI.FLTK.LowLevel.Fl_Types.Ref Graphics.UI.FLTK.LowLevel.Hierarchy.Image))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericon ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowcollapse ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Bool) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetShowroot ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorwidth ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLinespacing ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetMargintop ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetOpenchildMarginbottom ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetUsericonmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO GHC.Types.Int) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetWidgetmarginleft ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Boxtype) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectbox ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelbgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Color) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfgcolor ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Font) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelfont ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeConnector) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetConnectorstyle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemReselectMode) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemReselectMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSelect) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSelectmode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeSort) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetSortorder ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO Graphics.UI.FLTK.LowLevel.Fl_Types.FontSize) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetLabelsize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.TreePrefs: instance (impl ~ GHC.Types.IO [Graphics.UI.FLTK.LowLevel.Fl_Enumerations.TreeItemDrawMode]) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.GetItemDrawMode ()) Graphics.UI.FLTK.LowLevel.Hierarchy.TreePrefs orig impl
+ Graphics.UI.FLTK.LowLevel.Utils: mkDestroyCallbacksPtr :: DestroyCallbacksPrim -> IO (FunPtr DestroyCallbacksPrim)
+ Graphics.UI.FLTK.LowLevel.Utils: toDestroyCallbacksPrim :: (Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()) -> IO (FunPtr DestroyCallbacksPrim)
+ Graphics.UI.FLTK.LowLevel.Valuator: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
+ Graphics.UI.FLTK.LowLevel.Valuator: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
+ Graphics.UI.FLTK.LowLevel.Valuator: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Valuator orig impl
+ Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueInput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueInput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueOutput: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueOutput orig impl
+ Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
+ Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
+ Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
+ Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
+ Graphics.UI.FLTK.LowLevel.ValueSlider: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ValueSlider orig impl
+ Graphics.UI.FLTK.LowLevel.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
+ Graphics.UI.FLTK.LowLevel.Widget: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
+ Graphics.UI.FLTK.LowLevel.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Destroy ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
+ Graphics.UI.FLTK.LowLevel.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
+ Graphics.UI.FLTK.LowLevel.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
+ Graphics.UI.FLTK.LowLevel.Widget: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Widget orig impl
+ Graphics.UI.FLTK.LowLevel.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
+ Graphics.UI.FLTK.LowLevel.Window: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
+ Graphics.UI.FLTK.LowLevel.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Flush ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
+ Graphics.UI.FLTK.LowLevel.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
+ Graphics.UI.FLTK.LowLevel.Window: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Window orig impl
+ Graphics.UI.FLTK.LowLevel.Wizard: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Enumerations.Event -> GHC.Types.IO (Data.Either.Either Graphics.UI.FLTK.LowLevel.Fl_Types.UnknownEvent ()))) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Handle ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
+ Graphics.UI.FLTK.LowLevel.Wizard: instance (impl ~ (Graphics.UI.FLTK.LowLevel.Fl_Types.Rectangle -> GHC.Types.IO ())) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Resize ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
+ Graphics.UI.FLTK.LowLevel.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
+ Graphics.UI.FLTK.LowLevel.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
+ Graphics.UI.FLTK.LowLevel.Wizard: instance (impl ~ GHC.Types.IO ()) => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Wizard orig impl
- Graphics.UI.FLTK.LowLevel.Dispatch: runOp :: Op op obj origObj impl => op -> origObj -> Ref obj -> impl
+ Graphics.UI.FLTK.LowLevel.Dispatch: runOp :: Op op obj origObj impl => op -> origObj -> (Ref obj) -> impl
- Graphics.UI.FLTK.LowLevel.Dispatch: safeCast :: Parent a r => Ref a -> Ref r
+ Graphics.UI.FLTK.LowLevel.Dispatch: safeCast :: (Parent a r) => Ref a -> Ref r
- Graphics.UI.FLTK.LowLevel.Draw: LineDrawStyle :: Maybe LineStyle -> Maybe CapStyle -> Maybe JoinStyle -> LineDrawStyle
+ Graphics.UI.FLTK.LowLevel.Draw: LineDrawStyle :: (Maybe LineStyle) -> (Maybe CapStyle) -> (Maybe JoinStyle) -> LineDrawStyle
- Graphics.UI.FLTK.LowLevel.Draw: flcCanDoAlphaBlending :: IO Bool
+ Graphics.UI.FLTK.LowLevel.Draw: flcCanDoAlphaBlending :: IO (Bool)
- Graphics.UI.FLTK.LowLevel.Draw: flcColor :: IO Color
+ Graphics.UI.FLTK.LowLevel.Draw: flcColor :: IO (Color)
- Graphics.UI.FLTK.LowLevel.Draw: flcDescent :: IO Int
+ Graphics.UI.FLTK.LowLevel.Draw: flcDescent :: IO (Int)
- Graphics.UI.FLTK.LowLevel.Draw: flcDrawInBoxWithImageReference :: Parent a Image => Text -> Rectangle -> Alignments -> Maybe DrawCallback -> Ref a -> Maybe Bool -> IO ()
+ Graphics.UI.FLTK.LowLevel.Draw: flcDrawInBoxWithImageReference :: (Parent a Image) => Text -> Rectangle -> Alignments -> Maybe DrawCallback -> Ref a -> Maybe Bool -> IO ()
- Graphics.UI.FLTK.LowLevel.Draw: flcFont :: IO Font
+ Graphics.UI.FLTK.LowLevel.Draw: flcFont :: IO (Font)
- Graphics.UI.FLTK.LowLevel.Draw: flcHeight :: IO Height
+ Graphics.UI.FLTK.LowLevel.Draw: flcHeight :: IO (Height)
- Graphics.UI.FLTK.LowLevel.Draw: flcHeightOfFont :: Font -> FontSize -> IO Height
+ Graphics.UI.FLTK.LowLevel.Draw: flcHeightOfFont :: Font -> FontSize -> IO (Height)
- Graphics.UI.FLTK.LowLevel.Draw: flcMeasure :: Text -> Maybe Width -> Bool -> IO Size
+ Graphics.UI.FLTK.LowLevel.Draw: flcMeasure :: Text -> Maybe Width -> Bool -> IO (Size)
- Graphics.UI.FLTK.LowLevel.Draw: flcNotClipped :: Rectangle -> IO Bool
+ Graphics.UI.FLTK.LowLevel.Draw: flcNotClipped :: Rectangle -> IO (Bool)
- Graphics.UI.FLTK.LowLevel.Draw: flcReadImage :: Rectangle -> Bool -> IO ByteString
+ Graphics.UI.FLTK.LowLevel.Draw: flcReadImage :: Rectangle -> Bool -> IO (ByteString)
- Graphics.UI.FLTK.LowLevel.Draw: flcSetSpotWithWin :: Parent a Window => Font -> FontSize -> Rectangle -> Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.Draw: flcSetSpotWithWin :: (Parent a WindowBase) => Font -> FontSize -> Rectangle -> Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.Draw: flcSize :: IO FontSize
+ Graphics.UI.FLTK.LowLevel.Draw: flcSize :: IO (FontSize)
- Graphics.UI.FLTK.LowLevel.Draw: flcTextExtents :: Text -> IO Rectangle
+ Graphics.UI.FLTK.LowLevel.Draw: flcTextExtents :: Text -> IO (Rectangle)
- Graphics.UI.FLTK.LowLevel.Draw: flcTransformDx :: ByXY -> IO Double
+ Graphics.UI.FLTK.LowLevel.Draw: flcTransformDx :: ByXY -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Draw: flcTransformDy :: ByXY -> IO Double
+ Graphics.UI.FLTK.LowLevel.Draw: flcTransformDy :: ByXY -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Draw: flcTransformX :: ByXY -> IO Double
+ Graphics.UI.FLTK.LowLevel.Draw: flcTransformX :: ByXY -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Draw: flcTransformY :: ByXY -> IO Double
+ Graphics.UI.FLTK.LowLevel.Draw: flcTransformY :: ByXY -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Draw: flcWidth :: Text -> IO PreciseWidth
+ Graphics.UI.FLTK.LowLevel.Draw: flcWidth :: Text -> IO (PreciseWidth)
- Graphics.UI.FLTK.LowLevel.Draw: flcWidthOfChar :: Int -> IO PreciseWidth
+ Graphics.UI.FLTK.LowLevel.Draw: flcWidthOfChar :: Int -> IO (PreciseWidth)
- Graphics.UI.FLTK.LowLevel.FL: ClipboardContentsImage :: Maybe (Ref Image) -> ClipboardContents
+ Graphics.UI.FLTK.LowLevel.FL: ClipboardContentsImage :: (Maybe (Ref Image)) -> ClipboardContents
- Graphics.UI.FLTK.LowLevel.FL: ClipboardContentsPlainText :: Maybe Text -> ClipboardContents
+ Graphics.UI.FLTK.LowLevel.FL: ClipboardContentsPlainText :: (Maybe Text) -> ClipboardContents
- Graphics.UI.FLTK.LowLevel.FL: FromFunPtr :: FunPtr BoxDrawFPrim -> Word8 -> Word8 -> Word8 -> Word8 -> BoxtypeSpec
+ Graphics.UI.FLTK.LowLevel.FL: FromFunPtr :: (FunPtr BoxDrawFPrim) -> Word8 -> Word8 -> Word8 -> Word8 -> BoxtypeSpec
- Graphics.UI.FLTK.LowLevel.FL: addCheck :: GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: addCheck :: GlobalCallback -> IO (FunPtr CallbackPrim)
- Graphics.UI.FLTK.LowLevel.FL: addIdle :: GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: addIdle :: GlobalCallback -> IO (FunPtr CallbackPrim)
- Graphics.UI.FLTK.LowLevel.FL: addTimeout :: Double -> GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: addTimeout :: Double -> GlobalCallback -> IO (FunPtr CallbackPrim)
- Graphics.UI.FLTK.LowLevel.FL: boxDh :: Boxtype -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: boxDh :: (Boxtype) -> IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: boxDw :: Boxtype -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: boxDw :: (Boxtype) -> IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: boxDx :: Boxtype -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: boxDx :: (Boxtype) -> IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: boxDy :: Boxtype -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: boxDy :: (Boxtype) -> IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: clearWidgetPointer :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: clearWidgetPointer :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: compose :: IO (Bool, Int)
+ Graphics.UI.FLTK.LowLevel.FL: compose :: IO ((Bool), (Int))
- Graphics.UI.FLTK.LowLevel.FL: composeReset :: IO ()
+ Graphics.UI.FLTK.LowLevel.FL: composeReset :: IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: containsEventState :: EventState -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: containsEventState :: (EventState) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: damage :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: damage :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: deleteWidget :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: deleteWidget :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: disableIm :: IO ()
+ Graphics.UI.FLTK.LowLevel.FL: disableIm :: IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: dnd :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: dnd :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: drawBoxActive :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: drawBoxActive :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: enableIm :: IO ()
+ Graphics.UI.FLTK.LowLevel.FL: enableIm :: IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: event :: IO Event
+ Graphics.UI.FLTK.LowLevel.FL: event :: IO ((Event))
- Graphics.UI.FLTK.LowLevel.FL: eventAlt :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventAlt :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventButton1 :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventButton1 :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventButton2 :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventButton2 :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventButton3 :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventButton3 :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventButtons :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventButtons :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventClicks :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: eventClicks :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: eventCommand :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventCommand :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventCtrl :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventCtrl :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventDispatch :: Parent a Widget => IO (Event -> Ref a -> IO (Either UnknownEvent ()))
+ Graphics.UI.FLTK.LowLevel.FL: eventDispatch :: (Parent a WidgetBase) => IO (Event -> Ref a -> IO (Either UnknownEvent ()))
- Graphics.UI.FLTK.LowLevel.FL: eventDx :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: eventDx :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: eventDy :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: eventDy :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: eventInsideWidget :: Parent a Widget => Ref a -> IO Event
+ Graphics.UI.FLTK.LowLevel.FL: eventInsideWidget :: (Parent a WidgetBase) => Ref a -> IO Event
- Graphics.UI.FLTK.LowLevel.FL: eventIsClick :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventIsClick :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventKey :: IO KeyType
+ Graphics.UI.FLTK.LowLevel.FL: eventKey :: IO ((KeyType))
- Graphics.UI.FLTK.LowLevel.FL: eventKeyPressed :: KeyType -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventKeyPressed :: (KeyType) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventLength :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: eventLength :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: eventOriginalKey :: IO KeyType
+ Graphics.UI.FLTK.LowLevel.FL: eventOriginalKey :: IO ((KeyType))
- Graphics.UI.FLTK.LowLevel.FL: eventShift :: IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: eventShift :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: eventState :: IO [EventState]
+ Graphics.UI.FLTK.LowLevel.FL: eventState :: IO (([EventState]))
- Graphics.UI.FLTK.LowLevel.FL: extract :: Enum a => [a] -> CInt -> [a]
+ Graphics.UI.FLTK.LowLevel.FL: extract :: (Enum a) => [a] -> CInt -> [a]
- Graphics.UI.FLTK.LowLevel.FL: flush :: IO ()
+ Graphics.UI.FLTK.LowLevel.FL: flush :: IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: getBoxtype :: Boxtype -> IO BoxDrawF
+ Graphics.UI.FLTK.LowLevel.FL: getBoxtype :: (Boxtype) -> IO ((FunPtr BoxDrawFPrim))
- Graphics.UI.FLTK.LowLevel.FL: getColor :: Color -> IO Color
+ Graphics.UI.FLTK.LowLevel.FL: getColor :: (Color) -> IO ((Color))
- Graphics.UI.FLTK.LowLevel.FL: getKey :: KeyType -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: getKey :: (KeyType) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: glVisual :: Mode -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: glVisual :: (Mode) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: glVisualWithAlist :: Mode -> Ptr CInt -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: glVisualWithAlist :: (Mode) -> (Ptr CInt) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: h :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: h :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: handle :: Parent a Window => Event -> Ref a -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.FL: handle :: (Parent a WindowBase) => Event -> Ref a -> IO (Either UnknownEvent ())
- Graphics.UI.FLTK.LowLevel.FL: handle_ :: Parent a Window => Event -> Ref a -> IO (Either UnknownEvent ())
+ Graphics.UI.FLTK.LowLevel.FL: handle_ :: (Parent a WindowBase) => Event -> Ref a -> IO (Either UnknownEvent ())
- Graphics.UI.FLTK.LowLevel.FL: hasCheck :: GlobalCallback -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: hasCheck :: (FunPtr CallbackPrim) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: hasIdle :: GlobalCallback -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: hasIdle :: (FunPtr CallbackPrim) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: hasTimeout :: GlobalCallback -> IO Int
+ Graphics.UI.FLTK.LowLevel.FL: hasTimeout :: (FunPtr CallbackPrim) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: pasteFromClipboard :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: pasteFromClipboard :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: pasteFromSelectionBuffer :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: pasteFromSelectionBuffer :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: pasteImageFromClipboard :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: pasteImageFromClipboard :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: pasteImageFromSelectionBuffer :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: pasteImageFromSelectionBuffer :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: redraw :: IO ()
+ Graphics.UI.FLTK.LowLevel.FL: redraw :: IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: releaseWidgetPointer :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: releaseWidgetPointer :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: reloadScheme :: Int
+ Graphics.UI.FLTK.LowLevel.FL: reloadScheme :: (Int)
- Graphics.UI.FLTK.LowLevel.FL: removeCheck :: GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: removeCheck :: (FunPtr CallbackPrim) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: removeIdle :: GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: removeIdle :: (FunPtr CallbackPrim) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: removeTimeout :: GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: removeTimeout :: (FunPtr CallbackPrim) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: repeatTimeout :: Double -> GlobalCallback -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: repeatTimeout :: Double -> GlobalCallback -> IO (FunPtr CallbackPrim)
- Graphics.UI.FLTK.LowLevel.FL: screenCount :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: screenCount :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: screenXYWH :: IO (Int, Int, Int, Int)
+ Graphics.UI.FLTK.LowLevel.FL: screenXYWH :: IO ((Int), (Int), (Int), (Int))
- Graphics.UI.FLTK.LowLevel.FL: scrollbarSize :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: scrollbarSize :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: setBelowmouse :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setBelowmouse :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setColor :: Color -> Color -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setColor :: (Color) -> (Color) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: setEventClicks :: Int -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setEventClicks :: (Int) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: setEventDispatch :: Parent a Widget => (Event -> Ref a -> IO (Either UnknownEvent ())) -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setEventDispatch :: (Parent a WidgetBase) => (Event -> Ref a -> IO (Either UnknownEvent ())) -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setEventIsClick :: Int -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setEventIsClick :: (Int) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: setFirstWindow :: Parent a Window => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setFirstWindow :: (Parent a WindowBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setFocus :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setFocus :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setFontToFont :: Font -> Font -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setFontToFont :: (Font) -> (Font) -> IO ((()))
- Graphics.UI.FLTK.LowLevel.FL: setGrab :: Parent a Window => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setGrab :: (Parent a WindowBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setPushed :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setPushed :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setScrollbarSize :: Int -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setScrollbarSize :: (Int) -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: setSelectionOwner :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: setSelectionOwner :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: testShortcut :: FlShortcut -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: testShortcut :: (FlShortcut) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: version :: IO Double
+ Graphics.UI.FLTK.LowLevel.FL: version :: IO ((Double))
- Graphics.UI.FLTK.LowLevel.FL: visual :: Mode -> IO Bool
+ Graphics.UI.FLTK.LowLevel.FL: visual :: (Mode) -> IO ((Bool))
- Graphics.UI.FLTK.LowLevel.FL: w :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: w :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: wait :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: wait :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: waitFor :: Double -> IO Double
+ Graphics.UI.FLTK.LowLevel.FL: waitFor :: (Double) -> IO ((Double))
- Graphics.UI.FLTK.LowLevel.FL: watchWidgetPointer :: Parent a Widget => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.FL: watchWidgetPointer :: (Parent a WidgetBase) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.FL: x :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: x :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.FL: y :: IO Int
+ Graphics.UI.FLTK.LowLevel.FL: y :: IO ((Int))
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: colorAverage :: Color -> Color -> Double -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: colorAverage :: (Color) -> (Color) -> (Double) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: colorCube :: Int -> Int -> Int -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: colorCube :: (Int) -> (Int) -> (Int) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: contrast :: Color -> Color -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: contrast :: (Color) -> (Color) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: darker :: Color -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: darker :: (Color) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: grayRamp :: Int -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: grayRamp :: (Int) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: inactive :: Color -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: inactive :: (Color) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: lighter :: Color -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: lighter :: (Color) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Enumerations: rgbColorWithGrayscale :: Char -> Color
+ Graphics.UI.FLTK.LowLevel.Fl_Enumerations: rgbColorWithGrayscale :: (Char) -> (Color)
- Graphics.UI.FLTK.LowLevel.Fl_Types: FunRef :: !FunPtr () -> FunRef
+ Graphics.UI.FLTK.LowLevel.Fl_Types: FunRef :: !(FunPtr ()) -> FunRef
- Graphics.UI.FLTK.LowLevel.Fl_Types: KeyBindingKeySequence :: Maybe [EventState] -> KeyType -> KeyBindingKeySequence
+ Graphics.UI.FLTK.LowLevel.Fl_Types: KeyBindingKeySequence :: (Maybe [EventState]) -> KeyType -> KeyBindingKeySequence
- Graphics.UI.FLTK.LowLevel.Fl_Types: Ref :: !ForeignPtr (Ptr ()) -> Ref a
+ Graphics.UI.FLTK.LowLevel.Fl_Types: Ref :: !(ForeignPtr (Ptr ())) -> Ref a
- Graphics.UI.FLTK.LowLevel.Fl_Types: StyleTableEntry :: Maybe Color -> Maybe Font -> Maybe FontSize -> StyleTableEntry
+ Graphics.UI.FLTK.LowLevel.Fl_Types: StyleTableEntry :: (Maybe Color) -> (Maybe Font) -> (Maybe FontSize) -> StyleTableEntry
- Graphics.UI.FLTK.LowLevel.Fl_Types: WindowHandle :: Ptr () -> WindowHandle
+ Graphics.UI.FLTK.LowLevel.Fl_Types: WindowHandle :: (Ptr ()) -> WindowHandle
- Graphics.UI.FLTK.LowLevel.Fl_Types: fromFunRef :: FunRef -> FunPtr ()
+ Graphics.UI.FLTK.LowLevel.Fl_Types: fromFunRef :: FunRef -> (FunPtr ())
- Graphics.UI.FLTK.LowLevel.Gl: glColor :: Color -> IO ()
+ Graphics.UI.FLTK.LowLevel.Gl: glColor :: (Color) -> IO ()
- Graphics.UI.FLTK.LowLevel.Gl: glWidth :: Text -> IO Double
+ Graphics.UI.FLTK.LowLevel.Gl: glWidth :: Text -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Gl: glWidthChar :: Char -> IO Double
+ Graphics.UI.FLTK.LowLevel.Gl: glWidthChar :: Char -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Gl: glWidthChars :: Text -> Int -> IO Double
+ Graphics.UI.FLTK.LowLevel.Gl: glWidthChars :: Text -> Int -> IO (Double)
- Graphics.UI.FLTK.LowLevel.Glut: glutAttachMenu :: GlutMenu -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutAttachMenu :: (GlutMenu) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutDestroyMenu :: GlutMenu -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutDestroyMenu :: (GlutMenu) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutDestroyWindow :: GlutWindow -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutDestroyWindow :: (GlutWindow) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutDetachMenu :: GlutMenu -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutDetachMenu :: (GlutMenu) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutDisplayFunc :: IO () -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutDisplayFunc :: (IO ()) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutGetMenu :: IO GlutMenu
+ Graphics.UI.FLTK.LowLevel.Glut: glutGetMenu :: IO ((GlutMenu))
- Graphics.UI.FLTK.LowLevel.Glut: glutGetModifiers :: IO [EventState]
+ Graphics.UI.FLTK.LowLevel.Glut: glutGetModifiers :: IO (([EventState]))
- Graphics.UI.FLTK.LowLevel.Glut: glutGetWindow :: IO GlutWindow
+ Graphics.UI.FLTK.LowLevel.Glut: glutGetWindow :: IO ((GlutWindow))
- Graphics.UI.FLTK.LowLevel.Glut: glutIdleFunc :: IO () -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutIdleFunc :: (IO ()) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutInitDisplayMode :: GlutDisplayMode -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutInitDisplayMode :: (GlutDisplayMode) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutOverlayDisplayFunc :: IO () -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutOverlayDisplayFunc :: (IO ()) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutPostWindowRedisplay :: GlutWindow -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutPostWindowRedisplay :: (GlutWindow) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutRemoveMenuItem :: Int -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutRemoveMenuItem :: (Int) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSetCursor :: GlutCursor -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSetCursor :: (GlutCursor) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSetMenu :: GlutMenu -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSetMenu :: (GlutMenu) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSetWindow :: GlutWindow -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSetWindow :: (GlutWindow) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSolidCone :: Double -> Double -> Int32 -> Int32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSolidCone :: (Double) -> (Double) -> (Int32) -> (Int32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSolidCube :: Double -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSolidCube :: (Double) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSolidSphere :: Double -> Int32 -> Int32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSolidSphere :: (Double) -> (Int32) -> (Int32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSolidTeapot :: Double -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSolidTeapot :: (Double) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutSolidTorus :: Double -> Double -> Int32 -> Int32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutSolidTorus :: (Double) -> (Double) -> (Int32) -> (Int32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutTimerFunc :: Int -> IO () -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutTimerFunc :: Int -> (IO ()) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutUseLayer :: Word32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutUseLayer :: (Word32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutWireCone :: Double -> Double -> Int32 -> Int32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutWireCone :: (Double) -> (Double) -> (Int32) -> (Int32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutWireCube :: Double -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutWireCube :: (Double) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutWireSphere :: Double -> Int32 -> Int32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutWireSphere :: (Double) -> (Int32) -> (Int32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutWireTeapot :: Double -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutWireTeapot :: (Double) -> IO ()
- Graphics.UI.FLTK.LowLevel.Glut: glutWireTorus :: Double -> Double -> Int32 -> Int32 -> IO ()
+ Graphics.UI.FLTK.LowLevel.Glut: glutWireTorus :: (Double) -> (Double) -> (Int32) -> (Int32) -> IO ()
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Adjuster = CAdjuster Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Adjuster = CAdjuster AdjusterBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Box = CBox Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Box = CBox WidgetBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Browser = CBrowser Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Browser = CBrowser BrowserBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Button = CButton Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Button = CButton ButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type CheckButton = CCheckButton LightButton
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type CheckButton = CCheckButton CheckButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Choice = CChoice MenuPrim
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Choice = CChoice ChoiceBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Clock = CClock Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Clock = CClock ClockBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type ColorChooser = CColorChooser Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ColorChooser = CColorChooser ColorChooserBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Counter = CCounter Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Counter = CCounter CounterBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Dial = CDial Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Dial = CDial DialBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type DoubleWindow = CDoubleWindow Window
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type DoubleWindow = CDoubleWindow WindowBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type FileBrowser = CFileBrowser Browser
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FileBrowser = CFileBrowser FileBrowserBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type FileInput = CFileInput Input
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FileInput = CFileInput FileInputBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type FillDial = CFillDial Dial
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FillDial = CFillDial DialBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type FillSlider = CFillSlider Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type FillSlider = CFillSlider SliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type GlWindow = CGlWindow Window
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type GlWindow = CGlWindow GlWindowBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Group = CGroup Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Group = CGroup GroupBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type HorFillSlider = CHorFillSlider Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorFillSlider = CHorFillSlider HorFillSliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type HorNiceSlider = CHorNiceSlider Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorNiceSlider = CHorNiceSlider HorNiceSliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type HorSlider = CHorSlider Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorSlider = CHorSlider HorSliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type HorValueSlider = CHorValueSlider ValueSlider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type HorValueSlider = CHorValueSlider ValueSliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Input = CInput Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Input = CInput InputBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type IntInput = CIntInput Input
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type IntInput = CIntInput InputBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type LightButton = CLightButton Button
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type LightButton = CLightButton LightButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type LineDial = CLineDial Dial
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type LineDial = CLineDial DialBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuBar = CMenuBar MenuPrim
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuBar = CMenuBar MenuBarBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuButton = CMenuButton MenuPrim
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuButton = CMenuButton MenuButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuItem = CMenuItem Base
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuItem = CMenuItem MenuItemBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuPrim = CMenuPrim Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type MenuPrim = CMenuPrim MenuPrimBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type NiceSlider = CNiceSlider Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type NiceSlider = CNiceSlider NiceSliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Output = COutput Input
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Output = COutput OutputBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type OverlayWindow = COverlayWindow DoubleWindow
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type OverlayWindow = COverlayWindow OverlayWindowBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Pack = CPack Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Pack = CPack PackBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Positioner = CPositioner Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Positioner = CPositioner PositionerBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Progress = CProgress Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Progress = CProgress ProgressBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type RadioLightButton = CRadioLightButton LightButton
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RadioLightButton = CRadioLightButton RadioLightButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type RepeatButton = CRepeatButton Button
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RepeatButton = CRepeatButton RepeatButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type ReturnButton = CReturnButton Button
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ReturnButton = CReturnButton ReturnButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Roller = CRoller Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Roller = CRoller RollerBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type RoundButton = CRoundButton LightButton
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type RoundButton = CRoundButton RoundButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Scrollbar = CScrollbar Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Scrollbar = CScrollbar ScrollbarBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type SelectBrowser = CSelectBrowser Browser
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SelectBrowser = CSelectBrowser BrowserBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type SimpleTerminal = CSimpleTerminal TextDisplay
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SimpleTerminal = CSimpleTerminal SimpleTerminalBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type SingleWindow = CSingleWindow Window
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SingleWindow = CSingleWindow SingleWindowBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Slider = CSlider Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Slider = CSlider SliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Spinner = CSpinner Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Spinner = CSpinner SpinnerBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type SysMenuBar = CSysMenuBar MenuBar
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type SysMenuBar = CSysMenuBar SysMenuBarBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Table = CTable Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Table = CTable TableBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type TableRow = CTableRow Table
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TableRow = CTableRow TableRowBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Tabs = CTabs Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Tabs = CTabs TabsBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type TextDisplay = CTextDisplay Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TextDisplay = CTextDisplay TextDisplayBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type TextEditor = CTextEditor TextDisplay
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type TextEditor = CTextEditor TextEditorBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Tile = CTile Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Tile = CTile TileBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type ToggleButton = CToggleButton Button
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ToggleButton = CToggleButton ToggleButtonBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Tree = CTree Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Tree = CTree TreeBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Valuator = CValuator Widget
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Valuator = CValuator ValuatorBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueInput = CValueInput Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueInput = CValueInput ValueInputBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueOutput = CValueOutput Valuator
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueOutput = CValueOutput ValueOutputBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueSlider = CValueSlider Slider
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type ValueSlider = CValueSlider ValueSliderBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Widget = CWidget Base
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Widget = CWidget WidgetBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type WidgetFuncs = (Destroy (Handle (GetParent (SetParent (GetType_ (SetType (DrawLabel (DoCallback (GetX (GetY (GetW (GetH (GetRectangle (SetAlign (GetAlign (GetBox (SetBox (GetColor (SetColor (SetColorWithBgSel (GetSelectionColor (SetSelectionColor (GetLabel (SetLabel (GetLabeltype (SetLabeltype (GetLabelcolor (SetLabelcolor (GetLabelfont (SetLabelfont (GetLabelsize (SetLabelsize (GetImage (SetImage (GetDeimage (SetDeimage (GetTooltip (CopyTooltip (SetTooltip (GetWhen (SetWhen (GetVisible (GetVisibleR (ShowWidgetSuper (ShowWidget (HideSuper (Hide (SetVisible (ClearVisible (Active (ActiveR (Activate (Deactivate (GetOutput (SetOutput (Takesevents (Changed (SetChanged (ClearChanged (SetActive (ClearActive (TakeFocus (SetVisibleFocus (ClearVisibleFocus (ModifyVisibleFocus (GetVisibleFocus (Contains (Inside (Redraw (RedrawLabel (GetDamage (ClearDamageThenSet (ClearDamage (SetDamage (SetDamageInside (MeasureLabel (GetWindow (GetTopWindow (GetTopWindowOffset (ResizeSuper (Resize (SetCallback (HasCallback (DrawBox (DrawBoxWithBoxtype (DrawBackdrop (DrawFocus (Flags (SetFlag (ClearFlag (ClearOutput ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type WidgetFuncs = (Draw (Destroy (Handle (Hide (Resize (ShowWidget ()))))))
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Window = CWindow Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Window = CWindow WindowBase
- Graphics.UI.FLTK.LowLevel.Hierarchy: type Wizard = CWizard Group
+ Graphics.UI.FLTK.LowLevel.Hierarchy: type Wizard = CWizard WizardBase
- Graphics.UI.FLTK.LowLevel.Image: ImageFuncs :: Maybe CustomImageDraw -> Maybe CustomColorAverage -> Maybe CustomImageCopy -> Maybe (Ref Image -> IO ()) -> Maybe (Ref Image -> IO ()) -> ImageFuncs a b
+ Graphics.UI.FLTK.LowLevel.Image: ImageFuncs :: Maybe (CustomImageDraw) -> Maybe (CustomColorAverage) -> Maybe (CustomImageCopy) -> Maybe (Ref Image -> IO ()) -> Maybe (Ref Image -> IO ()) -> ImageFuncs a b
- Graphics.UI.FLTK.LowLevel.Image: [imageColorAverageOverride] :: ImageFuncs a b -> Maybe CustomColorAverage
+ Graphics.UI.FLTK.LowLevel.Image: [imageColorAverageOverride] :: ImageFuncs a b -> Maybe (CustomColorAverage)
- Graphics.UI.FLTK.LowLevel.Image: [imageCopyOverride] :: ImageFuncs a b -> Maybe CustomImageCopy
+ Graphics.UI.FLTK.LowLevel.Image: [imageCopyOverride] :: ImageFuncs a b -> Maybe (CustomImageCopy)
- Graphics.UI.FLTK.LowLevel.Image: [imageDrawOverride] :: ImageFuncs a b -> Maybe CustomImageDraw
+ Graphics.UI.FLTK.LowLevel.Image: [imageDrawOverride] :: ImageFuncs a b -> Maybe (CustomImageDraw)
- Graphics.UI.FLTK.LowLevel.ImageSurface: imageSurfaceRescale :: Parent a ImageSurface => Ref a -> IO ()
+ Graphics.UI.FLTK.LowLevel.ImageSurface: imageSurfaceRescale :: (Parent a ImageSurface) => Ref a -> IO ()
- Graphics.UI.FLTK.LowLevel.MultiLabel: MultiLabelContentImage :: Ref a -> MultiLabelContent
+ Graphics.UI.FLTK.LowLevel.MultiLabel: MultiLabelContentImage :: (Ref a) -> MultiLabelContent
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipDelay :: IO Double
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipDelay :: IO ((Double))
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipEnable :: Bool -> IO ()
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipEnable :: (Bool) -> IO ()
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipEnabled :: IO Bool
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipEnabled :: IO ((Bool))
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipFont :: IO Font
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipFont :: IO ((Font))
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipHoverdelay :: IO Double
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipHoverdelay :: IO ((Double))
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetCurrent :: Parent a Widget => Maybe (Ref a) -> IO ()
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetCurrent :: (Parent a WidgetBase) => Maybe (Ref a) -> IO ()
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetDelay :: Double -> IO ()
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetDelay :: (Double) -> IO ()
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetFont :: Font -> IO ()
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetFont :: (Font) -> IO ()
- Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetHoverdelay :: Double -> IO ()
+ Graphics.UI.FLTK.LowLevel.Tooltip: tooltipSetHoverdelay :: (Double) -> IO ()
- Graphics.UI.FLTK.LowLevel.TreeItem: SiblingPosition :: Maybe Int -> SiblingPosition
+ Graphics.UI.FLTK.LowLevel.TreeItem: SiblingPosition :: (Maybe Int) -> SiblingPosition
- Graphics.UI.FLTK.LowLevel.TreeItem: TreeItemPointer :: Ref a -> TreeItemPointer
+ Graphics.UI.FLTK.LowLevel.TreeItem: TreeItemPointer :: (Ref a) -> TreeItemPointer
- Graphics.UI.FLTK.LowLevel.Utils: arrayToRefs :: Ptr (Ptr ()) -> Int -> IO [Ref a]
+ Graphics.UI.FLTK.LowLevel.Utils: arrayToRefs :: (Ptr (Ptr ())) -> Int -> IO [(Ref a)]
- Graphics.UI.FLTK.LowLevel.Utils: cStringToMaybeText :: HasCallStack => CString -> IO (Maybe Text)
+ Graphics.UI.FLTK.LowLevel.Utils: cStringToMaybeText :: (HasCallStack) => CString -> IO (Maybe Text)
- Graphics.UI.FLTK.LowLevel.Utils: cStringToText :: HasCallStack => CString -> IO Text
+ Graphics.UI.FLTK.LowLevel.Utils: cStringToText :: (HasCallStack) => CString -> IO Text
- Graphics.UI.FLTK.LowLevel.Utils: drawShortcutFromC :: HasCallStack => CChar -> Maybe DrawShortcut
+ Graphics.UI.FLTK.LowLevel.Utils: drawShortcutFromC :: (HasCallStack) => CChar -> Maybe DrawShortcut
- Graphics.UI.FLTK.LowLevel.Utils: extract :: Enum a => [a] -> CInt -> [a]
+ Graphics.UI.FLTK.LowLevel.Utils: extract :: (Enum a) => [a] -> CInt -> [a]
- Graphics.UI.FLTK.LowLevel.Utils: staticArrayToRefs :: Ptr () -> Int -> IO [Ref a]
+ Graphics.UI.FLTK.LowLevel.Utils: staticArrayToRefs :: (Ptr ()) -> Int -> IO [(Ref a)]
- Graphics.UI.FLTK.LowLevel.Utils: withBitmap :: BitmapHs -> (Ptr CChar -> Int -> Int -> IO a) -> IO a
+ Graphics.UI.FLTK.LowLevel.Utils: withBitmap :: BitmapHs -> ((Ptr CChar) -> Int -> Int -> IO a) -> IO a
- Graphics.UI.FLTK.LowLevel.Utils: withPixmap :: PixmapHs -> (Ptr (Ptr CChar) -> IO a) -> IO a
+ Graphics.UI.FLTK.LowLevel.Utils: withPixmap :: PixmapHs -> ((Ptr (Ptr CChar)) -> IO a) -> IO a
- Graphics.UI.FLTK.LowLevel.Utils: wrapNonNull :: HasCallStack => Ptr a -> String -> IO (ForeignPtr (Ptr a))
+ Graphics.UI.FLTK.LowLevel.Utils: wrapNonNull :: (HasCallStack) => Ptr a -> String -> IO (ForeignPtr (Ptr a))
- Graphics.UI.FLTK.LowLevel.X: flcXid :: Parent a Window => Ref a -> IO (Maybe WindowHandle)
+ Graphics.UI.FLTK.LowLevel.X: flcXid :: (Parent a WindowBase) => Ref a -> IO (Maybe WindowHandle)

Files

c-src/DerivedText_Editor.cpp view
@@ -13,9 +13,12 @@   overriddenFuncs = funcs;   other_data = (void*)0; }+ DerivedText_Editor::~DerivedText_Editor(){+  this->remove_all_key_bindings();   free(overriddenFuncs); }+ DerivedText_Editor::DerivedText_Editor(int x,int y,int w,int h,const char* t) : Fl_Text_Editor(x,y,w,h,t){   key_bindings = 0;   key_bindings = get_default_keybindings();@@ -92,8 +95,33 @@ void DerivedText_Editor::remove_all_key_bindings(Key_Binding_With_Callback** list){   Key_Binding_With_Callback* curr = *list;   Key_Binding_With_Callback* next;+  if (this->overriddenFuncs->destroy_data != NULL) {+    int i = 0;+    for (;curr;curr = next){+      if (curr->callback_context->c_key_func) { i++; }+      next = curr->next;+      i++;+    }+    fl_DoNotCall* fps = (fl_DoNotCall*)malloc(sizeof(fl_DoNotCall) * i);++    i = 0;+    for (;curr;curr = next){+      next = curr->next;+      if (curr->callback_context->c_key_func) {+        fps[i] = (fl_DoNotCall)curr->callback_context->c_key_func;+        i++;+      }+    }+    Function_Pointers_To_Free* fpStruct = (Function_Pointers_To_Free*)malloc(sizeof(Function_Pointers_To_Free));+    fpStruct->length = i;+    fpStruct->function_pointer_array = fps;+    this->overriddenFuncs->destroy_data((fl_Text_Editor)this, fpStruct);+    free(fps);+    free(fpStruct);+  }   for (;curr;curr = next){     next = curr->next;+    if (curr->callback_context) { delete curr->callback_context; }     delete curr;   }   *list = 0;@@ -110,6 +138,8 @@   if (!curr) return;   if (last) last->next = curr->next;   else *list = curr->next;+  curr->next = NULL;+  this->remove_all_key_bindings(&curr);   delete curr; }
c-src/Fl_AdjusterC.cpp view
@@ -10,6 +10,7 @@     other_data = (void*)0;   }   Fl_DerivedAdjuster::~Fl_DerivedAdjuster(){+    destroy_data();     free(overriddenFuncs);   }   void Fl_DerivedAdjuster::draw(){@@ -18,6 +19,18 @@     }     else {       Fl_Adjuster::draw();+    }+  }++  void Fl_DerivedAdjuster::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Adjuster)this,res);+      if (fps) { free(fps); }+      free(res);     }   }
c-src/Fl_AdjusterC.h view
@@ -24,6 +24,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedAdjuster(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedAdjuster(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedAdjuster();
c-src/Fl_AskC.cpp view
@@ -28,10 +28,10 @@     return fl_choice(q,b0,b1,b2,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);   }   FL_EXPORT_C(const char*,flc_input)(const char *label){-    return fl_input("s",0,label);+    return fl_input("%s",0,label);   }   FL_EXPORT_C(const char*,flc_input_with_deflt)(const char *label,const char* deflt){-    return fl_input("s",deflt, label);+    return fl_input("%s",deflt, label);   }   FL_EXPORT_C(const char*,flc_input_with_args)(const char *label,const char* arg1,const char* arg2,const char* arg3,const char* arg4,const char* arg5,const char* arg6,const char* arg7,const char* arg8,const char* arg9,const char* arg10){     return fl_input(label,0,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10);
c-src/Fl_BoxC.cpp view
@@ -24,7 +24,13 @@ } void Fl_DerivedBox::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Box) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Box)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedBox::draw_box(){
c-src/Fl_BrowserC.cpp view
@@ -9,9 +9,21 @@     other_data = (void*)0; } Fl_DerivedBrowser::~Fl_DerivedBrowser(){+  destroy_data();   free(overriddenFuncs);   free(other_data); }+void Fl_DerivedBrowser::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Browser)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} void* Fl_DerivedBrowser::get_other_data(){   return this->other_data; }@@ -156,6 +168,19 @@     ptr->destroy_data = NULL;     return ptr;   }++  FL_EXPORT_C(void, Fl_Browser_resize_super)(fl_Browser self, int x, int y, int w, int h) {+    (static_cast<Fl_DerivedBrowser*>(self))->resize_super(x,y,w,h);+  }++  FL_EXPORT_C(void, Fl_Browser_resize)(fl_Browser self, int x, int y, int w, int h) {+    (static_cast<Fl_DerivedBrowser*>(self))->resize(x,y,w,h);+  }++  FL_EXPORT_C(void, Fl_Browser_draw)(fl_Browser self) {+    (static_cast<Fl_DerivedBrowser*>(self))->draw();+  }+   FL_EXPORT_C(int,Fl_Browser_handle)(fl_Browser self, int event){     return (static_cast<Fl_DerivedBrowser*>(self))->handle(event);   }
c-src/Fl_BrowserC.h view
@@ -27,6 +27,7 @@     virtual int handle(int event);     int handle_super(int event);     void resize_super(int x, int y, int w, int h);+    void destroy_data();     virtual void resize(int x, int y, int w, int h);     virtual void show();     virtual void show(int val);@@ -50,6 +51,8 @@   FL_EXPORT_C_HEADER(void,Fl_Browser_show ,(fl_Browser browser));   FL_EXPORT_C_HEADER(void,Fl_Browser_hide_super,(fl_Browser browser));   FL_EXPORT_C_HEADER(void,Fl_Browser_hide ,(fl_Browser browser));+  FL_EXPORT_C_HEADER(void,Fl_Browser_draw_super,(fl_Browser browser));+  FL_EXPORT_C_HEADER(void,Fl_Browser_draw ,(fl_Browser browser));   FL_EXPORT_C_HEADER(fl_Window,Fl_Browser_as_window_super,(fl_Browser browser));   FL_EXPORT_C_HEADER(fl_Window,Fl_Browser_as_window ,(fl_Browser browser));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Browser_as_gl_window_super,(fl_Browser browser));
c-src/Fl_ButtonC.cpp view
@@ -20,7 +20,13 @@ } void Fl_DerivedButton::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Button) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Button)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedButton::draw_box(){@@ -132,38 +138,56 @@   FL_EXPORT_C(int,Fl_Button_handle_super )(fl_Button button,int event){     return (static_cast<Fl_Button*>(button))->Fl_Button::handle(event);   }-  FL_EXPORT_C(int,Fl_Button_handle )(fl_Button button, int event){+  FL_EXPORT_C(int,Fl_DerivedButton_handle )(fl_Button button, int event){     return (static_cast<Fl_DerivedButton*>(button))->handle(event);   }+  FL_EXPORT_C(int,Fl_Button_handle )(fl_Button button, int event){+    return (static_cast<Fl_DerivedButton*>(button))->Fl_Button::handle(event);+  }   FL_EXPORT_C(void,Fl_Button_resize_super )(fl_Button button,int x, int y, int w, int h){     (static_cast<Fl_Button*>(button))->Fl_Button::resize(x,y,w,h);   }-  FL_EXPORT_C(void,Fl_Button_resize )(fl_Button button,int x, int y, int w, int h){+  FL_EXPORT_C(void,Fl_DerivedButton_resize )(fl_Button button,int x, int y, int w, int h){     (static_cast<Fl_DerivedButton*>(button))->resize(x,y,w,h);   }+  FL_EXPORT_C(void,Fl_Button_resize )(fl_Button button,int x, int y, int w, int h){+    (static_cast<Fl_DerivedButton*>(button))->Fl_Button::resize(x,y,w,h);+  }   FL_EXPORT_C(void,Fl_Button_show_super)(fl_Button button){     (static_cast<Fl_Button*>(button))->Fl_Button::show();   }-  FL_EXPORT_C(void,Fl_Button_show )(fl_Button button){+  FL_EXPORT_C(void,Fl_DerivedButton_show )(fl_Button button){     (static_cast<Fl_DerivedButton*>(button))->show();   }+  FL_EXPORT_C(void,Fl_Button_show )(fl_Button button){+    (static_cast<Fl_DerivedButton*>(button))->Fl_Button::show();+  }   FL_EXPORT_C(void,Fl_Button_hide_super)(fl_Button button){     (static_cast<Fl_Button*>(button))->Fl_Button::hide();   }-  FL_EXPORT_C(void,Fl_Button_hide )(fl_Button button){+  FL_EXPORT_C(void,Fl_DerivedButton_hide )(fl_Button button){     (static_cast<Fl_DerivedButton*>(button))->hide();   }+  FL_EXPORT_C(void,Fl_Button_hide )(fl_Button button){+    (static_cast<Fl_DerivedButton*>(button))->Fl_Button::hide();+  }   FL_EXPORT_C(fl_Window,Fl_Button_as_window_super)(fl_Button button){     return (static_cast<Fl_Button*>(button))->Fl_Button::as_window();   }-  FL_EXPORT_C(fl_Window,Fl_Button_as_window )(fl_Button button){+  FL_EXPORT_C(fl_Window,Fl_DerivedButton_as_window )(fl_Button button){     return (static_cast<Fl_DerivedButton*>(button))->as_window();   }+  FL_EXPORT_C(fl_Window,Fl_Button_as_window )(fl_Button button){+    return (static_cast<Fl_DerivedButton*>(button))->Fl_Button::as_window();+  }   FL_EXPORT_C(fl_Gl_Window,Fl_Button_as_gl_window_super)(fl_Button button){     return (fl_Gl_Window) (static_cast<Fl_Button*>(button))->Fl_Button::as_gl_window();   }-  FL_EXPORT_C(fl_Gl_Window,Fl_Button_as_gl_window )(fl_Button button){+  FL_EXPORT_C(fl_Gl_Window,Fl_DerivedButton_as_gl_window )(fl_Button button){     return (fl_Gl_Window) (static_cast<Fl_DerivedButton*>(button))->as_gl_window();+  };+  FL_EXPORT_C(fl_Gl_Window,Fl_Button_as_gl_window )(fl_Button button){+    return (fl_Gl_Window) (static_cast<Fl_DerivedButton*>(button))->Fl_Button::as_gl_window();   };   FL_EXPORT_C(fl_Group,Fl_Button_parent)(fl_Button b){     return (fl_Group) (static_cast<Fl_DerivedButton*>(b))->parent();
c-src/Fl_ButtonC.h view
@@ -13,16 +13,22 @@   FL_EXPORT_C_HEADER(void,Fl_Button_draw_super,(fl_Button button));   FL_EXPORT_C_HEADER(int ,Fl_Button_handle_super,(fl_Button button,int event));   FL_EXPORT_C_HEADER(int ,Fl_Button_handle,(fl_Button button,int event));+  FL_EXPORT_C_HEADER(int ,Fl_DerivedButton_handle,(fl_Button button,int event));   FL_EXPORT_C_HEADER(void,Fl_Button_resize_super,(fl_Button button,int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Button_resize ,(fl_Button button,int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedButton_resize ,(fl_Button button,int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Button_show_super,(fl_Button button));   FL_EXPORT_C_HEADER(void,Fl_Button_show ,(fl_Button button));+  FL_EXPORT_C_HEADER(void,Fl_DerivedButton_show ,(fl_Button button));   FL_EXPORT_C_HEADER(void,Fl_Button_hide_super,(fl_Button button));   FL_EXPORT_C_HEADER(void,Fl_Button_hide ,(fl_Button button));+  FL_EXPORT_C_HEADER(void,Fl_DerivedButton_hide ,(fl_Button button));   FL_EXPORT_C_HEADER(fl_Window,Fl_Button_as_window_super,(fl_Button button));   FL_EXPORT_C_HEADER(fl_Window,Fl_Button_as_window ,(fl_Button button));+  FL_EXPORT_C_HEADER(fl_Window,Fl_DerivedButton_as_window ,(fl_Button button));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Button_as_gl_window_super,(fl_Button button));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Button_as_gl_window,(fl_Button button));+  FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_DerivedButton_as_gl_window,(fl_Button button));   FL_EXPORT_C_HEADER(fl_Group,Fl_Button_parent,(fl_Button button));   FL_EXPORT_C_HEADER(void,Fl_Button_set_parent,(fl_Button button, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Button_type,(fl_Button button));
c-src/Fl_CallbackC.cpp view
@@ -181,3 +181,180 @@   C_to_Fl_Callback* context = e->get_curr_callback_context();   return context->runCallback(key,e); }++fl_Callback* C_to_Fl_Callback::get_callback(Fl_Widget* w) {+  fl_Callback* cb = NULL;+  if (w->callback()) {+    C_to_Fl_Callback* wrappedCb = (C_to_Fl_Callback*)w->user_data();+    if (wrappedCb) { cb = wrappedCb->inner_callback(); }+  }+  return cb;+}++fl_Callback* C_to_Fl_Callback::get_callback(Fl_Menu_Item* m) {+  fl_Callback* cb = NULL;+  if (m->callback()) {+    C_to_Fl_Callback* wrappedCb = (C_to_Fl_Callback*)m->user_data();+    if (wrappedCb) { cb = wrappedCb->inner_callback(); }+  }+  return cb;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Widget_Virtual_Funcs* fs, fl_DoNotCall** res){+  int fsSize = 8;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(fs->draw);+  (*res)[1] = (fl_DoNotCall)(fs->handle);+  (*res)[2] = (fl_DoNotCall)(fs->resize);+  (*res)[3] = (fl_DoNotCall)(fs->show );+  (*res)[4] = (fl_DoNotCall)(fs->hide);+  (*res)[5] = (fl_DoNotCall)(fs->as_window);+  (*res)[6] = (fl_DoNotCall)(fs->as_gl_window);+  (*res)[7] = (fl_DoNotCall)(fs->as_group);+  return fsSize;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Table_Virtual_Funcs* fs, fl_DoNotCall** res){+  int fsSize = 12;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(fs->draw);+  (*res)[1] = (fl_DoNotCall)(fs->handle);+  (*res)[2] = (fl_DoNotCall)(fs->resize);+  (*res)[3] = (fl_DoNotCall)(fs->show);+  (*res)[4] = (fl_DoNotCall)(fs->hide);+  (*res)[5] = (fl_DoNotCall)(fs->as_window);+  (*res)[6] = (fl_DoNotCall)(fs->as_gl_window);+  (*res)[7] = (fl_DoNotCall)(fs->as_group);+  (*res)[8] = (fl_DoNotCall)(fs->draw_cell);+  (*res)[9] = (fl_DoNotCall)(fs->clear);+  (*res)[11] = (fl_DoNotCall)(fs->set_cols);+  return fsSize;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Window_Virtual_Funcs* fs, fl_DoNotCall** res){+  int fsSize = 9;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(fs->draw);+  (*res)[1] = (fl_DoNotCall)(fs->handle);+  (*res)[2] = (fl_DoNotCall)(fs->resize);+  (*res)[3] = (fl_DoNotCall)(fs->show);+  (*res)[4] = (fl_DoNotCall)(fs->hide);+  (*res)[5] = (fl_DoNotCall)(fs->as_window);+  (*res)[6] = (fl_DoNotCall)(fs->as_gl_window);+  (*res)[7] = (fl_DoNotCall)(fs->as_group);+  (*res)[8] = (fl_DoNotCall)(fs->flush);+  return fsSize;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Browser_Virtual_Funcs* fs, fl_DoNotCall** res){+  int fsSize = 10;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(fs->draw);+  (*res)[1] = (fl_DoNotCall)(fs->handle);+  (*res)[2] = (fl_DoNotCall)(fs->resize);+  (*res)[3] = (fl_DoNotCall)(fs->as_window);+  (*res)[4] = (fl_DoNotCall)(fs->as_gl_window);+  (*res)[5] = (fl_DoNotCall)(fs->as_group);+  (*res)[6] = (fl_DoNotCall)(fs->show);+  (*res)[7] = (fl_DoNotCall)(fs->show_with_line);+  (*res)[8] = (fl_DoNotCall)(fs->hide);+  (*res)[9] = (fl_DoNotCall)(fs->hide_with_line);+  return fsSize;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Image_Virtual_Funcs* fs, fl_DoNotCall** res){+  int fsSize = 5;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(fs->color_average);+  (*res)[1] = (fl_DoNotCall)(fs->copy);+  (*res)[2] = (fl_DoNotCall)(fs->desaturate);+  (*res)[3] = (fl_DoNotCall)(fs->draw);+  (*res)[4] = (fl_DoNotCall)(fs->uncache);+  return fsSize;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Valuator_Virtual_Funcs* fs, fl_DoNotCall** res){+  int fsSize = 9;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(fs->draw);+  (*res)[1] = (fl_DoNotCall)(fs->handle);+  (*res)[2] = (fl_DoNotCall)(fs->resize);+  (*res)[3] = (fl_DoNotCall)(fs->show);+  (*res)[4] = (fl_DoNotCall)(fs->hide);+  (*res)[5] = (fl_DoNotCall)(fs->as_window);+  (*res)[6] = (fl_DoNotCall)(fs->as_gl_window);+  (*res)[7] = (fl_DoNotCall)(fs->as_group);+  (*res)[8] = (fl_DoNotCall)(fs->format);+  return fsSize;+}++int C_to_Fl_Callback::function_pointers_to_free(fl_Widget_Virtual_Funcs* wfs, fl_Tab_Virtual_Funcs* tfs, fl_DoNotCall** res){+  int fsSize = 14;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));+  (*res)[0] = (fl_DoNotCall)(wfs->draw);+  (*res)[1] = (fl_DoNotCall)(wfs->handle);+  (*res)[2] = (fl_DoNotCall)(wfs->resize);+  (*res)[3] = (fl_DoNotCall)(wfs->show );+  (*res)[4] = (fl_DoNotCall)(wfs->hide);+  (*res)[5] = (fl_DoNotCall)(wfs->as_window);+  (*res)[6] = (fl_DoNotCall)(wfs->as_gl_window);+  (*res)[7] = (fl_DoNotCall)(wfs->as_group);++  (*res)[8] = (fl_DoNotCall)(tfs->tab_draw);+  (*res)[9] = (fl_DoNotCall)(tfs->tab_positions);+  (*res)[10] = (fl_DoNotCall)(tfs->tab_height);+  (*res)[11] = (fl_DoNotCall)(tfs->tab_which);+  (*res)[12] = (fl_DoNotCall)(tfs->redraw_tabs);+  (*res)[13] = (fl_DoNotCall)(tfs->tab_client_area);+  return fsSize;+}+++int C_to_Fl_Callback::function_pointers_to_free(fl_Widget_Virtual_Funcs* wfs, fl_Color_Chooser_Virtual_Funcs* cfs, fl_DoNotCall** res){+  int fsSize = 18;+  *res = (fl_DoNotCall*)malloc(fsSize * sizeof(fl_DoNotCall));++  (*res)[0] = (fl_DoNotCall)(wfs->draw);+  (*res)[1] = (fl_DoNotCall)(wfs->handle);+  (*res)[2] = (fl_DoNotCall)(wfs->resize);+  (*res)[3] = (fl_DoNotCall)(wfs->show );+  (*res)[4] = (fl_DoNotCall)(wfs->hide);+  (*res)[5] = (fl_DoNotCall)(wfs->as_window);+  (*res)[6] = (fl_DoNotCall)(wfs->as_gl_window);+  (*res)[7] = (fl_DoNotCall)(wfs->as_group);++  (*res)[8] = (fl_DoNotCall)(cfs->get_mode);+  (*res)[9] = (fl_DoNotCall)(cfs->set_mode);+  (*res)[10] = (fl_DoNotCall)(cfs->hue);+  (*res)[11] = (fl_DoNotCall)(cfs->saturation);+  (*res)[12] = (fl_DoNotCall)(cfs->value);+  (*res)[13] = (fl_DoNotCall)(cfs->r);+  (*res)[14] = (fl_DoNotCall)(cfs->g);+  (*res)[15] = (fl_DoNotCall)(cfs->b);+  (*res)[16] = (fl_DoNotCall)(cfs->hsv);+  (*res)[17] = (fl_DoNotCall)(cfs->rgb);+  return fsSize;+}++Function_Pointers_To_Free* C_to_Fl_Callback::gather_function_pointers(int total_fps, int num_fps, fl_DoNotCall* fps, ...) {+    va_list args;+    va_start(args, fps);+    Function_Pointers_To_Free* fps_to_free = (Function_Pointers_To_Free*)malloc(sizeof(Function_Pointers_To_Free));+    if (num_fps >= total_fps) {+      fps_to_free->length = num_fps;+      fps_to_free->function_pointer_array = fps;+    }+    else {+      int optional_fp_count = total_fps - num_fps;+      fl_DoNotCall* realloced_fps = (fl_DoNotCall*) realloc(fps,total_fps * sizeof(fl_DoNotCall));+      int new_fps_length = num_fps + optional_fp_count;+      int i;+      for (i=num_fps;i<new_fps_length;i++){+        realloced_fps[i] = va_arg(args, fl_DoNotCall);+      }+      fps_to_free->length = total_fps;+      fps_to_free->function_pointer_array = realloced_fps;+    }+    va_end(args);+    return fps_to_free;+}
c-src/Fl_CallbackC.h view
@@ -23,8 +23,6 @@  private:   fl_Callback* callback;   fl_Text_Buffer_Callback* text_buffer_callback;-  fl_Key_Func* c_key_func;-  Fl_Text_Editor::Key_Func* cpp_key_func;   void* user_data;   void runCallback(Fl_Widget* w);   void runCallback();@@ -41,12 +39,23 @@   }   // implementation needs DerivedText_Editor so it is separated  public:+  fl_Key_Func* c_key_func;+  Fl_Text_Editor::Key_Func* cpp_key_func;   static int intercept(int key, DerivedText_Editor* editor){     C_to_Fl_Callback* context = editor->get_curr_callback_context();     if (!context) context = editor->get_default_callback_context();     return context->runCallback(key,editor);   };   static int intercept(int key, fl_Text_Editor editor);+  static int function_pointers_to_free(fl_Widget_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Table_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Window_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Browser_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Image_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Valuator_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Widget_Virtual_Funcs* wfs,fl_Tab_Virtual_Funcs* fs, fl_DoNotCall** res);+  static int function_pointers_to_free(fl_Widget_Virtual_Funcs* wfs, fl_Color_Chooser_Virtual_Funcs* cfs, fl_DoNotCall** res);+  static Function_Pointers_To_Free* gather_function_pointers(int total_fps, int num_fps, fl_DoNotCall* fps, ...);   C_to_Fl_Callback(Fl_Widget* invoker, fl_Callback* callback, void* user_data);   C_to_Fl_Callback(Fl_Widget* invoker, fl_Callback* callback);   C_to_Fl_Callback(fl_Callback* callback);@@ -61,6 +70,9 @@   void set_callback(Fl_Text_Buffer* b);   void set_user_data(void* user_data);   void set_callback(Fl_File_Chooser* b);+  fl_Callback* inner_callback() { return this->callback; }+  static fl_Callback* get_callback(Fl_Menu_Item* m);+  static fl_Callback* get_callback(Fl_Widget* w);   int menu_insert(Fl_Menu_Item* item, int index, char* name, int shortcut, int flags = 0);   int menu_insert(Fl_Menu_* menu_, int index, char* name, int shortcut, int flags = 0);   int menu_insert(Fl_Menu_* menu_, int index, char* name, char* shortcut, int flags = 0);
c-src/Fl_Check_ButtonC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedCheck_Button::~Fl_DerivedCheck_Button(){+    destroy_data();     free(overriddenFuncs);   }+  void Fl_DerivedCheck_Button::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Check_Button)this,res);+      if (fps) { free(fps); }+      free(res);+    }+  }   void Fl_DerivedCheck_Button::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Check_Button) this);@@ -374,32 +386,47 @@     Fl_DerivedCheck_Button* w = new Fl_DerivedCheck_Button(X,Y,W,H,label,fs);     return (fl_Check_Button)w;   }-  FL_EXPORT_C(void, Fl_Check_Button_draw)(fl_Check_Button o){+  FL_EXPORT_C(void, Fl_DerivedCheck_Button_draw)(fl_Check_Button o){     (static_cast<Fl_DerivedCheck_Button*>(o))->draw();   }+  FL_EXPORT_C(void, Fl_Check_Button_draw)(fl_Check_Button o){+    (static_cast<Fl_DerivedCheck_Button*>(o))->draw_super();+  }   FL_EXPORT_C(void, Fl_Check_Button_draw_super)(fl_Check_Button o){     (static_cast<Fl_DerivedCheck_Button*>(o))->draw_super();   }-  FL_EXPORT_C(int, Fl_Check_Button_handle)(fl_Check_Button o, int event){+  FL_EXPORT_C(int, Fl_DerivedCheck_Button_handle)(fl_Check_Button o, int event){     return (static_cast<Fl_DerivedCheck_Button*>(o))->handle(event);   }+  FL_EXPORT_C(int, Fl_Check_Button_handle)(fl_Check_Button o, int event){+    return (static_cast<Fl_DerivedCheck_Button*>(o))->Fl_Check_Button::handle(event);+  }   FL_EXPORT_C(int, Fl_Check_Button_handle_super)(fl_Check_Button o, int event){     return (static_cast<Fl_DerivedCheck_Button*>(o))->handle_super(event);   }-  FL_EXPORT_C(void, Fl_Check_Button_resize)(fl_Check_Button o, int x, int y, int w, int h){+  FL_EXPORT_C(void, Fl_DerivedCheck_Button_resize)(fl_Check_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedCheck_Button*>(o))->resize(x,y,w,h);   }+  FL_EXPORT_C(void, Fl_Check_Button_resize)(fl_Check_Button o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedCheck_Button*>(o))->Fl_Check_Button::resize(x,y,w,h);+  }   FL_EXPORT_C(void, Fl_Check_Button_resize_super)(fl_Check_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedCheck_Button*>(o))->resize_super(x,y,w,h);   }-  FL_EXPORT_C(void, Fl_Check_Button_show)(fl_Check_Button o){+  FL_EXPORT_C(void, Fl_DerivedCheck_Button_show)(fl_Check_Button o){     (static_cast<Fl_DerivedCheck_Button*>(o))->show();   }+  FL_EXPORT_C(void, Fl_Check_Button_show)(fl_Check_Button o){+    (static_cast<Fl_DerivedCheck_Button*>(o))->Fl_Check_Button::show();+  }   FL_EXPORT_C(void, Fl_Check_Button_show_super)(fl_Check_Button o){     (static_cast<Fl_DerivedCheck_Button*>(o))->show_super();   }-  FL_EXPORT_C(void, Fl_Check_Button_hide)(fl_Check_Button o){+  FL_EXPORT_C(void, Fl_DerivedCheck_Button_hide)(fl_Check_Button o){     (static_cast<Fl_DerivedCheck_Button*>(o))->hide();+  }+  FL_EXPORT_C(void, Fl_Check_Button_hide)(fl_Check_Button o){+    (static_cast<Fl_DerivedCheck_Button*>(o))->Fl_Check_Button::hide();   }   FL_EXPORT_C(void, Fl_Check_Button_hide_super)(fl_Check_Button o){     (static_cast<Fl_DerivedCheck_Button*>(o))->hide_super();
c-src/Fl_Check_ButtonC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedCheck_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedCheck_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedCheck_Button();@@ -127,14 +128,19 @@   FL_EXPORT_C_HEADER(fl_Check_Button,Fl_OverriddenCheck_Button_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Check_Button,Fl_OverriddenCheck_Button_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_draw,(fl_Check_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedCheck_Button_draw,(fl_Check_Button o));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_draw_super,(fl_Check_Button o));   FL_EXPORT_C_HEADER(int,Fl_Check_Button_handle,(fl_Check_Button o, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedCheck_Button_handle,(fl_Check_Button o, int event));   FL_EXPORT_C_HEADER(int,Fl_Check_Button_handle_super,(fl_Check_Button o, int event));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_resize,(fl_Check_Button o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedCheck_Button_resize,(fl_Check_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_resize_super,(fl_Check_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_show,(fl_Check_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedCheck_Button_show,(fl_Check_Button o));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_show_super,(fl_Check_Button o));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_hide,(fl_Check_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedCheck_Button_hide,(fl_Check_Button o));   FL_EXPORT_C_HEADER(void,Fl_Check_Button_hide_super,(fl_Check_Button o));  #ifdef __cplusplus
c-src/Fl_ChoiceC.cpp view
@@ -11,6 +11,7 @@     other_data = (void*)0;   }   Fl_DerivedChoice::~Fl_DerivedChoice(){+    destroy_data();     free(overriddenFuncs);   }   void Fl_DerivedChoice::draw(){@@ -22,6 +23,17 @@     }   } +  void Fl_DerivedChoice::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Choice)this,res);+      if (fps) { free(fps); }+      free(res);+    }+  }   void Fl_DerivedChoice::draw_super(){     Fl_Choice::draw();   }
c-src/Fl_ChoiceC.h view
@@ -24,6 +24,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedChoice(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedChoice(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedChoice();
c-src/Fl_ClockC.cpp view
@@ -10,7 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedClock::~Fl_DerivedClock(){+    destroy_data();     free(overriddenFuncs);+  }++  void Fl_DerivedClock::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Clock)this,res);+      if (fps) { free(fps); }+      free(res);+    }   }   void Fl_DerivedClock::draw(){     if (this->overriddenFuncs->draw != NULL) {
c-src/Fl_ClockC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedClock(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedClock(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedClock();
c-src/Fl_Color_ChooserC.cpp view
@@ -12,8 +12,22 @@     other_data = (void*)0;   }   Fl_DerivedColor_Chooser::~Fl_DerivedColor_Chooser(){+    destroy_data();+    free(cOverriddenFuncs);     free(overriddenFuncs);   }++void Fl_DerivedColor_Chooser::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs, this->cOverriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Color_Chooser)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedColor_Chooser::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Color_Chooser) this);@@ -85,6 +99,9 @@       return Fl_Color_Chooser::mode();     }   };+  int Fl_DerivedColor_Chooser::mode_super() {+    return Fl_Color_Chooser::mode();+  };   void Fl_DerivedColor_Chooser::mode(int newMode){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->set_mode) {       this->cOverriddenFuncs->set_mode((fl_Color_Chooser) this, newMode);@@ -93,6 +110,9 @@       Fl_Color_Chooser::mode(newMode);     }   }+  void Fl_DerivedColor_Chooser::mode_super(int newMode){+    Fl_Color_Chooser::mode(newMode);+  }   double Fl_DerivedColor_Chooser::hue(){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->hue) {       return this->cOverriddenFuncs->hue((fl_Color_Chooser) this);@@ -101,6 +121,9 @@       return Fl_Color_Chooser::hue();     }   };+  double Fl_DerivedColor_Chooser::hue_super(){+    return Fl_Color_Chooser::hue();+  };   double Fl_DerivedColor_Chooser::saturation(){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->saturation) {       return this->cOverriddenFuncs->saturation((fl_Color_Chooser) this);@@ -109,6 +132,9 @@       return Fl_Color_Chooser::saturation();     }   };+  double Fl_DerivedColor_Chooser::saturation_super(){+    return Fl_Color_Chooser::saturation();+  };   double Fl_DerivedColor_Chooser::value(){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->value) {       return this->cOverriddenFuncs->value((fl_Color_Chooser) this);@@ -117,6 +143,9 @@       return Fl_Color_Chooser::value();     }   };+  double Fl_DerivedColor_Chooser::value_super(){+    return Fl_Color_Chooser::value();+  };   double Fl_DerivedColor_Chooser::r(){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->r) {       return this->cOverriddenFuncs->r((fl_Color_Chooser) this);@@ -125,6 +154,9 @@       return Fl_Color_Chooser::r();     }   }+  double Fl_DerivedColor_Chooser::r_super(){+    return Fl_Color_Chooser::r();+  }   double Fl_DerivedColor_Chooser::g(){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->g) {       return this->cOverriddenFuncs->g((fl_Color_Chooser) this);@@ -133,6 +165,9 @@       return Fl_Color_Chooser::g();     }   };+  double Fl_DerivedColor_Chooser::g_super(){+    return Fl_Color_Chooser::g();+  };   double Fl_DerivedColor_Chooser::b(){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->b) {       return this->cOverriddenFuncs->b((fl_Color_Chooser) this);@@ -141,6 +176,9 @@       return Fl_Color_Chooser::b();     }   };+  double Fl_DerivedColor_Chooser::b_super(){+    return Fl_Color_Chooser::b();+  };   int Fl_DerivedColor_Chooser::hsv(double H, double S, double V){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->hsv) {       return this->cOverriddenFuncs->hsv((fl_Color_Chooser) this, H, S, V);@@ -149,6 +187,9 @@       return Fl_Color_Chooser::hsv(H,S,V);     }   };+  int Fl_DerivedColor_Chooser::hsv_super(double H, double S, double V){+    return Fl_Color_Chooser::hsv(H,S,V);+  };   int Fl_DerivedColor_Chooser::rgb(double R, double G, double B){     if (this->cOverriddenFuncs && this->cOverriddenFuncs->rgb) {       return this->cOverriddenFuncs->rgb((fl_Color_Chooser) this, R, G, B);@@ -157,6 +198,9 @@       return Fl_Color_Chooser::rgb(R,G,B);     }   };+  int Fl_DerivedColor_Chooser::rgb_super(double R, double G, double B){+    return Fl_Color_Chooser::rgb(R,G,B);+  };  #endif   FL_EXPORT_C(int,Fl_Color_Chooser_handle)(fl_Color_Chooser color_chooser, int event){@@ -504,32 +548,62 @@   FL_EXPORT_C(int,Fl_Color_Chooser_mode)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->mode();   }+  FL_EXPORT_C(int,Fl_Color_Chooser_mode_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::mode();+  }   FL_EXPORT_C(void,Fl_Color_Chooser_set_mode)(fl_Color_Chooser color_chooser,int newMode){     (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->mode(newMode);   }+  FL_EXPORT_C(void,Fl_Color_Chooser_set_mode_super)(fl_Color_Chooser color_chooser,int newMode){+    (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::mode(newMode);+  }   FL_EXPORT_C(double,Fl_Color_Chooser_hue)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->hue();   }+  FL_EXPORT_C(double,Fl_Color_Chooser_hue_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::hue();+  }   FL_EXPORT_C(double,Fl_Color_Chooser_saturation)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->saturation();   }+  FL_EXPORT_C(double,Fl_Color_Chooser_saturation_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::saturation();+  }   FL_EXPORT_C(double,Fl_Color_Chooser_value)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->value();   }+  FL_EXPORT_C(double,Fl_Color_Chooser_value_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::value();+  }   FL_EXPORT_C(double,Fl_Color_Chooser_r)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->r();   }+  FL_EXPORT_C(double,Fl_Color_Chooser_r_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::r();+  }   FL_EXPORT_C(double,Fl_Color_Chooser_g)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->g();   }+  FL_EXPORT_C(double,Fl_Color_Chooser_g_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::g();+  }   FL_EXPORT_C(double,Fl_Color_Chooser_b)(fl_Color_Chooser color_chooser){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->b();   }+  FL_EXPORT_C(double,Fl_Color_Chooser_b_super)(fl_Color_Chooser color_chooser){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::b();+  }   FL_EXPORT_C(int,Fl_Color_Chooser_hsv)(fl_Color_Chooser color_chooser,double H,double S,double V){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->hsv(H,S,V);   }+  FL_EXPORT_C(int,Fl_Color_Chooser_hsv_super)(fl_Color_Chooser color_chooser,double H,double S,double V){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::hsv(H,S,V);+  }   FL_EXPORT_C(int,Fl_Color_Chooser_rgb)(fl_Color_Chooser color_chooser,double R,double G,double B){     return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->rgb(R,G,B);+  }+  FL_EXPORT_C(int,Fl_Color_Chooser_rgb_super)(fl_Color_Chooser color_chooser,double R,double G,double B){+    return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->Fl_Color_Chooser::rgb(R,G,B);   }   FL_EXPORT_C(void,Fl_Color_Chooser_hsv2rgb)(double H,double S,double V,double* R,double* G,double* B){     Fl_Color_Chooser::hsv2rgb(H,S,V,*R,*G,*B);
c-src/Fl_Color_ChooserC.h view
@@ -15,15 +15,25 @@     void* other_data;   public:     int mode();+    int mode_super();     void mode(int newMode);+    void mode_super(int newMode);     double hue();+    double hue_super();     double saturation();+    double saturation_super();     double value();+    double value_super();     double r();+    double r_super();     double g();+    double g_super();     double b();+    double b_super();     int hsv(double H, double S, double V);+    int hsv_super(double H, double S, double V);     int rgb(double R, double G, double B);+    int rgb_super(double R, double G, double B);      virtual void draw();     void draw_super();@@ -35,6 +45,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedColor_Chooser(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs, fl_Color_Chooser_Virtual_Funcs* cfs);     Fl_DerivedColor_Chooser(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs, fl_Color_Chooser_Virtual_Funcs* cfs);     ~Fl_DerivedColor_Chooser();@@ -156,15 +167,25 @@   FL_EXPORT_C_HEADER(fl_Widget,Fl_Color_Chooser_child,(fl_Color_Chooser color_chooser, int n));    FL_EXPORT_C_HEADER(int,Fl_Color_Chooser_mode,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(int,Fl_Color_Chooser_mode_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(void,Fl_Color_Chooser_set_mode,(fl_Color_Chooser color_chooser,int newMode));+  FL_EXPORT_C_HEADER(void,Fl_Color_Chooser_set_mode_super,(fl_Color_Chooser color_chooser,int newMode));   FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_hue,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_hue_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_saturation,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_saturation_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_value,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_value_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_r,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_r_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_g,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_g_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_b,(fl_Color_Chooser color_chooser));+  FL_EXPORT_C_HEADER(double,Fl_Color_Chooser_b_super,(fl_Color_Chooser color_chooser));   FL_EXPORT_C_HEADER(int,Fl_Color_Chooser_hsv,(fl_Color_Chooser color_chooser,double H, double S, double V));+  FL_EXPORT_C_HEADER(int,Fl_Color_Chooser_hsv_super,(fl_Color_Chooser color_chooser,double H, double S, double V));   FL_EXPORT_C_HEADER(int,Fl_Color_Chooser_rgb,(fl_Color_Chooser color_chooser,double R, double G, double B));+  FL_EXPORT_C_HEADER(int,Fl_Color_Chooser_rgb_super,(fl_Color_Chooser color_chooser,double R, double G, double B));   FL_EXPORT_C_HEADER(void,Fl_Color_Chooser_hsv2rgb,(double H, double S, double V, double* R, double* G, double* B));   FL_EXPORT_C_HEADER(void,Fl_Color_Chooser_rgb2hsv,(double R, double G, double B, double* H, double* S, double* V));   FL_EXPORT_C_HEADER(fl_Color_Chooser,Fl_Color_Chooser_New,(int x, int y, int w, int h));
c-src/Fl_CounterC.cpp view
@@ -10,8 +10,21 @@     other_data = (void*)0;   }   Fl_DerivedCounter::~Fl_DerivedCounter(){+    destroy_data();     free(overriddenFuncs);   }++void Fl_DerivedCounter::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Counter)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedCounter::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Counter) this);
c-src/Fl_CounterC.h view
@@ -25,6 +25,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedCounter(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedCounter(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedCounter();
c-src/Fl_DialC.cpp view
@@ -10,8 +10,21 @@     other_data = (void*)0;   }   Fl_DerivedDial::~Fl_DerivedDial(){+    destroy_data();     free(overriddenFuncs);   }++void Fl_DerivedDial::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Dial)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedDial::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Dial) this);
c-src/Fl_DialC.h view
@@ -25,6 +25,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedDial(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedDial(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedDial();
c-src/Fl_Double_WindowC.cpp view
@@ -30,7 +30,13 @@ } void Fl_DerivedDouble_Window::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Window) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Double_Window)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedDouble_Window::draw_box(){@@ -203,9 +209,12 @@   FL_EXPORT_C(fl_Window,Fl_Double_Window_as_window_super)(fl_Double_Window self){     return (fl_Window)(static_cast<Fl_DerivedDouble_Window*>(self))->as_window_super();   }-  FL_EXPORT_C(int,Fl_Double_Window_handle)(fl_Double_Window self, int event){+  FL_EXPORT_C(int,Fl_DerivedDouble_Window_handle)(fl_Double_Window self, int event){     return (static_cast<Fl_DerivedDouble_Window*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_Double_Window_handle)(fl_Double_Window self, int event){+    return (static_cast<Fl_Double_Window*>(self))->Fl_Double_Window::handle(event);+  }   FL_EXPORT_C(int,Fl_Double_Window_handle_super)(fl_Double_Window self, int event){     return (static_cast<Fl_DerivedDouble_Window*>(self))->handle_super(event);   }@@ -606,35 +615,50 @@   FL_EXPORT_C(void,Fl_Double_Window_fullscreen_off_with_resize)(fl_Double_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedDouble_Window*>(win))->fullscreen_off(X,Y,W,H);   }-  FL_EXPORT_C(void,Fl_Double_Window_hide)(fl_Double_Window win){+  FL_EXPORT_C(void,Fl_DerivedDouble_Window_hide)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->hide();   }+  FL_EXPORT_C(void,Fl_Double_Window_hide)(fl_Double_Window win){+    (static_cast<Fl_Double_Window*>(win))->Fl_Double_Window::hide();+  }   FL_EXPORT_C(void,Fl_Double_Window_hide_super)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->hide_super();   }-  FL_EXPORT_C(void,Fl_Double_Window_show)(fl_Double_Window win){+  FL_EXPORT_C(void,Fl_DerivedDouble_Window_show)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->show();   }+  FL_EXPORT_C(void,Fl_Double_Window_show)(fl_Double_Window win){+    (static_cast<Fl_Double_Window*>(win))->Fl_Double_Window::show();+  }   FL_EXPORT_C(void,Fl_Double_Window_show_super)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->show_super();   }   FL_EXPORT_C(void,Fl_Double_Window_show_with_args)(fl_Double_Window win,int argc,char** argv){     (static_cast<Fl_DerivedDouble_Window*>(win))->show(argc,argv);   }-  FL_EXPORT_C(void,Fl_Double_Window_Destroy)(fl_Double_Window win){+  FL_EXPORT_C(void,Fl_DerivedDouble_Window_Destroy)(fl_Double_Window win){     delete (static_cast<Fl_DerivedDouble_Window*>(win));   }-  FL_EXPORT_C(void,Fl_Double_Window_resize)(fl_Double_Window win,int X,int Y,int W,int H){+  FL_EXPORT_C(void,Fl_Double_Window_Destroy)(fl_Double_Window win){+    delete (static_cast<Fl_Double_Window*>(win));+  }+  FL_EXPORT_C(void,Fl_DerivedDouble_Window_resize)(fl_Double_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedDouble_Window*>(win))->resize(X,Y,W,H);   }+  FL_EXPORT_C(void,Fl_Double_Window_resize)(fl_Double_Window win,int X,int Y,int W,int H){+    (static_cast<Fl_Double_Window*>(win))->Fl_Double_Window::resize(X,Y,W,H);+  }   FL_EXPORT_C(void,Fl_Double_Window_resize_super)(fl_Double_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedDouble_Window*>(win))->resize_super(X,Y,W,H);   }   FL_EXPORT_C(void,Fl_Double_Window_iconize)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->iconize();   }-  FL_EXPORT_C(void,Fl_Double_Window_flush)(fl_Double_Window win){+  FL_EXPORT_C(void,Fl_DerivedDouble_Window_flush)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->flush();+  }+  FL_EXPORT_C(void,Fl_Double_Window_flush)(fl_Double_Window win){+    (static_cast<Fl_Double_Window*>(win))->Fl_Double_Window::flush();   }   FL_EXPORT_C(void,Fl_Double_Window_flush_super)(fl_Double_Window win){     (static_cast<Fl_DerivedDouble_Window*>(win))->flush_super();
c-src/Fl_Double_WindowC.h view
@@ -12,6 +12,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Double_Window_handle,(fl_Double_Window self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedDouble_Window_handle,(fl_Double_Window self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Double_Window_parent,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,Fl_Double_Window_set_parent,(fl_Double_Window win, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Double_Window_type,(fl_Double_Window win));@@ -248,14 +249,21 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,	Fl_Double_Window_as_gl_window_super,(fl_Double_Window window));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_show_super,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_show,(fl_Double_Window win));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedDouble_Window_show,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_show_with_args,(fl_Double_Window win, int argc, char** argv));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedDouble_Window_Destroy,(fl_Double_Window win));+  FL_EXPORT_C_HEADER(void,		Fl_Double_Window_flush_super,(fl_Double_Window win));+  FL_EXPORT_C_HEADER(void,		Fl_Double_Window_flush,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_Destroy,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_flush_super,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_flush,(fl_Double_Window win));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedDouble_Window_flush,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_resize_super,(fl_Double_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_resize,(fl_Double_Window win, int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedDouble_Window_resize,(fl_Double_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,		Fl_Double_Window_hide_super,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,Fl_Double_Window_hide,(fl_Double_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedDouble_Window_hide,(fl_Double_Window win));   FL_EXPORT_C_HEADER(void,fl_Double_Window_wait_for_expose,(fl_Double_Window win));  #ifdef __cplusplus
c-src/Fl_File_BrowserC.cpp view
@@ -10,8 +10,21 @@     other_data = (void*)0;   }   Fl_DerivedFile_Browser::~Fl_DerivedFile_Browser(){+    destroy_data();     free(overriddenFuncs);   }++void Fl_DerivedFile_Browser::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_File_Browser)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedFile_Browser::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_File_Browser) this);
c-src/Fl_File_BrowserC.h view
@@ -22,6 +22,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedFile_Browser(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedFile_Browser(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedFile_Browser();
c-src/Fl_File_InputC.cpp view
@@ -11,8 +11,21 @@     other_data = (void*)0;   }   Fl_DerivedFile_Input::~Fl_DerivedFile_Input(){+    destroy_data();     free(overriddenFuncs);   }++void Fl_DerivedFile_Input::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_File_Input)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedFile_Input::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_File_Input) this);
c-src/Fl_File_InputC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedFile_Input(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedFile_Input(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedFile_Input();
c-src/Fl_Float_InputC.cpp view
@@ -1,412 +1,429 @@ #include "Fl_Float_InputC.h"  #ifdef __cplusplus+Fl_DerivedFloat_Input::Fl_DerivedFloat_Input(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Float_Input(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedFloat_Input::~Fl_DerivedFloat_Input() {+  destroy_data();+}+void Fl_DerivedFloat_Input::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Float_Input)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}+ EXPORT { #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C(int,Fl_Float_Input_handle)(fl_Float_Input self, int event){-    return (static_cast<Fl_Float_Input*>(self))->handle(event);+    return (static_cast<Fl_DerivedFloat_Input*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Float_Input_parent)(fl_Float_Input float_input){-    return (fl_Group) (static_cast<Fl_Float_Input*>(float_input))->parent();+    return (fl_Group) (static_cast<Fl_DerivedFloat_Input*>(float_input))->parent();   }   FL_EXPORT_C(void,Fl_Float_Input_set_parent)(fl_Float_Input float_input,fl_Group grp){-    (static_cast<Fl_Float_Input*>(float_input))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Float_Input_type)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->type();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->type();   }   FL_EXPORT_C(void,Fl_Float_Input_set_type)(fl_Float_Input float_input,uchar t){-    (static_cast<Fl_Float_Input*>(float_input))->type(t);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->type(t);   }    FL_EXPORT_C(int,Fl_Float_Input_x)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->x();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->x();   }   FL_EXPORT_C(int,Fl_Float_Input_y)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->y();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->y();   }   FL_EXPORT_C(int,Fl_Float_Input_w)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->w();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->w();   }   FL_EXPORT_C(int,Fl_Float_Input_h)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->h();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->h();   }   FL_EXPORT_C(void,Fl_Float_Input_set_align)(fl_Float_Input float_input, Fl_Align alignment){-    (static_cast<Fl_Float_Input*>(float_input))->align(alignment);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Float_Input_align)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->align();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Float_Input_box)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->box();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->box();   }   FL_EXPORT_C(void,Fl_Float_Input_set_box)(fl_Float_Input float_input,Fl_Boxtype new_box){-    (static_cast<Fl_Float_Input*>(float_input))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Float_Input_color)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->color();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->color();   }   FL_EXPORT_C(void,Fl_Float_Input_set_color)(fl_Float_Input float_input,Fl_Color bg){-    (static_cast<Fl_Float_Input*>(float_input))->color(bg);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->color(bg);   }   FL_EXPORT_C(void,Fl_Float_Input_set_color_with_bg_sel)(fl_Float_Input float_input,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Float_Input*>(float_input))->color(bg,a);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Float_Input_selection_color)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->selection_color();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->selection_color();   }   FL_EXPORT_C(void,Fl_Float_Input_set_selection_color)(fl_Float_Input float_input,Fl_Color a){-    (static_cast<Fl_Float_Input*>(float_input))->selection_color(a);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Float_Input_label)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->label();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->label();   }   FL_EXPORT_C(void,Fl_Float_Input_copy_label)(fl_Float_Input float_input,const char* new_label){-    (static_cast<Fl_Float_Input*>(float_input))->copy_label(new_label);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Float_Input_set_label)(fl_Float_Input float_input,const char* text){-    (static_cast<Fl_Float_Input*>(float_input))->label(text);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Float_Input_labeltype)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->labeltype();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->labeltype();   }   FL_EXPORT_C(void,Fl_Float_Input_set_labeltype)(fl_Float_Input float_input,Fl_Labeltype a){-    (static_cast<Fl_Float_Input*>(float_input))->labeltype(a);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->labeltype(a);   }   FL_EXPORT_C(Fl_Color ,Fl_Float_Input_labelcolor)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->labelcolor();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Float_Input_labelfont)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->labelfont();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->labelfont();   }   FL_EXPORT_C(void,Fl_Float_Input_set_labelfont)(fl_Float_Input float_input,Fl_Font c){-    (static_cast<Fl_Float_Input*>(float_input))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Float_Input_labelsize)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->labelsize();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->labelsize();   }   FL_EXPORT_C(void,Fl_Float_Input_set_labelsize)(fl_Float_Input float_input,Fl_Fontsize pix){-    (static_cast<Fl_Float_Input*>(float_input))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Float_Input_image)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->image();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->image();   }   FL_EXPORT_C(void,Fl_Float_Input_set_image)(fl_Float_Input float_input,fl_Image pix){-    (static_cast<Fl_Float_Input*>(float_input))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Float_Input_deimage)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->deimage();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->deimage();   }   FL_EXPORT_C(void,Fl_Float_Input_set_deimage)(fl_Float_Input float_input,fl_Image pix){-    (static_cast<Fl_Float_Input*>(float_input))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Float_Input_tooltip)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->tooltip();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->tooltip();   }   FL_EXPORT_C(void,Fl_Float_Input_copy_tooltip)(fl_Float_Input float_input,const char* text){-    (static_cast<Fl_Float_Input*>(float_input))->copy_tooltip(text);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Float_Input_set_tooltip)(fl_Float_Input float_input,const char* text){-    (static_cast<Fl_Float_Input*>(float_input))->tooltip(text);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Float_Input_set_callback_with_user_data)(fl_Float_Input float_input,fl_Callback* cb,void* p){-    Fl_Float_Input* castedInput_dow = (static_cast<Fl_Float_Input*>(float_input));+    Fl_DerivedFloat_Input* castedInput_dow = (static_cast<Fl_DerivedFloat_Input*>(float_input));     new C_to_Fl_Callback(castedInput_dow, cb, p);   }   FL_EXPORT_C(void,Fl_Float_Input_set_callback)(fl_Float_Input float_input,fl_Callback* cb){-    Fl_Float_Input* castedInput_dow = (static_cast<Fl_Float_Input*>(float_input));+    Fl_DerivedFloat_Input* castedInput_dow = (static_cast<Fl_DerivedFloat_Input*>(float_input));     new C_to_Fl_Callback(castedInput_dow, cb);   }   FL_EXPORT_C(void*,Fl_Float_Input_user_data)(fl_Float_Input float_input){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Float_Input*>(float_input))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedFloat_Input*>(float_input))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Float_Input*>(float_input))->user_data();+      return (static_cast<Fl_DerivedFloat_Input*>(float_input))->user_data();     }   }   FL_EXPORT_C(void,Fl_Float_Input_set_user_data)(fl_Float_Input float_input,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Float_Input*>(float_input))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedFloat_Input*>(float_input))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Float_Input*>(float_input))->user_data(stored_cb);+      (static_cast<Fl_DerivedFloat_Input*>(float_input))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Float_Input*>(float_input))->user_data(v);+      (static_cast<Fl_DerivedFloat_Input*>(float_input))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Float_Input_argument)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->argument();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->argument();   }   FL_EXPORT_C(void,Fl_Float_Input_set_argument)(fl_Float_Input float_input,long v){-    (static_cast<Fl_Float_Input*>(float_input))->argument(v);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Float_Input_when)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->when();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->when();   }   FL_EXPORT_C(void,Fl_Float_Input_set_when)(fl_Float_Input float_input,uchar i){-    (static_cast<Fl_Float_Input*>(float_input))->when(i);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Float_Input_visible)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->visible();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->visible();   }   FL_EXPORT_C(int,Fl_Float_Input_visible_r)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->visible_r();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->visible_r();   }   FL_EXPORT_C(void,Fl_Float_Input_set_visible)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->visible();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->visible();   }   FL_EXPORT_C(void,Fl_Float_Input_clear_visible)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->clear_visible();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Float_Input_active)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->active();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->active();   }   FL_EXPORT_C(int,Fl_Float_Input_active_r)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->active_r();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->active_r();   }   FL_EXPORT_C(void,Fl_Float_Input_activate)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->activate();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->activate();   }   FL_EXPORT_C(void,Fl_Float_Input_deactivate)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->deactivate();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Float_Input_output)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->output();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->output();   }   FL_EXPORT_C(void,Fl_Float_Input_set_output)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->output();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->output();   }   FL_EXPORT_C(void,Fl_Float_Input_clear_output)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->clear_output();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Float_Input_takesevents)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->takesevents();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->takesevents();   }   FL_EXPORT_C(void,Fl_Float_Input_set_changed)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->changed();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->changed();   }   FL_EXPORT_C(void,Fl_Float_Input_clear_changed)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->clear_changed();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->clear_changed();   }   FL_EXPORT_C(int,Fl_Float_Input_take_focus)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->take_focus();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->take_focus();   }   FL_EXPORT_C(void,Fl_Float_Input_set_visible_focus)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->set_visible_focus();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Float_Input_clear_visible_focus)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->clear_visible_focus();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Float_Input_modify_visible_focus)(fl_Float_Input float_input,int v){-    (static_cast<Fl_Float_Input*>(float_input))->visible_focus(v);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Float_Input_visible_focus)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->visible_focus();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->visible_focus();   }   FL_EXPORT_C(void,Fl_Float_Input_do_callback)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->do_callback();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->do_callback();   }   FL_EXPORT_C(void,Fl_Float_Input_do_callback_with_widget_and_user_data)(fl_Float_Input float_input,fl_Widget w,long arg){-    (static_cast<Fl_Float_Input*>(float_input))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Float_Input_do_callback_with_widget_and_default_user_data)(fl_Float_Input float_input,fl_Widget w){-    (static_cast<Fl_Float_Input*>(float_input))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Float_Input_contains)(fl_Float_Input float_input,fl_Widget w){-    return (static_cast<Fl_Float_Input*>(float_input))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Float_Input_inside)(fl_Float_Input float_input,fl_Widget w){-    return (static_cast<Fl_Float_Input*>(float_input))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Float_Input_redraw)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->redraw();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->redraw();   }   FL_EXPORT_C(void,Fl_Float_Input_redraw_label)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->redraw_label();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Float_Input_damage)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->damage();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->damage();   }   FL_EXPORT_C(void,Fl_Float_Input_clear_damage_with_bitmask)(fl_Float_Input float_input,uchar c){-    (static_cast<Fl_Float_Input*>(float_input))->clear_damage(c);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Float_Input_clear_damage)(fl_Float_Input float_input){-    (static_cast<Fl_Float_Input*>(float_input))->clear_damage();+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->clear_damage();   }   FL_EXPORT_C(void,Fl_Float_Input_damage_with_text)(fl_Float_Input float_input,uchar c){-    (static_cast<Fl_Float_Input*>(float_input))->damage(c);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->damage(c);   }   FL_EXPORT_C(void,Fl_Float_Input_damage_inside_widget)(fl_Float_Input float_input,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Float_Input*>(float_input))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Float_Input_draw_label_with_xywh_alignment)(fl_Float_Input float_input,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Float_Input*>(float_input))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Float_Input_measure_label)(fl_Float_Input float_input,int* ww,int* hh){-    (static_cast<Fl_Float_Input*>(float_input))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->measure_label(*ww,*hh);   }   FL_EXPORT_C(fl_Window,    Fl_Float_Input_window)(fl_Float_Input float_input){-    return (fl_Window) (static_cast<Fl_Float_Input*>(float_input))->window();+    return (fl_Window) (static_cast<Fl_DerivedFloat_Input*>(float_input))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Float_Input_top_window)(fl_Float_Input float_input){-    return (fl_Window) (static_cast<Fl_Float_Input*>(float_input))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedFloat_Input*>(float_input))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Float_Input_top_window_offset)(fl_Float_Input float_input, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Float_Input*>(float_input))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedFloat_Input*>(float_input))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Float_Input_as_group)(fl_Float_Input float_input){-    return (fl_Group) (static_cast<Fl_Float_Input*>(float_input))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedFloat_Input*>(float_input))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Float_Input_as_gl_window)(fl_Float_Input float_input){-    return (fl_Gl_Window) (static_cast<Fl_Float_Input*>(float_input))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedFloat_Input*>(float_input))->as_gl_window();   } -  /* Fl_Float_Input specific functions */-  FL_EXPORT_C(fl_Input, Fl_Float_Input_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Float_Input* float_input = new Fl_Float_Input(x,y,w,h,label);+  /* Fl_DerivedFloat_Input specific functions */+  FL_EXPORT_C(fl_Input, Fl_Float_Input_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedFloat_Input* float_input = new Fl_DerivedFloat_Input(x,y,w,h,label,dfps);     return (static_cast<fl_Input>(float_input));   }-  FL_EXPORT_C(fl_Input, Fl_Float_Input_New)(int x, int y, int w, int h) {-    Fl_Float_Input* float_input = new Fl_Float_Input(x,y,w,h,0);+  FL_EXPORT_C(fl_Input, Fl_Float_Input_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedFloat_Input* float_input = new Fl_DerivedFloat_Input(x,y,w,h,0,dfps);     return (static_cast<fl_Input>(float_input));   }   FL_EXPORT_C(void,Fl_Float_Input_Destroy)(fl_Float_Input float_input){-    delete (static_cast<Fl_Float_Input*>(float_input));+    delete (static_cast<Fl_DerivedFloat_Input*>(float_input));   }   FL_EXPORT_C(void,Fl_Float_Input_resize)(fl_Float_Input float_input,int X,int Y,int W,int H){-    (static_cast<Fl_Float_Input*>(float_input))->resize(X,Y,W,H);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->resize(X,Y,W,H);   }   FL_EXPORT_C(int,Fl_Float_Input_set_value)(fl_Float_Input float_input,const char* text){-    return (static_cast<Fl_Float_Input*>(float_input))->value(text);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->value(text);   }   FL_EXPORT_C(int,Fl_Float_Input_set_value_with_length)(fl_Float_Input float_input,const char* text,int length){-    return (static_cast<Fl_Float_Input*>(float_input))->value(text,length);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->value(text,length);   }   FL_EXPORT_C(int,Fl_Float_Input_static_value)(fl_Float_Input float_input,const char* text){-    return (static_cast<Fl_Float_Input*>(float_input))->static_value(text);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->static_value(text);   }   FL_EXPORT_C(int,Fl_Float_Input_static_value_with_length)(fl_Float_Input float_input,const char* text,int length){-    return (static_cast<Fl_Float_Input*>(float_input))->static_value(text,length);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->static_value(text,length);   }   FL_EXPORT_C(const char*,Fl_Float_Input_value)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->value();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->value();   }   FL_EXPORT_C(Fl_Char,Fl_Float_Input_index)(fl_Float_Input float_input,int i){-    return (static_cast<Fl_Float_Input*>(float_input))->index(i);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->index(i);   }   FL_EXPORT_C(int,Fl_Float_Input_size)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->size();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->size();   }   FL_EXPORT_C(void,Fl_Float_Input_set_size)(fl_Float_Input float_input,int W,int H){-    (static_cast<Fl_Float_Input*>(float_input))->size(W,H);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->size(W,H);   }   FL_EXPORT_C(int,Fl_Float_Input_maximum_size)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->maximum_size();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->maximum_size();   }   FL_EXPORT_C(void,Fl_Float_Input_set_maximum_size)(fl_Float_Input float_input,int m){-    (static_cast<Fl_Float_Input*>(float_input))->maximum_size(m);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->maximum_size(m);   }   FL_EXPORT_C(int,Fl_Float_Input_position)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->position();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->position();   }   FL_EXPORT_C(int,Fl_Float_Input_mark)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->mark();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->mark();   }   FL_EXPORT_C(int,Fl_Float_Input_set_position_with_cursor_mark)(fl_Float_Input float_input,int p,int m){-    return (static_cast<Fl_Float_Input*>(float_input))->position(p,m);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->position(p,m);   }   FL_EXPORT_C(int,Fl_Float_Input_set_position_n_n)(fl_Float_Input float_input,int p){-    return (static_cast<Fl_Float_Input*>(float_input))->position(p);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->position(p);   }   FL_EXPORT_C(int,Fl_Float_Input_set_mark)(fl_Float_Input float_input,int m){-    return (static_cast<Fl_Float_Input*>(float_input))->mark(m);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->mark(m);   }   FL_EXPORT_C(int,Fl_Float_Input_replace)(fl_Float_Input float_input,int b,int e,const char* text){-    return (static_cast<Fl_Float_Input*>(float_input))->replace(b,e,text);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->replace(b,e,text);   }   FL_EXPORT_C(int,Fl_Float_Input_replace_with_ilen)(fl_Float_Input float_input,int b,int e,const char* text,int ilen){-    return (static_cast<Fl_Float_Input*>(float_input))->replace(b,e,text,ilen);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->replace(b,e,text,ilen);   }   FL_EXPORT_C(int,Fl_Float_Input_cut)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->cut();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->cut();   }   FL_EXPORT_C(int,Fl_Float_Input_cut_bytes)(fl_Float_Input float_input,int n){-    return (static_cast<Fl_Float_Input*>(float_input))->cut(n);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->cut(n);   }   FL_EXPORT_C(int,Fl_Float_Input_cut_range)(fl_Float_Input float_input,int a,int b){-    return (static_cast<Fl_Float_Input*>(float_input))->cut(a,b);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->cut(a,b);   }   FL_EXPORT_C(int,Fl_Float_Input_insert)(fl_Float_Input float_input,const char* t){-    return (static_cast<Fl_Float_Input*>(float_input))->insert(t);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->insert(t);   }   FL_EXPORT_C(int,Fl_Float_Input_insert_with_length)(fl_Float_Input float_input,const char* t,int l){-    return (static_cast<Fl_Float_Input*>(float_input))->insert(t,l);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->insert(t,l);   }   FL_EXPORT_C(int,Fl_Float_Input_copy)(fl_Float_Input float_input,int clipboard){-    return (static_cast<Fl_Float_Input*>(float_input))->copy(clipboard);+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->copy(clipboard);   }   FL_EXPORT_C(int,Fl_Float_Input_undo)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->undo();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->undo();   }   FL_EXPORT_C(int,Fl_Float_Input_copy_cuts)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->copy_cuts();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->copy_cuts();   }   FL_EXPORT_C(int,Fl_Float_Input_shortcut)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->shortcut();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->shortcut();   }   FL_EXPORT_C(void,Fl_Float_Input_set_shortcut)(fl_Float_Input float_input,int s){-    (static_cast<Fl_Float_Input*>(float_input))->shortcut(s);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->shortcut(s);   }   FL_EXPORT_C(Fl_Font,Fl_Float_Input_textfont)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->textfont();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->textfont();   }   FL_EXPORT_C(void,Fl_Float_Input_set_textfont)(fl_Float_Input float_input,Fl_Font s){-    (static_cast<Fl_Float_Input*>(float_input))->textfont(s);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->textfont(s);   }   FL_EXPORT_C(Fl_Fontsize,Fl_Float_Input_textsize)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->textsize();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->textsize();   }   FL_EXPORT_C(void,Fl_Float_Input_set_textsize)(fl_Float_Input float_input,Fl_Fontsize s){-    (static_cast<Fl_Float_Input*>(float_input))->textsize(s);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->textsize(s);   }   FL_EXPORT_C(Fl_Color,Fl_Float_Input_textcolor)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->textcolor();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->textcolor();   }   FL_EXPORT_C(void,Fl_Float_Input_set_textcolor)(fl_Float_Input float_input,Fl_Color n){-    (static_cast<Fl_Float_Input*>(float_input))->textcolor(n);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->textcolor(n);   }   FL_EXPORT_C(Fl_Color,Fl_Float_Input_cursor_color)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->cursor_color();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->cursor_color();   }   FL_EXPORT_C(void,Fl_Float_Input_set_cursor_color)(fl_Float_Input float_input,Fl_Color n){-    (static_cast<Fl_Float_Input*>(float_input))->cursor_color(n);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->cursor_color(n);   }   FL_EXPORT_C(int,Fl_Float_Input_input_type)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->input_type();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->input_type();   }   FL_EXPORT_C(void,Fl_Float_Input_set_input_type)(fl_Float_Input float_input,int t){-    (static_cast<Fl_Float_Input*>(float_input))->input_type(t);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->input_type(t);   }   FL_EXPORT_C(int,Fl_Float_Input_readonly)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->readonly();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->readonly();   }   FL_EXPORT_C(void,Fl_Float_Input_set_readonly)(fl_Float_Input float_input,int b){-    (static_cast<Fl_Float_Input*>(float_input))->readonly(b);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->readonly(b);   }   FL_EXPORT_C(int,Fl_Float_Input_wrap)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->wrap();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->wrap();   }   FL_EXPORT_C(void,Fl_Float_Input_set_wrap)(fl_Float_Input float_input,int b){-    (static_cast<Fl_Float_Input*>(float_input))->wrap(b);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->wrap(b);   }   FL_EXPORT_C(void,Fl_Float_Input_tab_nav)(fl_Float_Input float_input,int val){-    (static_cast<Fl_Float_Input*>(float_input))->tab_nav(val);+    (static_cast<Fl_DerivedFloat_Input*>(float_input))->tab_nav(val);   }   FL_EXPORT_C(int,Fl_Float_Input_set_tab_nav)(fl_Float_Input float_input){-    return (static_cast<Fl_Float_Input*>(float_input))->tab_nav();+    return (static_cast<Fl_DerivedFloat_Input*>(float_input))->tab_nav();   } #ifdef __cplusplus }
c-src/Fl_Float_InputC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Float_Input.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedFloat_Input : public Fl_Float_Input {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedFloat_Input(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedFloat_Input();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Float_Input_handle,(fl_Float_Input self, int event));@@ -95,8 +102,8 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Float_Input_as_gl_window,(fl_Float_Input float_input));   /* Fl_Float_Input specific functions */   FL_EXPORT_C_HEADER(int,Fl_Float_Input_handle,(fl_Float_Input float_input, int event));-  FL_EXPORT_C(fl_Float_Input, Fl_Float_Input_New_WithLabel)(int x, int y, int w, int h, const char* label);-  FL_EXPORT_C(fl_Float_Input, Fl_Float_Input_New)(int x, int y, int w, int h);+  FL_EXPORT_C(fl_Float_Input, Fl_Float_Input_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps);+  FL_EXPORT_C(fl_Float_Input, Fl_Float_Input_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps);   FL_EXPORT_C_HEADER(void,Fl_Float_Input_Destroy,(fl_Float_Input float_input));    FL_EXPORT_C_HEADER(void,Fl_Float_Input_resize,(fl_Float_Input float_input, int X, int Y, int W, int H));
c-src/Fl_Gl_WindowC.cpp view
@@ -29,7 +29,13 @@ } void Fl_DerivedGl_Window::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Gl_Window) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Gl_Window)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedGl_Window::draw_box(){@@ -180,9 +186,12 @@     ptr->destroy_data = NULL;     return ptr;   }-  FL_EXPORT_C(int,Fl_Gl_Window_handle)(fl_Gl_Window self, int event){+  FL_EXPORT_C(int,Fl_DerivedGl_Window_handle)(fl_Gl_Window self, int event){     return (static_cast<Fl_DerivedGl_Window*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_Gl_Window_handle)(fl_Gl_Window self, int event){+    return (static_cast<Fl_Gl_Window*>(self))->Fl_Gl_Window::handle(event);+  }   FL_EXPORT_C(int,Fl_Gl_Window_handle_super)(fl_Gl_Window self, int event){     return (static_cast<Fl_DerivedGl_Window*>(self))->Fl_Gl_Window::handle(event);   }@@ -590,9 +599,12 @@     Fl_DerivedGl_Window* gl_window = new Fl_DerivedGl_Window(x,y,w,h,0,funcs);     return (fl_Gl_Window)gl_window;   }-  FL_EXPORT_C(void, Fl_Gl_Window_Destroy)(fl_Gl_Window gl_window){+  FL_EXPORT_C(void, Fl_DerivedGl_Window_Destroy)(fl_Gl_Window gl_window){     delete (static_cast<Fl_DerivedGl_Window*>(gl_window));   }+  FL_EXPORT_C(void, Fl_Gl_Window_Destroy)(fl_Gl_Window gl_window){+    delete (static_cast<Fl_Gl_Window*>(gl_window));+  }   FL_EXPORT_C(unsigned int,Fl_Gl_Window_changed)(fl_Gl_Window win){     return (static_cast<Fl_DerivedGl_Window*>(win))->changed();   }@@ -605,29 +617,41 @@   FL_EXPORT_C(void,Fl_Gl_Window_fullscreen_off_with_resize)(fl_Gl_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedGl_Window*>(win))->fullscreen_off(X,Y,W,H);   }-  FL_EXPORT_C(void,Fl_Gl_Window_hide)(fl_Gl_Window win){+  FL_EXPORT_C(void,Fl_DerivedGl_Window_hide)(fl_Gl_Window win){     (static_cast<Fl_DerivedGl_Window*>(win))->hide();   }+  FL_EXPORT_C(void,Fl_Gl_Window_hide)(fl_Gl_Window win){+    (static_cast<Fl_Gl_Window*>(win))->Fl_Gl_Window::hide();+  }   FL_EXPORT_C(void,Fl_Gl_Window_hide_super)(fl_Gl_Window win){     (static_cast<Fl_DerivedGl_Window*>(win))->hide_super();   }-  FL_EXPORT_C(void,Fl_Gl_Window_flush)(fl_Gl_Window win){+  FL_EXPORT_C(void,Fl_DerivedGl_Window_flush)(fl_Gl_Window win){     (static_cast<Fl_DerivedGl_Window*>(win))->flush();   }+  FL_EXPORT_C(void,Fl_Gl_Window_flush)(fl_Gl_Window win){+    (static_cast<Fl_Gl_Window*>(win))->Fl_Gl_Window::flush();+  }   FL_EXPORT_C(void,Fl_Gl_Window_flush_super)(fl_Gl_Window win){     (static_cast<Fl_DerivedGl_Window*>(win))->flush_super();   }-  FL_EXPORT_C(void,Fl_Gl_Window_show)(fl_Gl_Window win){+  FL_EXPORT_C(void,Fl_DerivedGl_Window_show)(fl_Gl_Window win){     (static_cast<Fl_DerivedGl_Window*>(win))->show();   }+  FL_EXPORT_C(void,Fl_Gl_Window_show)(fl_Gl_Window win){+    (static_cast<Fl_Gl_Window*>(win))->Fl_Gl_Window::show();+  }   FL_EXPORT_C(void,Fl_Gl_Window_show_super)(fl_Gl_Window win){     (static_cast<Fl_DerivedGl_Window*>(win))->show_super();   }   FL_EXPORT_C(void,Fl_Gl_Window_show_with_args)(fl_Gl_Window win,int argc,char** argv){     (static_cast<Fl_DerivedGl_Window*>(win))->show(argc,argv);   }-  FL_EXPORT_C(void,Fl_Gl_Window_resize)(fl_Gl_Window win,int X,int Y,int W,int H){+  FL_EXPORT_C(void,Fl_DerivedGl_Window_resize)(fl_Gl_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedGl_Window*>(win))->resize(X,Y,W,H);+  }+  FL_EXPORT_C(void,Fl_Gl_Window_resize)(fl_Gl_Window win,int X,int Y,int W,int H){+    (static_cast<Fl_Gl_Window*>(win))->Fl_Gl_Window::resize(X,Y,W,H);   }   FL_EXPORT_C(void,Fl_Gl_Window_resize_super)(fl_Gl_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedGl_Window*>(win))->resize_super(X,Y,W,H);
c-src/Fl_Gl_WindowC.h view
@@ -15,6 +15,7 @@   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(fl_Gl_Window_Virtual_Funcs*,Fl_Gl_Window_default_virtual_funcs,());   FL_EXPORT_C_HEADER(int,Fl_Gl_Window_handle,(fl_Gl_Window self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedGl_Window_handle,(fl_Gl_Window self, int event));   FL_EXPORT_C_HEADER(int,Fl_Gl_Window_handle_super,(fl_Gl_Window self, int event));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_draw_super,(fl_Gl_Window self));   FL_EXPORT_C_HEADER(fl_Group,Fl_Gl_Window_parent,(fl_Gl_Window win));@@ -188,10 +189,14 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Gl_Window_NewXY,(int x, int y, int w, int h));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_OverriddenGl_Window_NewXY,(int x, int y, int w, int h,fl_Gl_Window_Virtual_Funcs* funcs));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_hide,(fl_Gl_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGl_Window_hide,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_show,(fl_Gl_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGl_Window_show,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_show_with_args,(fl_Gl_Window win, int argc, char** argv));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_Destroy,(fl_Gl_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGl_Window_Destroy,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_resize,(fl_Gl_Window win, int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGl_Window_resize,(fl_Gl_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_iconize,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(int ,Fl_Gl_Window_handle,(fl_Gl_Window win, int event));   FL_EXPORT_C_HEADER(void ,Fl_Gl_Window_set_border,(fl_Gl_Window win, int b));@@ -277,6 +282,7 @@   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_hide_super,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_flush_super,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_flush,(fl_Gl_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGl_Window_flush,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_show_super,(fl_Gl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Gl_Window_resize_super,(fl_Gl_Window win,int X,int Y,int W,int H));
c-src/Fl_GroupC.cpp view
@@ -90,30 +90,42 @@ EXPORT { #endif   FL_EXPORT_C(int,Fl_Group_handle)(fl_Group self, int event){-    return (static_cast<Fl_DerivedGroup*>(self))->handle(event);+    return (static_cast<Fl_Group*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_DerivedGroup_handle)(fl_Group self, int event){+    return (static_cast<Fl_DerivedGroup*>(self))->Fl_Group::handle(event);+  }   FL_EXPORT_C(int,Fl_Group_handle_super)(fl_Group self, int event){     return (static_cast<Fl_DerivedGroup*>(self))->handle_super(event);   }   FL_EXPORT_C(void, Fl_Group_resize)(fl_Group self, int x, int y, int w, int h){+    (static_cast<Fl_Group*>(self))->Fl_Group::resize(x, y, w, h);+  }+  FL_EXPORT_C(void, Fl_DerivecGroup_resize)(fl_Group self, int x, int y, int w, int h){     (static_cast<Fl_DerivedGroup*>(self))->resize(x, y, w, h);   }   FL_EXPORT_C(void, Fl_Group_resize_super)(fl_Group self, int x, int y, int w, int h){     (static_cast<Fl_DerivedGroup*>(self))->resize_super(x, y, w, h);   }-  FL_EXPORT_C(void,Fl_Group_draw)(fl_Group self){+  FL_EXPORT_C(void,Fl_DerivedGroup_draw)(fl_Group self){     (static_cast<Fl_DerivedGroup*>(self))->draw();   }   FL_EXPORT_C(void,Fl_Group_draw_super)(fl_Group self){     (static_cast<Fl_DerivedGroup*>(self))->draw_super();   }   FL_EXPORT_C(void,Fl_Group_show)(fl_Group self){+    (static_cast<Fl_Group*>(self))->Fl_Group::show();+  }+  FL_EXPORT_C(void,Fl_DerivedGroup_show)(fl_Group self){     (static_cast<Fl_DerivedGroup*>(self))->show();   }   FL_EXPORT_C(void,Fl_Group_show_super)(fl_Group self){     (static_cast<Fl_DerivedGroup*>(self))->show_super();   }   FL_EXPORT_C(void,Fl_Group_hide)(fl_Group self){+    (static_cast<Fl_Group*>(self))->Fl_Group::hide();+  }+  FL_EXPORT_C(void,Fl_DerivedGroup_hide)(fl_Group self){     (static_cast<Fl_DerivedGroup*>(self))->hide();   }   FL_EXPORT_C(void,Fl_Group_hide_super)(fl_Group self){@@ -478,6 +490,9 @@     return (fl_Group)w;   }   FL_EXPORT_C(void, Fl_Group_Destroy)(fl_Group group){+    delete (static_cast<Fl_Group*>(group));+  }+  FL_EXPORT_C(void, Fl_DerivedGroup_Destroy)(fl_Group group){     delete (static_cast<Fl_DerivedGroup*>(group));   } #ifdef __cplusplus
c-src/Fl_GroupC.h view
@@ -35,6 +35,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Group_handle,(fl_Group self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedGroup_handle,(fl_Group self, int event));   FL_EXPORT_C_HEADER(int,Fl_Group_handle_super,(fl_Group self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Group_parent,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_set_parent,(fl_Group group, fl_Group grp));@@ -86,7 +87,9 @@   FL_EXPORT_C_HEADER(int,Fl_Group_visible_r,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_show_super,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_show,(fl_Group group));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGroup_show,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_hide_super,(fl_Group group));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGroup_hide,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_hide,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_set_visible,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_clear_visible,(fl_Group group));@@ -125,6 +128,7 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Group_as_gl_window,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_resize_super,(fl_Group group,int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Group_resize,(fl_Group group,int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGroup_resize,(fl_Group group,int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void ,Fl_Group_resize_super,(fl_Group self, int x, int y, int w, int h));    /* Fl_Group static members */@@ -137,7 +141,7 @@   FL_EXPORT_C_HEADER(void,Fl_Group_draw_outside_label,(fl_Group group, fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Group_update_child,(fl_Group group, fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Group_begin,(fl_Group group));-  FL_EXPORT_C_HEADER(void,Fl_Group_draw,(fl_Group group));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGroup_draw,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_draw_super,(fl_Group group));   FL_EXPORT_C_HEADER(void,Fl_Group_end,(fl_Group group));   FL_EXPORT_C_HEADER(int,Fl_Group_find,(fl_Group group, fl_Widget w));@@ -164,6 +168,7 @@   FL_EXPORT_C_HEADER(fl_Group,Fl_OverriddenGroup_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Group,Fl_OverriddenGroup_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Group_Destroy,(fl_Group group));+  FL_EXPORT_C_HEADER(void,Fl_DerivedGroup_Destroy,(fl_Group group)); #ifdef __cplusplus } #endif
c-src/Fl_ImageC.cpp view
@@ -14,11 +14,16 @@ void Fl_DerivedImage::set_other_data(void* data){   this->other_data = data; }-void Fl_DerivedImage::destroy_data(){-  if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Image) this);+  void Fl_DerivedImage::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps,num_fps,fps);+      this->overriddenFuncs->destroy_data((fl_Image)this,res);+      if (fps) { free(fps); }+      free(res);+    }   }-} void Fl_DerivedImage::color_average(Fl_Color c, float i){   if (overriddenFuncs->color_average){     this->overriddenFuncs->color_average((fl_Image) this,c, i );
c-src/Fl_InputC.cpp view
@@ -11,6 +11,7 @@     other_data = (void*)0;   }   Fl_DerivedInput::~Fl_DerivedInput(){+    this->destroy_data();     free(overriddenFuncs);   }   void Fl_DerivedInput::draw(){@@ -22,6 +23,17 @@     }   } +  void Fl_DerivedInput::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Input)this,res);+      if (fps) { free(fps); }+      free(res);+    }+  }   void Fl_DerivedInput::draw_super(){     Fl_Input::draw();   }
c-src/Fl_InputC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     void drawtext(int,int,int,int);     Fl_DerivedInput(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedInput(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);
c-src/Fl_Int_InputC.cpp view
@@ -10,9 +10,21 @@     other_data = 0;   } Fl_DerivedInt_Input::~Fl_DerivedInt_Input(){+  this->destroy_data();   free(overriddenFuncs);   free(other_data); }+void Fl_DerivedInt_Input::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Int_Input)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} void* Fl_DerivedInt_Input::get_other_data(){   return this->other_data; }@@ -428,13 +440,15 @@   FL_EXPORT_C(void, Fl_Int_Input_set_other_data)(fl_Int_Input int_input, void* v){     (static_cast<Fl_DerivedInt_Input*>(int_input))->set_other_data(v);   }-  FL_EXPORT_C(fl_Int_Input, Fl_Int_Input_New_WithLabel)(int x, int y, int w, int h, const char* label) {+  FL_EXPORT_C(fl_Int_Input, Fl_Int_Input_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {     fl_Int_Input_Virtual_Funcs* funcs = Fl_Int_Input_default_virtual_funcs();+    funcs->destroy_data = dfps;     Fl_DerivedInt_Input* int_input = new Fl_DerivedInt_Input(x,y,w,h,label,funcs);     return (static_cast<fl_Int_Input>(int_input));   }-  FL_EXPORT_C(fl_Int_Input, Fl_Int_Input_New)(int x, int y, int w, int h) {+  FL_EXPORT_C(fl_Int_Input, Fl_Int_Input_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {     fl_Int_Input_Virtual_Funcs* funcs = Fl_Int_Input_default_virtual_funcs();+    funcs->destroy_data = dfps;     Fl_DerivedInt_Input* int_input = new Fl_DerivedInt_Input(x,y,w,h,0,funcs);     return (static_cast<fl_Int_Input>(int_input));   }
c-src/Fl_Int_InputC.h view
@@ -116,6 +116,7 @@     void draw_focus(Fl_Boxtype t, int x,int y,int w,int h);     void draw_label();     void draw_label(int x,int y,int w,int h,Fl_Align alignment);+    void destroy_data();     virtual void draw();     virtual int handle(int event);     virtual void resize(int x, int y, int w, int h);@@ -142,8 +143,8 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Int_Input_as_gl_window,(fl_Int_Input int_input));   FL_EXPORT_C_HEADER(void*,Fl_Int_Input_other_data,(fl_Int_Input int_input));   FL_EXPORT_C_HEADER(void,Fl_Int_Input_set_other_data,(fl_Int_Input int_input, void* v));-  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Int_Input_New_WithLabel,(int x, int y, int w, int h, const char* label));-  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Int_Input_New,(int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Int_Input_New_WithLabel,(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Int_Input_New,(int x, int y, int w, int h, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Int_Input_Destroy,(fl_Int_Input int_input));    FL_EXPORT_C_HEADER(void,Fl_Int_Input_resize,(fl_Int_Input int_input, int X, int Y, int W, int H));
c-src/Fl_Light_ButtonC.cpp view
@@ -11,8 +11,21 @@     other_data = (void*)0;   }   Fl_DerivedLight_Button::~Fl_DerivedLight_Button(){+    this->destroy_data();     free(overriddenFuncs);   }++  void Fl_DerivedLight_Button::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Light_Button)this,res);+      if (fps) { free(fps); }+      free(res);+    }+  }   void Fl_DerivedLight_Button::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Light_Button) this);@@ -389,32 +402,47 @@     Fl_DerivedLight_Button* w = new Fl_DerivedLight_Button(X,Y,W,H,label,fs);     return (fl_Light_Button)w;   }-  FL_EXPORT_C(void, Fl_Light_Button_draw)(fl_Light_Button o){+  FL_EXPORT_C(void, Fl_DerivedLight_Button_draw)(fl_Light_Button o){     (static_cast<Fl_DerivedLight_Button*>(o))->draw();   }+  FL_EXPORT_C(void, Fl_Light_Button_draw)(fl_Light_Button o){+    (static_cast<Fl_DerivedLight_Button*>(o))->draw_super();+  }   FL_EXPORT_C(void, Fl_Light_Button_draw_super)(fl_Light_Button o){     (static_cast<Fl_DerivedLight_Button*>(o))->draw_super();   }-  FL_EXPORT_C(int, Fl_Light_Button_handle)(fl_Light_Button o, int event){+  FL_EXPORT_C(int, Fl_DerivedLight_Button_handle)(fl_Light_Button o, int event){     return (static_cast<Fl_DerivedLight_Button*>(o))->handle(event);   }+  FL_EXPORT_C(int, Fl_Light_Button_handle)(fl_Light_Button o, int event){+    return (static_cast<Fl_DerivedLight_Button*>(o))->Fl_Light_Button::handle(event);+  }   FL_EXPORT_C(int, Fl_Light_Button_handle_super)(fl_Light_Button o, int event){     return (static_cast<Fl_DerivedLight_Button*>(o))->handle_super(event);   }-  FL_EXPORT_C(void, Fl_Light_Button_resize)(fl_Light_Button o, int x, int y, int w, int h){+  FL_EXPORT_C(void, Fl_DerivedLight_Button_resize)(fl_Light_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedLight_Button*>(o))->resize(x,y,w,h);   }+  FL_EXPORT_C(void, Fl_Light_Button_resize)(fl_Light_Button o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedLight_Button*>(o))->Fl_Light_Button::resize(x,y,w,h);+  }   FL_EXPORT_C(void, Fl_Light_Button_resize_super)(fl_Light_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedLight_Button*>(o))->resize_super(x,y,w,h);   }-  FL_EXPORT_C(void, Fl_Light_Button_show)(fl_Light_Button o){+  FL_EXPORT_C(void, Fl_DerivedLight_Button_show)(fl_Light_Button o){     (static_cast<Fl_DerivedLight_Button*>(o))->show();   }+  FL_EXPORT_C(void, Fl_Light_Button_show)(fl_Light_Button o){+    (static_cast<Fl_DerivedLight_Button*>(o))->Fl_Light_Button::show();+  }   FL_EXPORT_C(void, Fl_Light_Button_show_super)(fl_Light_Button o){     (static_cast<Fl_DerivedLight_Button*>(o))->show_super();   }-  FL_EXPORT_C(void, Fl_Light_Button_hide)(fl_Light_Button o){+  FL_EXPORT_C(void, Fl_DerivedLight_Button_hide)(fl_Light_Button o){     (static_cast<Fl_DerivedLight_Button*>(o))->hide();+  }+  FL_EXPORT_C(void, Fl_Light_Button_hide)(fl_Light_Button o){+    (static_cast<Fl_DerivedLight_Button*>(o))->Fl_Light_Button::hide();   }   FL_EXPORT_C(void, Fl_Light_Button_hide_super)(fl_Light_Button o){     (static_cast<Fl_DerivedLight_Button*>(o))->hide_super();
c-src/Fl_Light_ButtonC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedLight_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedLight_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedLight_Button();@@ -30,6 +31,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Light_Button_handle,(fl_Light_Button self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedLight_Button_handle,(fl_Light_Button self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Light_Button_parent,(fl_Light_Button light_button));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_set_parent,(fl_Light_Button light_button, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Light_Button_type,(fl_Light_Button light_button));@@ -135,10 +137,13 @@   FL_EXPORT_C_HEADER(int,Fl_Light_Button_handle,(fl_Light_Button o, int event));   FL_EXPORT_C_HEADER(int,Fl_Light_Button_handle_super,(fl_Light_Button o, int event));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_resize,(fl_Light_Button o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedLight_Button_resize,(fl_Light_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_resize_super,(fl_Light_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_show,(fl_Light_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedLight_Button_show,(fl_Light_Button o));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_show_super,(fl_Light_Button o));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_hide,(fl_Light_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedLight_Button_hide,(fl_Light_Button o));   FL_EXPORT_C_HEADER(void,Fl_Light_Button_hide_super,(fl_Light_Button o));  #ifdef __cplusplus
c-src/Fl_Menu_BarC.cpp view
@@ -11,7 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedMenu_Bar::~Fl_DerivedMenu_Bar(){+    this->destroy_data();     free(overriddenFuncs);+  }++  void Fl_DerivedMenu_Bar::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Menu_Bar)this,res);+      if (fps) { free(fps); }+      free(res);+    }   }   void Fl_DerivedMenu_Bar::draw(){     if (this->overriddenFuncs->draw != NULL) {
c-src/Fl_Menu_BarC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedMenu_Bar(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedMenu_Bar(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedMenu_Bar();
c-src/Fl_Menu_ButtonC.cpp view
@@ -11,7 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedMenu_Button::~Fl_DerivedMenu_Button(){+    this->destroy_data();     free(overriddenFuncs);+  }++  void Fl_DerivedMenu_Button::destroy_data(){+    if (this->overriddenFuncs->destroy_data != NULL){+      fl_DoNotCall* fps = NULL;+      int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+      fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+      this->overriddenFuncs->destroy_data((fl_Menu_Button)this,res);+      if (fps) { free(fps); }+      free(res);+    }   }   void Fl_DerivedMenu_Button::draw(){     if (this->overriddenFuncs->draw != NULL) {
c-src/Fl_Menu_ButtonC.h view
@@ -24,6 +24,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedMenu_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedMenu_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedMenu_Button();
c-src/Fl_Menu_C.cpp view
@@ -21,7 +21,13 @@ } void Fl_DerivedMenu_::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Menu_) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Menu_)this,res);+    if (fps) { free(fps); }+    free(res);   } } @@ -118,26 +124,38 @@   FL_EXPORT_C(int,Fl_Menu__handle_super )(fl_Menu_ menu_,int event){     return (static_cast<Fl_Menu_*>(menu_))->Fl_Menu_::handle(event);   }-  FL_EXPORT_C(int,Fl_Menu__handle )(fl_Menu_ menu_, int event){+  FL_EXPORT_C(int,Fl_DerivedMenu__handle )(fl_Menu_ menu_, int event){     return (static_cast<Fl_DerivedMenu_*>(menu_))->handle(event);   }+  FL_EXPORT_C(int,Fl_Menu__handle )(fl_Menu_ menu_, int event){+    return (static_cast<Fl_DerivedMenu_*>(menu_))->Fl_Menu_::handle(event);+  }   FL_EXPORT_C(void,Fl_Menu__resize_super )(fl_Menu_ menu_,int x, int y, int w, int h){     (static_cast<Fl_Menu_*>(menu_))->Fl_Menu_::resize(x,y,w,h);   }-  FL_EXPORT_C(void,Fl_Menu__resize )(fl_Menu_ menu_,int x, int y, int w, int h){+  FL_EXPORT_C(void,Fl_DerivedMenu__resize )(fl_Menu_ menu_,int x, int y, int w, int h){     (static_cast<Fl_DerivedMenu_*>(menu_))->resize(x,y,w,h);   }+  FL_EXPORT_C(void,Fl_Menu__resize )(fl_Menu_ menu_,int x, int y, int w, int h){+    (static_cast<Fl_DerivedMenu_*>(menu_))->Fl_Menu_::resize(x,y,w,h);+  }   FL_EXPORT_C(void,Fl_Menu__show_super)(fl_Menu_ menu_){     (static_cast<Fl_Menu_*>(menu_))->Fl_Menu_::show();   }-  FL_EXPORT_C(void,Fl_Menu__show )(fl_Menu_ menu_){+  FL_EXPORT_C(void,Fl_DerivedMenu__show )(fl_Menu_ menu_){     (static_cast<Fl_DerivedMenu_*>(menu_))->show();   }+  FL_EXPORT_C(void,Fl_Menu__show )(fl_Menu_ menu_){+    (static_cast<Fl_DerivedMenu_*>(menu_))->Fl_Menu_::show();+  }   FL_EXPORT_C(void,Fl_Menu__hide_super)(fl_Menu_ menu_){     (static_cast<Fl_Menu_*>(menu_))->Fl_Menu_::hide();   }-  FL_EXPORT_C(void,Fl_Menu__hide )(fl_Menu_ menu_){+  FL_EXPORT_C(void,Fl_DerivedMenu__hide )(fl_Menu_ menu_){     (static_cast<Fl_DerivedMenu_*>(menu_))->hide();+  }+  FL_EXPORT_C(void,Fl_Menu__hide )(fl_Menu_ menu_){+    (static_cast<Fl_DerivedMenu_*>(menu_))->Fl_Menu_::hide();   }   FL_EXPORT_C(fl_Window,Fl_Menu__as_window_super)(fl_Menu_ menu_){     return (fl_Window)(static_cast<Fl_Menu_*>(menu_))->Fl_Menu_::as_window();
c-src/Fl_Menu_C.h view
@@ -42,6 +42,7 @@   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Menu__handle_super,(fl_Group self, int event));   FL_EXPORT_C_HEADER(int,Fl_Menu__handle,(fl_Group self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedMenu__handle,(fl_Group self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Menu__parent,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__set_parent,(fl_Menu_ menu_, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Menu__type,(fl_Menu_ menu_));@@ -99,8 +100,10 @@   FL_EXPORT_C_HEADER(int,Fl_Menu__visible_r,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__show_super,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__show,(fl_Menu_ menu_));+  FL_EXPORT_C_HEADER(void,Fl_DerivedMenu__show,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__hide_super,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__hide,(fl_Menu_ menu_));+  FL_EXPORT_C_HEADER(void,Fl_DerivedMenu__hide,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(fl_Window,Fl_Menu__as_window_super,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(fl_Window,Fl_Menu__as_window ,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__set_visible,(fl_Menu_ menu_));@@ -143,6 +146,7 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Menu__as_gl_window,(fl_Menu_ menu_));   FL_EXPORT_C_HEADER(void,Fl_Menu__resize_super,(fl_Menu_ menu_,int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Menu__resize,(fl_Menu_ menu_,int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,Fl_DerivedMenu__resize,(fl_Menu_ menu_,int X, int Y, int W, int H));    /* Fl_Menu_ specific */   FL_EXPORT_C_HEADER(void*,Fl_Menu__other_data,(fl_Menu_ menu_));
c-src/Fl_Menu_ItemC.cpp view
@@ -2,7 +2,7 @@  #ifdef __cplusplus EXPORT {-void FlDerivedMenu_Item::draw(int x, int y, int w, int h, Fl_Menu_* m, int selected) {+void Fl_DerivedMenu_Item::draw(int x, int y, int w, int h, Fl_Menu_* m, int selected) {     if (this->drawF != NULL) {         this->drawF((fl_Menu_Item)this, x,y,w,h,(fl_Menu) m, selected);     }@@ -10,60 +10,88 @@         Fl_Menu_Item::draw(x,y,w,h,m,selected);     } }+void Fl_DerivedMenu_Item::draw_super(int x, int y, int w, int h, Fl_Menu_* m, int selected) {+  Fl_Menu_Item::draw(x,y,w,h,m,selected);+}+ Fl_DerivedMenu_Item::~Fl_DerivedMenu_Item() {+   if (this->dfps != NULL){+     fl_DoNotCall* fps = NULL;+     fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+     Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(2,0,fps,(fl_DoNotCall)cb, (fl_DoNotCall)(this->drawF));+     this->dfps((fl_Image)this,res);+     if (fps) { free(fps); }+     free(res);+   }+ } #endif   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_next_with_step)(fl_Menu_Item menu_item,int step){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->next(step);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->next(step);   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_next)(fl_Menu_Item menu_item){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->next();+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->next();   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_first)(fl_Menu_Item menu_item){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->first();+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->first();   }   FL_EXPORT_C(const char*,Fl_Menu_Item_label)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->label();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->label();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_label)(fl_Menu_Item menu_item,const char* a){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->label(a);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->label(a);   }   FL_EXPORT_C(void,Fl_Menu_Item_set_label_with_labeltype)(fl_Menu_Item menu_item,Fl_Labeltype labeltype,const char* b){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->label(labeltype,b);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->label(labeltype,b);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Menu_Item_labeltype)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labeltype();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labeltype();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_labeltype)(fl_Menu_Item menu_item,Fl_Labeltype a){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labeltype(a);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Menu_Item_set_labelcolor)(fl_Menu_Item menu_item, Fl_Color c){-    (static_cast<FlDerivedMenu_Item*>(menu_item))->labelcolor(c);+    (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color,Fl_Menu_Item_labelcolor)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labelcolor();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Menu_Item_labelfont)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labelfont();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labelfont();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_labelfont)(fl_Menu_Item menu_item,Fl_Font a){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labelfont(a);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labelfont(a);   }   FL_EXPORT_C(Fl_Fontsize,Fl_Menu_Item_labelsize)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labelsize();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labelsize();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_labelsize)(fl_Menu_Item menu_item,Fl_Fontsize a){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->labelsize(a);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->labelsize(a);   }   FL_EXPORT_C(void,Fl_Menu_Item_set_callback_with_user_data)(fl_Menu_Item menu_item,fl_Callback* c,void* user_data){     C_to_Fl_Callback* callback = new C_to_Fl_Callback(c, user_data);-    callback->set_callback(static_cast<FlDerivedMenu_Item*>(menu_item));+    Fl_DerivedMenu_Item* castedMenuItem = static_cast<Fl_DerivedMenu_Item*>(menu_item);+    fl_Callback* old_cb = C_to_Fl_Callback::get_callback(castedMenuItem);+    if (castedMenuItem->dfps) {+      Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,NULL,(fl_DoNotCall)old_cb);+      castedMenuItem->dfps(menu_item,res);+    }+    callback->set_callback(castedMenuItem);   }-  FL_EXPORT_C(void,Fl_Menu_Item_set_callback)(fl_Menu_Item menu_item,fl_Callback* c){+  FL_EXPORT_C(fl_Callback*,Fl_Menu_Item_callback)(fl_Menu_Item menu_item) {+    Fl_Menu_Item* castedMenuItem = static_cast<Fl_Menu_Item*>(menu_item);+    fl_Callback* old_cb = C_to_Fl_Callback::get_callback(castedMenuItem);+    return old_cb;+  }++  FL_EXPORT_C(fl_Callback*,Fl_Menu_Item_set_callback)(fl_Menu_Item menu_item,fl_Callback* c){+    Fl_Menu_Item* castedMenuItem = static_cast<Fl_Menu_Item*>(menu_item);+    fl_Callback* old_cb = C_to_Fl_Callback::get_callback(castedMenuItem);     C_to_Fl_Callback* callback = new C_to_Fl_Callback(c);-    callback->set_callback(static_cast<FlDerivedMenu_Item*>(menu_item));+    callback->set_callback(castedMenuItem);+    return old_cb;   }   FL_EXPORT_C(int, Fl_Menu_Item_has_callback)(fl_Menu_Item menu_item){     void* p = 0;-    p = (void*)(static_cast<FlDerivedMenu_Item*>(menu_item)->callback());+    p = (void*)(static_cast<Fl_DerivedMenu_Item*>(menu_item)->callback());     if (p == NULL) {       return 0;     }@@ -72,182 +100,185 @@     }   }   FL_EXPORT_C(void*,Fl_Menu_Item_user_data)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->user_data();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->user_data();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_user_data)(fl_Menu_Item menu_item,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<FlDerivedMenu_Item*>(menu_item))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedMenu_Item*>(menu_item))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<FlDerivedMenu_Item*>(menu_item))->user_data(stored_cb);+      (static_cast<Fl_DerivedMenu_Item*>(menu_item))->user_data(stored_cb);     }     else {-      (static_cast<FlDerivedMenu_Item*>(menu_item))->user_data(v);+      (static_cast<Fl_DerivedMenu_Item*>(menu_item))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Menu_Item_argument)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->argument();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->argument();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_argument)(fl_Menu_Item menu_item,long v){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->argument(v);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->argument(v);   }   FL_EXPORT_C(int,Fl_Menu_Item_shortcut)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->shortcut();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->shortcut();   }   FL_EXPORT_C(void,Fl_Menu_Item_set_shortcut)(fl_Menu_Item menu_item,int s){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->shortcut(s);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->shortcut(s);   }   FL_EXPORT_C(int,Fl_Menu_Item_submenu)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->submenu();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->submenu();   }   FL_EXPORT_C(int,Fl_Menu_Item_checkbox)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->checkbox();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->checkbox();   }   FL_EXPORT_C(int,Fl_Menu_Item_radio)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->radio();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->radio();   }   FL_EXPORT_C(int,Fl_Menu_Item_value)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->value();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->value();   }   FL_EXPORT_C(void,Fl_Menu_Item_set)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->set();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->set();   }   FL_EXPORT_C(void,Fl_Menu_Item_clear)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->clear();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->clear();   }   FL_EXPORT_C(void,Fl_Menu_Item_setonly)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->setonly();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->setonly();   }   FL_EXPORT_C(int,Fl_Menu_Item_visible)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->visible();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->visible();   }   FL_EXPORT_C(void,Fl_Menu_Item_show)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->show();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->show();   }   FL_EXPORT_C(void,Fl_Menu_Item_hide)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->hide();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->hide();   }   FL_EXPORT_C(int,Fl_Menu_Item_active)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->active();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->active();   }   FL_EXPORT_C(void,Fl_Menu_Item_activate)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->activate();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->activate();   }   FL_EXPORT_C(void,Fl_Menu_Item_deactivate)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->deactivate();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->deactivate();   }   FL_EXPORT_C(int,Fl_Menu_Item_activevisible)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->activevisible();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->activevisible();   }   FL_EXPORT_C(void,Fl_Menu_Item_image)(fl_Menu_Item menu_item,fl_Image a){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->image((static_cast<Fl_Image*>(a)));+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->image((static_cast<Fl_Image*>(a)));   }   FL_EXPORT_C(int,Fl_Menu_Item_measure)(fl_Menu_Item menu_item,int* h,fl_Menu_ menu){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->measure(h,(static_cast<Fl_Menu_*>(menu)));+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->measure(h,(static_cast<Fl_Menu_*>(menu)));   }   FL_EXPORT_C(void,Fl_Menu_Item_draw_with_t)(fl_Menu_Item menu_item,int x,int y,int w,int h,fl_Menu_ menu ,int t){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->draw(x,y,w,h,(static_cast<Fl_Menu_*>(menu)),t);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->draw(x,y,w,h,(static_cast<Fl_Menu_*>(menu)),t);   }+  FL_EXPORT_C(void,Fl_DerivedMenu_Item_draw)(fl_Menu_Item menu_item,int x,int y,int w,int h,fl_Menu_ menu){+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->draw(x,y,w,h,(static_cast<Fl_Menu_*>(menu)), 0);+  }   FL_EXPORT_C(void,Fl_Menu_Item_draw)(fl_Menu_Item menu_item,int x,int y,int w,int h,fl_Menu_ menu){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->draw(x,y,w,h,(static_cast<Fl_Menu_*>(menu)), 0);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->draw_super(x,y,w,h,(static_cast<Fl_Menu_*>(menu)), 0);   }   FL_EXPORT_C(int, Fl_Menu_Item_flags)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->flags;+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->flags;   }   FL_EXPORT_C(void, Fl_Menu_Item_set_flags)(fl_Menu_Item menu_item, int flags){-    (static_cast<FlDerivedMenu_Item*>(menu_item))->flags = flags;+    (static_cast<Fl_DerivedMenu_Item*>(menu_item))->flags = flags;   }   FL_EXPORT_C(char*, Fl_Menu_Item_text)(fl_Menu_Item menu_item){-    return (char*)(static_cast<FlDerivedMenu_Item*>(menu_item))->text;+    return (char*)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->text;   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_popup)(fl_Menu_Item menu_item,int X,int Y){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->popup(X,Y);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->popup(X,Y);   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_pulldown)(fl_Menu_Item menu_item,int X,int Y,int W,int H){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->pulldown(X,Y,W,H);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->pulldown(X,Y,W,H);   }    FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_popup_with_args)(fl_Menu_Item menu_item,int X,int Y, char* title, fl_Menu_Item picked, fl_Menu_ menu){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->popup(X,Y,title, (static_cast<Fl_Menu_Item*>(picked)), (static_cast<Fl_Menu_*>(menu)));+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->popup(X,Y,title, (static_cast<Fl_Menu_Item*>(picked)), (static_cast<Fl_Menu_*>(menu)));   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_pulldown_with_args)(fl_Menu_Item menu_item,int X,int Y,int W, int H, fl_Menu_Item picked, fl_Menu_ menu, fl_Menu_Item title, int menubar){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->pulldown(X,Y,W,H,(static_cast<Fl_Menu_Item*>(picked)), (static_cast<Fl_Menu_*>(menu)), (static_cast<Fl_Menu_Item*>(title)), menubar);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->pulldown(X,Y,W,H,(static_cast<Fl_Menu_Item*>(picked)), (static_cast<Fl_Menu_*>(menu)), (static_cast<Fl_Menu_Item*>(title)), menubar);   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_test_shortcut)(fl_Menu_Item menu_item){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->test_shortcut();+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->test_shortcut();   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_find_shortcut_with_ip_require_alt)(fl_Menu_Item menu_item,int* ip,int require_alt){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->find_shortcut(ip,require_alt ? true : false);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->find_shortcut(ip,require_alt ? true : false);   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_find_shortcut_with_ip)(fl_Menu_Item menu_item,int* ip){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->find_shortcut(ip);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->find_shortcut(ip);   }   FL_EXPORT_C(fl_Menu_Item,Fl_Menu_Item_find_shortcut_with_require_alt)(fl_Menu_Item menu_item,int require_alt){-    return (fl_Menu_Item)(static_cast<FlDerivedMenu_Item*>(menu_item))->find_shortcut(0,require_alt ? true : false);+    return (fl_Menu_Item)(static_cast<Fl_DerivedMenu_Item*>(menu_item))->find_shortcut(0,require_alt ? true : false);   }   FL_EXPORT_C(void,Fl_Menu_Item_do_callback)(fl_Menu_Item menu_item,fl_Widget o){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->do_callback((static_cast<Fl_Widget*>(o)));+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->do_callback((static_cast<Fl_Widget*>(o)));   }   FL_EXPORT_C(void,Fl_Menu_Item_do_callback_with_user_data)(fl_Menu_Item menu_item,fl_Widget o,void* arg){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->do_callback((static_cast<Fl_Widget*>(o)),arg);+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->do_callback((static_cast<Fl_Widget*>(o)),arg);   }   FL_EXPORT_C(int,Fl_Menu_Item_checked)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->checked();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->checked();   }   FL_EXPORT_C(void,Fl_Menu_Item_check)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->check();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->check();   }   FL_EXPORT_C(void,Fl_Menu_Item_uncheck)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->uncheck();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->uncheck();   }   FL_EXPORT_C(int,Fl_Menu_Item_insert)(fl_Menu_Item menu_item,int index,char* name,int shortcut,fl_Callback* cb){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb);-    return callback_interceptor->menu_insert((static_cast<FlDerivedMenu_Item*>(menu_item)),index,name,shortcut,0);+    return callback_interceptor->menu_insert((static_cast<Fl_DerivedMenu_Item*>(menu_item)),index,name,shortcut,0);   }   FL_EXPORT_C(int,Fl_Menu_Item_insert_with_flags)(fl_Menu_Item menu_item,int index,char* name,int shortcut,fl_Callback* cb,int flags){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb);-    return callback_interceptor->menu_insert((static_cast<FlDerivedMenu_Item*>(menu_item)),index,name,shortcut, flags);+    return callback_interceptor->menu_insert((static_cast<Fl_DerivedMenu_Item*>(menu_item)),index,name,shortcut, flags);   }   FL_EXPORT_C(int,Fl_Menu_Item_insert_with_user_data_flags)(fl_Menu_Item menu_item,int index,char* name,int shortcut,fl_Callback* cb,void* user_data,int flags){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb, user_data);-    return callback_interceptor->menu_insert((static_cast<FlDerivedMenu_Item*>(menu_item)),index,name,shortcut,flags);+    return callback_interceptor->menu_insert((static_cast<Fl_DerivedMenu_Item*>(menu_item)),index,name,shortcut,flags);   }   FL_EXPORT_C(int,Fl_Menu_Item_add_with_user_data)(fl_Menu_Item menu_item,char* name,int shortcut,fl_Callback* cb,void* user_data){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb, user_data);-    return callback_interceptor->menu_add((static_cast<FlDerivedMenu_Item*>(menu_item)),name,shortcut,0);+    return callback_interceptor->menu_add((static_cast<Fl_DerivedMenu_Item*>(menu_item)),name,shortcut,0);   }   FL_EXPORT_C(int,Fl_Menu_Item_add_with_flags)(fl_Menu_Item menu_item,char* name,int shortcut,fl_Callback* cb,int flags){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb);-    return callback_interceptor->menu_add((static_cast<FlDerivedMenu_Item*>(menu_item)),name,shortcut,flags);+    return callback_interceptor->menu_add((static_cast<Fl_DerivedMenu_Item*>(menu_item)),name,shortcut,flags);   }   FL_EXPORT_C(int,Fl_Menu_Item_add_with_user_data_flags)(fl_Menu_Item menu_item,char* name,int shortcut,fl_Callback* cb,void* user_data,int flags){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb, user_data);-    return callback_interceptor->menu_add((static_cast<FlDerivedMenu_Item*>(menu_item)),name,shortcut,flags);+    return callback_interceptor->menu_add((static_cast<Fl_DerivedMenu_Item*>(menu_item)),name,shortcut,flags);   }   FL_EXPORT_C(int,Fl_Menu_Item_add_with_shortcutname_user_data)(fl_Menu_Item menu_item,char* name,char* shortcut,fl_Callback* cb,void* user_data){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb, user_data);-    return callback_interceptor->menu_add((static_cast<FlDerivedMenu_Item*>(menu_item)),name,shortcut,0);+    return callback_interceptor->menu_add((static_cast<Fl_DerivedMenu_Item*>(menu_item)),name,shortcut,0);   }   FL_EXPORT_C(int,Fl_Menu_Item_add_with_shortcutname_flags)(fl_Menu_Item menu_item,char* name,char* shortcut,fl_Callback* cb,int flags){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb);-    return callback_interceptor->menu_add((static_cast<FlDerivedMenu_Item*>(menu_item)),name,shortcut,flags);+    return callback_interceptor->menu_add((static_cast<Fl_DerivedMenu_Item*>(menu_item)),name,shortcut,flags);   }   FL_EXPORT_C(int,Fl_Menu_Item_add_with_shortcutname_user_data_flags)(fl_Menu_Item menu_item,char* name,char* shortcut,fl_Callback* cb,void* user_data,int flags){     C_to_Fl_Callback* callback_interceptor = new C_to_Fl_Callback(cb, user_data);-    return callback_interceptor->menu_add((static_cast<FlDerivedMenu_Item*>(menu_item)),name,shortcut,flags);+    return callback_interceptor->menu_add((static_cast<Fl_DerivedMenu_Item*>(menu_item)),name,shortcut,flags);   }   FL_EXPORT_C(int, Fl_Menu_Item_size)(fl_Menu_Item menu_item){-    return (static_cast<FlDerivedMenu_Item*>(menu_item))->size();+    return (static_cast<Fl_DerivedMenu_Item*>(menu_item))->size();   }-  FL_EXPORT_C(fl_Menu_Item, Fl_Menu_Item_New)(){-    FlDerivedMenu_Item* i = new FlDerivedMenu_Item(NULL);+  FL_EXPORT_C(fl_Menu_Item, Fl_Menu_Item_New)(Destroy_Function_Pointers dfps){+    Fl_DerivedMenu_Item* i = new Fl_DerivedMenu_Item(NULL, dfps);     return (fl_Menu_Item)i;   }-  FL_EXPORT_C(fl_Menu_Item, Fl_Menu_Item_New_With_Draw)(fl_Menu_Item_Draw* f){-    FlDerivedMenu_Item* i = new FlDerivedMenu_Item(f);+  FL_EXPORT_C(fl_Menu_Item, Fl_Menu_Item_New_With_Draw)(fl_Menu_Item_Draw* f, Destroy_Function_Pointers dfps){+    Fl_DerivedMenu_Item* i = new Fl_DerivedMenu_Item(f,dfps);     return (fl_Menu_Item)i;   }   FL_EXPORT_C(void, Fl_Menu_Item_Destroy)(fl_Menu_Item menu_item){-    delete (static_cast<FlDerivedMenu_Item*>(menu_item));+    delete (static_cast<Fl_DerivedMenu_Item*>(menu_item));   } #ifdef __cplusplus }
c-src/Fl_Menu_ItemC.h view
@@ -8,12 +8,16 @@ #include "FL/Fl_Menu_Item.H" #include "Fl_CallbackC.h" EXPORT {-  struct FlDerivedMenu_Item : Fl_Menu_Item {+  struct Fl_DerivedMenu_Item : Fl_Menu_Item {     fl_Menu_Item_Draw* drawF;-    FlDerivedMenu_Item(fl_Menu_Item_Draw* f){+    Destroy_Function_Pointers dfps;+    Fl_DerivedMenu_Item(fl_Menu_Item_Draw* f, Destroy_Function_Pointers dfps){         drawF = f;+        this->dfps = dfps;     };+    ~Fl_DerivedMenu_Item();     void draw(int x, int y, int w, int h, Fl_Menu_* m, int selected);+    void draw_super(int x, int y, int w, int h, Fl_Menu_* m, int selected);   }; #endif   FL_EXPORT_C_HEADER(fl_Menu_Item,Fl_Menu_Item_next_with_step,(fl_Menu_Item menu_item, int step));@@ -32,7 +36,8 @@   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_set_labelsize,(fl_Menu_Item menu_item, Fl_Fontsize a));   //  fl_Callback* callback(); commented until I figure out how to do this   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_set_callback_with_user_data,(fl_Menu_Item menu_item, fl_Callback* c, void* user_data));-  FL_EXPORT_C_HEADER(void,Fl_Menu_Item_set_callback,(fl_Menu_Item menu_item, fl_Callback* c));+  FL_EXPORT_C_HEADER(fl_Callback*, Fl_Menu_Item_callback, (fl_Menu_Item menu_item));+  FL_EXPORT_C_HEADER(fl_Callback*,Fl_Menu_Item_set_callback,(fl_Menu_Item menu_item, fl_Callback* c));   FL_EXPORT_C_HEADER(int,Fl_Menu_Item_has_callback,(fl_Menu_Item menu_item));   FL_EXPORT_C_HEADER(void*,Fl_Menu_Item_user_data,(fl_Menu_Item menu_item));   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_set_user_data,(fl_Menu_Item menu_item, void* v));@@ -58,6 +63,7 @@   FL_EXPORT_C_HEADER(int,Fl_Menu_Item_measure,(fl_Menu_Item menu_item, int* h, fl_Menu_ menu));   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_draw_with_t,(fl_Menu_Item menu_item, int x, int y, int w, int h, fl_Menu_, int t));   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_draw,(fl_Menu_Item menu_item, int x, int y, int w, int h, fl_Menu_ menu));+  FL_EXPORT_C_HEADER(void,Fl_DerivedMenu_Item_draw,(fl_Menu_Item menu_item, int x, int y, int w, int h, fl_Menu_ menu));   FL_EXPORT_C_HEADER(int,Fl_Menu_Item_flags,(fl_Menu_Item menu_item));   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_set_flags,(fl_Menu_Item menu_item,int flags));   FL_EXPORT_C_HEADER(char*,Fl_Menu_Item_text,(fl_Menu_Item menu_item));@@ -86,8 +92,8 @@   FL_EXPORT_C_HEADER(int,Fl_Menu_Item_add_with_shortcutname_flags,(fl_Menu_Item menu_item,   char* name,   char* shortcut, fl_Callback* cb, int flags));   FL_EXPORT_C_HEADER(int,Fl_Menu_Item_add_with_shortcutname_user_data_flags,(fl_Menu_Item menu_item,   char* name,   char* shortcut, fl_Callback* cb, void* user_data, int flags));   FL_EXPORT_C_HEADER(int,Fl_Menu_Item_size,(fl_Menu_Item menu_item));-  FL_EXPORT_C_HEADER(fl_Menu_Item,Fl_Menu_Item_New,());-  FL_EXPORT_C_HEADER(fl_Menu_Item,Fl_Menu_Item_New_With_Draw,(fl_Menu_Item_Draw* f));+  FL_EXPORT_C_HEADER(fl_Menu_Item,Fl_Menu_Item_New,(Destroy_Function_Pointers dpfs));+  FL_EXPORT_C_HEADER(fl_Menu_Item,Fl_Menu_Item_New_With_Draw,(fl_Menu_Item_Draw* f, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Menu_Item_Destroy,(fl_Menu_Item menu_item)); #ifdef __cplusplus }
c-src/Fl_Multiline_InputC.cpp view
@@ -1,415 +1,431 @@ #include "Fl_Multiline_InputC.h"  #ifdef __cplusplus+Fl_DerivedMultiline_Input::Fl_DerivedMultiline_Input(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Multiline_Input(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedMultiline_Input::~Fl_DerivedMultiline_Input() {+  destroy_data();+}+void Fl_DerivedMultiline_Input::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Multiline_Input)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C(int,Fl_Multiline_Input_handle)(fl_Multiline_Input self, int event){-    return (static_cast<Fl_Multiline_Input*>(self))->handle(event);+    return (static_cast<Fl_DerivedMultiline_Input*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Multiline_Input_parent)(fl_Multiline_Input multiline_input){-    return (fl_Group) (static_cast<Fl_Multiline_Input*>(multiline_input))->parent();+    return (fl_Group) (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->parent();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_parent)(fl_Multiline_Input multiline_input,fl_Group grp){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Multiline_Input_type)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->type();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->type();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_type)(fl_Multiline_Input multiline_input,uchar t){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->type(t);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->type(t);   }    FL_EXPORT_C(int,Fl_Multiline_Input_x)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->x();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->x();   }   FL_EXPORT_C(int,Fl_Multiline_Input_y)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->y();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->y();   }   FL_EXPORT_C(int,Fl_Multiline_Input_w)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->w();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->w();   }   FL_EXPORT_C(int,Fl_Multiline_Input_h)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->h();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->h();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_align)(fl_Multiline_Input multiline_input, Fl_Align alignment){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->align(alignment);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Multiline_Input_align)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->align();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Multiline_Input_box)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->box();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->box();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_box)(fl_Multiline_Input multiline_input,Fl_Boxtype new_box){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Input_color)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->color();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->color();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_color)(fl_Multiline_Input multiline_input,Fl_Color bg){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->color(bg);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->color(bg);   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_color_with_bg_sel)(fl_Multiline_Input multiline_input,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->color(bg,a);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Input_selection_color)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->selection_color();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->selection_color();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_selection_color)(fl_Multiline_Input multiline_input,Fl_Color a){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->selection_color(a);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Multiline_Input_label)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->label();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->label();   }   FL_EXPORT_C(void,Fl_Multiline_Input_copy_label)(fl_Multiline_Input multiline_input,const char* new_label){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->copy_label(new_label);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_label)(fl_Multiline_Input multiline_input,const char* text){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->label(text);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Multiline_Input_labeltype)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->labeltype();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labeltype();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_labeltype)(fl_Multiline_Input multiline_input,Fl_Labeltype a){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->labeltype(a);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_labelcolor)(fl_Multiline_Input multiline_input,Fl_Color c){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->labelcolor(c);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Multiline_Input_labelcolor)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->labelcolor();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Multiline_Input_labelfont)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->labelfont();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labelfont();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_labelfont)(fl_Multiline_Input multiline_input,Fl_Font c){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Multiline_Input_labelsize)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->labelsize();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labelsize();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_labelsize)(fl_Multiline_Input multiline_input,Fl_Fontsize pix){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Multiline_Input_image)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->image();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->image();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_image)(fl_Multiline_Input multiline_input,fl_Image pix){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Multiline_Input_deimage)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->deimage();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->deimage();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_deimage)(fl_Multiline_Input multiline_input,fl_Image pix){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Multiline_Input_tooltip)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->tooltip();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->tooltip();   }   FL_EXPORT_C(void,Fl_Multiline_Input_copy_tooltip)(fl_Multiline_Input multiline_input,const char* text){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->copy_tooltip(text);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_tooltip)(fl_Multiline_Input multiline_input,const char* text){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->tooltip(text);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_callback_with_user_data)(fl_Multiline_Input multiline_input,fl_Callback* cb,void* p){-    Fl_Multiline_Input* castedInput_dow = (static_cast<Fl_Multiline_Input*>(multiline_input));+    Fl_DerivedMultiline_Input* castedInput_dow = (static_cast<Fl_DerivedMultiline_Input*>(multiline_input));     new C_to_Fl_Callback(castedInput_dow, cb, p);   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_callback)(fl_Multiline_Input multiline_input,fl_Callback* cb){-    Fl_Multiline_Input* castedInput_dow = (static_cast<Fl_Multiline_Input*>(multiline_input));+    Fl_DerivedMultiline_Input* castedInput_dow = (static_cast<Fl_DerivedMultiline_Input*>(multiline_input));     new C_to_Fl_Callback(castedInput_dow, cb);   }   FL_EXPORT_C(void*,Fl_Multiline_Input_user_data)(fl_Multiline_Input multiline_input){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Multiline_Input*>(multiline_input))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Multiline_Input*>(multiline_input))->user_data();+      return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->user_data();     }   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_user_data)(fl_Multiline_Input multiline_input,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Multiline_Input*>(multiline_input))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Multiline_Input*>(multiline_input))->user_data(stored_cb);+      (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Multiline_Input*>(multiline_input))->user_data(v);+      (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Multiline_Input_argument)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->argument();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->argument();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_argument)(fl_Multiline_Input multiline_input,long v){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->argument(v);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Multiline_Input_when)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->when();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->when();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_when)(fl_Multiline_Input multiline_input,uchar i){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->when(i);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Input_visible)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->visible();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->visible();   }   FL_EXPORT_C(int,Fl_Multiline_Input_visible_r)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->visible_r();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->visible_r();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_visible)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->visible();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->visible();   }   FL_EXPORT_C(void,Fl_Multiline_Input_clear_visible)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->clear_visible();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Input_active)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->active();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->active();   }   FL_EXPORT_C(int,Fl_Multiline_Input_active_r)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->active_r();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->active_r();   }   FL_EXPORT_C(void,Fl_Multiline_Input_activate)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->activate();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->activate();   }   FL_EXPORT_C(void,Fl_Multiline_Input_deactivate)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->deactivate();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Input_output)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->output();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->output();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_output)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->output();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->output();   }   FL_EXPORT_C(void,Fl_Multiline_Input_clear_output)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->clear_output();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Input_takesevents)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->takesevents();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->takesevents();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_changed)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->changed();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->changed();   }   FL_EXPORT_C(void,Fl_Multiline_Input_clear_changed)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->clear_changed();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->clear_changed();   }   FL_EXPORT_C(int,Fl_Multiline_Input_take_focus)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->take_focus();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->take_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_visible_focus)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->set_visible_focus();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Input_clear_visible_focus)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->clear_visible_focus();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Input_modify_visible_focus)(fl_Multiline_Input multiline_input,int v){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->visible_focus(v);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Input_visible_focus)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->visible_focus();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->visible_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Input_do_callback)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->do_callback();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->do_callback();   }   FL_EXPORT_C(void,Fl_Multiline_Input_do_callback_with_widget_and_user_data)(fl_Multiline_Input multiline_input,fl_Widget w,long arg){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Multiline_Input_do_callback_with_widget_and_default_user_data)(fl_Multiline_Input multiline_input,fl_Widget w){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Multiline_Input_contains)(fl_Multiline_Input multiline_input,fl_Widget w){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Multiline_Input_inside)(fl_Multiline_Input multiline_input,fl_Widget w){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Multiline_Input_redraw)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->redraw();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->redraw();   }   FL_EXPORT_C(void,Fl_Multiline_Input_redraw_label)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->redraw_label();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Multiline_Input_damage)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->damage();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->damage();   }   FL_EXPORT_C(void,Fl_Multiline_Input_clear_damage_with_bitmask)(fl_Multiline_Input multiline_input,uchar c){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->clear_damage(c);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Multiline_Input_clear_damage)(fl_Multiline_Input multiline_input){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->clear_damage();+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->clear_damage();   }   FL_EXPORT_C(void,Fl_Multiline_Input_damage_with_text)(fl_Multiline_Input multiline_input,uchar c){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->damage(c);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->damage(c);   }   FL_EXPORT_C(void,Fl_Multiline_Input_damage_inside_widget)(fl_Multiline_Input multiline_input,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Multiline_Input_draw_label_with_xywh_alignment)(fl_Multiline_Input multiline_input,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Multiline_Input_measure_label)(fl_Multiline_Input multiline_input,int* ww,int* hh){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->measure_label(*ww,*hh);   }    FL_EXPORT_C(fl_Window,    Fl_Multiline_Input_window)(fl_Multiline_Input multiline_input){-    return (fl_Window) (static_cast<Fl_Multiline_Input*>(multiline_input))->window();+    return (fl_Window) (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Multiline_Input_top_window)(fl_Multiline_Input multiline_input){-    return (fl_Window) (static_cast<Fl_Multiline_Input*>(multiline_input))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Multiline_Input_top_window_offset)(fl_Multiline_Input multiline_input, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Multiline_Input*>(multiline_input))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Multiline_Input_as_group)(fl_Multiline_Input multiline_input){-    return (fl_Group) (static_cast<Fl_Multiline_Input*>(multiline_input))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Multiline_Input_as_gl_window)(fl_Multiline_Input multiline_input){-    return (fl_Gl_Window) (static_cast<Fl_Multiline_Input*>(multiline_input))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->as_gl_window();   }-  /* Fl_Multiline_Input specific functions */-  FL_EXPORT_C(fl_Multiline_Input, Fl_Multiline_Input_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Multiline_Input* multiline_input = new Fl_Multiline_Input(x,y,w,h,label);+  /* Fl_DerivedMultiline_Input specific functions */+  FL_EXPORT_C(fl_Multiline_Input, Fl_Multiline_Input_New_WithLabel)(int x, int y, int w, int h, const char* label,Destroy_Function_Pointers dfps) {+    Fl_DerivedMultiline_Input* multiline_input = new Fl_DerivedMultiline_Input(x,y,w,h,label,dfps);     return (static_cast<fl_Multiline_Input>(multiline_input));   }-  FL_EXPORT_C(fl_Multiline_Input, Fl_Multiline_Input_New)(int x, int y, int w, int h) {-    Fl_Multiline_Input* multiline_input = new Fl_Multiline_Input(x,y,w,h,0);+  FL_EXPORT_C(fl_Multiline_Input, Fl_Multiline_Input_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedMultiline_Input* multiline_input = new Fl_DerivedMultiline_Input(x,y,w,h,0,dfps);     return (static_cast<fl_Multiline_Input>(multiline_input));   }   FL_EXPORT_C(void,Fl_Multiline_Input_Destroy)(fl_Multiline_Input multiline_input){-    delete (static_cast<Fl_Multiline_Input*>(multiline_input));+    delete (static_cast<Fl_DerivedMultiline_Input*>(multiline_input));   }   FL_EXPORT_C(void,Fl_Multiline_Input_resize)(fl_Multiline_Input multiline_input,int X,int Y,int W,int H){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->resize(X,Y,W,H);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->resize(X,Y,W,H);   }   FL_EXPORT_C(int,Fl_Multiline_Input_set_value)(fl_Multiline_Input multiline_input,const char* text){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->value(text);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->value(text);   }   FL_EXPORT_C(int,Fl_Multiline_Input_set_value_with_length)(fl_Multiline_Input multiline_input,const char* text,int length){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->value(text,length);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->value(text,length);   }   FL_EXPORT_C(int,Fl_Multiline_Input_static_value)(fl_Multiline_Input multiline_input,const char* text){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->static_value(text);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->static_value(text);   }   FL_EXPORT_C(int,Fl_Multiline_Input_static_value_with_length)(fl_Multiline_Input multiline_input,const char* text,int length){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->static_value(text,length);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->static_value(text,length);   }   FL_EXPORT_C(const char*,Fl_Multiline_Input_value)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->value();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->value();   }   FL_EXPORT_C(Fl_Char,Fl_Multiline_Input_index)(fl_Multiline_Input multiline_input,int i){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->index(i);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->index(i);   }   FL_EXPORT_C(int,Fl_Multiline_Input_size)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->size();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->size();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_size)(fl_Multiline_Input multiline_input,int W,int H){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->size(W,H);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->size(W,H);   }   FL_EXPORT_C(int,Fl_Multiline_Input_maximum_size)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->maximum_size();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->maximum_size();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_maximum_size)(fl_Multiline_Input multiline_input,int m){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->maximum_size(m);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->maximum_size(m);   }   FL_EXPORT_C(int,Fl_Multiline_Input_position)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->position();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->position();   }   FL_EXPORT_C(int,Fl_Multiline_Input_mark)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->mark();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->mark();   }   FL_EXPORT_C(int,Fl_Multiline_Input_set_position_with_cursor_mark)(fl_Multiline_Input multiline_input,int p,int m){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->position(p,m);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->position(p,m);   }   FL_EXPORT_C(int,Fl_Multiline_Input_set_position_n_n)(fl_Multiline_Input multiline_input,int p){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->position(p);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->position(p);   }   FL_EXPORT_C(int,Fl_Multiline_Input_set_mark)(fl_Multiline_Input multiline_input,int m){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->mark(m);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->mark(m);   }   FL_EXPORT_C(int,Fl_Multiline_Input_replace)(fl_Multiline_Input multiline_input,int b,int e,const char* text){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->replace(b,e,text);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->replace(b,e,text);   }   FL_EXPORT_C(int,Fl_Multiline_Input_replace_with_ilen)(fl_Multiline_Input multiline_input,int b,int e,const char* text,int ilen){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->replace(b,e,text,ilen);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->replace(b,e,text,ilen);   }   FL_EXPORT_C(int,Fl_Multiline_Input_cut)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->cut();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->cut();   }   FL_EXPORT_C(int,Fl_Multiline_Input_cut_bytes)(fl_Multiline_Input multiline_input,int n){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->cut(n);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->cut(n);   }   FL_EXPORT_C(int,Fl_Multiline_Input_cut_range)(fl_Multiline_Input multiline_input,int a,int b){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->cut(a,b);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->cut(a,b);   }   FL_EXPORT_C(int,Fl_Multiline_Input_insert)(fl_Multiline_Input multiline_input,const char* t){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->insert(t);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->insert(t);   }   FL_EXPORT_C(int,Fl_Multiline_Input_insert_with_length)(fl_Multiline_Input multiline_input,const char* t,int l){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->insert(t,l);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->insert(t,l);   }   FL_EXPORT_C(int,Fl_Multiline_Input_copy)(fl_Multiline_Input multiline_input,int clipboard){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->copy(clipboard);+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->copy(clipboard);   }   FL_EXPORT_C(int,Fl_Multiline_Input_undo)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->undo();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->undo();   }   FL_EXPORT_C(int,Fl_Multiline_Input_copy_cuts)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->copy_cuts();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->copy_cuts();   }   FL_EXPORT_C(int,Fl_Multiline_Input_shortcut)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->shortcut();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->shortcut();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_shortcut)(fl_Multiline_Input multiline_input,int s){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->shortcut(s);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->shortcut(s);   }   FL_EXPORT_C(Fl_Font,Fl_Multiline_Input_textfont)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->textfont();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->textfont();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_textfont)(fl_Multiline_Input multiline_input,Fl_Font s){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->textfont(s);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->textfont(s);   }   FL_EXPORT_C(Fl_Fontsize,Fl_Multiline_Input_textsize)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->textsize();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->textsize();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_textsize)(fl_Multiline_Input multiline_input,Fl_Fontsize s){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->textsize(s);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->textsize(s);   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Input_textcolor)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->textcolor();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->textcolor();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_textcolor)(fl_Multiline_Input multiline_input,Fl_Color n){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->textcolor(n);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->textcolor(n);   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Input_cursor_color)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->cursor_color();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->cursor_color();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_cursor_color)(fl_Multiline_Input multiline_input,Fl_Color n){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->cursor_color(n);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->cursor_color(n);   }   FL_EXPORT_C(int,Fl_Multiline_Input_input_type)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->input_type();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->input_type();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_input_type)(fl_Multiline_Input multiline_input,int t){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->input_type(t);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->input_type(t);   }   FL_EXPORT_C(int,Fl_Multiline_Input_readonly)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->readonly();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->readonly();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_readonly)(fl_Multiline_Input multiline_input,int b){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->readonly(b);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->readonly(b);   }   FL_EXPORT_C(int,Fl_Multiline_Input_wrap)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->wrap();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->wrap();   }   FL_EXPORT_C(void,Fl_Multiline_Input_set_wrap)(fl_Multiline_Input multiline_input,int b){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->wrap(b);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->wrap(b);   }   FL_EXPORT_C(void,Fl_Multiline_Input_tab_nav)(fl_Multiline_Input multiline_input,int val){-    (static_cast<Fl_Multiline_Input*>(multiline_input))->tab_nav(val);+    (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->tab_nav(val);   }   FL_EXPORT_C(int,Fl_Multiline_Input_set_tab_nav)(fl_Multiline_Input multiline_input){-    return (static_cast<Fl_Multiline_Input*>(multiline_input))->tab_nav();+    return (static_cast<Fl_DerivedMultiline_Input*>(multiline_input))->tab_nav();   } #ifdef __cplusplus }
c-src/Fl_Multiline_InputC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Multiline_Input.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedMultiline_Input : public Fl_Multiline_Input {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedMultiline_Input(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedMultiline_Input();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Multiline_Input_handle,(fl_Multiline_Input self, int event));@@ -96,8 +103,8 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Multiline_Input_as_gl_window,(fl_Multiline_Input multiline_input));   /* Fl_Multiline_Input specific functions */   FL_EXPORT_C_HEADER(int,Fl_Multiline_Input_handle,(fl_Multiline_Input multiline_input, int event));-  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Multiline_Input_New_WithLabel,(int x, int y, int w, int h, const char* label));-  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Multiline_Input_New,(int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Multiline_Input_New_WithLabel,(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Float_Input,Fl_Multiline_Input_New,(int x, int y, int w, int h, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Multiline_Input_Destroy,(fl_Multiline_Input multiline_input));    FL_EXPORT_C_HEADER(void,Fl_Multiline_Input_resize,(fl_Multiline_Input multiline_input, int X, int Y, int W, int H));
c-src/Fl_Multiline_OutputC.cpp view
@@ -1,415 +1,431 @@ #include "Fl_Multiline_OutputC.h"  #ifdef __cplusplus+Fl_DerivedMultiline_Output::Fl_DerivedMultiline_Output(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Multiline_Output(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedMultiline_Output::~Fl_DerivedMultiline_Output() {+  destroy_data();+}+void Fl_DerivedMultiline_Output::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Multiline_Output)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C(int,Fl_Multiline_Output_handle)(fl_Multiline_Output self, int event){-    return (static_cast<Fl_Multiline_Output*>(self))->handle(event);+    return (static_cast<Fl_DerivedMultiline_Output*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Multiline_Output_parent)(fl_Multiline_Output multiline_output){-    return (fl_Group) (static_cast<Fl_Multiline_Output*>(multiline_output))->parent();+    return (fl_Group) (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->parent();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_parent)(fl_Multiline_Output multiline_output,fl_Group grp){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Multiline_Output_type)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->type();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->type();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_type)(fl_Multiline_Output multiline_output,uchar t){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->type(t);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->type(t);   }    FL_EXPORT_C(int,Fl_Multiline_Output_x)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->x();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->x();   }   FL_EXPORT_C(int,Fl_Multiline_Output_y)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->y();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->y();   }   FL_EXPORT_C(int,Fl_Multiline_Output_w)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->w();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->w();   }   FL_EXPORT_C(int,Fl_Multiline_Output_h)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->h();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->h();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_align)(fl_Multiline_Output multiline_output, Fl_Align alignment){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->align(alignment);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Multiline_Output_align)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->align();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Multiline_Output_box)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->box();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->box();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_box)(fl_Multiline_Output multiline_output,Fl_Boxtype new_box){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Output_color)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->color();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->color();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_color)(fl_Multiline_Output multiline_output,Fl_Color bg){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->color(bg);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->color(bg);   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_color_with_bg_sel)(fl_Multiline_Output multiline_output,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->color(bg,a);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Output_selection_color)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->selection_color();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->selection_color();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_selection_color)(fl_Multiline_Output multiline_output,Fl_Color a){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->selection_color(a);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Multiline_Output_label)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->label();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->label();   }   FL_EXPORT_C(void,Fl_Multiline_Output_copy_label)(fl_Multiline_Output multiline_output,const char* new_label){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->copy_label(new_label);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_label)(fl_Multiline_Output multiline_output,const char* text){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->label(text);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Multiline_Output_labeltype)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->labeltype();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labeltype();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_labeltype)(fl_Multiline_Output multiline_output,Fl_Labeltype a){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->labeltype(a);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_labelcolor)(fl_Multiline_Output multiline_output,Fl_Color c){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->labelcolor(c);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Multiline_Output_labelcolor)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->labelcolor();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Multiline_Output_labelfont)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->labelfont();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labelfont();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_labelfont)(fl_Multiline_Output multiline_output,Fl_Font c){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Multiline_Output_labelsize)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->labelsize();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labelsize();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_labelsize)(fl_Multiline_Output multiline_output,Fl_Fontsize pix){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Multiline_Output_image)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->image();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->image();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_image)(fl_Multiline_Output multiline_output,fl_Image pix){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Multiline_Output_deimage)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->deimage();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->deimage();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_deimage)(fl_Multiline_Output multiline_output,fl_Image pix){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Multiline_Output_tooltip)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->tooltip();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->tooltip();   }   FL_EXPORT_C(void,Fl_Multiline_Output_copy_tooltip)(fl_Multiline_Output multiline_output,const char* text){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->copy_tooltip(text);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_tooltip)(fl_Multiline_Output multiline_output,const char* text){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->tooltip(text);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_callback_with_user_data)(fl_Multiline_Output multiline_output,fl_Callback* cb,void* p){-    Fl_Multiline_Output* castedInput_dow = (static_cast<Fl_Multiline_Output*>(multiline_output));+    Fl_DerivedMultiline_Output* castedInput_dow = (static_cast<Fl_DerivedMultiline_Output*>(multiline_output));     new C_to_Fl_Callback(castedInput_dow, cb, p);   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_callback)(fl_Multiline_Output multiline_output,fl_Callback* cb){-    Fl_Multiline_Output* castedInput_dow = (static_cast<Fl_Multiline_Output*>(multiline_output));+    Fl_DerivedMultiline_Output* castedInput_dow = (static_cast<Fl_DerivedMultiline_Output*>(multiline_output));     new C_to_Fl_Callback(castedInput_dow, cb);   }   FL_EXPORT_C(void*,Fl_Multiline_Output_user_data)(fl_Multiline_Output multiline_output){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Multiline_Output*>(multiline_output))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Multiline_Output*>(multiline_output))->user_data();+      return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->user_data();     }   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_user_data)(fl_Multiline_Output multiline_output,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Multiline_Output*>(multiline_output))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Multiline_Output*>(multiline_output))->user_data(stored_cb);+      (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Multiline_Output*>(multiline_output))->user_data(v);+      (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Multiline_Output_argument)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->argument();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->argument();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_argument)(fl_Multiline_Output multiline_output,long v){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->argument(v);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Multiline_Output_when)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->when();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->when();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_when)(fl_Multiline_Output multiline_output,uchar i){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->when(i);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Output_visible)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->visible();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->visible();   }   FL_EXPORT_C(int,Fl_Multiline_Output_visible_r)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->visible_r();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->visible_r();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_visible)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->visible();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->visible();   }   FL_EXPORT_C(void,Fl_Multiline_Output_clear_visible)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->clear_visible();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Output_active)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->active();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->active();   }   FL_EXPORT_C(int,Fl_Multiline_Output_active_r)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->active_r();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->active_r();   }   FL_EXPORT_C(void,Fl_Multiline_Output_activate)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->activate();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->activate();   }   FL_EXPORT_C(void,Fl_Multiline_Output_deactivate)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->deactivate();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Output_multiline_output)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->output();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->output();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_multiline_output)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->output();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->output();   }   FL_EXPORT_C(void,Fl_Multiline_Output_clear_multiline_output)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->clear_output();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Output_takesevents)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->takesevents();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->takesevents();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_changed)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->changed();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->changed();   }   FL_EXPORT_C(void,Fl_Multiline_Output_clear_changed)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->clear_changed();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->clear_changed();   }   FL_EXPORT_C(int,Fl_Multiline_Output_take_focus)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->take_focus();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->take_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_visible_focus)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->set_visible_focus();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Output_clear_visible_focus)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->clear_visible_focus();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Output_modify_visible_focus)(fl_Multiline_Output multiline_output,int v){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->visible_focus(v);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Multiline_Output_visible_focus)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->visible_focus();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->visible_focus();   }   FL_EXPORT_C(void,Fl_Multiline_Output_do_callback)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->do_callback();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->do_callback();   }   FL_EXPORT_C(void,Fl_Multiline_Output_do_callback_with_widget_and_user_data)(fl_Multiline_Output multiline_output,fl_Widget w,long arg){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Multiline_Output_do_callback_with_widget_and_default_user_data)(fl_Multiline_Output multiline_output,fl_Widget w){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Multiline_Output_contains)(fl_Multiline_Output multiline_output,fl_Widget w){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Multiline_Output_inside)(fl_Multiline_Output multiline_output,fl_Widget w){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Multiline_Output_redraw)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->redraw();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->redraw();   }   FL_EXPORT_C(void,Fl_Multiline_Output_redraw_label)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->redraw_label();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Multiline_Output_damage)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->damage();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->damage();   }   FL_EXPORT_C(void,Fl_Multiline_Output_clear_damage_with_bitmask)(fl_Multiline_Output multiline_output,uchar c){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->clear_damage(c);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Multiline_Output_clear_damage)(fl_Multiline_Output multiline_output){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->clear_damage();+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->clear_damage();   }   FL_EXPORT_C(void,Fl_Multiline_Output_damage_with_text)(fl_Multiline_Output multiline_output,uchar c){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->damage(c);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->damage(c);   }   FL_EXPORT_C(void,Fl_Multiline_Output_damage_inside_widget)(fl_Multiline_Output multiline_output,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Multiline_Output_draw_label_with_xywh_alignment)(fl_Multiline_Output multiline_output,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Multiline_Output_measure_label)(fl_Multiline_Output multiline_output,int* ww,int* hh){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->measure_label(*ww,*hh);   }    FL_EXPORT_C(fl_Window,    Fl_Multiline_Output_window)(fl_Multiline_Output multiline_output){-    return (fl_Window) (static_cast<Fl_Multiline_Output*>(multiline_output))->window();+    return (fl_Window) (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Multiline_Output_top_window)(fl_Multiline_Output multiline_output){-    return (fl_Window) (static_cast<Fl_Multiline_Output*>(multiline_output))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Multiline_Output_top_window_offset)(fl_Multiline_Output multiline_output, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Multiline_Output*>(multiline_output))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Multiline_Output_as_group)(fl_Multiline_Output multiline_output){-    return (fl_Group) (static_cast<Fl_Multiline_Output*>(multiline_output))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Multiline_Output_as_gl_window)(fl_Multiline_Output multiline_output){-    return (fl_Gl_Window) (static_cast<Fl_Multiline_Output*>(multiline_output))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->as_gl_window();   }-  /* Fl_Multiline_Output specific functions */-  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Multiline_Output* multiline_output = new Fl_Multiline_Output(x,y,w,h,label);+  /* Fl_DerivedMultiline_Output specific functions */+  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedMultiline_Output* multiline_output = new Fl_DerivedMultiline_Output(x,y,w,h,label,dfps);     return (static_cast<fl_Multiline_Output>(multiline_output));   }-  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New)(int x, int y, int w, int h) {-    Fl_Multiline_Output* multiline_output = new Fl_Multiline_Output(x,y,w,h,0);+  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedMultiline_Output* multiline_output = new Fl_DerivedMultiline_Output(x,y,w,h,0,dfps);     return (fl_Multiline_Output)multiline_output;   }   FL_EXPORT_C(void,Fl_Multiline_Output_Destroy)(fl_Multiline_Output multiline_output){-    delete (static_cast<Fl_Multiline_Output*>(multiline_output));+    delete (static_cast<Fl_DerivedMultiline_Output*>(multiline_output));   }   FL_EXPORT_C(void,Fl_Multiline_Output_resize)(fl_Multiline_Output multiline_output,int X,int Y,int W,int H){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->resize(X,Y,W,H);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->resize(X,Y,W,H);   }   FL_EXPORT_C(int,Fl_Multiline_Output_set_value)(fl_Multiline_Output multiline_output,const char* text){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->value(text);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->value(text);   }   FL_EXPORT_C(int,Fl_Multiline_Output_set_value_with_length)(fl_Multiline_Output multiline_output,const char* text,int length){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->value(text,length);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->value(text,length);   }   FL_EXPORT_C(int,Fl_Multiline_Output_static_value)(fl_Multiline_Output multiline_output,const char* text){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->static_value(text);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->static_value(text);   }   FL_EXPORT_C(int,Fl_Multiline_Output_static_value_with_length)(fl_Multiline_Output multiline_output,const char* text,int length){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->static_value(text,length);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->static_value(text,length);   }   FL_EXPORT_C(const char*,Fl_Multiline_Output_value)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->value();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->value();   }   FL_EXPORT_C(Fl_Char,Fl_Multiline_Output_index)(fl_Multiline_Output multiline_output,int i){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->index(i);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->index(i);   }   FL_EXPORT_C(int,Fl_Multiline_Output_size)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->size();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->size();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_size)(fl_Multiline_Output multiline_output,int W,int H){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->size(W,H);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->size(W,H);   }   FL_EXPORT_C(int,Fl_Multiline_Output_maximum_size)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->maximum_size();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->maximum_size();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_maximum_size)(fl_Multiline_Output multiline_output,int m){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->maximum_size(m);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->maximum_size(m);   }   FL_EXPORT_C(int,Fl_Multiline_Output_position)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->position();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->position();   }   FL_EXPORT_C(int,Fl_Multiline_Output_mark)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->mark();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->mark();   }   FL_EXPORT_C(int,Fl_Multiline_Output_set_position_with_cursor_mark)(fl_Multiline_Output multiline_output,int p,int m){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->position(p,m);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->position(p,m);   }   FL_EXPORT_C(int,Fl_Multiline_Output_set_position_n_n)(fl_Multiline_Output multiline_output,int p){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->position(p);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->position(p);   }   FL_EXPORT_C(int,Fl_Multiline_Output_set_mark)(fl_Multiline_Output multiline_output,int m){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->mark(m);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->mark(m);   }   FL_EXPORT_C(int,Fl_Multiline_Output_replace)(fl_Multiline_Output multiline_output,int b,int e,const char* text){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->replace(b,e,text);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->replace(b,e,text);   }   FL_EXPORT_C(int,Fl_Multiline_Output_replace_with_ilen)(fl_Multiline_Output multiline_output,int b,int e,const char* text,int ilen){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->replace(b,e,text,ilen);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->replace(b,e,text,ilen);   }   FL_EXPORT_C(int,Fl_Multiline_Output_cut)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->cut();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->cut();   }   FL_EXPORT_C(int,Fl_Multiline_Output_cut_bytes)(fl_Multiline_Output multiline_output,int n){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->cut(n);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->cut(n);   }   FL_EXPORT_C(int,Fl_Multiline_Output_cut_range)(fl_Multiline_Output multiline_output,int a,int b){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->cut(a,b);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->cut(a,b);   }   FL_EXPORT_C(int,Fl_Multiline_Output_insert)(fl_Multiline_Output multiline_output,const char* t){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->insert(t);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->insert(t);   }   FL_EXPORT_C(int,Fl_Multiline_Output_insert_with_length)(fl_Multiline_Output multiline_output,const char* t,int l){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->insert(t,l);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->insert(t,l);   }   FL_EXPORT_C(int,Fl_Multiline_Output_copy)(fl_Multiline_Output multiline_output,int clipboard){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->copy(clipboard);+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->copy(clipboard);   }   FL_EXPORT_C(int,Fl_Multiline_Output_undo)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->undo();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->undo();   }   FL_EXPORT_C(int,Fl_Multiline_Output_copy_cuts)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->copy_cuts();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->copy_cuts();   }   FL_EXPORT_C(int,Fl_Multiline_Output_shortcut)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->shortcut();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->shortcut();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_shortcut)(fl_Multiline_Output multiline_output,int s){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->shortcut(s);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->shortcut(s);   }   FL_EXPORT_C(Fl_Font,Fl_Multiline_Output_textfont)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->textfont();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->textfont();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_textfont)(fl_Multiline_Output multiline_output,Fl_Font s){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->textfont(s);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->textfont(s);   }   FL_EXPORT_C(Fl_Fontsize,Fl_Multiline_Output_textsize)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->textsize();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->textsize();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_textsize)(fl_Multiline_Output multiline_output,Fl_Fontsize s){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->textsize(s);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->textsize(s);   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Output_textcolor)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->textcolor();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->textcolor();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_textcolor)(fl_Multiline_Output multiline_output,Fl_Color n){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->textcolor(n);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->textcolor(n);   }   FL_EXPORT_C(Fl_Color,Fl_Multiline_Output_cursor_color)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->cursor_color();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->cursor_color();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_cursor_color)(fl_Multiline_Output multiline_output,Fl_Color n){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->cursor_color(n);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->cursor_color(n);   }   FL_EXPORT_C(int,Fl_Multiline_Output_input_type)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->input_type();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->input_type();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_input_type)(fl_Multiline_Output multiline_output,int t){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->input_type(t);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->input_type(t);   }   FL_EXPORT_C(int,Fl_Multiline_Output_readonly)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->readonly();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->readonly();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_readonly)(fl_Multiline_Output multiline_output,int b){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->readonly(b);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->readonly(b);   }   FL_EXPORT_C(int,Fl_Multiline_Output_wrap)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->wrap();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->wrap();   }   FL_EXPORT_C(void,Fl_Multiline_Output_set_wrap)(fl_Multiline_Output multiline_output,int b){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->wrap(b);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->wrap(b);   }   FL_EXPORT_C(void,Fl_Multiline_Output_tab_nav)(fl_Multiline_Output multiline_output,int val){-    (static_cast<Fl_Multiline_Output*>(multiline_output))->tab_nav(val);+    (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->tab_nav(val);   }   FL_EXPORT_C(int,Fl_Multiline_Output_set_tab_nav)(fl_Multiline_Output multiline_output){-    return (static_cast<Fl_Multiline_Output*>(multiline_output))->tab_nav();+    return (static_cast<Fl_DerivedMultiline_Output*>(multiline_output))->tab_nav();   } #ifdef __cplusplus }
c-src/Fl_Multiline_OutputC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Multiline_Output.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedMultiline_Output : public Fl_Multiline_Output {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedMultiline_Output(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedMultiline_Output();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Multiline_Output_handle,(fl_Multiline_Output self, int event));@@ -96,8 +103,8 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Multiline_Output_as_gl_window,(fl_Multiline_Output multiline_output));   /* Fl_Multiline_Output specific functions */   FL_EXPORT_C_HEADER(int,Fl_Multiline_Output_handle,(fl_Multiline_Output multiline_output, int event));-  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New_WithLabel)(int x, int y, int w, int h, const char* label);-  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New)(int x, int y, int w, int h);+  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps);+  FL_EXPORT_C(fl_Multiline_Output, Fl_Multiline_Output_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps);   FL_EXPORT_C_HEADER(void,Fl_Multiline_Output_Destroy,(fl_Multiline_Output multiline_output));    FL_EXPORT_C_HEADER(void,Fl_Multiline_Output_resize,(fl_Multiline_Output multiline_output, int X, int Y, int W, int H));
c-src/Fl_OutputC.cpp view
@@ -11,8 +11,21 @@     other_data = (void*)0;   }   Fl_DerivedOutput::~Fl_DerivedOutput(){+    this->destroy_data();     free(overriddenFuncs);   }++void Fl_DerivedOutput::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Output)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedOutput::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Output) this);
c-src/Fl_OutputC.h view
@@ -22,6 +22,7 @@     virtual void show();     void show_super();     virtual void hide();+    void destroy_data();     void hide_super();     Fl_DerivedOutput(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedOutput(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);
c-src/Fl_Overlay_WindowC.cpp view
@@ -2,26 +2,47 @@ #include "Fl_Overlay_WindowC.h"  #ifdef __cplusplus-Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int X, int Y, int W, int H, const char *l, void (*draw_overlay_fp)(fl_Overlay_Window)):Fl_Overlay_Window(X,Y,W,H,l){+Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int X, int Y, int W, int H, const char *l, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps):Fl_Overlay_Window(X,Y,W,H,l){   this->draw_overlay_fp = draw_overlay_fp;+  this->dfps = dfps; }-Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int X, int Y, int W, int H, void (*draw_overlay_fp)(fl_Overlay_Window)):Fl_Overlay_Window(X,Y,W,H,0){+Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int X, int Y, int W, int H, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps):Fl_Overlay_Window(X,Y,W,H,0){   this->draw_overlay_fp = draw_overlay_fp;+  this->dfps = dfps; }-Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int W, int H, const char *l, void (*draw_overlay_fp)(fl_Overlay_Window)):Fl_Overlay_Window(W,H,l){+Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int W, int H, const char *l, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps):Fl_Overlay_Window(W,H,l){   this->draw_overlay_fp = draw_overlay_fp;+  this->dfps = dfps; }-Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int W, int H, void (*draw_overlay_fp)(fl_Overlay_Window)):Fl_Overlay_Window(W,H,0) {+Fl_DerivedOverlay_Window::Fl_DerivedOverlay_Window(int W, int H, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps):Fl_Overlay_Window(W,H,0) {   this->draw_overlay_fp = draw_overlay_fp;+  this->dfps = dfps; } void Fl_DerivedOverlay_Window::draw_overlay() {   (*draw_overlay_fp)((fl_Overlay_Window) this); }+Fl_DerivedOverlay_Window::~Fl_DerivedOverlay_Window() {+  this->destroy_data();+}+void Fl_DerivedOverlay_Window::destroy_data() {+  if (this->dfps != NULL) {+     fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+     Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(2,0,fps,(fl_DoNotCall)cb, (fl_DoNotCall)(this->draw_overlay_fp));+     this->dfps((fl_Overlay_Window)this,res);+     if (fps) { free(fps); }+     free(res);+  }+}+ EXPORT { #endif-  FL_EXPORT_C(int,Fl_Overlay_Window_handle)(fl_Overlay_Window self, int event){+  FL_EXPORT_C(int,Fl_DerivedOverlay_Window_handle)(fl_Overlay_Window self, int event){     return (static_cast<Fl_DerivedOverlay_Window*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_Overlay_Window_handle)(fl_Overlay_Window self, int event){+    return (static_cast<Fl_Overlay_Window*>(self))->Fl_Overlay_Window::handle(event);+  }   FL_EXPORT_C(fl_Group,Fl_Overlay_Window_parent)(fl_Overlay_Window win){     return (fl_Group) (static_cast<Fl_DerivedOverlay_Window*>(win))->parent();   }@@ -362,27 +383,42 @@   FL_EXPORT_C(void,Fl_Overlay_Window_fullscreen_off_with_resize)(fl_Overlay_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedOverlay_Window*>(win))->fullscreen_off(X,Y,W,H);   }-  FL_EXPORT_C(void,Fl_Overlay_Window_hide)(fl_Overlay_Window win){+  FL_EXPORT_C(void,Fl_DerivedOverlay_Window_hide)(fl_Overlay_Window win){     (static_cast<Fl_DerivedOverlay_Window*>(win))->hide();   }-  FL_EXPORT_C(void,Fl_Overlay_Window_show)(fl_Overlay_Window win){+  FL_EXPORT_C(void,Fl_Overlay_Window_hide)(fl_Overlay_Window win){+    (static_cast<Fl_Overlay_Window*>(win))->Fl_Overlay_Window::hide();+  }+  FL_EXPORT_C(void,Fl_DerivedOverlay_Window_show)(fl_Overlay_Window win){     (static_cast<Fl_DerivedOverlay_Window*>(win))->show();   }+  FL_EXPORT_C(void,Fl_Overlay_Window_show)(fl_Overlay_Window win){+    (static_cast<Fl_Overlay_Window*>(win))->Fl_Overlay_Window::show();+  }   FL_EXPORT_C(void,Fl_Overlay_Window_show_with_args)(fl_Overlay_Window win,int argc,char** argv){     (static_cast<Fl_DerivedOverlay_Window*>(win))->show(argc,argv);   }-  FL_EXPORT_C(void,Fl_Overlay_Window_Destroy)(fl_Overlay_Window win){+  FL_EXPORT_C(void,Fl_DerivedOverlay_Window_Destroy)(fl_Overlay_Window win){     delete (static_cast<Fl_DerivedOverlay_Window*>(win));   }-  FL_EXPORT_C(void,Fl_Overlay_Window_resize)(fl_Overlay_Window win,int X,int Y,int W,int H){+  FL_EXPORT_C(void,Fl_Overlay_Window_Destroy)(fl_Overlay_Window win){+    delete (static_cast<Fl_Overlay_Window*>(win));+  }+  FL_EXPORT_C(void,Fl_DerivedOverlay_Window_resize)(fl_Overlay_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedOverlay_Window*>(win))->resize(X,Y,W,H);   }+  FL_EXPORT_C(void,Fl_Overlay_Window_resize)(fl_Overlay_Window win,int X,int Y,int W,int H){+    (static_cast<Fl_Overlay_Window*>(win))->Fl_Overlay_Window::resize(X,Y,W,H);+  }   FL_EXPORT_C(void,Fl_Overlay_Window_iconize)(fl_Overlay_Window win){     (static_cast<Fl_DerivedOverlay_Window*>(win))->iconize();   }-  FL_EXPORT_C(void,Fl_Overlay_Window_flush)(fl_Overlay_Window win){+  FL_EXPORT_C(void,Fl_DerivedOverlay_Window_flush)(fl_Overlay_Window win){     (static_cast<Fl_DerivedOverlay_Window*>(win))->flush();   }+  FL_EXPORT_C(void,Fl_Overlay_Window_flush)(fl_Overlay_Window win){+    (static_cast<Fl_Overlay_Window*>(win))->Fl_Overlay_Window::flush();+  }   FL_EXPORT_C(void,Fl_Overlay_Window_set_border)(fl_Overlay_Window win,int b){     (static_cast<Fl_DerivedOverlay_Window*>(win))->border(b);   }@@ -524,20 +560,20 @@   FL_EXPORT_C(void,Fl_Overlay_Window_redraw_overlay)(fl_Overlay_Window win){     (static_cast<Fl_DerivedOverlay_Window*>(win))->redraw_overlay();   }-  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_New_WithLabel)(int w, int h, const char* title,void (*draw_overlay_fp)(fl_Overlay_Window)) {-  Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(w,h,title, draw_overlay_fp);-  return (static_cast<fl_Overlay_Window>(window));-}-  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_New)(int w, int h,void (*draw_overlay_fp)(fl_Overlay_Window)) {-  Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(w,h,0,draw_overlay_fp);+  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_New_WithLabel)(int w, int h, const char* title,void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps) {+    Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(w,h,title, draw_overlay_fp, dfps);+    return (static_cast<fl_Overlay_Window>(window));+  }+  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_New)(int w, int h,void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps) {+    Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(w,h,0,draw_overlay_fp, dfps);   return (fl_Overlay_Window)window;   }-  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_NewXY_WithLabel)(int x, int y, int w, int h, const char* title,void (*draw_overlay_fp)(fl_Overlay_Window)) {-  Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(x,y,w,h,title,draw_overlay_fp);+  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_NewXY_WithLabel)(int x, int y, int w, int h, const char* title,void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps) {+    Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(x,y,w,h,title,draw_overlay_fp, dfps);     return (fl_Overlay_Window)window;   }-  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_NewXY)(int x, int y, int w, int h,void (*draw_overlay_fp)(fl_Overlay_Window)) {-  Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(x,y,w,h,0,draw_overlay_fp);+  FL_EXPORT_C(fl_Overlay_Window, Fl_Overlay_Window_NewXY)(int x, int y, int w, int h,void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps) {+    Fl_DerivedOverlay_Window* window = new Fl_DerivedOverlay_Window(x,y,w,h,0,draw_overlay_fp, dfps);   return (fl_Overlay_Window)window; } #ifdef __cplusplus
c-src/Fl_Overlay_WindowC.h view
@@ -3,6 +3,7 @@ #ifdef __cplusplus // always include the FL/*.H headers before local headers // Fl_Widget is included transitively and needed for+// Fl_DerivedWidget is included transitively and needed for // the callback mechanism included below to work. #include "FL/Fl.H" #include "FL/Fl_Overlay_Window.H"@@ -12,16 +13,20 @@   class Fl_DerivedOverlay_Window : public Fl_Overlay_Window {   private:     void (*draw_overlay_fp)(fl_Overlay_Window);+    Destroy_Function_Pointers dfps;   public:     void draw_overlay();-    Fl_DerivedOverlay_Window(int X, int Y, int W, int H, const char *l, void (*can_draw_fp)(fl_Overlay_Window));-    Fl_DerivedOverlay_Window(int X, int Y, int W, int H, void (*can_draw_fp)(fl_Overlay_Window));-    Fl_DerivedOverlay_Window(int W, int H, const char *l, void (*can_draw_fp)(fl_Overlay_Window));-    Fl_DerivedOverlay_Window(int W, int H, void (*can_draw_fp)(fl_Overlay_Window));+    Fl_DerivedOverlay_Window(int X, int Y, int W, int H, const char *l, void (*can_draw_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps);+    Fl_DerivedOverlay_Window(int X, int Y, int W, int H, void (*can_draw_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps);+    Fl_DerivedOverlay_Window(int W, int H, const char *l, void (*can_draw_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps);+    Fl_DerivedOverlay_Window(int W, int H, void (*can_draw_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps);+    ~Fl_DerivedOverlay_Window();+    void destroy_data();   }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Overlay_Window_handle,(fl_Overlay_Window self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedOverlay_Window_handle,(fl_Overlay_Window self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Overlay_Window_parent,(fl_Overlay_Window win));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_set_parent,(fl_Overlay_Window win, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Overlay_Window_type,(fl_Overlay_Window win));@@ -188,18 +193,25 @@   FL_EXPORT_C_HEADER(int,Fl_Overlay_Window_decorated_h,(fl_Overlay_Window win));   /* Fl_Overlay_Window specific */   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_show,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedOverlay_Window_show,(fl_Overlay_Window win));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_show_with_args,(fl_Overlay_Window win, int argc, char** argv));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_flush,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedOverlay_Window_flush,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_hide,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedOverlay_Window_hide,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedOverlay_Window_resize,(fl_Overlay_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_resize,(fl_Overlay_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_hide,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedOverlay_Window_hide,(fl_Overlay_Window win));   FL_EXPORT_C_HEADER(int,Fl_Overlay_Window_can_do_overlay,(fl_Overlay_Window win));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_redraw_overlay,(fl_Overlay_Window win)); -  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_New_WithLabel,(int w, int h, const char* title, void (*draw_overlay_fp)(fl_Overlay_Window)));-  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_New,(int w, int h, void (*draw_overlay_fp)(fl_Overlay_Window)));-  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_NewXY_WithLabel,(int x, int y, int w, int h, const char* title, void (*draw_overlay_fp)(fl_Overlay_Window)));-  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_NewXY,(int x, int y, int w, int h, void (*draw_overlay_fp)(fl_Overlay_Window)));+  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_New_WithLabel,(int w, int h, const char* title, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_New,(int w, int h, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_NewXY_WithLabel,(int x, int y, int w, int h, const char* title, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Overlay_Window,Fl_Overlay_Window_NewXY,(int x, int y, int w, int h, void (*draw_overlay_fp)(fl_Overlay_Window), Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Overlay_Window_Destroy,(fl_Overlay_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedOverlay_Window_Destroy,(fl_Overlay_Window win)); #ifdef __cplusplus } #endif
c-src/Fl_PackC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedPack::~Fl_DerivedPack(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedPack::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Pack)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedPack::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Pack) this);
c-src/Fl_PackC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedPack(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedPack(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedPack();
c-src/Fl_PositionerC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedPositioner::~Fl_DerivedPositioner(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedPositioner::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Positioner)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedPositioner::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Positioner) this);
c-src/Fl_PositionerC.h view
@@ -22,6 +22,7 @@     virtual void show();     void show_super();     virtual void hide();+    void destroy_data();     void hide_super();     Fl_DerivedPositioner(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedPositioner(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);
c-src/Fl_ProgressC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedProgress::~Fl_DerivedProgress(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedProgress::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Progress)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedProgress::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Progress) this);
c-src/Fl_ProgressC.h view
@@ -22,6 +22,7 @@     virtual void show();     void show_super();     virtual void hide();+    void destroy_data();     void hide_super();     Fl_DerivedProgress(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedProgress(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);
c-src/Fl_Radio_ButtonC.cpp view
@@ -1,311 +1,327 @@ #include "Fl_Radio_ButtonC.h"  #ifdef __cplusplus+Fl_DerivedRadio_Button::Fl_DerivedRadio_Button(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Radio_Button(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedRadio_Button::~Fl_DerivedRadio_Button() {+  destroy_data();+}+void Fl_DerivedRadio_Button::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Radio_Button)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   FL_EXPORT_C(int,Fl_Radio_Button_handle)(fl_Radio_Button self, int event){-    return (static_cast<Fl_Radio_Button*>(self))->handle(event);+    return (static_cast<Fl_DerivedRadio_Button*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Radio_Button_parent)(fl_Radio_Button b){-    return (fl_Group) (static_cast<Fl_Radio_Button*>(b))->parent();+    return (fl_Group) (static_cast<Fl_DerivedRadio_Button*>(b))->parent();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_parent)(fl_Radio_Button b,fl_Group grp){-    (static_cast<Fl_Radio_Button*>(b))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Radio_Button_type)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->type();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->type();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_type)(fl_Radio_Button b,uchar t){-    (static_cast<Fl_Radio_Button*>(b))->type(t);+    (static_cast<Fl_DerivedRadio_Button*>(b))->type(t);   }    FL_EXPORT_C(int,Fl_Radio_Button_x)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->x();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->x();   }   FL_EXPORT_C(int,Fl_Radio_Button_y)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->y();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->y();   }   FL_EXPORT_C(int,Fl_Radio_Button_w)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->w();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->w();   }   FL_EXPORT_C(int,Fl_Radio_Button_h)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->h();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->h();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_align)(fl_Radio_Button radio_button, Fl_Align alignment){-    (static_cast<Fl_Radio_Button*>(radio_button))->align(alignment);+    (static_cast<Fl_DerivedRadio_Button*>(radio_button))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Radio_Button_align)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->align();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Radio_Button_box)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->box();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->box();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_box)(fl_Radio_Button b,Fl_Boxtype new_box){-    (static_cast<Fl_Radio_Button*>(b))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Radio_Button_color)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->color();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->color();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_color)(fl_Radio_Button b,Fl_Color bg){-    (static_cast<Fl_Radio_Button*>(b))->color(bg);+    (static_cast<Fl_DerivedRadio_Button*>(b))->color(bg);   }   FL_EXPORT_C(void,Fl_Radio_Button_set_color_with_bg_sel)(fl_Radio_Button b,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Radio_Button*>(b))->color(bg,a);+    (static_cast<Fl_DerivedRadio_Button*>(b))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Radio_Button_selection_color)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->selection_color();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->selection_color();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_selection_color)(fl_Radio_Button b,Fl_Color a){-    (static_cast<Fl_Radio_Button*>(b))->selection_color(a);+    (static_cast<Fl_DerivedRadio_Button*>(b))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Radio_Button_label)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->label();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->label();   }   FL_EXPORT_C(void,Fl_Radio_Button_copy_label)(fl_Radio_Button b,const char* new_label){-    (static_cast<Fl_Radio_Button*>(b))->copy_label(new_label);+    (static_cast<Fl_DerivedRadio_Button*>(b))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Radio_Button_set_label)(fl_Radio_Button b,const char* text){-    (static_cast<Fl_Radio_Button*>(b))->label(text);+    (static_cast<Fl_DerivedRadio_Button*>(b))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Radio_Button_labeltype)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->labeltype();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->labeltype();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_labeltype)(fl_Radio_Button b,Fl_Labeltype a){-    (static_cast<Fl_Radio_Button*>(b))->labeltype(a);+    (static_cast<Fl_DerivedRadio_Button*>(b))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Radio_Button_set_labelcolor)(fl_Radio_Button b,Fl_Color c){-    (static_cast<Fl_Radio_Button*>(b))->labelcolor(c);+    (static_cast<Fl_DerivedRadio_Button*>(b))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Radio_Button_labelcolor)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->labelcolor();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Radio_Button_labelfont)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->labelfont();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->labelfont();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_labelfont)(fl_Radio_Button b,Fl_Font c){-    (static_cast<Fl_Radio_Button*>(b))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Radio_Button_labelsize)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->labelsize();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->labelsize();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_labelsize)(fl_Radio_Button b,Fl_Fontsize pix){-    (static_cast<Fl_Radio_Button*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Radio_Button_image)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->image();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->image();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_image)(fl_Radio_Button b,fl_Image pix){-    (static_cast<Fl_Radio_Button*>(b))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Radio_Button_deimage)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->deimage();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->deimage();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_deimage)(fl_Radio_Button b,fl_Image pix){-    (static_cast<Fl_Radio_Button*>(b))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Radio_Button_tooltip)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->tooltip();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->tooltip();   }   FL_EXPORT_C(void,Fl_Radio_Button_copy_tooltip)(fl_Radio_Button b,const char* text){-    (static_cast<Fl_Radio_Button*>(b))->copy_tooltip(text);+    (static_cast<Fl_DerivedRadio_Button*>(b))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Radio_Button_set_tooltip)(fl_Radio_Button b,const char* text){-    (static_cast<Fl_Radio_Button*>(b))->tooltip(text);+    (static_cast<Fl_DerivedRadio_Button*>(b))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Radio_Button_set_callback_with_user_data)(fl_Radio_Button b,fl_Callback* cb,void* p){-    Fl_Radio_Button* castedButton = (static_cast<Fl_Radio_Button*>(b));+    Fl_DerivedRadio_Button* castedButton = (static_cast<Fl_DerivedRadio_Button*>(b));     new C_to_Fl_Callback(castedButton, cb, p);   }   FL_EXPORT_C(void,Fl_Radio_Button_set_callback)(fl_Radio_Button b,fl_Callback* cb){-    Fl_Radio_Button* castedButton = (static_cast<Fl_Radio_Button*>(b));+    Fl_DerivedRadio_Button* castedButton = (static_cast<Fl_DerivedRadio_Button*>(b));     new C_to_Fl_Callback(castedButton, cb);   }   FL_EXPORT_C(void*,Fl_Radio_Button_user_data)(fl_Radio_Button b){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Radio_Button*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedRadio_Button*>(b))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Radio_Button*>(b))->user_data();+      return (static_cast<Fl_DerivedRadio_Button*>(b))->user_data();     }   }   FL_EXPORT_C(void,Fl_Radio_Button_set_user_data)(fl_Radio_Button b,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Radio_Button*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedRadio_Button*>(b))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Radio_Button*>(b))->user_data(stored_cb);+      (static_cast<Fl_DerivedRadio_Button*>(b))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Radio_Button*>(b))->user_data(v);+      (static_cast<Fl_DerivedRadio_Button*>(b))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Radio_Button_argument)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->argument();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->argument();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_argument)(fl_Radio_Button b,long v){-    (static_cast<Fl_Radio_Button*>(b))->argument(v);+    (static_cast<Fl_DerivedRadio_Button*>(b))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Radio_Button_when)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->when();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->when();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_when)(fl_Radio_Button b,uchar i){-    (static_cast<Fl_Radio_Button*>(b))->when(i);+    (static_cast<Fl_DerivedRadio_Button*>(b))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Radio_Button_visible)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->visible();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->visible();   }   FL_EXPORT_C(int,Fl_Radio_Button_visible_r)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->visible_r();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->visible_r();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_visible)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->visible();+    (static_cast<Fl_DerivedRadio_Button*>(b))->visible();   }   FL_EXPORT_C(void,Fl_Radio_Button_clear_visible)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->clear_visible();+    (static_cast<Fl_DerivedRadio_Button*>(b))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Radio_Button_active)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->active();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->active();   }   FL_EXPORT_C(int,Fl_Radio_Button_active_r)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->active_r();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->active_r();   }   FL_EXPORT_C(void,Fl_Radio_Button_activate)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->activate();+    (static_cast<Fl_DerivedRadio_Button*>(b))->activate();   }   FL_EXPORT_C(void,Fl_Radio_Button_deactivate)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->deactivate();+    (static_cast<Fl_DerivedRadio_Button*>(b))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Radio_Button_output)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->output();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->output();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_output)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->output();+    (static_cast<Fl_DerivedRadio_Button*>(b))->output();   }   FL_EXPORT_C(void,Fl_Radio_Button_clear_output)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->clear_output();+    (static_cast<Fl_DerivedRadio_Button*>(b))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Radio_Button_takesevents)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->takesevents();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->takesevents();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_changed)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->changed();+    (static_cast<Fl_DerivedRadio_Button*>(b))->changed();   }   FL_EXPORT_C(void,Fl_Radio_Button_clear_changed)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->clear_changed();+    (static_cast<Fl_DerivedRadio_Button*>(b))->clear_changed();   }   FL_EXPORT_C(int,Fl_Radio_Button_take_focus)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->take_focus();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->take_focus();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_visible_focus)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->set_visible_focus();+    (static_cast<Fl_DerivedRadio_Button*>(b))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Radio_Button_clear_visible_focus)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->clear_visible_focus();+    (static_cast<Fl_DerivedRadio_Button*>(b))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Radio_Button_modify_visible_focus)(fl_Radio_Button b,int v){-    (static_cast<Fl_Radio_Button*>(b))->visible_focus(v);+    (static_cast<Fl_DerivedRadio_Button*>(b))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Radio_Button_visible_focus)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->visible_focus();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->visible_focus();   }   FL_EXPORT_C(void,Fl_Radio_Button_do_callback)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->do_callback();+    (static_cast<Fl_DerivedRadio_Button*>(b))->do_callback();   }   FL_EXPORT_C(void,Fl_Radio_Button_do_callback_with_widget_and_user_data)(fl_Radio_Button b,fl_Widget w,long arg){-    (static_cast<Fl_Radio_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedRadio_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Radio_Button_do_callback_with_widget_and_default_user_data)(fl_Radio_Button b,fl_Widget w){-    (static_cast<Fl_Radio_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedRadio_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Radio_Button_contains)(fl_Radio_Button b,fl_Widget w){-    return (static_cast<Fl_Radio_Button*>(b))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedRadio_Button*>(b))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Radio_Button_inside)(fl_Radio_Button b,fl_Widget w){-    return (static_cast<Fl_Radio_Button*>(b))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedRadio_Button*>(b))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Radio_Button_redraw)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->redraw();+    (static_cast<Fl_DerivedRadio_Button*>(b))->redraw();   }   FL_EXPORT_C(void,Fl_Radio_Button_redraw_label)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->redraw_label();+    (static_cast<Fl_DerivedRadio_Button*>(b))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Radio_Button_damage)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->damage();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->damage();   }   FL_EXPORT_C(void,Fl_Radio_Button_clear_damage_with_bitmask)(fl_Radio_Button b,uchar c){-    (static_cast<Fl_Radio_Button*>(b))->clear_damage(c);+    (static_cast<Fl_DerivedRadio_Button*>(b))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Radio_Button_clear_damage)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->clear_damage();+    (static_cast<Fl_DerivedRadio_Button*>(b))->clear_damage();   }   FL_EXPORT_C(void,Fl_Radio_Button_damage_with_text)(fl_Radio_Button b,uchar c){-    (static_cast<Fl_Radio_Button*>(b))->damage(c);+    (static_cast<Fl_DerivedRadio_Button*>(b))->damage(c);   }   FL_EXPORT_C(void,Fl_Radio_Button_damage_inside_widget)(fl_Radio_Button b,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Radio_Button*>(b))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedRadio_Button*>(b))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Radio_Button_draw_label_with_xywh_alignment)(fl_Radio_Button b,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Radio_Button*>(b))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedRadio_Button*>(b))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Radio_Button_measure_label)(fl_Radio_Button b,int* ww,int* hh){-    (static_cast<Fl_Radio_Button*>(b))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedRadio_Button*>(b))->measure_label(*ww,*hh);   }   FL_EXPORT_C(fl_Window,    Fl_Radio_Button_window)(fl_Radio_Button radio_button){-    return (fl_Window) (static_cast<Fl_Radio_Button*>(radio_button))->window();+    return (fl_Window) (static_cast<Fl_DerivedRadio_Button*>(radio_button))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Radio_Button_top_window)(fl_Radio_Button radio_button){-    return (fl_Window) (static_cast<Fl_Radio_Button*>(radio_button))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedRadio_Button*>(radio_button))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Radio_Button_top_window_offset)(fl_Radio_Button radio_button, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Radio_Button*>(radio_button))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedRadio_Button*>(radio_button))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Radio_Button_as_group)(fl_Radio_Button radio_button){-    return (fl_Group) (static_cast<Fl_Radio_Button*>(radio_button))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedRadio_Button*>(radio_button))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Radio_Button_as_gl_window)(fl_Radio_Button radio_button){-    return (fl_Gl_Window) (static_cast<Fl_Radio_Button*>(radio_button))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedRadio_Button*>(radio_button))->as_gl_window();   } -  FL_EXPORT_C(fl_Radio_Button, Fl_Radio_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Radio_Button* button = new Fl_Radio_Button(x,y,w,h,label);+  FL_EXPORT_C(fl_Radio_Button, Fl_Radio_Button_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedRadio_Button* button = new Fl_DerivedRadio_Button(x,y,w,h,label,dfps);     return (static_cast<fl_Radio_Button>(button));   }-  FL_EXPORT_C(fl_Radio_Button, Fl_Radio_Button_New)(int x, int y, int w, int h) {-    Fl_Radio_Button* button = new Fl_Radio_Button(x,y,w,h,0);+  FL_EXPORT_C(fl_Radio_Button, Fl_Radio_Button_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedRadio_Button* button = new Fl_DerivedRadio_Button(x,y,w,h,0,dfps);     return (fl_Radio_Button)button;   }   FL_EXPORT_C(void,Fl_Radio_Button_Destroy)(fl_Radio_Button button){-    delete (static_cast<Fl_Radio_Button*>(button));+    delete (static_cast<Fl_DerivedRadio_Button*>(button));   }   FL_EXPORT_C(int,Fl_Radio_Button_set_value)(fl_Radio_Button b,int v){-    return (static_cast<Fl_Radio_Button*>(b))->value(v);+    return (static_cast<Fl_DerivedRadio_Button*>(b))->value(v);   }   FL_EXPORT_C(char,Fl_Radio_Button_value)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->value();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->value();   }   FL_EXPORT_C(int,Fl_Radio_Button_clear)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->clear();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->clear();   }   FL_EXPORT_C(void,Fl_Radio_Button_setonly)(fl_Radio_Button b){-    (static_cast<Fl_Radio_Button*>(b))->setonly();+    (static_cast<Fl_DerivedRadio_Button*>(b))->setonly();   }   FL_EXPORT_C(int,Fl_Radio_Button_get_shortcut)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->shortcut();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->shortcut();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_shortcut)(fl_Radio_Button b,int s){-    (static_cast<Fl_Radio_Button*>(b))->shortcut(s);+    (static_cast<Fl_DerivedRadio_Button*>(b))->shortcut(s);   }   FL_EXPORT_C(Fl_Boxtype,Fl_Radio_Button_down_box)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->down_box();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->down_box();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_down_box)(fl_Radio_Button b,Fl_Boxtype boxtype){-    (static_cast<Fl_Radio_Button*>(b))->down_box(boxtype);+    (static_cast<Fl_DerivedRadio_Button*>(b))->down_box(boxtype);   }   FL_EXPORT_C(Fl_Color,Fl_Radio_Button_down_color)(fl_Radio_Button b){-    return (static_cast<Fl_Radio_Button*>(b))->down_color();+    return (static_cast<Fl_DerivedRadio_Button*>(b))->down_color();   }   FL_EXPORT_C(void,Fl_Radio_Button_set_down_color)(fl_Radio_Button b,Fl_Color c){-    (static_cast<Fl_Radio_Button*>(b))->down_color(c);+    (static_cast<Fl_DerivedRadio_Button*>(b))->down_color(c);   } #ifdef __cplusplus }
c-src/Fl_Radio_ButtonC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Radio_Button.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedRadio_Button : public Fl_Radio_Button {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedRadio_Button(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedRadio_Button();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Radio_Button_handle,(fl_Radio_Button self, int event));@@ -94,8 +101,8 @@   FL_EXPORT_C_HEADER(fl_Group,Fl_Radio_Button_as_group,(fl_Radio_Button radio_button));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Radio_Button_as_gl_window,(fl_Radio_Button radio_button));   /* Fl_Radio_Button specific functions */-  FL_EXPORT_C_HEADER(fl_Radio_Button,Fl_Radio_Button_New_WithLabel,(int x, int y, int w, int h, const char* label));-  FL_EXPORT_C_HEADER(fl_Radio_Button,Fl_Radio_Button_New,(int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(fl_Radio_Button,Fl_Radio_Button_New_WithLabel,(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Radio_Button,Fl_Radio_Button_New,(int x, int y, int w, int h, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Radio_Button_Destroy,(fl_Button button));    FL_EXPORT_C_HEADER(char        ,Fl_Radio_Button_value,(fl_Radio_Button b));
c-src/Fl_Radio_Light_ButtonC.cpp view
@@ -1,311 +1,327 @@ #include "Fl_Radio_Light_ButtonC.h"  #ifdef __cplusplus+Fl_DerivedRadio_Light_Button::Fl_DerivedRadio_Light_Button(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Radio_Light_Button(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedRadio_Light_Button::~Fl_DerivedRadio_Light_Button() {+  destroy_data();+}+void Fl_DerivedRadio_Light_Button::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Radio_Light_Button)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   FL_EXPORT_C(int,Fl_Radio_Light_Button_handle)(fl_Radio_Light_Button self, int event){-    return (static_cast<Fl_Radio_Light_Button*>(self))->handle(event);+    return (static_cast<Fl_DerivedRadio_Light_Button*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Radio_Light_Button_parent)(fl_Radio_Light_Button b){-    return (fl_Group) (static_cast<Fl_Radio_Light_Button*>(b))->parent();+    return (fl_Group) (static_cast<Fl_DerivedRadio_Light_Button*>(b))->parent();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_parent)(fl_Radio_Light_Button b,fl_Group grp){-    (static_cast<Fl_Radio_Light_Button*>(b))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Radio_Light_Button_type)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->type();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->type();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_type)(fl_Radio_Light_Button b,uchar t){-    (static_cast<Fl_Radio_Light_Button*>(b))->type(t);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->type(t);   }    FL_EXPORT_C(int,Fl_Radio_Light_Button_x)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->x();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->x();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_y)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->y();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->y();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_w)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->w();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->w();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_h)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->h();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->h();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_align)(fl_Radio_Light_Button radio_light_button, Fl_Align alignment){-    (static_cast<Fl_Radio_Light_Button*>(radio_light_button))->align(alignment);+    (static_cast<Fl_DerivedRadio_Light_Button*>(radio_light_button))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Radio_Light_Button_align)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->align();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Radio_Light_Button_box)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->box();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->box();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_box)(fl_Radio_Light_Button b,Fl_Boxtype new_box){-    (static_cast<Fl_Radio_Light_Button*>(b))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Radio_Light_Button_color)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->color();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->color();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_color)(fl_Radio_Light_Button b,Fl_Color bg){-    (static_cast<Fl_Radio_Light_Button*>(b))->color(bg);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->color(bg);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_color_with_bg_sel)(fl_Radio_Light_Button b,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Radio_Light_Button*>(b))->color(bg,a);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Radio_Light_Button_selection_color)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->selection_color();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->selection_color();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_selection_color)(fl_Radio_Light_Button b,Fl_Color a){-    (static_cast<Fl_Radio_Light_Button*>(b))->selection_color(a);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Radio_Light_Button_label)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->label();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->label();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_copy_label)(fl_Radio_Light_Button b,const char* new_label){-    (static_cast<Fl_Radio_Light_Button*>(b))->copy_label(new_label);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_label)(fl_Radio_Light_Button b,const char* text){-    (static_cast<Fl_Radio_Light_Button*>(b))->label(text);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Radio_Light_Button_labeltype)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->labeltype();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labeltype();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_labeltype)(fl_Radio_Light_Button b,Fl_Labeltype a){-    (static_cast<Fl_Radio_Light_Button*>(b))->labeltype(a);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_labelcolor)(fl_Radio_Light_Button b,Fl_Color c){-    (static_cast<Fl_Radio_Light_Button*>(b))->labelcolor(c);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Radio_Light_Button_labelcolor)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->labelcolor();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Radio_Light_Button_labelfont)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->labelfont();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labelfont();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_labelfont)(fl_Radio_Light_Button b,Fl_Font c){-    (static_cast<Fl_Radio_Light_Button*>(b))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Radio_Light_Button_labelsize)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->labelsize();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labelsize();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_labelsize)(fl_Radio_Light_Button b,Fl_Fontsize pix){-    (static_cast<Fl_Radio_Light_Button*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Radio_Light_Button_image)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->image();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->image();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_image)(fl_Radio_Light_Button b,fl_Image pix){-    (static_cast<Fl_Radio_Light_Button*>(b))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Radio_Light_Button_deimage)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->deimage();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->deimage();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_deimage)(fl_Radio_Light_Button b,fl_Image pix){-    (static_cast<Fl_Radio_Light_Button*>(b))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Radio_Light_Button_tooltip)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->tooltip();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->tooltip();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_copy_tooltip)(fl_Radio_Light_Button b,const char* text){-    (static_cast<Fl_Radio_Light_Button*>(b))->copy_tooltip(text);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_tooltip)(fl_Radio_Light_Button b,const char* text){-    (static_cast<Fl_Radio_Light_Button*>(b))->tooltip(text);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_callback_with_user_data)(fl_Radio_Light_Button b,fl_Callback* cb,void* p){-    Fl_Radio_Light_Button* castedButton = (static_cast<Fl_Radio_Light_Button*>(b));+    Fl_DerivedRadio_Light_Button* castedButton = (static_cast<Fl_DerivedRadio_Light_Button*>(b));     new C_to_Fl_Callback(castedButton, cb, p);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_callback)(fl_Radio_Light_Button b,fl_Callback* cb){-    Fl_Radio_Light_Button* castedButton = (static_cast<Fl_Radio_Light_Button*>(b));+    Fl_DerivedRadio_Light_Button* castedButton = (static_cast<Fl_DerivedRadio_Light_Button*>(b));     new C_to_Fl_Callback(castedButton, cb);   }   FL_EXPORT_C(void*,Fl_Radio_Light_Button_user_data)(fl_Radio_Light_Button b){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Radio_Light_Button*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedRadio_Light_Button*>(b))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Radio_Light_Button*>(b))->user_data();+      return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->user_data();     }   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_user_data)(fl_Radio_Light_Button b,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Radio_Light_Button*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedRadio_Light_Button*>(b))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Radio_Light_Button*>(b))->user_data(stored_cb);+      (static_cast<Fl_DerivedRadio_Light_Button*>(b))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Radio_Light_Button*>(b))->user_data(v);+      (static_cast<Fl_DerivedRadio_Light_Button*>(b))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Radio_Light_Button_argument)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->argument();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->argument();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_argument)(fl_Radio_Light_Button b,long v){-    (static_cast<Fl_Radio_Light_Button*>(b))->argument(v);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Radio_Light_Button_when)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->when();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->when();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_when)(fl_Radio_Light_Button b,uchar i){-    (static_cast<Fl_Radio_Light_Button*>(b))->when(i);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Radio_Light_Button_visible)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->visible();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->visible();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_visible_r)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->visible_r();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->visible_r();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_visible)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->visible();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->visible();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_clear_visible)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->clear_visible();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Radio_Light_Button_active)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->active();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->active();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_active_r)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->active_r();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->active_r();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_activate)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->activate();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->activate();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_deactivate)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->deactivate();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Radio_Light_Button_output)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->output();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->output();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_output)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->output();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->output();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_clear_output)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->clear_output();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Radio_Light_Button_takesevents)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->takesevents();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->takesevents();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_changed)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->changed();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->changed();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_clear_changed)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->clear_changed();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear_changed();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_take_focus)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->take_focus();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->take_focus();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_visible_focus)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->set_visible_focus();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_clear_visible_focus)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->clear_visible_focus();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_modify_visible_focus)(fl_Radio_Light_Button b,int v){-    (static_cast<Fl_Radio_Light_Button*>(b))->visible_focus(v);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Radio_Light_Button_visible_focus)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->visible_focus();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->visible_focus();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_do_callback)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->do_callback();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->do_callback();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_do_callback_with_widget_and_user_data)(fl_Radio_Light_Button b,fl_Widget w,long arg){-    (static_cast<Fl_Radio_Light_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_do_callback_with_widget_and_default_user_data)(fl_Radio_Light_Button b,fl_Widget w){-    (static_cast<Fl_Radio_Light_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_contains)(fl_Radio_Light_Button b,fl_Widget w){-    return (static_cast<Fl_Radio_Light_Button*>(b))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_inside)(fl_Radio_Light_Button b,fl_Widget w){-    return (static_cast<Fl_Radio_Light_Button*>(b))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_redraw)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->redraw();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->redraw();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_redraw_label)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->redraw_label();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Radio_Light_Button_damage)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->damage();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->damage();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_clear_damage_with_bitmask)(fl_Radio_Light_Button b,uchar c){-    (static_cast<Fl_Radio_Light_Button*>(b))->clear_damage(c);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_clear_damage)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->clear_damage();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear_damage();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_damage_with_text)(fl_Radio_Light_Button b,uchar c){-    (static_cast<Fl_Radio_Light_Button*>(b))->damage(c);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->damage(c);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_damage_inside_widget)(fl_Radio_Light_Button b,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Radio_Light_Button*>(b))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_draw_label_with_xywh_alignment)(fl_Radio_Light_Button b,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Radio_Light_Button*>(b))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_measure_label)(fl_Radio_Light_Button b,int* ww,int* hh){-    (static_cast<Fl_Radio_Light_Button*>(b))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->measure_label(*ww,*hh);   }    FL_EXPORT_C(fl_Window,    Fl_Radio_Light_Button_window)(fl_Radio_Light_Button radio_light_button){-    return (fl_Window) (static_cast<Fl_Radio_Light_Button*>(radio_light_button))->window();+    return (fl_Window) (static_cast<Fl_DerivedRadio_Light_Button*>(radio_light_button))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Radio_Light_Button_top_window)(fl_Radio_Light_Button radio_light_button){-    return (fl_Window) (static_cast<Fl_Radio_Light_Button*>(radio_light_button))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedRadio_Light_Button*>(radio_light_button))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Radio_Light_Button_top_window_offset)(fl_Radio_Light_Button radio_light_button, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Radio_Light_Button*>(radio_light_button))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedRadio_Light_Button*>(radio_light_button))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Radio_Light_Button_as_group)(fl_Radio_Light_Button radio_light_button){-    return (fl_Group) (static_cast<Fl_Radio_Light_Button*>(radio_light_button))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedRadio_Light_Button*>(radio_light_button))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Radio_Light_Button_as_gl_window)(fl_Radio_Light_Button radio_light_button){-    return (fl_Gl_Window) (static_cast<Fl_Radio_Light_Button*>(radio_light_button))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedRadio_Light_Button*>(radio_light_button))->as_gl_window();   }-  FL_EXPORT_C(fl_Radio_Light_Button, Fl_Radio_Light_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Radio_Light_Button* button = new Fl_Radio_Light_Button(x,y,w,h,label);+  FL_EXPORT_C(fl_Radio_Light_Button, Fl_Radio_Light_Button_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedRadio_Light_Button* button = new Fl_DerivedRadio_Light_Button(x,y,w,h,label,dfps);     return (static_cast<fl_Radio_Light_Button>(button));   }-  FL_EXPORT_C(fl_Radio_Light_Button, Fl_Radio_Light_Button_New)(int x, int y, int w, int h) {-    Fl_Radio_Light_Button* button = new Fl_Radio_Light_Button(x,y,w,h,0);+  FL_EXPORT_C(fl_Radio_Light_Button, Fl_Radio_Light_Button_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedRadio_Light_Button* button = new Fl_DerivedRadio_Light_Button(x,y,w,h,0,dfps);     return (fl_Radio_Light_Button)button;   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_Destroy)(fl_Radio_Light_Button button){-    delete (static_cast<Fl_Radio_Light_Button*>(button));+    delete (static_cast<Fl_DerivedRadio_Light_Button*>(button));   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_set_value)(fl_Radio_Light_Button b,int v){-    return (static_cast<Fl_Radio_Light_Button*>(b))->value(v);+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->value(v);   }   FL_EXPORT_C(char,Fl_Radio_Light_Button_value)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->value();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->value();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_clear)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->clear();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->clear();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_setonly)(fl_Radio_Light_Button b){-    (static_cast<Fl_Radio_Light_Button*>(b))->setonly();+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->setonly();   }   FL_EXPORT_C(int,Fl_Radio_Light_Button_get_shortcut)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->shortcut();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->shortcut();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_shortcut)(fl_Radio_Light_Button b,int s){-    (static_cast<Fl_Radio_Light_Button*>(b))->shortcut(s);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->shortcut(s);   }   FL_EXPORT_C(Fl_Boxtype,Fl_Radio_Light_Button_down_box)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->down_box();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->down_box();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_down_box)(fl_Radio_Light_Button b,Fl_Boxtype boxtype){-    (static_cast<Fl_Radio_Light_Button*>(b))->down_box(boxtype);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->down_box(boxtype);   }   FL_EXPORT_C(Fl_Color,Fl_Radio_Light_Button_down_color)(fl_Radio_Light_Button b){-    return (static_cast<Fl_Radio_Light_Button*>(b))->down_color();+    return (static_cast<Fl_DerivedRadio_Light_Button*>(b))->down_color();   }   FL_EXPORT_C(void,Fl_Radio_Light_Button_set_down_color)(fl_Radio_Light_Button b,Fl_Color c){-    (static_cast<Fl_Radio_Light_Button*>(b))->down_color(c);+    (static_cast<Fl_DerivedRadio_Light_Button*>(b))->down_color(c);   } #ifdef __cplusplus }
c-src/Fl_Radio_Light_ButtonC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Radio_Light_Button.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedRadio_Light_Button : public Fl_Radio_Light_Button {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedRadio_Light_Button(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedRadio_Light_Button();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Radio_Light_Button_handle,(fl_Radio_Light_Button self, int event));@@ -95,8 +102,8 @@   FL_EXPORT_C_HEADER(fl_Group,Fl_Radio_Light_Button_as_group,(fl_Radio_Light_Button radio_light_button));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Radio_Light_Button_as_gl_window,(fl_Radio_Light_Button radio_light_button));   /* Fl_Radio_Light_Button specific functions */-  FL_EXPORT_C_HEADER(fl_Radio_Light_Button,Fl_Radio_Light_Button_New_WithLabel,(int x, int y, int w, int h, const char* label));-  FL_EXPORT_C_HEADER(fl_Radio_Light_Button,Fl_Radio_Light_Button_New,(int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(fl_Radio_Light_Button,Fl_Radio_Light_Button_New_WithLabel,(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Radio_Light_Button,Fl_Radio_Light_Button_New,(int x, int y, int w, int h, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Radio_Light_Button_Destroy,(fl_Radio_Light_Button button));   FL_EXPORT_C_HEADER(char        ,Fl_Radio_Light_Button_value,(fl_Radio_Light_Button b));   FL_EXPORT_C_HEADER(int         ,Fl_Radio_Light_Button_set_value,(fl_Radio_Light_Button b, int v));
c-src/Fl_Repeat_ButtonC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedRepeat_Button::~Fl_DerivedRepeat_Button(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedRepeat_Button::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Repeat_Button)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedRepeat_Button::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Repeat_Button) this);@@ -389,32 +401,47 @@     Fl_DerivedRepeat_Button* w = new Fl_DerivedRepeat_Button(X,Y,W,H,label,fs);     return (fl_Repeat_Button)w;   }-  FL_EXPORT_C(void, Fl_Repeat_Button_draw)(fl_Repeat_Button o){+  FL_EXPORT_C(void, Fl_DerivedRepeat_Button_draw)(fl_Repeat_Button o){     (static_cast<Fl_DerivedRepeat_Button*>(o))->draw();   }+  FL_EXPORT_C(void, Fl_Repeat_Button_draw)(fl_Repeat_Button o){+    (static_cast<Fl_DerivedRepeat_Button*>(o))->draw_super();+  }   FL_EXPORT_C(void, Fl_Repeat_Button_draw_super)(fl_Repeat_Button o){     (static_cast<Fl_DerivedRepeat_Button*>(o))->draw_super();   }-  FL_EXPORT_C(int, Fl_Repeat_Button_handle)(fl_Repeat_Button o, int event){+  FL_EXPORT_C(int, Fl_DerivedRepeat_Button_handle)(fl_Repeat_Button o, int event){     return (static_cast<Fl_DerivedRepeat_Button*>(o))->handle(event);   }+  FL_EXPORT_C(int, Fl_Repeat_Button_handle)(fl_Repeat_Button o, int event){+    return (static_cast<Fl_DerivedRepeat_Button*>(o))->Fl_Repeat_Button::handle(event);+  }   FL_EXPORT_C(int, Fl_Repeat_Button_handle_super)(fl_Repeat_Button o, int event){     return (static_cast<Fl_DerivedRepeat_Button*>(o))->handle_super(event);   }-  FL_EXPORT_C(void, Fl_Repeat_Button_resize)(fl_Repeat_Button o, int x, int y, int w, int h){+  FL_EXPORT_C(void, Fl_DerivedRepeat_Button_resize)(fl_Repeat_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedRepeat_Button*>(o))->resize(x,y,w,h);   }+  FL_EXPORT_C(void, Fl_Repeat_Button_resize)(fl_Repeat_Button o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedRepeat_Button*>(o))->Fl_Repeat_Button::resize(x,y,w,h);+  }   FL_EXPORT_C(void, Fl_Repeat_Button_resize_super)(fl_Repeat_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedRepeat_Button*>(o))->resize_super(x,y,w,h);   }-  FL_EXPORT_C(void, Fl_Repeat_Button_show)(fl_Repeat_Button o){+  FL_EXPORT_C(void, Fl_DerivedRepeat_Button_show)(fl_Repeat_Button o){     (static_cast<Fl_DerivedRepeat_Button*>(o))->show();   }+  FL_EXPORT_C(void, Fl_Repeat_Button_show)(fl_Repeat_Button o){+    (static_cast<Fl_DerivedRepeat_Button*>(o))->Fl_Repeat_Button::show();+  }   FL_EXPORT_C(void, Fl_Repeat_Button_show_super)(fl_Repeat_Button o){     (static_cast<Fl_DerivedRepeat_Button*>(o))->show_super();   }-  FL_EXPORT_C(void, Fl_Repeat_Button_hide)(fl_Repeat_Button o){+  FL_EXPORT_C(void, Fl_DerivedRepeat_Button_hide)(fl_Repeat_Button o){     (static_cast<Fl_DerivedRepeat_Button*>(o))->hide();+  }+  FL_EXPORT_C(void, Fl_Repeat_Button_hide)(fl_Repeat_Button o){+    (static_cast<Fl_DerivedRepeat_Button*>(o))->Fl_Repeat_Button::hide();   }   FL_EXPORT_C(void, Fl_Repeat_Button_hide_super)(fl_Repeat_Button o){     (static_cast<Fl_DerivedRepeat_Button*>(o))->hide_super();
c-src/Fl_Repeat_ButtonC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedRepeat_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedRepeat_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedRepeat_Button();@@ -30,6 +31,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Repeat_Button_handle,(fl_Repeat_Button self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedRepeat_Button_handle,(fl_Repeat_Button self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Repeat_Button_parent,(fl_Repeat_Button repeat_button));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_set_parent,(fl_Repeat_Button repeat_button, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Repeat_Button_type,(fl_Repeat_Button repeat_button));@@ -131,14 +133,18 @@   FL_EXPORT_C_HEADER(fl_Repeat_Button,Fl_OverriddenRepeat_Button_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Repeat_Button,Fl_OverriddenRepeat_Button_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_draw,(fl_Repeat_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRepeat_Button_draw,(fl_Repeat_Button o));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_draw_super,(fl_Repeat_Button o));   FL_EXPORT_C_HEADER(int,Fl_Repeat_Button_handle,(fl_Repeat_Button o, int event));   FL_EXPORT_C_HEADER(int,Fl_Repeat_Button_handle_super,(fl_Repeat_Button o, int event));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_resize,(fl_Repeat_Button o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRepeat_Button_resize,(fl_Repeat_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_resize_super,(fl_Repeat_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_show,(fl_Repeat_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRepeat_Button_show,(fl_Repeat_Button o));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_show_super,(fl_Repeat_Button o));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_hide,(fl_Repeat_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRepeat_Button_hide,(fl_Repeat_Button o));   FL_EXPORT_C_HEADER(void,Fl_Repeat_Button_hide_super,(fl_Repeat_Button o)); #ifdef __cplusplus }
c-src/Fl_Return_ButtonC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedReturn_Button::~Fl_DerivedReturn_Button(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedReturn_Button::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Return_Button)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedReturn_Button::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Return_Button) this);@@ -371,32 +383,47 @@   FL_EXPORT_C(void,Fl_Return_Button_set_down_color)(fl_Return_Button b,Fl_Color c){     (static_cast<Fl_Return_Button*>(b))->down_color(c);   }-  FL_EXPORT_C(void, Fl_Return_Button_draw)(fl_Return_Button o){+  FL_EXPORT_C(void, Fl_DerivedReturn_Button_draw)(fl_Return_Button o){     (static_cast<Fl_DerivedReturn_Button*>(o))->draw();   }+  FL_EXPORT_C(void, Fl_Return_Button_draw)(fl_Return_Button o){+    (static_cast<Fl_DerivedReturn_Button*>(o))->draw_super();+  }   FL_EXPORT_C(void, Fl_Return_Button_draw_super)(fl_Return_Button o){     (static_cast<Fl_DerivedReturn_Button*>(o))->draw_super();   }-  FL_EXPORT_C(int, Fl_Return_Button_handle)(fl_Return_Button o, int event){+  FL_EXPORT_C(int, Fl_DerivedReturn_Button_handle)(fl_Return_Button o, int event){     return (static_cast<Fl_DerivedReturn_Button*>(o))->handle(event);   }+  FL_EXPORT_C(int, Fl_Return_Button_handle)(fl_Return_Button o, int event){+    return (static_cast<Fl_DerivedReturn_Button*>(o))->Fl_Return_Button::handle(event);+  }   FL_EXPORT_C(int, Fl_Return_Button_handle_super)(fl_Return_Button o, int event){     return (static_cast<Fl_DerivedReturn_Button*>(o))->handle_super(event);   }-  FL_EXPORT_C(void, Fl_Return_Button_resize)(fl_Return_Button o, int x, int y, int w, int h){+  FL_EXPORT_C(void, Fl_DerivedReturn_Button_resize)(fl_Return_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedReturn_Button*>(o))->resize(x,y,w,h);   }+  FL_EXPORT_C(void, Fl_Return_Button_resize)(fl_Return_Button o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedReturn_Button*>(o))->Fl_Return_Button::resize(x,y,w,h);+  }   FL_EXPORT_C(void, Fl_Return_Button_resize_super)(fl_Return_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedReturn_Button*>(o))->resize_super(x,y,w,h);   }-  FL_EXPORT_C(void, Fl_Return_Button_show)(fl_Return_Button o){+  FL_EXPORT_C(void, Fl_DerivedReturn_Button_show)(fl_Return_Button o){     (static_cast<Fl_DerivedReturn_Button*>(o))->show();   }+  FL_EXPORT_C(void, Fl_Return_Button_show)(fl_Return_Button o){+    (static_cast<Fl_DerivedReturn_Button*>(o))->Fl_Return_Button::show();+  }   FL_EXPORT_C(void, Fl_Return_Button_show_super)(fl_Return_Button o){     (static_cast<Fl_DerivedReturn_Button*>(o))->show_super();   }-  FL_EXPORT_C(void, Fl_Return_Button_hide)(fl_Return_Button o){+  FL_EXPORT_C(void, Fl_DerivedReturn_Button_hide)(fl_Return_Button o){     (static_cast<Fl_DerivedReturn_Button*>(o))->hide();+  }+  FL_EXPORT_C(void, Fl_Return_Button_hide)(fl_Return_Button o){+    (static_cast<Fl_DerivedReturn_Button*>(o))->Fl_Return_Button::hide();   }   FL_EXPORT_C(void, Fl_Return_Button_hide_super)(fl_Return_Button o){     (static_cast<Fl_DerivedReturn_Button*>(o))->hide_super();
c-src/Fl_Return_ButtonC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedReturn_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedReturn_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedReturn_Button();@@ -30,6 +31,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Return_Button_handle,(fl_Return_Button self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedReturn_Button_handle,(fl_Return_Button self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Return_Button_parent,(fl_Return_Button return_button));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_set_parent,(fl_Return_Button return_button, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Return_Button_type,(fl_Return_Button return_button));@@ -131,14 +133,19 @@   FL_EXPORT_C_HEADER(fl_Return_Button,Fl_OverriddenReturn_Button_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Return_Button,Fl_OverriddenReturn_Button_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_draw,(fl_Return_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedReturn_Button_draw,(fl_Return_Button o));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_draw_super,(fl_Return_Button o));   FL_EXPORT_C_HEADER(int,Fl_Return_Button_handle,(fl_Return_Button o, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedReturn_Button_handle,(fl_Return_Button o, int event));   FL_EXPORT_C_HEADER(int,Fl_Return_Button_handle_super,(fl_Return_Button o, int event));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_resize,(fl_Return_Button o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedReturn_Button_resize,(fl_Return_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_resize_super,(fl_Return_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_show,(fl_Return_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedReturn_Button_show,(fl_Return_Button o));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_show_super,(fl_Return_Button o));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_hide,(fl_Return_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedReturn_Button_hide,(fl_Return_Button o));   FL_EXPORT_C_HEADER(void,Fl_Return_Button_hide_super,(fl_Return_Button o)); #ifdef __cplusplus }
c-src/Fl_RollerC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedRoller::~Fl_DerivedRoller(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedRoller::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Roller)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedRoller::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Roller) this);
c-src/Fl_RollerC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedRoller(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedRoller(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedRoller();
c-src/Fl_Round_ButtonC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedRound_Button::~Fl_DerivedRound_Button(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedRound_Button::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Round_Button)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedRound_Button::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Round_Button) this);@@ -389,32 +401,47 @@     Fl_DerivedRound_Button* w = new Fl_DerivedRound_Button(X,Y,W,H,label,fs);     return (fl_Round_Button)w;   }-  FL_EXPORT_C(void, Fl_Round_Button_draw)(fl_Round_Button o){+  FL_EXPORT_C(void, Fl_DerivedRound_Button_draw)(fl_Round_Button o){     (static_cast<Fl_DerivedRound_Button*>(o))->draw();   }+  FL_EXPORT_C(void, Fl_Round_Button_draw)(fl_Round_Button o){+    (static_cast<Fl_DerivedRound_Button*>(o))->draw_super();+  }   FL_EXPORT_C(void, Fl_Round_Button_draw_super)(fl_Round_Button o){     (static_cast<Fl_DerivedRound_Button*>(o))->draw_super();   }-  FL_EXPORT_C(int, Fl_Round_Button_handle)(fl_Round_Button o, int event){+  FL_EXPORT_C(int, Fl_DerivedRound_Button_handle)(fl_Round_Button o, int event){     return (static_cast<Fl_DerivedRound_Button*>(o))->handle(event);   }+  FL_EXPORT_C(int, Fl_Round_Button_handle)(fl_Round_Button o, int event){+    return (static_cast<Fl_DerivedRound_Button*>(o))->Fl_Round_Button::handle(event);+  }   FL_EXPORT_C(int, Fl_Round_Button_handle_super)(fl_Round_Button o, int event){     return (static_cast<Fl_DerivedRound_Button*>(o))->handle_super(event);   }-  FL_EXPORT_C(void, Fl_Round_Button_resize)(fl_Round_Button o, int x, int y, int w, int h){+  FL_EXPORT_C(void, Fl_DerivedRound_Button_resize)(fl_Round_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedRound_Button*>(o))->resize(x,y,w,h);   }+  FL_EXPORT_C(void, Fl_Round_Button_resize)(fl_Round_Button o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedRound_Button*>(o))->Fl_Round_Button::resize(x,y,w,h);+  }   FL_EXPORT_C(void, Fl_Round_Button_resize_super)(fl_Round_Button o, int x, int y, int w, int h){     (static_cast<Fl_DerivedRound_Button*>(o))->resize_super(x,y,w,h);   }-  FL_EXPORT_C(void, Fl_Round_Button_show)(fl_Round_Button o){+  FL_EXPORT_C(void, Fl_DerivedRound_Button_show)(fl_Round_Button o){     (static_cast<Fl_DerivedRound_Button*>(o))->show();   }+  FL_EXPORT_C(void, Fl_Round_Button_show)(fl_Round_Button o){+    (static_cast<Fl_DerivedRound_Button*>(o))->Fl_Round_Button::show();+  }   FL_EXPORT_C(void, Fl_Round_Button_show_super)(fl_Round_Button o){     (static_cast<Fl_DerivedRound_Button*>(o))->show_super();   }-  FL_EXPORT_C(void, Fl_Round_Button_hide)(fl_Round_Button o){+  FL_EXPORT_C(void, Fl_DerivedRound_Button_hide)(fl_Round_Button o){     (static_cast<Fl_DerivedRound_Button*>(o))->hide();+  }+  FL_EXPORT_C(void, Fl_Round_Button_hide)(fl_Round_Button o){+    (static_cast<Fl_DerivedRound_Button*>(o))->Fl_Round_Button::hide();   }   FL_EXPORT_C(void, Fl_Round_Button_hide_super)(fl_Round_Button o){     (static_cast<Fl_DerivedRound_Button*>(o))->hide_super();
c-src/Fl_Round_ButtonC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedRound_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedRound_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedRound_Button();@@ -131,14 +132,19 @@   FL_EXPORT_C_HEADER(fl_Round_Button,Fl_OverriddenRound_Button_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Round_Button,Fl_OverriddenRound_Button_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_draw,(fl_Round_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRound_Button_draw,(fl_Round_Button o));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_draw_super,(fl_Round_Button o));   FL_EXPORT_C_HEADER(int,Fl_Round_Button_handle,(fl_Round_Button o, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedRound_Button_handle,(fl_Round_Button o, int event));   FL_EXPORT_C_HEADER(int,Fl_Round_Button_handle_super,(fl_Round_Button o, int event));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_resize,(fl_Round_Button o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRound_Button_resize,(fl_Round_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_resize_super,(fl_Round_Button o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_show,(fl_Round_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRound_Button_show,(fl_Round_Button o));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_show_super,(fl_Round_Button o));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_hide,(fl_Round_Button o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedRound_Button_hide,(fl_Round_Button o));   FL_EXPORT_C_HEADER(void,Fl_Round_Button_hide_super,(fl_Round_Button o)); #ifdef __cplusplus }
c-src/Fl_Round_ClockC.cpp view
@@ -1,299 +1,315 @@ #include "Fl_Round_ClockC.h"  #ifdef __cplusplus+Fl_DerivedRound_Clock::Fl_DerivedRound_Clock(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Round_Clock(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedRound_Clock::~Fl_DerivedRound_Clock() {+  destroy_data();+}+void Fl_DerivedRound_Clock::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Round_Clock)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   FL_EXPORT_C(int,Fl_Round_Clock_handle)(fl_Round_Clock self, int event){-    return (static_cast<Fl_Round_Clock*>(self))->handle(event);+    return (static_cast<Fl_DerivedRound_Clock*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Round_Clock_parent)(fl_Round_Clock b){-    return (fl_Group) (static_cast<Fl_Round_Clock*>(b))->parent();+    return (fl_Group) (static_cast<Fl_DerivedRound_Clock*>(b))->parent();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_parent)(fl_Round_Clock b,fl_Group grp){-    (static_cast<Fl_Round_Clock*>(b))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Round_Clock_type)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->type();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->type();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_type)(fl_Round_Clock b,uchar t){-    (static_cast<Fl_Round_Clock*>(b))->type(t);+    (static_cast<Fl_DerivedRound_Clock*>(b))->type(t);   }    FL_EXPORT_C(int,Fl_Round_Clock_x)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->x();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->x();   }   FL_EXPORT_C(int,Fl_Round_Clock_y)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->y();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->y();   }   FL_EXPORT_C(int,Fl_Round_Clock_w)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->w();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->w();   }   FL_EXPORT_C(int,Fl_Round_Clock_h)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->h();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->h();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_align)(fl_Round_Clock round_clock, Fl_Align alignment){-    (static_cast<Fl_Round_Clock*>(round_clock))->align(alignment);+    (static_cast<Fl_DerivedRound_Clock*>(round_clock))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Round_Clock_align)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->align();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Round_Clock_box)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->box();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->box();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_box)(fl_Round_Clock b,Fl_Boxtype new_box){-    (static_cast<Fl_Round_Clock*>(b))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Round_Clock_color)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->color();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->color();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_color)(fl_Round_Clock b,Fl_Color bg){-    (static_cast<Fl_Round_Clock*>(b))->color(bg);+    (static_cast<Fl_DerivedRound_Clock*>(b))->color(bg);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_color_with_bg_sel)(fl_Round_Clock b,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Round_Clock*>(b))->color(bg,a);+    (static_cast<Fl_DerivedRound_Clock*>(b))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Round_Clock_selection_color)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->selection_color();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->selection_color();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_selection_color)(fl_Round_Clock b,Fl_Color a){-    (static_cast<Fl_Round_Clock*>(b))->selection_color(a);+    (static_cast<Fl_DerivedRound_Clock*>(b))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Round_Clock_label)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->label();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->label();   }   FL_EXPORT_C(void,Fl_Round_Clock_copy_label)(fl_Round_Clock b,const char* new_label){-    (static_cast<Fl_Round_Clock*>(b))->copy_label(new_label);+    (static_cast<Fl_DerivedRound_Clock*>(b))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_label)(fl_Round_Clock b,const char* text){-    (static_cast<Fl_Round_Clock*>(b))->label(text);+    (static_cast<Fl_DerivedRound_Clock*>(b))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Round_Clock_labeltype)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->labeltype();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->labeltype();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_labeltype)(fl_Round_Clock b,Fl_Labeltype a){-    (static_cast<Fl_Round_Clock*>(b))->labeltype(a);+    (static_cast<Fl_DerivedRound_Clock*>(b))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_labelcolor)(fl_Round_Clock b,Fl_Color c){-    (static_cast<Fl_Round_Clock*>(b))->labelcolor(c);+    (static_cast<Fl_DerivedRound_Clock*>(b))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Round_Clock_labelcolor)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->labelcolor();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Round_Clock_labelfont)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->labelfont();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->labelfont();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_labelfont)(fl_Round_Clock b,Fl_Font c){-    (static_cast<Fl_Round_Clock*>(b))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Round_Clock_labelsize)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->labelsize();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->labelsize();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_labelsize)(fl_Round_Clock b,Fl_Fontsize pix){-    (static_cast<Fl_Round_Clock*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Round_Clock_image)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->image();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->image();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_image)(fl_Round_Clock b,fl_Image pix){-    (static_cast<Fl_Round_Clock*>(b))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Round_Clock_deimage)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->deimage();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->deimage();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_deimage)(fl_Round_Clock b,fl_Image pix){-    (static_cast<Fl_Round_Clock*>(b))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Round_Clock_tooltip)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->tooltip();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->tooltip();   }   FL_EXPORT_C(void,Fl_Round_Clock_copy_tooltip)(fl_Round_Clock b,const char* text){-    (static_cast<Fl_Round_Clock*>(b))->copy_tooltip(text);+    (static_cast<Fl_DerivedRound_Clock*>(b))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_tooltip)(fl_Round_Clock b,const char* text){-    (static_cast<Fl_Round_Clock*>(b))->tooltip(text);+    (static_cast<Fl_DerivedRound_Clock*>(b))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_callback_with_user_data)(fl_Round_Clock b,fl_Callback* cb,void* p){-    Fl_Round_Clock* castedButton = (static_cast<Fl_Round_Clock*>(b));+    Fl_DerivedRound_Clock* castedButton = (static_cast<Fl_DerivedRound_Clock*>(b));     new C_to_Fl_Callback(castedButton, cb, p);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_callback)(fl_Round_Clock b,fl_Callback* cb){-    Fl_Round_Clock* castedButton = (static_cast<Fl_Round_Clock*>(b));+    Fl_DerivedRound_Clock* castedButton = (static_cast<Fl_DerivedRound_Clock*>(b));     new C_to_Fl_Callback(castedButton, cb);   }   FL_EXPORT_C(void*,Fl_Round_Clock_user_data)(fl_Round_Clock b){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Round_Clock*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedRound_Clock*>(b))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Round_Clock*>(b))->user_data();+      return (static_cast<Fl_DerivedRound_Clock*>(b))->user_data();     }   }   FL_EXPORT_C(void,Fl_Round_Clock_set_user_data)(fl_Round_Clock b,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Round_Clock*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedRound_Clock*>(b))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Round_Clock*>(b))->user_data(stored_cb);+      (static_cast<Fl_DerivedRound_Clock*>(b))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Round_Clock*>(b))->user_data(v);+      (static_cast<Fl_DerivedRound_Clock*>(b))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Round_Clock_argument)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->argument();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->argument();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_argument)(fl_Round_Clock b,long v){-    (static_cast<Fl_Round_Clock*>(b))->argument(v);+    (static_cast<Fl_DerivedRound_Clock*>(b))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Round_Clock_when)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->when();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->when();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_when)(fl_Round_Clock b,uchar i){-    (static_cast<Fl_Round_Clock*>(b))->when(i);+    (static_cast<Fl_DerivedRound_Clock*>(b))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Round_Clock_visible)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->visible();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->visible();   }   FL_EXPORT_C(int,Fl_Round_Clock_visible_r)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->visible_r();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->visible_r();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_visible)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->visible();+    (static_cast<Fl_DerivedRound_Clock*>(b))->visible();   }   FL_EXPORT_C(void,Fl_Round_Clock_clear_visible)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->clear_visible();+    (static_cast<Fl_DerivedRound_Clock*>(b))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Round_Clock_active)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->active();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->active();   }   FL_EXPORT_C(int,Fl_Round_Clock_active_r)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->active_r();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->active_r();   }   FL_EXPORT_C(void,Fl_Round_Clock_activate)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->activate();+    (static_cast<Fl_DerivedRound_Clock*>(b))->activate();   }   FL_EXPORT_C(void,Fl_Round_Clock_deactivate)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->deactivate();+    (static_cast<Fl_DerivedRound_Clock*>(b))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Round_Clock_output)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->output();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->output();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_output)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->output();+    (static_cast<Fl_DerivedRound_Clock*>(b))->output();   }   FL_EXPORT_C(void,Fl_Round_Clock_clear_output)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->clear_output();+    (static_cast<Fl_DerivedRound_Clock*>(b))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Round_Clock_takesevents)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->takesevents();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->takesevents();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_changed)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->changed();+    (static_cast<Fl_DerivedRound_Clock*>(b))->changed();   }   FL_EXPORT_C(void,Fl_Round_Clock_clear_changed)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->clear_changed();+    (static_cast<Fl_DerivedRound_Clock*>(b))->clear_changed();   }   FL_EXPORT_C(int,Fl_Round_Clock_take_focus)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->take_focus();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->take_focus();   }   FL_EXPORT_C(void,Fl_Round_Clock_set_visible_focus)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->set_visible_focus();+    (static_cast<Fl_DerivedRound_Clock*>(b))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Round_Clock_clear_visible_focus)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->clear_visible_focus();+    (static_cast<Fl_DerivedRound_Clock*>(b))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Round_Clock_modify_visible_focus)(fl_Round_Clock b,int v){-    (static_cast<Fl_Round_Clock*>(b))->visible_focus(v);+    (static_cast<Fl_DerivedRound_Clock*>(b))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Round_Clock_visible_focus)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->visible_focus();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->visible_focus();   }   FL_EXPORT_C(void,Fl_Round_Clock_do_callback)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->do_callback();+    (static_cast<Fl_DerivedRound_Clock*>(b))->do_callback();   }   FL_EXPORT_C(void,Fl_Round_Clock_do_callback_with_widget_and_user_data)(fl_Round_Clock b,fl_Widget w,long arg){-    (static_cast<Fl_Round_Clock*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedRound_Clock*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Round_Clock_do_callback_with_widget_and_default_user_data)(fl_Round_Clock b,fl_Widget w){-    (static_cast<Fl_Round_Clock*>(b))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedRound_Clock*>(b))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Round_Clock_contains)(fl_Round_Clock b,fl_Widget w){-    return (static_cast<Fl_Round_Clock*>(b))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedRound_Clock*>(b))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Round_Clock_inside)(fl_Round_Clock b,fl_Widget w){-    return (static_cast<Fl_Round_Clock*>(b))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedRound_Clock*>(b))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Round_Clock_redraw)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->redraw();+    (static_cast<Fl_DerivedRound_Clock*>(b))->redraw();   }   FL_EXPORT_C(void,Fl_Round_Clock_redraw_label)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->redraw_label();+    (static_cast<Fl_DerivedRound_Clock*>(b))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Round_Clock_damage)(fl_Round_Clock b){-    return (static_cast<Fl_Round_Clock*>(b))->damage();+    return (static_cast<Fl_DerivedRound_Clock*>(b))->damage();   }   FL_EXPORT_C(void,Fl_Round_Clock_clear_damage_with_bitmask)(fl_Round_Clock b,uchar c){-    (static_cast<Fl_Round_Clock*>(b))->clear_damage(c);+    (static_cast<Fl_DerivedRound_Clock*>(b))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Round_Clock_clear_damage)(fl_Round_Clock b){-    (static_cast<Fl_Round_Clock*>(b))->clear_damage();+    (static_cast<Fl_DerivedRound_Clock*>(b))->clear_damage();   }   FL_EXPORT_C(void,Fl_Round_Clock_damage_with_text)(fl_Round_Clock b,uchar c){-    (static_cast<Fl_Round_Clock*>(b))->damage(c);+    (static_cast<Fl_DerivedRound_Clock*>(b))->damage(c);   }   FL_EXPORT_C(void,Fl_Round_Clock_damage_inside_widget)(fl_Round_Clock b,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Round_Clock*>(b))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedRound_Clock*>(b))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Round_Clock_draw_label_with_xywh_alignment)(fl_Round_Clock b,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Round_Clock*>(b))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedRound_Clock*>(b))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Round_Clock_measure_label)(fl_Round_Clock b,int* ww,int* hh){-    (static_cast<Fl_Round_Clock*>(b))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedRound_Clock*>(b))->measure_label(*ww,*hh);   }    FL_EXPORT_C(fl_Window,    Fl_Round_Clock_window)(fl_Round_Clock round_clock){-    return (fl_Window) (static_cast<Fl_Round_Clock*>(round_clock))->window();+    return (fl_Window) (static_cast<Fl_DerivedRound_Clock*>(round_clock))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Round_Clock_top_window)(fl_Round_Clock round_clock){-    return (fl_Window) (static_cast<Fl_Round_Clock*>(round_clock))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedRound_Clock*>(round_clock))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Round_Clock_top_window_offset)(fl_Round_Clock round_clock, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Round_Clock*>(round_clock))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedRound_Clock*>(round_clock))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Round_Clock_as_group)(fl_Round_Clock round_clock){-    return (fl_Group) (static_cast<Fl_Round_Clock*>(round_clock))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedRound_Clock*>(round_clock))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Round_Clock_as_gl_window)(fl_Round_Clock round_clock){-    return (fl_Gl_Window) (static_cast<Fl_Round_Clock*>(round_clock))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedRound_Clock*>(round_clock))->as_gl_window();   }-  FL_EXPORT_C(fl_Round_Clock, Fl_Round_Clock_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Round_Clock* button = new Fl_Round_Clock(x,y,w,h,label);+  FL_EXPORT_C(fl_Round_Clock, Fl_Round_Clock_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedRound_Clock* button = new Fl_DerivedRound_Clock(x,y,w,h,label,dfps);     return (static_cast<fl_Round_Clock>(button));   }-  FL_EXPORT_C(fl_Round_Clock, Fl_Round_Clock_New)(int x, int y, int w, int h) {-    Fl_Round_Clock* button = new Fl_Round_Clock(x,y,w,h,0);+  FL_EXPORT_C(fl_Round_Clock, Fl_Round_Clock_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedRound_Clock* button = new Fl_DerivedRound_Clock(x,y,w,h,0,dfps);     return (fl_Round_Clock)button;   }   FL_EXPORT_C(void,Fl_Round_Clock_Destroy)(fl_Round_Clock button){-    delete (static_cast<Fl_Round_Clock*>(button));+    delete (static_cast<Fl_DerivedRound_Clock*>(button));   }   FL_EXPORT_C(void,Fl_Round_Clock_set_value)(fl_Round_Clock round_clock,ulong v){-    return (static_cast<Fl_Round_Clock*>(round_clock))->value(v);+    return (static_cast<Fl_DerivedRound_Clock*>(round_clock))->value(v);   }   FL_EXPORT_C(void,Fl_Round_Clock_set_value_with_hms)(fl_Round_Clock round_clock,int H,int m,int s){-    return (static_cast<Fl_Round_Clock*>(round_clock))->value(H,m,s);+    return (static_cast<Fl_DerivedRound_Clock*>(round_clock))->value(H,m,s);   }   FL_EXPORT_C(ulong,Fl_Round_Clock_value)(fl_Round_Clock round_clock){-    return (static_cast<Fl_Round_Clock*>(round_clock))->value();+    return (static_cast<Fl_DerivedRound_Clock*>(round_clock))->value();   }   FL_EXPORT_C(int,Fl_Round_Clock_hour)(fl_Round_Clock round_clock){-    return (static_cast<Fl_Round_Clock*>(round_clock))->hour();+    return (static_cast<Fl_DerivedRound_Clock*>(round_clock))->hour();   }   FL_EXPORT_C(int,Fl_Round_Clock_minute)(fl_Round_Clock round_clock){-    return (static_cast<Fl_Round_Clock*>(round_clock))->minute();+    return (static_cast<Fl_DerivedRound_Clock*>(round_clock))->minute();   }   FL_EXPORT_C(int,Fl_Round_Clock_second)(fl_Round_Clock round_clock){-    return (static_cast<Fl_Round_Clock*>(round_clock))->second();+    return (static_cast<Fl_DerivedRound_Clock*>(round_clock))->second();   } #ifdef __cplusplus }
c-src/Fl_Round_ClockC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Round_Clock.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedRound_Clock : public Fl_Round_Clock {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedRound_Clock(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedRound_Clock();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Round_Clock_handle,(fl_Round_Clock self, int event));@@ -95,8 +102,8 @@   FL_EXPORT_C_HEADER(fl_Group,Fl_Round_Clock_as_group,(fl_Round_Clock round_clock));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Round_Clock_as_gl_window,(fl_Round_Clock round_clock));   /* Fl_Round_Clock specific functions */-  FL_EXPORT_C_HEADER(fl_Round_Clock,Fl_Round_Clock_New_WithLabel,(int x, int y, int w, int h, const char* label));-  FL_EXPORT_C_HEADER(fl_Round_Clock,Fl_Round_Clock_New,(int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(fl_Round_Clock,Fl_Round_Clock_New_WithLabel,(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Round_Clock,Fl_Round_Clock_New,(int x, int y, int w, int h, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Round_Clock_set_value,(fl_Round_Clock round_clock, ulong v));   FL_EXPORT_C_HEADER(void,Fl_Round_Clock_set_value_with_hms,(fl_Round_Clock round_clock, int H, int m, int s));   FL_EXPORT_C_HEADER(ulong,Fl_Round_Clock_value,(fl_Round_Clock round_clock));
c-src/Fl_ScrollC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedScroll::~Fl_DerivedScroll(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedScroll::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Scroll)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedScroll::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Scroll) this);
c-src/Fl_ScrollC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedScroll(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedScroll(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedScroll();
c-src/Fl_ScrollbarC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedScrollbar::~Fl_DerivedScrollbar(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedScrollbar::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Scrollbar)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedScrollbar::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Scrollbar) this);
c-src/Fl_ScrollbarC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedScrollbar(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedScrollbar(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedScrollbar();
c-src/Fl_Secret_InputC.cpp view
@@ -1,415 +1,431 @@ #include "Fl_Secret_InputC.h"  #ifdef __cplusplus+Fl_DerivedSecret_Input::Fl_DerivedSecret_Input(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Secret_Input(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedSecret_Input::~Fl_DerivedSecret_Input() {+  destroy_data();+}+void Fl_DerivedSecret_Input::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Secret_Input)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C(int,Fl_Secret_Input_handle)(fl_Secret_Input self, int event){-    return (static_cast<Fl_Secret_Input*>(self))->handle(event);+    return (static_cast<Fl_DerivedSecret_Input*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Secret_Input_parent)(fl_Secret_Input secret_input){-    return (fl_Group) (static_cast<Fl_Secret_Input*>(secret_input))->parent();+    return (fl_Group) (static_cast<Fl_DerivedSecret_Input*>(secret_input))->parent();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_parent)(fl_Secret_Input secret_input,fl_Group grp){-    (static_cast<Fl_Secret_Input*>(secret_input))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Secret_Input_type)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->type();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->type();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_type)(fl_Secret_Input secret_input,uchar t){-    (static_cast<Fl_Secret_Input*>(secret_input))->type(t);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->type(t);   }    FL_EXPORT_C(int,Fl_Secret_Input_x)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->x();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->x();   }   FL_EXPORT_C(int,Fl_Secret_Input_y)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->y();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->y();   }   FL_EXPORT_C(int,Fl_Secret_Input_w)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->w();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->w();   }   FL_EXPORT_C(int,Fl_Secret_Input_h)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->h();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->h();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_align)(fl_Secret_Input secret_input, Fl_Align alignment){-    (static_cast<Fl_Secret_Input*>(secret_input))->align(alignment);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Secret_Input_align)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->align();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Secret_Input_box)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->box();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->box();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_box)(fl_Secret_Input secret_input,Fl_Boxtype new_box){-    (static_cast<Fl_Secret_Input*>(secret_input))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Secret_Input_color)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->color();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->color();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_color)(fl_Secret_Input secret_input,Fl_Color bg){-    (static_cast<Fl_Secret_Input*>(secret_input))->color(bg);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->color(bg);   }   FL_EXPORT_C(void,Fl_Secret_Input_set_color_with_bg_sel)(fl_Secret_Input secret_input,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Secret_Input*>(secret_input))->color(bg,a);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Secret_Input_selection_color)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->selection_color();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->selection_color();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_selection_color)(fl_Secret_Input secret_input,Fl_Color a){-    (static_cast<Fl_Secret_Input*>(secret_input))->selection_color(a);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Secret_Input_label)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->label();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->label();   }   FL_EXPORT_C(void,Fl_Secret_Input_copy_label)(fl_Secret_Input secret_input,const char* new_label){-    (static_cast<Fl_Secret_Input*>(secret_input))->copy_label(new_label);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Secret_Input_set_label)(fl_Secret_Input secret_input,const char* text){-    (static_cast<Fl_Secret_Input*>(secret_input))->label(text);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Secret_Input_labeltype)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->labeltype();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labeltype();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_labeltype)(fl_Secret_Input secret_input,Fl_Labeltype a){-    (static_cast<Fl_Secret_Input*>(secret_input))->labeltype(a);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Secret_Input_set_labelcolor)(fl_Secret_Input secret_input,Fl_Color c){-    (static_cast<Fl_Secret_Input*>(secret_input))->labelcolor(c);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Secret_Input_labelcolor)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->labelcolor();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Secret_Input_labelfont)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->labelfont();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labelfont();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_labelfont)(fl_Secret_Input secret_input,Fl_Font c){-    (static_cast<Fl_Secret_Input*>(secret_input))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Secret_Input_labelsize)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->labelsize();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labelsize();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_labelsize)(fl_Secret_Input secret_input,Fl_Fontsize pix){-    (static_cast<Fl_Secret_Input*>(secret_input))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Secret_Input_image)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->image();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->image();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_image)(fl_Secret_Input secret_input,fl_Image pix){-    (static_cast<Fl_Secret_Input*>(secret_input))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Secret_Input_deimage)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->deimage();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->deimage();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_deimage)(fl_Secret_Input secret_input,fl_Image pix){-    (static_cast<Fl_Secret_Input*>(secret_input))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Secret_Input_tooltip)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->tooltip();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->tooltip();   }   FL_EXPORT_C(void,Fl_Secret_Input_copy_tooltip)(fl_Secret_Input secret_input,const char* text){-    (static_cast<Fl_Secret_Input*>(secret_input))->copy_tooltip(text);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Secret_Input_set_tooltip)(fl_Secret_Input secret_input,const char* text){-    (static_cast<Fl_Secret_Input*>(secret_input))->tooltip(text);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Secret_Input_set_callback_with_user_data)(fl_Secret_Input secret_input,fl_Callback* cb,void* p){-    Fl_Secret_Input* castedInput_dow = (static_cast<Fl_Secret_Input*>(secret_input));+    Fl_DerivedSecret_Input* castedInput_dow = (static_cast<Fl_DerivedSecret_Input*>(secret_input));     new C_to_Fl_Callback(castedInput_dow, cb, p);   }   FL_EXPORT_C(void,Fl_Secret_Input_set_callback)(fl_Secret_Input secret_input,fl_Callback* cb){-    Fl_Secret_Input* castedInput_dow = (static_cast<Fl_Secret_Input*>(secret_input));+    Fl_DerivedSecret_Input* castedInput_dow = (static_cast<Fl_DerivedSecret_Input*>(secret_input));     new C_to_Fl_Callback(castedInput_dow, cb);   }   FL_EXPORT_C(void*,Fl_Secret_Input_user_data)(fl_Secret_Input secret_input){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Secret_Input*>(secret_input))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedSecret_Input*>(secret_input))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Secret_Input*>(secret_input))->user_data();+      return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->user_data();     }   }   FL_EXPORT_C(void,Fl_Secret_Input_set_user_data)(fl_Secret_Input secret_input,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Secret_Input*>(secret_input))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedSecret_Input*>(secret_input))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Secret_Input*>(secret_input))->user_data(stored_cb);+      (static_cast<Fl_DerivedSecret_Input*>(secret_input))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Secret_Input*>(secret_input))->user_data(v);+      (static_cast<Fl_DerivedSecret_Input*>(secret_input))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Secret_Input_argument)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->argument();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->argument();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_argument)(fl_Secret_Input secret_input,long v){-    (static_cast<Fl_Secret_Input*>(secret_input))->argument(v);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Secret_Input_when)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->when();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->when();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_when)(fl_Secret_Input secret_input,uchar i){-    (static_cast<Fl_Secret_Input*>(secret_input))->when(i);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Secret_Input_visible)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->visible();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->visible();   }   FL_EXPORT_C(int,Fl_Secret_Input_visible_r)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->visible_r();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->visible_r();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_visible)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->visible();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->visible();   }   FL_EXPORT_C(void,Fl_Secret_Input_clear_visible)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->clear_visible();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Secret_Input_active)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->active();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->active();   }   FL_EXPORT_C(int,Fl_Secret_Input_active_r)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->active_r();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->active_r();   }   FL_EXPORT_C(void,Fl_Secret_Input_activate)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->activate();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->activate();   }   FL_EXPORT_C(void,Fl_Secret_Input_deactivate)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->deactivate();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Secret_Input_output)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->output();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->output();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_output)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->output();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->output();   }   FL_EXPORT_C(void,Fl_Secret_Input_clear_output)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->clear_output();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Secret_Input_takesevents)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->takesevents();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->takesevents();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_changed)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->changed();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->changed();   }   FL_EXPORT_C(void,Fl_Secret_Input_clear_changed)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->clear_changed();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->clear_changed();   }   FL_EXPORT_C(int,Fl_Secret_Input_take_focus)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->take_focus();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->take_focus();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_visible_focus)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->set_visible_focus();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Secret_Input_clear_visible_focus)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->clear_visible_focus();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Secret_Input_modify_visible_focus)(fl_Secret_Input secret_input,int v){-    (static_cast<Fl_Secret_Input*>(secret_input))->visible_focus(v);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Secret_Input_visible_focus)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->visible_focus();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->visible_focus();   }   FL_EXPORT_C(void,Fl_Secret_Input_do_callback)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->do_callback();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->do_callback();   }   FL_EXPORT_C(void,Fl_Secret_Input_do_callback_with_widget_and_user_data)(fl_Secret_Input secret_input,fl_Widget w,long arg){-    (static_cast<Fl_Secret_Input*>(secret_input))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Secret_Input_do_callback_with_widget_and_default_user_data)(fl_Secret_Input secret_input,fl_Widget w){-    (static_cast<Fl_Secret_Input*>(secret_input))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Secret_Input_contains)(fl_Secret_Input secret_input,fl_Widget w){-    return (static_cast<Fl_Secret_Input*>(secret_input))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Secret_Input_inside)(fl_Secret_Input secret_input,fl_Widget w){-    return (static_cast<Fl_Secret_Input*>(secret_input))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Secret_Input_redraw)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->redraw();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->redraw();   }   FL_EXPORT_C(void,Fl_Secret_Input_redraw_label)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->redraw_label();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Secret_Input_damage)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->damage();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->damage();   }   FL_EXPORT_C(void,Fl_Secret_Input_clear_damage_with_bitmask)(fl_Secret_Input secret_input,uchar c){-    (static_cast<Fl_Secret_Input*>(secret_input))->clear_damage(c);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Secret_Input_clear_damage)(fl_Secret_Input secret_input){-    (static_cast<Fl_Secret_Input*>(secret_input))->clear_damage();+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->clear_damage();   }   FL_EXPORT_C(void,Fl_Secret_Input_damage_with_text)(fl_Secret_Input secret_input,uchar c){-    (static_cast<Fl_Secret_Input*>(secret_input))->damage(c);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->damage(c);   }   FL_EXPORT_C(void,Fl_Secret_Input_damage_inside_widget)(fl_Secret_Input secret_input,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Secret_Input*>(secret_input))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Secret_Input_draw_label_with_xywh_alignment)(fl_Secret_Input secret_input,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Secret_Input*>(secret_input))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Secret_Input_measure_label)(fl_Secret_Input secret_input,int* ww,int* hh){-    (static_cast<Fl_Secret_Input*>(secret_input))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->measure_label(*ww,*hh);   }    FL_EXPORT_C(fl_Window,    Fl_Secret_Input_window)(fl_Secret_Input secret_input){-    return (fl_Window) (static_cast<Fl_Secret_Input*>(secret_input))->window();+    return (fl_Window) (static_cast<Fl_DerivedSecret_Input*>(secret_input))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Secret_Input_top_window)(fl_Secret_Input secret_input){-    return (fl_Window) (static_cast<Fl_Secret_Input*>(secret_input))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedSecret_Input*>(secret_input))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Secret_Input_top_window_offset)(fl_Secret_Input secret_input, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Secret_Input*>(secret_input))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedSecret_Input*>(secret_input))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Secret_Input_as_group)(fl_Secret_Input secret_input){-    return (fl_Group) (static_cast<Fl_Secret_Input*>(secret_input))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedSecret_Input*>(secret_input))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Secret_Input_as_gl_window)(fl_Secret_Input secret_input){-    return (fl_Gl_Window) (static_cast<Fl_Secret_Input*>(secret_input))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedSecret_Input*>(secret_input))->as_gl_window();   }-  /* Fl_Secret_Input specific functions */-  FL_EXPORT_C(fl_Secret_Input, Fl_Secret_Input_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Secret_Input* secret_input = new Fl_Secret_Input(x,y,w,h,label);+  /* Fl_DerivedSecret_Input specific functions */+  FL_EXPORT_C(fl_Secret_Input, Fl_Secret_Input_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedSecret_Input* secret_input = new Fl_DerivedSecret_Input(x,y,w,h,label,dfps);     return (static_cast<fl_Secret_Input>(secret_input));   }-  FL_EXPORT_C(fl_Secret_Input, Fl_Secret_Input_New)(int x, int y, int w, int h) {-    Fl_Secret_Input* secret_input = new Fl_Secret_Input(x,y,w,h,0);+  FL_EXPORT_C(fl_Secret_Input, Fl_Secret_Input_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedSecret_Input* secret_input = new Fl_DerivedSecret_Input(x,y,w,h,0,dfps);     return (static_cast<fl_Secret_Input>(secret_input));   }   FL_EXPORT_C(void,Fl_Secret_Input_Destroy)(fl_Secret_Input secret_input){-    delete (static_cast<Fl_Secret_Input*>(secret_input));+    delete (static_cast<Fl_DerivedSecret_Input*>(secret_input));   }   FL_EXPORT_C(void,Fl_Secret_Input_resize)(fl_Secret_Input secret_input,int X,int Y,int W,int H){-    (static_cast<Fl_Secret_Input*>(secret_input))->resize(X,Y,W,H);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->resize(X,Y,W,H);   }   FL_EXPORT_C(int,Fl_Secret_Input_set_value)(fl_Secret_Input secret_input,const char* text){-    return (static_cast<Fl_Secret_Input*>(secret_input))->value(text);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->value(text);   }   FL_EXPORT_C(int,Fl_Secret_Input_set_value_with_length)(fl_Secret_Input secret_input,const char* text,int length){-    return (static_cast<Fl_Secret_Input*>(secret_input))->value(text,length);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->value(text,length);   }   FL_EXPORT_C(int,Fl_Secret_Input_static_value)(fl_Secret_Input secret_input,const char* text){-    return (static_cast<Fl_Secret_Input*>(secret_input))->static_value(text);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->static_value(text);   }   FL_EXPORT_C(int,Fl_Secret_Input_static_value_with_length)(fl_Secret_Input secret_input,const char* text,int length){-    return (static_cast<Fl_Secret_Input*>(secret_input))->static_value(text,length);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->static_value(text,length);   }   FL_EXPORT_C(const char*,Fl_Secret_Input_value)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->value();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->value();   }   FL_EXPORT_C(Fl_Char,Fl_Secret_Input_index)(fl_Secret_Input secret_input,int i){-    return (static_cast<Fl_Secret_Input*>(secret_input))->index(i);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->index(i);   }   FL_EXPORT_C(int,Fl_Secret_Input_size)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->size();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->size();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_size)(fl_Secret_Input secret_input,int W,int H){-    (static_cast<Fl_Secret_Input*>(secret_input))->size(W,H);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->size(W,H);   }   FL_EXPORT_C(int,Fl_Secret_Input_maximum_size)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->maximum_size();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->maximum_size();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_maximum_size)(fl_Secret_Input secret_input,int m){-    (static_cast<Fl_Secret_Input*>(secret_input))->maximum_size(m);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->maximum_size(m);   }   FL_EXPORT_C(int,Fl_Secret_Input_position)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->position();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->position();   }   FL_EXPORT_C(int,Fl_Secret_Input_mark)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->mark();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->mark();   }   FL_EXPORT_C(int,Fl_Secret_Input_set_position_with_cursor_mark)(fl_Secret_Input secret_input,int p,int m){-    return (static_cast<Fl_Secret_Input*>(secret_input))->position(p,m);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->position(p,m);   }   FL_EXPORT_C(int,Fl_Secret_Input_set_position_n_n)(fl_Secret_Input secret_input,int p){-    return (static_cast<Fl_Secret_Input*>(secret_input))->position(p);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->position(p);   }   FL_EXPORT_C(int,Fl_Secret_Input_set_mark)(fl_Secret_Input secret_input,int m){-    return (static_cast<Fl_Secret_Input*>(secret_input))->mark(m);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->mark(m);   }   FL_EXPORT_C(int,Fl_Secret_Input_replace)(fl_Secret_Input secret_input,int b,int e,const char* text){-    return (static_cast<Fl_Secret_Input*>(secret_input))->replace(b,e,text);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->replace(b,e,text);   }   FL_EXPORT_C(int,Fl_Secret_Input_replace_with_ilen)(fl_Secret_Input secret_input,int b,int e,const char* text,int ilen){-    return (static_cast<Fl_Secret_Input*>(secret_input))->replace(b,e,text,ilen);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->replace(b,e,text,ilen);   }   FL_EXPORT_C(int,Fl_Secret_Input_cut)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->cut();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->cut();   }   FL_EXPORT_C(int,Fl_Secret_Input_cut_bytes)(fl_Secret_Input secret_input,int n){-    return (static_cast<Fl_Secret_Input*>(secret_input))->cut(n);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->cut(n);   }   FL_EXPORT_C(int,Fl_Secret_Input_cut_range)(fl_Secret_Input secret_input,int a,int b){-    return (static_cast<Fl_Secret_Input*>(secret_input))->cut(a,b);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->cut(a,b);   }   FL_EXPORT_C(int,Fl_Secret_Input_insert)(fl_Secret_Input secret_input,const char* t){-    return (static_cast<Fl_Secret_Input*>(secret_input))->insert(t);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->insert(t);   }   FL_EXPORT_C(int,Fl_Secret_Input_insert_with_length)(fl_Secret_Input secret_input,const char* t,int l){-    return (static_cast<Fl_Secret_Input*>(secret_input))->insert(t,l);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->insert(t,l);   }   FL_EXPORT_C(int,Fl_Secret_Input_copy)(fl_Secret_Input secret_input,int clipboard){-    return (static_cast<Fl_Secret_Input*>(secret_input))->copy(clipboard);+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->copy(clipboard);   }   FL_EXPORT_C(int,Fl_Secret_Input_undo)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->undo();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->undo();   }   FL_EXPORT_C(int,Fl_Secret_Input_copy_cuts)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->copy_cuts();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->copy_cuts();   }   FL_EXPORT_C(int,Fl_Secret_Input_shortcut)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->shortcut();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->shortcut();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_shortcut)(fl_Secret_Input secret_input,int s){-    (static_cast<Fl_Secret_Input*>(secret_input))->shortcut(s);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->shortcut(s);   }   FL_EXPORT_C(Fl_Font,Fl_Secret_Input_textfont)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->textfont();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->textfont();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_textfont)(fl_Secret_Input secret_input,Fl_Font s){-    (static_cast<Fl_Secret_Input*>(secret_input))->textfont(s);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->textfont(s);   }   FL_EXPORT_C(Fl_Fontsize,Fl_Secret_Input_textsize)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->textsize();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->textsize();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_textsize)(fl_Secret_Input secret_input,Fl_Fontsize s){-    (static_cast<Fl_Secret_Input*>(secret_input))->textsize(s);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->textsize(s);   }   FL_EXPORT_C(Fl_Color,Fl_Secret_Input_textcolor)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->textcolor();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->textcolor();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_textcolor)(fl_Secret_Input secret_input,Fl_Color n){-    (static_cast<Fl_Secret_Input*>(secret_input))->textcolor(n);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->textcolor(n);   }   FL_EXPORT_C(Fl_Color,Fl_Secret_Input_cursor_color)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->cursor_color();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->cursor_color();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_cursor_color)(fl_Secret_Input secret_input,Fl_Color n){-    (static_cast<Fl_Secret_Input*>(secret_input))->cursor_color(n);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->cursor_color(n);   }   FL_EXPORT_C(int,Fl_Secret_Input_input_type)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->input_type();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->input_type();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_input_type)(fl_Secret_Input secret_input,int t){-    (static_cast<Fl_Secret_Input*>(secret_input))->input_type(t);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->input_type(t);   }   FL_EXPORT_C(int,Fl_Secret_Input_readonly)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->readonly();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->readonly();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_readonly)(fl_Secret_Input secret_input,int b){-    (static_cast<Fl_Secret_Input*>(secret_input))->readonly(b);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->readonly(b);   }   FL_EXPORT_C(int,Fl_Secret_Input_wrap)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->wrap();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->wrap();   }   FL_EXPORT_C(void,Fl_Secret_Input_set_wrap)(fl_Secret_Input secret_input,int b){-    (static_cast<Fl_Secret_Input*>(secret_input))->wrap(b);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->wrap(b);   }   FL_EXPORT_C(void,Fl_Secret_Input_tab_nav)(fl_Secret_Input secret_input,int val){-    (static_cast<Fl_Secret_Input*>(secret_input))->tab_nav(val);+    (static_cast<Fl_DerivedSecret_Input*>(secret_input))->tab_nav(val);   }   FL_EXPORT_C(int,Fl_Secret_Input_set_tab_nav)(fl_Secret_Input secret_input){-    return (static_cast<Fl_Secret_Input*>(secret_input))->tab_nav();+    return (static_cast<Fl_DerivedSecret_Input*>(secret_input))->tab_nav();   } #ifdef __cplusplus }
c-src/Fl_Secret_InputC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Secret_Input.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedSecret_Input : public Fl_Secret_Input {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedSecret_Input(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedSecret_Input();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Secret_Input_handle,(fl_Secret_Input self, int event));@@ -96,8 +103,8 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Secret_Input_as_gl_window,(fl_Secret_Input secret_input));   /* Fl_Secret_Input specific functions */   FL_EXPORT_C_HEADER(int,Fl_Secret_Input_handle,(fl_Secret_Input secret_input, int event));-  FL_EXPORT_C(fl_Float_Input, Fl_Secret_Input_New_WithLabel)(int x, int y, int w, int h, const char* label);-  FL_EXPORT_C(fl_Float_Input, Fl_Secret_Input_New)(int x, int y, int w, int h);+  FL_EXPORT_C(fl_Float_Input, Fl_Secret_Input_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps);+  FL_EXPORT_C(fl_Float_Input, Fl_Secret_Input_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps);   FL_EXPORT_C_HEADER(void,Fl_Secret_Input_Destroy,(fl_Secret_Input secret_input));    FL_EXPORT_C_HEADER(void,Fl_Secret_Input_resize,(fl_Secret_Input secret_input, int X, int Y, int W, int H));
c-src/Fl_Select_BrowserC.cpp view
@@ -1,506 +1,522 @@ #include "Fl_Select_BrowserC.h" #ifdef __cplusplus+Fl_DerivedSelect_Browser::Fl_DerivedSelect_Browser(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Select_Browser(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedSelect_Browser::~Fl_DerivedSelect_Browser() {+  destroy_data();+}+void Fl_DerivedSelect_Browser::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Select_Browser)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   FL_EXPORT_C(int,Fl_Select_Browser_handle)(fl_Select_Browser self, int event){-    return (static_cast<Fl_Select_Browser*>(self))->handle(event);+    return (static_cast<Fl_DerivedSelect_Browser*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Select_Browser_parent)(fl_Select_Browser select_browser){-    return (fl_Group) (static_cast<Fl_Select_Browser*>(select_browser))->parent();+    return (fl_Group) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->parent();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_parent)(fl_Select_Browser select_browser,fl_Group grp){-    (static_cast<Fl_Select_Browser*>(select_browser))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Select_Browser_type)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->type();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->type();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_type)(fl_Select_Browser select_browser,uchar t){-    (static_cast<Fl_Select_Browser*>(select_browser))->type(t);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->type(t);   }    FL_EXPORT_C(int,Fl_Select_Browser_x)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->x();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->x();   }   FL_EXPORT_C(int,Fl_Select_Browser_y)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->y();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->y();   }   FL_EXPORT_C(int,Fl_Select_Browser_w)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->w();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->w();   }   FL_EXPORT_C(int,Fl_Select_Browser_h)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->h();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->h();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_align)(fl_Select_Browser select_browser, Fl_Align alignment){-    (static_cast<Fl_Select_Browser*>(select_browser))->align(alignment);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Select_Browser_align)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->align();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Select_Browser_box)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->box();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->box();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_box)(fl_Select_Browser select_browser,Fl_Boxtype new_box){-    (static_cast<Fl_Select_Browser*>(select_browser))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Select_Browser_color)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->color();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->color();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_color)(fl_Select_Browser select_browser,Fl_Color bg){-    (static_cast<Fl_Select_Browser*>(select_browser))->color(bg);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->color(bg);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_color_with_bg_sel)(fl_Select_Browser select_browser,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Select_Browser*>(select_browser))->color(bg,a);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Select_Browser_selection_color)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->selection_color();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->selection_color();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_selection_color)(fl_Select_Browser select_browser,Fl_Color a){-    (static_cast<Fl_Select_Browser*>(select_browser))->selection_color(a);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Select_Browser_label)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->label();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->label();   }   FL_EXPORT_C(void,Fl_Select_Browser_copy_label)(fl_Select_Browser select_browser,const char* new_label){-    (static_cast<Fl_Select_Browser*>(select_browser))->copy_label(new_label);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_label)(fl_Select_Browser select_browser,const char* text){-    (static_cast<Fl_Select_Browser*>(select_browser))->label(text);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Select_Browser_labeltype)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->labeltype();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labeltype();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_labeltype)(fl_Select_Browser select_browser,Fl_Labeltype a){-    (static_cast<Fl_Select_Browser*>(select_browser))->labeltype(a);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_labelcolor)(fl_Select_Browser select_browser,Fl_Color c){-    (static_cast<Fl_Select_Browser*>(select_browser))->labelcolor(c);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Select_Browser_labelcolor)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->labelcolor();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Select_Browser_labelfont)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->labelfont();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labelfont();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_labelfont)(fl_Select_Browser select_browser,Fl_Font c){-    (static_cast<Fl_Select_Browser*>(select_browser))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Select_Browser_labelsize)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->labelsize();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labelsize();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_labelsize)(fl_Select_Browser select_browser,Fl_Fontsize pix){-    (static_cast<Fl_Select_Browser*>(select_browser))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Select_Browser_image)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->image();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->image();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_image)(fl_Select_Browser select_browser,fl_Image pix){-    (static_cast<Fl_Select_Browser*>(select_browser))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Select_Browser_deimage)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->deimage();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->deimage();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_deimage)(fl_Select_Browser select_browser,fl_Image pix){-    (static_cast<Fl_Select_Browser*>(select_browser))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Select_Browser_tooltip)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->tooltip();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->tooltip();   }   FL_EXPORT_C(void,Fl_Select_Browser_copy_tooltip)(fl_Select_Browser select_browser,const char* text){-    (static_cast<Fl_Select_Browser*>(select_browser))->copy_tooltip(text);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_tooltip)(fl_Select_Browser select_browser,const char* text){-    (static_cast<Fl_Select_Browser*>(select_browser))->tooltip(text);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_callback_with_user_data)(fl_Select_Browser select_browser,fl_Callback* cb,void* p){-    Fl_Select_Browser* castedWindow = (static_cast<Fl_Select_Browser*>(select_browser));+    Fl_DerivedSelect_Browser* castedWindow = (static_cast<Fl_DerivedSelect_Browser*>(select_browser));     new C_to_Fl_Callback(castedWindow, cb, p);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_callback)(fl_Select_Browser select_browser,fl_Callback* cb){-    Fl_Select_Browser* castedWindow = (static_cast<Fl_Select_Browser*>(select_browser));+    Fl_DerivedSelect_Browser* castedWindow = (static_cast<Fl_DerivedSelect_Browser*>(select_browser));     new C_to_Fl_Callback(castedWindow, cb);   }   FL_EXPORT_C(void*,Fl_Select_Browser_user_data)(fl_Select_Browser select_browser){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Select_Browser*>(select_browser))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedSelect_Browser*>(select_browser))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Select_Browser*>(select_browser))->user_data();+      return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->user_data();     }   }   FL_EXPORT_C(void,Fl_Select_Browser_set_user_data)(fl_Select_Browser select_browser,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Select_Browser*>(select_browser))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedSelect_Browser*>(select_browser))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Select_Browser*>(select_browser))->user_data(stored_cb);+      (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Select_Browser*>(select_browser))->user_data(v);+      (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Select_Browser_argument)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->argument();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->argument();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_argument)(fl_Select_Browser select_browser,long v){-    (static_cast<Fl_Select_Browser*>(select_browser))->argument(v);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Select_Browser_when)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->when();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->when();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_when)(fl_Select_Browser select_browser,uchar i){-    (static_cast<Fl_Select_Browser*>(select_browser))->when(i);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->when(i);   }   FL_EXPORT_C(int,Fl_Select_Browser_visible_r)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->visible_r();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->visible_r();   }   FL_EXPORT_C(void,Fl_Select_Browser_show_super)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->show();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->show();   }   FL_EXPORT_C(void,Fl_Select_Browser_hide_super)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->hide();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->hide();   }   FL_EXPORT_C(void,Fl_Select_Browser_clear_visible)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear_visible();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Select_Browser_active)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->active();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->active();   }   FL_EXPORT_C(int,Fl_Select_Browser_active_r)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->active_r();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->active_r();   }   FL_EXPORT_C(void,Fl_Select_Browser_activate)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->activate();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->activate();   }   FL_EXPORT_C(void,Fl_Select_Browser_deactivate)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->deactivate();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Select_Browser_output)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->output();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->output();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_output)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->output();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->output();   }   FL_EXPORT_C(void,Fl_Select_Browser_clear_output)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear_output();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Select_Browser_takesevents)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->takesevents();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->takesevents();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_changed)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->changed();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->changed();   }   FL_EXPORT_C(void,Fl_Select_Browser_clear_changed)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear_changed();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear_changed();   }   FL_EXPORT_C(int,Fl_Select_Browser_take_focus)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->take_focus();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->take_focus();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_visible_focus)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->set_visible_focus();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Select_Browser_clear_visible_focus)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear_visible_focus();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Select_Browser_modify_visible_focus)(fl_Select_Browser select_browser,int v){-    (static_cast<Fl_Select_Browser*>(select_browser))->visible_focus(v);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Select_Browser_visible_focus)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->visible_focus();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->visible_focus();   }   FL_EXPORT_C(int,Fl_Select_Browser_contains)(fl_Select_Browser select_browser,fl_Widget w){-    return (static_cast<Fl_Select_Browser*>(select_browser))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Select_Browser_inside)(fl_Select_Browser select_browser,fl_Widget w){-    return (static_cast<Fl_Select_Browser*>(select_browser))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Select_Browser_redraw)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->redraw();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->redraw();   }   FL_EXPORT_C(void,Fl_Select_Browser_redraw_label)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->redraw_label();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Select_Browser_damage)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->damage();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->damage();   }   FL_EXPORT_C(void,Fl_Select_Browser_clear_damage_with_bitmask)(fl_Select_Browser select_browser,uchar c){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear_damage(c);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Select_Browser_clear_damage)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear_damage();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear_damage();   }   FL_EXPORT_C(void,Fl_Select_Browser_damage_with_text)(fl_Select_Browser select_browser,uchar c){-    (static_cast<Fl_Select_Browser*>(select_browser))->damage(c);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->damage(c);   }   FL_EXPORT_C(void,Fl_Select_Browser_damage_inside_widget)(fl_Select_Browser select_browser,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Select_Browser*>(select_browser))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Select_Browser_draw_label_with_xywh_alignment)(fl_Select_Browser select_browser,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Select_Browser*>(select_browser))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Select_Browser_measure_label)(fl_Select_Browser select_browser,int* ww,int* hh){-    (static_cast<Fl_Select_Browser*>(select_browser))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->measure_label(*ww,*hh);   }   FL_EXPORT_C(fl_Window,    Fl_Select_Browser_window)(fl_Select_Browser select_browser){-    return (fl_Window) (static_cast<Fl_Select_Browser*>(select_browser))->window();+    return (fl_Window) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Select_Browser_top_window)(fl_Select_Browser select_browser){-    return (fl_Window) (static_cast<Fl_Select_Browser*>(select_browser))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Select_Browser_top_window_offset)(fl_Select_Browser select_browser, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Select_Browser*>(select_browser))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Select_Browser_as_group_super)(fl_Select_Browser select_browser){-    return (fl_Group) (static_cast<Fl_Select_Browser*>(select_browser))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->as_group();   }   FL_EXPORT_C(fl_Group,Fl_Select_Browser_as_group)(fl_Select_Browser select_browser){-    return (fl_Group) (static_cast<Fl_Select_Browser*>(select_browser))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Select_Browser_as_gl_window_super)(fl_Select_Browser select_browser){-    return (fl_Gl_Window) (static_cast<Fl_Select_Browser*>(select_browser))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->as_gl_window();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Select_Browser_as_gl_window)(fl_Select_Browser select_browser){-    return (fl_Gl_Window) (static_cast<Fl_Select_Browser*>(select_browser))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->as_gl_window();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_resizable_by_reference)(fl_Select_Browser select_browser,fl_Widget o){-    (static_cast<Fl_Select_Browser*>(select_browser))->resizable((static_cast<Fl_Widget*>(o)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->resizable((static_cast<Fl_Widget*>(o)));   }   FL_EXPORT_C(void,Fl_Select_Browser_set_resizable)(fl_Select_Browser select_browser,fl_Widget o){-    (static_cast<Fl_Select_Browser*>(select_browser))->resizable((static_cast<Fl_Widget*>(o)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->resizable((static_cast<Fl_Widget*>(o)));   }   FL_EXPORT_C(fl_Widget,Fl_Select_Browser_resizable)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->resizable();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->resizable();   }   FL_EXPORT_C(void,Fl_Select_Browser_add_resizable)(fl_Select_Browser select_browser,fl_Widget o){-    (static_cast<Fl_Select_Browser*>(select_browser))->add_resizable(*(static_cast<Fl_Widget*>(o)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->add_resizable(*(static_cast<Fl_Widget*>(o)));   }   FL_EXPORT_C(void,Fl_Select_Browser_set_clip_children)(fl_Select_Browser select_browser,int c){-    (static_cast<Fl_Select_Browser*>(select_browser))->clip_children(c);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clip_children(c);   }   FL_EXPORT_C(unsigned int,Fl_Select_Browser_clip_children)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->clip_children();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clip_children();   }   FL_EXPORT_C(void,Fl_Select_Browser_focus)(fl_Select_Browser select_browser, fl_Widget W){-    (static_cast<Fl_Select_Browser*>(select_browser))->focus((static_cast<Fl_Widget*>(W)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->focus((static_cast<Fl_Widget*>(W)));   }   FL_EXPORT_C(fl_Widget,Fl_Select_Browser__ddfdesign_kludge)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->_ddfdesign_kludge();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->_ddfdesign_kludge();   }   // FL_EXPORT_C(void,Fl_Select_Browser_forms_end)(fl_Select_Browser self){-  //   (static_cast<Fl_Select_Browser*>(self))->forms_end();+  //   (static_cast<Fl_DerivedSelect_Browser*>(self))->forms_end();   // } -  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Select_Browser* select_browser = new Fl_Select_Browser(x,y,w,h,label);+  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New_WithLabel)(int x, int y, int w, int h, const char* label,Destroy_Function_Pointers dfps) {+    Fl_DerivedSelect_Browser* select_browser = new Fl_DerivedSelect_Browser(x,y,w,h,label,dfps);     return (static_cast<fl_Select_Browser>(select_browser));   }-  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New)(int x, int y, int w, int h) {-    Fl_Select_Browser* select_browser = new Fl_Select_Browser(x,y,w,h,0);+  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New)(int x, int y, int w, int h,Destroy_Function_Pointers dfps) {+    Fl_DerivedSelect_Browser* select_browser = new Fl_DerivedSelect_Browser(x,y,w,h,0,dfps);     return (fl_Select_Browser)select_browser;   }   FL_EXPORT_C(void,Fl_Select_Browser_Destroy)(fl_Select_Browser select_browser){-    delete (static_cast<Fl_Select_Browser*>(select_browser));+    delete (static_cast<Fl_DerivedSelect_Browser*>(select_browser));   }   FL_EXPORT_C(void,Fl_Select_Browser_remove)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->remove(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->remove(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_add)(fl_Select_Browser select_browser,const char* newtext){-    (static_cast<Fl_Select_Browser*>(select_browser))->add(newtext);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->add(newtext);   }   FL_EXPORT_C(void,Fl_Select_Browser_add_with_d)(fl_Select_Browser select_browser,const char* newtext,void* d){-    (static_cast<Fl_Select_Browser*>(select_browser))->add(newtext,d);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->add(newtext,d);   }   FL_EXPORT_C(void,Fl_Select_Browser_insert)(fl_Select_Browser select_browser,int line,const char* newtext){-    (static_cast<Fl_Select_Browser*>(select_browser))->insert(line,newtext);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->insert(line,newtext);   }   FL_EXPORT_C(void,Fl_Select_Browser_insert_with_d)(fl_Select_Browser select_browser,int line,const char* newtext,void* d){-    (static_cast<Fl_Select_Browser*>(select_browser))->insert(line,newtext,d);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->insert(line,newtext,d);   }   FL_EXPORT_C(void,Fl_Select_Browser_move)(fl_Select_Browser select_browser,int to,int from){-    (static_cast<Fl_Select_Browser*>(select_browser))->move(to,from);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->move(to,from);   }   FL_EXPORT_C(int,Fl_Select_Browser_load)(fl_Select_Browser select_browser,const char* filename){-    return (static_cast<Fl_Select_Browser*>(select_browser))->load(filename);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->load(filename);   }   FL_EXPORT_C(void, Fl_Select_Browser_swap)(fl_Select_Browser select_browser, int a, int b){-    (static_cast<Fl_Select_Browser*>(select_browser))->swap(a,b);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->swap(a,b);   }   FL_EXPORT_C(void,Fl_Select_Browser_clear)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->clear();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->clear();   }   FL_EXPORT_C(int,Fl_Select_Browser_size)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->size();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->size();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_size)(fl_Select_Browser select_browser,int W,int H){-    (static_cast<Fl_Select_Browser*>(select_browser))->size(W,H);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->size(W,H);   }   FL_EXPORT_C(int,Fl_Select_Browser_topline)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->topline();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->topline();   }   FL_EXPORT_C(void,Fl_Select_Browser_lineposition)(fl_Select_Browser select_browser,int line,Fl_Line_Position pos){-    Fl_Select_Browser::Fl_Line_Position p = (Fl_Select_Browser::Fl_Line_Position)-1;+    Fl_DerivedSelect_Browser::Fl_Line_Position p = (Fl_DerivedSelect_Browser::Fl_Line_Position)-1;     switch(p){-    case TOP :    {p = Fl_Select_Browser::TOP; break;}-    case BOTTOM : {p = Fl_Select_Browser::BOTTOM; break;}-    case MIDDLE : {p = Fl_Select_Browser::MIDDLE; break;}-    default:      {p = (Fl_Select_Browser::Fl_Line_Position)-1; break;}+    case TOP :    {p = Fl_DerivedSelect_Browser::TOP; break;}+    case BOTTOM : {p = Fl_DerivedSelect_Browser::BOTTOM; break;}+    case MIDDLE : {p = Fl_DerivedSelect_Browser::MIDDLE; break;}+    default:      {p = (Fl_DerivedSelect_Browser::Fl_Line_Position)-1; break;}     }-    return (static_cast<Fl_Select_Browser*>(select_browser))->lineposition(line,p);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->lineposition(line,p);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_topline)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->topline(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->topline(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_bottomline)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->bottomline(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->bottomline(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_middleline)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->middleline(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->middleline(line);   }   FL_EXPORT_C(int,Fl_Select_Browser_select)(fl_Select_Browser select_browser,int line){-    return (static_cast<Fl_Select_Browser*>(select_browser))->select(line);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->select(line);   }   FL_EXPORT_C(int,Fl_Select_Browser_select_with_val)(fl_Select_Browser select_browser,int line,int val){-    return (static_cast<Fl_Select_Browser*>(select_browser))->select(line,val);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->select(line,val);   }   FL_EXPORT_C(int,Fl_Select_Browser_selected)(fl_Select_Browser select_browser,int line){-    return (static_cast<Fl_Select_Browser*>(select_browser))->selected(line);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->selected(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_show_with_line)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->show(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->show(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_show)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->show();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->show();   }   FL_EXPORT_C(void,Fl_Select_Browser_hide_with_line)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->hide(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->hide(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_hide)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->hide();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->hide();   }   FL_EXPORT_C(int,Fl_Select_Browser_visible)(fl_Select_Browser select_browser,int line){-    return (static_cast<Fl_Select_Browser*>(select_browser))->visible(line);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->visible(line);   }   FL_EXPORT_C(int,Fl_Select_Browser_value)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->value();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->value();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_value)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->value(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->value(line);   }   FL_EXPORT_C(const char*,Fl_Select_Browser_text)(fl_Select_Browser select_browser,int line){-    return (static_cast<Fl_Select_Browser*>(select_browser))->text(line);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->text(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_text)(fl_Select_Browser select_browser,int line,const char* newtext){-    (static_cast<Fl_Select_Browser*>(select_browser))->text(line,newtext);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->text(line,newtext);   }   FL_EXPORT_C(void*,Fl_Select_Browser_data)(fl_Select_Browser select_browser,int line){-    return (static_cast<Fl_Select_Browser*>(select_browser))->data(line);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->data(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_data)(fl_Select_Browser select_browser,int line,void* d){-    (static_cast<Fl_Select_Browser*>(select_browser))->data(line,d);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->data(line,d);   }   FL_EXPORT_C(char,Fl_Select_Browser_format_char)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->format_char();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->format_char();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_format_char)(fl_Select_Browser select_browser,char c){-    (static_cast<Fl_Select_Browser*>(select_browser))->format_char(c);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->format_char(c);   }   FL_EXPORT_C(char,Fl_Select_Browser_column_char)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->column_char();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->column_char();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_column_char)(fl_Select_Browser select_browser,char c){-    (static_cast<Fl_Select_Browser*>(select_browser))->column_char(c);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->column_char(c);   }   FL_EXPORT_C(const int*,Fl_Select_Browser_column_widths)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->column_widths();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->column_widths();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_column_widths)(fl_Select_Browser select_browser,const int* arr){-    (static_cast<Fl_Select_Browser*>(select_browser))->column_widths(arr);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->column_widths(arr);   }   FL_EXPORT_C(int,Fl_Select_Browser_displayed)(fl_Select_Browser select_browser,int line){-    return (static_cast<Fl_Select_Browser*>(select_browser))->displayed(line);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->displayed(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_make_visible)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->make_visible(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->make_visible(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_set_icon)(fl_Select_Browser select_browser,int line,fl_Image icon){-    (static_cast<Fl_Select_Browser*>(select_browser))->icon(line,(static_cast<Fl_Image*>(icon)));+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->icon(line,(static_cast<Fl_Image*>(icon)));   }   FL_EXPORT_C(fl_Image,Fl_Select_Browser_icon)(fl_Select_Browser select_browser,int line){-    return (fl_Image)(static_cast<Fl_Select_Browser*>(select_browser))->icon(line);+    return (fl_Image)(static_cast<Fl_DerivedSelect_Browser*>(select_browser))->icon(line);   }   FL_EXPORT_C(void,Fl_Select_Browser_remove_icon)(fl_Select_Browser select_browser,int line){-    (static_cast<Fl_Select_Browser*>(select_browser))->remove_icon(line);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->remove_icon(line);   }   FL_EXPORT_C(int,Fl_Select_Browser_select_only)(fl_Select_Browser select_browser,void *item){-    return (static_cast<Fl_Select_Browser*>(select_browser))->select_only(item);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->select_only(item);   }   FL_EXPORT_C(int,Fl_Select_Browser_select_only_with_docallbacks)(fl_Select_Browser select_browser,void *item,int docallbacks){-    return (static_cast<Fl_Select_Browser*>(select_browser))->select_only(item,docallbacks);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->select_only(item,docallbacks);   }   FL_EXPORT_C(int,Fl_Select_Browser_deselect)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->deselect();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->deselect();   }   FL_EXPORT_C(int,Fl_Select_Browser_deselect_with_docallbacks)(fl_Select_Browser select_browser,int docallbacks){-    return (static_cast<Fl_Select_Browser*>(select_browser))->deselect(docallbacks);+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->deselect(docallbacks);   }   FL_EXPORT_C(int,Fl_Select_Browser_position)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->position();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->position();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_position)(fl_Select_Browser select_browser,int pos){-    (static_cast<Fl_Select_Browser*>(select_browser))->position(pos);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->position(pos);   }   FL_EXPORT_C(int,Fl_Select_Browser_hposition)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->hposition();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->hposition();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_hposition)(fl_Select_Browser select_browser,int ){-    (static_cast<Fl_Select_Browser*>(select_browser))->hposition();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->hposition();   }   FL_EXPORT_C(uchar,Fl_Select_Browser_has_scrollbar)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->has_scrollbar();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->has_scrollbar();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_has_scrollbar)(fl_Select_Browser select_browser,uchar mode){-    (static_cast<Fl_Select_Browser*>(select_browser))->has_scrollbar(mode);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->has_scrollbar(mode);   }   FL_EXPORT_C(Fl_Font,Fl_Select_Browser_textfont)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->textfont();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->textfont();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_textfont)(fl_Select_Browser select_browser,Fl_Font font){-    (static_cast<Fl_Select_Browser*>(select_browser))->textfont(font);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->textfont(font);   }   FL_EXPORT_C(Fl_Fontsize,Fl_Select_Browser_textsize)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->textsize();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->textsize();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_textsize)(fl_Select_Browser select_browser,Fl_Fontsize newSize){-    (static_cast<Fl_Select_Browser*>(select_browser))->textsize(newSize);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->textsize(newSize);   }   FL_EXPORT_C(Fl_Color,Fl_Select_Browser_textcolor)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->textcolor();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->textcolor();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_textcolor)(fl_Select_Browser select_browser,Fl_Color col){-    (static_cast<Fl_Select_Browser*>(select_browser))->textcolor(col);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->textcolor(col);   }   FL_EXPORT_C(int,Fl_Select_Browser_scrollbar_size)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->scrollbar_size();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->scrollbar_size();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_scrollbar_size)(fl_Select_Browser select_browser,int newSize){-    (static_cast<Fl_Select_Browser*>(select_browser))->scrollbar_size(newSize);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->scrollbar_size(newSize);   }   FL_EXPORT_C(int,Fl_Select_Browser_scrollbar_width)(fl_Select_Browser select_browser){-    return (static_cast<Fl_Select_Browser*>(select_browser))->scrollbar_width();+    return (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->scrollbar_width();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_scrollbar_width)(fl_Select_Browser select_browser,int width){-    (static_cast<Fl_Select_Browser*>(select_browser))->scrollbar_width(width);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->scrollbar_width(width);   }   FL_EXPORT_C(void,Fl_Select_Browser_scrollbar_right)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->scrollbar_right();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->scrollbar_right();   }   FL_EXPORT_C(void,Fl_Select_Browser_set_scrollbar_left)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->scrollbar_left();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->scrollbar_left();   }   FL_EXPORT_C(void,Fl_Select_Browser_sort)(fl_Select_Browser select_browser){-    (static_cast<Fl_Select_Browser*>(select_browser))->sort();+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->sort();   }   FL_EXPORT_C(void,Fl_Select_Browser_sort_with_flags)(fl_Select_Browser select_browser,int flags){-    (static_cast<Fl_Select_Browser*>(select_browser))->sort(flags);+    (static_cast<Fl_DerivedSelect_Browser*>(select_browser))->sort(flags);   } #ifdef __cplusplus }
c-src/Fl_Select_BrowserC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Select_Browser.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedSelect_Browser : public Fl_Select_Browser {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedSelect_Browser(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedSelect_Browser();+  }; #endif    /* Inherited from Fl_Widget */@@ -127,8 +134,8 @@   FL_EXPORT_C_HEADER(void,Fl_Select_Browser_forms_end,(fl_Select_Browser self));    /* Fl_Select_Browser specific functions */-  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New_WithLabel)(int x, int y, int w, int h, const char* label);-  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New)(int x, int y, int w, int h);+  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New_WithLabel)(int x, int y, int w, int h, const char* label,Destroy_Function_Pointers dfps);+  FL_EXPORT_C(fl_Select_Browser, Fl_Select_Browser_New)(int x, int y, int w, int h,Destroy_Function_Pointers dfps);   FL_EXPORT_C_HEADER(void,Fl_Select_Browser_Destroy,(fl_Select_Browser select_browser));   FL_EXPORT_C_HEADER(void,Fl_Select_Browser_remove,(fl_Select_Browser select_browser, int line));   FL_EXPORT_C_HEADER(void,Fl_Select_Browser_add,(fl_Select_Browser select_browser, const char* newtext));
c-src/Fl_Simple_TerminalC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedSimple_Terminal::~Fl_DerivedSimple_Terminal(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedSimple_Terminal::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Simple_Terminal)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedSimple_Terminal::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Simple_Terminal) this);@@ -148,6 +160,21 @@     Fl_DerivedSimple_Terminal* w = new Fl_DerivedSimple_Terminal(X,Y,W,H,label,fs);     return (fl_Simple_Terminal)w;   };+  FL_EXPORT_C(void, Fl_Simple_Terminal_draw)(fl_Simple_Terminal o){+    (static_cast<Fl_DerivedSimple_Terminal*>(o))->draw();+  }+  FL_EXPORT_C(int, Fl_Simple_Terminal_handle)(fl_Simple_Terminal o, int event){+    return (static_cast<Fl_DerivedSimple_Terminal*>(o))->handle(event);+  }+  FL_EXPORT_C(void, Fl_Simple_Terminal_resize)(fl_Simple_Terminal o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedSimple_Terminal*>(o))->resize(x,y,w,h);+  }+  FL_EXPORT_C(void, Fl_Simple_Terminal_show)(fl_Simple_Terminal o){+    (static_cast<Fl_DerivedSimple_Terminal*>(o))->show();+  }+  FL_EXPORT_C(void, Fl_Simple_Terminal_hide)(fl_Simple_Terminal o){+    (static_cast<Fl_DerivedSimple_Terminal*>(o))->hide();+  }   FL_EXPORT_C(void, Fl_Simple_Terminal_draw_super)(fl_Simple_Terminal o){     (static_cast<Fl_DerivedSimple_Terminal*>(o))->draw_super();   }
c-src/Fl_Simple_TerminalC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedSimple_Terminal(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedSimple_Terminal(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedSimple_Terminal();@@ -55,6 +56,11 @@   FL_EXPORT_C_HEADER(void,Fl_Simple_Terminal_resize_super,(fl_Simple_Terminal o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Simple_Terminal_show_super,(fl_Simple_Terminal o));   FL_EXPORT_C_HEADER(void,Fl_Simple_Terminal_hide_super,(fl_Simple_Terminal o));+  FL_EXPORT_C_HEADER(void, Fl_Simple_Terminal_draw,(fl_Simple_Terminal o));+  FL_EXPORT_C_HEADER(int, Fl_Simple_Terminal_handle,(fl_Simple_Terminal o, int event));+  FL_EXPORT_C_HEADER(void, Fl_Simple_Terminal_resize,(fl_Simple_Terminal o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void, Fl_Simple_Terminal_show,(fl_Simple_Terminal o));+  FL_EXPORT_C_HEADER(void, Fl_Simple_Terminal_hide,(fl_Simple_Terminal o)); #ifdef __cplusplus } #endif
c-src/Fl_Single_WindowC.cpp view
@@ -30,7 +30,13 @@ } void Fl_DerivedSingle_Window::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Window) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Single_Window)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedSingle_Window::draw_box(){@@ -205,9 +211,12 @@ FL_EXPORT_C(fl_Window,Fl_Single_Window_as_window_super)(fl_Single_Window self){ return (fl_Window)(static_cast<Fl_DerivedSingle_Window*>(self))->as_window_super();   }-  FL_EXPORT_C(int,Fl_Single_Window_handle)(fl_Single_Window self, int event){+  FL_EXPORT_C(int,Fl_DerivedSingle_Window_handle)(fl_Single_Window self, int event){     return (static_cast<Fl_DerivedSingle_Window*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_Single_Window_handle)(fl_Single_Window self, int event){+    return (static_cast<Fl_Single_Window*>(self))->Fl_Single_Window::handle(event);+  }   FL_EXPORT_C(int,Fl_Single_Window_handle_super)(fl_Single_Window self, int event){     return (static_cast<Fl_DerivedSingle_Window*>(self))->handle_super(event);   }@@ -608,35 +617,44 @@   FL_EXPORT_C(void,Fl_Single_Window_fullscreen_off_with_resize)(fl_Single_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedSingle_Window*>(win))->fullscreen_off(X,Y,W,H);   }-  FL_EXPORT_C(void,Fl_Single_Window_hide)(fl_Single_Window win){+  FL_EXPORT_C(void,Fl_DerivedSingle_Window_hide)(fl_Single_Window win){     (static_cast<Fl_DerivedSingle_Window*>(win))->hide();   }+  FL_EXPORT_C(void,Fl_Single_Window_hide)(fl_Single_Window win){+    (static_cast<Fl_Single_Window*>(win))->Fl_Single_Window::hide();+  }   FL_EXPORT_C(void,Fl_Single_Window_hide_super)(fl_Single_Window win){     (static_cast<Fl_DerivedSingle_Window*>(win))->hide_super();   }-  FL_EXPORT_C(void,Fl_Single_Window_show)(fl_Single_Window win){+  FL_EXPORT_C(void,Fl_DerivedSingle_Window_show)(fl_Single_Window win){     (static_cast<Fl_DerivedSingle_Window*>(win))->show();   }+  FL_EXPORT_C(void,Fl_Single_Window_show)(fl_Single_Window win){+    (static_cast<Fl_Single_Window*>(win))->Fl_Single_Window::show();+  }   FL_EXPORT_C(void,Fl_Single_Window_show_super)(fl_Single_Window win){     (static_cast<Fl_DerivedSingle_Window*>(win))->show_super();   }   FL_EXPORT_C(void,Fl_Single_Window_show_with_args)(fl_Single_Window win,int argc,char** argv){     (static_cast<Fl_DerivedSingle_Window*>(win))->show(argc,argv);   }-  FL_EXPORT_C(void,Fl_Single_Window_Destroy)(fl_Single_Window win){+  FL_EXPORT_C(void,Fl_DerivedSingle_Window_Destroy)(fl_Single_Window win){     delete (static_cast<Fl_DerivedSingle_Window*>(win));   }-  FL_EXPORT_C(void,Fl_Single_Window_resize)(fl_Single_Window win,int X,int Y,int W,int H){+  FL_EXPORT_C(void,Fl_Single_Window_Destroy)(fl_Single_Window win){+    delete (static_cast<Fl_Single_Window*>(win));+  }+  FL_EXPORT_C(void,Fl_DerivedSingle_Window_resize)(fl_Single_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedSingle_Window*>(win))->resize(X,Y,W,H);   }+  FL_EXPORT_C(void,Fl_Single_Window_resize)(fl_Single_Window win,int X,int Y,int W,int H){+    (static_cast<Fl_Single_Window*>(win))->Fl_Single_Window::resize(X,Y,W,H);+  }   FL_EXPORT_C(void,Fl_Single_Window_resize_super)(fl_Single_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedSingle_Window*>(win))->resize_super(X,Y,W,H);   }   FL_EXPORT_C(void,Fl_Single_Window_iconize)(fl_Single_Window win){     (static_cast<Fl_DerivedSingle_Window*>(win))->iconize();-  }-  FL_EXPORT_C(void,Fl_Single_Window_flush)(fl_Single_Window win){-    (static_cast<Fl_DerivedSingle_Window*>(win))->flush();   }   FL_EXPORT_C(void,Fl_Single_Window_flush_super)(fl_Single_Window win){     (static_cast<Fl_DerivedSingle_Window*>(win))->flush_super();
c-src/Fl_Single_WindowC.h view
@@ -246,6 +246,7 @@ #endif   FL_EXPORT_C_HEADER(fl_Single_Window_Virtual_Funcs*,Fl_Single_Window_default_virtual_funcs,());   FL_EXPORT_C_HEADER(int ,		Fl_Single_Window_handle,(fl_Single_Window win, int event));+  FL_EXPORT_C_HEADER(int ,		Fl_DerivedSingle_Window_handle,(fl_Single_Window win, int event));   FL_EXPORT_C_HEADER(int ,		Fl_Single_Window_handle_super,(fl_Single_Window win, int event));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_draw_super,(fl_Single_Window win));   FL_EXPORT_C_HEADER(fl_Group,		Fl_Single_Window_as_group,(fl_Single_Window window));@@ -256,14 +257,17 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,	Fl_Single_Window_as_gl_window_super,(fl_Single_Window window));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_show_super,(fl_Single_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_show,(fl_Single_Window win));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedSingle_Window_show,(fl_Single_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_show_with_args,(fl_Single_Window win, int argc, char** argv));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_Destroy,(fl_Single_Window win));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedSingle_Window_Destroy,(fl_Single_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_flush_super,(fl_Single_Window win));-  FL_EXPORT_C_HEADER(void,		Fl_Single_Window_flush,(fl_Single_Window win));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_resize_super,(fl_Single_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_resize,(fl_Single_Window win, int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,		Fl_DerivedSingle_Window_resize,(fl_Single_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,		Fl_Single_Window_hide_super,(fl_Single_Window win));   FL_EXPORT_C_HEADER(void,Fl_Single_Window_hide,(fl_Single_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedSingle_Window_hide,(fl_Single_Window win));  #ifdef __cplusplus }
c-src/Fl_SliderC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedSlider::~Fl_DerivedSlider(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedSlider::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Slider)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedSlider::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Slider) this);@@ -474,32 +486,47 @@     Fl_DerivedSlider* w = new Fl_DerivedSlider(X,Y,W,H,label,fs);     return (fl_Slider)w;   }-  FL_EXPORT_C(void, Fl_Slider_draw)(fl_Slider o){+  FL_EXPORT_C(void, Fl_DerivedSlider_draw)(fl_Slider o){     (static_cast<Fl_DerivedSlider*>(o))->draw();   }+  FL_EXPORT_C(void, Fl_Slider_draw)(fl_Slider o){+    (static_cast<Fl_DerivedSlider*>(o))->draw_super();+  }   FL_EXPORT_C(void, Fl_Slider_draw_super)(fl_Slider o){     (static_cast<Fl_DerivedSlider*>(o))->draw_super();   }-  FL_EXPORT_C(int, Fl_Slider_handle)(fl_Slider o, int event){+  FL_EXPORT_C(int, Fl_DerivedSlider_handle)(fl_Slider o, int event){     return (static_cast<Fl_DerivedSlider*>(o))->handle(event);   }+  FL_EXPORT_C(int, Fl_Slider_handle)(fl_Slider o, int event){+    return (static_cast<Fl_DerivedSlider*>(o))->Fl_Slider::handle(event);+  }   FL_EXPORT_C(int, Fl_Slider_handle_super)(fl_Slider o, int event){     return (static_cast<Fl_DerivedSlider*>(o))->handle_super(event);   }-  FL_EXPORT_C(void, Fl_Slider_resize)(fl_Slider o, int x, int y, int w, int h){+  FL_EXPORT_C(void, Fl_DerivedSlider_resize)(fl_Slider o, int x, int y, int w, int h){     (static_cast<Fl_DerivedSlider*>(o))->resize(x,y,w,h);   }+  FL_EXPORT_C(void, Fl_Slider_resize)(fl_Slider o, int x, int y, int w, int h){+    (static_cast<Fl_DerivedSlider*>(o))->Fl_Slider::resize(x,y,w,h);+  }   FL_EXPORT_C(void, Fl_Slider_resize_super)(fl_Slider o, int x, int y, int w, int h){     (static_cast<Fl_DerivedSlider*>(o))->resize_super(x,y,w,h);   }-  FL_EXPORT_C(void, Fl_Slider_show)(fl_Slider o){+  FL_EXPORT_C(void, Fl_DerivedSlider_show)(fl_Slider o){     (static_cast<Fl_DerivedSlider*>(o))->show();   }+  FL_EXPORT_C(void, Fl_Slider_show)(fl_Slider o){+    (static_cast<Fl_DerivedSlider*>(o))->Fl_Slider::show();+  }   FL_EXPORT_C(void, Fl_Slider_show_super)(fl_Slider o){     (static_cast<Fl_DerivedSlider*>(o))->show_super();   }-  FL_EXPORT_C(void, Fl_Slider_hide)(fl_Slider o){+  FL_EXPORT_C(void, Fl_DerivedSlider_hide)(fl_Slider o){     (static_cast<Fl_DerivedSlider*>(o))->hide();+  }+  FL_EXPORT_C(void, Fl_Slider_hide)(fl_Slider o){+    (static_cast<Fl_DerivedSlider*>(o))->Fl_Slider::hide();   }   FL_EXPORT_C(void, Fl_Slider_hide_super)(fl_Slider o){     (static_cast<Fl_DerivedSlider*>(o))->hide_super();
c-src/Fl_SliderC.h view
@@ -28,6 +28,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedSlider(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedSlider(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedSlider();@@ -165,14 +166,19 @@   FL_EXPORT_C_HEADER(fl_Slider,Fl_OverriddenSlider_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Slider,Fl_OverriddenSlider_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Slider_draw,(fl_Slider o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedSlider_draw,(fl_Slider o));   FL_EXPORT_C_HEADER(void,Fl_Slider_draw_super,(fl_Slider o));   FL_EXPORT_C_HEADER(int,Fl_Slider_handle,(fl_Slider o, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedSlider_handle,(fl_Slider o, int event));   FL_EXPORT_C_HEADER(int,Fl_Slider_handle_super,(fl_Slider o, int event));   FL_EXPORT_C_HEADER(void,Fl_Slider_resize,(fl_Slider o, int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(void,Fl_DerivedSlider_resize,(fl_Slider o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Slider_resize_super,(fl_Slider o, int x, int y, int w, int h));   FL_EXPORT_C_HEADER(void,Fl_Slider_show,(fl_Slider o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedSlider_show,(fl_Slider o));   FL_EXPORT_C_HEADER(void,Fl_Slider_show_super,(fl_Slider o));   FL_EXPORT_C_HEADER(void,Fl_Slider_hide,(fl_Slider o));+  FL_EXPORT_C_HEADER(void,Fl_DerivedSlider_hide,(fl_Slider o));   FL_EXPORT_C_HEADER(void,Fl_Slider_hide_super,(fl_Slider o)); #ifdef __cplusplus }
c-src/Fl_SpinnerC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedSpinner::~Fl_DerivedSpinner(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedSpinner::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Spinner)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedSpinner::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Spinner) this);
c-src/Fl_SpinnerC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedSpinner(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedSpinner(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedSpinner();
c-src/Fl_Sys_Menu_BarC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedSys_Menu_Bar::~Fl_DerivedSys_Menu_Bar(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedSys_Menu_Bar::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Sys_Menu_Bar)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedSys_Menu_Bar::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Sys_Menu_Bar) this);
c-src/Fl_Sys_Menu_BarC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedSys_Menu_Bar(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedSys_Menu_Bar(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedSys_Menu_Bar();
c-src/Fl_TableC.cpp view
@@ -9,6 +9,7 @@     other_data = (void*)0;   } Fl_DerivedTable::~Fl_DerivedTable(){+  this->destroy_data();   free(overriddenFuncs);   free(other_data); }@@ -21,6 +22,17 @@ int Fl_DerivedTable::find_cell(TableContext context, int R, int C, int &X, int &Y, int &W, int &H){   return Fl_Table::find_cell(context,R,C,X,Y,W,H); }+void Fl_DerivedTable::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Table)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} void Fl_DerivedTable::draw(){   if (this->overriddenFuncs->draw != NULL) {     this->overriddenFuncs->draw((fl_Table) this);@@ -63,6 +75,9 @@   }   return i; }+int Fl_DerivedTable::handle_super(int event){+  return Fl_Table::handle(event);+} void Fl_DerivedTable::resize_super(int x, int y, int w, int h){   Fl_Table::resize(x,y,w,h); }@@ -179,6 +194,9 @@   }   FL_EXPORT_C(int,Fl_Table_handle)(fl_Table self, int event){     return (static_cast<Fl_DerivedTable*>(self))->handle(event);+  }+  FL_EXPORT_C(int,Fl_Table_handle_super)(fl_Table self, int event){+    return (static_cast<Fl_DerivedTable*>(self))->handle_super(event);   }   FL_EXPORT_C(fl_Group,Fl_Table_parent)(fl_Table table){     return (fl_Group) (static_cast<Fl_DerivedTable*>(table))->parent();
c-src/Fl_TableC.h view
@@ -11,6 +11,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Table_handle,(fl_Table self, int event));+  FL_EXPORT_C_HEADER(int,Fl_Table_handle_super,(fl_Table self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Table_parent,(fl_Table table));   FL_EXPORT_C_HEADER(void,Fl_Table_set_parent,(fl_Table table, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Table_type,(fl_Table table));@@ -153,6 +154,7 @@     void draw_label(int x,int y,int w,int h,Fl_Align alignment);     virtual void draw();     virtual int handle(int event);+    virtual int handle_super(int event);     void resize_super(int x, int y, int w, int h);     virtual void resize(int x, int y, int w, int h);     virtual void show();@@ -164,6 +166,7 @@     virtual void clear();     virtual void rows(int val);     virtual void cols(int val);+    void destroy_data();     Fl_DerivedTable(int X, int Y, int W, int H, const char *l, fl_Table_Virtual_Funcs* funcs);     Fl_DerivedTable(int X, int Y, int W, int H, fl_Table_Virtual_Funcs* funcs);     ~Fl_DerivedTable();
c-src/Fl_Table_RowC.cpp view
@@ -20,7 +20,13 @@ } void Fl_DerivedTable_Row::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Table_Row) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Table_Row)this,res);+    if (fps) { free(fps); }+    free(res);   } } int Fl_DerivedTable_Row::find_cell(TableContext context, int R, int C, int &X, int &Y, int &W, int &H){
c-src/Fl_TabsC.cpp view
@@ -12,9 +12,21 @@     this->fs = fs;   }   Fl_DerivedTabs::~Fl_DerivedTabs(){+    this->destroy_data();     free(overriddenFuncs);     free(fs);   }+void Fl_DerivedTabs::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,fs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Tabs)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedTabs::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Tabs) this);
c-src/Fl_TabsC.h view
@@ -26,6 +26,7 @@     void hide_super();     int tab_positions();     int tab_height();+    void destroy_data();     Fl_Widget* which(int,int);     void client_area(int &rx, int &ry, int &rw, int &rh, int tabh);     void redraw_tabs();
c-src/Fl_Text_BufferC.cpp view
@@ -1,266 +1,295 @@ #include "Fl_Text_BufferC.h" #ifdef __cplusplus+Fl_DerivedText_Buffer::Fl_DerivedText_Buffer(Destroy_Function_Pointers destroy) : Fl_Text_Buffer() {+  this->destroy = destroy;+};+Fl_DerivedText_Buffer::Fl_DerivedText_Buffer(int requestedSize, Destroy_Function_Pointers dfps) : Fl_Text_Buffer(requestedSize) {+  this->destroy = destroy;+};+Fl_DerivedText_Buffer::Fl_DerivedText_Buffer(int requestedSize, int preferredGapSize, Destroy_Function_Pointers dfps) : Fl_Text_Buffer(requestedSize, preferredGapSize) {+  this->destroy = destroy;+};+Fl_DerivedText_Buffer::~Fl_DerivedText_Buffer(){+  destroy_data();+}+void Fl_DerivedText_Buffer::destroy_data(){+  if (this->destroy != NULL){+    int total_procs = this->mNPredeleteProcs + this->mNModifyProcs;+    fl_DoNotCall* fps = (fl_DoNotCall*) malloc(sizeof(fl_DoNotCall) * total_procs);+    int i;+    for (i = 0; i < this->mNPredeleteProcs; i++) {+      fps[i] = (fl_DoNotCall)this->mPredeleteProcs[i];+    }+    for (i = 0; i < this->mNModifyProcs; i++) {+      fps[i+this->mNPredeleteProcs] = (fl_DoNotCall)this->mModifyProcs[i];+    }+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,total_procs,fps,(fl_DoNotCall)(this->transcoding_warning_action));+    this->destroy((fl_Text_Buffer)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   FL_EXPORT_C(int, Fl_Text_Buffer_input_file_was_transcoded)(fl_Text_Buffer text_buffer){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->input_file_was_transcoded;+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->input_file_was_transcoded; }   FL_EXPORT_C(const char*, Fl_Text_Buffer_file_encoding_warning_message)(fl_Text_Buffer text_buffer){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->file_encoding_warning_message;+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->file_encoding_warning_message; }   FL_EXPORT_C(void, Fl_Text_Buffer_set_transcoding_warning_action)(fl_Text_Buffer text_buffer, fl_Text_Buffer_Callback* cb){   C_to_Fl_Callback* c = new C_to_Fl_Callback(cb, text_buffer);-  c->set_callback((static_cast<Fl_Text_Buffer*>(text_buffer)));-}+  c->set_callback((static_cast<Fl_DerivedText_Buffer*>(text_buffer)));+  }   FL_EXPORT_C(int,Fl_Text_Buffer_length)(fl_Text_Buffer text_buffer){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->length();+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->length(); }   FL_EXPORT_C(char*,Fl_Text_Buffer_text)(fl_Text_Buffer text_buffer){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->text();+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->text(); }   FL_EXPORT_C(void,Fl_Text_Buffer_set_text)(fl_Text_Buffer text_buffer,const char* text){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->text(text);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->text(text); }   FL_EXPORT_C(char*,Fl_Text_Buffer_text_range)(fl_Text_Buffer text_buffer,int start,int end){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->text_range(start,end);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->text_range(start,end); }   FL_EXPORT_C(unsigned int,Fl_Text_Buffer_char_at)(fl_Text_Buffer text_buffer,int pos){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->char_at(pos);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->char_at(pos); }   FL_EXPORT_C(char,Fl_Text_Buffer_byte_at)(fl_Text_Buffer text_buffer,int pos){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->byte_at(pos);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->byte_at(pos); }   FL_EXPORT_C(char*,Fl_Text_Buffer_address)(fl_Text_Buffer text_buffer,int pos){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->address(pos);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->address(pos); }   FL_EXPORT_C(void,Fl_Text_Buffer_insert)(fl_Text_Buffer text_buffer,int pos,const char* text){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->insert(pos,text);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->insert(pos,text); }   FL_EXPORT_C(void,Fl_Text_Buffer_append)(fl_Text_Buffer text_buffer,const char* t){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->append(t);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->append(t); }   FL_EXPORT_C(void,Fl_Text_Buffer_remove)(fl_Text_Buffer text_buffer,int start,int end){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->remove(start,end);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->remove(start,end); }   FL_EXPORT_C(void,Fl_Text_Buffer_replace)(fl_Text_Buffer text_buffer,int start,int end,const char* text){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->replace(start,end,text);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->replace(start,end,text); }   FL_EXPORT_C(void,Fl_Text_Buffer_copy)(fl_Text_Buffer text_buffer,fl_Text_Buffer fromBuf,int fromStart,int fromEnd,int toPos){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->copy((static_cast<Fl_Text_Buffer*>(fromBuf)),fromStart,fromEnd,toPos);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->copy((static_cast<Fl_DerivedText_Buffer*>(fromBuf)),fromStart,fromEnd,toPos); }   FL_EXPORT_C(int,Fl_Text_Buffer_undo)(fl_Text_Buffer text_buffer){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->undo();+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->undo(); }   FL_EXPORT_C(int,Fl_Text_Buffer_undo_with_cp)(fl_Text_Buffer text_buffer,int* cp){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->undo(cp);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->undo(cp); }   FL_EXPORT_C(void,Fl_Text_Buffer_canUndo)(fl_Text_Buffer text_buffer){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->canUndo();+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->canUndo(); }   FL_EXPORT_C(void,Fl_Text_Buffer_canUndo_with_flag)(fl_Text_Buffer text_buffer,char flag){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->canUndo(flag);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->canUndo(flag); }   FL_EXPORT_C(int,Fl_Text_Buffer_insertfile)(fl_Text_Buffer text_buffer,const char* file,int pos){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->insertfile(file,pos);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->insertfile(file,pos); }   FL_EXPORT_C(int,Fl_Text_Buffer_insertfile_with_buflen)(fl_Text_Buffer text_buffer,const char* file,int pos,int buflen){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->insertfile(file,pos,buflen);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->insertfile(file,pos,buflen); }   FL_EXPORT_C(int,Fl_Text_Buffer_appendfile)(fl_Text_Buffer text_buffer,const char* file){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->appendfile(file);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->appendfile(file); }   FL_EXPORT_C(int,Fl_Text_Buffer_appendfile_with_buflen)(fl_Text_Buffer text_buffer,const char* file,int buflen){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->appendfile(file,buflen);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->appendfile(file,buflen); }   FL_EXPORT_C(int,Fl_Text_Buffer_loadfile)(fl_Text_Buffer text_buffer,const char* file){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->loadfile(file);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->loadfile(file); }   FL_EXPORT_C(int,Fl_Text_Buffer_loadfile_with_buflen)(fl_Text_Buffer text_buffer,const char* file,int buflen){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->loadfile(file,buflen);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->loadfile(file,buflen); }   FL_EXPORT_C(int,Fl_Text_Buffer_outputfile)(fl_Text_Buffer text_buffer,const char* file,int start,int end){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->outputfile(file,start,end);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->outputfile(file,start,end); }   FL_EXPORT_C(int,Fl_Text_Buffer_outputfile_with_buflen)(fl_Text_Buffer text_buffer,const char* file,int start,int end,int buflen){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->outputfile(file,start,end,buflen);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->outputfile(file,start,end,buflen); }   FL_EXPORT_C(int,Fl_Text_Buffer_savefile)(fl_Text_Buffer text_buffer,const char* file){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->savefile(file);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->savefile(file); }   FL_EXPORT_C(int,Fl_Text_Buffer_savefile_with_buflen)(fl_Text_Buffer text_buffer,const char* file,int buflen){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->savefile(file,buflen);+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->savefile(file,buflen); }   FL_EXPORT_C(int,Fl_Text_Buffer_tab_distance)(fl_Text_Buffer text_buffer){-  return (static_cast<Fl_Text_Buffer*>(text_buffer))->tab_distance();+  return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->tab_distance();   }   FL_EXPORT_C(void,Fl_Text_Buffer_set_tab_distance)(fl_Text_Buffer text_buffer,int tabDist){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->tab_distance(tabDist);+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->tab_distance(tabDist);   }   FL_EXPORT_C(void,Fl_Text_Buffer_remove_selection)(fl_Text_Buffer text_buffer){-  (static_cast<Fl_Text_Buffer*>(text_buffer))->remove_selection();+  (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->remove_selection(); }   FL_EXPORT_C(void,Fl_Text_Buffer_select)(fl_Text_Buffer text_buffer,int start,int end){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->select(start,end);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->select(start,end);   }   FL_EXPORT_C(int,Fl_Text_Buffer_selected)(fl_Text_Buffer text_buffer){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->selected();+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->selected();   }   FL_EXPORT_C(void,Fl_Text_Buffer_unselect)(fl_Text_Buffer text_buffer){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->unselect();+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->unselect();   }   FL_EXPORT_C(int,Fl_Text_Buffer_selection_position)(fl_Text_Buffer text_buffer,int* start,int* end){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->selection_position(start,end);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->selection_position(start,end);   }   FL_EXPORT_C(void,Fl_Text_Buffer_set_secondary_unselect)(fl_Text_Buffer text_buffer){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->secondary_unselect();+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->secondary_unselect();   }   FL_EXPORT_C(char*,Fl_Text_Buffer_selection_text)(fl_Text_Buffer text_buffer){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->selection_text();+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->selection_text();   }   FL_EXPORT_C(void,Fl_Text_Buffer_replace_selection)(fl_Text_Buffer text_buffer,const char* text){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->replace_selection(text);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->replace_selection(text);   }   FL_EXPORT_C(void,Fl_Text_Buffer_secondary_select)(fl_Text_Buffer text_buffer,int start,int end){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->secondary_select(start,end);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->secondary_select(start,end);   }   FL_EXPORT_C(void,Fl_Text_Buffer_replace_secondary_selection)(fl_Text_Buffer text_buffer,const char* text){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->replace_secondary_selection(text);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->replace_secondary_selection(text);   }   FL_EXPORT_C(int,Fl_Text_Buffer_secondary_selected)(fl_Text_Buffer text_buffer){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->secondary_selected();+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->secondary_selected();   }   FL_EXPORT_C(int,Fl_Text_Buffer_secondary_selection_position)(fl_Text_Buffer text_buffer,int* start,int* end){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->secondary_selection_position(start,end);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->secondary_selection_position(start,end);   }   FL_EXPORT_C(char*,Fl_Text_Buffer_secondary_selection_text)(fl_Text_Buffer text_buffer){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->secondary_selection_text();+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->secondary_selection_text();   }   FL_EXPORT_C(int,Fl_Text_Buffer_highlight_position)(fl_Text_Buffer text_buffer,int* start,int* end){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->highlight_position(start,end);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->highlight_position(start,end);   }   FL_EXPORT_C(void,Fl_Text_Buffer_remove_secondary_selection)(fl_Text_Buffer text_buffer){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->remove_secondary_selection();+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->remove_secondary_selection();   }   FL_EXPORT_C(void,Fl_Text_Buffer_add_modify_callback)(fl_Text_Buffer text_buffer,Fl_Text_Modify_Cb bufModifiedCB,void* cbArg){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->add_modify_callback(bufModifiedCB,cbArg);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->add_modify_callback(bufModifiedCB,cbArg);   }   FL_EXPORT_C(void,Fl_Text_Buffer_set_highlight)(fl_Text_Buffer text_buffer,int start,int end){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->highlight(start,end);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->highlight(start,end);   }   FL_EXPORT_C(int,Fl_Text_Buffer_highlight)(fl_Text_Buffer text_buffer){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->highlight();+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->highlight();   }   FL_EXPORT_C(void,Fl_Text_Buffer_unhighlight)(fl_Text_Buffer text_buffer){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->unhighlight();+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->unhighlight();   }   FL_EXPORT_C(char*,Fl_Text_Buffer_highlight_text)(fl_Text_Buffer text_buffer){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->highlight_text();+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->highlight_text();   }   FL_EXPORT_C(void,Fl_Text_Buffer_remove_modify_callback)(fl_Text_Buffer text_buffer,Fl_Text_Modify_Cb bufModifiedCB,void* cbArg){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->remove_modify_callback(bufModifiedCB,cbArg);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->remove_modify_callback(bufModifiedCB,cbArg);   }   FL_EXPORT_C(void,Fl_Text_Buffer_call_modify_callbacks)(fl_Text_Buffer text_buffer){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->call_modify_callbacks();+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->call_modify_callbacks();   }   FL_EXPORT_C(void,Fl_Text_Buffer_add_predelete_callback)(fl_Text_Buffer text_buffer,Fl_Text_Predelete_Cb bufPredelCB,void* cbArg){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->add_predelete_callback(bufPredelCB,cbArg);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->add_predelete_callback(bufPredelCB,cbArg);   }   FL_EXPORT_C(void,Fl_Text_Buffer_remove_predelete_callback)(fl_Text_Buffer text_buffer,Fl_Text_Predelete_Cb predelCB,void* cbArg){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->remove_predelete_callback(predelCB,cbArg);+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->remove_predelete_callback(predelCB,cbArg);   }   FL_EXPORT_C(void,Fl_Text_Buffer_call_predelete_callbacks)(fl_Text_Buffer text_buffer){-    (static_cast<Fl_Text_Buffer*>(text_buffer))->call_predelete_callbacks();+    (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->call_predelete_callbacks();   }   FL_EXPORT_C(char*,Fl_Text_Buffer_line_text)(fl_Text_Buffer text_buffer,int pos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->line_text(pos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->line_text(pos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_line_start)(fl_Text_Buffer text_buffer,int pos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->line_start(pos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->line_start(pos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_line_end)(fl_Text_Buffer text_buffer,int pos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->line_end(pos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->line_end(pos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_word_start)(fl_Text_Buffer text_buffer,int pos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->word_start(pos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->word_start(pos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_word_end)(fl_Text_Buffer text_buffer,int pos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->word_end(pos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->word_end(pos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_count_displayed_characters)(fl_Text_Buffer text_buffer,int lineStartPos,int targetPos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->count_displayed_characters(lineStartPos,targetPos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->count_displayed_characters(lineStartPos,targetPos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_skip_displayed_characters)(fl_Text_Buffer text_buffer,int lineStartPos,int nChars){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->skip_displayed_characters(lineStartPos,nChars);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->skip_displayed_characters(lineStartPos,nChars);   }   FL_EXPORT_C(int,Fl_Text_Buffer_count_lines)(fl_Text_Buffer text_buffer,int startPos,int endPos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->count_lines(startPos,endPos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->count_lines(startPos,endPos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_skip_lines)(fl_Text_Buffer text_buffer,int startPos,int nLines){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->skip_lines(startPos,nLines);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->skip_lines(startPos,nLines);   }   FL_EXPORT_C(int,Fl_Text_Buffer_rewind_lines)(fl_Text_Buffer text_buffer,int startPos,int nLines){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->rewind_lines(startPos,nLines);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->rewind_lines(startPos,nLines);   }   FL_EXPORT_C(int,Fl_Text_Buffer_findchar_forward)(fl_Text_Buffer text_buffer,int startPos,unsigned searchChar,int* foundPos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->findchar_forward(startPos,searchChar,foundPos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->findchar_forward(startPos,searchChar,foundPos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_findchar_backward)(fl_Text_Buffer text_buffer,int startPos,unsigned int searchChar,int* foundPos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->findchar_backward(startPos,searchChar,foundPos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->findchar_backward(startPos,searchChar,foundPos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_search_forward)(fl_Text_Buffer text_buffer,int startPos,const char* searchString,int* foundPos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->search_forward(startPos,searchString,foundPos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->search_forward(startPos,searchString,foundPos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_search_forward_with_matchcase)(fl_Text_Buffer text_buffer,int startPos,const char* searchString,int* foundPos,int matchCase){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->search_forward(startPos,searchString,foundPos,matchCase);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->search_forward(startPos,searchString,foundPos,matchCase);   }   FL_EXPORT_C(int,Fl_Text_Buffer_search_backward)(fl_Text_Buffer text_buffer,int startPos,const char* searchString,int* foundPos){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->search_backward(startPos,searchString,foundPos);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->search_backward(startPos,searchString,foundPos);   }   FL_EXPORT_C(int,Fl_Text_Buffer_search_backward_with_matchcase)(fl_Text_Buffer text_buffer,int startPos,const char* searchString,int* foundPos,int matchCase){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->search_backward(startPos,searchString,foundPos,matchCase);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->search_backward(startPos,searchString,foundPos,matchCase);   }   FL_EXPORT_C(fl_Text_Selection,Fl_Text_Buffer_primary_selection)(fl_Text_Buffer text_buffer){-    return (fl_Text_Selection)(static_cast<Fl_Text_Buffer*>(text_buffer))->primary_selection();+    return (fl_Text_Selection)(static_cast<Fl_DerivedText_Buffer*>(text_buffer))->primary_selection();   }   FL_EXPORT_C(const fl_Text_Selection,Fl_Text_Buffer_secondary_selection)(fl_Text_Buffer text_buffer){-    return (fl_Text_Selection)(static_cast<Fl_Text_Buffer*>(text_buffer))->secondary_selection();+    return (fl_Text_Selection)(static_cast<Fl_DerivedText_Buffer*>(text_buffer))->secondary_selection();   }   FL_EXPORT_C(int,Fl_Text_Buffer_next_char_clipped)(fl_Text_Buffer text_buffer,int ix){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->next_char_clipped(ix);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->next_char_clipped(ix);   }   FL_EXPORT_C(const fl_Text_Selection,Fl_Text_Buffer_highlight_selection)(fl_Text_Buffer text_buffer){-    return (fl_Text_Selection)(static_cast<Fl_Text_Buffer*>(text_buffer))->highlight_selection();+    return (fl_Text_Selection)(static_cast<Fl_DerivedText_Buffer*>(text_buffer))->highlight_selection();   }   FL_EXPORT_C(int,Fl_Text_Buffer_prev_char)(fl_Text_Buffer text_buffer,int ix){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->prev_char(ix);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->prev_char(ix);   }   FL_EXPORT_C(int,Fl_Text_Buffer_prev_char_clipped)(fl_Text_Buffer text_buffer,int ix){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->prev_char_clipped(ix);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->prev_char_clipped(ix);   }   FL_EXPORT_C(int,Fl_Text_Buffer_next_char)(fl_Text_Buffer text_buffer,int ix){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->next_char(ix);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->next_char(ix);   }   FL_EXPORT_C(int,Fl_Text_Buffer_utf8_align)(fl_Text_Buffer text_buffer,int align){-    return (static_cast<Fl_Text_Buffer*>(text_buffer))->utf8_align(align);+    return (static_cast<Fl_DerivedText_Buffer*>(text_buffer))->utf8_align(align);   }-  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New)(){-    Fl_Text_Buffer* b = new Fl_Text_Buffer();+  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New)(Destroy_Function_Pointers dfps){+    Fl_DerivedText_Buffer* b = new Fl_DerivedText_Buffer(dfps);     return (fl_Text_Buffer)b;   }-  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New_With_RequestedSize)(int requestedSize){-    Fl_Text_Buffer* b = new Fl_Text_Buffer(requestedSize);+  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New_With_RequestedSize)(int requestedSize, Destroy_Function_Pointers dfps){+    Fl_DerivedText_Buffer* b = new Fl_DerivedText_Buffer(requestedSize,dfps);     return (fl_Text_Buffer)b;   }-  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New_With_PreferredGapSize)(int preferredGapSize){-    Fl_Text_Buffer* b = new Fl_Text_Buffer(0,preferredGapSize);+  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New_With_PreferredGapSize)(int preferredGapSize,Destroy_Function_Pointers dfps){+    Fl_DerivedText_Buffer* b = new Fl_DerivedText_Buffer(0,preferredGapSize,dfps);     return (fl_Text_Buffer)b;   }-  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize)(int requestedSize, int preferredGapSize){-    Fl_Text_Buffer* b = new Fl_Text_Buffer(requestedSize,preferredGapSize);+  FL_EXPORT_C(fl_Text_Buffer, Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize)(int requestedSize, int preferredGapSize, Destroy_Function_Pointers dfps){+    Fl_DerivedText_Buffer* b = new Fl_DerivedText_Buffer(requestedSize,preferredGapSize,dfps);     return (fl_Text_Buffer)b;   }   FL_EXPORT_C(void, Fl_Text_Buffer_Destroy)(fl_Text_Buffer text_buffer){-    delete(static_cast<Fl_Text_Buffer*>(text_buffer));+    delete(static_cast<Fl_DerivedText_Buffer*>(text_buffer));   } #ifdef __cplusplus }
c-src/Fl_Text_BufferC.h view
@@ -8,11 +8,20 @@ #include "FL/Fl_Text_Buffer.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedText_Buffer : public Fl_Text_Buffer {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedText_Buffer(Destroy_Function_Pointers destroy);+    Fl_DerivedText_Buffer(int requestedSize, int preferredGapSize, Destroy_Function_Pointers dfps);+    Fl_DerivedText_Buffer(int requestedSize, Destroy_Function_Pointers dfps);+    ~Fl_DerivedText_Buffer();+  }; #endif-  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New,());-  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New_With_RequestedSize,(int requestedSize));-  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New_With_PreferredGapSize,(int preferredGapSize));-  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize,(int requestedSize, int preferredGapSize));+  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New,(Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New_With_RequestedSize,(int requestedSize, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New_With_PreferredGapSize,(int preferredGapSize, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Text_Buffer,Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize,(int requestedSize, int preferredGapSize, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Text_Buffer_Destroy,(fl_Text_Buffer text_buffer)); #ifndef INTERNAL_LINKAGE   typedef void (*Fl_Text_Modify_Cb)(int pos, int nInserted, int nDeleted,
c-src/Fl_Text_DisplayC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedText_Display::~Fl_DerivedText_Display(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedText_Display::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+2,num_fps,fps,(fl_DoNotCall)cb, (fl_DoNotCall)(this->mUnfinishedHighlightCB));+    this->overriddenFuncs->destroy_data((fl_Text_Display)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedText_Display::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Text_Display) this);@@ -74,6 +86,9 @@   void Fl_DerivedText_Display::hide_super(){     Fl_Text_Display::hide();   }+  int Fl_DerivedText_Display::xy_to_position(int x,int y,int posType){+      return Fl_Text_Display::xy_to_position(x,y,posType);+  }   #endif@@ -636,6 +651,9 @@   }   FL_EXPORT_C(void, Fl_Text_Display_hide_super)(fl_Text_Display o){     (static_cast<Fl_DerivedText_Display*>(o))->hide_super();+  }+  FL_EXPORT_C(int,Fl_Text_Display_xy_to_position)(fl_Text_Display o,int x,int y,int posType){+    return (static_cast<Fl_DerivedText_Display*>(o))->xy_to_position(x,y,posType);   }  #ifdef __cplusplus
c-src/Fl_Text_DisplayC.h view
@@ -23,6 +23,8 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();+    int xy_to_position(int x,int y,int posType);     Fl_DerivedText_Display(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedText_Display(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedText_Display();@@ -224,6 +226,7 @@   FL_EXPORT_C_HEADER(void,Fl_Text_Display_show_super,(fl_Text_Display o));   FL_EXPORT_C_HEADER(void,Fl_Text_Display_hide,(fl_Text_Display o));   FL_EXPORT_C_HEADER(void,Fl_Text_Display_hide_super,(fl_Text_Display o));+  FL_EXPORT_C_HEADER(int,Fl_Text_Display_xy_to_position,(fl_Text_Display o, int x, int y, int posType)); #ifdef __cplusplus } #endif
c-src/Fl_TileC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedTile::~Fl_DerivedTile(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedTile::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Tile)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedTile::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Tile) this);
c-src/Fl_TileC.h view
@@ -22,6 +22,7 @@     virtual void show();     void show_super();     virtual void hide();+    void destroy_data();     void hide_super();     Fl_DerivedTile(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedTile(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);
c-src/Fl_Toggle_ButtonC.cpp view
@@ -1,310 +1,326 @@ #include "Fl_Toggle_ButtonC.h"  #ifdef __cplusplus+Fl_DerivedToggle_Button::Fl_DerivedToggle_Button(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy) : Fl_Toggle_Button(x,y,w,h,label){+  this->destroy = destroy;+}+Fl_DerivedToggle_Button::~Fl_DerivedToggle_Button() {+  destroy_data();+}+void Fl_DerivedToggle_Button::destroy_data(){+  if (this->destroy != NULL){+    fl_DoNotCall* fps = NULL;+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(1,0,fps,(fl_DoNotCall)cb);+    this->destroy((fl_Toggle_Button)this,res);+    if (fps) { free(fps); }+    free(res);+  }+} EXPORT { #endif   FL_EXPORT_C(int,Fl_Toggle_Button_handle)(fl_Toggle_Button self, int event){-    return (static_cast<Fl_Toggle_Button*>(self))->handle(event);+    return (static_cast<Fl_DerivedToggle_Button*>(self))->handle(event);   }   FL_EXPORT_C(fl_Group,Fl_Toggle_Button_parent)(fl_Toggle_Button b){-    return (fl_Group) (static_cast<Fl_Toggle_Button*>(b))->parent();+    return (fl_Group) (static_cast<Fl_DerivedToggle_Button*>(b))->parent();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_parent)(fl_Toggle_Button b,fl_Group grp){-    (static_cast<Fl_Toggle_Button*>(b))->parent((static_cast<Fl_Group*>(grp)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->parent((static_cast<Fl_Group*>(grp)));   }   FL_EXPORT_C(uchar,Fl_Toggle_Button_type)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->type();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->type();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_type)(fl_Toggle_Button b,uchar t){-    (static_cast<Fl_Toggle_Button*>(b))->type(t);+    (static_cast<Fl_DerivedToggle_Button*>(b))->type(t);   }    FL_EXPORT_C(int,Fl_Toggle_Button_x)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->x();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->x();   }   FL_EXPORT_C(int,Fl_Toggle_Button_y)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->y();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->y();   }   FL_EXPORT_C(int,Fl_Toggle_Button_w)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->w();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->w();   }   FL_EXPORT_C(int,Fl_Toggle_Button_h)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->h();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->h();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_align)(fl_Toggle_Button b, Fl_Align alignment){-    (static_cast<Fl_Toggle_Button*>(b))->align(alignment);+    (static_cast<Fl_DerivedToggle_Button*>(b))->align(alignment);   }   FL_EXPORT_C(Fl_Align,Fl_Toggle_Button_align)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->align();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->align();   }   FL_EXPORT_C(Fl_Boxtype,Fl_Toggle_Button_box)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->box();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->box();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_box)(fl_Toggle_Button b,Fl_Boxtype new_box){-    (static_cast<Fl_Toggle_Button*>(b))->box((static_cast<Fl_Boxtype>(new_box)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->box((static_cast<Fl_Boxtype>(new_box)));   }   FL_EXPORT_C(Fl_Color,Fl_Toggle_Button_color)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->color();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->color();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_color)(fl_Toggle_Button b,Fl_Color bg){-    (static_cast<Fl_Toggle_Button*>(b))->color(bg);+    (static_cast<Fl_DerivedToggle_Button*>(b))->color(bg);   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_color_with_bg_sel)(fl_Toggle_Button b,Fl_Color bg,Fl_Color a){-    (static_cast<Fl_Toggle_Button*>(b))->color(bg,a);+    (static_cast<Fl_DerivedToggle_Button*>(b))->color(bg,a);   }   FL_EXPORT_C(Fl_Color,Fl_Toggle_Button_selection_color)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->selection_color();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->selection_color();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_selection_color)(fl_Toggle_Button b,Fl_Color a){-    (static_cast<Fl_Toggle_Button*>(b))->selection_color(a);+    (static_cast<Fl_DerivedToggle_Button*>(b))->selection_color(a);   }   FL_EXPORT_C(const char*,Fl_Toggle_Button_label)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->label();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->label();   }   FL_EXPORT_C(void,Fl_Toggle_Button_copy_label)(fl_Toggle_Button b,const char* new_label){-    (static_cast<Fl_Toggle_Button*>(b))->copy_label(new_label);+    (static_cast<Fl_DerivedToggle_Button*>(b))->copy_label(new_label);   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_label)(fl_Toggle_Button b,const char* text){-    (static_cast<Fl_Toggle_Button*>(b))->label(text);+    (static_cast<Fl_DerivedToggle_Button*>(b))->label(text);   }   FL_EXPORT_C(Fl_Labeltype,Fl_Toggle_Button_labeltype)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->labeltype();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->labeltype();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_labeltype)(fl_Toggle_Button b,Fl_Labeltype a){-    (static_cast<Fl_Toggle_Button*>(b))->labeltype(a);+    (static_cast<Fl_DerivedToggle_Button*>(b))->labeltype(a);   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_labelcolor)(fl_Toggle_Button b,Fl_Color c){-    (static_cast<Fl_Toggle_Button*>(b))->labelcolor(c);+    (static_cast<Fl_DerivedToggle_Button*>(b))->labelcolor(c);   }   FL_EXPORT_C(Fl_Color ,Fl_Toggle_Button_labelcolor)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->labelcolor();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->labelcolor();   }   FL_EXPORT_C(Fl_Font,Fl_Toggle_Button_labelfont)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->labelfont();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->labelfont();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_labelfont)(fl_Toggle_Button b,Fl_Font c){-    (static_cast<Fl_Toggle_Button*>(b))->labelfont((static_cast<Fl_Font>(c)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->labelfont((static_cast<Fl_Font>(c)));   }   FL_EXPORT_C(Fl_Fontsize,Fl_Toggle_Button_labelsize)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->labelsize();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->labelsize();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_labelsize)(fl_Toggle_Button b,Fl_Fontsize pix){-    (static_cast<Fl_Toggle_Button*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->labelsize((static_cast<Fl_Fontsize>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Toggle_Button_image)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->image();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->image();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_image)(fl_Toggle_Button b,fl_Image pix){-    (static_cast<Fl_Toggle_Button*>(b))->image((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->image((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(fl_Image,Fl_Toggle_Button_deimage)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->deimage();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->deimage();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_deimage)(fl_Toggle_Button b,fl_Image pix){-    (static_cast<Fl_Toggle_Button*>(b))->deimage((static_cast<Fl_Image*>(pix)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->deimage((static_cast<Fl_Image*>(pix)));   }   FL_EXPORT_C(const char*,Fl_Toggle_Button_tooltip)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->tooltip();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->tooltip();   }   FL_EXPORT_C(void,Fl_Toggle_Button_copy_tooltip)(fl_Toggle_Button b,const char* text){-    (static_cast<Fl_Toggle_Button*>(b))->copy_tooltip(text);+    (static_cast<Fl_DerivedToggle_Button*>(b))->copy_tooltip(text);   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_tooltip)(fl_Toggle_Button b,const char* text){-    (static_cast<Fl_Toggle_Button*>(b))->tooltip(text);+    (static_cast<Fl_DerivedToggle_Button*>(b))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_callback_with_user_data)(fl_Toggle_Button b,fl_Callback* cb,void* p){-    Fl_Toggle_Button* castedButton = (static_cast<Fl_Toggle_Button*>(b));+    Fl_DerivedToggle_Button* castedButton = (static_cast<Fl_DerivedToggle_Button*>(b));     new C_to_Fl_Callback(castedButton, cb, p);   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_callback)(fl_Toggle_Button b,fl_Callback* cb){-    Fl_Toggle_Button* castedButton = (static_cast<Fl_Toggle_Button*>(b));+    Fl_DerivedToggle_Button* castedButton = (static_cast<Fl_DerivedToggle_Button*>(b));     new C_to_Fl_Callback(castedButton, cb);   }   FL_EXPORT_C(void*,Fl_Toggle_Button_user_data)(fl_Toggle_Button b){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Toggle_Button*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedToggle_Button*>(b))->user_data()));     if(stored_cb){       return stored_cb->get_user_data();     }     else {-      return (static_cast<Fl_Toggle_Button*>(b))->user_data();+      return (static_cast<Fl_DerivedToggle_Button*>(b))->user_data();     }   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_user_data)(fl_Toggle_Button b,void* v){-    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Toggle_Button*>(b))->user_data()));+    C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedToggle_Button*>(b))->user_data()));     if (stored_cb) {       stored_cb->set_user_data(v);-      (static_cast<Fl_Toggle_Button*>(b))->user_data(stored_cb);+      (static_cast<Fl_DerivedToggle_Button*>(b))->user_data(stored_cb);     }     else {-      (static_cast<Fl_Toggle_Button*>(b))->user_data(v);+      (static_cast<Fl_DerivedToggle_Button*>(b))->user_data(v);     }   }   FL_EXPORT_C(long,Fl_Toggle_Button_argument)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->argument();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->argument();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_argument)(fl_Toggle_Button b,long v){-    (static_cast<Fl_Toggle_Button*>(b))->argument(v);+    (static_cast<Fl_DerivedToggle_Button*>(b))->argument(v);   }   FL_EXPORT_C(Fl_When,Fl_Toggle_Button_when)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->when();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->when();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_when)(fl_Toggle_Button b,uchar i){-    (static_cast<Fl_Toggle_Button*>(b))->when(i);+    (static_cast<Fl_DerivedToggle_Button*>(b))->when(i);   }   FL_EXPORT_C(unsigned int,Fl_Toggle_Button_visible)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->visible();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->visible();   }   FL_EXPORT_C(int,Fl_Toggle_Button_visible_r)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->visible_r();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->visible_r();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_visible)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->visible();+    (static_cast<Fl_DerivedToggle_Button*>(b))->visible();   }   FL_EXPORT_C(void,Fl_Toggle_Button_clear_visible)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->clear_visible();+    (static_cast<Fl_DerivedToggle_Button*>(b))->clear_visible();   }   FL_EXPORT_C(unsigned int,Fl_Toggle_Button_active)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->active();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->active();   }   FL_EXPORT_C(int,Fl_Toggle_Button_active_r)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->active_r();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->active_r();   }   FL_EXPORT_C(void,Fl_Toggle_Button_activate)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->activate();+    (static_cast<Fl_DerivedToggle_Button*>(b))->activate();   }   FL_EXPORT_C(void,Fl_Toggle_Button_deactivate)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->deactivate();+    (static_cast<Fl_DerivedToggle_Button*>(b))->deactivate();   }   FL_EXPORT_C(unsigned int,Fl_Toggle_Button_output)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->output();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->output();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_output)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->output();+    (static_cast<Fl_DerivedToggle_Button*>(b))->output();   }   FL_EXPORT_C(void,Fl_Toggle_Button_clear_output)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->clear_output();+    (static_cast<Fl_DerivedToggle_Button*>(b))->clear_output();   }   FL_EXPORT_C(unsigned int,Fl_Toggle_Button_takesevents)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->takesevents();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->takesevents();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_changed)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->changed();+    (static_cast<Fl_DerivedToggle_Button*>(b))->changed();   }   FL_EXPORT_C(void,Fl_Toggle_Button_clear_changed)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->clear_changed();+    (static_cast<Fl_DerivedToggle_Button*>(b))->clear_changed();   }   FL_EXPORT_C(int,Fl_Toggle_Button_take_focus)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->take_focus();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->take_focus();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_visible_focus)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->set_visible_focus();+    (static_cast<Fl_DerivedToggle_Button*>(b))->set_visible_focus();   }   FL_EXPORT_C(void,Fl_Toggle_Button_clear_visible_focus)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->clear_visible_focus();+    (static_cast<Fl_DerivedToggle_Button*>(b))->clear_visible_focus();   }   FL_EXPORT_C(void,Fl_Toggle_Button_modify_visible_focus)(fl_Toggle_Button b,int v){-    (static_cast<Fl_Toggle_Button*>(b))->visible_focus(v);+    (static_cast<Fl_DerivedToggle_Button*>(b))->visible_focus(v);   }   FL_EXPORT_C(unsigned int,Fl_Toggle_Button_visible_focus)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->visible_focus();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->visible_focus();   }   FL_EXPORT_C(void,Fl_Toggle_Button_do_callback)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->do_callback();+    (static_cast<Fl_DerivedToggle_Button*>(b))->do_callback();   }   FL_EXPORT_C(void,Fl_Toggle_Button_do_callback_with_widget_and_user_data)(fl_Toggle_Button b,fl_Widget w,long arg){-    (static_cast<Fl_Toggle_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);+    (static_cast<Fl_DerivedToggle_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)),arg);   }   FL_EXPORT_C(void,Fl_Toggle_Button_do_callback_with_widget_and_default_user_data)(fl_Toggle_Button b,fl_Widget w){-    (static_cast<Fl_Toggle_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)));+    (static_cast<Fl_DerivedToggle_Button*>(b))->do_callback((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Toggle_Button_contains)(fl_Toggle_Button b,fl_Widget w){-    return (static_cast<Fl_Toggle_Button*>(b))->contains((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedToggle_Button*>(b))->contains((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(int,Fl_Toggle_Button_inside)(fl_Toggle_Button b,fl_Widget w){-    return (static_cast<Fl_Toggle_Button*>(b))->inside((static_cast<Fl_Widget*>(w)));+    return (static_cast<Fl_DerivedToggle_Button*>(b))->inside((static_cast<Fl_Widget*>(w)));   }   FL_EXPORT_C(void,Fl_Toggle_Button_redraw)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->redraw();+    (static_cast<Fl_DerivedToggle_Button*>(b))->redraw();   }   FL_EXPORT_C(void,Fl_Toggle_Button_redraw_label)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->redraw_label();+    (static_cast<Fl_DerivedToggle_Button*>(b))->redraw_label();   }   FL_EXPORT_C(uchar,Fl_Toggle_Button_damage)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->damage();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->damage();   }   FL_EXPORT_C(void,Fl_Toggle_Button_clear_damage_with_bitmask)(fl_Toggle_Button b,uchar c){-    (static_cast<Fl_Toggle_Button*>(b))->clear_damage(c);+    (static_cast<Fl_DerivedToggle_Button*>(b))->clear_damage(c);   }   FL_EXPORT_C(void,Fl_Toggle_Button_clear_damage)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->clear_damage();+    (static_cast<Fl_DerivedToggle_Button*>(b))->clear_damage();   }   FL_EXPORT_C(void,Fl_Toggle_Button_damage_with_text)(fl_Toggle_Button b,uchar c){-    (static_cast<Fl_Toggle_Button*>(b))->damage(c);+    (static_cast<Fl_DerivedToggle_Button*>(b))->damage(c);   }   FL_EXPORT_C(void,Fl_Toggle_Button_damage_inside_widget)(fl_Toggle_Button b,uchar c,int x,int y,int w,int h){-    (static_cast<Fl_Toggle_Button*>(b))->damage(c,x,y,w,h);+    (static_cast<Fl_DerivedToggle_Button*>(b))->damage(c,x,y,w,h);   }   FL_EXPORT_C(void,Fl_Toggle_Button_draw_label_with_xywh_alignment)(fl_Toggle_Button b,int x,int y,int w,int h,Fl_Align alignment){-    (static_cast<Fl_Toggle_Button*>(b))->draw_label(x,y,w,h,alignment);+    (static_cast<Fl_DerivedToggle_Button*>(b))->draw_label(x,y,w,h,alignment);   }   FL_EXPORT_C(void,Fl_Toggle_Button_measure_label)(fl_Toggle_Button b,int* ww,int* hh){-    (static_cast<Fl_Toggle_Button*>(b))->measure_label(*ww,*hh);+    (static_cast<Fl_DerivedToggle_Button*>(b))->measure_label(*ww,*hh);   }   FL_EXPORT_C(fl_Window,    Fl_Toggle_Button_window)(fl_Toggle_Button toggle_button){-    return (fl_Window)(static_cast<Fl_Toggle_Button*>(toggle_button))->window();+    return (fl_Window)(static_cast<Fl_DerivedToggle_Button*>(toggle_button))->window();   }   FL_EXPORT_C(fl_Window,    Fl_Toggle_Button_top_window)(fl_Toggle_Button toggle_button){-    return (fl_Window) (static_cast<Fl_Toggle_Button*>(toggle_button))->top_window();+    return (fl_Window) (static_cast<Fl_DerivedToggle_Button*>(toggle_button))->top_window();   }   FL_EXPORT_C(fl_Window ,   Fl_Toggle_Button_top_window_offset)(fl_Toggle_Button toggle_button, int* xoff, int* yoff){-    return (fl_Window) (static_cast<Fl_Toggle_Button*>(toggle_button))->top_window_offset(*xoff,*yoff);+    return (fl_Window) (static_cast<Fl_DerivedToggle_Button*>(toggle_button))->top_window_offset(*xoff,*yoff);   }   FL_EXPORT_C(fl_Group,Fl_Toggle_Button_as_group)(fl_Toggle_Button toggle_button){-    return (fl_Group) (static_cast<Fl_Toggle_Button*>(toggle_button))->as_group();+    return (fl_Group) (static_cast<Fl_DerivedToggle_Button*>(toggle_button))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Toggle_Button_as_gl_window)(fl_Toggle_Button toggle_button){-    return (fl_Gl_Window) (static_cast<Fl_Toggle_Button*>(toggle_button))->as_gl_window();+    return (fl_Gl_Window) (static_cast<Fl_DerivedToggle_Button*>(toggle_button))->as_gl_window();   }-  FL_EXPORT_C(fl_Toggle_Button, Fl_Toggle_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {-    Fl_Toggle_Button* button = new Fl_Toggle_Button(x,y,w,h,label);+  FL_EXPORT_C(fl_Toggle_Button, Fl_Toggle_Button_New_WithLabel)(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps) {+    Fl_DerivedToggle_Button* button = new Fl_DerivedToggle_Button(x,y,w,h,label,dfps);     return (static_cast<fl_Toggle_Button>(button));   }-  FL_EXPORT_C(fl_Toggle_Button, Fl_Toggle_Button_New)(int x, int y, int w, int h) {-    Fl_Toggle_Button* button = new Fl_Toggle_Button(x,y,w,h,0);+  FL_EXPORT_C(fl_Toggle_Button, Fl_Toggle_Button_New)(int x, int y, int w, int h, Destroy_Function_Pointers dfps) {+    Fl_DerivedToggle_Button* button = new Fl_DerivedToggle_Button(x,y,w,h,0,dfps);     return (fl_Toggle_Button)button;   }   FL_EXPORT_C(void,Fl_Toggle_Button_Destroy)(fl_Toggle_Button button){-    delete (static_cast<Fl_Toggle_Button*>(button));+    delete (static_cast<Fl_DerivedToggle_Button*>(button));   }   FL_EXPORT_C(int,Fl_Toggle_Button_set_value)(fl_Toggle_Button b,int v){-    return (static_cast<Fl_Toggle_Button*>(b))->value(v);+    return (static_cast<Fl_DerivedToggle_Button*>(b))->value(v);   }   FL_EXPORT_C(char,Fl_Toggle_Button_value)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->value();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->value();   }   FL_EXPORT_C(int,Fl_Toggle_Button_clear)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->clear();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->clear();   }   FL_EXPORT_C(void,Fl_Toggle_Button_setonly)(fl_Toggle_Button b){-    (static_cast<Fl_Toggle_Button*>(b))->setonly();+    (static_cast<Fl_DerivedToggle_Button*>(b))->setonly();   }   FL_EXPORT_C(int,Fl_Toggle_Button_get_shortcut)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->shortcut();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->shortcut();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_shortcut)(fl_Toggle_Button b,int s){-    (static_cast<Fl_Toggle_Button*>(b))->shortcut(s);+    (static_cast<Fl_DerivedToggle_Button*>(b))->shortcut(s);   }   FL_EXPORT_C(Fl_Boxtype,Fl_Toggle_Button_down_box)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->down_box();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->down_box();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_down_box)(fl_Toggle_Button b,Fl_Boxtype boxtype){-    (static_cast<Fl_Toggle_Button*>(b))->down_box(boxtype);+    (static_cast<Fl_DerivedToggle_Button*>(b))->down_box(boxtype);   }   FL_EXPORT_C(Fl_Color,Fl_Toggle_Button_down_color)(fl_Toggle_Button b){-    return (static_cast<Fl_Toggle_Button*>(b))->down_color();+    return (static_cast<Fl_DerivedToggle_Button*>(b))->down_color();   }   FL_EXPORT_C(void,Fl_Toggle_Button_set_down_color)(fl_Toggle_Button b,Fl_Color c){-    (static_cast<Fl_Toggle_Button*>(b))->down_color(c);+    (static_cast<Fl_DerivedToggle_Button*>(b))->down_color(c);   } #ifdef __cplusplus }
c-src/Fl_Toggle_ButtonC.h view
@@ -8,6 +8,13 @@ #include "FL/Fl_Toggle_Button.H" #include "Fl_CallbackC.h" EXPORT {+  class Fl_DerivedToggle_Button : public Fl_Toggle_Button {+    Destroy_Function_Pointers destroy;+  public:+    void destroy_data();+    Fl_DerivedToggle_Button(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers destroy);+    ~Fl_DerivedToggle_Button();+  }; #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Toggle_Button_handle,(fl_Toggle_Button self, int event));@@ -94,8 +101,8 @@   FL_EXPORT_C_HEADER(fl_Group,Fl_Toggle_Button_as_group,(fl_Toggle_Button toggle_button));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Toggle_Button_as_gl_window,(fl_Toggle_Button toggle_button));   /* Fl_Toggle_Button specific functions */-  FL_EXPORT_C_HEADER(fl_Toggle_Button,Fl_Toggle_Button_New_WithLabel,(int x, int y, int w, int h, const char* label));-  FL_EXPORT_C_HEADER(fl_Toggle_Button,Fl_Toggle_Button_New,(int x, int y, int w, int h));+  FL_EXPORT_C_HEADER(fl_Toggle_Button,Fl_Toggle_Button_New_WithLabel,(int x, int y, int w, int h, const char* label, Destroy_Function_Pointers dfps));+  FL_EXPORT_C_HEADER(fl_Toggle_Button,Fl_Toggle_Button_New,(int x, int y, int w, int h, Destroy_Function_Pointers dfps));   FL_EXPORT_C_HEADER(void,Fl_Toggle_Button_Destroy,(fl_Toggle_Button button));    FL_EXPORT_C_HEADER(char        ,Fl_Toggle_Button_value,(fl_Toggle_Button b));
c-src/Fl_TreeC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedTree::~Fl_DerivedTree(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedTree::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Tree)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedTree::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Tree) this);
c-src/Fl_TreeC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedTree(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedTree(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedTree();
c-src/Fl_Types.h view
@@ -483,12 +483,19 @@   typedef void* fl_XBM_Image;   typedef void* fl_XPM_Image;   typedef void* fl_show_input;-  typedef void (fl_Callback )(fl_Widget, void*);+  typedef void (fl_Callback)(fl_Widget, void*);   typedef void (fl_Text_Buffer_Callback)(fl_Text_Buffer);   typedef void (*Unfinished_Style_Cb)(int, void *);   typedef void (fl_File_Chooser_Callback)(fl_File_Chooser,void*);   typedef fl_Image (fl_Shared_Image_Handler)(const char *name, uchar *header,int headerlen);   typedef void (fl_Menu_Item_Draw)(fl_Menu_Item i, int x, int y, int w, int h, fl_Menu m, int selected);+  // A function pointer to return so it can be freed on the Haskell side+  typedef void (*fl_DoNotCall) ();+  typedef void (*fl_Before_Destroy) (fl_DoNotCall* fps);+  typedef struct Function_Pointers_To_Free {+    int length;+    fl_DoNotCall* function_pointer_array;+  } Function_Pointers_To_Free;   typedef struct Style_Table_Entry {     Fl_Color    color;     Fl_Font     font;@@ -551,7 +558,7 @@     void         (*set_rows    )(fl_Table table, int val);     void         (*set_cols    )(fl_Table table, int val);     /* Clean up */-    void         (*destroy_data)(fl_Table table);+    void         (*destroy_data)(fl_Table table, Function_Pointers_To_Free* fps);   } fl_Table_Virtual_Funcs;   typedef struct {     void 	 (*draw        )(fl_Widget widget);@@ -563,7 +570,7 @@     fl_Gl_Window (*as_gl_window)(fl_Widget widget);     fl_Group     (*as_group    )(fl_Widget widget);     /* Clean up */-    void         (*destroy_data)(fl_Widget widget);+    void         (*destroy_data)(fl_Widget widget,Function_Pointers_To_Free* fps);   } fl_Widget_Virtual_Funcs;    typedef struct {@@ -578,7 +585,7 @@     /* From Fl_Group */     fl_Group     (*as_group    )(fl_Group group);     /* Clean up */-    void         (*destroy_data)(fl_Group group);+    void         (*destroy_data)(fl_Group group,Function_Pointers_To_Free* fps);   } fl_Group_Virtual_Funcs;   typedef struct {     /* From Fl_Widget */@@ -594,7 +601,7 @@     /* Fl_Browser Specific */     void         (*flush       )(fl_Window window);     /* Clean up */-    void         (*destroy_data)(fl_Window window);+    void         (*destroy_data)(fl_Window window,Function_Pointers_To_Free* fps);   } fl_Window_Virtual_Funcs;    typedef struct {@@ -612,7 +619,7 @@     void         (*hide          )(fl_Browser browser);     void         (*hide_with_line)(fl_Browser browser, int line);     /* Clean up */-    void         (*destroy_data)(fl_Browser browser);+    void         (*destroy_data)(fl_Browser browser,Function_Pointers_To_Free* fps);   } fl_Browser_Virtual_Funcs;    typedef struct {@@ -621,7 +628,7 @@     void      (*desaturate   )(fl_Image image);     void      (*draw         )(fl_Image image, int X, int Y, int W, int H, int cx, int cy);     void      (*uncache      )(fl_Image image);-    void      (*destroy_data )(fl_Image image);+    void      (*destroy_data )(fl_Image image,Function_Pointers_To_Free* fps);   } fl_Image_Virtual_Funcs;   typedef struct {     void 	 (*draw        )(fl_Valuator valuator);@@ -633,7 +640,7 @@     fl_Gl_Window (*as_gl_window)(fl_Valuator valuator);     fl_Group     (*as_group    )(fl_Valuator valuator);     /* Clean up */-    void         (*destroy_data)(fl_Valuator valuator);+    void         (*destroy_data)(fl_Valuator valuator,Function_Pointers_To_Free* fps);     /* Fl_Valuator specific */     int          (*format      )(fl_Valuator valuator, char* format);   } fl_Valuator_Virtual_Funcs;@@ -645,8 +652,11 @@     fl_Widget (*tab_which)(fl_Tabs tabs, int x, int y);     void (*redraw_tabs)(fl_Tabs tabs);     void (*tab_client_area)(fl_Tabs, int *rx, int *ry, int *rw, int *rh, int tabh);+    void(*destroy_data)(fl_Tabs valuator,Function_Pointers_To_Free* fps);   } fl_Tab_Virtual_Funcs; +  typedef void (*Destroy_Function_Pointers) (fl_Widget w,Function_Pointers_To_Free*fps);+   typedef struct {     int (*get_mode)(fl_Color_Chooser c);     void (*set_mode)(fl_Color_Chooser c,int newMode);@@ -658,6 +668,7 @@     double (*b)(fl_Color_Chooser c);     int (*hsv)(fl_Color_Chooser c,double H, double S, double V);     int (*rgb)(fl_Color_Chooser c,double R, double G, double B);+    void(*destroy_data)(fl_Color_Chooser c,Function_Pointers_To_Free* fps);   } fl_Color_Chooser_Virtual_Funcs;   typedef fl_Color_Chooser_Virtual_Funcs fl_Color_Chooser_Virtual_Funcs;   typedef fl_Tab_Virtual_Funcs fl_Tab_Virtual_Funcs;
c-src/Fl_ValuatorC.cpp view
@@ -20,7 +20,13 @@ } void Fl_DerivedValuator::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Box) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Valuator)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedValuator::draw_box(){@@ -134,15 +140,21 @@   FL_EXPORT_C(int,Fl_Valuator_handle_super)(fl_Valuator valuator,int event){     return (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::handle(event);   }-  FL_EXPORT_C(int,Fl_Valuator_handle )(fl_Valuator valuator, int event){+  FL_EXPORT_C(int,Fl_DerivedValuator_handle)(fl_Valuator valuator, int event){     return (static_cast<Fl_DerivedValuator*>(valuator))->handle(event);   }+  FL_EXPORT_C(int,Fl_Valuator_handle)(fl_Valuator valuator, int event){+    return (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::handle(event);+  }   FL_EXPORT_C(void,Fl_Valuator_resize_super )(fl_Valuator valuator,int x, int y, int w, int h){     (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::resize(x,y,w,h);   }-  FL_EXPORT_C(void,Fl_Valuator_resize )(fl_Valuator valuator,int x, int y, int w, int h){+  FL_EXPORT_C(void,Fl_DerivedValuator_resize )(fl_Valuator valuator,int x, int y, int w, int h){     (static_cast<Fl_DerivedValuator*>(valuator))->resize(x,y,w,h);   }+  FL_EXPORT_C(void,Fl_Valuator_resize )(fl_Valuator valuator,int x, int y, int w, int h){+    (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::resize(x,y,w,h);+  }   FL_EXPORT_C(void,Fl_Valuator_show_super)(fl_Valuator valuator){     (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::show();   }@@ -152,8 +164,11 @@   FL_EXPORT_C(void,Fl_Valuator_hide_super)(fl_Valuator valuator){     (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::hide();   }-  FL_EXPORT_C(void,Fl_Valuator_hide )(fl_Valuator valuator){+  FL_EXPORT_C(void,Fl_DerivedValuator_hide )(fl_Valuator valuator){     (static_cast<Fl_DerivedValuator*>(valuator))->hide();+  }+  FL_EXPORT_C(void,Fl_Valuator_hide )(fl_Valuator valuator){+    (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::hide();   }   FL_EXPORT_C(fl_Window,Fl_Valuator_as_window_super)(fl_Valuator valuator){     return (static_cast<Fl_DerivedValuator*>(valuator))->Fl_Valuator::as_window();
c-src/Fl_ValuatorC.h view
@@ -14,7 +14,6 @@   public:     void* get_other_data();     void set_other_data(void*);-    void destroy_data();     void draw_box();     void draw_box(Fl_Boxtype t, Fl_Color c);     void draw_box(Fl_Boxtype t, int x,int y,int w,int h, Fl_Color c);@@ -32,6 +31,7 @@     virtual Fl_Window* as_window();     virtual Fl_Gl_Window* as_gl_window();     virtual int format(char* format);+    void destroy_data();     Fl_DerivedValuator(int X, int Y, int W, int H, const char *l, fl_Valuator_Virtual_Funcs* funcs);     Fl_DerivedValuator(int X, int Y, int W, int H, fl_Valuator_Virtual_Funcs* funcs);     ~Fl_DerivedValuator();@@ -44,6 +44,7 @@   } Valuator_Type; #endif   FL_EXPORT_C_HEADER(int,Fl_Valuator_handle,(fl_Widget self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedValuator_handle,(fl_Widget self, int event));   FL_EXPORT_C_HEADER(int,Fl_Valuator_handle_super,(fl_Widget self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Valuator_parent,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(void,Fl_Valuator_set_parent,(fl_Valuator valuator, fl_Group grp));@@ -104,6 +105,7 @@   FL_EXPORT_C_HEADER(void,Fl_Valuator_show,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(void,Fl_Valuator_hide_super,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(void,Fl_Valuator_hide,(fl_Valuator valuator));+  FL_EXPORT_C_HEADER(void,Fl_DerivedValuator_hide,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(void,Fl_Valuator_set_visible,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(void,Fl_Valuator_clear_visible,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(unsigned int,Fl_Valuator_active,(fl_Valuator valuator));@@ -139,6 +141,7 @@   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Valuator_as_gl_window,(fl_Valuator valuator));   FL_EXPORT_C_HEADER(void,Fl_Valuator_resize_super,(fl_Table table,int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Valuator_resize,(fl_Table table,int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,Fl_DerivedValuator_resize,(fl_Table table,int X, int Y, int W, int H));    FL_EXPORT_C_HEADER(fl_Valuator_Virtual_Funcs*,Fl_Valuator_default_virtual_funcs,());   FL_EXPORT_C_HEADER(fl_Valuator,Fl_Valuator_New_WithLabel,(int x, int y, int w, int h, const char* label));
c-src/Fl_Value_InputC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedValue_Input::~Fl_DerivedValue_Input(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedValue_Input::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Value_Input)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedValue_Input::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Value_Input) this);
c-src/Fl_Value_InputC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedValue_Input(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedValue_Input(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedValue_Input();
c-src/Fl_Value_OutputC.cpp view
@@ -11,8 +11,20 @@     other_data = (void*)0;   }   Fl_DerivedValue_Output::~Fl_DerivedValue_Output(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedValue_Output::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Value_Output)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedValue_Output::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Value_Output) this);
c-src/Fl_Value_OutputC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedValue_Output(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedValue_Output(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedValue_Output();
c-src/Fl_Value_SliderC.cpp view
@@ -10,8 +10,20 @@     other_data = (void*)0;   }   Fl_DerivedValue_Slider::~Fl_DerivedValue_Slider(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedValue_Slider::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Value_Slider)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedValue_Slider::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Value_Slider) this);
c-src/Fl_Value_SliderC.h view
@@ -24,6 +24,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedValue_Slider(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedValue_Slider(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedValue_Slider();
c-src/Fl_WidgetC.cpp view
@@ -18,15 +18,24 @@ void Fl_DerivedWidget::set_other_data(void* data){   this->other_data = data; }+ void Fl_DerivedWidget::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Widget) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Widget)this,res);+    if (fps) { free(fps); }+    free(res);   } }+ void Fl_DerivedWidget::draw(){   // defined as virtual void draw = 0 in Fl_Widget.H, needs to be provided.   this->overriddenFuncs->draw((fl_Widget) this); }+ void Fl_DerivedWidget::draw_box(){   Fl_Widget::draw_box(); }@@ -61,6 +70,9 @@   }   return i; }+int Fl_DerivedWidget::handle_super(int event){+  return Fl_Widget::handle(event);+} void Fl_DerivedWidget::resize_super(int x, int y, int w, int h){   Fl_Widget::resize(x,y,w,h); }@@ -72,6 +84,9 @@     Fl_Widget::resize(x,y,w,h);   } }+void Fl_DerivedWidget::show_super(){+  Fl_Widget::show();+} void Fl_DerivedWidget::show(){   if (this->overriddenFuncs->show != NULL) {     this->overriddenFuncs->show((fl_Widget) this);@@ -80,6 +95,9 @@     Fl_Widget::show();   } }+void Fl_DerivedWidget::hide_super(){+  Fl_Widget::hide();+} void Fl_DerivedWidget::hide(){   if (this->overriddenFuncs->hide != NULL) {     this->overriddenFuncs->hide((fl_Widget) this);@@ -142,9 +160,15 @@     ptr->destroy_data = NULL;     return ptr;   }-  FL_EXPORT_C(int,Fl_Widget_handle)(fl_Widget self, int event){+  FL_EXPORT_C(int,Fl_DerivedWidget_handle)(fl_Widget self, int event){     return (static_cast<Fl_DerivedWidget*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_Widget_handle_super)(fl_Widget self, int event){+    return (static_cast<Fl_DerivedWidget*>(self))->handle_super(event);+  }+  FL_EXPORT_C(void,Fl_DerivedWidget_draw)(fl_Widget widget){+    (static_cast<Fl_DerivedWidget*>(widget))->draw();+  }   FL_EXPORT_C(fl_Group,Fl_Widget_parent)(fl_Widget widget){     return (fl_Group) (static_cast<Fl_DerivedWidget*>(widget))->parent();   }@@ -269,19 +293,26 @@   FL_EXPORT_C(void,Fl_Widget_copy_tooltip)(fl_Widget widget,const char* text){     (static_cast<Fl_DerivedWidget*>(widget))->copy_tooltip(text);   }+  FL_EXPORT_C(fl_Callback*, Fl_Widget_callback)(fl_Widget widget) {+    Fl_Widget* castedWidget = static_cast<Fl_Widget*>(widget);+    fl_Callback* old_cb = C_to_Fl_Callback::get_callback(castedWidget);+    return old_cb;+  }   FL_EXPORT_C(void,Fl_Widget_set_tooltip)(fl_Widget widget,const char* text){     (static_cast<Fl_DerivedWidget*>(widget))->tooltip(text);   }   FL_EXPORT_C(void,Fl_Widget_set_callback_with_user_data)(fl_Widget widget,fl_Callback* cb,void* p){-    Fl_DerivedWidget* castedWindow = (static_cast<Fl_DerivedWidget*>(widget));-    new C_to_Fl_Callback(castedWindow, cb, p);+    Fl_DerivedWidget* castedWidget = (static_cast<Fl_DerivedWidget*>(widget));+    new C_to_Fl_Callback(castedWidget, cb, p);   }   FL_EXPORT_C(void,Fl_Widget_do_callback)(fl_Widget widget){     (static_cast<Fl_DerivedWidget*>(widget))->do_callback();   }-  FL_EXPORT_C(void,Fl_Widget_set_callback)(fl_Widget widget,fl_Callback* cb){-    Fl_DerivedWidget* castedWindow = (static_cast<Fl_DerivedWidget*>(widget));-    new C_to_Fl_Callback(castedWindow, cb);+  FL_EXPORT_C(fl_Callback*,Fl_Widget_set_callback)(fl_Widget widget,fl_Callback* cb){+    Fl_Widget* castedWidget = static_cast<Fl_Widget*>(widget);+    fl_Callback* old_cb = C_to_Fl_Callback::get_callback(castedWidget);+    new C_to_Fl_Callback(castedWidget, cb);+    return old_cb;   }   FL_EXPORT_C(int, Fl_Widget_has_callback)(fl_Widget widget){     void* p = 0;@@ -337,15 +368,18 @@     return (static_cast<Fl_DerivedWidget*>(widget))->visible_r();   }   FL_EXPORT_C(void,Fl_Widget_show_super)(fl_Widget widget){-    return (static_cast<Fl_Widget*>(widget))->show();+    return (static_cast<Fl_DerivedWidget*>(widget))->show_super();   }-  FL_EXPORT_C(void,Fl_Widget_show)(fl_Widget widget){+  FL_EXPORT_C(void,Fl_DerivedWidget_show)(fl_Widget widget){     return (static_cast<Fl_DerivedWidget*>(widget))->show();   }+  FL_EXPORT_C(void,Fl_Widget_show)(fl_Widget widget){+    return (static_cast<Fl_Widget*>(widget))->Fl_Widget::show();+  }   FL_EXPORT_C(void,Fl_Widget_hide_super)(fl_Widget widget){-    return (static_cast<Fl_Widget*>(widget))->hide();+    return (static_cast<Fl_DerivedWidget*>(widget))->hide_super();   }-  FL_EXPORT_C(void,Fl_Widget_hide)(fl_Widget widget){+  FL_EXPORT_C(void,Fl_DerivedWidget_hide)(fl_Widget widget){     return (static_cast<Fl_DerivedWidget*>(widget))->hide();   }   FL_EXPORT_C(void,Fl_Widget_clear_visible)(fl_Widget widget){@@ -454,18 +488,30 @@     return (fl_Group) (static_cast<Fl_Widget*>(widget))->as_group();   }   FL_EXPORT_C(fl_Group,Fl_Widget_as_group)(fl_Widget widget){+    return (fl_Group) (static_cast<Fl_Widget*>(widget))->as_group();+  }+  FL_EXPORT_C(fl_Group,Fl_DerivedWidget_as_group)(fl_Widget widget){     return (fl_Group) (static_cast<Fl_DerivedWidget*>(widget))->as_group();   }   FL_EXPORT_C(fl_Gl_Window,Fl_Widget_as_gl_window_super)(fl_Widget widget){     return (fl_Gl_Window) (static_cast<Fl_Widget*>(widget))->as_gl_window();   }-  FL_EXPORT_C(fl_Gl_Window,Fl_Widget_as_gl_window)(fl_Widget widget){+  FL_EXPORT_C(fl_Gl_Window,Fl_DerivedWidget_as_gl_window)(fl_Widget widget){     return (fl_Gl_Window) (static_cast<Fl_DerivedWidget*>(widget))->as_gl_window();   }+  FL_EXPORT_C(fl_Gl_Window,Fl_Widget_as_gl_window)(fl_Widget widget){+    return (fl_Gl_Window) (static_cast<Fl_Widget*>(widget))->as_gl_window();+  }+  FL_EXPORT_C(fl_Gl_Window,Fl_DerivedWidget_as_window)(fl_Widget widget){+    return (fl_Gl_Window) (static_cast<Fl_DerivedWidget*>(widget))->as_window();+  }+  FL_EXPORT_C(fl_Gl_Window,Fl_Widget_as_window)(fl_Widget widget){+    return (fl_Gl_Window) (static_cast<Fl_Widget*>(widget))->as_window();+  }   FL_EXPORT_C(void,Fl_Widget_resize_super)(fl_Widget widget,int X,int Y,int W,int H){     return (static_cast<Fl_DerivedWidget*>(widget))->resize_super(X,Y,W,H);   }-  FL_EXPORT_C(void,Fl_Widget_resize)(fl_Widget widget,int X,int Y,int W,int H){+  FL_EXPORT_C(void,Fl_DerivedWidget_resize)(fl_Widget widget,int X,int Y,int W,int H){     return (static_cast<Fl_DerivedWidget*>(widget))->resize(X,Y,W,H);   }   FL_EXPORT_C(fl_Widget,    Fl_Widget_New)(int X, int Y, int W, int H){@@ -487,6 +533,9 @@     return (fl_Widget)w;   }   FL_EXPORT_C(void, Fl_Widget_Destroy)(fl_Widget widget){+    delete (static_cast<Fl_Widget*>(widget));+  }+  FL_EXPORT_C(void, Fl_DerivedWidget_Destroy)(fl_Widget widget){     delete (static_cast<Fl_DerivedWidget*>(widget));   }   FL_EXPORT_C(unsigned int, Fl_Widget_flags)(fl_Widget widget){
c-src/Fl_WidgetC.h view
@@ -8,9 +8,9 @@ #include "Fl_CallbackC.h" EXPORT {   class Fl_DerivedWidget : public Fl_Widget {-    fl_Widget_Virtual_Funcs* overriddenFuncs;     void* other_data;   public:+    fl_Widget_Virtual_Funcs* overriddenFuncs;     void* get_other_data();     void set_other_data(void*);     void destroy_data();@@ -26,10 +26,13 @@     void clear_flag(unsigned int);     unsigned int flags();     virtual void draw();+    int handle_super(int event);     virtual int handle(int event);     void resize_super(int x, int y, int w, int h);     virtual void resize(int x, int y, int w, int h);+    void show_super();     virtual void show();+    void hide_super();     virtual void hide();     virtual Fl_Group* as_group();     virtual Fl_Window* as_window();@@ -68,7 +71,8 @@   } WidgetFlags; #endif -  FL_EXPORT_C_HEADER(int,Fl_Widget_handle,(fl_Widget self, int event));+  FL_EXPORT_C_HEADER(int,Fl_Widget_handle_super,(fl_Widget self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedWidget_handle,(fl_Widget self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Widget_parent,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_set_parent,(fl_Widget widget, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Widget_type,(fl_Widget widget));@@ -113,7 +117,7 @@   FL_EXPORT_C_HEADER(void,Fl_Widget_set_tooltip,(fl_Widget widget, const char* text));   FL_EXPORT_C_HEADER(void,Fl_Widget_do_callback,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_set_callback_with_user_data,(fl_Widget widget, fl_Callback* cb, void* p));-  FL_EXPORT_C_HEADER(void,Fl_Widget_set_callback,(fl_Widget widget, fl_Callback* cb));+  FL_EXPORT_C_HEADER(fl_Callback*,Fl_Widget_set_callback,(fl_Widget widget, fl_Callback* cb));   FL_EXPORT_C_HEADER(int,Fl_Widget_has_callback,(fl_Widget widget));   FL_EXPORT_C_HEADER(void*,Fl_Widget_other_data,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_set_other_data,(fl_Widget widget, void* v));@@ -126,9 +130,9 @@   FL_EXPORT_C_HEADER(unsigned int,Fl_Widget_visible,(fl_Widget widget));   FL_EXPORT_C_HEADER(int,Fl_Widget_visible_r,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_show_super,(fl_Widget widget));-  FL_EXPORT_C_HEADER(void,Fl_Widget_show,(fl_Widget widget));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWidget_show,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_hide_super,(fl_Widget widget));-  FL_EXPORT_C_HEADER(void,Fl_Widget_hide,(fl_Widget widget));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWidget_hide,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_set_visible,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_clear_visible,(fl_Widget widget));   FL_EXPORT_C_HEADER(unsigned int,Fl_Widget_active,(fl_Widget widget));@@ -165,19 +169,26 @@   FL_EXPORT_C_HEADER(fl_Window ,Fl_Widget_top_window_offset,(fl_Widget widget, int* xoff, int* yoff));   FL_EXPORT_C_HEADER(fl_Group,Fl_Widget_as_group_super,(fl_Widget widget));   FL_EXPORT_C_HEADER(fl_Group,Fl_Widget_as_group,(fl_Widget widget));+  FL_EXPORT_C_HEADER(fl_Group,Fl_DerivedWidget_as_group,(fl_Widget widget));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Widget_as_gl_window_super,(fl_Widget widget));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Widget_as_gl_window,(fl_Widget widget));+  FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_DerivedWidget_as_gl_window,(fl_Widget widget));+  FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Widget_as_window,(fl_Widget widget));+  FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_DerivedWidget_as_window,(fl_Widget widget));   FL_EXPORT_C_HEADER(void,Fl_Widget_resize_super,(fl_Widget widget,int X, int Y, int W, int H));-  FL_EXPORT_C_HEADER(void,Fl_Widget_resize,(fl_Widget widget,int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWidget_resize,(fl_Widget widget,int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(fl_Widget_Virtual_Funcs*,Fl_Widget_default_virtual_funcs,());   FL_EXPORT_C_HEADER(fl_Widget,Fl_Widget_New,(int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(fl_Widget,Fl_Widget_New_WithLabel,(int X, int Y, int W, int H, const char* label));   FL_EXPORT_C_HEADER(fl_Widget,Fl_OverriddenWidget_New,(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(fl_Widget,Fl_OverriddenWidget_New_WithLabel,(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs));   FL_EXPORT_C_HEADER(void,Fl_Widget_Destroy,(fl_Widget widget));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWidget_Destroy,(fl_Widget widget));   FL_EXPORT_C_HEADER(unsigned int, Fl_Widget_flags,(fl_Widget widget));   FL_EXPORT_C_HEADER(void, Fl_Widget_set_flag,(fl_Widget widget, unsigned int flag));   FL_EXPORT_C_HEADER(void, Fl_Widget_clear_flag,(fl_Widget widget, unsigned int flag));+  FL_EXPORT_C_HEADER(fl_Callback*, Fl_Widget_callback,(fl_Widget w));+  FL_EXPORT_C_HEADER(void, Fl_DerivedWidget_draw,(fl_Widget widget)); #ifdef __cplusplus } #endif
c-src/Fl_WindowC.cpp view
@@ -29,7 +29,13 @@ } void Fl_DerivedWindow::destroy_data(){   if (this->overriddenFuncs->destroy_data != NULL){-    this->overriddenFuncs->destroy_data((fl_Window) this);+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Window)this,res);+    if (fps) { free(fps); }+    free(res);   } } void Fl_DerivedWindow::draw_box(){@@ -180,9 +186,12 @@     ptr->destroy_data = NULL;     return ptr;   }-  FL_EXPORT_C(int,Fl_Window_handle)(fl_Window self, int event){+  FL_EXPORT_C(int,Fl_DerivedWindow_handle)(fl_Window self, int event){     return (static_cast<Fl_DerivedWindow*>(self))->handle(event);   }+  FL_EXPORT_C(int,Fl_Window_handle)(fl_Window self, int event){+    return (static_cast<Fl_DerivedWindow*>(self))->Fl_Window::handle(event);+  }   FL_EXPORT_C(fl_Group,Fl_Window_parent)(fl_Window win){     return (fl_Group) (static_cast<Fl_DerivedWindow*>(win))->parent();   }@@ -314,9 +323,11 @@     Fl_DerivedWindow* castedWindow = (static_cast<Fl_DerivedWindow*>(win));     new C_to_Fl_Callback(castedWindow, cb, p);   }-  FL_EXPORT_C(void,Fl_Window_set_callback)(fl_Window win,fl_Callback* cb){-    Fl_DerivedWindow* castedWindow = (static_cast<Fl_DerivedWindow*>(win));+  FL_EXPORT_C(fl_Callback*,Fl_Window_set_callback)(fl_Window win,fl_Callback* cb){+    Fl_Window* castedWindow = (static_cast<Fl_Window*>(win));+    fl_Callback* old_cb = C_to_Fl_Callback::get_callback(castedWindow);     new C_to_Fl_Callback(castedWindow, cb);+    return old_cb;   }   FL_EXPORT_C(void*,Fl_Window_user_data)(fl_Window win){     C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedWindow*>(win))->user_data()));@@ -586,9 +597,12 @@     Fl_DerivedWindow* window = new Fl_DerivedWindow(x,y,w,h,0,funcs);     return (fl_Window)window;   }-  FL_EXPORT_C(void, Fl_Window_Destroy)(fl_Window window){+  FL_EXPORT_C(void, Fl_DerivedWindow_Destroy)(fl_Window window){     delete (static_cast<Fl_DerivedWindow*>(window));   }+  FL_EXPORT_C(void, Fl_Window_Destroy)(fl_Window window){+    delete (static_cast<Fl_Window*>(window));+  }   FL_EXPORT_C(void, Fl_Window_draw_super)(fl_Window window){     (static_cast<Fl_DerivedWindow*>(window))->draw_super();   };@@ -610,6 +624,9 @@   FL_EXPORT_C(void, Fl_Window_flush_super)(fl_Window window){     (static_cast<Fl_DerivedWindow*>(window))->flush_super();   };+  FL_EXPORT_C(void, Fl_Window_flush)(fl_Window window){+    (static_cast<Fl_DerivedWindow*>(window))->flush();+  };   FL_EXPORT_C(fl_Window, Fl_Window_as_window_super)(fl_Window window){     return (fl_Window)(static_cast<Fl_Window*>(window))->as_window();   };@@ -631,17 +648,26 @@   FL_EXPORT_C(void,Fl_Window_fullscreen_off_with_resize)(fl_Window win,int X,int Y,int W,int H){     (static_cast<Fl_DerivedWindow*>(win))->fullscreen_off(X,Y,W,H);   }-  FL_EXPORT_C(void,Fl_Window_hide)(fl_Window win){+  FL_EXPORT_C(void,Fl_DerivedWindow_hide)(fl_Window win){     (static_cast<Fl_DerivedWindow*>(win))->hide();   }-  FL_EXPORT_C(void,Fl_Window_show)(fl_Window win){+  FL_EXPORT_C(void,Fl_Window_hide)(fl_Window win){+    (static_cast<Fl_DerivedWindow*>(win))->Fl_Window::hide();+  }+  FL_EXPORT_C(void,Fl_DerivedWindow_show)(fl_Window win){     (static_cast<Fl_DerivedWindow*>(win))->show();   }+  FL_EXPORT_C(void,Fl_Window_show)(fl_Window win){+    (static_cast<Fl_DerivedWindow*>(win))->Fl_Window::show();+  }   FL_EXPORT_C(void,Fl_Window_show_with_args)(fl_Window win,int argc,char** argv){-    (static_cast<Fl_DerivedWindow*>(win))->show(argc,argv);+    (static_cast<Fl_Window*>(win))->show(argc,argv);   }+  FL_EXPORT_C(void,Fl_DerivedWindow_resize)(fl_Window win,int X,int Y,int W,int H){+    (static_cast<Fl_Window*>(win))->resize(X,Y,W,H);+  }   FL_EXPORT_C(void,Fl_Window_resize)(fl_Window win,int X,int Y,int W,int H){-    (static_cast<Fl_DerivedWindow*>(win))->resize(X,Y,W,H);+    (static_cast<Fl_Window*>(win))->Fl_Window::resize(X,Y,W,H);   }   FL_EXPORT_C(void,Fl_Window_iconize)(fl_Window win){     (static_cast<Fl_DerivedWindow*>(win))->iconize();
c-src/Fl_WindowC.h view
@@ -7,9 +7,9 @@                           // the callback mechanism included below to work. #include "Fl_CallbackC.h" class Fl_DerivedWindow : public Fl_Window {-  fl_Window_Virtual_Funcs* overriddenFuncs;   void* other_data; public:+  fl_Window_Virtual_Funcs* overriddenFuncs;   void* get_other_data();   void set_other_data(void*);   void destroy_data();@@ -53,6 +53,7 @@ #endif   /* Inherited from Fl_Widget */   FL_EXPORT_C_HEADER(int,Fl_Window_handle,(fl_Window self, int event));+  FL_EXPORT_C_HEADER(int,Fl_DerivedWindow_handle,(fl_Window self, int event));   FL_EXPORT_C_HEADER(fl_Group,Fl_Window_parent,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_set_parent,(fl_Window win, fl_Group grp));   FL_EXPORT_C_HEADER(uchar,Fl_Window_type,(fl_Window win));@@ -97,7 +98,7 @@   FL_EXPORT_C_HEADER(void,Fl_Window_copy_tooltip,(fl_Window win, const char* text));   FL_EXPORT_C_HEADER(void,Fl_Window_set_tooltip,(fl_Window win, const char* text));   FL_EXPORT_C_HEADER(void,Fl_Window_set_callback_with_user_data,(fl_Window win, fl_Callback* cb, void* p));-  FL_EXPORT_C_HEADER(void,Fl_Window_set_callback,(fl_Window win, fl_Callback* cb));+  FL_EXPORT_C_HEADER(fl_Callback*,Fl_Window_set_callback,(fl_Window win, fl_Callback* cb));   FL_EXPORT_C_HEADER(void*,Fl_Window_user_data,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_set_user_data,(fl_Window win, void* v));   FL_EXPORT_C_HEADER(long,Fl_Window_argument,(fl_Window win));@@ -182,6 +183,7 @@   FL_EXPORT_C_HEADER(void,Fl_Window_show_super,(fl_Window window));   FL_EXPORT_C_HEADER(void,Fl_Window_hide_super,(fl_Window window));   FL_EXPORT_C_HEADER(void,Fl_Window_flush_super,(fl_Window window));+  FL_EXPORT_C_HEADER(void,Fl_Window_flush,(fl_Window window));   FL_EXPORT_C_HEADER(fl_Window,Fl_Window_as_window_super,(fl_Window window));   FL_EXPORT_C_HEADER(fl_Gl_Window,Fl_Window_as_gl_window_super,(fl_Window window));   FL_EXPORT_C_HEADER(fl_Window,Fl_Window_as_window,(fl_Window window));@@ -199,11 +201,15 @@   FL_EXPORT_C_HEADER(fl_Window,Fl_OverriddenWindow_NewXY_WithLabel,(int x, int y, int w, int h, const char* title,fl_Window_Virtual_Funcs* funcs));   FL_EXPORT_C_HEADER(fl_Window,Fl_Window_NewXY,(int x, int y, int w, int h));   FL_EXPORT_C_HEADER(fl_Window,Fl_OverriddenWindow_NewXY,(int x, int y, int w, int h,fl_Window_Virtual_Funcs* funcs));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWindow_hide,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_hide,(fl_Window win));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWindow_show,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_show,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_show_with_args,(fl_Window win, int argc, char** argv));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWindow_Destroy,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_Destroy,(fl_Window win));   FL_EXPORT_C_HEADER(void,Fl_Window_resize,(fl_Window win, int X, int Y, int W, int H));+  FL_EXPORT_C_HEADER(void,Fl_DerivedWindow_resize,(fl_Window win, int X, int Y, int W, int H));   FL_EXPORT_C_HEADER(void,Fl_Window_iconize,(fl_Window win));   FL_EXPORT_C_HEADER(int ,Fl_Window_handle,(fl_Window win, int event));   FL_EXPORT_C_HEADER(void ,Fl_Window_set_border,(fl_Window win, int b));
c-src/Fl_WizardC.cpp view
@@ -13,8 +13,20 @@     other_data = (void*)0;   }   Fl_DerivedWizard::~Fl_DerivedWizard(){+    this->destroy_data();     free(overriddenFuncs);   }+void Fl_DerivedWizard::destroy_data(){+  if (this->overriddenFuncs->destroy_data != NULL){+    fl_DoNotCall* fps = NULL;+    int num_fps = C_to_Fl_Callback::function_pointers_to_free(this->overriddenFuncs,&fps);+    fl_Callback* cb = C_to_Fl_Callback::get_callback(this);+    Function_Pointers_To_Free* res = C_to_Fl_Callback::gather_function_pointers(num_fps+1,num_fps,fps,(fl_DoNotCall)cb);+    this->overriddenFuncs->destroy_data((fl_Wizard)this,res);+    if (fps) { free(fps); }+    free(res);+  }+}   void Fl_DerivedWizard::draw(){     if (this->overriddenFuncs->draw != NULL) {       this->overriddenFuncs->draw((fl_Wizard) this);
c-src/Fl_WizardC.h view
@@ -23,6 +23,7 @@     void show_super();     virtual void hide();     void hide_super();+    void destroy_data();     Fl_DerivedWizard(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);     Fl_DerivedWizard(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);     ~Fl_DerivedWizard();
fltk-master.zip view

file too large to diff

fltkhs.cabal view
@@ -1,5 +1,5 @@ name : fltkhs-version : 0.7.0.4+version : 0.8.0.0 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@@ -78,99 +78,156 @@      exposed-modules:                    Graphics.UI.FLTK.LowLevel.Gl                    Graphics.UI.FLTK.LowLevel.Glut+                   Graphics.UI.FLTK.LowLevel.Base.GlWindow                    Graphics.UI.FLTK.LowLevel.GlWindow      cpp-options: -DGLSUPPORT   exposed-modules:+                   Graphics.UI.FLTK.LowLevel.Base.Adjuster                    Graphics.UI.FLTK.LowLevel.Adjuster                    Graphics.UI.FLTK.LowLevel.Ask                    Graphics.UI.FLTK.LowLevel.BMPImage                    Graphics.UI.FLTK.LowLevel.Bitmap                    Graphics.UI.FLTK.LowLevel.Box+                   Graphics.UI.FLTK.LowLevel.Base.Browser                    Graphics.UI.FLTK.LowLevel.Browser+                   Graphics.UI.FLTK.LowLevel.Base.Button                    Graphics.UI.FLTK.LowLevel.Button+                   Graphics.UI.FLTK.LowLevel.Base.CheckButton                    Graphics.UI.FLTK.LowLevel.CheckButton+                   Graphics.UI.FLTK.LowLevel.Base.Choice                    Graphics.UI.FLTK.LowLevel.Choice+                   Graphics.UI.FLTK.LowLevel.Base.Clock                    Graphics.UI.FLTK.LowLevel.Clock+                   Graphics.UI.FLTK.LowLevel.Base.ColorChooser                    Graphics.UI.FLTK.LowLevel.ColorChooser                    Graphics.UI.FLTK.LowLevel.CopySurface+                   Graphics.UI.FLTK.LowLevel.Base.Counter                    Graphics.UI.FLTK.LowLevel.Counter+                   Graphics.UI.FLTK.LowLevel.Base.Dial                    Graphics.UI.FLTK.LowLevel.Dial                    Graphics.UI.FLTK.LowLevel.Dispatch                    Graphics.UI.FLTK.LowLevel.DoubleWindow+                   Graphics.UI.FLTK.LowLevel.Base.DoubleWindow                    Graphics.UI.FLTK.LowLevel.Draw                    Graphics.UI.FLTK.LowLevel.FL                    Graphics.UI.FLTK.LowLevel.FLTKHS+                   Graphics.UI.FLTK.LowLevel.Base.FileBrowser                    Graphics.UI.FLTK.LowLevel.FileBrowser+                   Graphics.UI.FLTK.LowLevel.Base.FileInput                    Graphics.UI.FLTK.LowLevel.FileInput                    Graphics.UI.FLTK.LowLevel.FillDial+                   Graphics.UI.FLTK.LowLevel.Base.FillSlider                    Graphics.UI.FLTK.LowLevel.FillSlider                    Graphics.UI.FLTK.LowLevel.Fl_Enumerations                    Graphics.UI.FLTK.LowLevel.Fl_Types                    Graphics.UI.FLTK.LowLevel.GIFImage                    Graphics.UI.FLTK.LowLevel.Group+                   Graphics.UI.FLTK.LowLevel.Base.Group                    Graphics.UI.FLTK.LowLevel.Hierarchy+                   Graphics.UI.FLTK.LowLevel.Base.HorFillSlider                    Graphics.UI.FLTK.LowLevel.HorFillSlider+                   Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider                    Graphics.UI.FLTK.LowLevel.HorNiceSlider+                   Graphics.UI.FLTK.LowLevel.Base.HorSlider                    Graphics.UI.FLTK.LowLevel.HorSlider                    Graphics.UI.FLTK.LowLevel.HorValueSlider                    Graphics.UI.FLTK.LowLevel.Image                    Graphics.UI.FLTK.LowLevel.ImageSurface+                   Graphics.UI.FLTK.LowLevel.Base.Input                    Graphics.UI.FLTK.LowLevel.Input                    Graphics.UI.FLTK.LowLevel.JPEGImage+                   Graphics.UI.FLTK.LowLevel.Base.LightButton                    Graphics.UI.FLTK.LowLevel.LightButton                    Graphics.UI.FLTK.LowLevel.LineDial+                   Graphics.UI.FLTK.LowLevel.Base.MenuBar                    Graphics.UI.FLTK.LowLevel.MenuBar+                   Graphics.UI.FLTK.LowLevel.Base.MenuButton                    Graphics.UI.FLTK.LowLevel.MenuButton+                   Graphics.UI.FLTK.LowLevel.Base.MenuItem                    Graphics.UI.FLTK.LowLevel.MenuItem+                   Graphics.UI.FLTK.LowLevel.Base.MenuPrim                    Graphics.UI.FLTK.LowLevel.MenuPrim                    Graphics.UI.FLTK.LowLevel.MultiLabel                    Graphics.UI.FLTK.LowLevel.NativeFileChooser+                   Graphics.UI.FLTK.LowLevel.Base.NiceSlider                    Graphics.UI.FLTK.LowLevel.NiceSlider+                   Graphics.UI.FLTK.LowLevel.Base.Output                    Graphics.UI.FLTK.LowLevel.Output                    Graphics.UI.FLTK.LowLevel.OverlayWindow+                   Graphics.UI.FLTK.LowLevel.Base.OverlayWindow                    Graphics.UI.FLTK.LowLevel.PNGImage                    Graphics.UI.FLTK.LowLevel.PNMImage+                   Graphics.UI.FLTK.LowLevel.Base.Pack                    Graphics.UI.FLTK.LowLevel.Pack                    Graphics.UI.FLTK.LowLevel.Pixmap+                   Graphics.UI.FLTK.LowLevel.Base.Positioner                    Graphics.UI.FLTK.LowLevel.Positioner+                   Graphics.UI.FLTK.LowLevel.Base.Progress                    Graphics.UI.FLTK.LowLevel.Progress                    Graphics.UI.FLTK.LowLevel.RGBImage+                   Graphics.UI.FLTK.LowLevel.Base.RadioLightButton                    Graphics.UI.FLTK.LowLevel.RadioLightButton+                   Graphics.UI.FLTK.LowLevel.Base.RepeatButton                    Graphics.UI.FLTK.LowLevel.RepeatButton+                   Graphics.UI.FLTK.LowLevel.Base.ReturnButton                    Graphics.UI.FLTK.LowLevel.ReturnButton+                   Graphics.UI.FLTK.LowLevel.Base.Roller                    Graphics.UI.FLTK.LowLevel.Roller+                   Graphics.UI.FLTK.LowLevel.Base.RoundButton                    Graphics.UI.FLTK.LowLevel.RoundButton+                   Graphics.UI.FLTK.LowLevel.Base.Scrollbar                    Graphics.UI.FLTK.LowLevel.Scrollbar+                   Graphics.UI.FLTK.LowLevel.Base.Scrolled                    Graphics.UI.FLTK.LowLevel.Scrolled                    Graphics.UI.FLTK.LowLevel.SelectBrowser+                   Graphics.UI.FLTK.LowLevel.Base.SingleWindow                    Graphics.UI.FLTK.LowLevel.SingleWindow+                   Graphics.UI.FLTK.LowLevel.Base.Slider                    Graphics.UI.FLTK.LowLevel.Slider+                   Graphics.UI.FLTK.LowLevel.Base.Spinner                    Graphics.UI.FLTK.LowLevel.Spinner+                   Graphics.UI.FLTK.LowLevel.Base.SysMenuBar                    Graphics.UI.FLTK.LowLevel.SysMenuBar+                   Graphics.UI.FLTK.LowLevel.Base.Table                    Graphics.UI.FLTK.LowLevel.Table+                   Graphics.UI.FLTK.LowLevel.Base.TableRow                    Graphics.UI.FLTK.LowLevel.TableRow+                   Graphics.UI.FLTK.LowLevel.Base.Tabs                    Graphics.UI.FLTK.LowLevel.Tabs                    Graphics.UI.FLTK.LowLevel.TextBuffer+                   Graphics.UI.FLTK.LowLevel.Base.TextDisplay                    Graphics.UI.FLTK.LowLevel.TextDisplay+                   Graphics.UI.FLTK.LowLevel.Base.TextEditor                    Graphics.UI.FLTK.LowLevel.TextEditor                    Graphics.UI.FLTK.LowLevel.TextSelection+                   Graphics.UI.FLTK.LowLevel.Base.Tile                    Graphics.UI.FLTK.LowLevel.Tile+                   Graphics.UI.FLTK.LowLevel.Base.ToggleButton                    Graphics.UI.FLTK.LowLevel.ToggleButton+                   Graphics.UI.FLTK.LowLevel.Base.Tree                    Graphics.UI.FLTK.LowLevel.Tree                    Graphics.UI.FLTK.LowLevel.TreeItem                    Graphics.UI.FLTK.LowLevel.TreePrefs                    Graphics.UI.FLTK.LowLevel.Utils+                   Graphics.UI.FLTK.LowLevel.Base.Valuator                    Graphics.UI.FLTK.LowLevel.Valuator+                   Graphics.UI.FLTK.LowLevel.Base.ValueInput                    Graphics.UI.FLTK.LowLevel.ValueInput+                   Graphics.UI.FLTK.LowLevel.Base.ValueOutput                    Graphics.UI.FLTK.LowLevel.ValueOutput+                   Graphics.UI.FLTK.LowLevel.Base.ValueSlider                    Graphics.UI.FLTK.LowLevel.ValueSlider                    Graphics.UI.FLTK.LowLevel.Widget+                   Graphics.UI.FLTK.LowLevel.Base.Widget                    Graphics.UI.FLTK.LowLevel.Window+                   Graphics.UI.FLTK.LowLevel.Base.Window+                   Graphics.UI.FLTK.LowLevel.Base.Wizard                    Graphics.UI.FLTK.LowLevel.Wizard                    Graphics.UI.FLTK.LowLevel.X                    Graphics.UI.FLTK.LowLevel.XBMImage                    Graphics.UI.FLTK.LowLevel.XPMImage                    Graphics.UI.FLTK.LowLevel.SVGImage+                   Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal                    Graphics.UI.FLTK.LowLevel.SimpleTerminal                    Graphics.UI.FLTK.LowLevel.Tooltip
scripts/doc-parser.hs view
@@ -170,7 +170,11 @@                filter (isPrefixOf "type") .                lines              ) hierarchyContents-  let readWidgetFile w = readFile ("../src/Graphics/UI/FLTK/LowLevel/" ++ w ++ ".chs")+  let readWidgetFile w =+        readFile $+          if (isSuffixOf "Base" w)+          then "../src/Graphics/UI/FLTK/LowLevel/Base/" ++ (reverse . drop 4 . reverse $ w) ++ ".chs"+          else "../src/Graphics/UI/FLTK/LowLevel/" ++ w ++ ".chs"   let parseWidgetFile contents =         case (parse parseInstances "" contents) of           Left err        -> error (show err)@@ -198,10 +202,12 @@       let trace' = reverse $             map (\w -> "-- " ++ w) $               map (\w -> "\"" ++ w ++ "\"") $-                map (\w -> "Graphics.UI.FLTK.LowLevel." ++ w) $+                map (\w -> "Graphics.UI.FLTK.LowLevel." +++                      (if (isSuffixOf "Base" w)+                       then "Base." ++ (reverse . drop 4 . reverse $ w)+                       else w)) $                   traceHierarchy w [] hier'       putStr $ concat $ intersperse "\n--  |\n--  v\n" trace'-      putStr "\n"     (Just (Functions w)) -> do       contents <- readWidgetFile w       let (functions, inNewVersionOnly) = parseWidgetFile contents@@ -219,7 +225,7 @@                       let namesOnly = map (\(_,_,nName,_) -> nName) _fs                       in                       if (not $ all (\(_,_,_,w') -> w' == w) _fs)-                      then error (show w)+                      then error (show (w, (map (\(_,_,_,w') -> w') _fs)))                       else                         (                           filter
src/Fluid/Generate.hs view
@@ -121,7 +121,7 @@     Types.Resizable ->       (apply "groupCurrent" "" Nothing) ++       " >>= " ++-      " maybe (error \"setResizable: Could not determine containing group for " ++ name ++ "\") (\\g -> setResizable g " ++ ("((Just (safeCast " ++ name  ++ ")) :: Maybe (Ref Widget))") ++ ")"+      " maybe (error \"setResizable: Could not determine containing group for " ++ name ++ "\") (\\g -> setResizable g " ++ ("((Just (safeCast " ++ name  ++ ")) :: Maybe (Ref WidgetBase))") ++ ")"     Types.Visible ->       apply "setVisible" name Nothing     Types.Align a ->@@ -480,8 +480,7 @@  standardImports :: [String] standardImports =-  [ "import Graphics.UI.FLTK.LowLevel.FLTKHS"-  , "import qualified Graphics.UI.FLTK.LowLevel.FL as FL"+  [ "import qualified Graphics.UI.FLTK.LowLevel.FL as FL"   , "import Graphics.UI.FLTK.LowLevel.Fl_Types"   , "import Graphics.UI.FLTK.LowLevel.Fl_Enumerations"   , "import Data.Maybe"
src/Graphics/UI/FLTK/LowLevel/Adjuster.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Adjuster     (-     -- * Constructor-     adjusterNew,-     adjusterCustom,      -- * Hierarchy      --      -- $hierarchy -     -- *  Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,131 +15,53 @@ #include "Fl_Types.h" #include "Fl_AdjusterC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenAdjuster_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenAdjuster_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-adjusterCustom ::-       Rectangle                         -- ^ The bounds of this Adjuster-    -> Maybe T.Text                      -- ^ The Adjuster label-    -> Maybe (Ref Adjuster -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Adjuster)      -- ^ Optional custom widget functions-    -> IO (Ref Adjuster)-adjusterCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Adjuster_New as adjusterNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Adjuster_New_WithLabel as adjusterNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-adjusterNew :: Rectangle -> Maybe T.Text -> IO (Ref Adjuster)-adjusterNew rectangle l'=-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in do-      r <- case l' of-            Nothing -> adjusterNew' x_pos y_pos width height >>= toRef-            Just l -> copyTextToCString l >>= \l' -> adjusterNewWithLabel' x_pos y_pos width height l' >>= toRef-      setFlag r WidgetFlagCopiedLabel-      setFlag r WidgetFlagCopiedTooltip-      return r--{# fun Fl_Adjuster_Destroy as adjusterDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Adjuster orig impl where-  runOp _ _ adjuster = swapRef adjuster $ \adjusterPtr -> do-    adjusterDestroy' adjusterPtr-    return nullPtr--{# fun Fl_Adjuster_soft as soft' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (GetSoft ()) Adjuster orig impl where-  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> soft' adjusterPtr--{# fun Fl_Adjuster_set_soft as setSoft' { id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool->  IO ())) => Op (SetSoft ()) Adjuster orig impl where-  runOp _ _ adjuster soft = withRef adjuster $ \adjusterPtr -> setSoft' adjusterPtr soft+import Graphics.UI.FLTK.LowLevel.Hierarchy  {# fun Fl_Adjuster_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Adjuster orig impl where   runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> draw'' adjusterPtr-{# fun Fl_Adjuster_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Adjuster orig impl where-  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> drawSuper' adjusterPtr {#fun Fl_Adjuster_handle as adjusterHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Adjuster orig impl where   runOp _ _ adjuster event = withRef adjuster (\p -> adjusterHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Adjuster_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Adjuster orig impl where-  runOp _ _ adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Adjuster_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Adjuster orig impl where   runOp _ _ adjuster rectangle = withRef adjuster $ \adjusterPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' adjusterPtr x_pos y_pos w_pos h_pos-{# fun Fl_Adjuster_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Adjuster orig impl where-  runOp _ _ adjuster rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height {# fun Fl_Adjuster_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Adjuster orig impl where   runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> hide' adjusterPtr-{# fun Fl_Adjuster_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Adjuster orig impl where-  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr {# fun Fl_Adjuster_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Adjuster orig impl where   runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> show' adjusterPtr-{# fun Fl_Adjuster_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Adjuster orig impl where-  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Adjuster"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Adjuster" -- @ - -- $functions -- @--- destroy :: 'Ref' 'Adjuster' -> 'IO' ()--- -- draw :: 'Ref' 'Adjuster' -> 'IO' () ----- drawSuper :: 'Ref' 'Adjuster' -> 'IO' ()------ getSoft :: 'Ref' 'Adjuster' -> 'IO' ('Bool')--- -- handle :: 'Ref' 'Adjuster' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Adjuster' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Adjuster' -> 'IO' () ----- hideSuper :: 'Ref' 'Adjuster' -> 'IO' ()--- -- resize :: 'Ref' 'Adjuster' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Adjuster' -> 'Rectangle' -> 'IO' ()------ setSoft :: 'Ref' 'Adjuster' -> 'Bool'>- 'IO' ()--- -- showWidget :: 'Ref' 'Adjuster' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Adjuster' -> 'IO' () -- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Adjuster.chs view
@@ -0,0 +1,143 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Adjuster+    (+     -- * Constructor+     adjusterNew,+     adjusterCustom+   , drawAdjusterBase+   , handleAdjusterBase+   , resizeAdjusterBase+   , hideAdjusterBase+   , showWidgetAdjusterBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- *  Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_AdjusterC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenAdjuster_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenAdjuster_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+adjusterCustom ::+       Rectangle                         -- ^ The bounds of this Adjuster+    -> Maybe T.Text                      -- ^ The Adjuster label+    -> Maybe (Ref Adjuster -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Adjuster)      -- ^ Optional custom widget functions+    -> IO (Ref Adjuster)+adjusterCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Adjuster_New as adjusterNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Adjuster_New_WithLabel as adjusterNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+adjusterNew :: Rectangle -> Maybe T.Text -> IO (Ref Adjuster)+adjusterNew rectangle l'=+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in do+      r <- case l' of+            Nothing -> adjusterNew' x_pos y_pos width height >>= toRef+            Just l -> copyTextToCString l >>= \l' -> adjusterNewWithLabel' x_pos y_pos width height l' >>= toRef+      setFlag r WidgetFlagCopiedLabel+      setFlag r WidgetFlagCopiedTooltip+      return r++{# fun Fl_Adjuster_Destroy as adjusterDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) AdjusterBase orig impl where+  runOp _ _ adjuster = swapRef adjuster $ \adjusterPtr -> do+    adjusterDestroy' adjusterPtr+    return nullPtr++{# fun Fl_Adjuster_soft as soft' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (GetSoft ()) AdjusterBase orig impl where+  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> soft' adjusterPtr++{# fun Fl_Adjuster_set_soft as setSoft' { id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool->  IO ())) => Op (SetSoft ()) AdjusterBase orig impl where+  runOp _ _ adjuster soft = withRef adjuster $ \adjusterPtr -> setSoft' adjusterPtr soft++{# fun Fl_Adjuster_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawAdjusterBase ::  Ref AdjusterBase -> IO ()+drawAdjusterBase adjuster = withRef adjuster $ \adjusterPtr -> drawSuper' adjusterPtr+{# fun Fl_Adjuster_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleAdjusterBase :: Ref AdjusterBase -> Event ->  IO (Either UnknownEvent ())+handleAdjusterBase adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Adjuster_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeAdjusterBase :: Ref AdjusterBase -> Rectangle -> IO ()+resizeAdjusterBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Adjuster_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideAdjusterBase ::  Ref AdjusterBase -> IO ()+hideAdjusterBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Adjuster_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetAdjusterBase ::  Ref AdjusterBase -> IO ()+showWidgetAdjusterBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr++{# fun Fl_Adjuster_draw as draw' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Draw ()) AdjusterBase orig impl where+  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> draw' adjusterPtr+{# fun Fl_Adjuster_handle as handle' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (Handle ()) AdjusterBase orig impl where+  runOp _ _ adjuster event = withRef adjuster $ \adjusterPtr -> handle' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Adjuster_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) AdjusterBase orig impl where+  runOp _ _ adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Adjuster_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) AdjusterBase orig impl where+  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> hide' adjusterPtr+{# fun Fl_Adjuster_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ShowWidget ()) AdjusterBase orig impl where+  runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> show' adjusterPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Adjuster"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'AdjusterBase' -> 'IO' ()+--+-- draw :: 'Ref' 'AdjusterBase' -> 'IO' ()+--+-- getSoft :: 'Ref' 'AdjusterBase' -> 'IO' ('Bool')+--+-- handle :: 'Ref' 'AdjusterBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'AdjusterBase' -> 'IO' ()+--+-- resize :: 'Ref' 'AdjusterBase' -> 'Rectangle' -> 'IO' ()+--+-- setSoft :: 'Ref' 'AdjusterBase' -> 'Bool'>- 'IO' ()+--+-- showWidget :: 'Ref' 'AdjusterBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Browser.chs view
@@ -0,0 +1,430 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Browser+    (+     -- * Constructor+     browserNew,+     browserCustom+    , handleBrowserBase+    , drawBrowserBase+    , hideBrowserBase+    , resizeBrowserBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_BrowserC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_Browser_New as browserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Browser_New_WithLabel as browserNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+{# fun Fl_OverriddenBrowser_New_WithLabel as overriddenBrowserNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenBrowser_New as overriddenBrowserNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+browserCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Browser -> IO ()) -> Maybe (CustomWidgetFuncs Browser) -> IO (Ref Browser)+browserCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenBrowserNew'+    overriddenBrowserNewWithLabel'++browserNew :: Rectangle -> Maybe T.Text -> IO (Ref Browser)+browserNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenBrowserNew'+    overriddenBrowserNewWithLabel'+++{# fun Fl_Browser_Destroy as browserDestroy' { id `Ptr ()' } -> `()' #}+instance (impl ~ (IO ())) => Op (Destroy ()) BrowserBase orig impl where+  runOp _ _ browser = swapRef browser $ \browserPtr -> do+    browserDestroy' browserPtr+    return nullPtr+{# fun Fl_Browser_remove as remove' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (Remove ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> remove' browserPtr line+{# fun Fl_Browser_add as add' { id `Ptr ()',`CString' } -> `()' #}+instance (impl ~ (T.Text ->  IO ())) => Op (Add ()) BrowserBase orig impl where+  runOp _ _ browser newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= add' browserPtr+{# fun Fl_Browser_insert as insert' { id `Ptr ()',`Int',`CString' } -> `()' #}+instance (impl ~ (LineNumber -> T.Text ->  IO ())) => Op (Insert ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= insert' browserPtr line+{# fun Fl_Browser_move as move' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (LineNumber -> LineNumber ->  IO ())) => Op (Move ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber to) (LineNumber from) = withRef browser $ \browserPtr -> move' browserPtr to from+{# fun Fl_Browser_load as load' { id `Ptr ()',`CString' } -> `Int' #}+instance (impl ~ (T.Text ->  IO (Either UnknownError ()))) => Op (Load ()) BrowserBase orig impl where+  runOp _ _ browser filename = do+    res <- withRef browser $ \browserPtr -> withText filename (\f -> load' browserPtr f)+    if (res == 0) then return (Left UnknownError) else return (Right ())+{# fun Fl_Browser_swap as swap' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (LineNumber -> LineNumber ->  IO ())) => Op (Swap ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber a) (LineNumber b) = withRef browser $ \browserPtr -> swap' browserPtr a b+{# fun Fl_Browser_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Clear ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> clear' browserPtr+{# fun Fl_Browser_size as size' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetSize ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> size' browserPtr+{# fun Fl_Browser_set_size as setSize' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (Size ->  IO ())) => Op (SetSize ()) BrowserBase orig impl where+  runOp _ _ browser (Size (Width w) (Height h)) = withRef browser $ \browserPtr -> setSize' browserPtr w h+{# fun Fl_Browser_topline as topline' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (LineNumber))) => Op (GetTopline ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> topline' browserPtr >>= return . LineNumber+{# fun Fl_Browser_lineposition as lineposition' { id `Ptr ()',`Int', cFromEnum `LinePosition' } -> `()' #}+instance (impl ~ (LineNumber -> LinePosition ->  IO ())) => Op (Lineposition ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) pos = withRef browser $ \browserPtr -> lineposition' browserPtr line pos+{# fun Fl_Browser_set_topline as setTopline' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (SetTopline ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setTopline' browserPtr line+{# fun Fl_Browser_bottomline as bottomline' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (SetBottomline ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> bottomline' browserPtr line+{# fun Fl_Browser_middleline as middleline' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (SetMiddleline ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> middleline' browserPtr line+{# fun Fl_Browser_select_with_val as select' { id `Ptr ()',`Int', cFromBool `Bool' } -> `Int' #}+instance (impl ~ (LineNumber -> Bool -> IO (Either NoChange ()))) => Op (Select ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) selectType = withRef browser $ \browserPtr -> select' browserPtr line selectType >>= return . successOrNoChange+{# fun Fl_Browser_selected as selected' { id `Ptr ()',`Int' } -> `Bool' cToBool #}+instance (impl ~ (LineNumber ->  IO (Bool))) => Op (Selected ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> selected' browserPtr line+{# fun Fl_Browser_show_with_line as showWithLine' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (ShowWidgetLine ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> showWithLine' browserPtr line+{# fun Fl_Browser_hide_with_line as hideWithLine' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (HideLine ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> hideWithLine' browserPtr line+{# fun Fl_Browser_visible as visible' { id `Ptr ()',`Int' } -> `Bool' cToBool #}+instance (impl ~ (LineNumber ->  IO (Bool))) => Op (Visible ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> visible' browserPtr line+{# fun Fl_Browser_value as value' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (LineNumber))) => Op (GetValue ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> value' browserPtr >>= return . LineNumber+{# fun Fl_Browser_set_value as setValue' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (SetValue ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setValue' browserPtr line+{# fun Fl_Browser_text as text' { id `Ptr ()',`Int' } -> `CString' #}+instance (impl ~ (LineNumber ->  IO T.Text)) => Op (GetText ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> text' browserPtr line >>= cStringToText+{# fun Fl_Browser_set_text as setText' { id `Ptr ()',`Int', `CString' } -> `()' #}+instance (impl ~ (LineNumber -> T.Text ->  IO ())) => Op (SetText ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= setText' browserPtr line+{# fun Fl_Browser_format_char as formatChar' { id `Ptr ()' } -> `CChar' id #}+instance (impl ~ ( IO (Char))) => Op (GetFormatChar ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> formatChar' browserPtr >>= return . castCCharToChar+{# fun Fl_Browser_set_format_char as setFormatChar' { id `Ptr ()', id `CChar' } -> `()' #}+instance (impl ~ (Char ->  IO ())) => Op (SetFormatChar ()) BrowserBase orig impl where+  runOp _ _ browser c = withRef browser $ \browserPtr -> setFormatChar' browserPtr (castCharToCChar c)+{# fun Fl_Browser_column_char as columnChar' { id `Ptr ()' } -> `CChar' id #}+instance (impl ~ ( IO (Char))) => Op (GetColumnChar ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> columnChar' browserPtr >>= return . castCCharToChar+{# fun Fl_Browser_set_column_char as setColumnChar' { id `Ptr ()',id `CChar' } -> `()' #}+instance (impl ~ (Char ->  IO ())) => Op (SetColumnChar ()) BrowserBase orig impl where+  runOp _ _ browser c = withRef browser $ \browserPtr -> setColumnChar' browserPtr (castCharToCChar c)+{# fun Fl_Browser_column_widths as columnWidths' { id `Ptr ()' } -> `Ptr CInt' id #}+instance (impl ~ ( IO [Int])) => Op (GetColumnWidths ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> do+    ptr <- columnWidths' browserPtr+    if (ptr == nullPtr)+      then return []+      else go ptr []+    where+      go ptr accum = do+        curr <- peek ptr+        if (curr == 0)+          then return accum+          else go (ptr `plusPtr` (sizeOf (undefined :: CInt))) (accum ++ [fromIntegral curr])++{# fun Fl_Browser_set_column_widths as setColumnWidths' { id `Ptr ()', id `Ptr CInt' } -> `()' #}+instance (impl ~ ([Int] ->  IO ())) => Op (SetColumnWidths ()) BrowserBase orig impl where+  runOp _ _ browser arr =+    withRef browser $ \browserPtr -> do+      ptr <- newArray ((map fromIntegral arr) :: [CInt])+      setColumnWidths' browserPtr (castPtr ptr)+{# fun Fl_Browser_displayed as displayed' { id `Ptr ()',`Int' } -> `Bool' cToBool #}+instance (impl ~ (LineNumber ->  IO (Bool))) => Op (Displayed ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> displayed' browserPtr line+{# fun Fl_Browser_make_visible as makeVisible' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (MakeVisible ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> makeVisible' browserPtr line+{# fun Fl_Browser_set_icon as setIcon' { id `Ptr ()',`Int',id `Ptr ()' } -> `()' #}+instance (impl ~ (LineNumber -> Ref Image ->  IO ())) => Op (SetIcon ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) icon = withRef browser $ \browserPtr -> withRef icon $ \iconPtr -> setIcon' browserPtr line iconPtr+{# fun Fl_Browser_icon as icon' { id `Ptr ()',`Int' } -> `Ptr ()' id #}+instance (impl ~ (LineNumber ->  IO (Maybe (Ref Image)))) => Op (GetIcon ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> icon' browserPtr line >>= toMaybeRef+{# fun Fl_Browser_remove_icon as removeIcon' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineNumber ->  IO ())) => Op (RemoveIcon ()) BrowserBase orig impl where+  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> removeIcon' browserPtr line+{# fun Fl_Browser_deselect as deselect' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either NoChange ()))) => Op (Deselect ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> deselect' browserPtr >>= return . successOrNoChange+{# fun Fl_Browser_deselect_with_docallbacks as deselectWithDocallbacks' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (IO (Either NoChange ()))) => Op (DeselectAndCallback ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> deselectWithDocallbacks' browserPtr 1 >>= return . successOrNoChange+{# fun Fl_Browser_position as position' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (PixelPosition))) => Op (GetPosition ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> position' browserPtr >>= return . PixelPosition+{# fun Fl_Browser_set_position as setPosition' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (PixelPosition ->  IO ())) => Op (SetPosition ()) BrowserBase orig impl where+  runOp _ _ browser (PixelPosition pos) = withRef browser $ \browserPtr -> setPosition' browserPtr pos+{# fun Fl_Browser_hposition as hposition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (PixelPosition))) => Op (GetHposition ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> hposition' browserPtr >>= return . PixelPosition+{# fun Fl_Browser_set_hposition as setHposition' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (PixelPosition ->  IO ())) => Op (SetHposition ()) BrowserBase orig impl where+  runOp _ _ browser (PixelPosition int) = withRef browser $ \browserPtr -> setHposition' browserPtr int+{# fun Fl_Browser_has_scrollbar as hasScrollbar' { id `Ptr ()' } -> `ScrollbarMode' cToEnum #}+instance (impl ~ ( IO (ScrollbarMode))) => Op (GetHasScrollbar ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> hasScrollbar' browserPtr+{# fun Fl_Browser_set_has_scrollbar as setHasScrollbar' { id `Ptr ()', cFromEnum `ScrollbarMode' } -> `()' #}+instance (impl ~ (ScrollbarMode ->  IO ())) => Op (SetHasScrollbar ()) BrowserBase orig impl where+  runOp _ _ browser mode = withRef browser $ \browserPtr -> setHasScrollbar' browserPtr mode+{# fun Fl_Browser_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> textfont' browserPtr+{# fun Fl_Browser_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) BrowserBase orig impl where+  runOp _ _ browser font = withRef browser $ \browserPtr -> setTextfont' browserPtr font+{# fun Fl_Browser_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> textsize' browserPtr >>= return . FontSize+{# fun Fl_Browser_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) BrowserBase orig impl where+  runOp _ _ browser (FontSize newsize) = withRef browser $ \browserPtr -> setTextsize' browserPtr newsize+{# fun Fl_Browser_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> textcolor' browserPtr+{# fun Fl_Browser_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) BrowserBase orig impl where+  runOp _ _ browser col = withRef browser $ \browserPtr -> setTextcolor' browserPtr col+{# fun Fl_Browser_set_scrollbar_color as setScrollbarColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetScrollbarColor ()) BrowserBase orig impl where+  runOp _ _ browser col = withRef browser $ \browserPtr -> setScrollbarColor' browserPtr col+{# fun Fl_Browser_set_scrollbar_selection_color as setScrollbarSelectionColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetScrollbarSelectionColor ()) BrowserBase orig impl where+  runOp _ _ browser col = withRef browser $ \browserPtr -> setScrollbarSelectionColor' browserPtr col+{# fun Fl_Browser_scrollbar_size as scrollbarSize' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetScrollbarSize ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> scrollbarSize' browserPtr+{# fun Fl_Browser_set_scrollbar_size as setScrollbarSize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ())) => Op (SetScrollbarSize ()) BrowserBase orig impl where+  runOp _ _ browser newsize = withRef browser $ \browserPtr -> setScrollbarSize' browserPtr newsize+{# fun Fl_Browser_scrollbar_width as scrollbarWidth' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetScrollbarWidth ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> scrollbarWidth' browserPtr+{# fun Fl_Browser_set_scrollbar_width as setScrollbarWidth' { id `Ptr ()', `Int' } -> `()' #}+instance (impl ~ (Int ->  IO ())) => Op (SetScrollbarWidth ()) BrowserBase orig impl where+  runOp _ _ browser width = withRef browser $ \browserPtr -> setScrollbarWidth' browserPtr width+{# fun Fl_Browser_sort_with_flags as sortWithFlags' {id `Ptr ()', cFromEnum `SortType'} -> `()' #}+instance (impl ~ (SortType -> IO ())) => Op (SortWithSortType ()) BrowserBase orig impl where+  runOp _ _ browser sorttype' = withRef browser $ \browserPtr -> sortWithFlags' browserPtr sorttype'+{# fun Fl_Browser_sort as sort' {id `Ptr ()'} -> `()' #}+instance (impl ~ IO ()) => Op (Sort ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> sort' browserPtr+{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (BrowserType ->  IO ())) => Op (SetType ()) BrowserBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (BrowserType)) => Op (GetType_ ()) BrowserBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger++{# fun Fl_Browser_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> draw'' browserPtr+{#fun Fl_Browser_handle as browserHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) BrowserBase orig impl where+  runOp _ _ browser event = withRef browser (\p -> browserHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Browser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) BrowserBase orig impl where+  runOp _ _ browser rectangle = withRef browser $ \browserPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' browserPtr x_pos y_pos w_pos h_pos+{# fun Fl_Browser_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> hide' browserPtr+{# fun Fl_Browser_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) BrowserBase orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> show' browserPtr++{# fun Fl_Browser_handle_super as handleSuper' { id `Ptr ()', id `CInt'} -> `Int' #}+handleBrowserBase :: Ref BrowserBase -> Event -> IO (Either UnknownEvent ())+handleBrowserBase browser event = withRef browser (\p -> handleSuper' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent+{# fun Fl_Browser_draw_super as drawSuper' { id `Ptr ()' }  -> `()' #}+drawBrowserBase :: Ref BrowserBase -> IO ()+drawBrowserBase browser = withRef browser (\p -> drawSuper' p)+{# fun Fl_Browser_hide_super as hideSuper' { id `Ptr ()' }  -> `()' #}+hideBrowserBase :: Ref BrowserBase -> IO ()+hideBrowserBase browser = withRef browser (\p -> hideSuper' p)+{# fun Fl_Browser_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeBrowserBase :: Ref BrowserBase -> Rectangle -> IO ()+resizeBrowserBase browser rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef browser $ \browserPtr -> resizeSuper' browserPtr x_pos y_pos width height+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Browser"+-- @++-- $functions+-- @+-- add :: 'Ref' 'BrowserBase' -> 'T.Text' -> 'IO' ()+--+-- clear :: 'Ref' 'BrowserBase' -> 'IO' ()+--+-- deselect :: 'Ref' 'BrowserBase' -> 'IO' ('Either' 'NoChange' ())+--+-- deselectAndCallback :: 'Ref' 'BrowserBase' -> 'IO' ('Either' 'NoChange' ())+--+-- destroy :: 'Ref' 'BrowserBase' -> 'IO' ()+--+-- displayed :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ('Bool')+--+-- draw :: 'Ref' 'BrowserBase' -> 'IO' ()+--+-- getColumnChar :: 'Ref' 'BrowserBase' -> 'IO' ('Char')+--+-- getColumnWidths :: 'Ref' 'BrowserBase' -> 'IO' ['Int']+--+-- getFormatChar :: 'Ref' 'BrowserBase' -> 'IO' ('Char')+--+-- getHasScrollbar :: 'Ref' 'BrowserBase' -> 'IO' ('ScrollbarMode')+--+-- getHposition :: 'Ref' 'BrowserBase' -> 'IO' ('PixelPosition')+--+-- getIcon :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getPosition :: 'Ref' 'BrowserBase' -> 'IO' ('PixelPosition')+--+-- getScrollbarSize :: 'Ref' 'BrowserBase' -> 'IO' ('Int')+--+-- getScrollbarWidth :: 'Ref' 'BrowserBase' -> 'IO' ('Int')+--+-- getSize :: 'Ref' 'BrowserBase' -> 'IO' ('Int')+--+-- getText :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' 'T.Text'+--+-- getTextcolor :: 'Ref' 'BrowserBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'BrowserBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'BrowserBase' -> 'IO' ('FontSize')+--+-- getTopline :: 'Ref' 'BrowserBase' -> 'IO' ('LineNumber')+--+-- getType_ :: 'Ref' 'BrowserBase' -> 'IO' ('BrowserType')+--+-- getValue :: 'Ref' 'BrowserBase' -> 'IO' ('LineNumber')+--+-- handle :: 'Ref' 'BrowserBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'BrowserBase' -> 'IO' ()+--+-- hideLine :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- insert :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'T.Text' -> 'IO' ()+--+-- lineposition :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'LinePosition' -> 'IO' ()+--+-- load :: 'Ref' 'BrowserBase' -> 'T.Text' -> 'IO' ('Either' 'UnknownError' ())+--+-- makeVisible :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- move :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'LineNumber' -> 'IO' ()+--+-- remove :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- removeIcon :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- resize :: 'Ref' 'BrowserBase' -> 'Rectangle' -> 'IO' ()+--+-- select :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'Bool' -> 'IO' ('Either' 'NoChange' ())+--+-- selected :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ('Bool')+--+-- setBottomline :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- setColumnChar :: 'Ref' 'BrowserBase' -> 'Char' -> 'IO' ()+--+-- setColumnWidths :: 'Ref' 'BrowserBase' -> ['Int'] -> 'IO' ()+--+-- setFormatChar :: 'Ref' 'BrowserBase' -> 'Char' -> 'IO' ()+--+-- setHasScrollbar :: 'Ref' 'BrowserBase' -> 'ScrollbarMode' -> 'IO' ()+--+-- setHposition :: 'Ref' 'BrowserBase' -> 'PixelPosition' -> 'IO' ()+--+-- setIcon :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'Ref' 'Image' -> 'IO' ()+--+-- setMiddleline :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- setPosition :: 'Ref' 'BrowserBase' -> 'PixelPosition' -> 'IO' ()+--+-- setScrollbarColor :: 'Ref' 'BrowserBase' -> 'Color' -> 'IO' ()+--+-- setScrollbarSelectionColor :: 'Ref' 'BrowserBase' -> 'Color' -> 'IO' ()+--+-- setScrollbarSize :: 'Ref' 'BrowserBase' -> 'Int' -> 'IO' ()+--+-- setScrollbarWidth :: 'Ref' 'BrowserBase' -> 'Int' -> 'IO' ()+--+-- setSize :: 'Ref' 'BrowserBase' -> 'Size' -> 'IO' ()+--+-- setText :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'T.Text' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'BrowserBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'BrowserBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'BrowserBase' -> 'FontSize' -> 'IO' ()+--+-- setTopline :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- setType :: 'Ref' 'BrowserBase' -> 'BrowserType' -> 'IO' ()+--+-- setValue :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- showWidget :: 'Ref' 'BrowserBase' -> 'IO' ()+--+-- showWidgetLine :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ()+--+-- sort :: 'Ref' 'BrowserBase' -> 'IO' ()+--+-- sortWithSortType :: 'Ref' 'BrowserBase' -> 'SortType' -> 'IO' ()+--+-- swap :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'LineNumber' -> 'IO' ()+--+-- visible :: 'Ref' 'BrowserBase' -> 'LineNumber' -> 'IO' ('Bool')+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Button.chs view
@@ -0,0 +1,220 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Button+    (+     buttonCustom,+     buttonNew,+     handleButtonBase,+     resizeButtonBase,+     hideButtonBase,+     showWidgetButtonBase,+     ButtonType(..),+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Fl_Button functions+     --+     -- $functions+    )+where+#include "Fl_C.h"+#include "Fl_ButtonC.h"+#include "Fl_WidgetC.h"+#include "Fl_GroupC.h"+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy++{# fun Fl_OverriddenButton_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenButton_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+buttonCustom :: Rectangle                         -- ^ The bounds of this button+             -> Maybe T.Text                      -- ^ The button label+             -> Maybe (Ref Button -> IO ())       -- ^ Optional custom drawing function+             -> Maybe (CustomWidgetFuncs Button)  -- ^ Optional custom widget functions+             -> IO (Ref Button)+buttonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++buttonNew :: Rectangle -> Maybe T.Text -> IO (Ref Button)+buttonNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (( IO ()))) => Op (Destroy ()) ButtonBase orig impl where+  runOp _ _ button = swapRef button $+                 \buttonPtr ->+                  widgetDestroy' buttonPtr >>+                  return nullPtr+{#fun Fl_Button_handle as buttonHandleSuper' { id `Ptr ()', id `CInt' } -> `Int' #}+handleButtonBase :: Ref ButtonBase -> Event -> IO (Either UnknownEvent ())+handleButtonBase button event = withRef button (\p -> buttonHandleSuper' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Button_resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeButtonBase :: Ref ButtonBase -> Rectangle -> IO ()+resizeButtonBase button rectangle = withRef button $ \buttonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resizeSuper' buttonPtr x_pos y_pos w_pos h_pos+{# fun Fl_Button_hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideButtonBase :: Ref ButtonBase ->  IO ()+hideButtonBase button = withRef button $ \buttonPtr -> hideSuper' buttonPtr+{# fun Fl_Button_show as buttonShowSuper' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+showWidgetButtonBase :: Ref ButtonBase -> IO ()+showWidgetButtonBase button = withRef button $ (\p -> buttonShowSuper' p)++{#fun Fl_DerivedButton_handle as buttonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ ((Event -> IO (Either UnknownEvent ())))) => Op (Handle ()) ButtonBase orig impl where+  runOp _ _ button event = withRef button (\p -> buttonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedButton_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((Rectangle -> IO ()))) => Op (Resize ()) ButtonBase orig impl where+  runOp _ _ button rectangle = withRef button $ \buttonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' buttonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedButton_show as buttonShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ ((IO ()))) => Op (ShowWidget ()) ButtonBase orig impl where+  runOp _ _ button = withRef button $ (\p -> buttonShow' p)+{# fun Fl_DerivedButton_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (( IO ()))) => Op (Hide ()) ButtonBase orig impl where+  runOp _ _ button = withRef button $ \buttonPtr -> hide' buttonPtr++{# fun Fl_Button_value as value' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (( IO (Bool)))) => Op (GetValue ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> value' bPtr+{# fun Fl_Button_set_value as setValue' { id `Ptr ()', fromBool `Bool' } -> `Bool' toBool #}+instance (impl ~ ((Bool ->  IO (Bool)))) => Op (SetValue ()) ButtonBase orig impl where+  runOp _ _ b v = withRef b $ \bPtr -> setValue' bPtr v+{# fun Fl_Button_set as set' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (( IO (Bool)))) => Op (Set ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> set' bPtr+{# fun Fl_Button_clear as clear' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (( IO (Bool)))) => Op (Clear ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> clear' bPtr+{# fun Fl_Button_setonly as setonly' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (( IO ()))) => Op (Setonly ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> setonly' bPtr+{# fun Fl_Button_get_shortcut as getShortcut' { id `Ptr ()' } -> `CInt' #}+instance (impl ~ (( IO (Maybe ShortcutKeySequence)))) => Op (GetShortcut ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> getShortcut' bPtr >>= return . cIntToKeySequence+{# fun Fl_Button_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((ShortcutKeySequence ->  IO ()))) => Op (SetShortcut ()) ButtonBase orig impl where+  runOp _ _ input (ShortcutKeySequence modifiers char) =+    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)+{# fun Fl_Button_down_box as downBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ (( IO (Boxtype)))) => Op (GetDownBox ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> downBox' bPtr+{# fun Fl_Button_set_down_box as setDownBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((Boxtype ->  IO ()))) => Op (SetDownBox ()) ButtonBase orig impl where+  runOp _ _ b boxtype = withRef b $ \bPtr -> setDownBox' bPtr boxtype+{# fun Fl_Button_down_color as downColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ (( IO (Color)))) => Op (GetDownColor ()) ButtonBase orig impl where+  runOp _ _ b = withRef b $ \bPtr -> downColor' bPtr+{# fun Fl_Button_set_down_color as setDownColor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((Color ->  IO ()))) => Op (SetDownColor ()) ButtonBase orig impl where+  runOp _ _ b c = withRef b $ \bPtr -> setDownColor' bPtr c+{# fun Fl_Button_draw_box as buttonDrawBox' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Button_draw_box_with_tc as buttonDrawBoxWithTC' { id `Ptr ()', cFromEnum `Boxtype', cFromColor`Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Button_draw_box_with_txywhc as buttonDrawBoxWithTXywhC' { id `Ptr ()', cFromEnum `Boxtype', `Int',`Int',`Int',`Int', cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((IO ()))) => Op (DrawBox ()) ButtonBase orig impl where+  runOp _ _ button = withRef button $ \buttonPtr -> buttonDrawBox' buttonPtr+instance (impl ~ (( Boxtype -> Color -> Maybe Rectangle -> IO ()))) => Op (DrawBoxWithBoxtype ()) ButtonBase orig impl where+  runOp _ _ button bx c Nothing =+              withRef button $ \buttonPtr -> buttonDrawBoxWithTC' buttonPtr bx c+  runOp _ _ button bx c (Just r) =+              withRef button $ \buttonPtr -> do+                let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r+                buttonDrawBoxWithTXywhC' buttonPtr bx x_pos y_pos w_pos h_pos c+{# fun Fl_Button_draw_backdrop as buttonDrawBackdrop' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (DrawBackdrop ()) ButtonBase orig impl where+  runOp _ _ button = withRef button $ \buttonPtr -> buttonDrawBackdrop' buttonPtr+{# fun Fl_Button_draw_focus as buttonDrawFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Button_draw_focus_with_txywh as buttonDrawFocusWithTXywh' { id `Ptr ()', cFromEnum `Boxtype', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Maybe (Boxtype, Rectangle) -> IO ())) => Op (DrawFocus ()) ButtonBase orig impl where+  runOp _ _ button Nothing =+                withRef button $ \ buttonPtr -> buttonDrawFocus' buttonPtr+  runOp _ _ button (Just (bx, r)) =+                withRef button $ \buttonPtr -> do+                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r+                  buttonDrawFocusWithTXywh' buttonPtr bx x_pos y_pos w_pos h_pos++{# fun Fl_Button_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ ( IO (ButtonType))) => Op (GetType_ ()) ButtonBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . cToEnum+{# fun Fl_Button_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}+instance (impl ~ (ButtonType ->  IO ())) => Op (SetType ()) ButtonBase orig impl where+   runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (cFromEnum t)++++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+-- @++-- $functions+-- @+-- clear :: 'Ref' 'ButtonBase' -> ( 'IO' ('Bool'))+--+-- destroy :: 'Ref' 'ButtonBase' -> ( 'IO' ())+--+-- drawBackdrop :: 'Ref' 'ButtonBase' -> 'IO' ()+--+-- drawBox :: 'Ref' 'ButtonBase' -> ('IO' ())+--+-- drawBoxWithBoxtype :: 'Ref' 'ButtonBase' -> ( 'Boxtype' -> 'Color' -> 'Maybe' 'Rectangle' -> 'IO' ())+--+-- drawFocus :: 'Ref' 'ButtonBase' -> 'Maybe' ('Boxtype', 'Rectangle') -> 'IO' ()+--+-- getDownBox :: 'Ref' 'ButtonBase' -> ( 'IO' ('Boxtype'))+--+-- getDownColor :: 'Ref' 'ButtonBase' -> ( 'IO' ('Color'))+--+-- getShortcut :: 'Ref' 'ButtonBase' -> ( 'IO' ('Maybe' 'ShortcutKeySequence'))+--+-- getType_ :: 'Ref' 'ButtonBase' -> 'IO' ('ButtonType')+--+-- getValue :: 'Ref' 'ButtonBase' -> ( 'IO' ('Bool'))+--+-- handle :: 'Ref' 'ButtonBase' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+--+-- hide :: 'Ref' 'ButtonBase' -> ( 'IO' ())+--+-- resize :: 'Ref' 'ButtonBase' -> ('Rectangle' -> 'IO' ())+--+-- set :: 'Ref' 'ButtonBase' -> ( 'IO' ('Bool'))+--+-- setDownBox :: 'Ref' 'ButtonBase' -> ('Boxtype' -> 'IO' ())+--+-- setDownColor :: 'Ref' 'ButtonBase' -> ('Color' -> 'IO' ())+--+-- setShortcut :: 'Ref' 'ButtonBase' -> ('ShortcutKeySequence' -> 'IO' ())+--+-- setType :: 'Ref' 'ButtonBase' -> 'ButtonType' -> 'IO' ()+--+-- setValue :: 'Ref' 'ButtonBase' -> ('Bool' -> 'IO' ('Bool'))+--+-- setonly :: 'Ref' 'ButtonBase' -> ( 'IO' ())+--+-- showWidget :: 'Ref' 'ButtonBase' -> ('IO' ())+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/CheckButton.chs view
@@ -0,0 +1,135 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.CheckButton+    (+     checkButtonNew,+     checkButtonCustom+   , drawCheckButtonBase+   , handleCheckButtonBase+   , resizeCheckButtonBase+   , hideCheckButtonBase+   , showWidgetCheckButtonBase+     -- * Hierarchy+     --+     -- $hierarchy+     -- * CheckButton+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Check_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenCheck_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenCheck_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+checkButtonCustom ::+       Rectangle                         -- ^ The bounds of this CheckButton+    -> Maybe T.Text                      -- ^ The CheckButton label+    -> Maybe (Ref CheckButton -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs CheckButton)      -- ^ Optional custom widget functions+    -> IO (Ref CheckButton)+checkButtonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Check_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Check_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+checkButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref CheckButton)+checkButtonNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Check_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) CheckButtonBase orig impl where+  runOp _ _ button = swapRef button $+                    \buttonPtr ->+                     widgetDestroy' buttonPtr >>+                     return nullPtr+{# fun Fl_Check_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) CheckButtonBase orig impl where+  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> draw'' checkButtonPtr++{#fun Fl_DerivedCheck_Button_handle as checkButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) CheckButtonBase orig impl where+  runOp _ _ checkButton event = withRef checkButton (\p -> checkButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedCheck_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) CheckButtonBase orig impl where+  runOp _ _ checkButton rectangle = withRef checkButton $ \checkButtonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' checkButtonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedCheck_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) CheckButtonBase orig impl where+  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> hide' checkButtonPtr+{# fun Fl_DerivedCheck_Button_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) CheckButtonBase orig impl where+  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> show' checkButtonPtr+++{# fun Fl_Check_Button_draw as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawCheckButtonBase ::  Ref CheckButtonBase -> IO ()+drawCheckButtonBase adjuster = withRef adjuster $ \adjusterPtr -> drawSuper' adjusterPtr+{# fun Fl_Check_Button_handle as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleCheckButtonBase :: Ref CheckButtonBase -> Event ->  IO (Either UnknownEvent ())+handleCheckButtonBase adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Check_Button_resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeCheckButtonBase :: Ref CheckButtonBase -> Rectangle -> IO ()+resizeCheckButtonBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Check_Button_hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideCheckButtonBase ::  Ref CheckButtonBase -> IO ()+hideCheckButtonBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Check_Button_show as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetCheckButtonBase ::  Ref CheckButtonBase -> IO ()+showWidgetCheckButtonBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.LightButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.CheckButton"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'CheckButtonBase' -> 'IO' ()+--+-- draw :: 'Ref' 'CheckButtonBase' -> 'IO' ()+--+-- handle :: 'Ref' 'CheckButtonBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'CheckButtonBase' -> 'IO' ()+--+-- resize :: 'Ref' 'CheckButtonBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'CheckButtonBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Choice.chs view
@@ -0,0 +1,151 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables  #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Choice+    (+     -- * Constructor+     choiceNew,+     choiceCustom+   , drawChoiceBase+   , handleChoiceBase+   , resizeChoiceBase+   , hideChoiceBase+   , showWidgetChoiceBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Choice+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_ChoiceC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.MenuItem+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenChoice_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenChoice_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+choiceCustom ::+       Rectangle                         -- ^ The bounds of this Choice+    -> Maybe T.Text                      -- ^ The Choice label+    -> Maybe (Ref Choice -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Choice)      -- ^ Optional custom widget functions+    -> IO (Ref Choice)+choiceCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Choice_New as choiceNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Choice_New_WithLabel as choiceNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+choiceNew :: Rectangle -> Maybe T.Text -> IO (Ref Choice)+choiceNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+{# fun Fl_Choice_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) ChoiceBase orig impl where+  runOp _ _ menu_ = swapRef menu_ $+                          \menu_Ptr ->+                             widgetDestroy' menu_Ptr >>+                             return nullPtr+{# fun Fl_Choice_value as value' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (AtIndex))) => Op (GetValue ()) ChoiceBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> value' menu_Ptr >>= return . AtIndex+{# fun Fl_Choice_set_value_with_item as valueWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+{# fun Fl_Choice_set_value_with_index as valueWithIndex' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (MenuItemReference -> IO (Either NoChange ()))) => Op (SetValue ()) ChoiceBase orig impl where+  runOp _ _ menu_ menu_item_reference =+    withRef menu_ $ \menu_Ptr ->+        case menu_item_reference of+          (MenuItemByIndex (AtIndex index')) -> valueWithIndex' menu_Ptr index' >>= return . successOrNoChange+          (MenuItemByPointer (MenuItemPointer menu_item)) ->+              withRef menu_item $ \menu_itemPtr ->+                  valueWithItem' menu_Ptr menu_itemPtr >>= return . successOrNoChange++{# fun Fl_Choice_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawChoiceBase ::  Ref ChoiceBase -> IO ()+drawChoiceBase choice = withRef choice $ \choicePtr -> drawSuper' choicePtr+{# fun Fl_Choice_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleChoiceBase :: Ref ChoiceBase -> Event ->  IO (Either UnknownEvent ())+handleChoiceBase choice event = withRef choice $ \choicePtr -> handleSuper' choicePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Choice_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeChoiceBase :: Ref ChoiceBase -> Rectangle -> IO ()+resizeChoiceBase choice rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef choice $ \choicePtr -> resizeSuper' choicePtr x_pos y_pos width height+{# fun Fl_Choice_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideChoiceBase ::  Ref ChoiceBase -> IO ()+hideChoiceBase choice = withRef choice $ \choicePtr -> hideSuper' choicePtr+{# fun Fl_Choice_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetChoiceBase ::  Ref ChoiceBase -> IO ()+showWidgetChoiceBase choice = withRef choice $ \choicePtr -> showSuper' choicePtr+++{#fun Fl_Choice_handle as choiceHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ChoiceBase orig impl where+  runOp _ _ choice event = withRef choice (\p -> choiceHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Choice_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ChoiceBase orig impl where+  runOp _ _ choice = withRef choice $ \choicePtr -> draw'' choicePtr+{# fun Fl_Choice_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ChoiceBase orig impl where+  runOp _ _ choice rectangle = withRef choice $ \choicePtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' choicePtr x_pos y_pos w_pos h_pos+{# fun Fl_Choice_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ChoiceBase orig impl where+  runOp _ _ choice = withRef choice $ \choicePtr -> hide' choicePtr+{# fun Fl_Choice_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ChoiceBase orig impl where+  runOp _ _ choice = withRef choice $ \choicePtr -> show' choicePtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Choice"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ChoiceBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ChoiceBase' -> 'IO' ()+--+-- getValue :: 'Ref' 'ChoiceBase' -> 'IO' ('AtIndex')+--+-- handle :: 'Ref' 'ChoiceBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ChoiceBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ChoiceBase' -> 'Rectangle' -> 'IO' ()+--+-- setValue :: 'Ref' 'ChoiceBase' -> 'MenuItemReference' -> 'IO' ('Either' 'NoChange' ())+--+-- showWidget :: 'Ref' 'ChoiceBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Clock.chs view
@@ -0,0 +1,207 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Clock+  (+    ClockType(..),+    clockNew,+    clockNewWithType,+    clockCustom,+    Hour(..),+    Minute(..),+    Second(..),+    ClockByTime (..),+    ClockSinceEpoch(..),+    ClockSetTimeType(..)+  , drawClockBase+  , handleClockBase+  , resizeClockBase+  , hideClockBase+  , showWidgetClockBase+    -- * Hierarchy+    --+    -- $hierarchy++    -- * Clock+    --+    -- $functions+  )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_ClockC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Data.Char+import Graphics.UI.FLTK.LowLevel.Base.Widget++#c+enum ClockType {+  SquareClock = FL_SQUARE_CLOCK,+  RoundClock = FL_ROUND_CLOCK,+  AnalogClock = FL_ANALOG_CLOCK,+  DigitalClock = FL_DIGITAL_CLOCK+};+#endc+{# enum ClockType {} deriving (Show) #}+newtype Hour = Hour Int deriving Show+newtype Minute = Minute Int deriving Show+newtype Second = Second Int deriving Show+data ClockByTime = ClockByTime Hour Minute Second deriving Show+data ClockSinceEpoch = ClockSinceEpoch Second deriving Show+data ClockSetTimeType = ClockSetByTime ClockByTime | ClockSetSinceEpoch ClockSinceEpoch deriving Show++{# fun Fl_OverriddenClock_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenClock_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+clockCustom ::+       Rectangle                         -- ^ The bounds of this Clock+    -> Maybe T.Text                      -- ^ The Clock label+    -> Maybe (Ref Clock -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Clock)      -- ^ Optional custom widget functions+    -> IO (Ref Clock)+clockCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Clock_New as clockNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Clock_New_WithLabel as clockNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+{# fun Fl_Clock_New_WithClockType as clockNewWithClockType' { id `CUChar', `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+clockNew :: Rectangle -> Maybe T.Text -> IO (Ref Clock)+clockNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++clockNewWithType :: ClockType -> Rectangle -> T.Text -> IO (Ref Clock)+clockNewWithType clocktype' rectangle' label' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle'+    in do+    ref <- copyTextToCString label' >>= \l' -> clockNewWithClockType' (castCharToCUChar . chr . fromEnum $ clocktype') x_pos y_pos width height l'  >>= toRef+    setFlag ref WidgetFlagCopiedLabel+    setFlag ref WidgetFlagCopiedTooltip+    return ref++{# fun Fl_Clock_set_value_with_hms as setValueWithhms' {id `Ptr ()', `Int', `Int', `Int'} -> `()' #}+{# fun Fl_Clock_set_value as setValue' {id `Ptr ()', id `CULong'} -> `()' #}++instance (impl ~ ( ClockSetTimeType -> IO ())) => Op (SetValue ()) ClockBase orig impl where+  runOp _ _ clock' clockvalue = withRef clock' $ \clockPtr ->+    case clockvalue of+     ClockSetByTime (ClockByTime (Hour h)(Minute m) (Second s)) -> setValueWithhms' clockPtr h m s+     ClockSetSinceEpoch (ClockSinceEpoch (Second s)) -> setValue' clockPtr (fromIntegral s)++{# fun Fl_Clock_value as getValue' {id `Ptr ()'} -> `CULong' id #}+instance (impl ~ (IO ClockSinceEpoch)) => Op (GetValueSinceEpoch ()) ClockBase orig impl where+  runOp _ _ clock' = withRef clock' $ \clockPtr ->+    getValue' clockPtr >>= return . ClockSinceEpoch . Second . fromIntegral++{# fun Fl_Clock_hour   as clockHour'   {id `Ptr ()'} -> `Int'  #}+{# fun Fl_Clock_minute as clockMinute' {id `Ptr ()'} -> `Int'  #}+{# fun Fl_Clock_second as clockSecond' {id `Ptr ()'} -> `Int'  #}+instance (impl ~ (IO ClockByTime)) => Op (GetValue ()) ClockBase orig impl where+  runOp _ _ clock' = withRef clock' $ \clockPtr -> do+    hour' <- clockHour' clockPtr+    minute' <- clockMinute' clockPtr+    second' <- clockSecond' clockPtr+    return $ ClockByTime (Hour hour') (Minute minute') (Second second')++{# fun Fl_Clock_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}+instance (impl ~ (ClockType ->  IO ())) => Op (SetType ()) ClockBase orig impl where+  runOp _ _ clock type'' = withRef clock $ \clockPtr -> setType' clockPtr (fromIntegral (fromEnum type''))++{# fun Fl_Clock_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ ( IO (ClockType))) => Op (GetType_ ()) ClockBase orig impl where+   runOp _ _ clock = withRef clock $ \clockPtr -> type' clockPtr >>= return . toEnum . fromIntegral+++{# fun Fl_Clock_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawClockBase ::  Ref ClockBase -> IO ()+drawClockBase clock = withRef clock $ \clockPtr -> drawSuper' clockPtr+{# fun Fl_Clock_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleClockBase :: Ref ClockBase -> Event ->  IO (Either UnknownEvent ())+handleClockBase clock event = withRef clock $ \clockPtr -> handleSuper' clockPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Clock_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeClockBase :: Ref ClockBase -> Rectangle -> IO ()+resizeClockBase clock rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef clock $ \clockPtr -> resizeSuper' clockPtr x_pos y_pos width height+{# fun Fl_Clock_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideClockBase ::  Ref ClockBase -> IO ()+hideClockBase clock = withRef clock $ \clockPtr -> hideSuper' clockPtr+{# fun Fl_Clock_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetClockBase ::  Ref ClockBase -> IO ()+showWidgetClockBase clock = withRef clock $ \clockPtr -> showSuper' clockPtr++{#fun Fl_Clock_get_shadow as getShadow' {id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO Bool)) => Op (GetShadow ()) ClockBase orig impl where+  runOp _ _ clock = withRef clock $ \clockPtr -> getShadow' clockPtr+{#fun Fl_Clock_set_shadow as setShadow' {id `Ptr ()', cFromBool `Bool'} -> `()'#}+instance (impl ~ (Bool -> IO ())) => Op (SetShadow ()) ClockBase orig impl where+  runOp _ _ clock shadow = withRef clock $ \clockPtr -> setShadow' clockPtr shadow++{# fun Fl_Clock_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ClockBase orig impl where+  runOp _ _ clock = withRef clock $ \clockPtr -> draw'' clockPtr+{#fun Fl_Clock_handle as clockHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ClockBase orig impl where+  runOp _ _ clock event = withRef clock (\p -> clockHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Clock_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ClockBase orig impl where+  runOp _ _ clock = withRef clock $ \clockPtr -> show' clockPtr+{# fun Fl_Clock_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ClockBase orig impl where+  runOp _ _ clock = withRef clock $ \clockPtr -> hide' clockPtr+{# fun Fl_Clock_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ClockBase orig impl where+  runOp _ _ clock rectangle = withRef clock $ \clockPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' clockPtr x_pos y_pos w_pos h_pos+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Clock"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'ClockBase' -> 'IO' ()+--+-- getShadow :: 'Ref' 'ClockBase' -> 'IO' 'Bool'+--+-- getType_ :: 'Ref' 'ClockBase' -> 'IO' ('ClockType')+--+-- getValue :: 'Ref' 'ClockBase' -> 'IO' 'ClockByTime'+--+-- getValueSinceEpoch :: 'Ref' 'ClockBase' -> 'IO' 'ClockSinceEpoch'+--+-- handle :: 'Ref' 'ClockBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ClockBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ClockBase' -> 'Rectangle' -> 'IO' ()+--+-- setShadow :: 'Ref' 'ClockBase' -> 'Bool' -> 'IO' ()+--+-- setType :: 'Ref' 'ClockBase' -> 'ClockType' -> 'IO' ()+--+-- setValue :: 'Ref' 'ClockBase' -> 'ClockSetTimeType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ClockBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/ColorChooser.chs view
@@ -0,0 +1,461 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.ColorChooser+    (+     -- * Constructor+     colorChooserNew,+     colorChooserCustom,+     rgb2Hsv,+     hsv2Rgb,+     flcColorChooser,+     CustomColorChooserFuncs(..)+    , getModeColorChooserBase+    , setModeColorChooserBase+    , getHueColorChooserBase+    , getSaturationColorChooserBase+    , getValueColorChooserBase+    , getRColorChooserBase+    , getGColorChooserBase+    , getBColorChooserBase+    , setHsvColorChooserBase+    , setRgbColorChooserBase+    , drawColorChooserBase+    , handleColorChooserBase+    , resizeColorChooserBase+    , hideColorChooserBase+    , showWidgetColorChooserBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- *  Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Color_ChooserC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Data.List+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Control.Applicative++data CustomColorChooserFuncs a =+  CustomColorChooserFuncs+  {+    getModeCustom :: Ref a -> IO ColorChooserMode+  , setModeCustom :: Ref a -> ColorChooserMode -> IO ()+  , hueCustom :: Ref a -> IO Between0And6+  , saturationCustom :: Ref a -> IO Between0And1+  , valueCustom :: Ref a -> IO Between0And1+  , rCustom :: Ref a -> IO Between0And1+  , gCustom :: Ref a -> IO Between0And1+  , bCustom :: Ref a -> IO Between0And1+  , hsvCustom :: Ref a -> (Between0And6,Between0And1,Between0And1) -> IO Int+  , rgbCustom :: Ref a -> (Between0And1,Between0And1,Between0And1) -> IO Int+  }++toGetBetween0And6Prim :: (Ref a -> IO Between0And6) -> IO (FunPtr GetDoublePrim)+toGetBetween0And6Prim f =+  mkGetDouble (\ptr -> do+                  pp <- wrapNonNull ptr "Null pointer: toGetBetween0And6Prim"+                  (Between0And6 res) <- f (castTo (wrapInRef pp))+                  return (realToFrac res))++toGetBetween0And1Prim :: (Ref a -> IO Between0And1) -> IO (FunPtr GetDoublePrim)+toGetBetween0And1Prim f =+  mkGetDouble (\ptr -> do+                  pp <- wrapNonNull ptr "Null pointer: toGetBetween0And1Prim"+                  (Between0And1 res) <- f (castTo (wrapInRef pp))+                  return (realToFrac res))++toGetModePrim :: (Ref a -> IO ColorChooserMode) -> IO (FunPtr GetIntPrim)+toGetModePrim f =+  mkGetInt (\ptr -> do+               pp <- wrapNonNull ptr "Null pointer: toGetModePrim"+               mode <- f (castTo (wrapInRef pp))+               return (fromIntegral (fromEnum mode)))++toSetModePrim :: (Ref a -> ColorChooserMode -> IO ()) -> IO (FunPtr SetIntPrim)+toSetModePrim f =+  mkSetInt (\ptr m -> do+               pp <- wrapNonNull ptr "Null pointer: toSetModePrim"+               f (castTo (wrapInRef pp)) (cToEnum (fromIntegral m)))++toHsvPrim :: (Ref a -> (Between0And6,Between0And1,Between0And1) -> IO Int)-> IO (FunPtr ColorSetPrim)+toHsvPrim f =+  mkColorSetPrim (\ptr (CDouble h) (CDouble s) (CDouble v) -> do+                     pp <- wrapNonNull ptr "Null pointer: toHsvPrim"+                     ret <- f (castTo (wrapInRef pp)) (Between0And6 h,Between0And1 s,Between0And1 v)+                     return (fromIntegral ret))++toRgbPrim :: (Ref a -> (Between0And1,Between0And1,Between0And1) -> IO Int) -> IO (FunPtr ColorSetPrim)+toRgbPrim f =+  mkColorSetPrim (\ptr (CDouble r) (CDouble g) (CDouble b) -> do+                     pp <- wrapNonNull ptr "Null pointer: toRgbPrim"+                     ret <- f (castTo (wrapInRef pp)) (Between0And1 r,Between0And1 g,Between0And1 b)+                     return (fromIntegral ret))++fillCustomColorChooserFunctionStruct :: forall a. (Parent a ColorChooserBase) => CustomColorChooserFuncs a -> IO (Ptr ())+fillCustomColorChooserFunctionStruct funcs = do+  structPtr <- mallocBytes {#sizeof fl_Color_Chooser_Virtual_Funcs #}+  toGetModePrim (getModeCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->get_mode #} structPtr+  toSetModePrim (setModeCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->set_mode #} structPtr+  toGetBetween0And6Prim (hueCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->hue #} structPtr+  toGetBetween0And1Prim (saturationCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->saturation #} structPtr+  toGetBetween0And1Prim (valueCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->value #} structPtr+  toGetBetween0And1Prim (rCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->r #} structPtr+  toGetBetween0And1Prim (gCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->g #} structPtr+  toGetBetween0And1Prim (bCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->b #} structPtr+  toHsvPrim (hsvCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->hsv #} structPtr+  toRgbPrim (rgbCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->rgb #} structPtr+  return structPtr++{# fun Fl_OverriddenColor_Chooser_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()', id `Ptr ()' } -> `Ptr ()' id #}+{# fun Fl_OverriddenColor_Chooser_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()', id `Ptr ()' } -> `Ptr ()' id #}+colorChooserCustom ::+       Rectangle                         -- ^ The bounds of this ColorChooser+    -> Maybe T.Text                      -- ^ The ColorChooser label+    -> Maybe (Ref ColorChooser -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomColorChooserFuncs ColorChooser)+    -> Maybe (CustomWidgetFuncs ColorChooser)      -- ^ Optional custom widget functions+    -> IO (Ref ColorChooser)+colorChooserCustom rectangle l' draw' colorChooserFuncs' funcs' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in do+    widgetFuncsPtr <- customWidgetFunctionStruct draw' (maybe defaultCustomWidgetFuncs id funcs')+    colorChooserFuncsPtr <- maybe (return nullPtr) fillCustomColorChooserFunctionStruct colorChooserFuncs'+    colorChooser <-+      maybe+        (overriddenWidgetNew' x_pos y_pos width height (castPtr widgetFuncsPtr) (castPtr colorChooserFuncsPtr))+        (\l -> copyTextToCString l >>= \l' -> overriddenWidgetNewWithLabel' x_pos y_pos width height l' (castPtr widgetFuncsPtr) (castPtr colorChooserFuncsPtr))+        l'+    ref <- toRef colorChooser+    setFlag ref WidgetFlagCopiedLabel+    setFlag ref WidgetFlagCopiedTooltip+    return ref++{# fun Fl_Color_Chooser_New as colorchooserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Color_Chooser_New_WithLabel as colorchooserNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+colorChooserNew :: Rectangle -> Maybe T.Text -> IO (Ref ColorChooser)+colorChooserNew rectangle l'=+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> colorchooserNew' x_pos y_pos width height >>= toRef+        Just l -> do+          l' <- copyTextToCString l+          ref <- colorchooserNewWithLabel' x_pos y_pos width height l' >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref++{# fun Fl_Color_Chooser_hsv2rgb as hsv2rgb' {`Double',`Double',`Double', id `Ptr CDouble', id `Ptr CDouble',id `Ptr CDouble' } -> `()' #}+hsv2Rgb :: (Between0And6, Between0And1, Between0And1) ->  IO (Maybe (Between0And1, Between0And1, Between0And1))+hsv2Rgb (Between0And6 h'', Between0And1 s'', Between0And1 v'') =+  alloca $ \rPtr ->+  alloca $ \gPtr ->+  alloca $ \bPtr -> do+    hsv2rgb' h'' s'' v'' rPtr gPtr bPtr+    r'' <- peek rPtr+    g'' <- peek gPtr+    b'' <- peek bPtr+    return (Just (Between0And1 (realToFrac r''),Between0And1 (realToFrac g''),Between0And1 (realToFrac b'')))++{# fun Fl_Color_Chooser_rgb2hsv as rgb2hsv' {`Double',`Double',`Double', id `Ptr CDouble', id `Ptr CDouble',id `Ptr CDouble' } -> `()' #}+rgb2Hsv :: (Between0And1, Between0And1, Between0And1) ->  IO (Maybe (Between0And6, Between0And1, Between0And1))+rgb2Hsv (Between0And1 h'', Between0And1 s'', Between0And1 v'') =+  alloca $ \hPtr ->+  alloca $ \sPtr ->+  alloca $ \vPtr -> do+    rgb2hsv' h'' s'' v'' hPtr sPtr vPtr+    let (nullPtrs, nonNullPtrs) = partition ((==) nullPtr) [hPtr, sPtr, vPtr]+    if (not (null nullPtrs))+     then mapM_ free nonNullPtrs >> return Nothing+     else do+       h''' <- peek hPtr+       s''' <- peek sPtr+       v''' <- peek vPtr+       return (Just (Between0And6 (realToFrac h'''),Between0And1 (realToFrac s'''),Between0And1 (realToFrac v''')))++{# fun flc_color_chooser_with_m as flc_color_chooser_with_m' {`CString' , id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', `Int' } -> `Int' #}+{# fun flc_color_chooser_with_uchar_m as flc_color_chooser_with_uchar_m' {`CString' , id `Ptr CUChar', id `Ptr CUChar', id `Ptr CUChar', `Int' } -> `Int' #}+flcColorChooser :: T.Text ->+                   ColorChooserRGB ->+                   Maybe ColorChooserMode ->+                   IO (Maybe ColorChooserRGB)+flcColorChooser name (Decimals (Between0And1 r'', Between0And1 g'', Between0And1 b'')) mode =+  alloca $ \r''Ptr ->+  alloca $ \g''Ptr ->+  alloca $ \b''Ptr -> do+    poke r''Ptr $ realToFrac r''+    poke g''Ptr $ realToFrac g''+    poke b''Ptr $ realToFrac b''+    ret <- copyTextToCString name >>= \n' -> flc_color_chooser_with_m' n' r''Ptr g''Ptr b''Ptr (maybe (-1) fromEnum mode)+    if (ret == 0)+     then return Nothing+     else do+      newR <- peek r''Ptr+      newG <- peek g''Ptr+      newB <- peek b''Ptr+      return (Just (Decimals+                     (Between0And1 (realToFrac newR),+                      Between0And1 (realToFrac newG),+                      Between0And1 (realToFrac newB))))+flcColorChooser name (Words (r,g,b)) mode =+  alloca $ \r''Ptr ->+  alloca $ \g''Ptr ->+  alloca $ \b''Ptr -> do+    poke r''Ptr (fromIntegral r)+    poke g''Ptr (fromIntegral g)+    poke b''Ptr (fromIntegral b)+    ret <- copyTextToCString name >>= \n' -> flc_color_chooser_with_uchar_m' n' r''Ptr g''Ptr b''Ptr (maybe (-1) fromEnum mode)+    if (ret == 0)+     then return Nothing+     else do+      newR <- peek r''Ptr+      newG <- peek g''Ptr+      newB <- peek b''Ptr+      return (Just (Words ((fromIntegral newR), (fromIntegral newG), (fromIntegral newB))))++{# fun Fl_Color_Chooser_mode_super as modeSuper' { id `Ptr ()' } -> `Int' #}+getModeColorChooserBase :: Ref ColorChooserBase ->  IO (ColorChooserMode)+getModeColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> modeSuper' color_chooserPtr >>= return . toEnum++{# fun Fl_Color_Chooser_set_mode_super as setModeSuper' { id `Ptr ()',`Int' } -> `()' #}+setModeColorChooserBase :: Ref ColorChooserBase -> ColorChooserMode ->  IO ()+setModeColorChooserBase color_chooser mode = withRef color_chooser $ \color_chooserPtr -> setModeSuper' color_chooserPtr (fromEnum mode)++{# fun Fl_Color_Chooser_hue_super as hueSuper' { id `Ptr ()' } -> `Double' #}+getHueColorChooserBase :: Ref ColorChooserBase ->  IO (Either OutOfRange Between0And6)+getHueColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    h'' <- hueSuper' color_chooserPtr+    if ((h'' < 0.0) || (h'' >= 6.0))+     then return (Left OutOfRange)+     else return (Right (Between0And6 h''))+{# fun Fl_Color_Chooser_saturation_super as saturationSuper' { id `Ptr ()' } -> `Double' #}+getSaturationColorChooserBase :: Ref ColorChooserBase ->  IO (Either OutOfRange Between0And1)+getSaturationColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    s'' <- saturationSuper' color_chooserPtr+    if ((s'' < 0.0) || (s'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 s''))++{# fun Fl_Color_Chooser_value_super as valueSuper' { id `Ptr ()' } -> `Double' #}+getValueColorChooserBase :: Ref ColorChooserBase ->  IO (Either OutOfRange Between0And1)+getValueColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    v'' <- valueSuper' color_chooserPtr+    if ((v'' < 0.0) || (v'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 v''))++{# fun Fl_Color_Chooser_r_super as rSuper' { id `Ptr ()' } -> `Double' #}+getRColorChooserBase :: Ref ColorChooserBase ->  IO (Either OutOfRange Between0And1)+getRColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    r'' <- rSuper' color_chooserPtr+    if ((r'' < 0.0) || (r'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 r''))++{# fun Fl_Color_Chooser_g_super as gSuper' { id `Ptr ()' } -> `Double' #}+getGColorChooserBase :: Ref ColorChooserBase ->  IO (Either OutOfRange Between0And1)+getGColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    g'' <- gSuper' color_chooserPtr+    if ((g'' < 0.0) || (g'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 g''))++{# fun Fl_Color_Chooser_b_super as bSuper' { id `Ptr ()' } -> `Double' #}+getBColorChooserBase :: Ref ColorChooserBase ->  IO (Either OutOfRange Between0And1)+getBColorChooserBase color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    b'' <- bSuper' color_chooserPtr+    if ((b'' < 0.0) || (b'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 b''))++{# fun Fl_Color_Chooser_hsv_super as hsvSuper' { id `Ptr ()',`Double', `Double', `Double'} -> `Int' #}+setHsvColorChooserBase :: Ref ColorChooserBase -> (Between0And6, Between0And1, Between0And1) -> IO (Either NoChange ())+setHsvColorChooserBase color_chooser (Between0And6 h'', Between0And1 s'', Between0And1 v'') =+    withRef color_chooser $ \color_chooserPtr -> do+      ret <- hsvSuper' color_chooserPtr h'' s'' v''+      if (ret == 0) then return (Left NoChange) else return (Right ())++{# fun Fl_Color_Chooser_rgb_super as rgbSuper' { id `Ptr ()',`Double', `Double', `Double'} -> `Int' #}+setRgbColorChooserBase :: Ref ColorChooserBase -> (Between0And1, Between0And1, Between0And1) ->  IO (Either NoChange ())+setRgbColorChooserBase color_chooser (Between0And1 r'', Between0And1 g'', Between0And1 b'') =+    withRef color_chooser $ \color_chooserPtr -> do+      ret <- rgbSuper' color_chooserPtr r'' g'' b''+      if (ret == 0) then return (Left NoChange) else return (Right ())++{# fun Fl_Color_Chooser_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawColorChooserBase ::  Ref ColorChooserBase -> IO ()+drawColorChooserBase colorChoooser = withRef colorChoooser $ \colorChoooserPtr -> drawSuper' colorChoooserPtr+{# fun Fl_Color_Chooser_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleColorChooserBase :: Ref ColorChooserBase -> Event ->  IO (Either UnknownEvent ())+handleColorChooserBase colorChoooser event = withRef colorChoooser $ \colorChoooserPtr -> handleSuper' colorChoooserPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Color_Chooser_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeColorChooserBase :: Ref ColorChooserBase -> Rectangle -> IO ()+resizeColorChooserBase colorChoooser rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef colorChoooser $ \colorChoooserPtr -> resizeSuper' colorChoooserPtr x_pos y_pos width height+{# fun Fl_Color_Chooser_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideColorChooserBase ::  Ref ColorChooserBase -> IO ()+hideColorChooserBase colorChoooser = withRef colorChoooser $ \colorChoooserPtr -> hideSuper' colorChoooserPtr+{# fun Fl_Color_Chooser_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetColorChooserBase ::  Ref ColorChooserBase -> IO ()+showWidgetColorChooserBase colorChoooser = withRef colorChoooser $ \colorChoooserPtr -> showSuper' colorChoooserPtr++{# fun Fl_Color_Chooser_mode as mode' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (ColorChooserMode))) => Op (GetMode ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> mode' color_chooserPtr >>= return . toEnum+{# fun Fl_Color_Chooser_set_mode as setMode' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (ColorChooserMode ->  IO ())) => Op (SetMode ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser mode = withRef color_chooser $ \color_chooserPtr -> setMode' color_chooserPtr (fromEnum mode)+{# fun Fl_Color_Chooser_hue as hue' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Either OutOfRange Between0And6))) => Op (GetHue ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    h'' <- hue' color_chooserPtr+    if ((h'' < 0.0) || (h'' >= 6.0))+     then return (Left OutOfRange)+     else return (Right (Between0And6 h''))+{# fun Fl_Color_Chooser_saturation as saturation' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetSaturation ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    s'' <- saturation' color_chooserPtr+    if ((s'' < 0.0) || (s'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 s''))+{# fun Fl_Color_Chooser_value as value' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetValue ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    v'' <- value' color_chooserPtr+    if ((v'' < 0.0) || (v'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 v''))+{# fun Fl_Color_Chooser_r as r' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetR ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    r'' <- r' color_chooserPtr+    if ((r'' < 0.0) || (r'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 r''))+{# fun Fl_Color_Chooser_g as g' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetG ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    g'' <- g' color_chooserPtr+    if ((g'' < 0.0) || (g'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 g''))+{# fun Fl_Color_Chooser_b as b' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetB ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do+    b'' <- b' color_chooserPtr+    if ((b'' < 0.0) || (b'' > 1.0))+     then return (Left OutOfRange)+     else return (Right (Between0And1 b''))+{# fun Fl_Color_Chooser_hsv as hsv' { id `Ptr ()',`Double', `Double', `Double'} -> `Int' #}+instance (impl ~ ((Between0And6, Between0And1, Between0And1) ->  IO (Either NoChange ()))) => Op (SetHsv ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser (Between0And6 h'', Between0And1 s'', Between0And1 v'') =+    withRef color_chooser $ \color_chooserPtr -> do+      ret <- hsv' color_chooserPtr h'' s'' v''+      if (ret == 0) then return (Left NoChange) else return (Right ())+{# fun Fl_Color_Chooser_rgb as rgb' { id `Ptr ()',`Double', `Double', `Double'} -> `Int' #}+instance (impl ~ ((Between0And1, Between0And1, Between0And1) ->  IO (Either NoChange ()))) => Op (SetRgb ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser (Between0And1 r'', Between0And1 g'', Between0And1 b'') =+    withRef color_chooser $ \color_chooserPtr -> do+      ret <- rgb' color_chooserPtr r'' g'' b''+      if (ret == 0) then return (Left NoChange) else return (Right ())+{# fun Fl_Color_Chooser_draw as draw' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ColorChooserBase orig impl where+  runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> draw' colorChooserPtr+{#fun Fl_Color_Chooser_handle as colorChooserHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ColorChooserBase orig impl where+  runOp _ _ colorChooser event = withRef colorChooser (\p -> colorChooserHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Color_Chooser_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ColorChooserBase orig impl where+  runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> hide' colorChooserPtr+{# fun Fl_Color_Chooser_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ColorChooserBase orig impl where+  runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> show' colorChooserPtr+{# fun Fl_Color_Chooser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ColorChooserBase orig impl where+  runOp _ _ colorChooser rectangle = withRef colorChooser $ \colorChooserPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' colorChooserPtr x_pos y_pos w_pos h_pos+instance (impl ~ (IO ( Either OutOfRange (Between0And1, Between0And1, Between0And1)))) => Op (GetRgb ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = do+    _r <- getR color_chooser+    _g <- getG color_chooser+    _b <- getB color_chooser+    return (do+      r <- _r+      g <- _g+      b <- _b+      return (r,g,b))++instance (impl ~ (IO ( Either OutOfRange (Between0And6, Between0And1, Between0And1)))) => Op (GetHsv ()) ColorChooserBase orig impl where+  runOp _ _ color_chooser = do+    _h <- getHue color_chooser+    _s <- getSaturation color_chooser+    _v <- getValue color_chooser+    return (do+      h <- _h+      s <- _s+      v <- _v+      return (h,s,v))+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ColorChooser"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'ColorChooserBase' -> 'IO' ()+--+-- getB :: 'Ref' 'ColorChooserBase' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')+--+-- getG :: 'Ref' 'ColorChooserBase' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')+--+-- getHsv :: 'Ref' 'ColorChooserBase' -> 'IO' ( 'Either' 'OutOfRange' ('Between0And6', 'Between0And1', 'Between0And1'))+--+-- getHue :: 'Ref' 'ColorChooserBase' -> 'IO' ('Either' 'OutOfRange' 'Between0And6')+--+-- getMode :: 'Ref' 'ColorChooserBase' -> 'IO' ('ColorChooserMode')+--+-- getR :: 'Ref' 'ColorChooserBase' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')+--+-- getRgb :: 'Ref' 'ColorChooserBase' -> 'IO' ( 'Either' 'OutOfRange' ('Between0And1', 'Between0And1', 'Between0And1'))+--+-- getSaturation :: 'Ref' 'ColorChooserBase' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')+--+-- getValue :: 'Ref' 'ColorChooserBase' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')+--+-- handle :: 'Ref' 'ColorChooserBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ColorChooserBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ColorChooserBase' -> 'Rectangle' -> 'IO' ()+--+-- setHsv :: 'Ref' 'ColorChooserBase' -> ('Between0And6', 'Between0And1', 'Between0And1') -> 'IO' ('Either' 'NoChange' ())+--+-- setMode :: 'Ref' 'ColorChooserBase' -> 'ColorChooserMode' -> 'IO' ()+--+-- setRgb :: 'Ref' 'ColorChooserBase' -> ('Between0And1', 'Between0And1', 'Between0And1') -> 'IO' ('Either' 'NoChange' ())+--+-- showWidget :: 'Ref' 'ColorChooserBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Counter.chs view
@@ -0,0 +1,187 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Counter+    (+     -- * Constructor+     counterNew,+     counterCustom,+     CounterType(..)+   , drawCounterBase+   , handleCounterBase+   , resizeCounterBase+   , hideCounterBase+   , showWidgetCounterBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+     --+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_CounterC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++#c+enum CounterType {+  NormalCounterType = FL_NORMAL_COUNTERC,+  SimpleCounterType = FL_SIMPLE_COUNTERC+};+#endc+{#enum CounterType {} deriving (Show, Eq) #}++{# fun Fl_OverriddenCounter_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenCounter_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+counterCustom ::+       Rectangle                         -- ^ The bounds of this Counter+    -> Maybe T.Text                      -- ^ The Counter label+    -> Maybe (Ref Counter -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Counter)      -- ^ Optional custom widget functions+    -> IO (Ref Counter)+counterCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Counter_New as counterNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Counter_New_WithLabel as counterNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+counterNew :: Rectangle -> Maybe T.Text -> IO (Ref Counter)+counterNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Counter_Destroy as counterDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) CounterBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    counterDestroy' winPtr+    return nullPtr++{# fun Fl_Counter_lstep as lstep' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (Double ->  IO ())) => Op (SetLstep ()) CounterBase orig impl where+  runOp _ _ counter lstep = withRef counter $ \counterPtr -> lstep' counterPtr lstep+{# fun Fl_Counter_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) CounterBase orig impl where+  runOp _ _ counter text = withRef counter $ \counterPtr -> setTextfont' counterPtr text+{# fun Fl_Counter_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) CounterBase orig impl where+  runOp _ _ counter = withRef counter $ \counterPtr -> textfont' counterPtr+{# fun Fl_Counter_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) CounterBase orig impl where+  runOp _ _ counter (FontSize text) = withRef counter $ \counterPtr -> setTextsize' counterPtr text+{# fun Fl_Counter_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) CounterBase orig impl where+  runOp _ _ counter = withRef counter $ \counterPtr -> textsize' counterPtr >>= return . FontSize+{# fun Fl_Counter_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) CounterBase orig impl where+  runOp _ _ counter text = withRef counter $ \counterPtr -> setTextcolor' counterPtr text+{# fun Fl_Counter_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) CounterBase orig impl where+  runOp _ _ counter = withRef counter $ \counterPtr -> textcolor' counterPtr+{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (CounterType ->  IO ())) => Op (SetType ()) CounterBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (CounterType)) => Op (GetType_ ()) CounterBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+{# fun Fl_Counter_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawCounterBase ::  Ref CounterBase -> IO ()+drawCounterBase adjuster = withRef adjuster $ \adjusterPtr -> drawSuper' adjusterPtr+{# fun Fl_Counter_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleCounterBase :: Ref CounterBase -> Event ->  IO (Either UnknownEvent ())+handleCounterBase adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Counter_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeCounterBase :: Ref CounterBase -> Rectangle -> IO ()+resizeCounterBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Counter_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideCounterBase ::  Ref CounterBase -> IO ()+hideCounterBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Counter_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetCounterBase ::  Ref CounterBase -> IO ()+showWidgetCounterBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr++{# fun Fl_Counter_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) CounterBase orig impl where+  runOp _ _ counter = withRef counter $ \counterPtr -> draw'' counterPtr+{#fun Fl_Counter_handle as counterHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) CounterBase orig impl where+  runOp _ _ counter event = withRef counter (\p -> counterHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Counter_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) CounterBase orig impl where+  runOp _ _ counter rectangle = withRef counter $ \counterPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' counterPtr x_pos y_pos w_pos h_pos+{# fun Fl_Counter_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) CounterBase orig impl where+  runOp _ _ counter = withRef counter $ \counterPtr -> hide' counterPtr+{# fun Fl_Counter_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) CounterBase orig impl where+  runOp _ _ counter = withRef counter $ \counterPtr -> show' counterPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Counter"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'CounterBase' -> 'IO' ()+--+-- draw :: 'Ref' 'CounterBase' -> 'IO' ()+--+-- getTextcolor :: 'Ref' 'CounterBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'CounterBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'CounterBase' -> 'IO' ('FontSize')+--+-- getType_ :: 'Ref' 'CounterBase' -> 'IO' ('CounterType')+--+-- handle :: 'Ref' 'CounterBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'CounterBase' -> 'IO' ()+--+-- resize :: 'Ref' 'CounterBase' -> 'Rectangle' -> 'IO' ()+--+-- setLstep :: 'Ref' 'CounterBase' -> 'Double' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'CounterBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'CounterBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'CounterBase' -> 'FontSize' -> 'IO' ()+--+-- setType :: 'Ref' 'CounterBase' -> 'CounterType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'CounterBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Dial.chs view
@@ -0,0 +1,177 @@+{-# LANGUAGE TypeFamilies,CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Dial+    (+     -- * Constructor+     dialNew,+     dialCustom,+     DialType(..)+   , drawDialBase+   , handleDialBase+   , resizeDialBase+   , hideDialBase+   , showWidgetDialBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Dial functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_DialC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++#c+enum DialType {+  NormalDialType = FL_NORMAL_DIALC,+  LineDialType = FL_LINE_DIALC,+  FillDialType = FL_FILL_DIALC+};+#endc+{#enum DialType {} deriving (Show, Eq) #}++{# fun Fl_OverriddenDial_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenDial_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+dialCustom ::+       Rectangle                         -- ^ The bounds of this Dial+    -> Maybe T.Text                      -- ^ The Dial label+    -> Maybe (Ref Dial -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Dial)      -- ^ Optional custom widget functions+    -> IO (Ref Dial)+dialCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Dial_New as dialNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Dial_New_WithLabel as dialNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+dialNew :: Rectangle -> Maybe T.Text -> IO (Ref Dial)+dialNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Dial_Destroy as dialDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) DialBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    dialDestroy' winPtr+    return nullPtr++{# fun Fl_Dial_set_angle1 as setAngle1' { id `Ptr ()',id `CShort' } -> `()' #}+instance (impl ~ ( Angle -> IO ())) => Op (SetAngle1 ()) DialBase orig impl where+  runOp _ _ dial (Angle a) = withRef dial $ \dialPtr -> setAngle1' dialPtr a+{# fun Fl_Dial_set_angle2 as setAngle2' { id `Ptr ()',id `CShort' } -> `()' #}+instance (impl ~ ( Angle -> IO ())) => Op (SetAngle2 ()) DialBase orig impl where+  runOp _ _ dial (Angle a) = withRef dial $ \dialPtr -> setAngle2' dialPtr a+{# fun Fl_Dial_angle1 as angle1' { id `Ptr ()' } -> `CShort' id #}+instance (impl ~ ( IO (Angle))) => Op (GetAngle1 ()) DialBase orig impl where+  runOp _ _ dial = withRef dial $ \dialPtr -> angle1' dialPtr >>= return . Angle+{# fun Fl_Dial_angle2 as angle2' { id `Ptr ()' } -> `CShort' id #}+instance (impl ~ ( IO (Angle))) => Op (GetAngle2 ()) DialBase orig impl where+  runOp _ _ dial = withRef dial $ \dialPtr -> angle2' dialPtr >>= return . Angle+instance (impl ~ ( Angle -> Angle -> IO ())) => Op (SetAngles ()) DialBase orig impl where+  runOp _ _ dial a1' a2' = do+    setAngle1 dial a1'+    setAngle2 dial a2'+{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (DialType ->  IO ())) => Op (SetType ()) DialBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (DialType)) => Op (GetType_ ()) DialBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+{# fun Fl_Dial_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawDialBase ::  Ref DialBase -> IO ()+drawDialBase adjuster = withRef adjuster $ \adjusterPtr -> drawSuper' adjusterPtr+{# fun Fl_Dial_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleDialBase :: Ref DialBase -> Event ->  IO (Either UnknownEvent ())+handleDialBase adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Dial_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeDialBase :: Ref DialBase -> Rectangle -> IO ()+resizeDialBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Dial_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideDialBase ::  Ref DialBase -> IO ()+hideDialBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Dial_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetDialBase ::  Ref DialBase -> IO ()+showWidgetDialBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr++{# fun Fl_Dial_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) DialBase orig impl where+  runOp _ _ dial rectangle = withRef dial $ \dialPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' dialPtr x_pos y_pos w_pos h_pos+{# fun Fl_Dial_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) DialBase orig impl where+  runOp _ _ dial = withRef dial $ \dialPtr -> hide' dialPtr+{# fun Fl_Dial_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) DialBase orig impl where+  runOp _ _ dial = withRef dial $ \dialPtr -> show' dialPtr+{#fun Fl_Dial_handle as dialHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) DialBase orig impl where+  runOp _ _ dial event = withRef dial (\p -> dialHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Dial_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) DialBase orig impl where+  runOp _ _ dial = withRef dial $ \dialPtr -> draw'' dialPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Dial"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'DialBase' -> 'IO' ()+--+-- draw :: 'Ref' 'DialBase' -> 'IO' ()+--+-- getAngle1 :: 'Ref' 'DialBase' -> 'IO' ('Angle')+--+-- getAngle2 :: 'Ref' 'DialBase' -> 'IO' ('Angle')+--+-- getType_ :: 'Ref' 'DialBase' -> 'IO' ('DialType')+--+-- handle :: 'Ref' 'DialBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'DialBase' -> 'IO' ()+--+-- resize :: 'Ref' 'DialBase' -> 'Rectangle' -> 'IO' ()+--+-- setAngle1 :: 'Ref' 'DialBase' -> 'Angle' -> 'IO' ()+--+-- setAngle2 :: 'Ref' 'DialBase' -> 'Angle' -> 'IO' ()+--+-- setAngles :: 'Ref' 'DialBase' -> 'Angle' -> 'Angle' -> 'IO' ()+--+-- setType :: 'Ref' 'DialBase' -> 'DialType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'DialBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/DoubleWindow.chs view
@@ -0,0 +1,145 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.DoubleWindow+  (+    doubleWindowNew,+    doubleWindowCustom+   , handleDoubleWindowBase+   , resizeDoubleWindowBase+   , hideDoubleWindowBase+   , showWidgetDoubleWindowBase+   , flushDoubleWindowBase+    -- * Hierarchy+    --+    -- $hierarchy++    -- * DoubleWindow functions+    --+    -- $functions+  )+where+#include "Fl_C.h"+#include "Fl_Double_WindowC.h"+import Foreign+import Foreign.C+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Base.Window+import Graphics.UI.FLTK.LowLevel.Window++{# fun Fl_OverriddenDouble_Window_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenDouble_Window_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenDouble_Window_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenDouble_Window_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+doubleWindowCustom :: Size                              -- ^ Size of this window+                   -> Maybe Position                    -- ^ Optional position of this window+                   -> Maybe T.Text                      -- ^ Optional label+                   -> Maybe (Ref DoubleWindow -> IO ()) -- ^ Optional table drawing routine+                   -> CustomWidgetFuncs DoubleWindow    -- ^ Custom widget overrides+                   -> CustomWindowFuncs DoubleWindow    -- ^ Custom window overrides+                   -> IO (Ref DoubleWindow)+doubleWindowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =+  windowMaker+    size+    position+    title+    draw'+    customWidgetFuncs'+    customWindowFuncs'+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++doubleWindowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref DoubleWindow)+doubleWindowNew size position title =+  windowMaker+    size+    position+    title+    Nothing+    (defaultCustomWidgetFuncs :: CustomWidgetFuncs DoubleWindow)+    (defaultCustomWindowFuncs :: CustomWindowFuncs DoubleWindow)+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++{# fun Fl_Double_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) DoubleWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr++{# fun Fl_Double_Window_handle as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleDoubleWindowBase :: Ref DoubleWindowBase -> Event ->  IO (Either UnknownEvent ())+handleDoubleWindowBase adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Double_Window_resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeDoubleWindowBase :: Ref DoubleWindowBase -> Rectangle -> IO ()+resizeDoubleWindowBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Double_Window_hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideDoubleWindowBase ::  Ref DoubleWindowBase -> IO ()+hideDoubleWindowBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Double_Window_show as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetDoubleWindowBase ::  Ref DoubleWindowBase -> IO ()+showWidgetDoubleWindowBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr+{# fun Fl_Double_Window_flush as flushSuper' { id `Ptr ()' } -> `()' #}+flushDoubleWindowBase :: Ref DoubleWindowBase -> IO ()+flushDoubleWindowBase window = withRef window $ \windowPtr -> flush' windowPtr++{# fun Fl_DerivedDouble_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) DoubleWindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr++{# fun Fl_DerivedDouble_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) DoubleWindowBase orig impl where+  runOp _ _ window = withRef window (\p -> windowShow' p)++{#fun Fl_DerivedDouble_Window_handle as windowHandle'+      { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) DoubleWindowBase orig impl where+  runOp _ _ window event = withRef window (\p -> windowHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent++{# fun Fl_DerivedDouble_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) DoubleWindowBase orig impl where+  runOp _ _ window rectangle = withRef window $ \windowPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' windowPtr x_pos y_pos w_pos h_pos++{# fun Fl_DerivedDouble_Window_flush as flush' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Flush ()) DoubleWindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.DoubleWindow"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'DoubleWindowBase' -> 'IO' ()+--+-- flush :: 'Ref' 'DoubleWindowBase' -> 'IO' ()+--+-- handle :: 'Ref' 'DoubleWindowBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'DoubleWindowBase' -> 'IO' ()+--+-- resize :: 'Ref' 'DoubleWindowBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'DoubleWindowBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/FileBrowser.chs view
@@ -0,0 +1,191 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.FileBrowser+    (+     -- * Constructor+     fileBrowserNew,+     fileBrowserCustom,+     FileBrowserType(..),+     FileSortF,+     numericSort,+     alphaSort,+     caseAlphaSort,+     caseNumericSort+   , drawFileBrowserBase+   , handleFileBrowserBase+   , resizeFileBrowserBase+   , hideFileBrowserBase+   , showWidgetFileBrowserBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $FileBrowserFunctions+     --+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_File_BrowserC.h"+#include "Fl_WidgetC.h"+#include "FL/filename.H"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# pointer *Fl_File_Sort_F as FileSortF #}++{# fun Fl_OverriddenFile_Browser_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenFile_Browser_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+fileBrowserCustom ::+       Rectangle                         -- ^ The bounds of this FileBrowser+    -> Maybe T.Text                      -- ^ The FileBrowser label+    -> Maybe (Ref FileBrowser -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs FileBrowser)      -- ^ Optional custom widget functions+    -> IO (Ref FileBrowser)+fileBrowserCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_File_Browser_New as fileBrowserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_File_Browser_New_WithLabel as fileBrowserNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+fileBrowserNew :: Rectangle -> Maybe T.Text -> IO (Ref FileBrowser)+fileBrowserNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_File_Browser_set_iconsize as setIconsize' { id `Ptr ()', id `CUChar' } -> `()' #}+instance (impl ~ (CUChar ->  IO ())) => Op (SetIconsize ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser text = withRef fileBrowser $ \fileBrowserPtr -> setIconsize' fileBrowserPtr text+{# fun Fl_File_Browser_iconsize as iconsize' { id `Ptr ()' } -> `CUChar' id #}+instance (impl ~ ( IO (CUChar))) => Op (GetIconsize ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> iconsize' fileBrowserPtr+{# fun Fl_File_Browser_set_filter as setFilter' { id `Ptr ()', `CString' } -> `()' #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetFilter ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser text = withRef fileBrowser $ \fileBrowserPtr -> copyTextToCString text >>= setFilter' fileBrowserPtr+{# fun Fl_File_Browser_filter as filter' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetFilter ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> filter' fileBrowserPtr >>= cStringToText+{# fun Fl_File_Browser_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser (FontSize text) = withRef fileBrowser $ \fileBrowserPtr -> setTextsize' fileBrowserPtr text+{# fun Fl_File_Browser_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> textsize' fileBrowserPtr >>= return . FontSize+{# fun Fl_File_Browser_set_filetype as setFileType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (FileBrowserType ->  IO ())) => Op (SetFiletype ()) FileBrowserBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setFileType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_File_Browser_filetype as filetype' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (FileBrowserType)) => Op (GetFiletype ()) FileBrowserBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> filetype' widgetPtr >>= return . toEnum . fromInteger . toInteger+{# fun Fl_File_Browser_load as load' { id `Ptr ()', `CString', id `FileSortF' } -> `CInt' id #}+instance (impl ~ (T.Text -> FileSortF -> IO (Either UnknownError ()))) => Op (Load ()) FileBrowserBase orig impl where+  runOp _ _ widget dir sortF = withRef widget $ \widgetPtr -> do+                               status <- copyTextToCString dir >>= \d -> load' widgetPtr d sortF+                               return (if (status == 0) then (Left UnknownError) else (Right ()))++{# fun Fl_File_Browser_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawFileBrowserBase ::  Ref FileBrowserBase -> IO ()+drawFileBrowserBase fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> drawSuper' fileBrowserPtr+{# fun Fl_File_Browser_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleFileBrowserBase :: Ref FileBrowserBase -> Event ->  IO (Either UnknownEvent ())+handleFileBrowserBase fileBrowser event = withRef fileBrowser $ \fileBrowserPtr -> handleSuper' fileBrowserPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_File_Browser_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeFileBrowserBase :: Ref FileBrowserBase -> Rectangle -> IO ()+resizeFileBrowserBase fileBrowser rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef fileBrowser $ \fileBrowserPtr -> resizeSuper' fileBrowserPtr x_pos y_pos width height+{# fun Fl_File_Browser_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideFileBrowserBase ::  Ref FileBrowserBase -> IO ()+hideFileBrowserBase fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> hideSuper' fileBrowserPtr+{# fun Fl_File_Browser_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetFileBrowserBase ::  Ref FileBrowserBase -> IO ()+showWidgetFileBrowserBase fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> showSuper' fileBrowserPtr++{# fun Fl_File_Browser_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> draw'' fileBrowserPtr+{#fun Fl_File_Browser_handle as fileBrowserHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser event = withRef fileBrowser (\p -> fileBrowserHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_File_Browser_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> hide' fileBrowserPtr+{# fun Fl_File_Browser_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> show' fileBrowserPtr+{# fun Fl_File_Browser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) FileBrowserBase orig impl where+  runOp _ _ fileBrowser rectangle = withRef fileBrowser $ \fileBrowserPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' fileBrowserPtr x_pos y_pos w_pos h_pos+++{# fun fl_numericsort_reference     as numericSort     {} -> `FileSortF' #}+{# fun fl_alphasort_reference       as alphaSort       {} -> `FileSortF' #}+{# fun fl_casealphasort_reference   as caseAlphaSort   {} -> `FileSortF' #}+{# fun fl_casenumericsort_reference as caseNumericSort {} -> `FileSortF' #}+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Browser"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.FileBrowser"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'FileBrowserBase' -> 'IO' ()+--+-- getFiletype :: 'Ref' 'FileBrowserBase' -> 'IO' ('FileBrowserType')+--+-- getFilter :: 'Ref' 'FileBrowserBase' -> 'IO' 'T.Text'+--+-- getIconsize :: 'Ref' 'FileBrowserBase' -> 'IO' ('CUChar')+--+-- getTextsize :: 'Ref' 'FileBrowserBase' -> 'IO' ('FontSize')+--+-- handle :: 'Ref' 'FileBrowserBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'FileBrowserBase' -> 'IO' ()+--+-- load :: 'Ref' 'FileBrowserBase' -> 'T.Text' -> 'FileSortF' -> 'IO' ('Either' 'UnknownError' ())+--+-- resize :: 'Ref' 'FileBrowserBase' -> 'Rectangle' -> 'IO' ()+--+-- setFiletype :: 'Ref' 'FileBrowserBase' -> 'FileBrowserType' -> 'IO' ()+--+-- setFilter :: 'Ref' 'FileBrowserBase' -> 'T.Text' -> 'IO' ()+--+-- setIconsize :: 'Ref' 'FileBrowserBase' -> 'CUChar' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'FileBrowserBase' -> 'FontSize' -> 'IO' ()+--+-- showWidget :: 'Ref' 'FileBrowserBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/FileInput.chs view
@@ -0,0 +1,152 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.FileInput+    (+     fileInputNew,+     fileInputCustom+   , drawFileInputBase+   , handleFileInputBase+   , resizeFileInputBase+   , hideFileInputBase+   , showWidgetFileInputBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_File_InputC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenFile_Input_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenFile_Input_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+fileInputCustom ::+       Rectangle                         -- ^ The bounds of this FileInput+    -> Maybe T.Text                      -- ^ The FileInput label+    -> Maybe (Ref FileInput -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs FileInput)      -- ^ Optional custom widget functions+    -> IO (Ref FileInput)+fileInputCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_File_Input_New as fileInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_File_Input_New_WithLabel as fileInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+fileInputNew :: Rectangle -> Maybe T.Text -> IO (Ref FileInput)+fileInputNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_File_Input_down_box as downBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ ( IO (Boxtype))) => Op (GetDownBox ()) FileInputBase orig impl where+  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> downBox' fileInputPtr+{# fun Fl_File_Input_set_down_box as setDownBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}+instance (impl ~ (Boxtype ->  IO ())) => Op (SetDownBox ()) FileInputBase orig impl where+  runOp _ _ fileInput b = withRef fileInput $ \fileInputPtr -> setDownBox' fileInputPtr b+{# fun Fl_File_Input_errorcolor as errorColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetErrorColor ()) FileInputBase orig impl where+  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> errorColor' fileInputPtr+{# fun Fl_File_Input_set_errorcolor as setErrorColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetErrorColor ()) FileInputBase orig impl where+  runOp _ _ fileInput b = withRef fileInput $ \fileInputPtr -> setErrorColor' fileInputPtr b+{# fun Fl_File_Input_set_value as setValue' { id `Ptr ()', `CString'} -> `()' #}+instance (impl ~ (T.Text -> IO ())) => Op (SetValue ()) FileInputBase orig impl where+  runOp _ _ fileInput s = withRef fileInput $ \fileInputPtr -> copyTextToCString s >>= setValue' fileInputPtr+{# fun Fl_File_Input_value as getValue' { id `Ptr ()' } -> `CString' #}+instance (impl ~ (IO T.Text)) => Op (GetValue ()) FileInputBase orig impl where+  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> getValue' fileInputPtr >>= cStringToText++{# fun Fl_File_Input_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawFileInputBase ::  Ref FileInputBase -> IO ()+drawFileInputBase fileInput = withRef fileInput $ \fileInputPtr -> drawSuper' fileInputPtr+{# fun Fl_File_Input_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleFileInputBase :: Ref FileInputBase -> Event ->  IO (Either UnknownEvent ())+handleFileInputBase fileInput event = withRef fileInput $ \fileInputPtr -> handleSuper' fileInputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_File_Input_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeFileInputBase :: Ref FileInputBase -> Rectangle -> IO ()+resizeFileInputBase fileInput rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef fileInput $ \fileInputPtr -> resizeSuper' fileInputPtr x_pos y_pos width height+{# fun Fl_File_Input_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideFileInputBase ::  Ref FileInputBase -> IO ()+hideFileInputBase fileInput = withRef fileInput $ \fileInputPtr -> hideSuper' fileInputPtr+{# fun Fl_File_Input_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetFileInputBase ::  Ref FileInputBase -> IO ()+showWidgetFileInputBase fileInput = withRef fileInput $ \fileInputPtr -> showSuper' fileInputPtr++{# fun Fl_File_Input_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) FileInputBase orig impl where+  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> draw'' fileInputPtr+{#fun Fl_File_Input_handle as fileInputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) FileInputBase orig impl where+  runOp _ _ fileInput event = withRef fileInput (\p -> fileInputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_File_Input_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) FileInputBase orig impl where+  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> hide' fileInputPtr+{# fun Fl_File_Input_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) FileInputBase orig impl where+  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> show' fileInputPtr+{# fun Fl_File_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) FileInputBase orig impl where+  runOp _ _ fileInput rectangle = withRef fileInput $ \fileInputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' fileInputPtr x_pos y_pos w_pos h_pos++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Input"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.FileInput"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'FileInputBase' -> 'IO' ()+--+-- getDownBox :: 'Ref' 'FileInputBase' -> 'IO' ('Boxtype')+--+-- getErrorColor :: 'Ref' 'FileInputBase' -> 'IO' ('Color')+--+-- getValue :: 'Ref' 'FileInputBase' -> 'IO' 'T.Text'+--+-- handle :: 'Ref' 'FileInputBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'FileInputBase' -> 'IO' ()+--+-- resize :: 'Ref' 'FileInputBase' -> 'Rectangle' -> 'IO' ()+--+-- setDownBox :: 'Ref' 'FileInputBase' -> 'Boxtype' -> 'IO' ()+--+-- setErrorColor :: 'Ref' 'FileInputBase' -> 'Color' -> 'IO' ()+--+-- setValue :: 'Ref' 'FileInputBase' -> 'T.Text' -> 'IO' ()+--+-- showWidget :: 'Ref' 'FileInputBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/FillSlider.chs view
@@ -0,0 +1,47 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.FillSlider+    (+     fillSliderNew+     -- * Hierarchy+     --+     -- $hierarchy++    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SliderC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget+{# fun Fl_Fill_Slider_New as fillSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Fill_Slider_New_WithLabel as fillSliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+fillSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref FillSlider)+fillSliderNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> fillSliderNew' x_pos y_pos width height >>= toRef+        Just l -> do+          ref <- copyTextToCString l >>= \l' -> fillSliderNewWithLabel' x_pos y_pos width height l' >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.FillSlider"+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/GlWindow.chs view
@@ -0,0 +1,247 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.GlWindow+    (+     glWindowNew,+     glWindowCustom,+     glWindowCanDo+    , drawGlWindowBase+   , handleGlWindowBase+   , resizeGlWindowBase+   , hideGlWindowBase+   , showWidgetGlWindowBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * GlWindow functions+     --+     -- $functions+    )+where+#include "Fl_C.h"+#include "Fl_Double_WindowC.h"+#include "Fl_Gl_WindowC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Foreign+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Window+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Base.Window+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++{# fun Fl_OverriddenGl_Window_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenGl_Window_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenGl_Window_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenGl_Window_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+glWindowCustom :: Size                           -- ^ The size of this window+               -> Maybe Position                 -- ^ The position of this window+               -> Maybe T.Text                   -- ^ The window label+               -> Maybe (Ref GlWindow -> IO ())  -- ^ Optional custom drawing function+               -> CustomWidgetFuncs GlWindow     -- ^ other custom widget functions+               -> CustomWindowFuncs GlWindow     -- ^ Other custom window functions+               -> IO (Ref GlWindow)+glWindowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =+  windowMaker+    size+    position+    title+    draw'+    customWidgetFuncs'+    customWindowFuncs'+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'+glWindowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref GlWindow)+glWindowNew size position title =+  windowMaker+    size+    position+    title+    Nothing+    (defaultCustomWidgetFuncs :: CustomWidgetFuncs GlWindow)+    (defaultCustomWindowFuncs :: CustomWindowFuncs GlWindow)+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++{# fun Fl_Gl_Window_can_do_with_m as canDoWithM' { `Int'} -> `Bool' cToBool #}+glWindowCanDo :: Mode -> IO Bool+glWindowCanDo m = canDoWithM' (fromEnum m)++{# fun Fl_Gl_Window_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawGlWindowBase ::  Ref GlWindowBase -> IO ()+drawGlWindowBase glWindow = withRef glWindow $ \glWindowPtr -> drawSuper' glWindowPtr+{# fun Fl_Gl_Window_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleGlWindowBase :: Ref GlWindowBase -> Event ->  IO (Either UnknownEvent ())+handleGlWindowBase glWindow event = withRef glWindow $ \glWindowPtr -> handleSuper' glWindowPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Gl_Window_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeGlWindowBase :: Ref GlWindowBase -> Rectangle -> IO ()+resizeGlWindowBase glWindow rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef glWindow $ \glWindowPtr -> resizeSuper' glWindowPtr x_pos y_pos width height+{# fun Fl_Gl_Window_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideGlWindowBase ::  Ref GlWindowBase -> IO ()+hideGlWindowBase glWindow = withRef glWindow $ \glWindowPtr -> hideSuper' glWindowPtr+{# fun Fl_Gl_Window_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetGlWindowBase ::  Ref GlWindowBase -> IO ()+showWidgetGlWindowBase glWindow = withRef glWindow $ \glWindowPtr -> showSuper' glWindowPtr+++{# fun Fl_DerivedGl_Window_flush as flush' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Flush ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> flush' winPtr+{# fun Fl_DerivedGl_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> hide' winPtr+{# fun Fl_DerivedGl_Window_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ShowWidget ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> show' winPtr+{# fun Fl_DerivedGl_Window_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}+instance (impl ~ (Event ->  IO(Either UnknownEvent ()))) => Op (Handle ()) GlWindowBase orig impl where+  runOp _ _ self event = withRef self $ \selfPtr -> handle' selfPtr event >>= return  . successOrUnknownEvent+{# fun Fl_DerivedGl_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr+{# fun Fl_DerivedGl_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) GlWindowBase orig impl where+  runOp _ _ win rectangle' =+    let (x_pos', y_pos', width', height') = fromRectangle rectangle' in+    withRef win $ \winPtr -> resize' winPtr x_pos' y_pos' width' height'++{# fun Fl_Gl_Window_valid as valid' { id `Ptr ()' } -> `Bool' #}+instance (impl ~ ( IO (Bool))) => Op (GetValid ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> valid' winPtr+{# fun Fl_Gl_Window_set_valid as setValid' { id `Ptr ()', `Bool' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Bool ->  IO ())) => Op (SetValid ()) GlWindowBase orig impl where+  runOp _ _ win v = withRef win $ \winPtr -> setValid' winPtr v+{# fun Fl_Gl_Window_invalidate as invalidate' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Invalidate ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> invalidate' winPtr+{# fun Fl_Gl_Window_context_valid as contextValid' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (GetContextValid ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> contextValid' winPtr+{# fun Fl_Gl_Window_set_context_valid as setContextValid' { id `Ptr ()', fromBool `Bool' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Bool ->  IO ())) => Op (SetContextValid ()) GlWindowBase orig impl where+  runOp _ _ win v = withRef win $ \winPtr -> setContextValid' winPtr v+{# fun Fl_Gl_Window_can_do as canDo' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (CanDo ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> canDo' winPtr+{# fun Fl_Gl_Window_mode as mode' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Mode))) => Op (GetMode ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> mode' winPtr >>= return . toEnum+{# fun Fl_Gl_Window_set_mode as setMode' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Modes ->  IO ())) => Op (SetMode ()) GlWindowBase orig impl where+  runOp _ _ win a = withRef win $ \winPtr -> setMode' winPtr (modesToInt a) >> return ()+{# fun Fl_Gl_Window_context as context' { id `Ptr ()' } -> `Ptr ()'  #}+instance (impl ~ ( IO (Ref FlGlContext))) => Op (GetContext ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> context' winPtr >>= toRef+{# fun Fl_Gl_Window_set_context as setContext' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Ref FlGlContext ->  IO ())) => Op (SetContext ()) GlWindowBase orig impl where+  runOp _ _ win context = withRef win $ \winPtr -> withRef context $ \contextPtr -> setContext' winPtr contextPtr+{# fun Fl_Gl_Window_set_context_with_destroy_flag as setContextWithDestroyFlag' { id `Ptr ()',id `Ptr ()', fromBool `Bool'} -> `()' supressWarningAboutRes #}+instance (impl ~ ( Ref FlGlContext ->  Bool -> IO ())) => Op (SetContextWithDestroyFlag ()) GlWindowBase orig impl where+  runOp _ _ win context destroyFlag= withRef win $ \winPtr -> withRef context $ \contextPtr -> setContextWithDestroyFlag' winPtr contextPtr destroyFlag+{# fun Fl_Gl_Window_swap_buffers as swapBuffers' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (SwapBuffers ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> swapBuffers' winPtr+{# fun Fl_Gl_Window_ortho as ortho' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Ortho ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> ortho' winPtr+{# fun Fl_Gl_Window_can_do_overlay as canDoOverlay' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (CanDoOverlay ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> canDoOverlay' winPtr+{# fun Fl_Gl_Window_redraw_overlay as redrawOverlay' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (RedrawOverlay ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> redrawOverlay' winPtr+{# fun Fl_Gl_Window_hide_overlay as hideOverlay' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (HideOverlay ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> hideOverlay' winPtr+{# fun Fl_Gl_Window_make_overlay_current as makeOverlayCurrent' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (MakeOverlayCurrent ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> makeOverlayCurrent' winPtr+{# fun Fl_Gl_Window_pixels_per_unit as pixelsPerUnit' { id `Ptr ()'} -> `Float' #}+instance (impl ~ ( IO (Float))) => Op (PixelsPerUnit ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> pixelsPerUnit' winPtr+{# fun Fl_Gl_Window_pixel_h as pixelH' { id `Ptr ()'} -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (PixelH ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> pixelH' winPtr+{# fun Fl_Gl_Window_pixel_w as pixelW' { id `Ptr ()'} -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (PixelW ()) GlWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> pixelW' winPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.GlWindow"+-- @++-- $functions+-- @+-- canDo :: 'Ref' 'GlWindowBase' -> 'IO' ('Bool')+--+-- canDoOverlay :: 'Ref' 'GlWindowBase' -> 'IO' ('Bool')+--+-- destroy :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- flush :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- getContext :: 'Ref' 'GlWindowBase' -> 'IO' ('Ref' 'FlGlContext')+--+-- getContextValid :: 'Ref' 'GlWindowBase' -> 'IO' ('Bool')+--+-- getMode :: 'Ref' 'GlWindowBase' -> 'IO' ('Mode')+--+-- getValid :: 'Ref' 'GlWindowBase' -> 'IO' ('Bool')+--+-- handle :: 'Ref' 'GlWindowBase' -> 'Event' -> 'IO(Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- hideOverlay :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- invalidate :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- makeOverlayCurrent :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- ortho :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- pixelH :: 'Ref' 'GlWindowBase' -> 'IO' ('Int')+--+-- pixelW :: 'Ref' 'GlWindowBase' -> 'IO' ('Int')+--+-- pixelsPerUnit :: 'Ref' 'GlWindowBase' -> 'IO' ('Float')+--+-- redrawOverlay :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- resize :: 'Ref' 'GlWindowBase' -> 'Rectangle' -> 'IO' ()+--+-- setContext :: 'Ref' 'GlWindowBase' -> 'Ref' 'FlGlContext' -> 'IO' ()+--+-- setContextValid :: 'Ref' 'GlWindowBase' -> 'Bool' -> 'IO' ()+--+-- setContextWithDestroyFlag :: 'Ref' 'GlWindowBase' -> 'Ref' 'FlGlContext' -> 'Bool' -> 'IO' ()+--+-- setMode :: 'Ref' 'GlWindowBase' -> 'Modes' -> 'IO' ()+--+-- setValid :: 'Ref' 'GlWindowBase' -> 'Bool' -> 'IO' ()+--+-- showWidget :: 'Ref' 'GlWindowBase' -> 'IO' ()+--+-- swapBuffers :: 'Ref' 'GlWindowBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Group.chs view
@@ -0,0 +1,258 @@+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Group+    (+    -- * Constructor+     groupNew,+     groupCustom,+     groupSetCurrent,+     groupCurrent,+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Group functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_WidgetC.h"+#include "Fl_GroupC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Control.Exception (finally)++{# fun Fl_Group_set_current as groupSetCurrent' { id `Ptr ()' } -> `()' #}+{# fun Fl_Group_current as groupCurrent' {} -> `Ptr ()' id #}++groupSetCurrent :: (Parent a GroupBase) => Maybe (Ref a) -> IO ()+groupSetCurrent group = withMaybeRef group $ \groupPtr -> groupSetCurrent' groupPtr++groupCurrent :: IO (Maybe (Ref GroupBase))+groupCurrent = groupCurrent' >>= toMaybeRef++{# fun Fl_Group_New as groupNew' {  `Int',`Int', `Int', `Int'} -> `Ptr ()' id #}+{# fun Fl_Group_New_WithLabel as groupNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+groupNew :: Rectangle -> Maybe T.Text -> IO (Ref Group)+groupNew rectangle label' =+  widgetMaker+    rectangle+    label'+    Nothing+    Nothing+    overriddenGroupNew'+    overriddenGroupNewWithLabel'++{# fun Fl_OverriddenGroup_New_WithLabel as overriddenGroupNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenGroup_New as overriddenGroupNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+groupCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Group -> IO ()) -> CustomWidgetFuncs Group -> IO (Ref Group)+groupCustom rectangle l' draw' funcs' =+  widgetMaker rectangle l' draw' (Just funcs') overriddenGroupNew' overriddenGroupNewWithLabel'++{# fun Fl_Group_Destroy as groupDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> groupDestroy' groupPtr+++{# fun Fl_Group_draw_child as drawChild' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a WidgetBase, impl ~ (Ref a -> IO ())) => Op (DrawChild ()) GroupBase orig impl where+  runOp _ _ group widget = withRef group $ \groupPtr -> withRef widget $ \widgetPtr -> drawChild' groupPtr widgetPtr++{# fun Fl_Group_draw_children as drawChildren' { id `Ptr ()' } -> `()' #}+instance (impl ~ (IO ())) => Op (DrawChildren ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> drawChildren' groupPtr++{# fun Fl_Group_draw_outside_label as drawOutsideLabel' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a WidgetBase, impl ~ (Ref a -> IO ())) => Op (DrawOutsideLabel ()) GroupBase orig impl where+  runOp _ _ group widget = withRef group $ \groupPtr -> withRef widget $ \widgetPtr -> drawOutsideLabel' groupPtr widgetPtr++{# fun Fl_Group_update_child as updateChild' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a WidgetBase, impl ~ (Ref a -> IO ())) => Op (UpdateChild ()) GroupBase orig impl where+  runOp _ _ group widget = withRef group $ \groupPtr -> withRef widget $ \widgetPtr -> updateChild' groupPtr widgetPtr++{# fun Fl_Group_begin as begin' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Begin ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> begin' groupPtr++{# fun Fl_Group_end as end' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (End ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> end' groupPtr++instance (+           Match obj ~ FindOp orig orig (Begin ()),+           Match obj ~ FindOp orig orig (End ()),+           Op (Begin ()) obj orig (IO ()),+           Op (End ()) obj orig (IO ()),+           impl ~ (IO a -> IO a)+         )+         =>+         Op (Within ()) GroupBase orig impl where+  runOp _ _ group action = do+    () <- begin (castTo group :: Ref orig)+    finally action ((end (castTo group :: Ref orig)) :: IO ())++{# fun Fl_Group_find as find' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (Parent a WidgetBase, impl ~ (Ref a ->  IO (AtIndex))) => Op (Find ()) GroupBase orig impl where+  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> find' groupPtr wPtr >>= return . AtIndex++{# fun Fl_Group_add as add' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Ref a->  IO ())) => Op (Add ()) GroupBase orig impl where+  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> add' groupPtr wPtr++{# fun Fl_Group_insert as insert' { id `Ptr ()',id `Ptr ()',`Int' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Ref a-> AtIndex ->  IO ())) => Op (Insert ()) GroupBase orig impl where+  runOp _ _ group w (AtIndex i) = withRef group $ \groupPtr -> withRef w $ \wPtr -> insert' groupPtr wPtr i++{# fun Fl_Group_remove_index as removeIndex' { id `Ptr ()',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( AtIndex ->  IO ())) => Op (RemoveIndex ()) GroupBase orig impl where+  runOp _ _ group (AtIndex index') = withRef group $ \groupPtr -> removeIndex' groupPtr index'++{# fun Fl_Group_remove_widget as removeWidget' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Ref a ->  IO ())) => Op (RemoveWidget ()) GroupBase orig impl where+  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> removeWidget' groupPtr wPtr++{# fun Fl_Group_clear as clear' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Clear ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> clear' groupPtr++{# fun Fl_Group_set_resizable as setResizable' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Maybe ( Ref a ) -> IO ())) => Op (SetResizable ()) GroupBase orig impl where+  runOp _ _ group o = withRef group $ \groupPtr -> withMaybeRef o $ \oPtr -> setResizable' groupPtr oPtr++instance (impl ~ IO ()) => Op (SetNotResizable ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> setResizable' groupPtr nullPtr++{# fun Fl_Group_resizable as resizable' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref Widget)))) => Op (GetResizable ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> resizable' groupPtr >>= toMaybeRef++{# fun Fl_Group_add_resizable as addResizable' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Ref a ->  IO ())) => Op (AddResizable ()) GroupBase orig impl where+  runOp _ _ group o = withRef group $ \groupPtr -> withRef o $ \oPtr -> addResizable' groupPtr oPtr++{# fun Fl_Group_init_sizes as initSizes' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (InitSizes ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> initSizes' groupPtr++{# fun Fl_Group_children as children' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (Children ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> children' groupPtr++{# fun Fl_Group_set_clip_children as setClipChildren' { id `Ptr ()', cFromBool `Bool' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Bool ->  IO ())) => Op (SetClipChildren ()) GroupBase orig impl where+  runOp _ _ group c = withRef group $ \groupPtr -> setClipChildren' groupPtr c++{# fun Fl_Group_clip_children as clipChildren' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (ClipChildren ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> clipChildren' groupPtr++{# fun Fl_Group_focus as focus' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Ref a ->  IO ())) => Op (Focus ()) GroupBase orig impl where+  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> focus' groupPtr wPtr++{# fun Fl_Group__ddfdesign_kludge as ddfdesignKludge' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref WidgetBase)))) => Op (DdfdesignKludge ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> ddfdesignKludge' groupPtr >>= toMaybeRef++{# fun Fl_Group_insert_with_before as insertWithBefore' { id `Ptr ()',id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a WidgetBase, impl ~ (Ref a -> Ref b ->  IO ())) => Op (InsertBefore ()) GroupBase orig impl where+  runOp _ _ self w before = withRef self $ \selfPtr -> withRef w $ \wPtr -> withRef before $ \beforePtr -> insertWithBefore' selfPtr wPtr beforePtr++{# fun Fl_Group_array as array' { id `Ptr ()' } -> `Ptr (Ptr ())' id#}+instance (impl ~ (IO [Ref WidgetBase])) => Op (GetArray ()) GroupBase orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> do+                    childArrayPtr <- array' groupPtr+                    numChildren <- children group+                    arrayToRefs childArrayPtr numChildren++{# fun Fl_Group_child as child' { id `Ptr ()',`Int' } -> `Ptr ()' id #}+instance (impl ~ (AtIndex ->  IO (Maybe (Ref WidgetBase)))) => Op (GetChild ()) GroupBase orig impl where+  runOp _ _ self (AtIndex n) = withRef self $ \selfPtr -> child' selfPtr n >>= toMaybeRef++{#fun Fl_Group_handle as groupHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) GroupBase orig impl where+  runOp _ _ group event = withRef group (\p -> groupHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent++{# fun Fl_Group_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) GroupBase 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+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+-- @++-- $functions+-- @+-- add:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a-> 'IO' ()+--+-- addResizable:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ()+--+-- begin :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- children :: 'Ref' 'GroupBase' -> 'IO' ('Int')+--+-- clear :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- clipChildren :: 'Ref' 'GroupBase' -> 'IO' ('Bool')+--+-- ddfdesignKludge :: 'Ref' 'GroupBase' -> 'IO' ('Maybe' ('Ref' 'WidgetBase'))+--+-- destroy :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- drawChild:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ()+--+-- drawChildren :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- drawOutsideLabel:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ()+--+-- end :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- find:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ('AtIndex')+--+-- focus:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ()+--+-- getArray :: 'Ref' 'GroupBase' -> 'IO' ['Ref' 'WidgetBase']+--+-- getChild :: 'Ref' 'GroupBase' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' 'WidgetBase'))+--+-- getResizable :: 'Ref' 'GroupBase' -> 'IO' ('Maybe' ('Ref' 'Widget'))+--+-- handle :: 'Ref' 'GroupBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- initSizes :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- insert:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a-> 'AtIndex' -> 'IO' ()+--+-- insertBefore:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'Ref' b -> 'IO' ()+--+-- removeIndex :: 'Ref' 'GroupBase' -> 'AtIndex' -> 'IO' ()+--+-- removeWidget:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ()+--+-- resize :: 'Ref' 'GroupBase' -> 'Rectangle' -> 'IO' ()+--+-- setClipChildren :: 'Ref' 'GroupBase' -> 'Bool' -> 'IO' ()+--+-- setNotResizable :: 'Ref' 'GroupBase' -> 'IO' ()+--+-- setResizable:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()+--+-- updateChild:: ('Parent' a 'WidgetBase') => 'Ref' 'GroupBase' -> 'Ref' a -> 'IO' ()+--+-- within:: ('Match' obj ~ 'FindOp' orig orig ('Begin' ()), 'Match' obj ~ 'FindOp' orig orig ('End' ()), 'Op' ('Begin' ()) obj orig ('IO' ()), 'Op' ('End' ()) obj orig ('IO' ()),) => 'Ref' 'GroupBase' -> 'IO' a -> 'IO' a+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/HorFillSlider.chs view
@@ -0,0 +1,47 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.HorFillSlider+    (+     horFillSliderNew+     -- * Hierarchy+     --+     -- $hierarchy++    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SliderC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget+{# fun Fl_Hor_Fill_Slider_New as horFillSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Hor_Fill_Slider_New_WithLabel as horFillSliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+horFillSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref HorFillSlider)+horFillSliderNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> horFillSliderNew' x_pos y_pos width height >>=+                             toRef+        Just l -> do+          ref <- copyTextToCString l >>= \l' -> horFillSliderNewWithLabel' x_pos y_pos width height l' >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.HorFillSlider"+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/HorNiceSlider.chs view
@@ -0,0 +1,47 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider+    (+     horNiceSliderNew+     -- * Hierarchy+     --+     -- $hierarchy++    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SliderC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import qualified Data.Text as T+{# fun Fl_Hor_Nice_Slider_New as horNiceSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Hor_Nice_Slider_New_WithLabel as horNiceSliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+horNiceSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref HorNiceSlider)+horNiceSliderNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> horNiceSliderNew' x_pos y_pos width height >>= toRef+        Just l -> do+          ref <- copyTextToCString l >>= \l' -> horNiceSliderNewWithLabel' x_pos y_pos width height l' >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider"+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/HorSlider.chs view
@@ -0,0 +1,48 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.HorSlider+    (+     horSliderNew+     -- * Hierarchy+     --+     -- $hierarchy++    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SliderC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import qualified Data.Text as T+{# fun Fl_Hor_Slider_New as horSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Hor_Slider_New_WithLabel as horSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+horSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref HorSlider)+horSliderNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> horSliderNew' x_pos y_pos width height >>=+                             toRef+        Just l -> do+          ref <- copyTextToCString l >>= \l' -> horSliderNewWithLabel' x_pos y_pos width height l' >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.HorSlider"+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Input.chs view
@@ -0,0 +1,423 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Input+    (+     FlInputType(..),+     -- * Constructor+     inputNew,+     inputCustom+   , drawInputBase+   , handleInputBase+   , resizeInputBase+   , hideInputBase+   , showWidgetInputBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Input+     --+     -- $Input+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_InputC.h"+#include "Fl_Input_C.h"+#include "Fl_Int_InputC.h"+#include "Fl_Float_InputC.h"+#include "Fl_Secret_InputC.h"+#include "Fl_Multiline_InputC.h"+#include "Fl_OutputC.h"+#include "Fl_Multiline_OutputC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++#c+enum FlInputType {+  FlNormalInput = FL_NORMAL_INPUT,+  FlFloatInput = FL_FLOAT_INPUT,+  FlIntInput = FL_INT_INPUT,+  FlMultilineInput = FL_MULTILINE_INPUT,+  FlSecretInput = FL_SECRET_INPUT,+  FlHiddenInput = FL_HIDDEN_INPUT+};+#endc+{#enum FlInputType {}#}+{# fun Fl_OverriddenInput_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenInput_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+inputCustom ::+       Rectangle                         -- ^ The bounds of this Input+    -> Maybe T.Text                      -- ^ The Input label+    -> Maybe FlInputType                 -- ^ The input type+    -> Maybe (Ref Input -> IO ())        -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Input)   -- ^ Optional custom widget functions+    -> IO (Ref Input)+inputCustom rectangle l' itMaybe draw' funcs' = do+  i <- widgetMaker+         rectangle+         l'+         draw'+         funcs'+         overriddenWidgetNew'+         overriddenWidgetNewWithLabel'+  maybe+    (return ())+    (\it -> do+        setInputType i it+        case it of+          FlNormalInput -> return ()+          FlFloatInput -> clearFlag i WidgetFlagMacUseAccentsMenu+          FlIntInput -> clearFlag i WidgetFlagMacUseAccentsMenu+          FlMultilineInput -> return ()+          FlSecretInput -> clearFlag i WidgetFlagMacUseAccentsMenu+          FlHiddenInput -> return ()+        )+    itMaybe+  setFlag i WidgetFlagCopiedLabel+  setFlag i WidgetFlagCopiedTooltip+  return i++{# fun Fl_Multiline_Input_New as multilineInputNew' { `Int',`Int',`Int',`Int' , id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Multiline_Input_New_WithLabel as multilineInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Float_Input_New as floatInputNew' { `Int',`Int',`Int',`Int' , id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Float_Input_New_WithLabel as floatInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Int_Input_New as intInputNew' { `Int',`Int',`Int',`Int' , id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Int_Input_New_WithLabel as intInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Secret_Input_New as secretInputNew' { `Int',`Int',`Int',`Int' , id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Secret_Input_New_WithLabel as secretInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+inputNew :: Rectangle -> Maybe T.Text -> Maybe FlInputType -> IO (Ref Input)+inputNew rectangle l' flInputType =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+        construct =+          let normalInput = inputCustom rectangle l' (Just FlNormalInput) Nothing Nothing+              specialInput f = do+                lPtr <- maybe (return nullPtr) copyTextToCString l'+                destroyCallbacksFptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+                f x_pos y_pos width height lPtr destroyCallbacksFptr >>= toRef+          in+          case flInputType of+            Just FlNormalInput -> normalInput+            Just FlHiddenInput -> normalInput+            Just FlFloatInput -> specialInput floatInputNewWithLabel'+            Just FlIntInput -> specialInput intInputNewWithLabel'+            Just FlMultilineInput -> specialInput multilineInputNewWithLabel'+            Just FlSecretInput -> specialInput secretInputNewWithLabel'+            Nothing -> inputCustom rectangle l' Nothing Nothing Nothing+    in do+    i <- construct+    case flInputType of { Just FlHiddenInput -> setInputType i FlHiddenInput; _ -> return () }+    setFlag i WidgetFlagCopiedLabel+    setFlag i WidgetFlagCopiedTooltip+    return i++{# fun Fl_Input_Destroy as inputDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) InputBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    inputDestroy' winPtr+    return nullPtr++{# fun Fl_Input_set_value as setValue' { id `Ptr ()', `CString' } -> `Int' #}+instance (impl ~ (T.Text -> IO (Either NoChange ()))) => Op (SetValue ()) InputBase orig impl where+  runOp _ _ input text = withRef input $ \inputPtr -> copyTextToCString text >>= \t -> setValue' inputPtr t >>= return . successOrNoChange++{# fun Fl_Input_static_value as staticValue' { id `Ptr ()', `CString' } -> `Int' #}+instance (impl ~ (T.Text -> IO (Either NoChange ()))) => Op (StaticValue ()) InputBase orig impl where+  runOp _ _ input text = do+    status' <- withRef input $ \inputPtr -> copyTextToCString text >>= staticValue' inputPtr+    return $ successOrNoChange status'+{# fun Fl_Input_value as value' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetValue ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> value' inputPtr >>= cStringToText+{# fun Fl_Input_index as index' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (Char))) => Op (Index ()) InputBase orig impl where+  runOp _ _ input (AtIndex i) = withRef input $ \inputPtr -> index' inputPtr i >>= return . toEnum+{# fun Fl_Input_set_size as setSize' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (Size ->  IO ())) => Op (SetSize ()) InputBase orig impl where+  runOp _ _ input (Size (Width w') (Height h')) = withRef input $ \inputPtr -> setSize' inputPtr w' h'+{# fun Fl_Input_maximum_size as maximumSize' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetMaximumSize ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> maximumSize' inputPtr+{# fun Fl_Input_size as size' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetSize ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> size' inputPtr+{# fun Fl_Input_set_maximum_size as setMaximumSize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ())) => Op (SetMaximumSize ()) InputBase orig impl where+  runOp _ _ input m = withRef input $ \inputPtr -> setMaximumSize' inputPtr m+{# fun Fl_Input_position as position' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetPosition ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> position' inputPtr+{# fun Fl_Input_mark as mark' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetMark ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> mark' inputPtr+{# fun Fl_Input_set_position_with_cursor_mark as setPositionWithCursorMark' { id `Ptr ()',`Int',`Int' } -> `Int' #}+{# fun Fl_Input_set_position_n_n as setPositionNN' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Int -> Maybe Int -> IO (Either NoChange ()))) => Op (SetPosition ()) InputBase orig impl where+  runOp _ _ input point mark = do+   status' <- case mark of+      Just m ->  withRef input $ \inputPtr -> setPositionWithCursorMark' inputPtr point m+      Nothing -> withRef input $ \inputPtr -> setPositionNN' inputPtr point+   return $ successOrNoChange status'+{# fun Fl_Input_set_mark as setMark' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Int ->  IO (Either NoChange ()))) => Op (SetMark ()) InputBase orig impl where+  runOp _ _ input m = withRef input $ \inputPtr -> setMark' inputPtr m >>= return . successOrNoChange+{# fun Fl_Input_replace as replace' { id `Ptr ()',`Int',`Int', `CString' } -> `Int' #}+instance (impl ~ (IndexRange -> T.Text ->  IO (Either NoChange ()))) => Op (Replace ()) InputBase orig impl where+  runOp _ _ input (IndexRange (AtIndex b) (AtIndex e)) text = withRef input $ \inputPtr -> copyTextToCString text >>= \t -> replace' inputPtr b e t >>= return . successOrNoChange+{# fun Fl_Input_cut as cut' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either NoChange ()))) => Op (Cut ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> cut' inputPtr >>= return . successOrNoChange+{# fun Fl_Input_cut_bytes as cutBytes' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Int ->  IO (Either NoChange ()))) => Op (CutFromCursor ()) InputBase orig impl where+  runOp _ _ input n = withRef input $ \inputPtr -> cutBytes' inputPtr n >>= return . successOrNoChange+{# fun Fl_Input_cut_range as cutRange' { id `Ptr ()',`Int',`Int' } -> `Int' #}+instance (impl ~ (IndexRange ->  IO (Either NoChange ()))) => Op (CutRange ()) InputBase orig impl where+  runOp _ _ input (IndexRange (AtIndex a) (AtIndex b)) = withRef input $ \inputPtr -> cutRange' inputPtr a b >>= return . successOrNoChange+{# fun Fl_Input_insert as insert' { id `Ptr ()', `CString' } -> `Int' #}+instance (impl ~ (T.Text ->  IO (Either NoChange ()))) => Op (Insert ()) InputBase orig impl where+  runOp _ _ input t = withRef input $ \inputPtr -> copyTextToCString t >>= \t' -> insert' inputPtr t' >>= return . successOrNoChange+{# fun Fl_Input_insert_with_length as insertWithLength' { id `Ptr ()', `CString',`Int' } -> `Int' #}+instance (impl ~ (T.Text -> Int ->  IO (Either NoChange ()))) => Op (InsertWithLength ()) InputBase orig impl where+  runOp _ _ input t l = withRef input $ \inputPtr -> copyTextToCString t >>= \t' -> insertWithLength' inputPtr t' l >>= return . successOrNoChange+{# fun Fl_Input_copy as copy' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Clipboard ->  IO (Either NoChange ()))) => Op (Copy ()) InputBase orig impl where+  runOp _ _ input clipboard = do+    status' <- case clipboard of+      InternalClipboard -> withRef input $ \inputPtr -> copy' inputPtr 1+      SharedClipboard -> withRef input $ \inputPtr -> copy' inputPtr 0+    return $ successOrNoChange status'+{# fun Fl_Input_undo as undo' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either NoChange ()))) => Op (Undo ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> undo' inputPtr >>= return . successOrNoChange+{# fun Fl_Input_copy_cuts as copyCuts' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either NoChange ()))) => Op (CopyCuts ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> copyCuts' inputPtr >>= return . successOrNoChange+{# fun Fl_Input_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}+instance (impl ~ ( IO (Maybe ShortcutKeySequence))) => Op (GetShortcut ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> shortcut' inputPtr >>= return . cIntToKeySequence+{# fun Fl_Input_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) InputBase orig impl where+  runOp _ _ input (ShortcutKeySequence modifiers char) =+    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)+{# fun Fl_Input_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> textfont' inputPtr+{# fun Fl_Input_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) InputBase orig impl where+  runOp _ _ input s = withRef input $ \inputPtr -> setTextfont' inputPtr s+{# fun Fl_Input_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> textsize' inputPtr >>= return . FontSize+{# fun Fl_Input_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) InputBase orig impl where+  runOp _ _ input (FontSize s) = withRef input $ \inputPtr -> setTextsize' inputPtr s+{# fun Fl_Input_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> textcolor' inputPtr+{# fun Fl_Input_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) InputBase orig impl where+  runOp _ _ input n = withRef input $ \inputPtr -> setTextcolor' inputPtr n+{# fun Fl_Input_cursor_color as cursorColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetCursorColor ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> cursorColor' inputPtr+{# fun Fl_Input_set_cursor_color as setCursorColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetCursorColor ()) InputBase orig impl where+  runOp _ _ input n = withRef input $ \inputPtr -> setCursorColor' inputPtr n+{# fun Fl_Input_input_type as inputType' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (FlInputType))) => Op (GetInputType ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> inputType' inputPtr >>= return . toEnum . fromIntegral+{# fun Fl_Input_set_input_type as setInputType' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (FlInputType ->  IO ())) => Op (SetInputType ()) InputBase orig impl where+  runOp _ _ input t = withRef input $ \inputPtr -> setInputType' inputPtr (fromIntegral (fromEnum t))+{# fun Fl_Input_readonly as readonly' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (GetReadonly ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> readonly' inputPtr+{# fun Fl_Input_set_readonly as setReadonly' { id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (SetReadonly ()) InputBase orig impl where+  runOp _ _ input b = withRef input $ \inputPtr -> setReadonly' inputPtr b+{# fun Fl_Input_wrap as wrap' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Bool))) => Op (GetWrap ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> wrap' inputPtr >>= return . cToBool+{# fun Fl_Input_set_wrap as setWrap' { id `Ptr ()', `Int' } -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (SetWrap ()) InputBase orig impl where+  runOp _ _ input b = withRef input $ \inputPtr -> setWrap' inputPtr (cFromBool b)+{# fun Fl_Input_set_tab_nav as setTabNav' { id `Ptr ()', `Int'} -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (SetTabNav ()) InputBase orig impl where+  runOp _ _ input val = withRef input $ \inputPtr -> setTabNav' inputPtr (cFromBool val)+{# fun Fl_Input_tab_nav as tabNav' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Bool))) => Op (GetTabNav ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> tabNav' inputPtr >>= return . cToBool++{# fun Fl_Input_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawInputBase ::  Ref InputBase -> IO ()+drawInputBase input = withRef input $ \inputPtr -> drawSuper' inputPtr+{# fun Fl_Input_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleInputBase :: Ref InputBase -> Event ->  IO (Either UnknownEvent ())+handleInputBase input event =+  withRef+    input+    (\p -> do+        t <- getInputType input+        case t of+         FlSecretInput -> secretInputHandle' p (fromIntegral . fromEnum $ event)+         _             -> inputHandle' p (fromIntegral . fromEnum $ event)+    )+  >>= return . successOrUnknownEvent+{# fun Fl_Input_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeInputBase :: Ref InputBase -> Rectangle -> IO ()+resizeInputBase input rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef input $ \inputPtr -> resizeSuper' inputPtr x_pos y_pos width height+{# fun Fl_Input_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideInputBase ::  Ref InputBase -> IO ()+hideInputBase input = withRef input $ \inputPtr -> hideSuper' inputPtr+{# fun Fl_Input_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetInputBase ::  Ref InputBase -> IO ()+showWidgetInputBase input = withRef input $ \inputPtr -> showSuper' inputPtr+++{#fun Fl_Input_handle as inputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_Secret_Input_handle as secretInputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) InputBase orig impl where+  runOp _ _ input event =+    withRef+      input+      (\p -> do+          t <- getInputType input+          case t of+           FlSecretInput -> secretInputHandle' p (fromIntegral . fromEnum $ event)+           _             -> inputHandle' p (fromIntegral . fromEnum $ event)+      )+    >>= return . successOrUnknownEvent+{# fun Fl_Input_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> draw'' inputPtr+{# fun Fl_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) InputBase orig impl where+  runOp _ _ input rectangle = withRef input $ \inputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' inputPtr x_pos y_pos w_pos h_pos+{# fun Fl_Input_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> hide' inputPtr+{# fun Fl_Input_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) InputBase orig impl where+  runOp _ _ input = withRef input $ \inputPtr -> show' inputPtr+++{# fun Fl_Input_drawtext as drawtext' { id `Ptr ()', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (DrawText ()) InputBase orig impl where+  runOp _ _ input rectangle = withRef input (\inputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 drawtext' inputPtr x_pos y_pos w_pos h_pos)+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Input"+-- @++-- $functions+-- @+-- copy :: 'Ref' 'InputBase' -> 'Clipboard' -> 'IO' ('Either' 'NoChange' ())+--+-- copyCuts :: 'Ref' 'InputBase' -> 'IO' ('Either' 'NoChange' ())+--+-- cut :: 'Ref' 'InputBase' -> 'IO' ('Either' 'NoChange' ())+--+-- cutFromCursor :: 'Ref' 'InputBase' -> 'Int' -> 'IO' ('Either' 'NoChange' ())+--+-- cutRange :: 'Ref' 'InputBase' -> 'IndexRange' -> 'IO' ('Either' 'NoChange' ())+--+-- destroy :: 'Ref' 'InputBase' -> 'IO' ()+--+-- draw :: 'Ref' 'InputBase' -> 'IO' ()+--+-- drawText :: 'Ref' 'InputBase' -> 'Rectangle' -> 'IO' ()+--+-- getCursorColor :: 'Ref' 'InputBase' -> 'IO' ('Color')+--+-- getInputType :: 'Ref' 'InputBase' -> 'IO' ('FlInputType')+--+-- getMark :: 'Ref' 'InputBase' -> 'IO' ('Int')+--+-- getMaximumSize :: 'Ref' 'InputBase' -> 'IO' ('Int')+--+-- getPosition :: 'Ref' 'InputBase' -> 'IO' ('Int')+--+-- getReadonly :: 'Ref' 'InputBase' -> 'IO' ('Bool')+--+-- getShortcut :: 'Ref' 'InputBase' -> 'IO' ('Maybe' 'ShortcutKeySequence')+--+-- getSize :: 'Ref' 'InputBase' -> 'IO' ('Int')+--+-- getTabNav :: 'Ref' 'InputBase' -> 'IO' ('Bool')+--+-- getTextcolor :: 'Ref' 'InputBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'InputBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'InputBase' -> 'IO' ('FontSize')+--+-- getValue :: 'Ref' 'InputBase' -> 'IO' 'T.Text'+--+-- getWrap :: 'Ref' 'InputBase' -> 'IO' ('Bool')+--+-- handle :: 'Ref' 'InputBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'InputBase' -> 'IO' ()+--+-- index :: 'Ref' 'InputBase' -> 'AtIndex' -> 'IO' ('Char')+--+-- insert :: 'Ref' 'InputBase' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())+--+-- insertWithLength :: 'Ref' 'InputBase' -> 'T.Text' -> 'Int' -> 'IO' ('Either' 'NoChange' ())+--+-- replace :: 'Ref' 'InputBase' -> 'IndexRange' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())+--+-- resize :: 'Ref' 'InputBase' -> 'Rectangle' -> 'IO' ()+--+-- setCursorColor :: 'Ref' 'InputBase' -> 'Color' -> 'IO' ()+--+-- setInputType :: 'Ref' 'InputBase' -> 'FlInputType' -> 'IO' ()+--+-- setMark :: 'Ref' 'InputBase' -> 'Int' -> 'IO' ('Either' 'NoChange' ())+--+-- setMaximumSize :: 'Ref' 'InputBase' -> 'Int' -> 'IO' ()+--+-- setPosition :: 'Ref' 'InputBase' -> 'Int' -> 'Maybe' 'Int' -> 'IO' ('Either' 'NoChange' ())+--+-- setReadonly :: 'Ref' 'InputBase' -> 'Bool' -> 'IO' ()+--+-- setShortcut :: 'Ref' 'InputBase' -> 'ShortcutKeySequence' -> 'IO' ()+--+-- setSize :: 'Ref' 'InputBase' -> 'Size' -> 'IO' ()+--+-- setTabNav :: 'Ref' 'InputBase' -> 'Bool' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'InputBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'InputBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'InputBase' -> 'FontSize' -> 'IO' ()+--+-- setValue :: 'Ref' 'InputBase' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())+--+-- setWrap :: 'Ref' 'InputBase' -> 'Bool' -> 'IO' ()+--+-- showWidget :: 'Ref' 'InputBase' -> 'IO' ()+--+-- staticValue :: 'Ref' 'InputBase' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())+--+-- undo :: 'Ref' 'InputBase' -> 'IO' ('Either' 'NoChange' ())+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/LightButton.chs view
@@ -0,0 +1,132 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.LightButton+    (+     lightButtonNew,+     lightButtonCustom+   , drawLightButtonBase+   , handleLightButtonBase+   , resizeLightButtonBase+   , hideLightButtonBase+   , showWidgetLightButtonBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Light_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget+{# fun Fl_OverriddenLight_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenLight_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+lightButtonCustom ::+       Rectangle                         -- ^ The bounds of this LightButton+    -> Maybe T.Text                      -- ^ The LightButton label+    -> Maybe (Ref LightButton -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs LightButton)      -- ^ Optional custom widget functions+    -> IO (Ref LightButton)+lightButtonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Light_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Light_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+lightButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref LightButton)+lightButtonNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Light_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawLightButtonBase ::  Ref LightButtonBase -> IO ()+drawLightButtonBase lightButton = withRef lightButton $ \lightButtonPtr -> drawSuper' lightButtonPtr+{# fun Fl_Light_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleLightButtonBase :: Ref LightButtonBase -> Event ->  IO (Either UnknownEvent ())+handleLightButtonBase lightButton event = withRef lightButton $ \lightButtonPtr -> handleSuper' lightButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Light_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeLightButtonBase :: Ref LightButtonBase -> Rectangle -> IO ()+resizeLightButtonBase lightButton rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef lightButton $ \lightButtonPtr -> resizeSuper' lightButtonPtr x_pos y_pos width height+{# fun Fl_Light_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideLightButtonBase ::  Ref LightButtonBase -> IO ()+hideLightButtonBase lightButton = withRef lightButton $ \lightButtonPtr -> hideSuper' lightButtonPtr+{# fun Fl_Light_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetLightButtonBase ::  Ref LightButtonBase -> IO ()+showWidgetLightButtonBase lightButton = withRef lightButton $ \lightButtonPtr -> showSuper' lightButtonPtr+++{# fun Fl_Light_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) LightButtonBase orig impl where+  runOp _ _ button = swapRef button $+                    \buttonPtr ->+                     widgetDestroy' buttonPtr >>+                     return nullPtr++{#fun Fl_DerivedLight_Button_handle as buttonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ ((Event -> IO (Either UnknownEvent ())))) => Op (Handle ()) LightButtonBase orig impl where+  runOp _ _ button event = withRef button (\p -> buttonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedLight_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((Rectangle -> IO ()))) => Op (Resize ()) LightButtonBase orig impl where+  runOp _ _ button rectangle = withRef button $ \buttonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' buttonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedLight_Button_show as buttonShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ ((IO ()))) => Op (ShowWidget ()) LightButtonBase orig impl where+  runOp _ _ button = withRef button $ (\p -> buttonShow' p)+{# fun Fl_DerivedLight_Button_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (( IO ()))) => Op (Hide ()) LightButtonBase orig impl where+  runOp _ _ button = withRef button $ \buttonPtr -> hide' buttonPtr++{# fun Fl_Light_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) LightButtonBase orig impl where+  runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> draw'' lightButtonPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.LightButton"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'LightButtonBase' -> 'IO' ()+--+-- draw :: 'Ref' 'LightButtonBase' -> 'IO' ()+--+-- handle :: 'Ref' 'LightButtonBase' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+--+-- hide :: 'Ref' 'LightButtonBase' -> ( 'IO' ())+--+-- resize :: 'Ref' 'LightButtonBase' -> ('Rectangle' -> 'IO' ())+--+-- showWidget :: 'Ref' 'LightButtonBase' -> ('IO' ())+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/MenuBar.chs view
@@ -0,0 +1,131 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.MenuBar+    (+     menuBarNew,+     menuBarCustom+   , drawMenuBarBase+   , handleMenuBarBase+   , resizeMenuBarBase+   , hideMenuBarBase+   , showWidgetMenuBarBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Menu_BarC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenMenu_Bar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenMenu_Bar_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+menuBarCustom ::+       Rectangle                         -- ^ The bounds of this MenuBar+    -> Maybe T.Text                      -- ^ The MenuBar label+    -> Maybe (Ref MenuBar -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs MenuBar)      -- ^ Optional custom widget functions+    -> IO (Ref MenuBar)+menuBarCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Menu_Bar_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Menu_Bar_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+menuBarNew :: Rectangle -> Maybe T.Text -> IO (Ref MenuBar)+menuBarNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Menu_Bar_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) MenuBarBase orig impl where+  runOp _ _ menuBar = swapRef menuBar $+                          \menuBarPtr ->+                             widgetDestroy' menuBarPtr >>+                             return nullPtr++{# fun Fl_Menu_Bar_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawMenuBarBase ::  Ref MenuBarBase -> IO ()+drawMenuBarBase menuBar = withRef menuBar $ \menuBarPtr -> drawSuper' menuBarPtr+{# fun Fl_Menu_Bar_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleMenuBarBase :: Ref MenuBarBase -> Event ->  IO (Either UnknownEvent ())+handleMenuBarBase menuBar event = withRef menuBar $ \menuBarPtr -> handleSuper' menuBarPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Menu_Bar_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeMenuBarBase :: Ref MenuBarBase -> Rectangle -> IO ()+resizeMenuBarBase menuBar rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef menuBar $ \menuBarPtr -> resizeSuper' menuBarPtr x_pos y_pos width height+{# fun Fl_Menu_Bar_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideMenuBarBase ::  Ref MenuBarBase -> IO ()+hideMenuBarBase menuBar = withRef menuBar $ \menuBarPtr -> hideSuper' menuBarPtr+{# fun Fl_Menu_Bar_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetMenuBarBase ::  Ref MenuBarBase -> IO ()+showWidgetMenuBarBase menuBar = withRef menuBar $ \menuBarPtr -> showSuper' menuBarPtr++{# fun Fl_Menu_Bar_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) MenuBarBase orig impl where+  runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> draw'' menuBarPtr+{#fun Fl_Menu_Bar_handle as menuBarHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) MenuBarBase orig impl where+  runOp _ _ menuBar event = withRef menuBar (\p -> menuBarHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Menu_Bar_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) MenuBarBase orig impl where+  runOp _ _ menuBar rectangle = withRef menuBar $ \menuBarPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' menuBarPtr x_pos y_pos w_pos h_pos+{# fun Fl_Menu_Bar_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) MenuBarBase orig impl where+  runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> hide' menuBarPtr+{# fun Fl_Menu_Bar_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) MenuBarBase orig impl where+  runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> show' menuBarPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuBar"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'MenuBarBase' -> 'IO' ()+--+-- draw :: 'Ref' 'MenuBarBase' -> 'IO' ()+--+-- handle :: 'Ref' 'MenuBarBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'MenuBarBase' -> 'IO' ()+--+-- resize :: 'Ref' 'MenuBarBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'MenuBarBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/MenuButton.chs view
@@ -0,0 +1,150 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.MenuButton+    (+     -- * Constructor+     menuButtonNew,+     MenuButtonType(..),+     menuButtonCustom+   , drawMenuButtonBase+   , handleMenuButtonBase+   , resizeMenuButtonBase+   , hideMenuButtonBase+   , showWidgetMenuButtonBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Menu_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget++#c+enum MenuButtonType {+  NormalMenuButton = NORMAL,+  Popup1MenuButton = POPUP1,+  Popup2MenuButton = POPUP2,+  Popup12MenuButton = POPUP12,+  Popup3MenuButton = POPUP3,+  Popup13MenuButton = POPUP13,+  Popup123MenuButton = POPUP123,+};+#endc+{#enum MenuButtonType {} deriving (Show, Eq) #}+{# fun Fl_OverriddenMenu_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenMenu_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+menuButtonCustom ::+       Rectangle                         -- ^ The bounds of this MenuButton+    -> Maybe T.Text                      -- ^ The MenuButton label+    -> Maybe (Ref MenuButton -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs MenuButton)      -- ^ Optional custom widget functions+    -> IO (Ref MenuButton)+menuButtonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Menu_Button_New as menuButtonNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Menu_Button_New_WithLabel as menuButtonNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+menuButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref MenuButton)+menuButtonNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Menu_Button_Destroy as menuButtonDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) MenuButtonBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    menuButtonDestroy' winPtr+    return nullPtr+{#fun Fl_Menu_Button_popup as menuButtonPopup' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref MenuItem)))) => Op (Popup ()) MenuButtonBase orig impl where+  runOp _ _ menu_bar = withRef menu_bar (\p -> menuButtonPopup' p >>= toMaybeRef)++{# fun Fl_Menu_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawMenuButtonBase ::  Ref MenuButtonBase -> IO ()+drawMenuButtonBase menuButton = withRef menuButton $ \menuButtonPtr -> drawSuper' menuButtonPtr+{# fun Fl_Menu_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleMenuButtonBase :: Ref MenuButtonBase -> Event ->  IO (Either UnknownEvent ())+handleMenuButtonBase menuButton event = withRef menuButton $ \menuButtonPtr -> handleSuper' menuButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Menu_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeMenuButtonBase :: Ref MenuButtonBase -> Rectangle -> IO ()+resizeMenuButtonBase menuButton rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef menuButton $ \menuButtonPtr -> resizeSuper' menuButtonPtr x_pos y_pos width height+{# fun Fl_Menu_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideMenuButtonBase ::  Ref MenuButtonBase -> IO ()+hideMenuButtonBase menuButton = withRef menuButton $ \menuButtonPtr -> hideSuper' menuButtonPtr+{# fun Fl_Menu_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetMenuButtonBase ::  Ref MenuButtonBase -> IO ()+showWidgetMenuButtonBase menuButton = withRef menuButton $ \menuButtonPtr -> showSuper' menuButtonPtr++{# fun Fl_Menu_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) MenuButtonBase orig impl where+  runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> draw'' menuButtonPtr+{#fun Fl_Menu_Button_handle as menuButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) MenuButtonBase orig impl where+  runOp _ _ menuButton event = withRef menuButton (\p -> menuButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Menu_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) MenuButtonBase orig impl where+  runOp _ _ menuButton rectangle = withRef menuButton $ \menuButtonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' menuButtonPtr x_pos y_pos w_pos h_pos+{# fun Fl_Menu_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) MenuButtonBase orig impl where+  runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> hide' menuButtonPtr+{# fun Fl_Menu_Button_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) MenuButtonBase orig impl where+  runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> show' menuButtonPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuButton"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'MenuButtonBase' -> 'IO' ()+--+-- draw :: 'Ref' 'MenuButtonBase' -> 'IO' ()+--+-- handle :: 'Ref' 'MenuButtonBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'MenuButtonBase' -> 'IO' ()+--+-- popup :: 'Ref' 'MenuButtonBase' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))+--+-- resize :: 'Ref' 'MenuButtonBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'MenuButtonBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/MenuItem.chs view
@@ -0,0 +1,459 @@+{-# LANGUAGE OverloadedStrings, CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.MenuItem+  (+   menuItemNew,+   menuItemCustom,+   addMenuItem,+   MenuItemName(..),+   MenuItemPointer(..),+   MenuItemReference(..),+   MenuItemLocator(..),+   toMenuItemDrawF,+   drawMenuItemBase+   -- Hierarchy+   --+   -- $hierarchy+   --++   -- * Functions+   --+   -- $functions+  )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Menu_ItemC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget(defaultDestroyCallbacks)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++data MenuItemPointer = forall a. (Parent a MenuItemBase) => MenuItemPointer (Ref a)+newtype MenuItemName = MenuItemName T.Text+data MenuItemReference = MenuItemByIndex AtIndex | MenuItemByPointer MenuItemPointer+data MenuItemLocator = MenuItemPointerLocator MenuItemPointer | MenuItemNameLocator MenuItemName++toMenuItemDrawF ::+  (Parent a MenuItemBase) => (Ref a -> Rectangle -> Maybe (Ref MenuPrimBase) -> Bool -> IO ()) ->+  IO (FunPtr MenuItemDrawF)+toMenuItemDrawF f =+    mkMenuItemDrawFPtr (\menuItemPtr x' y' w' h' menuPtr selected -> do+                           pp <- wrapNonNull menuItemPtr "Null pointer : toMenuItemDrawFPrim"+                           maybeMenu <- toMaybeRef menuPtr+                           let rectangle = toRectangle (fromIntegral x',fromIntegral y',fromIntegral w',fromIntegral h')+                           f (castTo (wrapInRef pp)) rectangle maybeMenu (cToBool selected)+                       )+  +{# fun Fl_Menu_Item_New as new' { id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+menuItemNew :: IO (Ref MenuItem)+menuItemNew = do+  fptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+  new' fptr >>= toRef++{# fun Fl_Menu_Item_New_With_Draw as newWithDraw' { id `FunPtr MenuItemDrawF', id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+menuItemCustom :: (Parent a MenuItemBase) => (Ref a -> Rectangle -> Maybe (Ref MenuPrimBase) -> Bool -> IO ()) -> IO (Ref MenuItem)+menuItemCustom drawF = do+  fPtr <- toMenuItemDrawF drawF+  destroyFptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+  p <- newWithDraw' fPtr destroyFptr+  toRef p++{# fun Fl_Menu_Item_Destroy as destroy' { id `Ptr ()' } -> `()' id #}+instance (impl ~ IO ()) => Op (Destroy ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> destroy' menu_itemPtr++{# fun Fl_Menu_Item_next_with_step as nextWithStep' { id `Ptr ()',`Int' } -> `Ptr ()' id #}+instance (Parent a MenuItemBase, impl ~ (Int -> IO (Maybe (Ref a)))) => Op (NextWithStep ()) MenuItemBase orig impl where+  runOp _ _ menu_item step =+    withRef menu_item $ \menu_itemPtr -> nextWithStep' menu_itemPtr step >>= toMaybeRef++{# fun Fl_Menu_Item_next as next' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~  IO (Maybe (Ref MenuItemBase))) => Op (Next ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> next' menu_itemPtr >>= toMaybeRef++{# fun Fl_Menu_Item_first as first' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~  IO (Maybe (Ref MenuItemBase))) => Op (GetFirst ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> first' menu_itemPtr >>=toMaybeRef++{# fun Fl_Menu_Item_label as label' { id `Ptr ()' } -> `CString' #}+instance (impl ~  IO T.Text) => Op (GetLabel ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> label' menu_itemPtr >>= cStringToText++{# fun Fl_Menu_Item_set_label as setLabel' { id `Ptr ()', `CString' } -> `()' #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetLabel ()) MenuItemBase orig impl where+  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> copyTextToCString a >>= setLabel' menu_itemPtr++{# fun Fl_Menu_Item_set_label_with_labeltype as setLabelWithLabeltype' { id `Ptr ()',cFromEnum `Labeltype', `CString' } -> `()' #}+instance (impl ~ (Labeltype -> T.Text ->  IO ())) => Op (SetLabelWithLabeltype ()) MenuItemBase orig impl where+  runOp _ _ menu_item labeltype b = withRef menu_item $ \menu_itemPtr -> copyTextToCString b >>= setLabelWithLabeltype' menu_itemPtr labeltype++{# fun Fl_Menu_Item_labeltype as labeltype' { id `Ptr ()' } -> `Labeltype' cToEnum #}+instance (impl ~  IO (Labeltype)) => Op (GetLabeltype ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labeltype' menu_itemPtr++{# fun Fl_Menu_Item_set_labeltype as setLabeltype' { id `Ptr ()',cFromEnum `Labeltype' } -> `()' #}+instance (impl ~ (Labeltype ->  IO ())) => Op (SetLabeltype ()) MenuItemBase orig impl where+  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> setLabeltype' menu_itemPtr a++{# fun Fl_Menu_Item_labelcolor as labelcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~  IO (Color)) => Op (GetLabelcolor ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labelcolor' menu_itemPtr++{# fun Fl_Menu_Item_set_labelcolor as setLabelcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetLabelcolor ()) MenuItemBase orig impl where+  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> setLabelcolor' menu_itemPtr a++{# fun Fl_Menu_Item_labelfont as labelfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~  IO (Font)) => Op (GetLabelfont ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labelfont' menu_itemPtr++{# fun Fl_Menu_Item_set_labelfont as setLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetLabelfont ()) MenuItemBase orig impl where+  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> setLabelfont' menu_itemPtr a++{# fun Fl_Menu_Item_labelsize as labelsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~  IO (FontSize)) => Op (GetLabelsize ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labelsize' menu_itemPtr >>= return . FontSize++{# fun Fl_Menu_Item_set_labelsize as setLabelsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetLabelsize ()) MenuItemBase  orig impl where+  runOp _ _ menu_item (FontSize pix) = withRef menu_item $ \menu_itemPtr -> setLabelsize' menu_itemPtr pix++{# fun Fl_Menu_Item_set_callback as setCallback' { id `Ptr ()', id `FunPtr CallbackWithUserDataPrim'} -> `FunPtr CallbackWithUserDataPrim' id #}+instance (impl ~ ((Ref orig -> IO ()) -> IO ()) ) => Op (SetCallback ()) MenuItemBase orig impl where+  runOp _ _ menu_item c =+     withRef menu_item $ \menu_itemPtr -> do+      ptr <- toCallbackPrim c+      oldCb <- setCallback' menu_itemPtr (castFunPtr ptr)+      if (oldCb == nullFunPtr)+      then return ()+      else freeHaskellFunPtr oldCb++{# fun Fl_Menu_Item_callback as getCallback' { id `Ptr ()' } -> `FunPtr CallbackWithUserDataPrim' id #}+instance (impl ~ (IO (FunPtr CallbackWithUserDataPrim))) => Op (GetCallback ()) MenuItemBase orig impl where+  runOp _ _ menuItem = withRef menuItem $ \menuItemPtr -> getCallback' menuItemPtr++{# fun Fl_Menu_Item_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}+instance (impl ~  IO (Maybe ShortcutKeySequence)) => Op (GetShortcut ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> shortcut' menu_itemPtr >>= return . cIntToKeySequence++{# fun Fl_Menu_Item_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) MenuItemBase orig impl where+  runOp _ _ input (ShortcutKeySequence modifiers char) =+    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)++{# fun Fl_Menu_Item_submenu as submenu' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~  IO (Bool)) => Op (Submenu ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> submenu' menu_itemPtr++{# fun Fl_Menu_Item_checkbox as checkbox' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~  IO (Bool)) => Op (Checkbox ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> checkbox' menu_itemPtr++{# fun Fl_Menu_Item_radio as radio' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~  IO (Bool)) => Op (Radio ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> radio' menu_itemPtr++{# fun Fl_Menu_Item_value as value' { id `Ptr ()' } -> `Int' #}+instance (impl ~  IO (Int)) => Op (GetValue ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> value' menu_itemPtr++{# fun Fl_Menu_Item_set as set' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (Set ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> set' menu_itemPtr++{# fun Fl_Menu_Item_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (Clear ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> clear' menu_itemPtr++{# fun Fl_Menu_Item_setonly as setonly' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (Setonly ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> setonly' menu_itemPtr++{# fun Fl_Menu_Item_visible as visible' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~  IO (Bool)) => Op (Visible ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> visible' menu_itemPtr++{# fun Fl_Menu_Item_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (ShowWidget ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> show' menu_itemPtr++{# fun Fl_Menu_Item_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (Hide ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> hide' menu_itemPtr++{# fun Fl_Menu_Item_active as active' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~  IO (Bool)) => Op (Active ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> active' menu_itemPtr++{# fun Fl_Menu_Item_activate as activate' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (Activate ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> activate' menu_itemPtr++{# fun Fl_Menu_Item_deactivate as deactivate' { id `Ptr ()' } -> `()' #}+instance (impl ~  IO ()) => Op (Deactivate ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> deactivate' menu_itemPtr++{# fun Fl_Menu_Item_activevisible as activevisible' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~  IO (Bool)) => Op (Activevisible ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> activevisible' menu_itemPtr++{# fun Fl_Menu_Item_measure as measure' { id `Ptr ()',alloca- `Int' peekIntConv*,id `Ptr ()' } -> `Int' #}+instance (Parent a MenuPrimBase, impl ~ (Ref a ->  IO (Size))) => Op (Measure ()) MenuItemBase orig impl where+  runOp _ _ menu_item menu' = withRef menu_item $ \menu_itemPtr -> withRef menu' $ \menuPtr -> measure' menu_itemPtr menuPtr >>= \(h', w') -> return (Size (Width w') (Height h'))++{# fun Fl_Menu_Item_draw_with_t as drawWithT' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (Parent a MenuPrimBase, impl ~ (Rectangle -> Ref a -> Bool ->  IO ())) => Op (DrawWithT ()) MenuItemBase orig impl where+  runOp _ _ menu_item rectangle menu' selected =+    let (x_pos', y_pos', width', height') = fromRectangle rectangle in+    withRef menu_item $ \menu_itemPtr -> withRef menu' $ \menuPtr -> drawWithT' menu_itemPtr x_pos' y_pos' width' height' menuPtr selected++drawMenuItemBase :: Parent a MenuPrimBase => Ref MenuItemBase -> Rectangle -> Ref a ->  IO ()+drawMenuItemBase menu_item rectangle menu' =+  let (x_pos', y_pos', width', height') = fromRectangle rectangle in+  withRef menu_item $ \menu_itemPtr ->+  withRef menu' $ \menuPtr -> draw' menu_itemPtr x_pos' y_pos' width' height' menuPtr++{# fun Fl_DerivedMenu_Item_draw as draw' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()' } -> `()' #}+instance (Parent a MenuPrim, impl ~ (Rectangle -> Ref a ->  IO ())) => Op (Draw ()) MenuItemBase orig impl where+  runOp _ _ menu_item rectangle menu' =+    let (x_pos', y_pos', width', height') = fromRectangle rectangle in+    withRef menu_item $ \menu_itemPtr ->+    withRef menu' $ \menuPtr -> draw' menu_itemPtr x_pos' y_pos' width' height' menuPtr++{# fun Fl_Menu_Item_flags as flags' { id `Ptr ()' } -> `Int' #}+instance (impl ~  IO (Maybe MenuItemFlags)) => Op (GetFlags ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> flags' menu_itemPtr >>= return . intToMenuItemFlags++{# fun Fl_Menu_Item_set_flags as setFlags' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (MenuItemFlags ->  IO ())) => Op (SetFlags ()) MenuItemBase orig impl where+  runOp _ _ menu_item flags = withRef menu_item $ \menu_itemPtr -> setFlags' menu_itemPtr (menuItemFlagsToInt flags)++{# fun Fl_Menu_Item_text as text' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetText ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> text' menu_itemPtr >>= cStringToText++{# fun Fl_Menu_Item_pulldown_with_args as pulldownWithArgs' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()', id `Ptr ()', id `Ptr ()', fromBool `Bool'} -> `Ptr ()' id #}+instance (Parent a MenuPrimBase, Parent b MenuItemBase, Parent c MenuItemBase, impl ~ (Rectangle -> Maybe (Ref a) -> Maybe (Ref b) -> Maybe (Ref c) -> Maybe Bool -> IO (Maybe (Ref MenuItem)))) => Op (Pulldown ()) MenuItemBase orig impl where+  runOp _ _ menu_item rectangle picked' template_menu title menu_barFlag =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+        menu_bar = maybe False id menu_barFlag+    in+     withRef menu_item $ \menu_itemPtr ->+     withMaybeRef picked' $ \pickedPtr ->+     withMaybeRef template_menu $ \template_menuPtr ->+     withMaybeRef title $ \titlePtr ->+     pulldownWithArgs' menu_itemPtr x_pos y_pos width height pickedPtr template_menuPtr titlePtr menu_bar >>= toMaybeRef++{# fun Fl_Menu_Item_popup_with_args as popupWithArgs' { id `Ptr ()',`Int',`Int', id `Ptr CChar' , id `Ptr ()', id `Ptr ()'} -> `Ptr ()' id #}+instance (Parent a MenuItemBase, Parent b MenuPrimBase, Parent c MenuItemBase, impl ~ (Position -> Maybe T.Text -> Maybe (Ref a) -> Maybe (Ref b) -> IO (Maybe (Ref c)))) => Op (Popup ()) MenuItemBase orig impl where+  runOp _ _ menu_item (Position (X x_pos) (Y y_pos)) title picked' template_menu =+    withRef menu_item $ \menu_itemPtr ->+    withMaybeRef picked' $ \pickedPtr ->+    withMaybeRef template_menu $ \template_menuPtr ->+    maybeNew copyTextToCString title >>= \titlePtr ->+    popupWithArgs' menu_itemPtr x_pos y_pos titlePtr pickedPtr template_menuPtr >>= toMaybeRef++{# fun Fl_Menu_Item_test_shortcut as testShortcut' { id `Ptr ()' } -> `Ptr ()' id #}+instance (Parent a MenuItemBase, impl ~ ( IO (Maybe (Ref a)))) => Op (TestShortcut ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> testShortcut' menu_itemPtr >>= toMaybeRef++{# fun Fl_Menu_Item_find_shortcut_with_ip_require_alt as findShortcutWithIpRequireAlt' { id `Ptr ()',id `Ptr CInt',`Bool' } -> `Ptr ()' id #}+instance (Parent a MenuItemBase, impl ~ (Maybe AtIndex -> Bool -> IO (Maybe (Ref a)))) => Op (FindShortcut ()) MenuItemBase orig impl where+  runOp _ _ menu_item index' require_alt =+    withRef menu_item $ \menu_itemPtr ->+        maybeNew (new . fromIntegral) (fmap (\(AtIndex i) -> i) index') >>= \index_Ptr ->+            findShortcutWithIpRequireAlt' menu_itemPtr index_Ptr require_alt >>= toMaybeRef++{# fun Fl_Menu_Item_do_callback as doCallback' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref Widget  ->  IO ())) => Op (DoCallback ()) MenuItemBase orig impl where+  runOp _ _ menu_item o = withRef menu_item $ \menu_itemPtr -> withRef o $ \oPtr -> doCallback' menu_itemPtr oPtr++addMenuItem ::+  (Parent menuItem MenuItemBase) =>+  Either (Ref MenuPrimBase) (Ref MenuItemBase) ->+  T.Text ->+  Maybe Shortcut ->+  Maybe (Ref menuItem -> IO ()) ->+  MenuItemFlags ->+  (Ptr () -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->+  (Ptr () -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->+  IO (AtIndex)+addMenuItem refMenuOrMenuItem name shortcut cb flags addWithFlags addWithShortcutnameFlags =+     either+       (\menu -> withRef menu $ \menuPtr ->+           go "Menu_.add: Shortcut format string cannot be empty" menuPtr)+       (\menuItem -> withRef menuItem $ \menuItemPtr ->+           go "MenuItem.add: Shortcut format string cannot be empty" menuItemPtr)+       refMenuOrMenuItem+    where+      go :: String -> Ptr () -> IO AtIndex+      go errorMsg menu_Ptr = do+        let combinedFlags = menuItemFlagsToInt flags+        ptr <- maybe (return (castPtrToFunPtr nullPtr)) toCallbackPrim cb+        idx' <- case shortcut of+                 Just s' -> case s' of+                   KeySequence (ShortcutKeySequence modifiers char) -> do+                     nameString <- copyTextToCString name+                     addWithFlags+                      menu_Ptr+                      nameString+                      (keySequenceToCInt modifiers char)+                      (castFunPtr ptr)+                      combinedFlags+                   KeyFormat format' ->+                     if (not $ T.null format') then do+                       nameString <- copyTextToCString name+                       formatString <- copyTextToCString format'+                       addWithShortcutnameFlags+                         menu_Ptr+                         nameString+                         formatString+                         (castFunPtr ptr)+                         combinedFlags+                     else error errorMsg+                 Nothing -> do+                     nameString <- copyTextToCString name+                     addWithFlags+                      menu_Ptr+                      nameString+                      0+                      (castFunPtr ptr)+                      combinedFlags+        return (AtIndex idx')++{# fun Fl_Menu_Item_insert_with_flags as insertWithFlags' { id `Ptr ()',`Int', `CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}+{# fun Fl_Menu_Item_add_with_flags as addWithFlags' { id `Ptr ()', `CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}+{# fun Fl_Menu_Item_add_with_shortcutname_flags as addWithShortcutnameFlags' { id `Ptr ()', `CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+instance (Parent a MenuItemBase, impl ~ (T.Text -> Maybe Shortcut -> Maybe (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Add ()) MenuItemBase orig impl where+  runOp _ _ menu_item name shortcut cb flags =+    addMenuItem (Right menu_item) name shortcut cb flags addWithFlags' addWithShortcutnameFlags'++instance (Parent a MenuItemBase, impl ~ (AtIndex -> T.Text -> Maybe ShortcutKeySequence -> (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Insert ()) MenuItemBase orig impl where+  runOp _ _ menu_item (AtIndex index') name ks cb flags =+    withRef menu_item $ \menu_itemPtr ->+      let combinedFlags = menuItemFlagsToInt flags+          shortcutCode = maybe 0 (\(ShortcutKeySequence modifiers char) -> keySequenceToCInt modifiers char ) ks+      in do+        ptr <- toCallbackPrim cb+        nameString <- copyTextToCString name+        idx' <- insertWithFlags'+                 menu_itemPtr+                 index'+                 nameString+                 shortcutCode+                 (castFunPtr ptr)+                 combinedFlags+        return (AtIndex idx')++{# fun Fl_Menu_Item_size as size' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetSize ()) MenuItemBase orig impl where+  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> size' menu_itemPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.MenuItem"+-- @++-- $functions+-- @+-- activate :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- active :: 'Ref' 'MenuItemBase' -> 'IO' ('Bool')+--+-- activevisible :: 'Ref' 'MenuItemBase' -> 'IO' ('Bool')+--+-- add:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')+--+-- checkbox :: 'Ref' 'MenuItemBase' -> 'IO' ('Bool')+--+-- clear :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- deactivate :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- destroy :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- doCallback :: 'Ref' 'MenuItemBase' -> 'Ref' 'Widget' -> 'IO' ()+--+-- draw:: ('Parent' a 'MenuPrim') => 'Ref' 'MenuItemBase' -> 'Rectangle' -> 'Ref' a -> 'IO' ()+--+-- drawWithT:: ('Parent' a 'MenuPrimBase') => 'Ref' 'MenuItemBase' -> 'Rectangle' -> 'Ref' a -> 'Bool' -> 'IO' ()+--+-- findShortcut:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'Maybe' 'AtIndex' -> 'Bool' -> 'IO' ('Maybe' ('Ref' a))+--+-- getCallback :: 'Ref' 'MenuItemBase' -> 'IO' ('FunPtr' 'CallbackWithUserDataPrim')+--+-- getFirst :: 'Ref' 'MenuItemBase' -> 'IO' ('Maybe' ('Ref' 'MenuItemBase'))+--+-- getFlags :: 'Ref' 'MenuItemBase' -> 'IO' ('Maybe' 'MenuItemFlags')+--+-- getLabel :: 'Ref' 'MenuItemBase' -> 'IO' 'T.Text'+--+-- getLabelcolor :: 'Ref' 'MenuItemBase' -> 'IO' ('Color')+--+-- getLabelfont :: 'Ref' 'MenuItemBase' -> 'IO' ('Font')+--+-- getLabelsize :: 'Ref' 'MenuItemBase' -> 'IO' ('FontSize')+--+-- getLabeltype :: 'Ref' 'MenuItemBase' -> 'IO' ('Labeltype')+--+-- getShortcut :: 'Ref' 'MenuItemBase' -> 'IO' ('Maybe' 'ShortcutKeySequence')+--+-- getSize :: 'Ref' 'MenuItemBase' -> 'IO' ('Int')+--+-- getText :: 'Ref' 'MenuItemBase' -> 'IO' 'T.Text'+--+-- getValue :: 'Ref' 'MenuItemBase' -> 'IO' ('Int')+--+-- hide :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- insert:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'AtIndex' -> 'T.Text' -> 'Maybe' 'ShortcutKeySequence' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')+--+-- measure:: ('Parent' a 'MenuPrimBase') => 'Ref' 'MenuItemBase' -> 'Ref' a -> 'IO' ('Size')+--+-- next :: 'Ref' 'MenuItemBase' -> 'IO' ('Maybe' ('Ref' 'MenuItemBase'))+--+-- nextWithStep:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'Int' -> 'IO' ('Maybe' ('Ref' a))+--+-- popup:: ('Parent' a 'MenuItemBase', 'Parent' b 'MenuPrimBase', 'Parent' c 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'Position' -> 'Maybe' 'T.Text' -> 'Maybe' ('Ref' a) -> 'Maybe' ('Ref' b) -> 'IO' ('Maybe' ('Ref' c))+--+-- pulldown:: ('Parent' a 'MenuPrimBase', 'Parent' b 'MenuItemBase', 'Parent' c 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'Rectangle' -> 'Maybe' ('Ref' a) -> 'Maybe' ('Ref' b) -> 'Maybe' ('Ref' c) -> 'Maybe' 'Bool' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))+--+-- radio :: 'Ref' 'MenuItemBase' -> 'IO' ('Bool')+--+-- set :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- setCallback :: 'Ref' 'MenuItemBase' -> ('Ref' orig -> 'IO' ()) -> 'IO' ()+--+-- setFlags :: 'Ref' 'MenuItemBase' -> 'MenuItemFlags' -> 'IO' ()+--+-- setLabel :: 'Ref' 'MenuItemBase' -> 'T.Text' -> 'IO' ()+--+-- setLabelWithLabeltype :: 'Ref' 'MenuItemBase' -> 'Labeltype' -> 'T.Text' -> 'IO' ()+--+-- setLabelcolor :: 'Ref' 'MenuItemBase' -> 'Color' -> 'IO' ()+--+-- setLabelfont :: 'Ref' 'MenuItemBase' -> 'Font' -> 'IO' ()+--+-- setLabelsize :: 'Ref' 'MenuItemBase' -> 'FontSize' -> 'IO' ()+--+-- setLabeltype :: 'Ref' 'MenuItemBase' -> 'Labeltype' -> 'IO' ()+--+-- setShortcut :: 'Ref' 'MenuItemBase' -> 'ShortcutKeySequence' -> 'IO' ()+--+-- setonly :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- showWidget :: 'Ref' 'MenuItemBase' -> 'IO' ()+--+-- submenu :: 'Ref' 'MenuItemBase' -> 'IO' ('Bool')+--+-- testShortcut:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuItemBase' -> 'IO' ('Maybe' ('Ref' a))+--+-- visible :: 'Ref' 'MenuItemBase' -> 'IO' ('Bool')+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/MenuPrim.chs view
@@ -0,0 +1,425 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.MenuPrim+    (+     menu_New,+     menu_Custom,+     insertMenuItem+   , handleMenuPrimBase+   , resizeMenuPrimBase+   , hideMenuPrimBase+   , showWidgetMenuPrimBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Menu_C.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.MenuItem+import qualified Data.ByteString.Char8 as C+import Control.Exception++{# fun Fl_Menu__New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Menu__New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+{# fun Fl_OverriddenMenu__New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenMenu__New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+menu_Custom :: Rectangle -> Maybe T.Text -> Maybe (CustomWidgetFuncs MenuPrim) -> IO (Ref MenuPrim)+menu_Custom rectangle l' funcs' =+  widgetMaker+    rectangle+    l'+    Nothing+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++menu_New :: Rectangle -> Maybe T.Text -> IO (Ref MenuPrim)+menu_New rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Menu__Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = swapRef menu_ $+                          \menu_Ptr ->+                             widgetDestroy' menu_Ptr >>+                             return nullPtr++{# fun Fl_Menu__handle as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleMenuPrimBase :: Ref MenuPrimBase -> Event ->  IO (Either UnknownEvent ())+handleMenuPrimBase menuPrim event = withRef menuPrim $ \menuPrimPtr -> handleSuper' menuPrimPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Menu__resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeMenuPrimBase :: Ref MenuPrimBase -> Rectangle -> IO ()+resizeMenuPrimBase menuPrim rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef menuPrim $ \menuPrimPtr -> resizeSuper' menuPrimPtr x_pos y_pos width height+{# fun Fl_Menu__hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideMenuPrimBase ::  Ref MenuPrimBase -> IO ()+hideMenuPrimBase menuPrim = withRef menuPrim $ \menuPrimPtr -> hideSuper' menuPrimPtr+{# fun Fl_Menu__show as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetMenuPrimBase ::  Ref MenuPrimBase -> IO ()+showWidgetMenuPrimBase menuPrim = withRef menuPrim $ \menuPrimPtr -> showSuper' menuPrimPtr++{#fun Fl_DerivedMenu__handle as menuPrimHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) MenuPrimBase orig impl where+  runOp _ _ menuPrim event = withRef menuPrim (\p -> menuPrimHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedMenu__show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) MenuPrimBase orig impl where+  runOp _ _ menuPrim = withRef menuPrim $ \menuPrimPtr -> show' menuPrimPtr+{# fun Fl_DerivedMenu__resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) MenuPrimBase orig impl where+  runOp _ _ menuPrim rectangle = withRef menuPrim $ \menuPrimPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' menuPrimPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedMenu__hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) MenuPrimBase orig impl where+  runOp _ _ menuPrim = withRef menuPrim $ \menuPrimPtr -> hide' menuPrimPtr++{# fun Fl_Menu__item_pathname_with_finditem as itemPathnameWithFinditem' { id `Ptr ()',id `Ptr CChar',`Int',id `Ptr ()' } -> `Int' #}+{# fun Fl_Menu__item_pathname as itemPathname' { id `Ptr ()',id `Ptr CChar',`Int' } -> `Int' #}+instance (Parent a MenuItemBase, impl ~ (Ref a -> IO (Maybe T.Text))) => Op (ItemPathname ()) MenuPrimBase orig impl where+  runOp _ _ menu_ menu_item' =+    withRef menu_ $+    \ menu_Ref ->+     allocaBytes oneKb $ \ptr -> do+       retVal' <- withRef menu_item' $ \ menu_item'Ref -> itemPathnameWithFinditem' menu_Ref (castPtr ptr) oneKb menu_item'Ref+       if (retVal' == -1)+         then return Nothing+         else do+           b' <- cStringToText ptr+           return $ Just b'+instance (impl ~ (IO (Maybe String))) => Op (ItemPathnameRecent ()) MenuPrimBase orig impl where+  runOp _ _ menu_ =+    withRef menu_ $ \menu_Ptr ->+    allocaBytes oneKb $ \pathPtr -> do+      retVal' <- itemPathname' menu_Ptr (castPtr pathPtr) oneKb+      if (retVal' == -1)+        then return Nothing+        else do+          b' <- C.packCString (castPtr pathPtr)+          return $ Just (C.unpack b')++{# fun Fl_Menu__picked as picked' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}+instance (Parent a MenuItemBase, Parent b MenuItemBase, impl ~ (Ref a -> IO (Maybe (Ref b)))) => Op (Picked ()) MenuPrimBase orig impl where+  runOp _ _ menu_ item = withRef menu_ $ \menu_Ptr -> withRef item $ \itemPtr -> picked' menu_Ptr itemPtr >>= toMaybeRef+{# fun Fl_Menu__find_index_with_name as findIndexWithName' { id `Ptr ()',`CString' } -> `Int' #}+{# fun Fl_Menu__find_index_with_item as findIndexWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (impl ~ (MenuItemLocator -> IO (Maybe Int))) => Op (FindIndex ()) MenuPrimBase orig impl where+  runOp _ _ menu_ menu_item_referene =+    withRef menu_ $ \menu_Ptr ->+        case menu_item_referene of+          MenuItemNameLocator (MenuItemName name) -> withText name (\n -> findIndexWithName' menu_Ptr n >>= \r -> if (r == -1) then (return Nothing) else (return $ Just r))+          MenuItemPointerLocator (MenuItemPointer menu_item) ->+              withRef menu_item $ \menu_itemPtr -> findIndexWithItem' menu_Ptr menu_itemPtr >>= \r -> if (r == -1) then (return Nothing) else (return $ Just r)+{# fun Fl_Menu__test_shortcut as testShortcut' { id `Ptr ()' } -> `Ptr ()' id #}+instance (Parent a MenuItemBase, impl ~ ( IO (Maybe (Ref a)))) => Op (TestShortcut ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> testShortcut' menu_Ptr >>= toMaybeRef+{# fun Fl_Menu__global as global' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Global ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> global' menu_Ptr+{# fun Fl_Menu__get_menu_item_by_index as getMenuItemByIndex' { id `Ptr ()', id `CInt' } -> `Ptr ()' id #}+instance (impl ~ ( IO [(Maybe (Ref MenuItemBase))])) => Op (GetMenu ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> do+    n <- getSize menu_+    if (n == 0)+     then return []+     else go menu_Ptr 0 (n-1) []+      where+        go _ _ 0 accum = return accum+        go ptr offset left accum = do+          ref <- getMenuItemByIndex' ptr offset >>= toMaybeRef+          go ptr+             (offset + 1)+             (left - 1)+             (accum ++ [ref])++{# fun Fl_Menu__menu_with_m as menuWithM' { id `Ptr ()',id `Ptr (Ptr ())',`Int' } -> `()' #}+instance (Parent a MenuItemBase, impl ~ ([Ref a] -> IO ())) => Op (SetMenu ()) MenuPrimBase orig impl where+  runOp _ _ menu_ items =+    withRef menu_ $ \menu_Ptr ->+        withRefs items $ \menu_itemsPtr ->+            menuWithM' menu_Ptr menu_itemsPtr (length items)+{# fun Fl_Menu__copy as copy' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a MenuItemBase, impl ~ (Ref a->  IO ())) => Op (Copy ()) MenuPrimBase orig impl where+  runOp _ _ menu_ m = withRef menu_ $ \menu_Ptr -> withRef m $ \mPtr -> copy' menu_Ptr mPtr++insertMenuItem ::+  (Parent a MenuPrimBase) =>+  Ref MenuPrimBase ->+  Int ->+  T.Text ->+  Maybe Shortcut ->+  (Ref a -> IO ()) ->+  MenuItemFlags ->+  (Ptr () -> Int -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->+  (Ptr () -> Int -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->+  IO (AtIndex)+insertMenuItem menu_ index' name shortcut cb flags insertWithFlags'' insertWithShortcutnameFlags'' =+  withRef menu_ $ \menu_Ptr -> do+    let combinedFlags = menuItemFlagsToInt flags+    ptr <- toCallbackPrim cb+    idx' <- case shortcut of+              Just s' -> case s' of+                KeySequence (ShortcutKeySequence modifiers char) -> do+                  n <- copyTextToCString name+                  insertWithFlags''+                    menu_Ptr+                    index'+                    n+                    (keySequenceToCInt modifiers char)+                    (castFunPtr ptr)+                    combinedFlags+                KeyFormat format' -> do+                  f <- copyTextToCString format'+                  n <- copyTextToCString name+                  if (not $ T.null format') then+                    insertWithShortcutnameFlags''+                      menu_Ptr+                      index'+                      n+                      f+                      (castFunPtr ptr)+                      combinedFlags+                  else error "Fl_Menu_.menu_insert: shortcut format string cannot be empty"+              Nothing -> do+                n <- copyTextToCString name+                insertWithFlags''+                  menu_Ptr+                  index'+                  n+                  0+                  (castFunPtr ptr)+                  combinedFlags+    return (AtIndex idx')++{# fun Fl_Menu__insert_with_flags as insertWithFlags' { id `Ptr ()',`Int',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}+{# fun Fl_Menu__insert_with_shortcutname_flags as insertWithShortcutnameFlags' { id `Ptr ()',`Int',`CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+instance (Parent a MenuPrimBase, impl ~ ( AtIndex -> T.Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Insert ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex index') name shortcut cb flags =+    insertMenuItem menu_ index' name shortcut cb flags insertWithFlags' insertWithShortcutnameFlags'++{# fun Fl_Menu__add_with_name as add' { id `Ptr ()',`CString'} -> `()' #}+instance (impl ~ (T.Text -> IO ())) => Op (AddName ()) MenuPrimBase orig impl where+  runOp _ _ menu_ name' = withRef menu_ $ \menu_Ptr -> copyTextToCString name' >>= add' menu_Ptr+{# fun Fl_Menu__add_with_flags as addWithFlags' { id `Ptr ()',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+{# fun Fl_Menu__add_with_shortcutname_flags as addWithShortcutnameFlags' { id `Ptr ()', `CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+instance (Parent a MenuItemBase, impl ~ ( T.Text -> Maybe Shortcut -> Maybe (Ref a-> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Add ()) MenuPrimBase orig (impl) where+  runOp _ _ menu_ name shortcut cb flags =+    addMenuItem (Left menu_) name shortcut cb flags addWithFlags' addWithShortcutnameFlags'++instance (Parent a MenuItemBase, impl ~ ( T.Text -> Maybe Shortcut -> Maybe (Ref a-> IO ()) -> MenuItemFlags -> IO (Ref MenuItemBase))) => Op (AddAndGetMenuItem ()) MenuPrimBase orig (impl) where+  runOp _ _ menu_ name shortcut cb flags = do+    (AtIndex i) <- add menu_ name shortcut cb flags+    items <- getMenu menu_+    let mi = items !! i+    case mi of+      Just mi' -> return mi'+      Nothing -> throwIO (userError ("FLTK claims the menu item " ++ (T.unpack name) ++ " was added successfully at index " ++ (show i) ++ " , but no MenuItem at that index could be retrieved."))++{# fun Fl_Menu__size as size' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetSize ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> size' menu_Ptr+{# fun Fl_Menu__set_size as setSize' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (Size ->  IO ())) => Op (SetSize ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (Size (Width w) (Height h)) = withRef menu_ $ \menu_Ptr -> setSize' menu_Ptr w h+{# fun Fl_Menu__clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Clear ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> clear' menu_Ptr+{# fun Fl_Menu__clear_submenu as clearSubmenu' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (Either OutOfRange ()))) => Op (ClearSubmenu ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex index') = withRef menu_ $ \menu_Ptr -> clearSubmenu' menu_Ptr index' >>= \ret' -> if ret' == -1 then return (Left OutOfRange) else return (Right ())+{# fun Fl_Menu__replace as replace' { id `Ptr ()',`Int', `CString' } -> `()' #}+instance (impl ~ (AtIndex -> T.Text ->  IO ())) => Op (Replace ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex index') name = withRef menu_ $ \menu_Ptr -> copyTextToCString name >>= replace' menu_Ptr index'+{# fun Fl_Menu__remove as remove' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (AtIndex ->  IO ())) => Op (Remove ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex index') = withRef menu_ $ \menu_Ptr -> remove' menu_Ptr index'+{# fun Fl_Menu__shortcut as shortcut' { id `Ptr ()',`Int',id `CInt' } -> `()' #}+instance (impl ~ (AtIndex -> ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex index') (ShortcutKeySequence modifiers char) =+    withRef menu_ $ \menu_Ptr ->+        shortcut' menu_Ptr index' (keySequenceToCInt modifiers char)+{# fun Fl_Menu__set_mode as setMode' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (AtIndex -> MenuItemFlags ->  IO ())) => Op (SetMode ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex i) fl = withRef menu_ $ \menu_Ptr -> setMode' menu_Ptr i (menuItemFlagsToInt fl)+{# fun Fl_Menu__mode as mode' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (Maybe MenuItemFlags))) => Op (GetMode ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex i) = withRef menu_ $ \menu_Ptr -> mode' menu_Ptr i >>= return . intToMenuItemFlags+{# fun Fl_Menu__mvalue as mvalue' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref MenuItemBase)))) => Op (Mvalue ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> mvalue' menu_Ptr >>= toMaybeRef+{# fun Fl_Menu__value as value' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Maybe AtIndex))) => Op (GetValue ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> do+    res <- value' menu_Ptr+    return (if (res == -1) then Nothing else Just (AtIndex res))+{# fun Fl_Menu__value_with_item as valueWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+{# fun Fl_Menu__value_with_index as valueWithIndex' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (MenuItemReference -> IO (Either NoChange ()))) => Op (SetValue ()) MenuPrimBase orig impl where+  runOp _ _ menu_ menu_item_reference =+    withRef menu_ $ \menu_Ptr ->+        case menu_item_reference of+          (MenuItemByIndex (AtIndex index')) -> valueWithIndex' menu_Ptr index' >>= return . successOrNoChange+          (MenuItemByPointer (MenuItemPointer menu_item)) ->+              withRef menu_item $ \menu_itemPtr ->+                  valueWithItem' menu_Ptr menu_itemPtr >>= return . successOrNoChange+{# fun Fl_Menu__text as text' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetText ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> text' menu_Ptr >>= cStringToText+{# fun Fl_Menu__text_with_index as textWithIndex' { id `Ptr ()',`Int' } -> `CString' #}+instance (impl ~ (AtIndex ->  IO T.Text)) => Op (GetTextWithIndex ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (AtIndex i) = withRef menu_ $ \menu_Ptr -> textWithIndex' menu_Ptr i >>= cStringToText+{# fun Fl_Menu__textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> textfont' menu_Ptr+{# fun Fl_Menu__set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) MenuPrimBase orig impl where+  runOp _ _ menu_ c = withRef menu_ $ \menu_Ptr -> setTextfont' menu_Ptr c+{# fun Fl_Menu__textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> textsize' menu_Ptr >>= return . FontSize+{# fun Fl_Menu__set_textsize as setTextsize' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (FontSize c) = withRef menu_ $ \menu_Ptr -> setTextsize' menu_Ptr c+{# fun Fl_Menu__textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> textcolor' menu_Ptr+{# fun Fl_Menu__set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) MenuPrimBase orig impl where+  runOp _ _ menu_ c = withRef menu_ $ \menu_Ptr -> setTextcolor' menu_Ptr c+{# fun Fl_Menu__down_box as downBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ ( IO (Boxtype))) => Op (GetDownBox ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> downBox' menu_Ptr+{# fun Fl_Menu__set_down_box as setDownBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}+instance (impl ~ (Boxtype ->  IO ())) => Op (SetDownBox ()) MenuPrimBase orig impl where+  runOp _ _ menu_ b = withRef menu_ $ \menu_Ptr -> setDownBox' menu_Ptr b+{# fun Fl_Menu__down_color as downColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetDownColor ()) MenuPrimBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> downColor' menu_Ptr+{# fun Fl_Menu__set_down_color as setDownColor' { id `Ptr ()',`CUInt' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetDownColor ()) MenuPrimBase orig impl where+  runOp _ _ menu_ (Color c) = withRef menu_ $ \menu_Ptr -> setDownColor' menu_Ptr c+{# fun Fl_Menu__set_only as setonly' { id `Ptr ()', id `Ptr ()' } -> `()' #}+instance (Parent a MenuItemBase, impl ~ (Ref a -> IO ())) => Op (Setonly ()) MenuPrimBase orig impl where+  runOp _ _ menu_ item = withRef menu_ $ \menu_Ptr ->+                            withRef item $ \item_Ptr -> setonly' menu_Ptr item_Ptr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+-- @++-- $functions+-- @+-- add:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')+--+-- addAndGetMenuItem:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('Ref' 'MenuItemBase')+--+-- addName :: 'Ref' 'MenuPrimBase' -> 'T.Text' -> 'IO' ()+--+-- clear :: 'Ref' 'MenuPrimBase' -> 'IO' ()+--+-- clearSubmenu :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'IO' ('Either' 'OutOfRange' ())+--+-- copy:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'Ref' a-> 'IO' ()+--+-- destroy :: 'Ref' 'MenuPrimBase' -> 'IO' ()+--+-- findIndex :: 'Ref' 'MenuPrimBase' -> 'MenuItemLocator' -> 'IO' ('Maybe' 'Int')+--+-- getDownBox :: 'Ref' 'MenuPrimBase' -> 'IO' ('Boxtype')+--+-- getDownColor :: 'Ref' 'MenuPrimBase' -> 'IO' ('Color')+--+-- getMenu :: 'Ref' 'MenuPrimBase' -> 'IO' [('Maybe' ('Ref' 'MenuItemBase']))+--+-- getMode :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'IO' ('Maybe' 'MenuItemFlags')+--+-- getSize :: 'Ref' 'MenuPrimBase' -> 'IO' ('Int')+--+-- getText :: 'Ref' 'MenuPrimBase' -> 'IO' 'T.Text'+--+-- getTextWithIndex :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'IO' 'T.Text'+--+-- getTextcolor :: 'Ref' 'MenuPrimBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'MenuPrimBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'MenuPrimBase' -> 'IO' ('FontSize')+--+-- getValue :: 'Ref' 'MenuPrimBase' -> 'IO' ('Maybe' 'AtIndex')+--+-- global :: 'Ref' 'MenuPrimBase' -> 'IO' ()+--+-- handle :: 'Ref' 'MenuPrimBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'MenuPrimBase' -> 'IO' ()+--+-- insert:: ('Parent' a 'MenuPrimBase') => 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'T.Text' -> 'Maybe' 'Shortcut' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')+--+-- itemPathname:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'Ref' a -> 'IO' ('Maybe' 'T.Text')+--+-- itemPathnameRecent :: 'Ref' 'MenuPrimBase' -> 'IO' ('Maybe' 'String')+--+-- mvalue :: 'Ref' 'MenuPrimBase' -> 'IO' ('Maybe' ('Ref' 'MenuItemBase'))+--+-- picked:: ('Parent' a 'MenuItemBase', 'Parent' b 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'Ref' a -> 'IO' ('Maybe' ('Ref' b))+--+-- remove :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'IO' ()+--+-- replace :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'T.Text' -> 'IO' ()+--+-- resize :: 'Ref' 'MenuPrimBase' -> 'Rectangle' -> 'IO' ()+--+-- setDownBox :: 'Ref' 'MenuPrimBase' -> 'Boxtype' -> 'IO' ()+--+-- setDownColor :: 'Ref' 'MenuPrimBase' -> 'Color' -> 'IO' ()+--+-- setMenu:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> ['Ref' a] -> 'IO' ()+--+-- setMode :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'MenuItemFlags' -> 'IO' ()+--+-- setShortcut :: 'Ref' 'MenuPrimBase' -> 'AtIndex' -> 'ShortcutKeySequence' -> 'IO' ()+--+-- setSize :: 'Ref' 'MenuPrimBase' -> 'Size' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'MenuPrimBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'MenuPrimBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'MenuPrimBase' -> 'FontSize' -> 'IO' ()+--+-- setValue :: 'Ref' 'MenuPrimBase' -> 'MenuItemReference' -> 'IO' ('Either' 'NoChange' ())+--+-- setonly:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'Ref' a -> 'IO' ()+--+-- showWidget :: 'Ref' 'MenuPrimBase' -> 'IO' ()+--+-- testShortcut:: ('Parent' a 'MenuItemBase') => 'Ref' 'MenuPrimBase' -> 'IO' ('Maybe' ('Ref' a))+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/NiceSlider.chs view
@@ -0,0 +1,47 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.NiceSlider+    (+     niceSliderNew+     -- * Hierarchy+     --+     -- $hierarchy+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SliderC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import qualified Data.Text as T+{# fun Fl_Nice_Slider_New as niceSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Nice_Slider_New_WithLabel as niceSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+niceSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref NiceSlider)+niceSliderNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> niceSliderNew' x_pos y_pos width height >>=+                             toRef+        Just l -> do+          ref <- copyTextToCString l >>= \l' -> niceSliderNewWithLabel' x_pos y_pos width height l' >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.NiceSlider"+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Output.chs view
@@ -0,0 +1,145 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Output+    (+     FlOutputType(..),+     -- * Constructor+     outputNew,+     outputCustom+   , drawOutputBase+   , handleOutputBase+   , resizeOutputBase+   , hideOutputBase+   , showWidgetOutputBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Input+     --+     -- $Input+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Input_C.h"+#include "Fl_OutputC.h"+#include "Fl_Multiline_OutputC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations++#c+enum FlOutputType {+  FlNormalOutput = FL_NORMAL_OUTPUT,+  FlMultilineOutput = FL_MULTILINE_OUTPUT+};+#endc+{# fun Fl_OverriddenOutput_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenOutput_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+outputCustom ::+       Rectangle                         -- ^ The bounds of this Output+    -> Maybe T.Text                      -- ^ The Output label+    -> Maybe (Ref Output -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Output)      -- ^ Optional custom widget functions+    -> IO (Ref Output)+outputCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{#enum FlOutputType {}#}+{# fun Fl_Multiline_Output_New_WithLabel as multilineOutputNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+outputNew :: Rectangle -> Maybe T.Text -> Maybe FlOutputType -> IO (Ref Output)+outputNew rectangle l' flOutputType =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+        construct = case flOutputType of+                      Just FlNormalOutput -> outputCustom rectangle l' Nothing Nothing+                      Nothing -> outputCustom rectangle l' Nothing Nothing+                      Just FlMultilineOutput -> do+                        destroyFptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+                        lPtr <- maybe (return nullPtr) copyTextToCString l'+                        multilineOutputNewWithLabel' x_pos y_pos width height lPtr destroyFptr >>= toRef+    in do+     ref <- construct+     setFlag ref WidgetFlagCopiedLabel+     setFlag ref WidgetFlagCopiedTooltip+     return ref++{# fun Fl_Output_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (FlOutputType ->  IO ())) => Op (SetType ()) OutputBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)++{# fun Fl_Output_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawOutputBase ::  Ref OutputBase -> IO ()+drawOutputBase output = withRef output $ \outputPtr -> drawSuper' outputPtr+{# fun Fl_Output_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleOutputBase :: Ref OutputBase -> Event ->  IO (Either UnknownEvent ())+handleOutputBase output event = withRef output $ \outputPtr -> handleSuper' outputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Output_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeOutputBase :: Ref OutputBase -> Rectangle -> IO ()+resizeOutputBase output rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef output $ \outputPtr -> resizeSuper' outputPtr x_pos y_pos width height+{# fun Fl_Output_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideOutputBase ::  Ref OutputBase -> IO ()+hideOutputBase output = withRef output $ \outputPtr -> hideSuper' outputPtr+{# fun Fl_Output_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetOutputBase ::  Ref OutputBase -> IO ()+showWidgetOutputBase output = withRef output $ \outputPtr -> showSuper' outputPtr++{# fun Fl_Output_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) OutputBase orig impl where+  runOp _ _ output = withRef output $ \outputPtr -> draw'' outputPtr+{#fun Fl_Output_handle as outputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) OutputBase orig impl where+  runOp _ _ output event = withRef output (\p -> outputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Output_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) OutputBase orig impl where+  runOp _ _ output rectangle = withRef output $ \outputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' outputPtr x_pos y_pos w_pos h_pos+{# fun Fl_Output_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) OutputBase orig impl where+  runOp _ _ output = withRef output $ \outputPtr -> hide' outputPtr+{# fun Fl_Output_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) OutputBase orig impl where+  runOp _ _ output = withRef output $ \outputPtr -> show' outputPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Input"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Output"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'OutputBase' -> 'IO' ()+--+-- handle :: 'Ref' 'OutputBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'OutputBase' -> 'IO' ()+--+-- resize :: 'Ref' 'OutputBase' -> 'Rectangle' -> 'IO' ()+--+-- setType :: 'Ref' 'OutputBase' -> 'FlOutputType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'OutputBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/OverlayWindow.chs view
@@ -0,0 +1,124 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ExistentialQuantification #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.OverlayWindow+    (+     overlayWindowNew+   , resizeOverlayWindowBase+   , hideOverlayWindowBase+   , showWidgetOverlayWindowBase+   , flushOverlayWindowBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_C.h"+#include "Fl_Overlay_WindowC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import Graphics.UI.FLTK.LowLevel.Base.Widget+import qualified Data.Text as T++{# fun Fl_Overlay_Window_New_WithLabel as windowNewWithLabel' { `Int', `Int', `CString', id `FunPtr CallbackPrim',id `FunPtr DestroyCallbacksPrim'  } -> `Ptr ()' id #}+{# fun Fl_Overlay_Window_New as windowNew' { `Int', `Int', id `FunPtr CallbackPrim',id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Overlay_Window_NewXY_WithLabel as windowNewWithXYLabel' { `Int', `Int', `Int', `Int', `CString', id `FunPtr CallbackPrim', id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+{# fun Fl_Overlay_Window_NewXY as windowNewWithXY' { `Int', `Int', `Int', `Int', id `FunPtr CallbackPrim', id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}++overlayWindowNew :: forall a. (Parent a OverlayWindowBase) => Size -> Maybe T.Text -> Maybe Position -> (Ref a -> IO ()) -> IO (Ref OverlayWindow)+overlayWindowNew (Size (Width width') (Height height')) title' position' callback' =+  do+    fptr <- toCallbackPrim callback'+    destroyFptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+    ref <- case (title', position') of+            (Just t, Just (Position (X x') (Y y'))) -> copyTextToCString t >>= \t' -> windowNewWithXYLabel' width' height' x' y' t' fptr destroyFptr >>= toRef+            (Nothing, Just (Position (X x') (Y y'))) -> windowNewWithXY' width' height' x' y' fptr destroyFptr >>= toRef+            (Just t, Nothing) -> copyTextToCString t >>= \t' -> windowNewWithLabel' width' height' t' fptr destroyFptr >>= toRef+            (Nothing, Nothing) -> windowNew' width' height' fptr destroyFptr >>= toRef+    setFlag ref WidgetFlagCopiedLabel+    setFlag ref WidgetFlagCopiedTooltip+    return ref+{# fun Fl_Overlay_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' #}+instance (impl ~ (IO ())) => Op (Destroy ()) OverlayWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr++{# fun Fl_Overlay_Window_can_do_overlay as canDoOverlay' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Bool))) => Op (CanDoOverlay ()) OverlayWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> canDoOverlay' winPtr >>= return . cToBool+{# fun Fl_Overlay_Window_redraw_overlay as redrawOverlay' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (RedrawOverlay ()) OverlayWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> redrawOverlay' winPtr++{# fun Fl_Overlay_Window_resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeOverlayWindowBase :: Ref OverlayWindowBase -> Rectangle -> IO ()+resizeOverlayWindowBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Overlay_Window_hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideOverlayWindowBase ::  Ref OverlayWindowBase -> IO ()+hideOverlayWindowBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Overlay_Window_show as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetOverlayWindowBase ::  Ref OverlayWindowBase -> IO ()+showWidgetOverlayWindowBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr+{# fun Fl_Overlay_Window_flush as flushSuper' { id `Ptr ()' } -> `()' #}+flushOverlayWindowBase :: Ref OverlayWindowBase -> IO ()+flushOverlayWindowBase window = withRef window $ \windowPtr -> flush' windowPtr++{# fun Fl_DerivedOverlay_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) OverlayWindowBase orig impl where+  runOp _ _ window rectangle = withRef window $ \windowPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' windowPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedOverlay_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) OverlayWindowBase orig impl where+  runOp _ _ window = withRef window (\p -> windowShow' p)++{# fun Fl_DerivedOverlay_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) OverlayWindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr++{# fun Fl_DerivedOverlay_Window_flush as flush' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Flush ()) OverlayWindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr++++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.DoubleWindow"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.OverlayWindow"+-- @++-- $functions+-- @+-- canDoOverlay :: 'Ref' 'OverlayWindowBase' -> 'IO' ('Bool')+--+-- destroy :: 'Ref' 'OverlayWindowBase' -> 'IO' ()+--+-- flush :: 'Ref' 'OverlayWindowBase' -> 'IO' ()+--+-- hide :: 'Ref' 'OverlayWindowBase' -> 'IO' ()+--+-- redrawOverlay :: 'Ref' 'OverlayWindowBase' -> 'IO' ()+--+-- resize :: 'Ref' 'OverlayWindowBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'OverlayWindowBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Pack.chs view
@@ -0,0 +1,151 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Pack+  (+    PackType(..),+    packNew,+    packCustom+  , drawPackBase+  , handlePackBase+  , resizePackBase+  , hidePackBase+  , showWidgetPackBase+    -- * Hierarchy+    --+    -- $hierarchy++    -- * Functions+    --+    -- $functions+  )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_PackC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+{# fun Fl_OverriddenPack_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenPack_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+packCustom ::+       Rectangle                         -- ^ The bounds of this Pack+    -> Maybe T.Text                      -- ^ The Pack label+    -> Maybe (Ref Pack -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Pack)      -- ^ Optional custom widget functions+    -> IO (Ref Pack)+packCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Pack_New as packNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Pack_New_WithLabel as packNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+packNew :: Rectangle -> Maybe T.Text -> IO (Ref Pack)+packNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Pack_get_spacing as getSpacing' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (IO (Int))) => Op (GetSpacing ()) PackBase orig impl where+   runOp _ _ p = withRef p $ \pPtr -> getSpacing' pPtr+{# fun Fl_Pack_set_spacing as setSpacing' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ())) => Op (SetSpacing ()) PackBase orig impl where+   runOp _ _ p pixels = withRef p $ \pPtr -> setSpacing' pPtr pixels+{# fun Fl_Pack_horizontal as horizontal' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ ( IO Bool)) => Op (IsHorizontal ()) PackBase orig impl where+   runOp _ _ p = withRef p $ \pPtr -> do+     orientation <- horizontal' pPtr >>= return . cToEnum+     case orientation of+       PackHorizontal -> return True+       _  -> return False+{# fun Fl_Pack_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ ( IO (PackType))) => Op (GetType_ ()) PackBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . cToEnum+{# fun Fl_Pack_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}+instance (impl ~ (PackType ->  IO ())) => Op (SetType ()) PackBase orig impl where+   runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (cFromEnum t)++{# fun Fl_Pack_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawPackBase ::  Ref PackBase -> IO ()+drawPackBase pack = withRef pack $ \packPtr -> drawSuper' packPtr+{# fun Fl_Pack_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handlePackBase :: Ref PackBase -> Event ->  IO (Either UnknownEvent ())+handlePackBase pack event = withRef pack $ \packPtr -> handleSuper' packPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Pack_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizePackBase :: Ref PackBase -> Rectangle -> IO ()+resizePackBase pack rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef pack $ \packPtr -> resizeSuper' packPtr x_pos y_pos width height+{# fun Fl_Pack_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hidePackBase ::  Ref PackBase -> IO ()+hidePackBase pack = withRef pack $ \packPtr -> hideSuper' packPtr+{# fun Fl_Pack_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetPackBase ::  Ref PackBase -> IO ()+showWidgetPackBase pack = withRef pack $ \packPtr -> showSuper' packPtr++{# fun Fl_Pack_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) PackBase orig impl where+  runOp _ _ pack = withRef pack $ \packPtr -> draw'' packPtr+{#fun Fl_Pack_handle as packHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) PackBase orig impl where+  runOp _ _ pack event = withRef pack (\p -> packHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Pack_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) PackBase orig impl where+  runOp _ _ pack = withRef pack $ \packPtr -> show' packPtr+{# fun Fl_Pack_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) PackBase orig impl where+  runOp _ _ pack = withRef pack $ \packPtr -> hide' packPtr+{# fun Fl_Pack_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) PackBase orig impl where+  runOp _ _ pack rectangle = withRef pack $ \packPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' packPtr x_pos y_pos w_pos h_pos+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Pack"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'PackBase' -> 'IO' ()+--+-- getSpacing :: 'Ref' 'PackBase' -> 'IO' ('Int')+--+-- getType_ :: 'Ref' 'PackBase' -> 'IO' ('PackType')+--+-- handle :: 'Ref' 'PackBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'PackBase' -> 'IO' ()+--+-- isHorizontal :: 'Ref' 'PackBase' -> 'IO' 'Bool'+--+-- resize :: 'Ref' 'PackBase' -> 'Rectangle' -> 'IO' ()+--+-- setSpacing :: 'Ref' 'PackBase' -> 'Int' -> 'IO' ()+--+-- setType :: 'Ref' 'PackBase' -> 'PackType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'PackBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Positioner.chs view
@@ -0,0 +1,209 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Positioner+    (+     -- * Constructor+     positionerNew,+     positionerCustom+  , drawPositionerBase+  , handlePositionerBase+  , resizePositionerBase+  , hidePositionerBase+  , showWidgetPositionerBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_PositionerC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++{# fun Fl_OverriddenPositioner_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenPositioner_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+positionerCustom ::+       Rectangle                         -- ^ The bounds of this Positioner+    -> Maybe T.Text                      -- ^ The Positioner label+    -> Maybe (Ref Positioner -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Positioner)      -- ^ Optional custom widget functions+    -> IO (Ref Positioner)+positionerCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Positioner_New as positionerNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Positioner_New_WithLabel as positionerNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+positionerNew :: Rectangle -> Maybe T.Text -> IO (Ref Positioner)+positionerNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Positioner_Destroy as positionerDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) PositionerBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    positionerDestroy' winPtr+    return nullPtr++{# fun Fl_Positioner_set_xvalue as setXvalue' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (PreciseX ->  IO ())) => Op (SetXvalue ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseX xvalue) = withRef positioner $ \positionerPtr -> setXvalue' positionerPtr xvalue+{# fun Fl_Positioner_xvalue as xvalue' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (PreciseX))) => Op (GetXvalue ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> xvalue' positionerPtr >>= return . PreciseX+{# fun Fl_Positioner_set_yvalue as setYvalue' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (PreciseY ->  IO ())) => Op (SetYvalue ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseY yvalue) = withRef positioner $ \positionerPtr -> setYvalue' positionerPtr yvalue+{# fun Fl_Positioner_yvalue as yvalue' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (PreciseY))) => Op (GetYvalue ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> yvalue' positionerPtr >>= return . PreciseY+{# fun Fl_Positioner_set_xminimum as setXminimum' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (PreciseX ->  IO ())) => Op (SetXminimum ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseX xminimum) = withRef positioner $ \positionerPtr -> setXminimum' positionerPtr xminimum+{# fun Fl_Positioner_xminimum as xminimum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (PreciseX))) => Op (GetXminimum ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> xminimum' positionerPtr >>= return . PreciseX+{# fun Fl_Positioner_set_yminimum as setYminimum' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (PreciseY ->  IO ())) => Op (SetYminimum ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseY yminimum) = withRef positioner $ \positionerPtr -> setYminimum' positionerPtr yminimum+{# fun Fl_Positioner_yminimum as yminimum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (PreciseY))) => Op (GetYminimum ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> yminimum' positionerPtr >>= return . PreciseY+{# fun Fl_Positioner_set_xmaximum as setXmaximum' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (PreciseX ->  IO ())) => Op (SetXmaximum ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseX xmaximum) = withRef positioner $ \positionerPtr -> setXmaximum' positionerPtr xmaximum+{# fun Fl_Positioner_xmaximum as xmaximum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (PreciseX))) => Op (GetXmaximum ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> xmaximum' positionerPtr >>= return . PreciseX+{# fun Fl_Positioner_set_ymaximum as setYmaximum' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (PreciseY ->  IO ())) => Op (SetYmaximum ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseY ymaximum) = withRef positioner $ \positionerPtr -> setYmaximum' positionerPtr ymaximum+{# fun Fl_Positioner_ymaximum as ymaximum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (PreciseY))) => Op (GetYmaximum ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> ymaximum' positionerPtr >>= return . PreciseY+{# fun Fl_Positioner_xbounds as xbounds' { id `Ptr ()',`Double',`Double' } -> `()' #}+instance (impl ~ (PreciseX -> PreciseX ->  IO ())) => Op (SetXbounds ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseX xstart) (PreciseX xend) = withRef positioner $ \positionerPtr -> xbounds' positionerPtr xstart xend+{# fun Fl_Positioner_ybounds as ybounds' { id `Ptr ()',`Double',`Double' } -> `()' #}+instance (impl ~ (PreciseY -> PreciseY ->  IO ())) => Op (SetYbounds ()) PositionerBase orig impl where+  runOp _ _ positioner (PreciseY ystart) (PreciseY yend) = withRef positioner $ \positionerPtr -> ybounds' positionerPtr ystart yend+{# fun Fl_Positioner_xstep as xstep' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (Double ->  IO ())) => Op (SetXstep ()) PositionerBase orig impl where+  runOp _ _ positioner xstep = withRef positioner $ \positionerPtr -> xstep' positionerPtr xstep+{# fun Fl_Positioner_ystep as ystep' { id `Ptr ()',`Double' } -> `()' #}+instance (impl ~ (Double ->  IO ())) => Op (SetYstep ()) PositionerBase orig impl where+  runOp _ _ positioner ystep = withRef positioner $ \positionerPtr -> ystep' positionerPtr ystep++{# fun Fl_Positioner_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawPositionerBase ::  Ref PositionerBase -> IO ()+drawPositionerBase positioner = withRef positioner $ \positionerPtr -> drawSuper' positionerPtr+{# fun Fl_Positioner_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handlePositionerBase :: Ref PositionerBase -> Event ->  IO (Either UnknownEvent ())+handlePositionerBase positioner event = withRef positioner $ \positionerPtr -> handleSuper' positionerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Positioner_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizePositionerBase :: Ref PositionerBase -> Rectangle -> IO ()+resizePositionerBase positioner rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef positioner $ \positionerPtr -> resizeSuper' positionerPtr x_pos y_pos width height+{# fun Fl_Positioner_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hidePositionerBase ::  Ref PositionerBase -> IO ()+hidePositionerBase positioner = withRef positioner $ \positionerPtr -> hideSuper' positionerPtr+{# fun Fl_Positioner_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetPositionerBase ::  Ref PositionerBase -> IO ()+showWidgetPositionerBase positioner = withRef positioner $ \positionerPtr -> showSuper' positionerPtr++{# fun Fl_Positioner_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> draw'' positionerPtr+{#fun Fl_Positioner_handle as positionerHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) PositionerBase orig impl where+  runOp _ _ positioner event = withRef positioner (\p -> positionerHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Positioner_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) PositionerBase orig impl where+  runOp _ _ positioner rectangle = withRef positioner $ \positionerPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' positionerPtr x_pos y_pos w_pos h_pos+{# fun Fl_Positioner_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> hide' positionerPtr+{# fun Fl_Positioner_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) PositionerBase orig impl where+  runOp _ _ positioner = withRef positioner $ \positionerPtr -> show' positionerPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Positioner"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'PositionerBase' -> 'IO' ()+--+-- draw :: 'Ref' 'PositionerBase' -> 'IO' ()+--+-- getXmaximum :: 'Ref' 'PositionerBase' -> 'IO' ('PreciseX')+--+-- getXminimum :: 'Ref' 'PositionerBase' -> 'IO' ('PreciseX')+--+-- getXvalue :: 'Ref' 'PositionerBase' -> 'IO' ('PreciseX')+--+-- getYmaximum :: 'Ref' 'PositionerBase' -> 'IO' ('PreciseY')+--+-- getYminimum :: 'Ref' 'PositionerBase' -> 'IO' ('PreciseY')+--+-- getYvalue :: 'Ref' 'PositionerBase' -> 'IO' ('PreciseY')+--+-- handle :: 'Ref' 'PositionerBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'PositionerBase' -> 'IO' ()+--+-- resize :: 'Ref' 'PositionerBase' -> 'Rectangle' -> 'IO' ()+--+-- setXbounds :: 'Ref' 'PositionerBase' -> 'PreciseX' -> 'PreciseX' -> 'IO' ()+--+-- setXmaximum :: 'Ref' 'PositionerBase' -> 'PreciseX' -> 'IO' ()+--+-- setXminimum :: 'Ref' 'PositionerBase' -> 'PreciseX' -> 'IO' ()+--+-- setXstep :: 'Ref' 'PositionerBase' -> 'Double' -> 'IO' ()+--+-- setXvalue :: 'Ref' 'PositionerBase' -> 'PreciseX' -> 'IO' ()+--+-- setYbounds :: 'Ref' 'PositionerBase' -> 'PreciseY' -> 'PreciseY' -> 'IO' ()+--+-- setYmaximum :: 'Ref' 'PositionerBase' -> 'PreciseY' -> 'IO' ()+--+-- setYminimum :: 'Ref' 'PositionerBase' -> 'PreciseY' -> 'IO' ()+--+-- setYstep :: 'Ref' 'PositionerBase' -> 'Double' -> 'IO' ()+--+-- setYvalue :: 'Ref' 'PositionerBase' -> 'PreciseY' -> 'IO' ()+--+-- showWidget :: 'Ref' 'PositionerBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Progress.chs view
@@ -0,0 +1,159 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Progress+    (+     -- * Constructor+     progressNew,+     progressCustom+  , drawProgressBase+  , handleProgressBase+  , resizeProgressBase+  , hideProgressBase+  , showWidgetProgressBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_ProgressC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenProgress_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenProgress_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+progressCustom ::+       Rectangle                         -- ^ The bounds of this Progress+    -> Maybe T.Text                      -- ^ The Progress label+    -> Maybe (Ref Progress -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Progress)      -- ^ Optional custom widget functions+    -> IO (Ref Progress)+progressCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Progress_New as progressNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Progress_New_WithLabel as progressNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+progressNew :: Rectangle -> Maybe T.Text -> IO (Ref Progress)+progressNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Progress_Destroy as progressDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) ProgressBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    progressDestroy' winPtr+    return nullPtr+{# fun Fl_Progress_set_maximum as setMaximum' { id `Ptr ()',`Float' } -> `()' #}+instance (impl ~ (Float ->  IO ())) => Op (SetMaximum ()) ProgressBase orig impl where+  runOp _ _ progress v = withRef progress $ \progressPtr -> setMaximum' progressPtr v+{# fun Fl_Progress_maximum as maximum' { id `Ptr ()' } -> `Float' #}+instance (impl ~ ( IO (Float))) => Op (GetMaximum ()) ProgressBase orig impl where+  runOp _ _ progress = withRef progress $ \progressPtr -> maximum' progressPtr+{# fun Fl_Progress_set_minimum as setMinimum' { id `Ptr ()',`Float' } -> `()' #}+instance (impl ~ (Float ->  IO ())) => Op (SetMinimum ()) ProgressBase orig impl where+  runOp _ _ progress v = withRef progress $ \progressPtr -> setMinimum' progressPtr v+{# fun Fl_Progress_minimum as minimum' { id `Ptr ()' } -> `Float' #}+instance (impl ~ ( IO (Float))) => Op (GetMinimum ()) ProgressBase orig impl where+  runOp _ _ progress = withRef progress $ \progressPtr -> minimum' progressPtr+{# fun Fl_Progress_set_value as setValue' { id `Ptr ()',`Float' } -> `()' #}+instance (impl ~ (Float ->  IO ())) => Op (SetValue ()) ProgressBase orig impl where+  runOp _ _ progress v = withRef progress $ \progressPtr -> setValue' progressPtr v+{# fun Fl_Progress_value as value' { id `Ptr ()' } -> `Float' #}+instance (impl ~ ( IO (Float))) => Op (GetValue ()) ProgressBase orig impl where+  runOp _ _ progress = withRef progress $ \progressPtr -> value' progressPtr++{# fun Fl_Progress_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawProgressBase ::  Ref ProgressBase -> IO ()+drawProgressBase progress = withRef progress $ \progressPtr -> drawSuper' progressPtr+{# fun Fl_Progress_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleProgressBase :: Ref ProgressBase -> Event ->  IO (Either UnknownEvent ())+handleProgressBase progress event = withRef progress $ \progressPtr -> handleSuper' progressPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Progress_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeProgressBase :: Ref ProgressBase -> Rectangle -> IO ()+resizeProgressBase progress rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef progress $ \progressPtr -> resizeSuper' progressPtr x_pos y_pos width height+{# fun Fl_Progress_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideProgressBase ::  Ref ProgressBase -> IO ()+hideProgressBase progress = withRef progress $ \progressPtr -> hideSuper' progressPtr+{# fun Fl_Progress_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetProgressBase ::  Ref ProgressBase -> IO ()+showWidgetProgressBase progress = withRef progress $ \progressPtr -> showSuper' progressPtr++{# fun Fl_Progress_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ProgressBase orig impl where+  runOp _ _ progress = withRef progress $ \progressPtr -> draw'' progressPtr+{#fun Fl_Progress_handle as progressHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ProgressBase orig impl where+  runOp _ _ progress event = withRef progress (\p -> progressHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Progress_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ProgressBase orig impl where+  runOp _ _ progress rectangle = withRef progress $ \progressPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' progressPtr x_pos y_pos w_pos h_pos+{# fun Fl_Progress_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ProgressBase orig impl where+  runOp _ _ progress = withRef progress $ \progressPtr -> hide' progressPtr+{# fun Fl_Progress_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ProgressBase orig impl where+  runOp _ _ progress = withRef progress $ \progressPtr -> show' progressPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Progress"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ProgressBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ProgressBase' -> 'IO' ()+--+-- getMaximum :: 'Ref' 'ProgressBase' -> 'IO' ('Float')+--+-- getMinimum :: 'Ref' 'ProgressBase' -> 'IO' ('Float')+--+-- getValue :: 'Ref' 'ProgressBase' -> 'IO' ('Float')+--+-- handle :: 'Ref' 'ProgressBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ProgressBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ProgressBase' -> 'Rectangle' -> 'IO' ()+--+-- setMaximum :: 'Ref' 'ProgressBase' -> 'Float' -> 'IO' ()+--+-- setMinimum :: 'Ref' 'ProgressBase' -> 'Float' -> 'IO' ()+--+-- setValue :: 'Ref' 'ProgressBase' -> 'Float' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ProgressBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/RadioLightButton.chs view
@@ -0,0 +1,49 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.RadioLightButton+    (+     radioLightButtonNew+     -- * Hierarchy+     --+     -- $hierarchy+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Radio_Light_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import qualified Data.Text as T+{# fun Fl_Radio_Light_Button_New as widgetNew' { `Int',`Int',`Int',`Int',id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+{# fun Fl_Radio_Light_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString',id `FunPtr DestroyCallbacksPrim' } -> `Ptr ()' id #}+radioLightButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RadioLightButton)+radioLightButtonNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in do+    destroyFptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+    ref <- case l' of+        Nothing -> widgetNew' x_pos y_pos width height destroyFptr >>= toRef+        Just l -> copyTextToCString l >>= \l' -> widgetNewWithLabel' x_pos y_pos width height l' destroyFptr >>= toRef+    setFlag ref WidgetFlagCopiedLabel+    setFlag ref WidgetFlagCopiedTooltip+    return ref+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.LightButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.RadioLightButton"+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/RepeatButton.chs view
@@ -0,0 +1,141 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.RepeatButton+    (+    repeatButtonNew,+    repeatButtonCustom+  , drawRepeatButtonBase+  , handleRepeatButtonBase+  , resizeRepeatButtonBase+  , hideRepeatButtonBase+  , showWidgetRepeatButtonBase+    -- * Hierarchy+    --+    -- $hierarchy++    -- * Functions+    --+    -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Repeat_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenRepeat_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenRepeat_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+repeatButtonCustom ::+       Rectangle                         -- ^ The bounds of this RepeatButton+    -> Maybe T.Text                      -- ^ The RepeatButton label+    -> Maybe (Ref RepeatButton -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs RepeatButton)      -- ^ Optional custom widget functions+    -> IO (Ref RepeatButton)+repeatButtonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Repeat_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Repeat_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+repeatButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RepeatButton)+repeatButtonNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Repeat_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) RepeatButtonBase orig impl where+  runOp _ _ button = swapRef button $+                    \buttonPtr ->+                     widgetDestroy' buttonPtr >>+                     return nullPtr++{#fun Fl_Repeat_Button_deactivate as deactivate' { id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Deactivate ()) RepeatButtonBase orig impl where+  runOp _ _ button = withRef button (\p -> deactivate' p )++++{# fun Fl_Repeat_Button_draw as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawRepeatButtonBase ::  Ref RepeatButtonBase -> IO ()+drawRepeatButtonBase repeatButton = withRef repeatButton $ \repeatButtonPtr -> drawSuper' repeatButtonPtr+{# fun Fl_Repeat_Button_handle as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleRepeatButtonBase :: Ref RepeatButtonBase -> Event ->  IO (Either UnknownEvent ())+handleRepeatButtonBase repeatButton event = withRef repeatButton $ \repeatButtonPtr -> handleSuper' repeatButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Repeat_Button_resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeRepeatButtonBase :: Ref RepeatButtonBase -> Rectangle -> IO ()+resizeRepeatButtonBase repeatButton rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef repeatButton $ \repeatButtonPtr -> resizeSuper' repeatButtonPtr x_pos y_pos width height+{# fun Fl_Repeat_Button_hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideRepeatButtonBase ::  Ref RepeatButtonBase -> IO ()+hideRepeatButtonBase repeatButton = withRef repeatButton $ \repeatButtonPtr -> hideSuper' repeatButtonPtr+{# fun Fl_Repeat_Button_show as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetRepeatButtonBase ::  Ref RepeatButtonBase -> IO ()+showWidgetRepeatButtonBase repeatButton = withRef repeatButton $ \repeatButtonPtr -> showSuper' repeatButtonPtr++{# fun Fl_DerivedRepeat_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) RepeatButtonBase orig impl where+  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> draw'' repeatButtonPtr+{#fun Fl_DerivedRepeat_Button_handle as repeatButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) RepeatButtonBase orig impl where+  runOp _ _ repeatButton event = withRef repeatButton (\p -> repeatButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedRepeat_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) RepeatButtonBase orig impl where+  runOp _ _ repeatButton rectangle = withRef repeatButton $ \repeatButtonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' repeatButtonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedRepeat_Button_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) RepeatButtonBase orig impl where+  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> show' repeatButtonPtr+{# fun Fl_DerivedRepeat_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) RepeatButtonBase orig impl where+  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> hide' repeatButtonPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.RepeatButton"+-- @++-- $functions+-- @+-- deactivate :: 'Ref' 'RepeatButtonBase' -> 'IO' ()+--+-- destroy :: 'Ref' 'RepeatButtonBase' -> 'IO' ()+--+-- draw :: 'Ref' 'RepeatButtonBase' -> 'IO' ()+--+-- handle :: 'Ref' 'RepeatButtonBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'RepeatButtonBase' -> 'IO' ()+--+-- resize :: 'Ref' 'RepeatButtonBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'RepeatButtonBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/ReturnButton.chs view
@@ -0,0 +1,132 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.ReturnButton+    (+     returnButtonNew,+     returnButtonCustom+  , drawReturnButtonBase+  , handleReturnButtonBase+  , resizeReturnButtonBase+  , hideReturnButtonBase+  , showWidgetReturnButtonBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Return_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenReturn_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenReturn_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+returnButtonCustom ::+       Rectangle                         -- ^ The bounds of this ReturnButton+    -> Maybe T.Text                      -- ^ The ReturnButton label+    -> Maybe (Ref ReturnButton -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs ReturnButton)      -- ^ Optional custom widget functions+    -> IO (Ref ReturnButton)+returnButtonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Return_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Return_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+returnButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref ReturnButton)+returnButtonNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Return_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~  IO ()) => Op (Destroy ()) ReturnButtonBase orig impl where+  runOp _ _ button = swapRef button $+                    \buttonPtr ->+                     widgetDestroy' buttonPtr >>+                     return nullPtr++{# fun Fl_Return_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawReturnButtonBase ::  Ref ReturnButtonBase -> IO ()+drawReturnButtonBase returnButton = withRef returnButton $ \returnButtonPtr -> drawSuper' returnButtonPtr+{# fun Fl_Return_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleReturnButtonBase :: Ref ReturnButtonBase -> Event ->  IO (Either UnknownEvent ())+handleReturnButtonBase returnButton event = withRef returnButton $ \returnButtonPtr -> handleSuper' returnButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Return_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeReturnButtonBase :: Ref ReturnButtonBase -> Rectangle -> IO ()+resizeReturnButtonBase returnButton rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef returnButton $ \returnButtonPtr -> resizeSuper' returnButtonPtr x_pos y_pos width height+{# fun Fl_Return_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideReturnButtonBase ::  Ref ReturnButtonBase -> IO ()+hideReturnButtonBase returnButton = withRef returnButton $ \returnButtonPtr -> hideSuper' returnButtonPtr+{# fun Fl_Return_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetReturnButtonBase ::  Ref ReturnButtonBase -> IO ()+showWidgetReturnButtonBase returnButton = withRef returnButton $ \returnButtonPtr -> showSuper' returnButtonPtr++{# fun Fl_DerivedReturn_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ReturnButtonBase orig impl where+  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> draw'' returnButtonPtr+{#fun Fl_DerivedReturn_Button_handle as returnButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ReturnButtonBase orig impl where+  runOp _ _ returnButton event = withRef returnButton (\p -> returnButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedReturn_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ReturnButtonBase orig impl where+  runOp _ _ returnButton rectangle = withRef returnButton $ \returnButtonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' returnButtonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedReturn_Button_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ReturnButtonBase orig impl where+  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> show' returnButtonPtr+{# fun Fl_DerivedReturn_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ReturnButtonBase orig impl where+  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> hide' returnButtonPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ReturnButton"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ReturnButtonBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ReturnButtonBase' -> 'IO' ()+--+-- handle :: 'Ref' 'ReturnButtonBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ReturnButtonBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ReturnButtonBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ReturnButtonBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Roller.chs view
@@ -0,0 +1,129 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Roller+    (+     -- * Constructor+     rollerNew,+     rollerCustom+  , drawRollerBase+  , handleRollerBase+  , resizeRollerBase+  , hideRollerBase+  , showWidgetRollerBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_RollerC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+{# fun Fl_OverriddenRoller_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenRoller_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+rollerCustom ::+       Rectangle                         -- ^ The bounds of this Roller+    -> Maybe T.Text                      -- ^ The Roller label+    -> Maybe (Ref Roller -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Roller)      -- ^ Optional custom widget functions+    -> IO (Ref Roller)+rollerCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Roller_New as rollerNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Roller_New_WithLabel as rollerNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+rollerNew :: Rectangle -> Maybe T.Text -> IO (Ref Roller)+rollerNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Roller_Destroy as rollerDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) RollerBase orig impl where+  runOp _ _ roller = swapRef roller $ \rollerPtr -> do+    rollerDestroy' rollerPtr+    return nullPtr+{# fun Fl_Roller_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawRollerBase ::  Ref RollerBase -> IO ()+drawRollerBase roller = withRef roller $ \rollerPtr -> drawSuper' rollerPtr+{# fun Fl_Roller_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleRollerBase :: Ref RollerBase -> Event ->  IO (Either UnknownEvent ())+handleRollerBase roller event = withRef roller $ \rollerPtr -> handleSuper' rollerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Roller_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeRollerBase :: Ref RollerBase -> Rectangle -> IO ()+resizeRollerBase roller rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef roller $ \rollerPtr -> resizeSuper' rollerPtr x_pos y_pos width height+{# fun Fl_Roller_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideRollerBase ::  Ref RollerBase -> IO ()+hideRollerBase roller = withRef roller $ \rollerPtr -> hideSuper' rollerPtr+{# fun Fl_Roller_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetRollerBase ::  Ref RollerBase -> IO ()+showWidgetRollerBase roller = withRef roller $ \rollerPtr -> showSuper' rollerPtr++{# fun Fl_Roller_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) RollerBase orig impl where+  runOp _ _ roller = withRef roller $ \rollerPtr -> draw'' rollerPtr+{#fun Fl_Roller_handle as rollerHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) RollerBase orig impl where+  runOp _ _ roller event = withRef roller (\p -> rollerHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Roller_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) RollerBase orig impl where+  runOp _ _ roller rectangle = withRef roller $ \rollerPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' rollerPtr x_pos y_pos w_pos h_pos+{# fun Fl_Roller_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) RollerBase orig impl where+  runOp _ _ roller = withRef roller $ \rollerPtr -> hide' rollerPtr+{# fun Fl_Roller_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) RollerBase orig impl where+  runOp _ _ roller = withRef roller $ \rollerPtr -> show' rollerPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Roller"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'RollerBase' -> 'IO' ()+--+-- draw :: 'Ref' 'RollerBase' -> 'IO' ()+--+-- handle :: 'Ref' 'RollerBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'RollerBase' -> 'IO' ()+--+-- resize :: 'Ref' 'RollerBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'RollerBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/RoundButton.chs view
@@ -0,0 +1,128 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.RoundButton+    (+     roundButtonNew,+     roundButtonCustom+  , drawRoundButtonBase+  , handleRoundButtonBase+  , resizeRoundButtonBase+  , hideRoundButtonBase+  , showWidgetRoundButtonBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Round_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+{# fun Fl_OverriddenRound_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenRound_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+roundButtonCustom ::+       Rectangle                         -- ^ The bounds of this RoundButton+    -> Maybe T.Text                      -- ^ The RoundButton label+    -> Maybe (Ref RoundButton -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs RoundButton)      -- ^ Optional custom widget functions+    -> IO (Ref RoundButton)+roundButtonCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+{# fun Fl_Round_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Round_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+roundButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RoundButton)+roundButtonNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Round_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ IO ()) => Op (Destroy ()) RoundButtonBase orig impl where+  runOp _ _ button = swapRef button $+                    \buttonPtr ->+                     widgetDestroy' buttonPtr >>+                     return nullPtr+{# fun Fl_Round_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawRoundButtonBase ::  Ref RoundButtonBase -> IO ()+drawRoundButtonBase roundButton = withRef roundButton $ \roundButtonPtr -> drawSuper' roundButtonPtr+{# fun Fl_Round_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleRoundButtonBase :: Ref RoundButtonBase -> Event ->  IO (Either UnknownEvent ())+handleRoundButtonBase roundButton event = withRef roundButton $ \roundButtonPtr -> handleSuper' roundButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Round_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeRoundButtonBase :: Ref RoundButtonBase -> Rectangle -> IO ()+resizeRoundButtonBase roundButton rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef roundButton $ \roundButtonPtr -> resizeSuper' roundButtonPtr x_pos y_pos width height+{# fun Fl_Round_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideRoundButtonBase ::  Ref RoundButtonBase -> IO ()+hideRoundButtonBase roundButton = withRef roundButton $ \roundButtonPtr -> hideSuper' roundButtonPtr+{# fun Fl_Round_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetRoundButtonBase ::  Ref RoundButtonBase -> IO ()+showWidgetRoundButtonBase roundButton = withRef roundButton $ \roundButtonPtr -> showSuper' roundButtonPtr++{# fun Fl_DerivedRound_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) RoundButtonBase orig impl where+  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> draw'' roundButtonPtr+{#fun Fl_DerivedRound_Button_handle as roundButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) RoundButtonBase orig impl where+  runOp _ _ roundButton event = withRef roundButton (\p -> roundButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedRound_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) RoundButtonBase orig impl where+  runOp _ _ roundButton rectangle = withRef roundButton $ \roundButtonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' roundButtonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedRound_Button_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) RoundButtonBase orig impl where+  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> show' roundButtonPtr+{# fun Fl_DerivedRound_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) RoundButtonBase orig impl where+  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> hide' roundButtonPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.RoundButton"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'RoundButtonBase' -> 'IO' ()+--+-- draw :: 'Ref' 'RoundButtonBase' -> 'IO' ()+--+-- handle :: 'Ref' 'RoundButtonBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'RoundButtonBase' -> 'IO' ()+--+-- resize :: 'Ref' 'RoundButtonBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'RoundButtonBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Scrollbar.chs view
@@ -0,0 +1,160 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Scrollbar+    (+     -- * Constructor+     scrollbarNew,+     scrollbarCustom+    , drawScrollbarBase+    , handleScrollbarBase+    , resizeScrollbarBase+    , hideScrollbarBase+    , showWidgetScrollbarBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_ScrollbarC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++{# fun Fl_OverriddenScrollbar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenScrollbar_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+scrollbarCustom ::+       Rectangle                         -- ^ The bounds of this Scrollbar+    -> Maybe T.Text                      -- ^ The Scrollbar label+    -> Maybe (Ref Scrollbar -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Scrollbar)      -- ^ Optional custom widget functions+    -> IO (Ref Scrollbar)+scrollbarCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Scrollbar_New as scrollbarNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Scrollbar_New_WithLabel as scrollbarNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+scrollbarNew :: Rectangle -> Maybe T.Text -> IO (Ref Scrollbar)+scrollbarNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Scrollbar_Destroy as scrollbarDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) ScrollbarBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    scrollbarDestroy' winPtr+    return nullPtr++{# fun Fl_Scrollbar_scrollvalue as scrollvalue' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `Int' #}+instance (impl ~ (Y -> Lines -> LineNumber -> Lines ->  IO (Int))) => Op (Scrollvalue ()) ScrollbarBase orig impl where+  runOp _ _ slider (Y pos) (Lines size) (LineNumber first) (Lines total) = withRef slider $ \sliderPtr -> scrollvalue' sliderPtr pos size first total++{# fun Fl_Scrollbar_set_linesize as setLinesize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (LineSize ->  IO ())) => Op (SetLinesize ()) ScrollbarBase orig impl where+  runOp _ _ slider (LineSize i) = withRef slider $ \sliderPtr -> setLinesize' sliderPtr i++{# fun Fl_Scrollbar_linesize as linesize' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO LineSize)) => Op (GetLinesize ()) ScrollbarBase orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> linesize' sliderPtr >>= return . LineSize++{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (ScrollbarType ->  IO ())) => Op (SetType ()) ScrollbarBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (ScrollbarType)) => Op (GetType_ ()) ScrollbarBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+++{# fun Fl_Scrollbar_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawScrollbarBase ::  Ref ScrollbarBase -> IO ()+drawScrollbarBase scrolled = withRef scrolled $ \scrolledPtr -> drawSuper' scrolledPtr+{# fun Fl_Scrollbar_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleScrollbarBase :: Ref ScrollbarBase -> Event ->  IO (Either UnknownEvent ())+handleScrollbarBase scrolled event = withRef scrolled $ \scrolledPtr -> handleSuper' scrolledPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Scrollbar_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeScrollbarBase :: Ref ScrollbarBase -> Rectangle -> IO ()+resizeScrollbarBase scrolled rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef scrolled $ \scrolledPtr -> resizeSuper' scrolledPtr x_pos y_pos width height+{# fun Fl_Scrollbar_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideScrollbarBase ::  Ref ScrollbarBase -> IO ()+hideScrollbarBase scrolled = withRef scrolled $ \scrolledPtr -> hideSuper' scrolledPtr+{# fun Fl_Scrollbar_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetScrollbarBase ::  Ref ScrollbarBase -> IO ()+showWidgetScrollbarBase scrolled = withRef scrolled $ \scrolledPtr -> showSuper' scrolledPtr++{# fun Fl_Scrollbar_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ScrollbarBase orig impl where+  runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> draw'' scrollbarPtr+{# fun Fl_Scrollbar_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ScrollbarBase orig impl where+  runOp _ _ scrollbar rectangle = withRef scrollbar $ \scrollbarPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' scrollbarPtr x_pos y_pos w_pos h_pos+{# fun Fl_Scrollbar_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ScrollbarBase orig impl where+  runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> hide' scrollbarPtr+{# fun Fl_Scrollbar_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ScrollbarBase orig impl where+  runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> show' scrollbarPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Scrollbar"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ScrollbarBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ScrollbarBase' -> 'IO' ()+--+-- getLinesize :: 'Ref' 'ScrollbarBase' -> 'IO' 'LineSize'+--+-- getType_ :: 'Ref' 'ScrollbarBase' -> 'IO' ('ScrollbarType')+--+-- hide :: 'Ref' 'ScrollbarBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ScrollbarBase' -> 'Rectangle' -> 'IO' ()+--+-- scrollvalue :: 'Ref' 'ScrollbarBase' -> 'Y' -> 'Lines' -> 'LineNumber' -> 'Lines' -> 'IO' ('Int')+--+-- setLinesize :: 'Ref' 'ScrollbarBase' -> 'LineSize' -> 'IO' ()+--+-- setType :: 'Ref' 'ScrollbarBase' -> 'ScrollbarType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ScrollbarBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Scrolled.chs view
@@ -0,0 +1,162 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Scrolled+    (+     -- * Constructor+     scrolledNew,+     scrolledCustom+  , drawScrolledBase+  , handleScrolledBase+  , resizeScrolledBase+  , hideScrolledBase+  , showWidgetScrolledBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_ScrollC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+{# fun Fl_OverriddenScroll_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenScroll_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+scrolledCustom ::+       Rectangle                         -- ^ The bounds of this Scrolled+    -> Maybe T.Text                      -- ^ The Scrolled label+    -> Maybe (Ref Scrolled -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Scrolled)      -- ^ Optional custom widget functions+    -> IO (Ref Scrolled)+scrolledCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Scroll_New as scrollNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Scroll_New_WithLabel as scrollNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+scrolledNew :: Rectangle -> Maybe T.Text -> IO (Ref Scrolled)+scrolledNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+{# fun Fl_Scroll_set_scrollbar_size as setScrollbarSize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ())) => Op (SetScrollbarSize ()) ScrolledBase orig impl where+   runOp _ _ widget size = withRef widget $ \widgetPtr -> setScrollbarSize' widgetPtr size+{# fun Fl_Scroll_get_scrollbar_size as getScrollbarSize' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetScrollbarSize ()) ScrolledBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> getScrollbarSize' widgetPtr+{# fun Fl_Scroll_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Clear ()) ScrolledBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> clear' widgetPtr+{# fun Fl_Scroll_scroll_to as scrollTo' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (Position ->  IO ())) => Op (ScrollTo ()) ScrolledBase orig impl where+   runOp _ _ widget (Position (X x_pos') (Y y_pos')) = withRef widget $ \widgetPtr -> scrollTo' widgetPtr x_pos' y_pos'+{# fun Fl_Scroll_yposition as yposition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (Yposition ()) ScrolledBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> yposition' widgetPtr+{# fun Fl_Scroll_xposition as xposition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (Xposition ()) ScrolledBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> xposition' widgetPtr+{# fun Fl_Scroll_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ ( IO (ScrollbarMode))) => Op (GetType_ ()) ScrolledBase orig impl where+   runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . cToEnum+{# fun Fl_Scroll_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}+instance (impl ~ (ScrollbarMode ->  IO ())) => Op (SetType ()) ScrolledBase orig impl where+   runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (cFromEnum t)++{# fun Fl_Scroll_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawScrolledBase ::  Ref ScrolledBase -> IO ()+drawScrolledBase scrolled = withRef scrolled $ \scrolledPtr -> drawSuper' scrolledPtr+{# fun Fl_Scroll_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleScrolledBase :: Ref ScrolledBase -> Event ->  IO (Either UnknownEvent ())+handleScrolledBase scrolled event = withRef scrolled $ \scrolledPtr -> handleSuper' scrolledPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Scroll_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeScrolledBase :: Ref ScrolledBase -> Rectangle -> IO ()+resizeScrolledBase scrolled rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef scrolled $ \scrolledPtr -> resizeSuper' scrolledPtr x_pos y_pos width height+{# fun Fl_Scroll_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideScrolledBase ::  Ref ScrolledBase -> IO ()+hideScrolledBase scrolled = withRef scrolled $ \scrolledPtr -> hideSuper' scrolledPtr+{# fun Fl_Scroll_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetScrolledBase ::  Ref ScrolledBase -> IO ()+showWidgetScrolledBase scrolled = withRef scrolled $ \scrolledPtr -> showSuper' scrolledPtr++{# fun Fl_Scroll_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ScrolledBase orig impl where+  runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> draw'' scrolledPtr+{#fun Fl_Scroll_handle as scrolledHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ScrolledBase orig impl where+  runOp _ _ scrolled event = withRef scrolled (\p -> scrolledHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Scroll_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ScrolledBase orig impl where+  runOp _ _ scrolled rectangle = withRef scrolled $ \scrolledPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' scrolledPtr x_pos y_pos w_pos h_pos+{# fun Fl_Scroll_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ScrolledBase orig impl where+  runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> hide' scrolledPtr+{# fun Fl_Scroll_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ScrolledBase orig impl where+  runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> show' scrolledPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Scrolled"+-- @++-- $functions+-- @+-- clear :: 'Ref' 'ScrolledBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ScrolledBase' -> 'IO' ()+--+-- getScrollbarSize :: 'Ref' 'ScrolledBase' -> 'IO' ('Int')+--+-- getType_ :: 'Ref' 'ScrolledBase' -> 'IO' ('ScrollbarMode')+--+-- handle :: 'Ref' 'ScrolledBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ScrolledBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ScrolledBase' -> 'Rectangle' -> 'IO' ()+--+-- scrollTo :: 'Ref' 'ScrolledBase' -> 'Position' -> 'IO' ()+--+-- setScrollbarSize :: 'Ref' 'ScrolledBase' -> 'Int' -> 'IO' ()+--+-- setType :: 'Ref' 'ScrolledBase' -> 'ScrollbarMode' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ScrolledBase' -> 'IO' ()+--+-- xposition :: 'Ref' 'ScrolledBase' -> 'IO' ('Int')+--+-- yposition :: 'Ref' 'ScrolledBase' -> 'IO' ('Int')+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/SimpleTerminal.chs view
@@ -0,0 +1,220 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+module Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal+       (+         simpleTerminalNew,+         simpleTerminalCustom+  , drawSimpleTerminalBase+  , handleSimpleTerminalBase+  , resizeSimpleTerminalBase+  , hideSimpleTerminalBase+  , showWidgetSimpleTerminalBase+         -- * Hierarchy+         --+         -- $hierarchy++         -- * Functions+         --+         -- $functions+       )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Simple_TerminalC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Base.TextDisplay+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import qualified Foreign.ForeignPtr.Unsafe as Unsafe++{# fun Fl_Simple_Terminal_New as simpleTerminalNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Simple_Terminal_New_WithLabel as simpleTerminalNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+simpleTerminalNew :: Rectangle -> Maybe T.Text -> IO (Ref SimpleTerminal)+simpleTerminalNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_OverriddenSimple_Terminal_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSimple_Terminal_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+simpleTerminalCustom ::+       Rectangle                           -- ^ The bounds of this SimpleTerminal+    -> Maybe T.Text                        -- ^ The SimpleTerminal label+    -> Maybe (Ref SimpleTerminal -> IO ()) -- ^ Optional custom drawing function+    -> IO (Ref SimpleTerminal)+simpleTerminalCustom rectangle l' draw' =+  widgetMaker+    rectangle+    l'+    draw'+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Simple_Terminal_set_stay_at_bottom as setStayAtBottom' { id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (SetStayAtBottom ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal b = withRef simple_terminal $ \simple_terminalPtr -> setStayAtBottom' simple_terminalPtr b+{# fun Fl_Simple_Terminal_get_stay_at_bottom as getStayAtBottom' { id `Ptr ()'} -> `Bool' cToBool#}+instance (impl ~ (IO Bool)) => Op (GetStayAtBottom ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getStayAtBottom' simple_terminalPtr+{# fun Fl_Simple_Terminal_set_ansi as setAnsi' { id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (SetAnsi ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal b = withRef simple_terminal $ \simple_terminalPtr -> setAnsi' simple_terminalPtr b+{# fun Fl_Simple_Terminal_get_ansi as getAnsi' { id `Ptr ()'} -> `Bool' cToBool#}+instance (impl ~ (IO Bool)) => Op (GetAnsi ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getAnsi' simple_terminalPtr+{# fun Fl_Simple_Terminal_set_history_lines as setHistoryLines' { id `Ptr ()', `Int' } -> `()' #}+instance (impl ~ (Lines ->  IO ())) => Op (SetHistoryLines ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal (Lines b) = withRef simple_terminal $ \simple_terminalPtr -> setHistoryLines' simple_terminalPtr b+{# fun Fl_Simple_Terminal_get_history_lines as getHistoryLines' { id `Ptr ()'} -> `Int' #}+instance (impl ~ (IO Lines)) => Op (GetHistoryLines ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getHistoryLines' simple_terminalPtr >>= return . Lines+{# fun Fl_Simple_Terminal_set_normal_style_index as setNormalStyleIndex' { id `Ptr ()', `Int' } -> `()' #}+instance (impl ~ (AtIndex ->  IO ())) => Op (SetNormalStyleIndex ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal (AtIndex b) = withRef simple_terminal $ \simple_terminalPtr -> setNormalStyleIndex' simple_terminalPtr b+{# fun Fl_Simple_Terminal_get_normal_style_index as getNormalStyleIndex' { id `Ptr ()'} -> `Int' #}+instance (impl ~ (IO AtIndex)) => Op (GetNormalStyleIndex ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getNormalStyleIndex' simple_terminalPtr >>= return . AtIndex+{# fun Fl_Simple_Terminal_set_current_style_index as setCurrentStyleIndex' { id `Ptr ()', `Int' } -> `()' #}+instance (impl ~ (AtIndex ->  IO ())) => Op (SetCurrentStyleIndex ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal (AtIndex b) = withRef simple_terminal $ \simple_terminalPtr -> setCurrentStyleIndex' simple_terminalPtr b+{# fun Fl_Simple_Terminal_get_current_style_index as getCurrentStyleIndex' { id `Ptr ()'} -> `Int' #}+instance (impl ~ (IO AtIndex)) => Op (GetCurrentStyleIndex ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getCurrentStyleIndex' simple_terminalPtr >>= return . AtIndex+{# fun Fl_Simple_Terminal_set_text as setText' { id `Ptr ()',`CString' } -> `()' #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetText ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal val = withRef simple_terminal $ \simple_terminalPtr -> copyTextToCString val >>= setText' simple_terminalPtr+{# fun Fl_Simple_Terminal_get_text as getText' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetText ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getText' simple_terminalPtr >>= cStringToText+{# fun Fl_Simple_Terminal_clear as clear'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Clear ()) SimpleTerminalBase orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> clear'' simpleTerminalPtr+{# fun Fl_Simple_Terminal_remove_lines as removeLines' { id `Ptr ()', `Int', `Int' } -> `()' #}+instance (impl ~ (LineNumber -> LineNumber -> IO ())) => Op (RemoveLines ()) SimpleTerminalBase 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 ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal styleTable normal_style_index =+     withRef simple_terminal $ \simple_terminalPtr -> do+       stesPtr <- mkStyleTableEntriesPtr simple_terminal styleTable+       setStyleTable'+         simple_terminalPtr+         (castPtr (Unsafe.unsafeForeignPtrToPtr stesPtr))+         (length styleTable)+         (maybe 0 id normal_style_index)+{# fun Fl_Simple_Terminal_get_style_table_size as getStyleTableSize' { id `Ptr ()'} -> `Int' fromIntegral #}+instance (impl ~ (IO Int)) => Op (GetStyleTableSize ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getStyleTableSize' simple_terminalPtr+{# fun Fl_Simple_Terminal_get_style_table as getStyleTable' { id `Ptr ()'} -> `Ptr ()' #}+instance (impl ~ (IO (Maybe [StyleTableEntry]))) => Op (GetStyleTable ()) SimpleTerminalBase orig impl where+   runOp _ _ simple_terminal =+     withRef simple_terminal $ \simple_terminalPtr -> do+       size <- getStyleTableSize simple_terminal+       ptr <- getStyleTable' simple_terminalPtr+       toStyleTableEntries size ptr++{# fun Fl_Simple_Terminal_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawSimpleTerminalBase ::  Ref SimpleTerminalBase -> IO ()+drawSimpleTerminalBase simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> drawSuper' simpleTerminalPtr+{# fun Fl_Simple_Terminal_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleSimpleTerminalBase :: Ref SimpleTerminalBase -> Event ->  IO (Either UnknownEvent ())+handleSimpleTerminalBase simpleTerminal event = withRef simpleTerminal $ \simpleTerminalPtr -> handleSuper' simpleTerminalPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Simple_Terminal_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeSimpleTerminalBase :: Ref SimpleTerminalBase -> Rectangle -> IO ()+resizeSimpleTerminalBase simpleTerminal rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef simpleTerminal $ \simpleTerminalPtr -> resizeSuper' simpleTerminalPtr x_pos y_pos width height+{# fun Fl_Simple_Terminal_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideSimpleTerminalBase ::  Ref SimpleTerminalBase -> IO ()+hideSimpleTerminalBase simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> hideSuper' simpleTerminalPtr+{# fun Fl_Simple_Terminal_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetSimpleTerminalBase ::  Ref SimpleTerminalBase -> IO ()+showWidgetSimpleTerminalBase simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> showSuper' simpleTerminalPtr++{# fun Fl_Simple_Terminal_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) SimpleTerminalBase orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> draw'' simpleTerminalPtr+{#fun Fl_Simple_Terminal_handle as simpleTerminalHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SimpleTerminalBase orig impl where+  runOp _ _ simpleTerminal event = withRef simpleTerminal (\p -> simpleTerminalHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Simple_Terminal_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SimpleTerminalBase orig impl where+  runOp _ _ simpleTerminal rectangle = withRef simpleTerminal $ \simpleTerminalPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' simpleTerminalPtr x_pos y_pos w_pos h_pos+{# fun Fl_Simple_Terminal_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) SimpleTerminalBase orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> hide' simpleTerminalPtr+{# fun Fl_Simple_Terminal_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) SimpleTerminalBase orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> show' simpleTerminalPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.TextDisplay"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal"+-- @++-- $functions+-- @+-- clear :: 'Ref' 'SimpleTerminalBase' -> 'IO' ()+--+-- draw :: 'Ref' 'SimpleTerminalBase' -> 'IO' ()+--+-- getAnsi :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'Bool'+--+-- getCurrentStyleIndex :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'AtIndex'+--+-- getHistoryLines :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'Lines'+--+-- getNormalStyleIndex :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'AtIndex'+--+-- getStayAtBottom :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'Bool'+--+-- getStyleTable :: 'Ref' 'SimpleTerminalBase' -> 'IO' ('Maybe' ['StyleTableEntry')]+--+-- getStyleTableSize :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'Int'+--+-- getText :: 'Ref' 'SimpleTerminalBase' -> 'IO' 'T.Text'+--+-- handle :: 'Ref' 'SimpleTerminalBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'SimpleTerminalBase' -> 'IO' ()+--+-- removeLines :: 'Ref' 'SimpleTerminalBase' -> 'LineNumber' -> 'LineNumber' -> 'IO' ()+--+-- resize :: 'Ref' 'SimpleTerminalBase' -> 'Rectangle' -> 'IO' ()+--+-- setAnsi :: 'Ref' 'SimpleTerminalBase' -> 'Bool' -> 'IO' ()+--+-- setCurrentStyleIndex :: 'Ref' 'SimpleTerminalBase' -> 'AtIndex' -> 'IO' ()+--+-- setHistoryLines :: 'Ref' 'SimpleTerminalBase' -> 'Lines' -> 'IO' ()+--+-- setNormalStyleIndex :: 'Ref' 'SimpleTerminalBase' -> 'AtIndex' -> 'IO' ()+--+-- setStayAtBottom :: 'Ref' 'SimpleTerminalBase' -> 'Bool' -> 'IO' ()+--+-- setStyleTable :: 'Ref' 'SimpleTerminalBase' -> ['StyleTableEntry'] -> 'Maybe' 'Int' -> 'IO' ()+--+-- setText :: 'Ref' 'SimpleTerminalBase' -> 'T.Text' -> 'IO' ()+--+-- showWidget :: 'Ref' 'SimpleTerminalBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/SingleWindow.chs view
@@ -0,0 +1,134 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.SingleWindow+  (+    singleWindowNew,+    singleWindowCustom+  , handleSingleWindowBase+  , resizeSingleWindowBase+  , hideSingleWindowBase+  , showWidgetSingleWindowBase+    -- * Hierarchy+    --+    -- $hierarchy++    -- * Functions+    --+    -- $functions+  )+where+#include "Fl_C.h"+#include "Fl_Single_WindowC.h"+import Foreign+import Foreign.C+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Base.Window++{# fun Fl_OverriddenSingle_Window_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSingle_Window_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSingle_Window_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSingle_Window_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+singleWindowCustom :: Size                                 -- ^ Size of this window+                   -> Maybe Position                       -- ^ Optional position of this window+                   -> Maybe T.Text                         -- ^ Optional label+                   -> Maybe (Ref SingleWindow -> IO ())    -- ^ Optional custom drawing function+                   -> CustomWidgetFuncs SingleWindow       -- ^ Custom widget overrides+                   -> CustomWindowFuncs SingleWindow       -- ^ Custom window overrides+                   -> IO (Ref SingleWindow)+singleWindowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =+  windowMaker+    size+    position+    title+    draw'+    customWidgetFuncs'+    customWindowFuncs'+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++singleWindowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref SingleWindow)+singleWindowNew size position title =+  windowMaker+    size+    position+    title+    Nothing+    (defaultCustomWidgetFuncs :: CustomWidgetFuncs SingleWindow)+    (defaultCustomWindowFuncs :: CustomWindowFuncs SingleWindow)+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++{# fun Fl_Single_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) SingleWindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr++{# fun Fl_Single_Window_handle as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleSingleWindowBase :: Ref SingleWindowBase -> Event ->  IO (Either UnknownEvent ())+handleSingleWindowBase singleWindow event = withRef singleWindow $ \singleWindowPtr -> handleSuper' singleWindowPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Single_Window_resize as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeSingleWindowBase :: Ref SingleWindowBase -> Rectangle -> IO ()+resizeSingleWindowBase singleWindow rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef singleWindow $ \singleWindowPtr -> resizeSuper' singleWindowPtr x_pos y_pos width height+{# fun Fl_Single_Window_hide as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideSingleWindowBase ::  Ref SingleWindowBase -> IO ()+hideSingleWindowBase singleWindow = withRef singleWindow $ \singleWindowPtr -> hideSuper' singleWindowPtr+{# fun Fl_Single_Window_show as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetSingleWindowBase ::  Ref SingleWindowBase -> IO ()+showWidgetSingleWindowBase singleWindow = withRef singleWindow $ \singleWindowPtr -> showSuper' singleWindowPtr++{# fun Fl_DerivedSingle_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) SingleWindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr++{# fun Fl_DerivedSingle_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) SingleWindowBase orig impl where+  runOp _ _ window = withRef window (\p -> windowShow' p)++{#fun Fl_DerivedSingle_Window_handle as windowHandle'+      { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SingleWindowBase orig impl where+  runOp _ _ window event = withRef window (\p -> windowHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent++{# fun Fl_DerivedSingle_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SingleWindowBase orig impl where+  runOp _ _ window rectangle = withRef window $ \windowPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' windowPtr x_pos y_pos w_pos h_pos++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.SingleWindow"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'SingleWindowBase' -> 'IO' ()+--+-- handle :: 'Ref' 'SingleWindowBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'SingleWindowBase' -> 'IO' ()+--+-- resize :: 'Ref' 'SingleWindowBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'SingleWindowBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Slider.chs view
@@ -0,0 +1,171 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Slider+    (+     sliderNew,+     sliderCustom+  , drawSliderBase+  , handleSliderBase+  , resizeSliderBase+  , hideSliderBase+  , showWidgetSliderBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SliderC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+{# fun Fl_OverriddenSlider_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSlider_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+sliderCustom ::+       Rectangle                         -- ^ The bounds of this Slider+    -> Maybe T.Text                      -- ^ The Slider label+    -> Maybe (Ref Slider -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Slider)      -- ^ Optional custom widget functions+    -> IO (Ref Slider)+sliderCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+{# fun Fl_Slider_New as sliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Slider_New_WithLabel as sliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+sliderNew :: Rectangle -> Maybe T.Text -> IO (Ref Slider)+sliderNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Slider_Destroy as sliderDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) SliderBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+                                        sliderDestroy' winPtr+                                        return nullPtr+{# fun Fl_Slider_bounds as bounds' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double -> Double ->  IO ())) => Op (Bounds ()) SliderBase orig impl where+  runOp _ _ slider a b = withRef slider $ \sliderPtr -> bounds' sliderPtr a b+{# fun Fl_Slider_scrollvalue as scrollvalue' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `Int' #}+instance (impl ~ (Y -> Lines -> LineNumber -> Lines ->  IO (Int))) => Op (Scrollvalue ()) SliderBase orig impl where+  runOp _ _ slider (Y pos) (Lines slider_size) (LineNumber first) (Lines total) = withRef slider $ \sliderPtr -> scrollvalue' sliderPtr pos slider_size first total+{# fun Fl_Slider_set_slider_size as setSliderSize' { id `Ptr ()' } -> `Float' #}+instance (impl ~ ( IO (Double))) => Op (GetSliderSize ()) SliderBase orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> setSliderSize' sliderPtr >>= return . realToFrac+{# fun Fl_Slider_slider_size as sliderSize' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double ->  IO ())) => Op (SetSliderSize ()) SliderBase orig impl where+  runOp _ _ slider v = withRef slider $ \sliderPtr -> sliderSize' sliderPtr v+{# fun Fl_Slider_slider as slider' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ ( IO (Boxtype))) => Op (GetSlider ()) SliderBase orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> slider' sliderPtr+{# fun Fl_Slider_set_slider as setSlider' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Boxtype ->  IO ())) => Op (SetSlider ()) SliderBase orig impl where+  runOp _ _ slider c = withRef slider $ \sliderPtr -> setSlider' sliderPtr c+{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (SliderType ->  IO ())) => Op (SetType ()) SliderBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (SliderType)) => Op (GetType_ ()) SliderBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger++{# fun Fl_Slider_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawSliderBase ::  Ref SliderBase -> IO ()+drawSliderBase slider = withRef slider $ \sliderPtr -> drawSuper' sliderPtr+{# fun Fl_Slider_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleSliderBase :: Ref SliderBase -> Event ->  IO (Either UnknownEvent ())+handleSliderBase slider event = withRef slider $ \sliderPtr -> handleSuper' sliderPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Slider_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeSliderBase :: Ref SliderBase -> Rectangle -> IO ()+resizeSliderBase slider rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef slider $ \sliderPtr -> resizeSuper' sliderPtr x_pos y_pos width height+{# fun Fl_Slider_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideSliderBase ::  Ref SliderBase -> IO ()+hideSliderBase slider = withRef slider $ \sliderPtr -> hideSuper' sliderPtr+{# fun Fl_Slider_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetSliderBase ::  Ref SliderBase -> IO ()+showWidgetSliderBase slider = withRef slider $ \sliderPtr -> showSuper' sliderPtr++{# fun Fl_DerivedSlider_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) SliderBase orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> draw'' sliderPtr++{#fun Fl_DerivedSlider_handle as sliderHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SliderBase orig impl where+  runOp _ _ slider event = withRef slider (\p -> sliderHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent++{# fun Fl_DerivedSlider_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) SliderBase orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> show' sliderPtr++{# fun Fl_DerivedSlider_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) SliderBase orig impl where+  runOp _ _ slider rectangle = withRef slider $ \sliderPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' sliderPtr x_pos y_pos w_pos h_pos++{# fun Fl_DerivedSlider_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) SliderBase orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> hide' sliderPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+-- @++-- $functions+-- @+-- bounds :: 'Ref' 'SliderBase' -> 'Double' -> 'Double' -> 'IO' ()+--+-- destroy :: 'Ref' 'SliderBase' -> 'IO' ()+--+-- draw :: 'Ref' 'SliderBase' -> 'IO' ()+--+-- getSlider :: 'Ref' 'SliderBase' -> 'IO' ('Boxtype')+--+-- getSliderSize :: 'Ref' 'SliderBase' -> 'IO' ('Double')+--+-- getType_ :: 'Ref' 'SliderBase' -> 'IO' ('SliderType')+--+-- handle :: 'Ref' 'SliderBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'SliderBase' -> 'IO' ()+--+-- resize :: 'Ref' 'SliderBase' -> 'Rectangle' -> 'IO' ()+--+-- scrollvalue :: 'Ref' 'SliderBase' -> 'Y' -> 'Lines' -> 'LineNumber' -> 'Lines' -> 'IO' ('Int')+--+-- setSlider :: 'Ref' 'SliderBase' -> 'Boxtype' -> 'IO' ()+--+-- setSliderSize :: 'Ref' 'SliderBase' -> 'Double' -> 'IO' ()+--+-- setType :: 'Ref' 'SliderBase' -> 'SliderType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'SliderBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Spinner.chs view
@@ -0,0 +1,239 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Spinner+    (+     -- * Constructor+     spinnerNew,+     spinnerCustom,+     SpinnerType(..)+  , drawSpinnerBase+  , handleSpinnerBase+  , resizeSpinnerBase+  , hideSpinnerBase+  , showWidgetSpinnerBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+     --+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_SpinnerC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+#c+enum SpinnerType {+  IntSpinnerType = FL_INT_INPUTC,+  FloatSpinnerType = FL_FLOAT_INPUTC+};+#endc+{#enum SpinnerType {} deriving (Show, Eq) #}+{# fun Fl_OverriddenSpinner_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSpinner_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+spinnerCustom ::+       Rectangle                         -- ^ The bounds of this Spinner+    -> Maybe T.Text                      -- ^ The Spinner label+    -> Maybe (Ref Spinner -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Spinner)      -- ^ Optional custom widget functions+    -> IO (Ref Spinner)+spinnerCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Spinner_New as spinnerNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Spinner_New_WithLabel as spinnerNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+spinnerNew :: Rectangle -> Maybe T.Text -> IO (Ref Spinner)+spinnerNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Spinner_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) SpinnerBase orig impl where+  runOp _ _ spinner text = withRef spinner $ \spinnerPtr -> setTextfont' spinnerPtr text+{# fun Fl_Spinner_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> textfont' spinnerPtr+{# fun Fl_Spinner_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) SpinnerBase orig impl where+  runOp _ _ spinner (FontSize text) = withRef spinner $ \spinnerPtr -> setTextsize' spinnerPtr text+{# fun Fl_Spinner_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> textsize' spinnerPtr >>= return . FontSize+{# fun Fl_Spinner_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) SpinnerBase orig impl where+  runOp _ _ spinner text = withRef spinner $ \spinnerPtr -> setTextcolor' spinnerPtr text+{# fun Fl_Spinner_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> textcolor' spinnerPtr+{# fun Fl_Spinner_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (SpinnerType ->  IO ())) => Op (SetType ()) SpinnerBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Spinner_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (SpinnerType)) => Op (GetType_ ()) SpinnerBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+{# fun Fl_Spinner_set_format as set_format' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetFormat ()) SpinnerBase orig impl where+  runOp _ _ spinner f = withRef spinner $ \spinnerPtr -> copyTextToCString f >>= set_format' spinnerPtr+{# fun Fl_Spinner_format as format' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO (Maybe T.Text))) => Op (GetFormat ()) SpinnerBase orig impl where+   runOp _ _ spinner = withRef spinner $ \spinnerPtr -> format' spinnerPtr >>= \s -> cStringToText s >>= \s ->+     if (T.null s) then return Nothing else return (Just s)+{# fun Fl_Spinner_value as value' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetValue ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> value' spinnerPtr+{# fun Fl_Spinner_set_value as setValue' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double ->  IO ())) => Op (SetValue ()) SpinnerBase orig impl where+  runOp _ _ spinner v = withRef spinner $ \spinnerPtr -> setValue' spinnerPtr v+{# fun Fl_Spinner_set_step as setStep' { id `Ptr ()', `Double'} -> `()' supressWarningAboutRes #}+instance (impl ~ (Double -> IO ())) => Op (SetStep ()) SpinnerBase orig impl where+  runOp _ _ spinner r = withRef spinner $ \spinnerPtr -> setStep' spinnerPtr r+{# fun Fl_Spinner_step as step' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetStep ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> step' spinnerPtr+{# fun Fl_Spinner_maximum as maximum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetMaximum ()) SpinnerBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> maximum' valuatorPtr+{# fun Fl_Spinner_set_maximum as setMaximum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double ->  IO ())) => Op (SetMaximum ()) SpinnerBase orig impl where+  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMaximum' valuatorPtr a+{# fun Fl_Spinner_minimum as minimum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetMinimum ()) SpinnerBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> minimum' valuatorPtr+{# fun Fl_Spinner_set_minimum as setMinimum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double ->  IO ())) => Op (SetMinimum ()) SpinnerBase orig impl where+  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMinimum' valuatorPtr a+{# fun Fl_Spinner_range as range' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double -> Double ->  IO ())) => Op (Range ()) SpinnerBase orig impl where+  runOp _ _ valuator a b = withRef valuator $ \valuatorPtr -> range' valuatorPtr a b++{# fun Fl_Spinner_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawSpinnerBase ::  Ref SpinnerBase -> IO ()+drawSpinnerBase spinner = withRef spinner $ \spinnerPtr -> drawSuper' spinnerPtr+{# fun Fl_Spinner_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleSpinnerBase :: Ref SpinnerBase -> Event ->  IO (Either UnknownEvent ())+handleSpinnerBase spinner event = withRef spinner $ \spinnerPtr -> handleSuper' spinnerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Spinner_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeSpinnerBase :: Ref SpinnerBase -> Rectangle -> IO ()+resizeSpinnerBase spinner rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef spinner $ \spinnerPtr -> resizeSuper' spinnerPtr x_pos y_pos width height+{# fun Fl_Spinner_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideSpinnerBase ::  Ref SpinnerBase -> IO ()+hideSpinnerBase spinner = withRef spinner $ \spinnerPtr -> hideSuper' spinnerPtr+{# fun Fl_Spinner_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetSpinnerBase ::  Ref SpinnerBase -> IO ()+showWidgetSpinnerBase spinner = withRef spinner $ \spinnerPtr -> showSuper' spinnerPtr++{# fun Fl_Spinner_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> draw'' spinnerPtr+{#fun Fl_Spinner_handle as spinnerHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SpinnerBase orig impl where+  runOp _ _ spinner event = withRef spinner (\p -> spinnerHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Spinner_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SpinnerBase orig impl where+  runOp _ _ spinner rectangle = withRef spinner $ \spinnerPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' spinnerPtr x_pos y_pos w_pos h_pos+{# fun Fl_Spinner_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> hide' spinnerPtr+{# fun Fl_Spinner_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> show' spinnerPtr++{# fun Fl_Spinner_set_wrap as setWrap' { id `Ptr ()', cFromBool `Bool'} -> `()' supressWarningAboutRes #}+instance (impl ~ (Bool -> IO ())) => Op (SetWrap ()) SpinnerBase orig impl where+  runOp _ _ spinner r = withRef spinner $ \spinnerPtr -> setWrap' spinnerPtr r+{# fun Fl_Spinner_wrap as wrap' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (GetWrap ()) SpinnerBase orig impl where+  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> wrap' spinnerPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Spinner"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'SpinnerBase' -> 'IO' ()+--+-- getFormat :: 'Ref' 'SpinnerBase' -> 'IO' ('Maybe' 'T.Text')+--+-- getMaximum :: 'Ref' 'SpinnerBase' -> 'IO' ('Double')+--+-- getMinimum :: 'Ref' 'SpinnerBase' -> 'IO' ('Double')+--+-- getStep :: 'Ref' 'SpinnerBase' -> 'IO' ('Double')+--+-- getTextcolor :: 'Ref' 'SpinnerBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'SpinnerBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'SpinnerBase' -> 'IO' ('FontSize')+--+-- getType_ :: 'Ref' 'SpinnerBase' -> 'IO' ('SpinnerType')+--+-- getValue :: 'Ref' 'SpinnerBase' -> 'IO' ('Double')+--+-- getWrap :: 'Ref' 'SpinnerBase' -> 'IO' ('Bool')+--+-- handle :: 'Ref' 'SpinnerBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'SpinnerBase' -> 'IO' ()+--+-- range :: 'Ref' 'SpinnerBase' -> 'Double' -> 'Double' -> 'IO' ()+--+-- resize :: 'Ref' 'SpinnerBase' -> 'Rectangle' -> 'IO' ()+--+-- setFormat :: 'Ref' 'SpinnerBase' -> 'T.Text' -> 'IO' ()+--+-- setMaximum :: 'Ref' 'SpinnerBase' -> 'Double' -> 'IO' ()+--+-- setMinimum :: 'Ref' 'SpinnerBase' -> 'Double' -> 'IO' ()+--+-- setStep :: 'Ref' 'SpinnerBase' -> 'Double' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'SpinnerBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'SpinnerBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'SpinnerBase' -> 'FontSize' -> 'IO' ()+--+-- setType :: 'Ref' 'SpinnerBase' -> 'SpinnerType' -> 'IO' ()+--+-- setValue :: 'Ref' 'SpinnerBase' -> 'Double' -> 'IO' ()+--+-- setWrap :: 'Ref' 'SpinnerBase' -> 'Bool' -> 'IO' ()+--+-- showWidget :: 'Ref' 'SpinnerBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/SysMenuBar.chs view
@@ -0,0 +1,204 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.SysMenuBar+    (+     sysMenuBarNew,+     sysMenuBarCustom+  , drawSysMenuBarBase+  , handleSysMenuBarBase+  , resizeSysMenuBarBase+  , hideSysMenuBarBase+  , showWidgetSysMenuBarBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Sys_Menu_BarC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.MenuItem+import Graphics.UI.FLTK.LowLevel.Base.MenuPrim++{# fun Fl_OverriddenSys_Menu_Bar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenSys_Menu_Bar_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+sysMenuBarCustom ::+       Rectangle                         -- ^ The bounds of this SysMenuBar+    -> Maybe T.Text                      -- ^ The SysMenuBar label+    -> Maybe (Ref SysMenuBar -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs SysMenuBar)      -- ^ Optional custom widget functions+    -> IO (Ref SysMenuBar)+sysMenuBarCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+{# fun Fl_Sys_Menu_Bar_New as sysMenuBarNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Sys_Menu_Bar_New_WithLabel as sysMenuBarNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+sysMenuBarNew :: Rectangle -> Maybe T.Text -> IO (Ref SysMenuBar)+sysMenuBarNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+{# fun Fl_Sys_Menu_Bar_Destroy as sysMenuBarDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) SysMenuBarBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    sysMenuBarDestroy' winPtr+    return nullPtr+{# fun Fl_Sys_Menu_Bar_remove as remove' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int  ->  IO ())) => Op (Remove ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ index' = withRef menu_ $ \menu_Ptr -> remove' menu_Ptr index'+{# fun Fl_Sys_Menu_Bar_replace as replace' { id `Ptr ()',`Int', `CString' } -> `()' #}+instance (impl ~ (AtIndex -> T.Text ->  IO ())) => Op (Replace ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ (AtIndex index') name = withRef menu_ $ \menu_Ptr -> copyTextToCString name >>= replace' menu_Ptr index'+{# fun Fl_Sys_Menu_Bar_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Clear ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> clear' menu_Ptr+{# fun Fl_Sys_Menu_Bar_clear_submenu as clearSubmenu' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (Either OutOfRangeOrNotSubmenu ()))) => Op (ClearSubmenu ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ (AtIndex index') = withRef menu_ $ \menu_Ptr -> clearSubmenu' menu_Ptr index' >>= return . successOrOutOfRangeOrNotSubmenu+{# fun Fl_Sys_Menu_Bar_shortcut as shortcut' { id `Ptr ()',`Int',id `CInt' } -> `()' #}+instance (impl ~ (AtIndex -> ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ (AtIndex index') (ShortcutKeySequence modifiers char) =+    withRef menu_ $ \menu_Ptr ->+        shortcut' menu_Ptr index' (keySequenceToCInt modifiers char)+{# fun Fl_Sys_Menu_Bar_set_mode as setMode' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (AtIndex -> MenuItemFlags ->  IO ())) => Op (SetMode ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ (AtIndex i) fl = withRef menu_ $ \menu_Ptr -> setMode' menu_Ptr i (menuItemFlagsToInt fl)+{# fun Fl_Sys_Menu_Bar_mode as mode' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (Maybe MenuItemFlags))) => Op (GetMode ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ (AtIndex i) = withRef menu_ $ \menu_Ptr -> mode' menu_Ptr i >>= return . intToMenuItemFlags+{# fun Fl_Sys_Menu_Bar_global as global' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Global ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> global' menu_Ptr+{# fun Fl_Sys_Menu_Bar_menu_with_m as menuWithM' { id `Ptr ()',id `Ptr ( Ptr () )',`Int' } -> `()' #}+instance (impl ~ ([Ref MenuItem] -> IO ())) => Op (SetMenu ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ items =+    withRef menu_ $ \menu_Ptr ->+        withRefs items $ \menu_itemsPtr ->+            menuWithM' menu_Ptr menu_itemsPtr (length items)++{# fun Fl_Sys_Menu_Bar_add_with_name as add' { id `Ptr ()',`CString'} -> `()' #}+instance (impl ~ (T.Text -> IO ())) => Op (AddName ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ name' = withRef menu_ $ \menu_Ptr -> copyTextToCString name' >>= add' menu_Ptr++{# fun Fl_Sys_Menu_Bar_add_with_flags as addWithFlags' { id `Ptr ()',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+{# fun Fl_Sys_Menu_Bar_add_with_shortcutname_flags as addWithShortcutnameFlags' { id `Ptr ()', `CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+instance (Parent a MenuItemBase, impl ~ ( T.Text -> Maybe Shortcut -> Maybe (Ref a-> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Add ()) SysMenuBarBase orig (impl) where+  runOp _ _ menu_ name shortcut cb flags =+    addMenuItem (Left (safeCast menu_)) name shortcut cb flags addWithFlags' addWithShortcutnameFlags'++{# fun Fl_Sys_Menu_Bar_insert_with_flags as insertWithFlags' { id `Ptr ()',`Int',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}+{# fun Fl_Sys_Menu_Bar_insert_with_shortcutname_flags as insertWithShortcutnameFlags' { id `Ptr ()',`Int',`CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}+instance (Parent a MenuPrimBase, impl ~ ( AtIndex -> T.Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Insert ()) SysMenuBarBase orig impl where+  runOp _ _ menu_ (AtIndex index') name shortcut cb flags = insertMenuItem (safeCast menu_) index' name shortcut cb flags insertWithFlags' insertWithShortcutnameFlags'++{# fun Fl_Sys_Menu_Bar_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawSysMenuBarBase ::  Ref SysMenuBarBase -> IO ()+drawSysMenuBarBase sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> drawSuper' sysMenuBarPtr+{# fun Fl_Sys_Menu_Bar_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleSysMenuBarBase :: Ref SysMenuBarBase -> Event ->  IO (Either UnknownEvent ())+handleSysMenuBarBase sysMenuBar event = withRef sysMenuBar $ \sysMenuBarPtr -> handleSuper' sysMenuBarPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Sys_Menu_Bar_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeSysMenuBarBase :: Ref SysMenuBarBase -> Rectangle -> IO ()+resizeSysMenuBarBase sysMenuBar rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef sysMenuBar $ \sysMenuBarPtr -> resizeSuper' sysMenuBarPtr x_pos y_pos width height+{# fun Fl_Sys_Menu_Bar_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideSysMenuBarBase ::  Ref SysMenuBarBase -> IO ()+hideSysMenuBarBase sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> hideSuper' sysMenuBarPtr+{# fun Fl_Sys_Menu_Bar_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetSysMenuBarBase ::  Ref SysMenuBarBase -> IO ()+showWidgetSysMenuBarBase sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> showSuper' sysMenuBarPtr+++{# fun Fl_Sys_Menu_Bar_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) SysMenuBarBase orig impl where+  runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> draw'' sysMenuBarPtr+{#fun Fl_Sys_Menu_Bar_handle as sysMenuBarHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SysMenuBarBase orig impl where+  runOp _ _ sysMenuBar event = withRef sysMenuBar (\p -> sysMenuBarHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Sys_Menu_Bar_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SysMenuBarBase orig impl where+  runOp _ _ sysMenuBar rectangle = withRef sysMenuBar $ \sysMenuBarPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' sysMenuBarPtr x_pos y_pos w_pos h_pos+{# fun Fl_Sys_Menu_Bar_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) SysMenuBarBase orig impl where+  runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> hide' sysMenuBarPtr+{# fun Fl_Sys_Menu_Bar_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) SysMenuBarBase orig impl where+  runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> show' sysMenuBarPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuBar"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.SysMenuBar"+-- @++-- $functions+-- @+-- add:: ('Parent' a 'MenuItemBase') => 'Ref' 'SysMenuBarBase' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')+--+-- addName :: 'Ref' 'SysMenuBarBase' -> 'T.Text' -> 'IO' ()+--+-- clear :: 'Ref' 'SysMenuBarBase' -> 'IO' ()+--+-- clearSubmenu :: 'Ref' 'SysMenuBarBase' -> 'AtIndex' -> 'IO' ('Either' 'OutOfRangeOrNotSubmenu' ())+--+-- destroy :: 'Ref' 'SysMenuBarBase' -> 'IO' ()+--+-- draw :: 'Ref' 'SysMenuBarBase' -> 'IO' ()+--+-- getMode :: 'Ref' 'SysMenuBarBase' -> 'AtIndex' -> 'IO' ('Maybe' 'MenuItemFlags')+--+-- global :: 'Ref' 'SysMenuBarBase' -> 'IO' ()+--+-- handle :: 'Ref' 'SysMenuBarBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'SysMenuBarBase' -> 'IO' ()+--+-- insert:: ('Parent' a 'MenuPrimBase') => 'Ref' 'SysMenuBarBase' -> 'AtIndex' -> 'T.Text' -> 'Maybe' 'Shortcut' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')+--+-- remove :: 'Ref' 'SysMenuBarBase' -> 'Int' -> 'IO' ()+--+-- replace :: 'Ref' 'SysMenuBarBase' -> 'AtIndex' -> 'T.Text' -> 'IO' ()+--+-- resize :: 'Ref' 'SysMenuBarBase' -> 'Rectangle' -> 'IO' ()+--+-- setMenu :: 'Ref' 'SysMenuBarBase' -> ['Ref' 'MenuItem'] -> 'IO' ()+--+-- setMode :: 'Ref' 'SysMenuBarBase' -> 'AtIndex' -> 'MenuItemFlags' -> 'IO' ()+--+-- setShortcut :: 'Ref' 'SysMenuBarBase' -> 'AtIndex' -> 'ShortcutKeySequence' -> 'IO' ()+--+-- showWidget :: 'Ref' 'SysMenuBarBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Table.chs view
@@ -0,0 +1,553 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Table+    (+     TableCoordinate(..),+     Row(..),+     Column(..),+     CustomTableFuncs(..),+     mkSetInt,+     mkDrawCell,+     toSetRowsPrim,+     toSetColumnsPrim,+     toDrawCellPrim,+     fillCustomTableFunctionStruct,+     defaultCustomTableFuncs,+     tableCustom,+     tableCustomFunctionStruct+    , drawTableBase+    , handleTableBase+    , resizeTableBase+    , hideTableBase+    , showWidgetTableBase+    , clearTableBase+    , setRowsTableBase+    , setColsTableBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Table functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_TableC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+data Row = Row Int+data Column = Column Int+data TableCoordinate = TableCoordinate Row Column+foreign import ccall "wrapper"+        mkDrawCell :: (Ptr () ->+                       CInt ->+                       CInt -> CInt ->+                       CInt -> CInt -> CInt -> CInt ->+                       IO ())+                       ->+                       IO (FunPtr (Ptr () ->+                                   CInt ->+                                   CInt -> CInt ->+                                   CInt -> CInt -> CInt -> CInt ->+                                   IO ()))++toSetRowsPrim :: (Ref a -> Rows -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))+toSetRowsPrim f =+    mkSetInt+    (+     \ptr num' -> do+       pp <- wrapNonNull ptr "Null pointer. toSetRowsPrim"+       f (wrapInRef pp) (Rows (fromIntegral num'))+    )++toSetColumnsPrim :: (Ref a -> Columns -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))+toSetColumnsPrim f =+    mkSetInt+    (+     \ptr num' -> do+       pp <- wrapNonNull ptr "Null pointer. toSetColumnsPrim"+       f (wrapInRef pp) (Columns (fromIntegral num'))+    )++toDrawCellPrim :: (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->+                       IO (FunPtr (Ptr () ->+                                   CInt ->+                                   CInt -> CInt ->+                                   CInt -> CInt -> CInt -> CInt ->+                                   IO ()))+toDrawCellPrim f =+    mkDrawCell+     (+      \ptr context' row' col' x_pos y_pos width height ->+          let rectangle = toRectangle (fromIntegral x_pos,+                                       fromIntegral y_pos,+                                       fromIntegral width,+                                       fromIntegral height)+          in+          do+           pp <- wrapNonNull ptr "Null pointer. toDrawCellPrim"+           f (wrapInRef pp) (toEnum $ fromIntegral context') (TableCoordinate (Row (fromIntegral row')) (Column (fromIntegral col'))) rectangle+     )++data CustomTableFuncs a =+    CustomTableFuncs+    {+    clearCustom      :: Maybe (Ref a -> IO ())+    ,setRowsCustom    :: Maybe (Ref a -> Rows -> IO ())+    ,setColsCustom    :: Maybe (Ref a -> Columns -> IO ())+    }++fillCustomTableFunctionStruct :: forall a. (Parent a TableBase) =>+                                  Ptr () ->+                                  Maybe (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->+                                  CustomTableFuncs a ->+                                  IO ()+fillCustomTableFunctionStruct structPtr _drawCell' (CustomTableFuncs _clear' _setRows' _setCols')  = do+   toDrawCellPrim `orNullFunPtr` _drawCell' >>= {#set fl_Table_Virtual_Funcs->draw_cell#} structPtr+   toCallbackPrim `orNullFunPtr` _clear' >>= {#set fl_Table_Virtual_Funcs->clear#} structPtr+   toSetRowsPrim `orNullFunPtr` _setRows' >>= {#set fl_Table_Virtual_Funcs->set_rows#} structPtr+   toSetColumnsPrim `orNullFunPtr` _setCols' >>= {#set fl_Table_Virtual_Funcs->set_cols#} structPtr++defaultCustomTableFuncs :: forall a. (Parent a TableBase) => CustomTableFuncs a+defaultCustomTableFuncs = CustomTableFuncs Nothing Nothing Nothing++{# fun Fl_Table_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}+tableCustomFunctionStruct :: (Parent a WidgetBase,+                              Parent b TableBase) =>+                             Maybe (Ref a -> IO ()) ->+                             Maybe (Ref b -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->+                             CustomWidgetFuncs a ->+                             CustomTableFuncs b ->+                             IO (Ptr ())+tableCustomFunctionStruct draw'' drawCell' customWidgetFuncs' customTableFuncs' =+  do+   ptr <- virtualFuncs'+   fillCustomWidgetFunctionStruct ptr draw'' customWidgetFuncs'+   fillCustomTableFunctionStruct ptr drawCell' customTableFuncs'+   return ptr++{# fun Fl_Table_New as tableNew' {  `Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_Table_New_WithLabel as tableNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+tableCustom :: Rectangle                                                            -- ^ Bounds of this table+            -> Maybe T.Text                                                         -- ^ Optional label+            -> Maybe (Ref Table -> IO ())                                           -- ^ Optional custom table drawing function+            -> (Ref Table -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -- ^ Custom table cell drawing function+            -> CustomWidgetFuncs Table                                              -- ^ Widget overrides+            -> CustomTableFuncs Table                                               -- ^ Table overrides+            -> IO (Ref Table)+tableCustom rectangle label' draw'' drawCell' customWidgetFuncs' customTableFuncs' =+    do+      let (x_pos, y_pos, width, height) = fromRectangle rectangle+      ptr <- tableCustomFunctionStruct draw'' (Just drawCell') customWidgetFuncs' customTableFuncs'+      case label' of+        (Just l') -> copyTextToCString l' >>= \l'' -> tableNewWithLabel' x_pos y_pos width height l'' ptr >>= toRef+        Nothing -> tableNew' x_pos y_pos width height ptr >>= toRef++{# fun Fl_Table_Destroy as tableDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> tableDestroy' tablePtr+{# fun Fl_Table_set_table_box as setTableBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}+instance (impl ~ ( Boxtype ->  IO ())) => Op (SetTableBox ()) TableBase orig impl where+  runOp _ _ table val = withRef table $ \tablePtr -> setTableBox' tablePtr val+{# fun Fl_Table_table_box as tableBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ (  IO (Boxtype))) => Op (GetTableBox ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> tableBox' tablePtr+{# fun Fl_Table_rows as rows' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Rows))) => Op (GetRows ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rows' tablePtr >>= return . Rows+{# fun Fl_Table_cols as cols' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Columns))) => Op (GetCols ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> cols' tablePtr >>= return . Columns+{# fun Fl_Table_visible_cells as visibleCells' { id `Ptr ()',alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*} -> `()' #}+instance (impl ~ (IO (TableCoordinate,TableCoordinate))) => Op (GetVisibleCells ()) TableBase orig impl where+  runOp _ _ table =+    withRef table $ \tablePtr ->+    visibleCells' tablePtr >>= \(r1', r2', c1', c2') ->+    return ((TableCoordinate (Row r1') (Column c1')), (TableCoordinate (Row r2') (Column c2')))+{# fun Fl_Table_is_interactive_resize as isInteractiveResize' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (  IO (Bool))) => Op (IsInteractiveResize ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> isInteractiveResize' tablePtr+{# fun Fl_Table_row_resize as rowResize' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (  IO (Bool))) => Op (GetRowResize ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rowResize' tablePtr+{# fun Fl_Table_set_row_resize as setRowResize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Bool ->  IO ())) => Op (SetRowResize ()) TableBase orig impl where+  runOp _ _ table flag = withRef table $ \tablePtr -> setRowResize' tablePtr (cFromBool flag)+{# fun Fl_Table_col_resize as colResize' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (  IO (Bool))) => Op (GetColResize ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> colResize' tablePtr+{# fun Fl_Table_set_col_resize as setColResize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Bool ->  IO ())) => Op (SetColResize ()) TableBase orig impl where+  runOp _ _ table flag = withRef table $ \tablePtr -> setColResize' tablePtr (cFromBool flag)+{# fun Fl_Table_col_resize_min as colResizeMin' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Int))) => Op (GetColResizeMin ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> colResizeMin' tablePtr+{# fun Fl_Table_set_col_resize_min as setColResizeMin' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Int ->  IO ())) => Op (SetColResizeMin ()) TableBase orig impl where+  runOp _ _ table val = withRef table $ \tablePtr -> setColResizeMin' tablePtr val+{# fun Fl_Table_row_resize_min as rowResizeMin' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Int))) => Op (GetRowResizeMin ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rowResizeMin' tablePtr+{# fun Fl_Table_set_row_resize_min as setRowResizeMin' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Int ->  IO ())) => Op (SetRowResizeMin ()) TableBase orig impl where+  runOp _ _ table val = withRef table $ \tablePtr -> setRowResizeMin' tablePtr val+{# fun Fl_Table_row_header as rowHeader' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO Bool)) => Op (GetRowHeader ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rowHeader' tablePtr >>= return . cToBool+{# fun Fl_Table_set_row_header as setRowHeader' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Bool ->  IO ())) => Op (SetRowHeader ()) TableBase orig impl where+  runOp _ _ table flag = withRef table $ \tablePtr -> setRowHeader' tablePtr (cFromBool flag)+{# fun Fl_Table_col_header as colHeader' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (  IO (Bool))) => Op (GetColHeader ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> colHeader' tablePtr+{# fun Fl_Table_set_col_header as setColHeader' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Bool ->  IO ())) => Op (SetColHeader ()) TableBase orig impl where+  runOp _ _ table flag = withRef table $ \tablePtr -> setColHeader' tablePtr (cFromBool flag)+{# fun Fl_Table_set_col_header_height as setColHeaderHeight' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Int ->  IO ())) => Op (SetColHeaderHeight ()) TableBase orig impl where+  runOp _ _ table height = withRef table $ \tablePtr -> setColHeaderHeight' tablePtr height+{# fun Fl_Table_col_header_height as colHeaderHeight' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Int))) => Op (GetColHeaderHeight ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> colHeaderHeight' tablePtr+{# fun Fl_Table_set_row_header_width as setRowHeaderWidth' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Int ->  IO ())) => Op (SetRowHeaderWidth ()) TableBase orig impl where+  runOp _ _ table width = withRef table $ \tablePtr -> setRowHeaderWidth' tablePtr width+{# fun Fl_Table_row_header_width as rowHeaderWidth' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Int))) => Op (GetRowHeaderWidth ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rowHeaderWidth' tablePtr+{# fun Fl_Table_set_row_header_color as setRowHeaderColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ ( Color ->  IO ())) => Op (SetRowHeaderColor ()) TableBase orig impl where+  runOp _ _ table val = withRef table $ \tablePtr -> setRowHeaderColor' tablePtr val+{# fun Fl_Table_row_header_color as rowHeaderColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ (  IO (Color))) => Op (GetRowHeaderColor ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rowHeaderColor' tablePtr+{# fun Fl_Table_set_col_header_color as setColHeaderColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ ( Color ->  IO ())) => Op (SetColHeaderColor ()) TableBase orig impl where+  runOp _ _ table val = withRef table $ \tablePtr -> setColHeaderColor' tablePtr val+{# fun Fl_Table_col_header_color as colHeaderColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ (  IO (Color))) => Op (GetColHeaderColor ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> colHeaderColor' tablePtr+{# fun Fl_Table_set_row_height as setRowHeight' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ ( Row -> Int ->  IO ())) => Op (SetRowHeight ()) TableBase orig impl where+  runOp _ _ table (Row row) height = withRef table $ \tablePtr -> setRowHeight' tablePtr row height+{# fun Fl_Table_row_height as rowHeight' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ ( Row ->  IO (Int))) => Op (GetRowHeight ()) TableBase orig impl where+  runOp _ _ table (Row row) = withRef table $ \tablePtr -> rowHeight' tablePtr row+{# fun Fl_Table_set_col_width as setColWidth' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ ( Column -> Int ->  IO ())) => Op (SetColWidth ()) TableBase orig impl where+  runOp _ _ table (Column col) width = withRef table $ \tablePtr -> setColWidth' tablePtr col width+{# fun Fl_Table_col_width as colWidth' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ ( Column ->  IO (Int))) => Op (GetColWidth ()) TableBase orig impl where+  runOp _ _ table (Column col) = withRef table $ \tablePtr -> colWidth' tablePtr col+{# fun Fl_Table_set_row_height_all as setRowHeightAll' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Int ->  IO ())) => Op (SetRowHeightAll ()) TableBase orig impl where+  runOp _ _ table height = withRef table $ \tablePtr -> setRowHeightAll' tablePtr height+{# fun Fl_Table_set_col_width_all as setColWidthAll' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Int ->  IO ())) => Op (SetColWidthAll ()) TableBase orig impl where+  runOp _ _ table width = withRef table $ \tablePtr -> setColWidthAll' tablePtr width+{# fun Fl_Table_set_row_position as setRowPosition' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Row ->  IO ())) => Op (SetRowPosition ()) TableBase orig impl where+  runOp _ _ table (Row row) = withRef table $ \tablePtr -> setRowPosition' tablePtr row+{# fun Fl_Table_set_col_position as setColPosition' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Column ->  IO ())) => Op (SetColPosition ()) TableBase orig impl where+  runOp _ _ table (Column col) = withRef table $ \tablePtr -> setColPosition' tablePtr col+{# fun Fl_Table_row_position as rowPosition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Row))) => Op (GetRowPosition ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> rowPosition' tablePtr >>= return . Row+{# fun Fl_Table_col_position as colPosition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Column))) => Op (GetColPosition ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> colPosition' tablePtr >>= return . Column+{# fun Fl_Table_set_top_row as setTopRow' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Row ->  IO ())) => Op (SetTopRow ()) TableBase orig impl where+  runOp _ _ table (Row row) = withRef table $ \tablePtr -> setTopRow' tablePtr row+{# fun Fl_Table_top_row as topRow' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Row))) => Op (GetTopRow ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> topRow' tablePtr >>= return . Row+{# fun Fl_Table_is_selected as isSelected' { id `Ptr ()',`Int',`Int' } -> `Bool' cToBool #}+instance (impl ~ (TableCoordinate ->  IO Bool)) => Op (IsSelected ()) TableBase orig impl where+  runOp _ _ table (TableCoordinate (Row r) (Column c)) = withRef table $ \tablePtr -> isSelected' tablePtr r c+{# fun Fl_Table_get_selection as getSelection' { id `Ptr ()',alloca- `Int' peekIntConv*, alloca- `Int' peekIntConv*, alloca- `Int' peekIntConv*, alloca- `Int' peekIntConv*} -> `()' #}+instance (impl ~ IO (TableCoordinate, TableCoordinate)) => Op (GetSelection ()) TableBase orig impl where+  runOp _ _ table =+    withRef table $ \tablePtr ->+        getSelection' tablePtr >>= \(top', left',bottom',right') ->+            return ((TableCoordinate (Row top') (Column left')), (TableCoordinate (Row bottom') (Column right')))+{# fun Fl_Table_set_selection as setSelection' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}+instance (impl ~ ( TableCoordinate -> TableCoordinate ->IO ())) => Op (SetSelection ()) TableBase orig impl where+  runOp _ _ table (TableCoordinate (Row row_top) (Column col_left))+                  (TableCoordinate (Row row_bot) (Column col_right)) =+    withRef table $ \tablePtr -> setSelection' tablePtr row_top col_left row_bot col_right+{# fun Fl_Table_move_cursor as moveCursor' { id `Ptr ()',`Int',`Int' } -> `Int' #}+instance (impl ~ ( TableCoordinate ->  IO (Either NoChange ()))) => Op (MoveCursor ()) TableBase orig impl where+  runOp _ _ table (TableCoordinate (Row r) (Column c)) = withRef table $ \tablePtr -> moveCursor' tablePtr r c >>= return . successOrNoChange+{# fun Fl_Table_init_sizes as initSizes' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (InitSizes ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> initSizes' tablePtr+{# fun Fl_Table_add as add' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a WidgetBase, impl ~ (Ref a  ->  IO ())) => Op (Add ()) TableBase orig impl where+  runOp _ _ table wgt = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> add' tablePtr wgtPtr+{# fun Fl_Table_insert as insert' { id `Ptr ()',id `Ptr ()',`Int' } -> `()' #}+instance (Parent a WidgetBase, impl ~ (Ref a -> AtIndex ->  IO ())) => Op (Insert ()) TableBase orig impl where+  runOp _ _ table wgt (AtIndex n) = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> insert' tablePtr wgtPtr n+{# fun Fl_Table_insert_with_widget as insertWithWidget' { id `Ptr ()',id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a WidgetBase, Parent b Widget, impl ~ (Ref a -> Ref b ->  IO ())) => Op (InsertBefore ()) TableBase orig impl where+  runOp _ _ self w before = withRef self $ \selfPtr -> withRef w $ \wPtr -> withRef before $ \beforePtr -> insertWithWidget' selfPtr wPtr beforePtr+{# fun Fl_Table_begin as begin' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Begin ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> begin' tablePtr+{# fun Fl_Table_end as end' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (End ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> end' tablePtr+{# fun Fl_Table_array as array' { id `Ptr ()' } -> `Ptr (Ptr ())' id #}+instance (impl ~ (  IO [Ref Widget])) => Op (GetArray ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> do+                     childArrayPtr <- array' tablePtr+                     numChildren <- children table+                     arrayToRefs childArrayPtr numChildren+{# fun Fl_Table_child as child' { id `Ptr ()',`Int' } -> `Ptr ()' id #}+instance (impl ~ ( AtIndex ->  IO (Maybe (Ref Widget)))) => Op (GetChild ()) TableBase orig impl where+  runOp _ _ table (AtIndex n) = withRef table $ \tablePtr -> child' tablePtr n >>= toMaybeRef+{# fun Fl_Table_children as children' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Int))) => Op (Children ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> children' tablePtr+{# fun Fl_Table_find as find' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (Parent a WidgetBase, impl ~ (Ref a ->  IO (Int))) => Op (Find ()) TableBase orig impl where+  runOp _ _ table wgt = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> find' tablePtr wgtPtr+{# fun Fl_Table_callback_row as callbackRow' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Row))) => Op (CallbackRow ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> callbackRow' tablePtr >>= return . Row+{# fun Fl_Table_callback_col as callbackCol' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (  IO (Column))) => Op (CallbackCol ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> callbackCol' tablePtr >>= return . Column+{# fun Fl_Table_callback_context as callbackContext' { id `Ptr ()' } -> `TableContext' cToEnum #}+instance (impl ~ (  IO (TableContext))) => Op (CallbackContext ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> callbackContext' tablePtr+{# fun Fl_Table_do_callback as doCallback' { id `Ptr ()',cFromEnum `TableContext',`Int',`Int' } -> `()' #}+instance (impl ~ ( TableContext -> TableCoordinate ->  IO ())) => Op (DoCallback ()) TableBase orig impl where+  runOp _ _ table tablecontext (TableCoordinate (Row row) (Column col)) = withRef table $ \tablePtr -> doCallback' tablePtr tablecontext row col+{# fun Fl_Table_find_cell as findCell' { id `Ptr ()',cFromEnum `TableContext',`Int',`Int',alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv* } -> `CInt' id #}+instance (impl ~ ( TableContext -> TableCoordinate -> IO (Maybe Rectangle))) => Op (FindCell ()) TableBase orig impl where+  runOp _ _ table context (TableCoordinate (Row r) (Column c))  =+    withRef table $ \tablePtr ->+        findCell' tablePtr context r c >>= \(result, x_pos', y_pos', width', height') -> do+          if (result /= -1)+            then return $ Just $ toRectangle (x_pos', y_pos', width', height')+            else return $ Nothing+{# fun Fl_Table_tab_cell_nav as tabCellNav' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (  IO (Bool))) => Op (GetTabCellNav ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> tabCellNav' tablePtr+{# fun Fl_Table_set_tab_cell_nav as setTabCellNav' { id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ ( Bool ->  IO ())) => Op (SetTabCellNav ()) TableBase orig impl where+  runOp _ _ table val = withRef table $ \tablePtr -> setTabCellNav' tablePtr val++{# fun Fl_Table_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTableBase ::  Ref TableBase -> IO ()+drawTableBase table = withRef table $ \tablePtr -> drawSuper' tablePtr+{# fun Fl_Table_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTableBase :: Ref TableBase -> Event ->  IO (Either UnknownEvent ())+handleTableBase table event = withRef table $ \tablePtr -> handleSuper' tablePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Table_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTableBase :: Ref TableBase -> Rectangle -> IO ()+resizeTableBase table rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef table $ \tablePtr -> resizeSuper' tablePtr x_pos y_pos width height+{# fun Fl_Table_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTableBase ::  Ref TableBase -> IO ()+hideTableBase table = withRef table $ \tablePtr -> hideSuper' tablePtr+{# fun Fl_Table_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTableBase ::  Ref TableBase -> IO ()+showWidgetTableBase table = withRef table $ \tablePtr -> showSuper' tablePtr+{# fun Fl_Table_clear_super as clearSuper' { id `Ptr ()' } -> `()' #}+clearTableBase :: Ref Table -> IO ()+clearTableBase table = withRef table $ \tablePtr -> clearSuper' tablePtr+{# fun Fl_Table_set_rows_super as setRowsSuper' { id `Ptr ()',`Int' } -> `()' #}+setRowsTableBase :: Ref Table -> Rows -> IO ()+setRowsTableBase table (Rows val) = withRef table $ \tablePtr -> setRowsSuper' tablePtr val+{# fun Fl_Table_set_cols_super as setColsSuper' { id `Ptr ()',`Int' } -> `()' #}+setColsTableBase :: Ref Table -> Columns ->  IO ()+setColsTableBase table (Columns val) = withRef table $ \tablePtr -> setColsSuper' tablePtr val++{# fun Fl_Table_draw as draw' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> draw' tablePtr+{# fun Fl_Table_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}+instance (impl ~ ( Event ->  IO( Either UnknownEvent ()))) => Op (Handle ()) TableBase orig impl where+  runOp _ _ table event = withRef table $ \tablePtr -> handle' tablePtr event >>= return  . successOrUnknownEvent+{# fun Fl_Table_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}+instance (impl ~ ( Rectangle ->  IO ())) => Op (Resize ()) TableBase orig impl where+  runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'+{# fun Fl_Table_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Clear ()) TableBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> clear' tablePtr+{# fun Fl_Table_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ShowWidget ()) TableBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> show' widgetPtr+{# fun Fl_Table_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) TableBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> hide' widgetPtr+{# fun Fl_Table_set_rows as setRows' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Rows ->  IO ())) => Op (SetRows ()) TableBase orig impl where+  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRows' tablePtr val+{# fun Fl_Table_set_cols as setCols' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Columns ->  IO ())) => Op (SetCols ()) TableBase orig impl where+  runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setCols' tablePtr val+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Table"+-- @++-- $functions+-- @+-- add:: ('Parent' a 'WidgetBase') => 'Ref' 'TableBase' -> 'Ref' a -> 'IO' ()+--+-- begin :: 'Ref' 'TableBase' -> 'IO' ()+--+-- callbackCol :: 'Ref' 'TableBase' -> 'IO' ('Column')+--+-- callbackContext :: 'Ref' 'TableBase' -> 'IO' ('TableContext')+--+-- callbackRow :: 'Ref' 'TableBase' -> 'IO' ('Row')+--+-- children :: 'Ref' 'TableBase' -> 'IO' ('Int')+--+-- clear :: 'Ref' 'TableBase' -> 'IO' ()+--+-- destroy :: 'Ref' 'TableBase' -> 'IO' ()+--+-- doCallback :: 'Ref' 'TableBase' -> 'TableContext' -> 'TableCoordinate' -> 'IO' ()+--+-- draw :: 'Ref' 'TableBase' -> 'IO' ()+--+-- end :: 'Ref' 'TableBase' -> 'IO' ()+--+-- find:: ('Parent' a 'WidgetBase') => 'Ref' 'TableBase' -> 'Ref' a -> 'IO' ('Int')+--+-- findCell :: 'Ref' 'TableBase' -> 'TableContext' -> 'TableCoordinate' -> 'IO' ('Maybe' 'Rectangle')+--+-- getArray :: 'Ref' 'TableBase' -> 'IO' ['Ref' 'Widget']+--+-- getChild :: 'Ref' 'TableBase' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' 'Widget'))+--+-- getColHeader :: 'Ref' 'TableBase' -> 'IO' ('Bool')+--+-- getColHeaderColor :: 'Ref' 'TableBase' -> 'IO' ('Color')+--+-- getColHeaderHeight :: 'Ref' 'TableBase' -> 'IO' ('Int')+--+-- getColPosition :: 'Ref' 'TableBase' -> 'IO' ('Column')+--+-- getColResize :: 'Ref' 'TableBase' -> 'IO' ('Bool')+--+-- getColResizeMin :: 'Ref' 'TableBase' -> 'IO' ('Int')+--+-- getColWidth :: 'Ref' 'TableBase' -> 'Column' -> 'IO' ('Int')+--+-- getCols :: 'Ref' 'TableBase' -> 'IO' ('Columns')+--+-- getRowHeader :: 'Ref' 'TableBase' -> 'IO' 'Bool'+--+-- getRowHeaderColor :: 'Ref' 'TableBase' -> 'IO' ('Color')+--+-- getRowHeaderWidth :: 'Ref' 'TableBase' -> 'IO' ('Int')+--+-- getRowHeight :: 'Ref' 'TableBase' -> 'Row' -> 'IO' ('Int')+--+-- getRowPosition :: 'Ref' 'TableBase' -> 'IO' ('Row')+--+-- getRowResize :: 'Ref' 'TableBase' -> 'IO' ('Bool')+--+-- getRowResizeMin :: 'Ref' 'TableBase' -> 'IO' ('Int')+--+-- getRows :: 'Ref' 'TableBase' -> 'IO' ('Rows')+--+-- getSelection :: 'Ref' 'TableBase' -> 'IO' ('TableCoordinate', 'TableCoordinate')+--+-- getTabCellNav :: 'Ref' 'TableBase' -> 'IO' ('Bool')+--+-- getTableBox :: 'Ref' 'TableBase' -> 'IO' ('Boxtype')+--+-- getTopRow :: 'Ref' 'TableBase' -> 'IO' ('Row')+--+-- getVisibleCells :: 'Ref' 'TableBase' -> 'IO' ('TableCoordinate,TableCoordinate')+--+-- handle :: 'Ref' 'TableBase' -> 'Event' -> 'IO'( 'Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TableBase' -> 'IO' ()+--+-- initSizes :: 'Ref' 'TableBase' -> 'IO' ()+--+-- insert:: ('Parent' a 'WidgetBase') => 'Ref' 'TableBase' -> 'Ref' a -> 'AtIndex' -> 'IO' ()+--+-- insertBefore:: ('Parent' a 'WidgetBase', 'Parent' b 'Widget') => 'Ref' 'TableBase' -> 'Ref' a -> 'Ref' b -> 'IO' ()+--+-- isInteractiveResize :: 'Ref' 'TableBase' -> 'IO' ('Bool')+--+-- isSelected :: 'Ref' 'TableBase' -> 'TableCoordinate' -> 'IO' 'Bool'+--+-- moveCursor :: 'Ref' 'TableBase' -> 'TableCoordinate' -> 'IO' ('Either' 'NoChange' ())+--+-- resize :: 'Ref' 'TableBase' -> 'Rectangle' -> 'IO' ()+--+-- setColHeader :: 'Ref' 'TableBase' -> 'Bool' -> 'IO' ()+--+-- setColHeaderColor :: 'Ref' 'TableBase' -> 'Color' -> 'IO' ()+--+-- setColHeaderHeight :: 'Ref' 'TableBase' -> 'Int' -> 'IO' ()+--+-- setColPosition :: 'Ref' 'TableBase' -> 'Column' -> 'IO' ()+--+-- setColResize :: 'Ref' 'TableBase' -> 'Bool' -> 'IO' ()+--+-- setColResizeMin :: 'Ref' 'TableBase' -> 'Int' -> 'IO' ()+--+-- setColWidth :: 'Ref' 'TableBase' -> 'Column' -> 'Int' -> 'IO' ()+--+-- setColWidthAll :: 'Ref' 'TableBase' -> 'Int' -> 'IO' ()+--+-- setCols :: 'Ref' 'TableBase' -> 'Columns' -> 'IO' ()+--+-- setRowHeader :: 'Ref' 'TableBase' -> 'Bool' -> 'IO' ()+--+-- setRowHeaderColor :: 'Ref' 'TableBase' -> 'Color' -> 'IO' ()+--+-- setRowHeaderWidth :: 'Ref' 'TableBase' -> 'Int' -> 'IO' ()+--+-- setRowHeight :: 'Ref' 'TableBase' -> 'Row' -> 'Int' -> 'IO' ()+--+-- setRowHeightAll :: 'Ref' 'TableBase' -> 'Int' -> 'IO' ()+--+-- setRowPosition :: 'Ref' 'TableBase' -> 'Row' -> 'IO' ()+--+-- setRowResize :: 'Ref' 'TableBase' -> 'Bool' -> 'IO' ()+--+-- setRowResizeMin :: 'Ref' 'TableBase' -> 'Int' -> 'IO' ()+--+-- setRows :: 'Ref' 'TableBase' -> 'Rows' -> 'IO' ()+--+-- setSelection :: 'Ref' 'TableBase' -> 'TableCoordinate' -> 'TableCoordinate' ->'IO' ()+--+-- setTabCellNav :: 'Ref' 'TableBase' -> 'Bool' -> 'IO' ()+--+-- setTableBox :: 'Ref' 'TableBase' -> 'Boxtype' -> 'IO' ()+--+-- setTopRow :: 'Ref' 'TableBase' -> 'Row' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TableBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/TableRow.chs view
@@ -0,0 +1,177 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.TableRow+    (+     tableRowNew,+     TableRowSelectFlag(..)+    , drawTableRowBase+    , handleTableRowBase+    , resizeTableRowBase+    , hideTableRowBase+    , showWidgetTableRowBase+    , clearTableRowBase+    , setRowsTableRowBase+    , setColsTableRowBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Table_RowC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Base.Table+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++data TableRowSelectFlag = TableRowSelect | TableRowDeselect | TableRowToggle++{# fun Fl_OverriddenTable_Row_New as tableRowNew' {  `Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenTable_Row_New_WithLabel as tableRowNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+tableRowNew :: Rectangle -> Maybe T.Text -> Maybe (Ref TableRow -> IO ()) -> (Ref TableRow -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs TableRow -> CustomTableFuncs TableRow -> IO (Ref TableRow)+tableRowNew rectangle label' draw' drawCell' customWidgetFuncs' customTableFuncs' =+    do+      let (x_pos, y_pos, width, height) = fromRectangle rectangle+      ptr <- tableCustomFunctionStruct draw' (Just drawCell') customWidgetFuncs' customTableFuncs'+      case label' of+        (Just l') -> copyTextToCString l' >>= \l'' -> tableRowNewWithLabel' x_pos y_pos width height l'' ptr >>= toRef+        Nothing -> do+          ref <- tableRowNew' x_pos y_pos width height ptr >>= toRef+          setFlag ref WidgetFlagCopiedLabel+          setFlag ref WidgetFlagCopiedTooltip+          return ref++{# fun Fl_Table_Row_Destroy as tableRowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) TableRowBase orig impl where+  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> tableRowDestroy' tableRowPtr+{# fun Fl_Table_Row_rows as rows' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Rows))) => Op (GetRows ()) TableRowBase orig impl where+  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> rows' tableRowPtr >>= return . Rows+{# fun Fl_Table_Row_set_type as tableRowSetType' { id `Ptr ()', cFromEnum `TableRowSelectMode'} -> `()' #}+instance (impl ~ (TableRowSelectMode -> IO ())) => Op (SetType ()) TableRowBase orig impl where+  runOp _ _ tableRow selectionMode = withRef tableRow $ \tableRowPtr' -> tableRowSetType' tableRowPtr' selectionMode+{# fun Fl_Table_Row_type as tableRowType { id `Ptr ()' } -> `TableRowSelectMode' cToEnum  #}+instance (impl ~ (IO TableRowSelectMode)) => Op (GetType_ ()) TableRowBase orig impl where+  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr' -> tableRowType tableRowPtr'+{# fun Fl_Table_Row_row_selected as rowSelected' { id `Ptr ()', `Int'} -> `CInt' id #}+instance (impl ~ ( Row -> IO (Either OutOfRange Bool))) => Op (GetRowSelected ()) TableRowBase orig impl where+  runOp _ _ table (Row idx') = withRef table $ \tablePtr -> do+    ret' <- rowSelected' tablePtr idx'+    if ret' == -1 then (return $ Left OutOfRange) else (return $ Right $ cToBool ret')+{# fun Fl_Table_Row_select_all_rows_with_flag as selectAllRows' {id `Ptr ()', `Int'} -> `()' #}+instance (impl ~ ( TableRowSelectFlag -> IO ())) => Op (SelectAllRows ()) TableRowBase orig impl where+  runOp _ _ table flag' = withRef table $+                          \tablePtr ->+                             case flag' of+                              TableRowSelect -> selectAllRows' tablePtr 1+                              TableRowDeselect -> selectAllRows' tablePtr 0+                              TableRowToggle -> selectAllRows' tablePtr 2++{# fun Fl_Table_Row_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTableRowBase ::  Ref TableRowBase -> IO ()+drawTableRowBase table = withRef table $ \tablePtr -> drawSuper' tablePtr+{# fun Fl_Table_Row_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTableRowBase :: Ref TableRowBase -> Event ->  IO (Either UnknownEvent ())+handleTableRowBase table event = withRef table $ \tablePtr -> handleSuper' tablePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Table_Row_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTableRowBase :: Ref TableRowBase -> Rectangle -> IO ()+resizeTableRowBase table rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef table $ \tablePtr -> resizeSuper' tablePtr x_pos y_pos width height+{# fun Fl_Table_Row_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTableRowBase ::  Ref TableRowBase -> IO ()+hideTableRowBase table = withRef table $ \tablePtr -> hideSuper' tablePtr+{# fun Fl_Table_Row_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTableRowBase ::  Ref TableRowBase -> IO ()+showWidgetTableRowBase table = withRef table $ \tablePtr -> showSuper' tablePtr+{# fun Fl_Table_Row_clear_super as clearSuper' { id `Ptr ()' } -> `()' #}+clearTableRowBase :: Ref Table -> IO ()+clearTableRowBase table = withRef table $ \tablePtr -> clearSuper' tablePtr+{# fun Fl_Table_Row_set_rows_super as setRowsSuper' { id `Ptr ()',`Int' } -> `()' #}+setRowsTableRowBase :: Ref Table -> Rows -> IO ()+setRowsTableRowBase table (Rows val) = withRef table $ \tablePtr -> setRowsSuper' tablePtr val+{# fun Fl_Table_Row_set_cols_super as setColsSuper' { id `Ptr ()',`Int' } -> `()' #}+setColsTableRowBase :: Ref Table -> Columns ->  IO ()+setColsTableRowBase table (Columns val) = withRef table $ \tablePtr -> setColsSuper' tablePtr val++{# fun Fl_Table_Row_set_cols as setCols' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Columns ->  IO ())) => Op (SetCols ()) TableRowBase orig impl where+  runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setCols' tablePtr val+{# fun Fl_Table_Row_set_rows as setRows' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Rows ->  IO ())) => Op (SetRows ()) TableRowBase orig impl where+  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRows' tablePtr val+{# fun Fl_Table_Row_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TableRowBase orig impl where+  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> draw'' tableRowPtr+{# fun Fl_Table_Row_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TableRowBase orig impl where+  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> hide' tableRowPtr+{# fun Fl_Table_Row_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TableRowBase orig impl where+  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> show' tableRowPtr+{# fun Fl_Table_Row_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}+instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) TableRowBase orig impl where+  runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'+{# fun Fl_Table_Row_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Clear ()) TableRowBase orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> clear' tablePtr+{# fun Fl_Table_Row_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}+instance (impl ~ (Event ->  IO(Either UnknownEvent ()))) => Op (Handle ()) TableRowBase orig impl where+  runOp _ _ table event = withRef table $ \tablePtr -> handle' tablePtr event >>= return  . successOrUnknownEvent+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Table"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.TableRow"+-- @++-- $functions+-- @+-- clear :: 'Ref' 'TableRowBase' -> 'IO' ()+--+-- destroy :: 'Ref' 'TableRowBase' -> 'IO' ()+--+-- draw :: 'Ref' 'TableRowBase' -> 'IO' ()+--+-- getRowSelected :: 'Ref' 'TableRowBase' -> 'Row' -> 'IO' ('Either' 'OutOfRange' 'Bool')+--+-- getRows :: 'Ref' 'TableRowBase' -> 'IO' ('Rows')+--+-- getType_ :: 'Ref' 'TableRowBase' -> 'IO' 'TableRowSelectMode'+--+-- handle :: 'Ref' 'TableRowBase' -> 'Event' -> 'IO(Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TableRowBase' -> 'IO' ()+--+-- resize :: 'Ref' 'TableRowBase' -> 'Rectangle' -> 'IO' ()+--+-- selectAllRows :: 'Ref' 'TableRowBase' -> 'TableRowSelectFlag' -> 'IO' ()+--+-- setCols :: 'Ref' 'TableRowBase' -> 'Columns' -> 'IO' ()+--+-- setRows :: 'Ref' 'TableRowBase' -> 'Rows' -> 'IO' ()+--+-- setType :: 'Ref' 'TableRowBase' -> 'TableRowSelectMode' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TableRowBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Tabs.chs view
@@ -0,0 +1,261 @@+{-# LANGUAGE OverloadedStrings, CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Tabs+    (+     tabsNew,+     tabsCustom,+     TabsHeightOffset(..),+     CustomTabFuncs(..)+  , drawTabsBase+  , handleTabsBase+  , resizeTabsBase+  , hideTabsBase+  , showWidgetTabsBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where++#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_TabsC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy++data TabsHeightOffset = TabsAtTop (Maybe Int) | TabsAtBottom (Maybe Int)+tabsHeightOffsetToInt :: TabsHeightOffset -> Int+tabsHeightOffsetToInt h =+  case h of+    TabsAtTop Nothing -> 0+    TabsAtTop (Just o) -> o+    TabsAtBottom Nothing -> (-1)+    TabsAtBottom (Just o) -> (-o)++intToTabsHeightOffset :: Int -> TabsHeightOffset+intToTabsHeightOffset tabh =+  case tabh of+    _ | tabh == 0 -> TabsAtTop Nothing+      | tabh == (-1) -> TabsAtBottom Nothing+      | tabh > 0 -> TabsAtTop (Just (fromIntegral tabh))+      | otherwise -> TabsAtBottom (Just (fromIntegral tabh))++data CustomTabFuncs a =+  CustomTabFuncs+  {+    tabDrawCustom :: Ref a -> IO ()+  , tabPositionsCustom :: Ref a -> IO (Maybe AtIndex, Int, [(X,Width)])+  , tabHeightCustom :: Ref a -> IO Height+  , tabWhichCustom :: Ref a -> Position -> IO (Maybe (AtIndex, Ref WidgetBase))+  , tabRedrawTabs :: Ref a -> IO ()+  , tabClientArea :: Ref a -> TabsHeightOffset -> IO Rectangle+  }++toTabClientAreaPrim :: (Ref a -> TabsHeightOffset -> IO Rectangle) -> IO (FunPtr TabClientAreaPrim)+toTabClientAreaPrim f =+  mkTabClientAreaPrim (\tabPtr xPtr yPtr wPtr hPtr tabh -> do+                          pp <- wrapNonNull tabPtr "Null pointer. toTabClientAreaPrim"+                          rect <- f (castTo (wrapInRef pp)) (intToTabsHeightOffset (fromIntegral tabh))+                          let (clientX, clientY, clientW, clientH) = fromRectangle rect+                          poke xPtr (fromIntegral clientX)+                          poke yPtr (fromIntegral clientY)+                          poke wPtr (fromIntegral clientW)+                          poke hPtr (fromIntegral clientH))++{# fun Fl_Tab_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}++toTabWhichPrim ::+  (Ref a -> Position -> IO (Maybe (AtIndex, Ref WidgetBase))) ->+  IO (FunPtr TabWhichPrim)+toTabWhichPrim f =+  mkTabWhichPrim (\ptr event_x event_y -> do+                     pp <- wrapNonNull ptr "Null pointer. toTabWhichPrim"+                     res <- f (castTo (wrapInRef pp)) (Position (X (fromIntegral event_x)) (Y (fromIntegral event_y)))+                     maybe (return nullPtr) (\(_,ref) -> unsafeRefToPtr ref) res+                  )++customTabFunctionStruct ::+  (Parent a TabsBase) =>+  (Ref a -> IO ()) ->+  (Ref a -> IO (Maybe AtIndex, Int, [(X,Width)])) ->+  (Ref a -> IO Height) ->+  (Ref a -> Position -> IO (Maybe (AtIndex, Ref WidgetBase))) ->+  (Ref a -> IO ()) ->+  (Ref a -> TabsHeightOffset -> IO Rectangle) ->+  IO (Ptr())+customTabFunctionStruct tabDrawCustom' tabPositionsCustom' tabHeightCustom' tabWhichCustom' tabRedrawTabs' tabClientArea' =+    do+  structPtr <- virtualFuncs'+  toCallbackPrim tabDrawCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_draw #} structPtr+  toTabPositionsPrim tabPositionsCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_positions #} structPtr+  toTabHeightPrim tabHeightCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_height #} structPtr+  toTabWhichPrim tabWhichCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_which #} structPtr+  toCallbackPrim tabRedrawTabs' >>= {#set fl_Tab_Virtual_Funcs->redraw_tabs #} structPtr+  toTabClientAreaPrim tabClientArea' >>= {#set fl_Tab_Virtual_Funcs->tab_client_area #} structPtr+  return structPtr++{# fun Fl_OverriddenTabs_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()', id `Ptr ()'} -> `Ptr ()' id #}+tabsCustom ::+     Rectangle                      -- ^ The bounds of this Tabs+  -> Maybe T.Text                   -- ^ The Tabs label+  -> Maybe (CustomTabFuncs Tabs)    -- ^ Optional custom tab drawing functions+  -> Maybe (CustomWidgetFuncs Tabs) -- ^ Optional custom widget functions+  -> IO (Ref Tabs)+tabsCustom rectangle l' tabFuncs' widgetFuncs' =+  let (x_pos, y_pos, width, height) = fromRectangle rectangle+  in do+   tabFuncsPtr <- maybe virtualFuncs'+                   (\tfs -> customTabFunctionStruct+                              (tabDrawCustom tfs)+                              (tabPositionsCustom tfs)+                              (tabHeightCustom tfs)+                              (tabWhichCustom tfs)+                              (tabRedrawTabs tfs)+                              (tabClientArea tfs))+                   tabFuncs'+   widgetFuncsPtr <- customWidgetFunctionStruct (fmap tabDrawCustom tabFuncs') (maybe defaultCustomWidgetFuncs id widgetFuncs')+   label' <- maybe (return nullPtr) copyTextToCString l'+   overriddenWidgetNewWithLabel' x_pos y_pos width height label' tabFuncsPtr widgetFuncsPtr >>= toRef++{# fun Fl_Tabs_New as tabsNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Tabs_New_WithLabel as tabsNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+tabsNew :: Rectangle -> Maybe T.Text -> IO (Ref Tabs)+tabsNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in case l' of+        Nothing -> tabsNew' x_pos y_pos width height >>= toRef+        Just l -> do+           ref <- copyTextToCString l >>= \l' -> tabsNewWithLabel' x_pos y_pos width height l' >>= toRef+           setFlag ref WidgetFlagCopiedLabel+           setFlag ref WidgetFlagCopiedTooltip+           return ref+++{# fun Fl_Tabs_value as value' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (GetValue ()) TabsBase orig impl where+   runOp _ _ tabs = withRef tabs $ \tabsPtr -> value' tabsPtr >>= toMaybeRef++{# fun Fl_Tabs_set_value as setValue' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (Parent a WidgetBase, impl ~ (Maybe ( Ref a ) ->  IO (Either NoChange ()))) => Op (SetValue ()) TabsBase orig impl where+   runOp _ _ tabs w = withRef tabs $ \tabsPtr -> withMaybeRef w $ \wPtr -> setValue' tabsPtr wPtr >>= return . successOrNoChange++{# fun Fl_Tabs_push as push' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (GetPush ()) TabsBase orig impl where+   runOp _ _ tabs = withRef tabs $ \tabsPtr -> push' tabsPtr >>= toMaybeRef++{# fun Fl_Tabs_set_push as setPush' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (Parent a WidgetBase, impl ~ (Maybe ( Ref a ) ->  IO (Either NoChange ()))) => Op (SetPush ()) TabsBase orig impl where+   runOp _ _ tabs w = withRef tabs $ \tabsPtr -> withMaybeRef w $ \wPtr -> setPush' tabsPtr wPtr >>= return . successOrNoChange++{# fun Fl_Tabs_which as which' { id `Ptr ()',`Int',`Int' } -> `Ptr ()' id #}+instance (impl ~ (Position -> IO (Maybe (Ref Widget)))) => Op (Which ()) TabsBase orig impl where+   runOp _ _ tabs (Position (X event_x) (Y event_y)) = withRef tabs $ \tabsPtr -> which' tabsPtr event_x event_y >>= toMaybeRef++{# fun Fl_Tabs_client_area_with_tabh as clientAreaWithTabh' { id `Ptr ()', alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*, `Int'} -> `()' #}+instance (impl ~ (TabsHeightOffset -> IO Rectangle)) => Op (ClientArea ()) TabsBase orig impl where+   runOp _ _ tabs tabh =+     withRef tabs $ \tabsPtr ->+       clientAreaWithTabh' tabsPtr (tabsHeightOffsetToInt tabh) >>= return . toRectangle++{# fun Fl_Tabs_tab_positions as tabPositions' {id `Ptr ()'} -> `Int' #}+instance (impl ~ (IO AtIndex)) => Op (TabPositions ()) TabsBase orig impl where+  runOp _ _ tabs = withRef tabs $ \tabsPtr -> tabPositions' tabsPtr >>= return . AtIndex+{# fun Fl_Tabs_tab_height as tabHeight' {id `Ptr ()'} -> `Int' #}+instance (impl ~ (IO Height)) => Op (TabHeight ()) TabsBase orig impl where+  runOp _ _ tabs = withRef tabs $ \tabsPtr -> tabHeight' tabsPtr >>= return . Height+{# fun Fl_Tabs_get_tab_align as getTabAlign' { id `Ptr ()' } -> `AlignType' cToEnum #}+instance (impl ~ (IO (AlignType))) => Op (GetTabAlign ()) TabsBase orig impl where+   runOp _ _ tabs = withRef tabs $ \tabsPtr -> getTabAlign' tabsPtr+{# fun Fl_Tabs_set_tab_align as setTabAlign' { id `Ptr ()', cFromEnum `AlignType' } -> `()'#}+instance (impl ~ (AlignType ->  IO ())) => Op (SetTabAlign ()) TabsBase orig impl where+   runOp _ _ tabs a = withRef tabs $ \tabsPtr -> setTabAlign' tabsPtr a++{# fun Fl_Tabs_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTabsBase ::  Ref TabsBase -> IO ()+drawTabsBase tabs = withRef tabs $ \tabsPtr -> drawSuper' tabsPtr+{# fun Fl_Tabs_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTabsBase :: Ref TabsBase -> Event ->  IO (Either UnknownEvent ())+handleTabsBase tabs event = withRef tabs $ \tabsPtr -> handleSuper' tabsPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Tabs_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTabsBase :: Ref TabsBase -> Rectangle -> IO ()+resizeTabsBase tabs rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef tabs $ \tabsPtr -> resizeSuper' tabsPtr x_pos y_pos width height+{# fun Fl_Tabs_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTabsBase ::  Ref TabsBase -> IO ()+hideTabsBase tabs = withRef tabs $ \tabsPtr -> hideSuper' tabsPtr+{# fun Fl_Tabs_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTabsBase ::  Ref TabsBase -> IO ()+showWidgetTabsBase tabs = withRef tabs $ \tabsPtr -> showSuper' tabsPtr++{# fun Fl_Tabs_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TabsBase orig impl where+  runOp _ _ tabs = withRef tabs $ \tabsPtr -> draw'' tabsPtr+{#fun Fl_Tabs_handle as tabsHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TabsBase orig impl where+  runOp _ _ tabs event = withRef tabs (\p -> tabsHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Tabs_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TabsBase orig impl where+  runOp _ _ tabs rectangle = withRef tabs $ \tabsPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' tabsPtr x_pos y_pos w_pos h_pos+{# fun Fl_Tabs_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TabsBase orig impl where+  runOp _ _ tabs = withRef tabs $ \tabsPtr -> hide' tabsPtr+{# fun Fl_Tabs_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TabsBase orig impl where+  runOp _ _ tabs = withRef tabs $ \tabsPtr -> show' tabsPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Tabs"+-- @++-- $functions+-- @+-- clientArea :: 'Ref' 'TabsBase' -> 'TabsHeightOffset' -> 'IO' 'Rectangle'+--+-- draw :: 'Ref' 'TabsBase' -> 'IO' ()+--+-- getPush :: 'Ref' 'TabsBase' -> 'IO' ('Maybe' ('Ref' 'Widget'))+--+-- getTabAlign :: 'Ref' 'TabsBase' -> 'IO' ('AlignType')+--+-- getValue :: 'Ref' 'TabsBase' -> 'IO' ('Maybe' ('Ref' 'Widget'))+--+-- handle :: 'Ref' 'TabsBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TabsBase' -> 'IO' ()+--+-- resize :: 'Ref' 'TabsBase' -> 'Rectangle' -> 'IO' ()+--+-- setPush:: ('Parent' a 'WidgetBase') => 'Ref' 'TabsBase' -> 'Maybe' ( 'Ref' a ) -> 'IO' ('Either' 'NoChange' ())+--+-- setTabAlign :: 'Ref' 'TabsBase' -> 'AlignType' -> 'IO' ()+--+-- setValue:: ('Parent' a 'WidgetBase') => 'Ref' 'TabsBase' -> 'Maybe' ( 'Ref' a ) -> 'IO' ('Either' 'NoChange' ())+--+-- showWidget :: 'Ref' 'TabsBase' -> 'IO' ()+--+-- tabHeight :: 'Ref' 'TabsBase' -> 'IO' 'Height'+--+-- tabPositions :: 'Ref' 'TabsBase' -> 'IO' 'AtIndex'+--+-- which :: 'Ref' 'TabsBase' -> 'Position' -> 'IO' ('Maybe' ('Ref' 'Widget'))+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/TextDisplay.chs view
@@ -0,0 +1,517 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.TextDisplay+       (+         mkStyleTableEntriesPtr,+         toStyleTableEntries,+         indexStyleTableEntries,+         textDisplayNew,+         textDisplayCustom+  , drawTextDisplayBase+  , handleTextDisplayBase+  , resizeTextDisplayBase+  , hideTextDisplayBase+  , showWidgetTextDisplayBase+         -- * Hierarchy+         --+         -- $hierarchy++         -- * Functions+         --+         -- $functions+       )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Text_DisplayC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import qualified Foreign.Concurrent as FC+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import qualified Foreign.ForeignPtr.Unsafe as Unsafe++mkStyleTableEntriesPtr :: (Parent a TextDisplayBase) => Ref a -> [StyleTableEntry] -> IO (ForeignPtr [StyleTableEntry])+mkStyleTableEntriesPtr td stes = do+  styleTableEntriesPtr <- mallocBytes ((length stes) * {#sizeof Style_Table_Entry #})+  mapM_+    (+      \(idx, (StyleTableEntry c f s)) -> do+        let currPtr = styleTableEntriesPtr `plusPtr` (idx * {#sizeof Style_Table_Entry #})+        {#set Style_Table_Entry->color #} currPtr $ maybe 0 (\(Color c') -> fromIntegral c') c+        {#set Style_Table_Entry->font  #} currPtr $ maybe 0 (\(Font f') -> fromIntegral f') f+        {#set Style_Table_Entry->size  #} currPtr $ maybe 0 (\(FontSize s') -> s') s+        {#set Style_Table_Entry->attr  #} currPtr 0+    )+    (zip [0..] stes)+  textDisplayAsPtr <- unsafeRefToPtr td+  let finalizerF = if (textDisplayAsPtr == nullPtr)+                   then free styleTableEntriesPtr+                   else return ()+  FC.newForeignPtr+   styleTableEntriesPtr+   finalizerF++toStyleTableEntries :: Int -> Ptr () -> IO (Maybe [StyleTableEntry])+toStyleTableEntries len ptr = do+  entries <- mapM toStyleTableEntry [0 .. (len - 1)]+  return (sequence entries)+  where+    toStyleTableEntry :: Int  -> IO (Maybe StyleTableEntry)+    toStyleTableEntry idx =+      let entryPtr = ptr `plusPtr` (idx * {#sizeof Style_Table_Entry#}) in+      if (entryPtr == nullPtr)+       then return Nothing+       else do+       color <- {#get Style_Table_Entry->color #} entryPtr+       font <- {#get Style_Table_Entry->font #} entryPtr+       fontSize <- {#get Style_Table_Entry->size #} entryPtr+       return+        (Just+           (+             StyleTableEntry+               (if (color == 0) then Nothing else Just (Color (fromIntegral color)))+               (if (font == 0) then Nothing else Just (Font (fromIntegral font)))+               (if (fontSize == 0) then Nothing else Just (FontSize (fromIntegral fontSize)))+           )+        )++indexStyleTableEntries :: [StyleTableEntry] -> [(Char, StyleTableEntry)]+indexStyleTableEntries = zip ['A'..]++{# fun Fl_OverriddenText_Display_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenText_Display_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+textDisplayCustom ::+       Rectangle                         -- ^ The bounds of this TextDisplay+    -> Maybe T.Text                      -- ^ The TextDisplay label+    -> Maybe (Ref TextDisplay -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs TextDisplay)      -- ^ Optional custom widget functions+    -> IO (Ref TextDisplay)+textDisplayCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Text_Display_New as textDisplayNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Text_Display_New_WithLabel as textDisplayNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+textDisplayNew :: Rectangle -> Maybe T.Text -> IO (Ref TextDisplay)+textDisplayNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in do+     r <- case l' of+           Nothing -> textDisplayNew' x_pos y_pos width height >>= toRef+           Just l -> copyTextToCString l >>= \l' -> textDisplayNewWithLabel' x_pos y_pos width height l' >>= toRef+     setFlag r WidgetFlagCopiedLabel+     setFlag r WidgetFlagCopiedTooltip+     return r++{# fun Fl_Text_Display_Destroy as textDisplayDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) TextDisplayBase orig impl where+  runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textDisplayDestroy' text_displayPtr+{# fun Fl_Text_Display_set_buffer as setBuffer' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a TextBuffer, impl ~ (Maybe ( Ref a ) ->  IO ())) => Op (SetBuffer ()) TextDisplayBase orig impl where+   runOp _ _ text_display buf = withRef text_display $ \text_displayPtr -> withMaybeRef buf $ \bufPtr -> setBuffer' text_displayPtr bufPtr+{# fun Fl_Text_Display_buffer as buffer' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TextBuffer)))) => Op (GetBuffer ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> buffer' text_displayPtr >>= toMaybeRef+{# fun Fl_Text_Display_redisplay_range as redisplayRange' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (IndexRange -> IO ())) => Op (RedisplayRange ()) TextDisplayBase orig impl where+  runOp _ _ text_display (IndexRange (AtIndex start') (AtIndex end')) = withRef text_display $ \text_displayPtr -> redisplayRange' text_displayPtr start' end'+{# fun Fl_Text_Display_scroll as scroll' { id `Ptr ()',`Int',`Int' } -> `()' #}+instance (impl ~ (LineNumber -> AtIndex ->  IO ())) => Op (Scroll ()) TextDisplayBase orig impl where+  runOp _ _ text_display (LineNumber toplinenum) (AtIndex  horizoffset) = withRef text_display $ \text_displayPtr -> scroll' text_displayPtr toplinenum horizoffset+{# fun Fl_Text_Display_overstrike as overstrike' { id `Ptr ()',`CString' } -> `()' #}+instance (impl ~ (T.Text ->  IO ())) => Op (Overstrike ()) TextDisplayBase orig impl where+   runOp _ _ text_display text = withRef text_display $ \text_displayPtr -> copyTextToCString text >>= overstrike' text_displayPtr+{# fun Fl_Text_Display_set_insert_position as setInsertPosition' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (AtIndex ->  IO ())) => Op (SetInsertPosition ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex newpos) = withRef text_display $ \text_displayPtr -> setInsertPosition' text_displayPtr newpos+{# fun Fl_Text_Display_insert_position as insertPosition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO AtIndex)) => Op (GetInsertPosition ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> insertPosition' text_displayPtr >>= return . AtIndex+{# fun Fl_Text_Display_xy_to_position as xyToPosition' { id `Ptr ()',`Int',`Int',`Int'} -> `Int' #}+instance (impl ~ (Position -> Maybe PositionType -> IO AtIndex)) => Op (XyToPosition ()) TextDisplayBase orig impl where+  runOp _ _ text_display (Position (X x) (Y y)) mPosType =+    withRef text_display $ \text_displayPtr ->+    xyToPosition' text_displayPtr x y ((fromIntegral . fromEnum) posType) >>= return . AtIndex+      where+        posType = maybe CharacterPos id mPosType+{# fun Fl_Text_Display_position_to_xy as positionToXy' { id `Ptr ()',`Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' #}+instance (impl ~ (AtIndex ->  IO (Either OutOfRange Position))) => Op (PositionToXy ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex pos)  =+     withRef text_display $ \text_displayPtr ->+     alloca $ \xPtr ->+     alloca $ \yPtr -> do+     status' <- positionToXy' text_displayPtr pos xPtr yPtr+     successOrOutOfRange+       ((xPtr,yPtr))+       (status' == 0)+       (\(xp',yp') -> do+           x' <- peekIntConv xp'+           y' <- peekIntConv yp'+           return (Position (X x') (Y y'))+       )+{# fun Fl_Text_Display_in_selection as inSelection' { id `Ptr ()',`Int',`Int' } -> `Bool' cToBool #}+instance (impl ~ (Position ->  IO (Bool))) => Op (InSelection ()) TextDisplayBase orig impl where+   runOp _ _ text_display (Position (X x_pos') (Y y_pos')) = withRef text_display $ \text_displayPtr -> inSelection' text_displayPtr x_pos' y_pos'+{# fun Fl_Text_Display_show_insert_position as showInsertPosition' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (ShowInsertPosition ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> showInsertPosition' text_displayPtr+{# fun Fl_Text_Display_move_right as moveRight' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveRight ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr ->+     moveRight' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return+{# fun Fl_Text_Display_move_left as moveLeft' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveLeft ()) TextDisplayBase orig impl where+   runOp _ _ text_display =+     withRef text_display $ \text_displayPtr ->+     moveLeft' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return+{# fun Fl_Text_Display_move_up as moveUp' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveUp ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr ->+     moveUp' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return+{# fun Fl_Text_Display_move_down as moveDown' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveDown ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr ->+     moveDown' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return+{# fun Fl_Text_Display_count_lines as countLines' { id `Ptr ()',`Int',`Int', cFromBool `Bool' } -> `Int' #}+instance (impl ~ (IndexRange -> Bool ->  IO (Int))) => Op (CountLines ()) TextDisplayBase orig impl where+  runOp _ _ text_display (IndexRange (AtIndex start') (AtIndex end')) start_pos_is_line_start =+    withRef text_display $ \text_displayPtr -> countLines' text_displayPtr start' end' start_pos_is_line_start+{# fun Fl_Text_Display_line_start as lineStart' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (AtIndex))) => Op (LineStart ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex pos) = withRef text_display $ \text_displayPtr -> lineStart' text_displayPtr pos >>= return . AtIndex+{# fun Fl_Text_Display_line_end as lineEnd' { id `Ptr ()',`Int', cFromBool `Bool' } -> `Int' #}+instance (impl ~ (AtIndex -> Bool ->  IO (AtIndex))) => Op (LineEnd ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex startpos) startposislinestart = withRef text_display $ \text_displayPtr -> lineEnd' text_displayPtr startpos startposislinestart >>= return . AtIndex+{# fun Fl_Text_Display_skip_lines as skipLines' { id `Ptr ()',`Int',`Int', cFromBool `Bool' } -> `Int' #}+instance (impl ~ (AtIndex -> Int -> Bool ->  IO (AtIndex))) => Op (SkipLines ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex startpos) nlines startposislinestart = withRef text_display $ \text_displayPtr -> skipLines' text_displayPtr startpos nlines startposislinestart >>= return . AtIndex+{# fun Fl_Text_Display_rewind_lines as rewindLines' { id `Ptr ()',`Int',`Int' } -> `Int' #}+instance (impl ~ (AtIndex -> Int ->  IO (AtIndex))) => Op (RewindLines ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex startpos) nlines = withRef text_display $ \text_displayPtr -> rewindLines' text_displayPtr startpos nlines >>= return . AtIndex+{# fun Fl_Text_Display_next_word as nextWord' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (NextWord ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> nextWord' text_displayPtr+{# fun Fl_Text_Display_previous_word as previousWord' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (PreviousWord ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> previousWord' text_displayPtr+{# fun Fl_Text_Display_show_cursor_with_b as showCursorWithB' { id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (ShowCursor ()) TextDisplayBase orig impl where+   runOp _ _ text_display b = withRef text_display $ \text_displayPtr -> showCursorWithB' text_displayPtr b+{# fun Fl_Text_Display_set_cursor_style as cursorStyle' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (CursorType -> IO ())) => Op (SetCursorStyle ()) TextDisplayBase orig impl where+   runOp _ _ text_display ct = withRef text_display $ \text_displayPtr -> cursorStyle' text_displayPtr (fromEnum ct)+{# fun Fl_Text_Display_cursor_color as cursorColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetCursorColor ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> cursorColor' text_displayPtr+{# fun Fl_Text_Display_set_cursor_color as setCursorColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetCursorColor ()) TextDisplayBase orig impl where+   runOp _ _ text_display n = withRef text_display $ \text_displayPtr -> setCursorColor' text_displayPtr n+{# fun Fl_Text_Display_scrollbar_width as scrollbarWidth' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Width))) => Op (GetScrollbarWidth ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> scrollbarWidth' text_displayPtr >>= return . Width+{# fun Fl_Text_Display_set_scrollbar_width as setScrollbarWidth' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Width ->  IO ())) => Op (SetScrollbarWidth ()) TextDisplayBase orig impl where+  runOp _ _ text_display (Width w) = withRef text_display $ \text_displayPtr -> setScrollbarWidth' text_displayPtr w+{# fun Fl_Text_Display_scrollbar_align as scrollbarAlign' { id `Ptr ()' } -> `AlignType' cToEnum #}+instance (impl ~ ( IO (AlignType))) => Op (GetScrollbarAlign ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> scrollbarAlign' text_displayPtr+{# fun Fl_Text_Display_set_scrollbar_align as setScrollbarAlign' { id `Ptr ()',cFromEnum `AlignType' } -> `()' #}+instance (impl ~ (AlignType ->  IO ())) => Op (SetScrollbarAlign ()) TextDisplayBase orig impl where+   runOp _ _ text_display a = withRef text_display $ \text_displayPtr -> setScrollbarAlign' text_displayPtr a+{# fun Fl_Text_Display_word_start as wordStart' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (AtIndex))) => Op (WordStart ()) TextDisplayBase orig impl where+   runOp _ _ text_display (AtIndex pos) = withRef text_display $ \text_displayPtr -> wordStart' text_displayPtr pos >>= return . AtIndex+{# fun Fl_Text_Display_word_end as wordEnd' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (AtIndex ->  IO (AtIndex))) => Op (WordEnd ()) TextDisplayBase orig impl where+   runOp _ _ text_display (AtIndex pos) = withRef text_display $ \text_displayPtr -> wordEnd' text_displayPtr pos >>= return . AtIndex+{# fun Fl_Text_Display_highlight_data as highlightData' { id `Ptr ()',id `Ptr ()',id `Ptr ()',`Int', id `CChar',id `FunPtr UnfinishedStyleCbPrim',id `Ptr ()' } -> `()' #}+instance (Parent a TextBuffer, impl ~ (Ref a -> [(Char, StyleTableEntry)] -> Maybe(Char,UnfinishedStyleCb) -> IO ())) => Op (HighlightData ()) TextDisplayBase orig impl where+   runOp _ _ text_display style_buffer indexedStyleTable cb =+     withRef text_display $ \text_displayPtr ->+     withRef style_buffer $ \style_bufferPtr -> do+       stesPtr <- mkStyleTableEntriesPtr text_display (map snd indexedStyleTable)+       (indexChar, fPtr) <- case cb of+         (Just (indexChar', unfinishedhighlightcb)) -> do+           fPtr' <- toUnfinishedStyleCbPrim unfinishedhighlightcb+           return ((fromEnum indexChar'), fPtr')+         Nothing -> return (0, nullFunPtr)+       highlightData' text_displayPtr style_bufferPtr (castPtr $ Unsafe.unsafeForeignPtrToPtr $ stesPtr) (length indexedStyleTable) (fromIntegral indexChar) fPtr nullPtr+{# fun Fl_Text_Display_position_style as positionStyle' { id `Ptr ()',`Int',`Int',`Int' } -> `Int' #}+instance (impl ~ (AtIndex -> Int -> LineNumber ->  IO TextDisplayStyle)) => Op (PositionStyle ()) TextDisplayBase orig impl where+  runOp _ _ text_display (AtIndex linestartpos) linelen (LineNumber lineindex) =+    withRef text_display $ \text_displayPtr ->+    positionStyle' text_displayPtr linestartpos linelen lineindex >>= return . TextDisplayStyle . fromIntegral+{# fun Fl_Text_Display_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}+instance (impl ~ ( IO (Maybe ShortcutKeySequence))) => Op (GetShortcut ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> shortcut' text_displayPtr >>= return . cIntToKeySequence+{# fun Fl_Text_Display_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) TextDisplayBase orig impl where+  runOp _ _ input (ShortcutKeySequence modifiers char) =+    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)+{# fun Fl_Text_Display_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textfont' text_displayPtr+{# fun Fl_Text_Display_set_textfont as setTextfont' { id `Ptr ()', `CInt'} -> `()' #}+instance (impl ~ ( Font -> IO ())) => Op (SetTextfont ()) TextDisplayBase orig impl where+   runOp _ _ text_display font = withRef text_display $ \text_displayPtr -> setTextfont' text_displayPtr (cFromFont font)+{# fun Fl_Text_Display_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textsize' text_displayPtr >>= return . FontSize+{# fun Fl_Text_Display_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) TextDisplayBase orig impl where+   runOp _ _ text_display (FontSize s) = withRef text_display $ \text_displayPtr -> setTextsize' text_displayPtr s+{# fun Fl_Text_Display_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textcolor' text_displayPtr+{# fun Fl_Text_Display_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) TextDisplayBase orig impl where+   runOp _ _ text_display n = withRef text_display $ \text_displayPtr -> setTextcolor' text_displayPtr n+{# fun Fl_Text_Display_x_to_col as xToCol' { id `Ptr ()',`Double' } -> `Double' #}+instance (impl ~ (Double ->  IO (Double))) => Op (XToCol ()) TextDisplayBase orig impl where+   runOp _ _ text_display pixelPos = withRef text_display $ \text_displayPtr -> xToCol' text_displayPtr pixelPos+{# fun Fl_Text_Display_col_to_x as colToX' { id `Ptr ()',`Double' } -> `Double' #}+instance (impl ~ (Double ->  IO (Double))) => Op (ColToX ()) TextDisplayBase orig impl where+   runOp _ _ text_display col = withRef text_display $ \text_displayPtr -> colToX' text_displayPtr col+{# fun set_linenumber_width as setLinenumberWidth' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Width ->  IO ())) => Op (SetLinenumberWidth ()) TextDisplayBase orig impl where+  runOp _ _ text_display (Width width) = withRef text_display $ \text_displayPtr -> setLinenumberWidth' text_displayPtr width+{# fun linenumber_width as linenumberWidth' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Width))) => Op (GetLinenumberWidth ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberWidth' text_displayPtr >>= return . Width+{# fun set_linenumber_font as setLinenumberFont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetLinenumberFont ()) TextDisplayBase orig impl where+   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberFont' text_displayPtr val+{# fun linenumber_font as linenumberFont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetLinenumberFont ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFont' text_displayPtr+{# fun set_linenumber_size as setLinenumberSize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetLinenumberSize ()) TextDisplayBase orig impl where+  runOp _ _ text_display (FontSize val) = withRef text_display $ \text_displayPtr -> setLinenumberSize' text_displayPtr val+{# fun linenumber_size as linenumberSize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetLinenumberSize ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberSize' text_displayPtr >>= return . FontSize+{# fun set_linenumber_fgcolor as setLinenumberFgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetLinenumberFgcolor ()) TextDisplayBase orig impl where+   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberFgcolor' text_displayPtr val+{# fun linenumber_fgcolor as linenumberFgcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetLinenumberFgcolor ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFgcolor' text_displayPtr+{# fun set_linenumber_bgcolor as setLinenumberBgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetLinenumberBgcolor ()) TextDisplayBase orig impl where+   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberBgcolor' text_displayPtr val+{# fun linenumber_bgcolor as linenumberBgcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetLinenumberBgcolor ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberBgcolor' text_displayPtr+{# fun set_linenumber_align as setLinenumberAlign' { id `Ptr ()',cFromEnum `AlignType' } -> `()' #}+instance (impl ~ (AlignType ->  IO ())) => Op (SetLinenumberAlign ()) TextDisplayBase orig impl where+   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberAlign' text_displayPtr val+{# fun linenumber_align as linenumberAlign' { id `Ptr ()' } -> `AlignType' cToEnum #}+instance (impl ~ ( IO (AlignType))) => Op (GetLinenumberAlign ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberAlign' text_displayPtr+{# fun set_linenumber_format as setLinenumberFormat' { id `Ptr ()',`CString' } -> `()' #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetLinenumberFormat ()) TextDisplayBase orig impl where+   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> copyTextToCString val >>= setLinenumberFormat' text_displayPtr+{# fun linenumber_format as linenumberFormat' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetLinenumberFormat ()) TextDisplayBase orig impl where+   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFormat' text_displayPtr >>= cStringToText+{# fun Fl_Text_Display_wrap_mode as wrapMode' { id `Ptr ()', `CInt', `CInt'} -> `()' #}+instance (impl ~ (WrapType -> IO ())) => Op (WrapMode ()) TextDisplayBase orig impl where+  runOp _ _ textDisplay wt =+    withRef textDisplay $ \textDisplayPtr ->+      (case wt of+        (WrapAtPixel (PixelPosition p')) -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapAtPixelFl) (fromIntegral p')+        (WrapAtColumn (ColumnNumber c')) -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapAtColumnFl) (fromIntegral c')+        WrapAtBounds -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapAtBoundsFl) (fromIntegral (0 :: Int))+        WrapNone -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapNoneFl) (fromIntegral (0 :: Int))+      )++{# fun Fl_Text_Display_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTextDisplayBase ::  Ref TextDisplayBase -> IO ()+drawTextDisplayBase textDisplay = withRef textDisplay $ \textDisplayPtr -> drawSuper' textDisplayPtr+{# fun Fl_Text_Display_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTextDisplayBase :: Ref TextDisplayBase -> Event ->  IO (Either UnknownEvent ())+handleTextDisplayBase textDisplay event = withRef textDisplay $ \textDisplayPtr -> handleSuper' textDisplayPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Text_Display_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTextDisplayBase :: Ref TextDisplayBase -> Rectangle -> IO ()+resizeTextDisplayBase textDisplay rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef textDisplay $ \textDisplayPtr -> resizeSuper' textDisplayPtr x_pos y_pos width height+{# fun Fl_Text_Display_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTextDisplayBase ::  Ref TextDisplayBase -> IO ()+hideTextDisplayBase textDisplay = withRef textDisplay $ \textDisplayPtr -> hideSuper' textDisplayPtr+{# fun Fl_Text_Display_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTextDisplayBase ::  Ref TextDisplayBase -> IO ()+showWidgetTextDisplayBase textDisplay = withRef textDisplay $ \textDisplayPtr -> showSuper' textDisplayPtr++{# fun Fl_Text_Display_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TextDisplayBase orig impl where+  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> hide' textDisplayPtr+{# fun Fl_Text_Display_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TextDisplayBase orig impl where+  runOp _ _ textDisplay rectangle = withRef textDisplay $ \textDisplayPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' textDisplayPtr x_pos y_pos w_pos h_pos+{#fun Fl_Text_Display_handle as textDisplayHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TextDisplayBase orig impl where+  runOp _ _ textDisplay event = withRef textDisplay (\p -> textDisplayHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Text_Display_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TextDisplayBase orig impl where+  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> show' textDisplayPtr+{# fun Fl_Text_Display_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TextDisplayBase orig impl where+  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> draw'' textDisplayPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.TextDisplay"+-- @++-- $functions+-- @+-- colToX :: 'Ref' 'TextDisplayBase' -> 'Double' -> 'IO' ('Double')+--+-- countLines :: 'Ref' 'TextDisplayBase' -> 'IndexRange' -> 'Bool' -> 'IO' ('Int')+--+-- destroy :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- draw :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- getBuffer :: 'Ref' 'TextDisplayBase' -> 'IO' ('Maybe' ('Ref' 'TextBuffer'))+--+-- getCursorColor :: 'Ref' 'TextDisplayBase' -> 'IO' ('Color')+--+-- getInsertPosition :: 'Ref' 'TextDisplayBase' -> 'IO' 'AtIndex'+--+-- getLinenumberAlign :: 'Ref' 'TextDisplayBase' -> 'IO' ('AlignType')+--+-- getLinenumberBgcolor :: 'Ref' 'TextDisplayBase' -> 'IO' ('Color')+--+-- getLinenumberFgcolor :: 'Ref' 'TextDisplayBase' -> 'IO' ('Color')+--+-- getLinenumberFont :: 'Ref' 'TextDisplayBase' -> 'IO' ('Font')+--+-- getLinenumberFormat :: 'Ref' 'TextDisplayBase' -> 'IO' 'T.Text'+--+-- getLinenumberSize :: 'Ref' 'TextDisplayBase' -> 'IO' ('FontSize')+--+-- getLinenumberWidth :: 'Ref' 'TextDisplayBase' -> 'IO' ('Width')+--+-- getScrollbarAlign :: 'Ref' 'TextDisplayBase' -> 'IO' ('AlignType')+--+-- getScrollbarWidth :: 'Ref' 'TextDisplayBase' -> 'IO' ('Width')+--+-- getShortcut :: 'Ref' 'TextDisplayBase' -> 'IO' ('Maybe' 'ShortcutKeySequence')+--+-- getTextcolor :: 'Ref' 'TextDisplayBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'TextDisplayBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'TextDisplayBase' -> 'IO' ('FontSize')+--+-- handle :: 'Ref' 'TextDisplayBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- highlightData:: ('Parent' a 'TextBuffer') => 'Ref' 'TextDisplayBase' -> 'Ref' a -> [('Char', 'StyleTableEntry']) -> 'Maybe(Char,UnfinishedStyleCb') -> 'IO' ()+--+-- inSelection :: 'Ref' 'TextDisplayBase' -> 'Position' -> 'IO' ('Bool')+--+-- lineEnd :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'Bool' -> 'IO' ('AtIndex')+--+-- lineStart :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'IO' ('AtIndex')+--+-- moveDown :: 'Ref' 'TextDisplayBase' -> 'IO' ('Either' 'OutOfRange' ())+--+-- moveLeft :: 'Ref' 'TextDisplayBase' -> 'IO' ('Either' 'OutOfRange' ())+--+-- moveRight :: 'Ref' 'TextDisplayBase' -> 'IO' ('Either' 'OutOfRange' ())+--+-- moveUp :: 'Ref' 'TextDisplayBase' -> 'IO' ('Either' 'OutOfRange' ())+--+-- nextWord :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- overstrike :: 'Ref' 'TextDisplayBase' -> 'T.Text' -> 'IO' ()+--+-- positionStyle :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'Int' -> 'LineNumber' -> 'IO' 'TextDisplayStyle'+--+-- positionToXy :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'IO' ('Either' 'OutOfRange' 'Position')+--+-- previousWord :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- redisplayRange :: 'Ref' 'TextDisplayBase' -> 'IndexRange' -> 'IO' ()+--+-- resize :: 'Ref' 'TextDisplayBase' -> 'Rectangle' -> 'IO' ()+--+-- rewindLines :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'Int' -> 'IO' ('AtIndex')+--+-- scroll :: 'Ref' 'TextDisplayBase' -> 'LineNumber' -> 'AtIndex' -> 'IO' ()+--+-- setBuffer:: ('Parent' a 'TextBuffer') => 'Ref' 'TextDisplayBase' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()+--+-- setCursorColor :: 'Ref' 'TextDisplayBase' -> 'Color' -> 'IO' ()+--+-- setCursorStyle :: 'Ref' 'TextDisplayBase' -> 'CursorType' -> 'IO' ()+--+-- setInsertPosition :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'IO' ()+--+-- setLinenumberAlign :: 'Ref' 'TextDisplayBase' -> 'AlignType' -> 'IO' ()+--+-- setLinenumberBgcolor :: 'Ref' 'TextDisplayBase' -> 'Color' -> 'IO' ()+--+-- setLinenumberFgcolor :: 'Ref' 'TextDisplayBase' -> 'Color' -> 'IO' ()+--+-- setLinenumberFont :: 'Ref' 'TextDisplayBase' -> 'Font' -> 'IO' ()+--+-- setLinenumberFormat :: 'Ref' 'TextDisplayBase' -> 'T.Text' -> 'IO' ()+--+-- setLinenumberSize :: 'Ref' 'TextDisplayBase' -> 'FontSize' -> 'IO' ()+--+-- setLinenumberWidth :: 'Ref' 'TextDisplayBase' -> 'Width' -> 'IO' ()+--+-- setScrollbarAlign :: 'Ref' 'TextDisplayBase' -> 'AlignType' -> 'IO' ()+--+-- setScrollbarWidth :: 'Ref' 'TextDisplayBase' -> 'Width' -> 'IO' ()+--+-- setShortcut :: 'Ref' 'TextDisplayBase' -> 'ShortcutKeySequence' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'TextDisplayBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'TextDisplayBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'TextDisplayBase' -> 'FontSize' -> 'IO' ()+--+-- showCursor :: 'Ref' 'TextDisplayBase' -> 'Bool' -> 'IO' ()+--+-- showInsertPosition :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TextDisplayBase' -> 'IO' ()+--+-- skipLines :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'Int' -> 'Bool' -> 'IO' ('AtIndex')+--+-- wordEnd :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'IO' ('AtIndex')+--+-- wordStart :: 'Ref' 'TextDisplayBase' -> 'AtIndex' -> 'IO' ('AtIndex')+--+-- wrapMode :: 'Ref' 'TextDisplayBase' -> 'WrapType' -> 'IO' ()+--+-- xToCol :: 'Ref' 'TextDisplayBase' -> 'Double' -> 'IO' ('Double')+--+-- xyToPosition :: 'Ref' 'TextDisplayBase' -> 'Position' -> 'Maybe' 'PositionType' -> 'IO' 'AtIndex'+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/TextEditor.chs view
@@ -0,0 +1,234 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.TextEditor+       (+         textEditorNew,+         textEditorCustom,+         KeyBinding(..),+         KeyFunc(..),+         KeyFuncPrim,+         toKeyFuncPrim,+         keyBindingsToArray,+         arrayToKeyBindings+  , drawTextEditorBase+  , handleTextEditorBase+  , resizeTextEditorBase+  , hideTextEditorBase+  , showWidgetTextEditorBase+         -- * Hierarchy+         --+         -- $hierarchy++         -- * Functions+         --+         -- $functions+       )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Text_EditorC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Utils+import Data.List++data KeyBinding  = KeyBinding KeyBindingKeySequence (FunPtr KeyFuncPrim)+data KeyFunc     = forall a. (Parent a TextEditorBase) => KeyFunc (Ref a -> Char -> IO ())+type KeyFuncPrim = CInt -> Ptr () -> IO ()++foreign import ccall "wrapper"+        mkKeyFuncPrim :: KeyFuncPrim -> IO (FunPtr KeyFuncPrim)++toKeyFuncPrim :: KeyFunc -> IO (FunPtr KeyFuncPrim)+toKeyFuncPrim (KeyFunc f) =+    mkKeyFuncPrim+     (+       \char' ptr -> do+         ref <- toRef ptr+         f ref (castCCharToChar $ fromIntegral char')+     )++keyBindingsToArray :: [KeyBinding] -> IO (Ptr ())+keyBindingsToArray kbs =+  case kbs of+    (kb':kbs') -> foldl'+                  (+                    \p' kb'' -> do+                           curr <- ptrToKb kb''+                           p' >>= {#set Key_BindingC->next #} curr+                           return curr+                  )+                  (ptrToKb kb')+                  kbs'+    []       -> return nullPtr+  where+    extractCodes (KeyBindingKeySequence es key') =+      let keyNum = case key' of+            SpecialKeyType c' -> fromIntegral $ fromEnum c'+            NormalKeyType c' -> fromIntegral $ castCharToCChar c'+          stateCode = maybe 0 (fromIntegral . combine) es+      in+      (stateCode, keyNum)+    ptrToKb (KeyBinding kb fr) =+      let (sc,kn) = extractCodes kb+      in do+       p <- mallocBytes {#sizeof Key_BindingC #}+       {#set Key_BindingC->key #} p kn+       {#set Key_BindingC->state #} p sc+       {#set Key_BindingC->function #} p (castFunPtr  fr)+       {#set Key_BindingC->next #} p nullPtr+       return p++arrayToKeyBindings :: Ptr () -> IO [KeyBinding]+arrayToKeyBindings p | p == nullPtr = return []+arrayToKeyBindings p =+  go [] p+  where+    go accum p' | p' == nullPtr = return accum+    go accum p' = do+      key' <- {#get Key_BindingC->key #} p' >>= return . fromIntegral+      state' <- {#get Key_BindingC->state #} p'+      function' <- {#get Key_BindingC->function #} p'+      next' <- {#get Key_BindingC->next #} p'+      free p'+      let skCandidates = filter (\sk -> fromEnum sk == key') allSpecialKeys+      let keyType = if (null skCandidates)+                    then (NormalKeyType $ castCCharToChar $ fromIntegral key')+                    else (SpecialKeyType $ head skCandidates)+      let evs = if (state' == 0)+                then Nothing+                else Just $ extract allEventStates state'+      let currKb = KeyBinding (KeyBindingKeySequence evs keyType) (castFunPtr function')+      go (accum ++ [currKb]) next'++{# fun Fl_OverriddenText_Editor_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenText_Editor_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+textEditorCustom ::+       Rectangle                         -- ^ The bounds of this TextEditor+    -> Maybe T.Text                      -- ^ The TextEditor label+    -> Maybe (Ref TextEditor -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs TextEditor)      -- ^ Optional custom widget functions+    -> IO (Ref TextEditor)+textEditorCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Text_Editor_New as textEditorNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Text_Editor_New_WithLabel as textEditorNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+textEditorNew :: Rectangle -> Maybe T.Text -> IO (Ref TextEditor)+textEditorNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Text_Editor_Destroy as textEditorDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) TextEditorBase orig impl where+  runOp _ _ editor = swapRef editor $ \editorPtr -> do+    textEditorDestroy' editorPtr+    return nullPtr+{# fun Fl_Text_Editor_set_insert_mode as setInsertMode' { id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ())) => Op (SetInsertMode ()) TextEditorBase orig impl where+   runOp _ _ text_editor b = withRef text_editor $ \text_editorPtr -> setInsertMode' text_editorPtr b+{# fun Fl_Text_Editor_insert_mode as insertMode' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (GetInsertMode ()) TextEditorBase orig impl where+   runOp _ _ text_editor = withRef text_editor $ \text_editorPtr -> insertMode' text_editorPtr+{# fun Fl_Text_Editor_add_default_key_bindings as addDefaultKeyBindings' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO [KeyBinding])) => Op (GetDefaultKeyBindings ()) TextEditorBase orig impl where+  runOp _ _ text_editor = withRef text_editor $ \text_editorPtr -> do+    p' <- addDefaultKeyBindings' text_editorPtr nullPtr+    kbs <- arrayToKeyBindings p'+    return kbs+{# fun Fl_Text_Editor_replace_key_bindings as replaceKeyBindings' { id `Ptr ()', id `Ptr ()'} -> `()' #}+instance (impl ~ ([KeyBinding] -> IO ())) => Op (ReplaceKeyBindings ()) TextEditorBase orig impl where+  runOp _ _ text_editor kbs = withRef text_editor $ \text_editorPtr -> do+        p <- keyBindingsToArray kbs+        replaceKeyBindings' text_editorPtr p+++{# fun Fl_Text_Editor_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTextEditorBase ::  Ref TextEditorBase -> IO ()+drawTextEditorBase textEditor = withRef textEditor $ \textEditorPtr -> drawSuper' textEditorPtr+{# fun Fl_Text_Editor_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTextEditorBase :: Ref TextEditorBase -> Event ->  IO (Either UnknownEvent ())+handleTextEditorBase textEditor event = withRef textEditor $ \textEditorPtr -> handleSuper' textEditorPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Text_Editor_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTextEditorBase :: Ref TextEditorBase -> Rectangle -> IO ()+resizeTextEditorBase textEditor rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef textEditor $ \textEditorPtr -> resizeSuper' textEditorPtr x_pos y_pos width height+{# fun Fl_Text_Editor_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTextEditorBase ::  Ref TextEditorBase -> IO ()+hideTextEditorBase textEditor = withRef textEditor $ \textEditorPtr -> hideSuper' textEditorPtr+{# fun Fl_Text_Editor_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTextEditorBase ::  Ref TextEditorBase -> IO ()+showWidgetTextEditorBase textEditor = withRef textEditor $ \textEditorPtr -> showSuper' textEditorPtr++{# fun Fl_Text_Editor_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TextEditorBase orig impl where+  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> draw'' textEditorPtr+{#fun Fl_Text_Editor_handle as textEditorHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TextEditorBase orig impl where+  runOp _ _ textEditor event = withRef textEditor (\p -> textEditorHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Text_Editor_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TextEditorBase orig impl where+  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> show' textEditorPtr+{# fun Fl_Text_Editor_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TextEditorBase orig impl where+  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> hide' textEditorPtr+{# fun Fl_Text_Editor_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TextEditorBase orig impl where+  runOp _ _ textEditor rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef textEditor $ \textEditorPtr -> resize' textEditorPtr x_pos y_pos width height+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.TextDisplay"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.TextEditor"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'TextEditorBase' -> 'IO' ()+--+-- draw :: 'Ref' 'TextEditorBase' -> 'IO' ()+--+-- getDefaultKeyBindings :: 'Ref' 'TextEditorBase' -> 'IO' ['KeyBinding']+--+-- getInsertMode :: 'Ref' 'TextEditorBase' -> 'IO' ('Bool')+--+-- handle :: 'Ref' 'TextEditorBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TextEditorBase' -> 'IO' ()+--+-- replaceKeyBindings :: 'Ref' 'TextEditorBase' -> ['KeyBinding'] -> 'IO' ()+--+-- resize :: 'Ref' 'TextEditorBase' -> 'Rectangle' -> 'IO' ()+--+-- setInsertMode :: 'Ref' 'TextEditorBase' -> 'Bool' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TextEditorBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Tile.chs view
@@ -0,0 +1,132 @@+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Tile+    (+     -- * Constructor+     tileNew,+     tileCustom+  , drawTileBase+  , handleTileBase+  , resizeTileBase+  , hideTileBase+  , showWidgetTileBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where++#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_TileC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++{# fun Fl_OverriddenTile_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenTile_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+tileCustom ::+       Rectangle                         -- ^ The bounds of this Tile+    -> Maybe T.Text                      -- ^ The Tile label+    -> Maybe (Ref Tile -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Tile)      -- ^ Optional custom widget functions+    -> IO (Ref Tile)+tileCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Tile_New as tileNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Tile_New_WithLabel as tileNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+tileNew :: Rectangle -> Maybe T.Text -> IO (Ref Tile)+tileNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Tile_position as setPosition' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}+instance (impl ~ (Rectangle ->  IO ())) => Op (SetPosition ()) TileBase orig impl where+  runOp _ _ tile rectangle = withRef tile $ \tilePtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    setPosition' tilePtr x_pos y_pos w_pos h_pos++{# fun Fl_Tile_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTileBase ::  Ref TileBase -> IO ()+drawTileBase tile = withRef tile $ \tilePtr -> drawSuper' tilePtr+{# fun Fl_Tile_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTileBase :: Ref TileBase -> Event ->  IO (Either UnknownEvent ())+handleTileBase tile event = withRef tile $ \tilePtr -> handleSuper' tilePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Tile_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTileBase :: Ref TileBase -> Rectangle -> IO ()+resizeTileBase tile rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef tile $ \tilePtr -> resizeSuper' tilePtr x_pos y_pos width height+{# fun Fl_Tile_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTileBase ::  Ref TileBase -> IO ()+hideTileBase tile = withRef tile $ \tilePtr -> hideSuper' tilePtr+{# fun Fl_Tile_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTileBase ::  Ref TileBase -> IO ()+showWidgetTileBase tile = withRef tile $ \tilePtr -> showSuper' tilePtr++{# fun Fl_Tile_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TileBase orig impl where+  runOp _ _ tile = withRef tile $ \tilePtr -> draw'' tilePtr+{#fun Fl_Tile_handle as tileHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TileBase orig impl where+  runOp _ _ tile event = withRef tile (\p -> tileHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Tile_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TileBase orig impl where+  runOp _ _ tile = withRef tile $ \tilePtr -> show' tilePtr+{# fun Fl_Tile_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TileBase orig impl where+  runOp _ _ tile = withRef tile $ \tilePtr -> hide' tilePtr+{# fun Fl_Tile_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TileBase orig impl where+  runOp _ _ tile rectangle = withRef tile $ \tilePtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' tilePtr x_pos y_pos w_pos h_pos+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Tile"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'TileBase' -> 'IO' ()+--+-- handle :: 'Ref' 'TileBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TileBase' -> 'IO' ()+--+-- resize :: 'Ref' 'TileBase' -> 'Rectangle' -> 'IO' ()+--+-- setPosition :: 'Ref' 'TileBase' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TileBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/ToggleButton.chs view
@@ -0,0 +1,64 @@+{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.ToggleButton+    (+     toggleButtonNew+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Toggle_ButtonC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++{# fun Fl_Toggle_Button_New as widgetNew' { `Int',`Int',`Int',`Int',id `FunPtr DestroyCallbacksPrim'  } -> `Ptr ()' id #}+{# fun Fl_Toggle_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString',id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+toggleButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref ToggleButton)+toggleButtonNew rectangle l' =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in do+    destroyFptr <- toDestroyCallbacksPrim (defaultDestroyCallbacks :: (Ref ToggleButton -> [Maybe (FunPtr (IO ()))] -> IO ()))+    ref <- case l' of+            Nothing -> widgetNew' x_pos y_pos width height destroyFptr >>= toRef+            Just l -> copyTextToCString l >>= \l' -> widgetNewWithLabel' x_pos y_pos width height l' destroyFptr >>= toRef+    setFlag (safeCast ref :: Ref WidgetBase ) WidgetFlagCopiedLabel+    setFlag (safeCast ref :: Ref WidgetBase ) WidgetFlagCopiedTooltip+    return ref+++{# fun Fl_Toggle_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) ToggleButtonBase orig impl where+  runOp _ _ button = swapRef button $+                    \buttonPtr ->+                     widgetDestroy' buttonPtr >>+                     return nullPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ToggleButton"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ToggleButtonBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Tree.chs view
@@ -0,0 +1,788 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Tree+  (+    treeNew,+    treeCustom+  , drawTreeBase+  , handleTreeBase+  , resizeTreeBase+  , hideTreeBase+  , showWidgetTreeBase+    -- * Hierarchy+    --+    -- $hierarchy++    -- * Functions+    --+    -- $functions+  )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_TreeC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.TreeItem+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget++{# fun Fl_OverriddenTree_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenTree_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+treeCustom ::+       Rectangle                         -- ^ The bounds of this Tree+    -> Maybe T.Text                      -- ^ The Tree label+    -> Maybe (Ref Tree -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Tree)      -- ^ Optional custom widget functions+    -> IO (Ref Tree)+treeCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Tree_New as treeNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Tree_New_WithLabel as treeNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+treeNew :: Rectangle -> Maybe T.Text -> IO (Ref Tree)+treeNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Tree_Destroy as treeDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) TreeBase orig impl where+  runOp _ _ tree = swapRef tree $ \treePtr -> do+    treeDestroy' treePtr+    return nullPtr++{# fun Fl_Tree_show_self as showSelf' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ()) ) => Op (ShowSelf ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> showSelf' treePtr+{# fun Fl_Tree_root_label as rootLabel' { id `Ptr ()',id `Ptr CChar' } -> `()' #}+instance (impl ~ (T.Text ->  IO ()) ) => Op (RootLabel ()) TreeBase orig impl where+  runOp _ _ tree new_label = withRef tree $ \treePtr -> withText new_label (\new_labelPtr -> rootLabel' treePtr new_labelPtr)+{# fun Fl_Tree_root as root' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Root ()) TreeBase orig impl where+  runOp _ _  tree = withRef tree $ \treePtr -> root' treePtr >>= toMaybeRef+{# fun Fl_Tree_add as add' { id `Ptr ()',id `Ptr CChar' } -> `Ptr ()' id #}+{# fun Fl_Tree_add_with_item_name as addWithItemName' { id `Ptr ()',id `Ptr ()', id `Ptr CChar' } -> `Ptr ()' id #}+instance (impl ~ (T.Text ->  IO (Maybe (Ref TreeItem)))) => Op (Add ()) TreeBase orig impl where+  runOp _ _  tree path' = withRef tree $ \treePtr -> withText path' (\pathPtr' -> add' treePtr pathPtr' >>= toMaybeRef )+instance (Parent a TreeItem, impl ~ (T.Text -> Ref a -> IO (Maybe (Ref TreeItem)))) => Op (AddAt ()) TreeBase orig impl where+  runOp _ _ tree path' item' =+    withRef tree  $ \treePtr ->+    withRef item' $ \itemPtr ->+    withText path' $ \pathPtr ->+    addWithItemName' treePtr itemPtr pathPtr >>= toMaybeRef+{# fun Fl_Tree_insert_above as insertAbove' { id `Ptr ()',id `Ptr ()',`CString' } -> `Ptr ()' id #}+instance (Parent a TreeItem, impl ~ (Ref a -> T.Text ->  IO (Maybe (Ref a)))) => Op (InsertAbove ()) TreeBase orig impl where+  runOp _ _  tree above name = withRef tree $ \treePtr -> withRef above $ \abovePtr -> copyTextToCString name >>= \n -> insertAbove' treePtr abovePtr n >>= toMaybeRef+{# fun Fl_Tree_insert as insert' { id `Ptr ()',id `Ptr ()',`CString',`Int' } -> `Ptr ()' id #}+instance (Parent a TreeItem, impl ~ (Ref a -> T.Text -> AtIndex ->  IO (Maybe (Ref a)))) => Op (Insert ()) TreeBase orig impl where+  runOp _ _ tree item name (AtIndex pos) = withRef tree $ \treePtr -> withRef item $ \itemPtr -> copyTextToCString name >>= \n -> insert' treePtr itemPtr n pos >>= toMaybeRef+{# fun Fl_Tree_remove as remove' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (impl ~ (Ref TreeItem  ->  IO (Either TreeItemNotFound ())) ) => Op (Remove ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> do+    status' <- remove' treePtr itemPtr+    if (status' == (-1)) then (return $ Left TreeItemNotFound) else (return $ Right ())+{# fun Fl_Tree_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ()) ) => Op (Clear ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> clear' treePtr+{# fun Fl_Tree_clear_children as clearChildren' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a TreeItem, impl ~ (Ref a ->  IO ()) ) => Op (ClearChildren ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> clearChildren' treePtr itemPtr+{# fun Fl_Tree_find_item as findItem' { id `Ptr ()',`CString' } -> `Ptr ()' id #}+instance (impl ~ (T.Text ->  IO (Maybe (Ref TreeItem))) ) => Op (FindItem ()) TreeBase orig impl where+  runOp _ _ tree path = withRef tree $ \treePtr -> withText path (\p -> findItem' treePtr p >>= toMaybeRef)+{# fun Fl_Tree_item_pathname as itemPathname' { id `Ptr ()', id `Ptr CChar', `Int', id `Ptr ()'} -> `Int' #}+instance (Parent a TreeItem, impl ~ (Ref a ->  IO (Maybe T.Text)) ) => Op (ItemPathname ()) TreeBase orig impl where+  runOp _ _ tree item =+    withRef tree $ \treePtr ->+    withRef item $ \itemPtr ->+    allocaBytes oneKb $ \pathPtr -> do+    retVal' <- itemPathname' treePtr pathPtr oneKb itemPtr+    if retVal' < 0+      then return Nothing+      else do+       b' <- cStringToText (castPtr pathPtr)+       return (Just b')+{# fun Fl_Tree_item_clicked as itemClicked' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (ItemClicked ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> itemClicked' treePtr >>= toMaybeRef+{# fun Fl_Tree_first as first' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetFirst ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> first' treePtr >>= toMaybeRef+{# fun Fl_Tree_first_visible as firstVisible' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (FirstVisible ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> firstVisible' treePtr >>= toMaybeRef+{# fun Fl_Tree_next as next' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Next ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> next' treePtr >>= toMaybeRef+{# fun Fl_Tree_next_with_item as nextWithItem' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (Ref TreeItem  ->  IO (Maybe (Ref TreeItem))) ) => Op (NextAfterItem ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextWithItem' treePtr itemPtr >>= toMaybeRef+{# fun Fl_Tree_next_item as nextItem' { id `Ptr ()',id `Ptr ()', id `CInt', cFromBool `Bool'} -> `Ptr ()' id #}+instance (impl ~ (Ref TreeItem  ->  Maybe SearchDirection -> Bool -> IO (Maybe (Ref TreeItem))) ) => Op (NextItem ()) TreeBase orig impl where+  runOp _ _ tree item dir visible' =+    withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextItem' treePtr itemPtr (maybe 0 (fromIntegral . fromEnum) dir) visible'+       >>= toMaybeRef+{# fun Fl_Tree_prev as prev' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Prev ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> prev' treePtr >>= toMaybeRef+{# fun Fl_Tree_prev_with_item as prevWithItem' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (Ref TreeItem  ->  IO (Maybe (Ref TreeItem))) ) => Op (PrevBeforeItem ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> prevWithItem' treePtr itemPtr >>= toMaybeRef+{# fun Fl_Tree_last as last' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetLast ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> last' treePtr >>= toMaybeRef+{# fun Fl_Tree_last_visible as lastVisible' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (LastVisible ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> lastVisible' treePtr >>= toMaybeRef+{# fun Fl_Tree_first_selected_item as firstSelectedItem' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (FirstSelectedItem ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> firstSelectedItem' treePtr >>= toMaybeRef+{# fun Fl_Tree_last_selected_item as lastSelectedItem' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (LastSelectedItem ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> lastSelectedItem' treePtr >>= toMaybeRef+{# fun Fl_Tree_next_selected_item as nextSelectedItem' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (NextSelectedItem ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> nextSelectedItem' treePtr >>= toMaybeRef+{# fun Fl_Tree_next_selected_item_with_item_direction as nextSelectedItemWithItemDirection' { id `Ptr ()',id `Ptr ()', id `CInt' } -> `Ptr ()' id #}+instance (impl ~ (Ref TreeItem  ->  Maybe SearchDirection -> IO (Maybe (Ref TreeItem))) ) => Op (NextSelectedItemAfterItem ()) TreeBase orig impl where+  runOp _ _ tree item dir = withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextSelectedItemWithItemDirection' treePtr itemPtr (maybe 0 (fromIntegral . fromEnum) dir) >>= toMaybeRef+{# fun Fl_Tree_open_with_item as openWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+{# fun Fl_Tree_open_with_item_docallback as openWithItemDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `Int' #}+{# fun Fl_Tree_open_with_path as openWithPath' { id `Ptr ()',`CString' } -> `Int' #}+{# fun Fl_Tree_open_with_path_docallback as openWithPathDocallback' { id `Ptr ()', `CString', cFromBool `Bool' } -> `Int' #}+instance (impl ~ (TreeItemLocator -> IO ()) ) => Op (Open ()) TreeBase orig impl where+  runOp _ _ tree_item locator' =+    withRef tree_item $ \tree_itemPtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> openWithItem' tree_itemPtr itemRefPtr >> return ()+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> openWithPath' tree_itemPtr n'' >> return ())+instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (OpenAndCallback ()) TreeBase orig impl where+  runOp _ _ tree_item locator' docallback' =+    withRef tree_item $ \tree_itemPtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> openWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> openWithPathDocallback' tree_itemPtr n'' docallback' >> return ())+{# fun Fl_Tree_open_toggle as openToggle' { id `Ptr ()',id `Ptr ()' } -> `()' #}+{# fun Fl_Tree_open_toggle_with_docallback as openToggleWithDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (OpenToggle ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> openToggle' treePtr itemPtr+instance (impl ~ (Ref TreeItem  -> Bool ->  IO ()) ) => Op (OpenToggleAndCallback ()) TreeBase orig impl where+  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> openToggleWithDocallback' treePtr itemPtr docallback+{# fun Fl_Tree_close_with_item as closeWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+{# fun Fl_Tree_close_with_item_docallback as closeWithItemDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `Int' #}+{# fun Fl_Tree_close_with_path as closeWithPath' { id `Ptr ()',`CString' } -> `Int' #}+{# fun Fl_Tree_close_with_path_docallback as closeWithPathDocallback' { id `Ptr ()',`CString', cFromBool `Bool' } -> `Int' #}+instance (impl ~ (TreeItemLocator -> IO ()) ) => Op (Close ()) TreeBase orig impl where+  runOp _ _ tree_item locator' =+    withRef tree_item $ \tree_itemPtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> closeWithItem' tree_itemPtr itemRefPtr >> return ()+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> closeWithPath' tree_itemPtr n'' >> return ())+instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (CloseAndCallback ()) TreeBase orig impl where+  runOp _ _ tree_item locator' docallback' =+    withRef tree_item $ \tree_itemPtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> closeWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> closeWithPathDocallback' tree_itemPtr n'' docallback' >> return ())+{# fun Fl_Tree_is_open_with_item as isOpenWithItem' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}+{# fun Fl_Tree_is_open_with_path as isOpenWithPath' { id `Ptr ()',`CString' } -> `Bool' cToBool  #}+instance (impl ~ (TreeItemLocator ->  IO (Bool)) ) => Op (IsOpen ()) TreeBase orig impl where+  runOp _ _ tree locator' = withRef tree $ \treePtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> isOpenWithItem' treePtr r'Ptr+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> isOpenWithPath' treePtr n'')+{# fun Fl_Tree_is_close_with_item as isCloseWithItem' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}+{# fun Fl_Tree_is_close_with_path as isCloseWithPath' { id `Ptr ()',`CString' } -> `Bool' cToBool  #}+instance (impl ~ (TreeItemLocator ->  IO (Bool)) ) => Op (IsClose ()) TreeBase orig impl where+  runOp _ _ tree locator' = withRef tree $ \treePtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> isCloseWithItem' treePtr r'Ptr+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> isCloseWithPath' treePtr n'')+{# fun Fl_Tree_select_with_item as selectWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+{# fun Fl_Tree_select_with_item_docallback as selectWithItemDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `Int' #}+{# fun Fl_Tree_select_with_path as selectWithPath' { id `Ptr ()',`CString' } -> `Int' #}+{# fun Fl_Tree_select_with_path_docallback as selectWithPathDocallback' { id `Ptr ()',`CString',cFromBool `Bool' } -> `Int' #}+instance (impl ~ (TreeItemLocator  ->  IO (Either NoChange ())) ) => Op (Select ()) TreeBase orig impl where+  runOp _ _ tree locator' =+    withRef tree $ \treePtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> selectWithItem' treePtr r'Ptr >>= return . successOrNoChange+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> selectWithPath' treePtr n'' >>= return . successOrNoChange)+instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (SelectAndCallback ()) TreeBase orig impl where+  runOp _ _ tree_item locator' docallback' =+    withRef tree_item $ \tree_itemPtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> selectWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> selectWithPathDocallback' tree_itemPtr n'' docallback' >> return ())+{# fun Fl_Tree_select_toggle as selectToggle' { id `Ptr ()',id `Ptr ()' } -> `()' #}+{# fun Fl_Tree_select_toggle_with_docallback as selectToggleWithDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (SelectToggle ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectToggle' treePtr itemPtr+instance (impl ~ (Ref TreeItem  -> Bool ->  IO ()) ) => Op (SelectToggleAndCallback ()) TreeBase orig impl where+  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectToggleWithDocallback' treePtr itemPtr docallback+{# fun Fl_Tree_deselect_with_item as deselectWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+{# fun Fl_Tree_deselect_with_item_docallback as deselectWithItemDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `Int' #}+{# fun Fl_Tree_deselect_with_path as deselectWithPath' { id `Ptr ()', `CString'} -> `Int' #}+{# fun Fl_Tree_deselect_with_path_docallback as deselectWithPathDocallback' { id `Ptr ()',`CString',cFromBool `Bool' } -> `Int' #}+instance (impl ~ (TreeItemLocator  ->  IO (Either NoChange ())) ) => Op (Deselect ()) TreeBase orig impl where+  runOp _ _ tree locator' =+    withRef tree $ \treePtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> deselectWithItem' treePtr r'Ptr >>= return . successOrNoChange+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> deselectWithPath' treePtr n'' >>= return . successOrNoChange)+instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (DeselectAndCallback ()) TreeBase orig impl where+  runOp _ _ tree_item locator' docallback' =+    withRef tree_item $ \tree_itemPtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> deselectWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()+      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> deselectWithPathDocallback' tree_itemPtr n'' docallback' >> return ())+{# fun Fl_Tree_select_only as selectOnly' { id `Ptr ()',id `Ptr ()' } -> `()' #}+{# fun Fl_Tree_select_only_with_docallback as selectOnlyWithDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (SelectOnly ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectOnly' treePtr itemPtr+instance (impl ~ (Ref TreeItem  -> Bool ->  IO ()) ) => Op (SelectOnlyAndCallback ()) TreeBase orig impl where+  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectOnlyWithDocallback' treePtr itemPtr docallback+{# fun Fl_Tree_select_all as selectAll' { id `Ptr ()',id `Ptr ()' } -> `()' #}+{# fun Fl_Tree_select_all_with_docallback as selectAllWithDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (IO ()) ) => Op (SelectAll ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr ->  selectAll' treePtr nullPtr+instance (impl ~ (Maybe (Ref TreeItem)  -> Bool ->  IO ()) ) => Op (SelectAllAndCallback ()) TreeBase orig impl where+  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withMaybeRef item $ \itemPtr -> selectAllWithDocallback' treePtr itemPtr docallback+{# fun Fl_Tree_deselect_all_with_item as deselectAll' { id `Ptr ()',id `Ptr ()' } -> `()' #}+{# fun Fl_Tree_deselect_all_with_item_docallback as deselectAllWithDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (IO ()) ) => Op (DeselectAll ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr ->  deselectAll' treePtr nullPtr+instance (impl ~ (Maybe (Ref TreeItem)  -> Bool ->  IO ()) ) => Op (DeselectAllAndCallback ()) TreeBase orig impl where+  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withMaybeRef item $ \itemPtr -> deselectAllWithDocallback' treePtr itemPtr docallback+{# fun Fl_Tree_set_item_focus as setItemFocus' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (SetItemFocus ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> setItemFocus' treePtr itemPtr+{# fun Fl_Tree_get_item_focus as getItemFocus' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetItemFocus ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> getItemFocus' treePtr >>= toMaybeRef+{# fun Fl_Tree_is_selected_with_item as isSelectedWithItem' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}+{# fun Fl_Tree_is_selected_with_path as isSelectedWithPath' { id `Ptr ()',`CString' } -> `Bool' cToBool #}+instance (impl ~ (TreeItemLocator ->  IO (Bool)) ) => Op (IsSelected ()) TreeBase orig impl where+  runOp _ _ tree locator' = withRef tree $ \treePtr ->+    case locator' of+      TreeItemPointerLocator (TreeItemPointer item) -> withRef item $ \itemPtr -> isSelectedWithItem' treePtr itemPtr+      TreeItemNameLocator (TreeItemName path) -> withText path (\p -> isSelectedWithPath' treePtr p)+{# fun Fl_Tree_item_labelfont as itemLabelfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font)) ) => Op (GetItemLabelfont ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelfont' treePtr+{# fun Fl_Tree_set_item_labelfont as itemSetLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ()) ) => Op (SetItemLabelfont ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> itemSetLabelfont' treePtr val+{# fun Fl_Tree_item_labelsize as itemLabelsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize)) ) => Op (GetItemLabelsize ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelsize' treePtr >>= return . FontSize+{# fun Fl_Tree_set_item_labelsize as itemSetLabelsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ()) ) => Op (SetItemLabelsize ()) TreeBase orig impl where+  runOp _ _ tree (FontSize val) = withRef tree $ \treePtr -> itemSetLabelsize' treePtr val+{# fun Fl_Tree_item_labelfgcolor as itemLabelfgcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color)) ) => Op (GetItemLabelfgcolor ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelfgcolor' treePtr+{# fun Fl_Tree_set_item_labelfgcolor as setItemLabelfgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ()) ) => Op (SetItemLabelfgcolor ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setItemLabelfgcolor' treePtr val+{# fun Fl_Tree_item_labelbgcolor as itemLabelbgcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color)) ) => Op (GetItemLabelbgcolor ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelbgcolor' treePtr+{# fun Fl_Tree_set_item_labelbgcolor as setItemLabelbgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ()) ) => Op (SetItemLabelbgcolor ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setItemLabelbgcolor' treePtr val+{# fun Fl_Tree_connectorcolor as connectorcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color)) ) => Op (GetConnectorcolor ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> connectorcolor' treePtr+{# fun Fl_Tree_set_connectorcolor as setConnectorcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ()) ) => Op (SetConnectorcolor ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorcolor' treePtr val+{# fun Fl_Tree_marginleft as marginleft' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetMarginleft ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> marginleft' treePtr+{# fun Fl_Tree_set_marginleft as setMarginleft' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetMarginleft ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setMarginleft' treePtr val+{# fun Fl_Tree_margintop as margintop' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetMargintop ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> margintop' treePtr+{# fun Fl_Tree_set_margintop as setMargintop' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetMargintop ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setMargintop' treePtr val+{# fun Fl_Tree_linespacing as linespacing' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetLinespacing ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> linespacing' treePtr+{# fun Fl_Tree_set_linespacing as setLinespacing' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetLinespacing ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setLinespacing' treePtr val+{# fun Fl_Tree_openchild_marginbottom as openchildMarginbottom' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetOpenchildMarginbottom ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> openchildMarginbottom' treePtr+{# fun Fl_Tree_set_openchild_marginbottom as setOpenchildMarginbottom' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetOpenchildMarginbottom ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setOpenchildMarginbottom' treePtr val+{# fun Fl_Tree_usericonmarginleft as usericonmarginleft' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetUsericonmarginleft ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> usericonmarginleft' treePtr+{# fun Fl_Tree_set_usericonmarginleft as setUsericonmarginleft' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetUsericonmarginleft ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setUsericonmarginleft' treePtr val+{# fun Fl_Tree_labelmarginleft as labelmarginleft' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetLabelmarginleft ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> labelmarginleft' treePtr+{# fun Fl_Tree_set_labelmarginleft as setLabelmarginleft' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetLabelmarginleft ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setLabelmarginleft' treePtr val+{# fun Fl_Tree_connectorwidth as connectorwidth' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetConnectorwidth ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> connectorwidth' treePtr+{# fun Fl_Tree_set_connectorwidth as setConnectorwidth' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetConnectorwidth ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorwidth' treePtr val+{# fun Fl_Tree_usericon as usericon' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetUsericon ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> usericon' treePtr >>= toMaybeRef+{# fun Fl_Tree_set_usericon as setUsericon' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a Image, impl ~ (Maybe( Ref a )  ->  IO ()) ) => Op (SetUsericon ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setUsericon' treePtr valPtr+{# fun Fl_Tree_openicon as openicon' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetOpenicon ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> openicon' treePtr >>= toMaybeRef+{# fun Fl_Tree_set_openicon as setOpenicon' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a Image , impl ~ (Maybe( Ref a )  ->  IO ()) ) => Op (SetOpenicon ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setOpenicon' treePtr valPtr+{# fun Fl_Tree_closeicon as closeicon' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetCloseicon ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> closeicon' treePtr >>= toMaybeRef+{# fun Fl_Tree_set_closeicon as setCloseicon' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a Image, impl ~ (Maybe( Ref a )  ->  IO ()) ) => Op (SetCloseicon ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setCloseicon' treePtr valPtr+{# fun Fl_Tree_showcollapse as showcollapse' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool)) ) => Op (GetShowcollapse ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> showcollapse' treePtr+{# fun Fl_Tree_set_showcollapse as setShowcollapse' { id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ()) ) => Op (SetShowcollapse ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setShowcollapse' treePtr val+{# fun Fl_Tree_showroot as showroot' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool)) ) => Op (GetShowroot ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> showroot' treePtr+{# fun Fl_Tree_set_showroot as setShowroot' { id `Ptr ()', cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool ->  IO ()) ) => Op (SetShowroot ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setShowroot' treePtr val+{# fun Fl_Tree_connectorstyle as connectorstyle' { id `Ptr ()' } -> `TreeConnector' cToEnum #}+instance (impl ~ ( IO (TreeConnector)) ) => Op (GetConnectorstyle ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> connectorstyle' treePtr+{# fun Fl_Tree_set_connectorstyle as setConnectorstyle' { id `Ptr ()', cFromEnum `TreeConnector' } -> `()' #}+instance (impl ~ (TreeConnector ->  IO ()) ) => Op (SetConnectorstyle ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorstyle' treePtr val+{# fun Fl_Tree_sortorder as sortorder' { id `Ptr ()' } -> `TreeSort' cToEnum #}+instance (impl ~ ( IO (TreeSort)) ) => Op (GetSortorder ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> sortorder' treePtr+{# fun Fl_Tree_set_sortorder as setSortorder' { id `Ptr ()', cFromEnum `TreeSort' } -> `()' #}+instance (impl ~ (TreeSort ->  IO ()) ) => Op (SetSortorder ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setSortorder' treePtr val+{# fun Fl_Tree_selectbox as selectbox' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ ( IO (Boxtype)) ) => Op (GetSelectbox ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> selectbox' treePtr+{# fun Fl_Tree_set_selectbox as setSelectbox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}+instance (impl ~ (Boxtype ->  IO ()) ) => Op (SetSelectbox ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setSelectbox' treePtr val+{# fun Fl_Tree_selectmode as selectmode' { id `Ptr ()' } -> `TreeSelect' cToEnum #}+instance (impl ~ ( IO (TreeSelect)) ) => Op (Selectmode ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> selectmode' treePtr+{# fun Fl_Tree_set_selectmode as setSelectmode' { id `Ptr ()', cFromEnum `TreeSelect' } -> `()' #}+instance (impl ~ (TreeSelect ->  IO ()) ) => Op (SetSelectmode ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setSelectmode' treePtr val+{# fun Fl_Tree_displayed as displayed' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (Ref TreeItem  ->  IO (Bool)) ) => Op (Displayed ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> displayed' treePtr itemPtr+{# fun Fl_Tree_show_item_with_yoff as showItemWithYoff' { id `Ptr ()',id `Ptr ()',`Int' } -> `()' #}+{# fun Fl_Tree_show_item as showItem' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref TreeItem  -> Maybe Y ->  IO ()) ) => Op (ShowItemWithYoff ()) TreeBase orig impl where+  runOp _ _ tree item yoff =+    withRef tree $ \treePtr ->+    withRef item $ \itemPtr ->+    case yoff of+      Just (Y y') -> showItemWithYoff' treePtr itemPtr y'+      Nothing -> showItem' treePtr itemPtr+{# fun Fl_Tree_show_item_top as showItemTop' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (ShowItemTop ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemTop' treePtr itemPtr+{# fun Fl_Tree_show_item_middle as showItemMiddle' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (ShowItemMiddle ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemMiddle' treePtr itemPtr+{# fun Fl_Tree_show_item_bottom as showItemBottom' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (ShowItemBottom ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemBottom' treePtr itemPtr+{# fun Fl_Tree_display as display' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (Display ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> display' treePtr itemPtr+{# fun Fl_Tree_vposition as vposition' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetVposition ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> vposition' treePtr+{# fun Fl_Tree_set_vposition as setVposition' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetVposition ()) TreeBase orig impl where+  runOp _ _ tree pos = withRef tree $ \treePtr -> setVposition' treePtr pos+{# fun Fl_Tree_is_scrollbar as isScrollbar' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}+instance (Parent a WidgetBase, impl ~ (Ref a  ->  IO (Bool)) ) => Op (IsScrollbar ()) TreeBase orig impl where+  runOp _ _ tree w = withRef tree $ \treePtr -> withRef w $ \wPtr -> isScrollbar' treePtr wPtr+{# fun Fl_Tree_scrollbar_size as scrollbarSize' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (IO (Int)) ) => Op (GetScrollbarSize ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> scrollbarSize' treePtr+{# fun Fl_Tree_set_scrollbar_size as setScrollbarSize' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetScrollbarSize ()) TreeBase orig impl where+  runOp _ _ tree size = withRef tree $ \treePtr -> setScrollbarSize' treePtr size+{# fun Fl_Tree_is_vscroll_visible as isVscrollVisible' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool)) ) => Op (IsVscrollVisible ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> isVscrollVisible' treePtr+{# fun Fl_Tree_set_callback_item as setCallbackItem' { id `Ptr ()',id `Ptr ()' } -> `()' #}+instance (Parent a TreeItem, impl ~ (Ref a ->  IO ()) ) => Op (SetCallbackItem ()) TreeBase orig impl where+  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> setCallbackItem' treePtr itemPtr+{# fun Fl_Tree_callback_item as callbackItem' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetCallbackItem ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> callbackItem' treePtr >>= toMaybeRef+{# fun Fl_Tree_set_callback_reason as setCallbackReason' { id `Ptr ()', cFromEnum `TreeReasonType' } -> `()' #}+instance (impl ~ (TreeReasonType ->  IO ()) ) => Op (SetCallbackReason ()) TreeBase orig impl where+  runOp _ _ tree reason = withRef tree $ \treePtr -> setCallbackReason' treePtr reason+{# fun Fl_Tree_callback_reason as callbackReason' { id `Ptr ()' } -> `TreeReasonType' cToEnum #}+instance (impl ~ ( IO (TreeReasonType)) ) => Op (GetCallbackReason ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> callbackReason' treePtr+{# fun Fl_Tree_recalc_tree as recalcTree' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (RecalcTree ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> recalcTree' treePtr+{# fun Fl_Tree_marginbottom as marginbottom' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetMarginbottom ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> marginbottom' treePtr+{# fun Fl_Tree_set_marginbottom as setMarginbottom' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetMarginbottom ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setMarginbottom' treePtr val+{# fun Fl_Tree_widgetmarginleft as widgetmarginleft' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int)) ) => Op (GetWidgetmarginleft ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> widgetmarginleft' treePtr+{# fun Fl_Tree_set_widgetmarginleft as setWidgetmarginleft' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Int ->  IO ()) ) => Op (SetWidgetmarginleft ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setWidgetmarginleft' treePtr val+{# fun Fl_Tree_item_reselect_mode as item_reselect_mode' { id `Ptr ()' } -> `TreeItemReselectMode' cToEnum #}+instance (impl ~ ( IO (TreeItemReselectMode)) ) => Op (GetItemReselectMode ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> item_reselect_mode' treePtr+{# fun Fl_Tree_set_item_reselect_mode as setItem_Reselect_Mode' { id `Ptr ()', cFromEnum `TreeItemReselectMode' } -> `()' #}+instance (impl ~ (TreeItemReselectMode ->  IO ()) ) => Op (SetItemReselectMode ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setItem_Reselect_Mode' treePtr val+{# fun Fl_Tree_item_draw_mode as item_draw_mode' { id `Ptr ()' } -> `CInt'#}+instance (impl ~ ( IO ([TreeItemDrawMode])) ) => Op (GetItemDrawMode ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> item_draw_mode' treePtr >>= return . extract allTreeItemDrawModes+{# fun Fl_Tree_set_item_draw_mode as setItem_Draw_Mode' { id `Ptr ()', `CInt' } -> `()' #}+instance (impl ~ ([TreeItemDrawMode] ->  IO ()) ) => Op (SetItemDrawMode ()) TreeBase orig impl where+  runOp _ _ tree val = withRef tree $ \treePtr -> setItem_Draw_Mode' treePtr (fromIntegral (combine val))+++{# fun Fl_Tree_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawTreeBase ::  Ref TreeBase -> IO ()+drawTreeBase tree = withRef tree $ \treePtr -> drawSuper' treePtr+{# fun Fl_Tree_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleTreeBase :: Ref TreeBase -> Event ->  IO (Either UnknownEvent ())+handleTreeBase tree event = withRef tree $ \treePtr -> handleSuper' treePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Tree_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeTreeBase :: Ref TreeBase -> Rectangle -> IO ()+resizeTreeBase tree rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef tree $ \treePtr -> resizeSuper' treePtr x_pos y_pos width height+{# fun Fl_Tree_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideTreeBase ::  Ref TreeBase -> IO ()+hideTreeBase tree = withRef tree $ \treePtr -> hideSuper' treePtr+{# fun Fl_Tree_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetTreeBase ::  Ref TreeBase -> IO ()+showWidgetTreeBase tree = withRef tree $ \treePtr -> showSuper' treePtr++{# fun Fl_Tree_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> draw'' treePtr+{#fun Fl_Tree_handle as treeHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TreeBase orig impl where+  runOp _ _ tree event = withRef tree (\p -> treeHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Tree_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> show' treePtr+{# fun Fl_Tree_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TreeBase orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> hide' treePtr+{# fun Fl_Tree_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TreeBase orig impl where+  runOp _ _ tree rectangle = withRef tree $ \treePtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' treePtr x_pos y_pos w_pos h_pos+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Tree"+-- @++-- $functions+-- @+-- add :: 'Ref' 'TreeBase' -> 'T.Text' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- addAt:: ('Parent' a 'TreeItem') => 'Ref' 'TreeBase' -> 'T.Text' -> 'Ref' a -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- clear :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- clearChildren:: ('Parent' a 'TreeItem') => 'Ref' 'TreeBase' -> 'Ref' a -> 'IO' ()+--+-- close :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ()+--+-- closeAndCallback :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()+--+-- deselect :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ('Either' 'NoChange' ())+--+-- deselectAll :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- deselectAllAndCallback :: 'Ref' 'TreeBase' -> 'Maybe' ('Ref' 'TreeItem') -> 'Bool' -> 'IO' ()+--+-- deselectAndCallback :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()+--+-- destroy :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- display :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- displayed :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ('Bool')+--+-- draw :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- findItem :: 'Ref' 'TreeBase' -> 'T.Text' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- firstSelectedItem :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- firstVisible :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- getCallbackItem :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- getCallbackReason :: 'Ref' 'TreeBase' -> 'IO' ('TreeReasonType')+--+-- getCloseicon :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getConnectorcolor :: 'Ref' 'TreeBase' -> 'IO' ('Color')+--+-- getConnectorstyle :: 'Ref' 'TreeBase' -> 'IO' ('TreeConnector')+--+-- getConnectorwidth :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getFirst :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- getItemDrawMode :: 'Ref' 'TreeBase' -> 'IO' (['TreeItemDrawMode')]+--+-- getItemFocus :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- getItemLabelbgcolor :: 'Ref' 'TreeBase' -> 'IO' ('Color')+--+-- getItemLabelfgcolor :: 'Ref' 'TreeBase' -> 'IO' ('Color')+--+-- getItemLabelfont :: 'Ref' 'TreeBase' -> 'IO' ('Font')+--+-- getItemLabelsize :: 'Ref' 'TreeBase' -> 'IO' ('FontSize')+--+-- getItemReselectMode :: 'Ref' 'TreeBase' -> 'IO' ('TreeItemReselectMode')+--+-- getLabelmarginleft :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getLast :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- getLinespacing :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getMarginbottom :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getMarginleft :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getMargintop :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getOpenchildMarginbottom :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getOpenicon :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getScrollbarSize :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getSelectbox :: 'Ref' 'TreeBase' -> 'IO' ('Boxtype')+--+-- getShowcollapse :: 'Ref' 'TreeBase' -> 'IO' ('Bool')+--+-- getShowroot :: 'Ref' 'TreeBase' -> 'IO' ('Bool')+--+-- getSortorder :: 'Ref' 'TreeBase' -> 'IO' ('TreeSort')+--+-- getUsericon :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getUsericonmarginleft :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getVposition :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- getWidgetmarginleft :: 'Ref' 'TreeBase' -> 'IO' ('Int')+--+-- handle :: 'Ref' 'TreeBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- insert:: ('Parent' a 'TreeItem') => 'Ref' 'TreeBase' -> 'Ref' a -> 'T.Text' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' a))+--+-- insertAbove:: ('Parent' a 'TreeItem') => 'Ref' 'TreeBase' -> 'Ref' a -> 'T.Text' -> 'IO' ('Maybe' ('Ref' a))+--+-- isClose :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ('Bool')+--+-- isOpen :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ('Bool')+--+-- isScrollbar:: ('Parent' a 'WidgetBase') => 'Ref' 'TreeBase' -> 'Ref' a -> 'IO' ('Bool')+--+-- isSelected :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ('Bool')+--+-- isVscrollVisible :: 'Ref' 'TreeBase' -> 'IO' ('Bool')+--+-- itemClicked :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- itemPathname:: ('Parent' a 'TreeItem') => 'Ref' 'TreeBase' -> 'Ref' a -> 'IO' ('Maybe' 'T.Text')+--+-- lastSelectedItem :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- lastVisible :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- next :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- nextAfterItem :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- nextItem :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'Maybe' 'SearchDirection' -> 'Bool' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- nextSelectedItem :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- nextSelectedItemAfterItem :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'Maybe' 'SearchDirection' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- open :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ()+--+-- openAndCallback :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()+--+-- openToggle :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- openToggleAndCallback :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'Bool' -> 'IO' ()+--+-- prev :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- prevBeforeItem :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- recalcTree :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- remove :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ('Either' 'TreeItemNotFound' ())+--+-- resize :: 'Ref' 'TreeBase' -> 'Rectangle' -> 'IO' ()+--+-- root :: 'Ref' 'TreeBase' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))+--+-- rootLabel :: 'Ref' 'TreeBase' -> 'T.Text' -> 'IO' ()+--+-- select :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'IO' ('Either' 'NoChange' ())+--+-- selectAll :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- selectAllAndCallback :: 'Ref' 'TreeBase' -> 'Maybe' ('Ref' 'TreeItem') -> 'Bool' -> 'IO' ()+--+-- selectAndCallback :: 'Ref' 'TreeBase' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()+--+-- selectOnly :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- selectOnlyAndCallback :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'Bool' -> 'IO' ()+--+-- selectToggle :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- selectToggleAndCallback :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'Bool' -> 'IO' ()+--+-- selectmode :: 'Ref' 'TreeBase' -> 'IO' ('TreeSelect')+--+-- setCallbackItem:: ('Parent' a 'TreeItem') => 'Ref' 'TreeBase' -> 'Ref' a -> 'IO' ()+--+-- setCallbackReason :: 'Ref' 'TreeBase' -> 'TreeReasonType' -> 'IO' ()+--+-- setCloseicon:: ('Parent' a 'Image') => 'Ref' 'TreeBase' -> 'Maybe'( 'Ref' a ) -> 'IO' ()+--+-- setConnectorcolor :: 'Ref' 'TreeBase' -> 'Color' -> 'IO' ()+--+-- setConnectorstyle :: 'Ref' 'TreeBase' -> 'TreeConnector' -> 'IO' ()+--+-- setConnectorwidth :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setItemDrawMode :: 'Ref' 'TreeBase' -> ['TreeItemDrawMode'] -> 'IO' ()+--+-- setItemFocus :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- setItemLabelbgcolor :: 'Ref' 'TreeBase' -> 'Color' -> 'IO' ()+--+-- setItemLabelfgcolor :: 'Ref' 'TreeBase' -> 'Color' -> 'IO' ()+--+-- setItemLabelfont :: 'Ref' 'TreeBase' -> 'Font' -> 'IO' ()+--+-- setItemLabelsize :: 'Ref' 'TreeBase' -> 'FontSize' -> 'IO' ()+--+-- setItemReselectMode :: 'Ref' 'TreeBase' -> 'TreeItemReselectMode' -> 'IO' ()+--+-- setLabelmarginleft :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setLinespacing :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setMarginbottom :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setMarginleft :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setMargintop :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setOpenchildMarginbottom :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setOpenicon:: ('Parent' a 'Image') => 'Ref' 'TreeBase' -> 'Maybe'( 'Ref' a ) -> 'IO' ()+--+-- setScrollbarSize :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setSelectbox :: 'Ref' 'TreeBase' -> 'Boxtype' -> 'IO' ()+--+-- setSelectmode :: 'Ref' 'TreeBase' -> 'TreeSelect' -> 'IO' ()+--+-- setShowcollapse :: 'Ref' 'TreeBase' -> 'Bool' -> 'IO' ()+--+-- setShowroot :: 'Ref' 'TreeBase' -> 'Bool' -> 'IO' ()+--+-- setSortorder :: 'Ref' 'TreeBase' -> 'TreeSort' -> 'IO' ()+--+-- setUsericon:: ('Parent' a 'Image') => 'Ref' 'TreeBase' -> 'Maybe'( 'Ref' a ) -> 'IO' ()+--+-- setUsericonmarginleft :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setVposition :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- setWidgetmarginleft :: 'Ref' 'TreeBase' -> 'Int' -> 'IO' ()+--+-- showItemBottom :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- showItemMiddle :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- showItemTop :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'IO' ()+--+-- showItemWithYoff :: 'Ref' 'TreeBase' -> 'Ref' 'TreeItem' -> 'Maybe' 'Y' -> 'IO' ()+--+-- showSelf :: 'Ref' 'TreeBase' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TreeBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Valuator.chs view
@@ -0,0 +1,216 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Valuator+    (+     -- * Constructor+     valuatorNew,+     valuatorCustom,+     ValuatorType(..)+  , handleValuatorBase+  , resizeValuatorBase+  , hideValuatorBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_ValuatorC.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Data.Ratio+#c+enum ValuatorType {+  VerticalValuatorType = FL_VERTICALC,+  HorizontalValuatorType = FL_HORIZONTALC+};+#endc+{#enum ValuatorType {} deriving (Show, Eq) #}+{# fun Fl_Valuator_New as valuatorNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Valuator_New_WithLabel as valuatorNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+{# fun Fl_OverriddenValuator_New_WithLabel as overriddenValuatorNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenValuator_New as overriddenValuatorNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+valuatorCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Valuator -> IO ()) -> Maybe (CustomWidgetFuncs Valuator) -> IO (Ref Valuator)+valuatorCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenValuatorNew'+    overriddenValuatorNewWithLabel'++valuatorNew :: Rectangle -> Maybe T.Text -> IO (Ref Valuator)+valuatorNew rectangle l' =+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenValuatorNew'+    overriddenValuatorNewWithLabel'++{# fun Fl_Valuator_Destroy as valuatorDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) ValuatorBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+                                        valuatorDestroy' winPtr+                                        return nullPtr++{# fun Fl_Valuator_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleValuatorBase :: Ref ValuatorBase -> Event ->  IO (Either UnknownEvent ())+handleValuatorBase valuator event = withRef valuator $ \valuatorPtr -> handleSuper' valuatorPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Valuator_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeValuatorBase :: Ref ValuatorBase -> Rectangle -> IO ()+resizeValuatorBase valuator rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef valuator $ \valuatorPtr -> resizeSuper' valuatorPtr x_pos y_pos width height+{# fun Fl_Valuator_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideValuatorBase ::  Ref ValuatorBase -> IO ()+hideValuatorBase valuator = withRef valuator $ \valuatorPtr -> hideSuper' valuatorPtr++{#fun Fl_DerivedValuator_handle as valuatorHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValuatorBase orig impl where+  runOp _ _ valuator event = withRef valuator (\p -> valuatorHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent++{# fun Fl_DerivedValuator_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) ValuatorBase orig impl where+  runOp _ _ valuator rectangle = withRef valuator $ \valuatorPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' valuatorPtr x_pos y_pos w_pos h_pos++{# fun Fl_DerivedValuator_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) ValuatorBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> hide' valuatorPtr++{# fun Fl_Valuator_bounds as bounds' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double -> Double ->  IO ())) => Op (Bounds ()) ValuatorBase orig impl where+  runOp _ _ valuator a b = withRef valuator $ \valuatorPtr -> bounds' valuatorPtr a b+{# fun Fl_Valuator_minimum as minimum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetMinimum ()) ValuatorBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> minimum' valuatorPtr+{# fun Fl_Valuator_set_minimum as setMinimum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double ->  IO ())) => Op (SetMinimum ()) ValuatorBase orig impl where+  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMinimum' valuatorPtr a+{# fun Fl_Valuator_maximum as maximum' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetMaximum ()) ValuatorBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> maximum' valuatorPtr+{# fun Fl_Valuator_set_maximum as setMaximum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double ->  IO ())) => Op (SetMaximum ()) ValuatorBase orig impl where+  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMaximum' valuatorPtr a+{# fun Fl_Valuator_range as range' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Double -> Double ->  IO ())) => Op (Range ()) ValuatorBase orig impl where+  runOp _ _ valuator a b = withRef valuator $ \valuatorPtr -> range' valuatorPtr a b+{# fun Fl_Valuator_set_step_with_a_b as setStepWithAB' { id `Ptr ()', `Double', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rational -> IO ())) => Op (SetStep ()) ValuatorBase orig impl where+  runOp _ _ valuator r = withRef valuator $ \valuatorPtr -> setStepWithAB' valuatorPtr (fromIntegral (numerator r)) (fromIntegral (denominator r))+{# fun Fl_Valuator_step as step' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Rational))) => Op (GetStep ()) ValuatorBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> step' valuatorPtr >>= \r -> return $ approxRational r 0+{# fun Fl_Valuator_precision as precision' { id `Ptr ()',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Int ->  IO ())) => Op (Precision ()) ValuatorBase orig impl where+  runOp _ _ valuator p' = withRef valuator $ \valuatorPtr -> precision' valuatorPtr p'+{# fun Fl_Valuator_value as value' { id `Ptr ()' } -> `Double' #}+instance (impl ~ ( IO (Double))) => Op (GetValue ()) ValuatorBase orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> value' valuatorPtr+{# fun Fl_Valuator_set_value as setValue' { id `Ptr ()',`Double' } -> `Int' #}+instance (impl ~ (Double ->  IO (Either NoChange ()))) => Op (SetValue ()) ValuatorBase orig impl where+  runOp _ _ valuator v = withRef valuator $ \valuatorPtr -> do+    ret <- setValue' valuatorPtr v+    return (if (ret == 0) then Left NoChange else Right ())+{# fun Fl_Valuator_format as format' { id `Ptr ()', id `Ptr CChar' } -> `Int' #}+instance (impl ~ (IO (Either UnknownError T.Text))) => Op (Format ()) ValuatorBase orig impl where+  runOp _ _ valuator =+    let bufSize = 128+    in+    withRef valuator+      (\valuatorPtr ->+          allocaBytes 128+            (\bufPtr -> do+               res <- format' valuatorPtr bufPtr+               if (res < 0 || res > bufSize)+                 then return (Left UnknownError)+                 else fmap Right (cStringToText (castPtr bufPtr))+            )+      )+{# fun Fl_Valuator_round as round' { id `Ptr ()',`Double' } -> `Double' #}+instance (impl ~ (Double ->  IO (Double))) => Op (Round ()) ValuatorBase orig impl where+  runOp _ _ valuator v = withRef valuator $ \valuatorPtr -> round' valuatorPtr v+{# fun Fl_Valuator_clamp as clamp' { id `Ptr ()',`Double' } -> `Double' #}+instance (impl ~ (Double ->  IO (Double))) => Op (Clamp ()) ValuatorBase orig impl where+  runOp _ _ valuator v = withRef valuator $ \valuatorPtr -> clamp' valuatorPtr v+{# fun Fl_Valuator_increment as increment' { id `Ptr ()',`Double',`Int' } -> `Double' #}+instance (impl ~ (Double -> Int ->  IO (Double))) => Op (Increment ()) ValuatorBase orig impl where+  runOp _ _ valuator v n = withRef valuator $ \valuatorPtr -> increment' valuatorPtr v n+{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (ValuatorType ->  IO ())) => Op (SetType ()) ValuatorBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (ValuatorType)) => Op (GetType_ ()) ValuatorBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+-- @++-- $functions+-- @+-- bounds :: 'Ref' 'ValuatorBase' -> 'Double' -> 'Double' -> 'IO' ()+--+-- clamp :: 'Ref' 'ValuatorBase' -> 'Double' -> 'IO' ('Double')+--+-- destroy :: 'Ref' 'ValuatorBase' -> 'IO' ()+--+-- format :: 'Ref' 'ValuatorBase' -> 'IO' ('Either' 'UnknownError' 'T.Text')+--+-- getMaximum :: 'Ref' 'ValuatorBase' -> 'IO' ('Double')+--+-- getMinimum :: 'Ref' 'ValuatorBase' -> 'IO' ('Double')+--+-- getStep :: 'Ref' 'ValuatorBase' -> 'IO' ('Rational')+--+-- getType_ :: 'Ref' 'ValuatorBase' -> 'IO' ('ValuatorType')+--+-- getValue :: 'Ref' 'ValuatorBase' -> 'IO' ('Double')+--+-- handle :: 'Ref' 'ValuatorBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ValuatorBase' -> 'IO' ()+--+-- increment :: 'Ref' 'ValuatorBase' -> 'Double' -> 'Int' -> 'IO' ('Double')+--+-- precision :: 'Ref' 'ValuatorBase' -> 'Int' -> 'IO' ()+--+-- range :: 'Ref' 'ValuatorBase' -> 'Double' -> 'Double' -> 'IO' ()+--+-- resize :: 'Ref' 'ValuatorBase' -> 'Rectangle' -> 'IO' ()+--+-- round :: 'Ref' 'ValuatorBase' -> 'Double' -> 'IO' ('Double')+--+-- setMaximum :: 'Ref' 'ValuatorBase' -> 'Double' -> 'IO' ()+--+-- setMinimum :: 'Ref' 'ValuatorBase' -> 'Double' -> 'IO' ()+--+-- setStep :: 'Ref' 'ValuatorBase' -> 'Rational' -> 'IO' ()+--+-- setType :: 'Ref' 'ValuatorBase' -> 'ValuatorType' -> 'IO' ()+--+-- setValue :: 'Ref' 'ValuatorBase' -> 'Double' -> 'IO' ('Either' 'NoChange' ())+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/ValueInput.chs view
@@ -0,0 +1,180 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.ValueInput+    (+     -- * Constructor+     valueInputNew,+     valueInputCustom+  , drawValueInputBase+  , handleValueInputBase+  , resizeValueInputBase+  , hideValueInputBase+  , showWidgetValueInputBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Value_InputC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+{# fun Fl_OverriddenValue_Input_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenValue_Input_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+valueInputCustom ::+       Rectangle                         -- ^ The bounds of this ValueInput+    -> Maybe T.Text                      -- ^ The ValueInput label+    -> Maybe (Ref ValueInput -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs ValueInput)      -- ^ Optional custom widget functions+    -> IO (Ref ValueInput)+valueInputCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Value_Input_New as valueInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Value_Input_New_WithLabel as valueInputNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+valueInputNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueInput)+valueInputNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Value_Input_Destroy as valueInputDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) ValueInputBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    valueInputDestroy' winPtr+    return nullPtr+{# fun Fl_Value_Input_soft as soft' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (GetSoft ()) ValueInputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> soft' value_inputPtr+{# fun Fl_Value_Input_set_soft as setSoft' { id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool->  IO ())) => Op (SetSoft ()) ValueInputBase orig impl where+  runOp _ _ value_input s = withRef value_input $ \value_inputPtr -> setSoft' value_inputPtr s+{# fun Fl_Value_Input_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}+instance (impl ~ ( IO (Maybe ShortcutKeySequence))) => Op (GetShortcut ()) ValueInputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> shortcut' value_inputPtr >>= return . cIntToKeySequence+{# fun Fl_Value_Input_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) ValueInputBase orig impl where+  runOp _ _ input (ShortcutKeySequence modifiers char) =+    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)+{# fun Fl_Value_Input_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) ValueInputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textfont' value_inputPtr+{# fun Fl_Value_Input_set_textfont as setTextfont' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) ValueInputBase orig impl where+  runOp _ _ value_input (Font v) = withRef value_input $ \value_inputPtr -> setTextfont' value_inputPtr v+{# fun Fl_Value_Input_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) ValueInputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textsize' value_inputPtr >>= return . FontSize+{# fun Fl_Value_Input_set_textsize as setTextsize' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) ValueInputBase orig impl where+  runOp _ _ value_input (FontSize v) = withRef value_input $ \value_inputPtr -> setTextsize' value_inputPtr v+{# fun Fl_Value_Input_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) ValueInputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textcolor' value_inputPtr+{# fun Fl_Value_Input_set_textcolor as setTextcolor' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) ValueInputBase orig impl where+  runOp _ _ value_input (Color v) = withRef value_input $ \value_inputPtr -> setTextcolor' value_inputPtr (fromIntegral v)+++{# fun Fl_Value_Input_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawValueInputBase ::  Ref ValueInputBase -> IO ()+drawValueInputBase valueInput = withRef valueInput $ \valueInputPtr -> drawSuper' valueInputPtr+{# fun Fl_Value_Input_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleValueInputBase :: Ref ValueInputBase -> Event ->  IO (Either UnknownEvent ())+handleValueInputBase valueInput event = withRef valueInput $ \valueInputPtr -> handleSuper' valueInputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Value_Input_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeValueInputBase :: Ref ValueInputBase -> Rectangle -> IO ()+resizeValueInputBase valueInput rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef valueInput $ \valueInputPtr -> resizeSuper' valueInputPtr x_pos y_pos width height+{# fun Fl_Value_Input_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideValueInputBase ::  Ref ValueInputBase -> IO ()+hideValueInputBase valueInput = withRef valueInput $ \valueInputPtr -> hideSuper' valueInputPtr+{# fun Fl_Value_Input_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetValueInputBase ::  Ref ValueInputBase -> IO ()+showWidgetValueInputBase valueInput = withRef valueInput $ \valueInputPtr -> showSuper' valueInputPtr++{# fun Fl_Value_Input_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ValueInputBase orig impl where+  runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> draw'' valueInputPtr+{#fun Fl_Value_Input_handle as valueInputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValueInputBase orig impl where+  runOp _ _ valueInput event = withRef valueInput (\p -> valueInputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Value_Input_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ValueInputBase orig impl where+  runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> hide' valueInputPtr+{# fun Fl_Value_Input_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ValueInputBase orig impl where+  runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> show' valueInputPtr+{# fun Fl_Value_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueInputBase orig impl where+  runOp _ _ valueInput rectangle = withRef valueInput $ \valueInputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' valueInputPtr x_pos y_pos w_pos h_pos++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ValueInput"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ValueInputBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ValueInputBase' -> 'IO' ()+--+-- getShortcut :: 'Ref' 'ValueInputBase' -> 'IO' ('Maybe' 'ShortcutKeySequence')+--+-- getSoft :: 'Ref' 'ValueInputBase' -> 'IO' ('Bool')+--+-- getTextcolor :: 'Ref' 'ValueInputBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'ValueInputBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'ValueInputBase' -> 'IO' ('FontSize')+--+-- handle :: 'Ref' 'ValueInputBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ValueInputBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ValueInputBase' -> 'Rectangle' -> 'IO' ()+--+-- setShortcut :: 'Ref' 'ValueInputBase' -> 'ShortcutKeySequence' -> 'IO' ()+--+-- setSoft :: 'Ref' 'ValueInputBase' -> 'Bool'>- 'IO' ()+--+-- setTextcolor :: 'Ref' 'ValueInputBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'ValueInputBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'ValueInputBase' -> 'FontSize' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ValueInputBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/ValueOutput.chs view
@@ -0,0 +1,171 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.ValueOutput+    (+     -- * Constructor+     valueOutputNew,+     valueOutputCustom+  , drawValueOutputBase+  , handleValueOutputBase+  , resizeValueOutputBase+  , hideValueOutputBase+  , showWidgetValueOutputBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Value_OutputC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+{# fun Fl_OverriddenValue_Output_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenValue_Output_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+valueOutputCustom ::+       Rectangle                         -- ^ The bounds of this ValueOutput+    -> Maybe T.Text                      -- ^ The ValueOutput label+    -> Maybe (Ref ValueOutput -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs ValueOutput)      -- ^ Optional custom widget functions+    -> IO (Ref ValueOutput)+valueOutputCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Value_Output_New as valueOutputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Value_Output_New_WithLabel as valueOutputNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+valueOutputNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueOutput)+valueOutputNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Value_Output_Destroy as valueOutputDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ IO ()) => Op (Destroy ()) ValueOutputBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    valueOutputDestroy' winPtr+    return nullPtr++{# fun Fl_Value_Output_soft as soft' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (GetSoft ()) ValueOutputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> soft' value_inputPtr+{# fun Fl_Value_Output_set_soft as setSoft' { id `Ptr ()',cFromBool `Bool' } -> `()' #}+instance (impl ~ (Bool->  IO ())) => Op (SetSoft ()) ValueOutputBase orig impl where+  runOp _ _ value_input s = withRef value_input $ \value_inputPtr -> setSoft' value_inputPtr s+{# fun Fl_Value_Output_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) ValueOutputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textfont' value_inputPtr+{# fun Fl_Value_Output_set_textfont as setTextfont' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) ValueOutputBase orig impl where+  runOp _ _ value_input (Font v) = withRef value_input $ \value_inputPtr -> setTextfont' value_inputPtr v+{# fun Fl_Value_Output_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) ValueOutputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textsize' value_inputPtr >>= return . FontSize+{# fun Fl_Value_Output_set_textsize as setTextsize' { id `Ptr ()',id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) ValueOutputBase orig impl where+  runOp _ _ value_input (FontSize v) = withRef value_input $ \value_inputPtr -> setTextsize' value_inputPtr v+{# fun Fl_Value_Output_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) ValueOutputBase orig impl where+  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textcolor' value_inputPtr+{# fun Fl_Value_Output_set_textcolor as setTextcolor' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) ValueOutputBase orig impl where+  runOp _ _ value_input (Color v) = withRef value_input $ \value_inputPtr -> setTextcolor' value_inputPtr (fromIntegral v)++{# fun Fl_Value_Output_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawValueOutputBase ::  Ref ValueOutputBase -> IO ()+drawValueOutputBase valueOutput = withRef valueOutput $ \valueOutputPtr -> drawSuper' valueOutputPtr+{# fun Fl_Value_Output_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleValueOutputBase :: Ref ValueOutputBase -> Event ->  IO (Either UnknownEvent ())+handleValueOutputBase valueOutput event = withRef valueOutput $ \valueOutputPtr -> handleSuper' valueOutputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Value_Output_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeValueOutputBase :: Ref ValueOutputBase -> Rectangle -> IO ()+resizeValueOutputBase valueOutput rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef valueOutput $ \valueOutputPtr -> resizeSuper' valueOutputPtr x_pos y_pos width height+{# fun Fl_Value_Output_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideValueOutputBase ::  Ref ValueOutputBase -> IO ()+hideValueOutputBase valueOutput = withRef valueOutput $ \valueOutputPtr -> hideSuper' valueOutputPtr+{# fun Fl_Value_Output_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetValueOutputBase ::  Ref ValueOutputBase -> IO ()+showWidgetValueOutputBase valueOutput = withRef valueOutput $ \valueOutputPtr -> showSuper' valueOutputPtr+++{# fun Fl_Value_Output_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ValueOutputBase orig impl where+  runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> draw'' valueOutputPtr+{#fun Fl_Value_Output_handle as valueOutputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValueOutputBase orig impl where+  runOp _ _ valueOutput event = withRef valueOutput (\p -> valueOutputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Value_Output_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueOutputBase orig impl where+  runOp _ _ valueOutput rectangle = withRef valueOutput $ \valueOutputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' valueOutputPtr x_pos y_pos w_pos h_pos+{# fun Fl_Value_Output_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ValueOutputBase orig impl where+  runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> hide' valueOutputPtr+{# fun Fl_Value_Output_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ValueOutputBase orig impl where+  runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> show' valueOutputPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ValueOutput"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ValueOutputBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ValueOutputBase' -> 'IO' ()+--+-- getSoft :: 'Ref' 'ValueOutputBase' -> 'IO' ('Bool')+--+-- getTextcolor :: 'Ref' 'ValueOutputBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'ValueOutputBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'ValueOutputBase' -> 'IO' ('FontSize')+--+-- handle :: 'Ref' 'ValueOutputBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ValueOutputBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ValueOutputBase' -> 'Rectangle' -> 'IO' ()+--+-- setSoft :: 'Ref' 'ValueOutputBase' -> 'Bool'>- 'IO' ()+--+-- setTextcolor :: 'Ref' 'ValueOutputBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'ValueOutputBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'ValueOutputBase' -> 'FontSize' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ValueOutputBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/ValueSlider.chs view
@@ -0,0 +1,164 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.ValueSlider+       (+         -- * Constructor+         valueSliderNew,+         valueSliderCustom+  , drawValueSliderBase+  , handleValueSliderBase+  , resizeValueSliderBase+  , hideValueSliderBase+  , showWidgetValueSliderBase+         -- * Hierarchy+         --+         -- $hierarchy++         -- * Functions+         --+         -- $functions+       )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_Value_SliderC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T++{# fun Fl_OverriddenValue_Slider_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenValue_Slider_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+valueSliderCustom ::+       Rectangle                         -- ^ The bounds of this ValueSlider+    -> Maybe T.Text                      -- ^ The ValueSlider label+    -> Maybe (Ref ValueSlider -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs ValueSlider)      -- ^ Optional custom widget functions+    -> IO (Ref ValueSlider)+valueSliderCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Value_Slider_New as valueSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}+{# fun Fl_Value_Slider_New_WithLabel as valueSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+valueSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueSlider)+valueSliderNew rectangle l'=+  widgetMaker+    rectangle+    l'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Value_Slider_Destroy as valueSliderDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) ValueSliderBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    valueSliderDestroy' winPtr+    return nullPtr+{# fun Fl_Value_Slider_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) ValueSliderBase orig impl where+  runOp _ _ value_slider = withRef value_slider $ \value_sliderPtr -> textfont' value_sliderPtr+{# fun Fl_Value_Slider_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}+instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) ValueSliderBase orig impl where+  runOp _ _ value_slider s = withRef value_slider $ \value_sliderPtr -> setTextfont' value_sliderPtr s+{# fun Fl_Value_Slider_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) ValueSliderBase orig impl where+  runOp _ _ value_slider = withRef value_slider $ \value_sliderPtr -> textsize' value_sliderPtr >>= return . FontSize+{# fun Fl_Value_Slider_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}+instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) ValueSliderBase orig impl where+  runOp _ _ value_slider (FontSize s) = withRef value_slider $ \value_sliderPtr -> setTextsize' value_sliderPtr s+{# fun Fl_Value_Slider_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) ValueSliderBase orig impl where+  runOp _ _ value_slider = withRef value_slider $ \value_sliderPtr -> textcolor' value_sliderPtr+{# fun Fl_Value_Slider_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}+instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) ValueSliderBase orig impl where+  runOp _ _ value_slider s = withRef value_slider $ \value_sliderPtr -> setTextcolor' value_sliderPtr s++{# fun Fl_Value_Slider_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawValueSliderBase ::  Ref ValueSliderBase -> IO ()+drawValueSliderBase valueSlider = withRef valueSlider $ \valueSliderPtr -> drawSuper' valueSliderPtr+{# fun Fl_Value_Slider_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleValueSliderBase :: Ref ValueSliderBase -> Event ->  IO (Either UnknownEvent ())+handleValueSliderBase valueSlider event = withRef valueSlider $ \valueSliderPtr -> handleSuper' valueSliderPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Value_Slider_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeValueSliderBase :: Ref ValueSliderBase -> Rectangle -> IO ()+resizeValueSliderBase valueSlider rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef valueSlider $ \valueSliderPtr -> resizeSuper' valueSliderPtr x_pos y_pos width height+{# fun Fl_Value_Slider_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideValueSliderBase ::  Ref ValueSliderBase -> IO ()+hideValueSliderBase valueSlider = withRef valueSlider $ \valueSliderPtr -> hideSuper' valueSliderPtr+{# fun Fl_Value_Slider_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetValueSliderBase ::  Ref ValueSliderBase -> IO ()+showWidgetValueSliderBase valueSlider = withRef valueSlider $ \valueSliderPtr -> showSuper' valueSliderPtr++{# fun Fl_Value_Slider_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) ValueSliderBase orig impl where+  runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> draw'' valueSliderPtr+{#fun Fl_Value_Slider_handle as valueSliderHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValueSliderBase orig impl where+  runOp _ _ valueSlider event = withRef valueSlider (\p -> valueSliderHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Value_Slider_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueSliderBase orig impl where+  runOp _ _ valueSlider rectangle = withRef valueSlider $ \valueSliderPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' valueSliderPtr x_pos y_pos w_pos h_pos+{# fun Fl_Value_Slider_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ValueSliderBase orig impl where+  runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> hide' valueSliderPtr+{# fun Fl_Value_Slider_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) ValueSliderBase orig impl where+  runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> show' valueSliderPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ValueSlider"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'ValueSliderBase' -> 'IO' ()+--+-- draw :: 'Ref' 'ValueSliderBase' -> 'IO' ()+--+-- getTextcolor :: 'Ref' 'ValueSliderBase' -> 'IO' ('Color')+--+-- getTextfont :: 'Ref' 'ValueSliderBase' -> 'IO' ('Font')+--+-- getTextsize :: 'Ref' 'ValueSliderBase' -> 'IO' ('FontSize')+--+-- handle :: 'Ref' 'ValueSliderBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'ValueSliderBase' -> 'IO' ()+--+-- resize :: 'Ref' 'ValueSliderBase' -> 'Rectangle' -> 'IO' ()+--+-- setTextcolor :: 'Ref' 'ValueSliderBase' -> 'Color' -> 'IO' ()+--+-- setTextfont :: 'Ref' 'ValueSliderBase' -> 'Font' -> 'IO' ()+--+-- setTextsize :: 'Ref' 'ValueSliderBase' -> 'FontSize' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ValueSliderBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Widget.chs view
@@ -0,0 +1,807 @@+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Widget+    (+     -- * Constructor+     widgetCustom,+     widgetMaker,+     -- * Custom+     CustomWidgetFuncs(..),+     defaultCustomWidgetFuncs,+     fillCustomWidgetFunctionStruct,+     customWidgetFunctionStruct,+     WidgetFlag(..),+     defaultDestroyCallbacks,+     defaultDestroyWidgetCallbacks+  , handleWidgetBase+  , resizeWidgetBase+  , hideWidgetBase+  , showWidgetWidgetBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Widget Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_WidgetC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)++import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Data.Maybe++#c+enum WidgetFlag {+    WidgetFlagInactive = INACTIVE,+    WidgetFlagInvisible = INVISIBLE,+    WidgetFlagOutput = OUTPUT,+    WidgetFlagNoBorder = NOBORDER,+    WidgetFlagForcePosition = FORCE_POSITION,+    WidgetFlagNonModal = NON_MODAL,+    WidgetFlagShortcutLabel = SHORTCUT_LABEL,+    WidgetFlagChanged = CHANGED,+    WidgetFlagOverride = OVERRIDE,+    WidgetFlagVisibleFocus = VISIBLE_FOCUS,+    WidgetFlagCopiedLabel = COPIED_LABEL,+    WidgetFlagClipChildren = CLIP_CHILDREN,+    WidgetFlagMenuWindow = MENU_WINDOW,+    WidgetFlagTooltipWindow = TOOLTIP_WINDOW,+    WidgetFlagModal = MODAL,+    WidgetFlagNoOverlay = NO_OVERLAY,+    WidgetFlagGroupRelative = GROUP_RELATIVE,+    WidgetFlagCopiedTooltip = COPIED_TOOLTIP,+    WidgetFlagFullscreen = FULLSCREEN,+    WidgetFlagMacUseAccentsMenu = MAC_USE_ACCENTS_MENU,+    WidgetFlagNeedsKeyboard = NEEDS_KEYBOARD,+    WidgetFlagUserFlag3 = USERFLAG3,+    WidgetFlagUserFlag2 = USERFLAG2,+    WidgetFlagUserFlag1 = USERFLAG1+};+#endc+{#enum WidgetFlag {} deriving (Show, Eq) #}+allWidgetFlags :: [WidgetFlag]+allWidgetFlags =+  [+    WidgetFlagInactive,+    WidgetFlagInvisible,+    WidgetFlagOutput,+    WidgetFlagNoBorder,+    WidgetFlagForcePosition,+    WidgetFlagNonModal,+    WidgetFlagShortcutLabel,+    WidgetFlagChanged,+    WidgetFlagOverride,+    WidgetFlagVisibleFocus,+    WidgetFlagCopiedLabel,+    WidgetFlagClipChildren,+    WidgetFlagMenuWindow,+    WidgetFlagTooltipWindow,+    WidgetFlagModal,+    WidgetFlagNoOverlay,+    WidgetFlagGroupRelative,+    WidgetFlagCopiedTooltip,+    WidgetFlagFullscreen,+    WidgetFlagMacUseAccentsMenu,+    WidgetFlagNeedsKeyboard,+    WidgetFlagUserFlag3,+    WidgetFlagUserFlag2,+    WidgetFlagUserFlag1+  ]++type RectangleFPrim              = Ptr () -> CInt -> CInt -> CInt -> CInt -> IO ()++foreign import ccall "wrapper"+        mkWidgetEventHandler :: (Ptr () -> CInt -> IO CInt) -> IO (FunPtr (Ptr () -> CInt -> IO CInt))+foreign import ccall "wrapper"+        mkRectanglePtr :: RectangleFPrim -> IO (FunPtr RectangleFPrim)++toRectangleFPrim ::  (Ref a -> Rectangle -> IO ()) ->+                     IO (FunPtr (Ptr () -> CInt -> CInt -> CInt -> CInt -> IO ()))+toRectangleFPrim f = mkRectanglePtr $ \wPtr x_pos y_pos width height ->+  let rectangle = toRectangle (fromIntegral x_pos,+                               fromIntegral y_pos,+                               fromIntegral width,+                               fromIntegral height)+  in do+  fptr <- wrapNonNull wPtr "Null Pointer. toRectangleFPrim"+  f (wrapInRef fptr) rectangle++toEventHandlerPrim :: (Ref a -> Event -> IO (Either UnknownEvent ())) ->+                      IO (FunPtr (Ptr () -> CInt -> IO CInt))+toEventHandlerPrim f = mkWidgetEventHandler $+                       \wPtr eventNumber ->+                            let event = cToEnum (eventNumber :: CInt)+                            in do+                            fptr <- wrapNonNull wPtr "Null Pointer: toEventHandlerPrim"+                            result <- f (wrapInRef fptr) event+                            return (either (\_ -> fromIntegral (0::CInt)) (const (fromIntegral (1::CInt))) result)++-- | Overrideable 'Widget' functions+-- | Do not create this directly. Instead use `defaultWidgetCustomFuncs`+data CustomWidgetFuncs a =+    CustomWidgetFuncs+    {+     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#a9cb17cc092697dfd05a3fab55856d218 Fl_Widget::handle>+    handleCustom :: Maybe (Ref a -> Event -> IO (Either UnknownEvent ()))+     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#aca98267e7a9b94f699ebd27d9f59e8bb Fl_Widget::resize>+    ,resizeCustom :: Maybe (Ref a -> Rectangle -> IO ())+     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#ab572c6fbc922bf3268b72cf9e2939606 Fl_Widget::show>+    ,showCustom   :: Maybe (Ref a -> IO ())+     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#a1fe8405b86da29d147dc3b5841cf181c Fl_Widget::hide>+    ,hideCustom   :: Maybe (Ref a -> IO ())+     -- | Free callbacks created on the Haskell side before a widget is destroyed.+    ,destroyCallbacksCustom :: Maybe (Ref a -> [Maybe (FunPtr (IO ()))] -> IO ())+    }++-- | Fill up a struct with pointers to functions on the Haskell side that will get called instead of the default ones.+--+-- Fill up the 'Widget' part the function pointer struct.+--+-- Only of interest to 'Widget' contributors+fillCustomWidgetFunctionStruct :: forall a. (Parent a WidgetBase) =>+                                  Ptr () ->+                                  Maybe (Ref a -> IO ()) ->+                                  CustomWidgetFuncs a ->+                                  IO ()+fillCustomWidgetFunctionStruct structPtr _draw' (CustomWidgetFuncs _handle' _resize' _show' _hide' _destroyCallbacks') = do+      toCallbackPrim `orNullFunPtr` _draw'       >>= {#set fl_Widget_Virtual_Funcs->draw#} structPtr+      toEventHandlerPrim `orNullFunPtr` _handle' >>= {#set fl_Widget_Virtual_Funcs->handle#} structPtr+      toRectangleFPrim `orNullFunPtr` _resize'   >>= {#set fl_Widget_Virtual_Funcs->resize#} structPtr+      toCallbackPrim `orNullFunPtr` _show'       >>= {#set fl_Widget_Virtual_Funcs->show#} structPtr+      toCallbackPrim `orNullFunPtr` _hide'       >>= {#set fl_Widget_Virtual_Funcs->hide#} structPtr+      toDestroyCallbacksPrim `orNullFunPtr` _destroyCallbacks' >>= {#set fl_Widget_Virtual_Funcs->destroy_data#} structPtr++{# fun Fl_Widget_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}++-- | Given a record of functions, return a pointer to a struct with function pointers back to those functions.+--+-- Only of interest to 'Widget' contributors.+customWidgetFunctionStruct :: forall a. (Parent a WidgetBase) =>+                              Maybe (Ref a -> IO ()) ->+                              CustomWidgetFuncs a ->+                              IO (Ptr ())+customWidgetFunctionStruct draw' customWidgetFuncs' = do+  p <- virtualFuncs'+  fillCustomWidgetFunctionStruct p draw' customWidgetFuncs'+  return p++defaultDestroyCallbacks :: Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()+defaultDestroyCallbacks _ = mapM_ freeHaskellFunPtr . catMaybes++defaultDestroyWidgetCallbacks :: (Parent a WidgetBase) => Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()+defaultDestroyWidgetCallbacks = defaultDestroyCallbacks++-- | An empty set of functions to pass to 'widgetCustom'.+defaultCustomWidgetFuncs :: forall a. (Parent a WidgetBase) => CustomWidgetFuncs a+defaultCustomWidgetFuncs =+  CustomWidgetFuncs+    Nothing+    Nothing+    Nothing+    Nothing+    (Just defaultDestroyWidgetCallbacks)+++-- | Lots of 'Widget' subclasses have the same constructor parameters. This function consolidates them.+--+-- Only of interest to 'Widget' contributors.+widgetMaker :: forall a. (Parent a WidgetBase) =>+               Rectangle                                                          -- ^ Position and size+               -> Maybe T.Text                                                    -- ^ Title+               -> Maybe (Ref a -> IO ())                                          -- ^ Custom drawing function+               -> Maybe (CustomWidgetFuncs a)                                     -- ^ Custom functions+               -> (Int -> Int -> Int -> Int -> Ptr () -> IO ( Ptr () ))           -- ^ Foreign constructor to call if only custom functions are given+               -> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO ( Ptr () )) -- ^ Foreign constructor to call if both title and custom functions are given+               -> IO (Ref a)                                                      -- ^ Reference to the widget+widgetMaker rectangle _label' draw' customFuncs' newWithCustomFuncs' newWithCustomFuncsLabel' =+  do+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    ptr <- customWidgetFunctionStruct draw' (maybe defaultCustomWidgetFuncs id customFuncs')+    widget <- maybe (newWithCustomFuncs' x_pos y_pos width height (castPtr ptr))+                    (\l -> copyTextToCString l >>= \l' -> newWithCustomFuncsLabel' x_pos y_pos width height l' (castPtr ptr))+                    _label'+    ref <- toRef widget+    setFlag (safeCast ref :: Ref WidgetBase) WidgetFlagCopiedLabel+    setFlag (safeCast ref :: Ref WidgetBase) WidgetFlagCopiedTooltip+    return ref++{# fun Fl_OverriddenWidget_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenWidget_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+-- | Widget constructor.+widgetCustom :: Rectangle                   -- ^ The bounds of this widget+                -> Maybe T.Text             -- ^ The widget label+                -> (Ref Widget -> IO ())    -- ^ Custom drawing function+                -> CustomWidgetFuncs Widget -- ^ Other custom functions+                -> IO (Ref Widget)+widgetCustom rectangle label' draw' funcs' = do+  ref <- widgetMaker+           rectangle+           label'+           (Just draw')+           (Just funcs')+           overriddenWidgetNew'+           overriddenWidgetNewWithLabel'+  setFlag ref WidgetFlagCopiedLabel+  setFlag ref WidgetFlagCopiedTooltip+  return ref++{# fun Fl_Widget_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~  IO ()) => Op (Destroy ()) WidgetBase orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    widgetDestroy' winPtr+    return nullPtr++{#fun Fl_Widget_parent as widgetParent' { id `Ptr ()'} -> `Ptr ()' id #}+instance (impl ~  IO (Maybe (Ref GroupBase))) => Op (GetParent ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget widgetParent' >>= toMaybeRef++{#fun Fl_Widget_set_parent as widgetSetParent' { id `Ptr ()', id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a GroupBase, impl ~ (Maybe (Ref a) -> IO ())) => Op (SetParent ()) WidgetBase orig impl where+  runOp _ _ widget group =+      withRef widget+      (\widgetPtr ->+        withMaybeRef group (\groupPtr ->+                        widgetSetParent' widgetPtr groupPtr+                      )+      )+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (Word8)) => Op (GetType_ ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr+{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Word8 ->  IO ())) => Op (SetType ()) WidgetBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr t+{# fun Fl_Widget_draw_label as drawLabel' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Widget_draw_label_with_xywh_alignment as drawLabelWithXywhAlignment' { id `Ptr ()',`Int',`Int',`Int',`Int', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Maybe (Rectangle,Alignments) ->  IO ())) => Op (DrawLabel ()) WidgetBase orig impl where+  runOp _ _ widget Nothing = withRef widget $ \widgetPtr -> drawLabel' widgetPtr+  runOp _ _ widget (Just (rectangle,align_)) = withRef widget $ \widgetPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    drawLabelWithXywhAlignment' widgetPtr x_pos y_pos w_pos h_pos (alignmentsToInt align_)++{# fun Fl_Widget_x as x' { id `Ptr ()' } -> `Int' #}+instance (impl ~ IO (X)) => Op (GetX ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> x' widgetPtr >>= return . X+{# fun Fl_Widget_y as y' { id `Ptr ()' } -> `Int' #}+instance (impl ~ IO (Y)) => Op (GetY ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> y' widgetPtr >>= return . Y+{# fun Fl_Widget_w as w' { id `Ptr ()' } -> `Int' #}+instance (impl ~ IO (Width)) => Op (GetW ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> w' widgetPtr >>= return . Width+{# fun Fl_Widget_h as h' { id `Ptr ()' } -> `Int' #}+instance (impl ~ IO (Height)) => Op (GetH ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> h' widgetPtr >>= return . Height+instance (+         Match obj ~ FindOp orig orig (GetX ()),+         Match obj ~ FindOp orig orig (GetY ()),+         Match obj ~ FindOp orig orig (GetW ()),+         Match obj ~ FindOp orig orig (GetH ()),+         Op (GetX ()) obj orig (IO X),+         Op (GetY ()) obj orig (IO Y),+         Op (GetW ()) obj orig (IO Width),+         Op (GetH ()) obj orig (IO Height),+         impl ~ IO Rectangle+         )+         =>+         Op (GetRectangle ()) WidgetBase orig impl where+   runOp _ _ widget = do+     _x <- getX (castTo widget :: Ref orig)+     _y <- getY (castTo widget :: Ref orig)+     _w <- getW (castTo widget :: Ref orig)+     _h <- getH (castTo widget :: Ref orig)+     return (Rectangle (Position _x _y) (Size _w _h))+{# fun Fl_Widget_set_align as setAlign' { id `Ptr ()', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Alignments ->  IO ())) => Op (SetAlign ()) WidgetBase orig impl where+  runOp _ _ widget _align = withRef widget $ \widgetPtr -> setAlign' widgetPtr (alignmentsToInt _align)+{# fun Fl_Widget_align as align' { id `Ptr ()' } -> `CUInt' id #}+instance (impl ~ IO Alignments) => Op (GetAlign ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> align' widgetPtr >>= return . intToAlignments . fromIntegral+{# fun Fl_Widget_box as box' { id `Ptr ()' } -> `Boxtype' cToEnum #}+instance (impl ~ IO (Boxtype)) => Op (GetBox ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> box' widgetPtr+{# fun Fl_Widget_set_box as setBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Boxtype ->  IO ())) => Op (SetBox ()) WidgetBase orig impl where+  runOp _ _ widget new_box = withRef widget $ \widgetPtr -> setBox' widgetPtr new_box+{# fun Fl_Widget_color as color' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ IO (Color)) => Op (GetColor ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> color' widgetPtr+{# fun Fl_Widget_set_color as setColor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Color ->  IO ())) => Op (SetColor ()) WidgetBase orig impl where+  runOp _ _ widget bg = withRef widget $ \widgetPtr -> setColor' widgetPtr bg+{# fun Fl_Widget_set_color_with_bg_sel as setColorWithBgSel' { id `Ptr ()',cFromColor `Color',cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Color -> Color ->  IO ())) => Op (SetColorWithBgSel ()) WidgetBase orig impl where+  runOp _ _ widget bg a = withRef widget $ \widgetPtr -> setColorWithBgSel' widgetPtr bg a+{# fun Fl_Widget_selection_color as selectionColor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ IO (Color)) => Op (GetSelectionColor ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> selectionColor' widgetPtr+{# fun Fl_Widget_set_selection_color as setSelectionColor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Color ->  IO ())) => Op (SetSelectionColor ()) WidgetBase orig impl where+  runOp _ _ widget a = withRef widget $ \widgetPtr -> setSelectionColor' widgetPtr a+{# fun Fl_Widget_label as label' { id `Ptr ()' } -> `CString' #}+instance (impl ~ IO T.Text) => Op (GetLabel ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> label' widgetPtr >>= cStringToText+{# fun Fl_Widget_copy_label as copyLabel' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( T.Text -> IO ())) => Op (SetLabel ()) WidgetBase orig impl where+  runOp _ _ widget text =+     withRef widget $ \widgetPtr -> withCString (T.unpack text) (\sPtr -> copyLabel' widgetPtr sPtr)+{# fun Fl_Widget_labeltype as labeltype' { id `Ptr ()' } -> `Labeltype' cToEnum #}+instance (impl ~ (IO (Labeltype))) => Op (GetLabeltype ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> labeltype' widgetPtr+{# fun Fl_Widget_set_labeltype as setLabeltype' { id `Ptr ()',cFromEnum `Labeltype' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Labeltype ->  ResolveImageLabelConflict -> IO ())) => Op (SetLabeltype ()) WidgetBase orig impl where+  runOp _ _ widget a resolve = withRef widget $ \widgetPtr -> do+    lt <- getLabeltype widget+    case (lt, resolve) of+      (ImageLabelType, ResolveImageLabelDoNothing) -> return ()+      (ImageLabelType, ResolveImageLabelOverwrite) -> do+         setLabeltype' widgetPtr a+         copyLabel' widgetPtr nullPtr+      (MultiLabelType, ResolveImageLabelDoNothing) -> return ()+      (MultiLabelType, ResolveImageLabelOverwrite) -> do+         setLabeltype' widgetPtr a+         copyLabel' widgetPtr nullPtr+      (_,_) -> setLabeltype' widgetPtr a+{# fun Fl_Widget_labelcolor as labelcolor' { id `Ptr ()' } -> `Color' cToColor #}+instance (impl ~ (IO (Color))) => Op (GetLabelcolor ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> labelcolor' widgetPtr+{# fun Fl_Widget_set_labelcolor as setLabelcolor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Color ->  IO ())) => Op (SetLabelcolor ()) WidgetBase orig impl where+  runOp _ _ widget c = withRef widget $ \widgetPtr -> setLabelcolor' widgetPtr c+{# fun Fl_Widget_labelfont as labelfont' { id `Ptr ()' } -> `Font' cToFont #}+instance (impl ~ (IO (Font))) => Op (GetLabelfont ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> labelfont' widgetPtr+{# fun Fl_Widget_set_labelfont as setLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Font ->  IO ())) => Op (SetLabelfont ()) WidgetBase orig impl where+  runOp _ _ widget c = withRef widget $ \widgetPtr -> setLabelfont' widgetPtr c+{# fun Fl_Widget_labelsize as labelsize' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ (IO (FontSize))) => Op (GetLabelsize ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> labelsize' widgetPtr >>= return . FontSize+{# fun Fl_Widget_set_labelsize as setLabelsize' { id `Ptr ()',id `CInt' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( FontSize ->  IO ())) => Op (SetLabelsize ()) WidgetBase orig impl where+  runOp _ _ widget (FontSize pix) = withRef widget $ \widgetPtr -> setLabelsize' widgetPtr pix+{# fun Fl_Widget_image as image' { id `Ptr ()' } -> `Ptr ()' #}+instance (impl ~ (IO (Maybe (Ref Image)))) => Op (GetImage ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> image' widgetPtr >>= toMaybeRef+{# fun Fl_Widget_set_image as setImage' { id `Ptr ()',id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (Parent a Image, impl ~ (Maybe( Ref a ) ->  IO ())) => Op (SetImage ()) WidgetBase orig impl where+  runOp _ _ widget pix = withRef widget $ \widgetPtr -> withMaybeRef pix $ \pixPtr -> setImage' widgetPtr pixPtr+{# fun Fl_Widget_deimage as deimage' { id `Ptr ()' } -> `Ptr ()' #}+instance (impl ~ (IO (Maybe (Ref Image)))) => Op (GetDeimage ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> deimage' widgetPtr >>= toMaybeRef+{# fun Fl_Widget_set_deimage as setDeimage' { id `Ptr ()',id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (Parent a Image, impl ~ (Maybe( Ref a ) ->  IO ())) => Op (SetDeimage ()) WidgetBase orig impl where+  runOp _ _ widget pix = withRef widget $ \widgetPtr -> withMaybeRef pix $ \pixPtr -> setDeimage' widgetPtr pixPtr+{# fun Fl_Widget_tooltip as tooltip' { id `Ptr ()' } -> `CString' #}+instance (impl ~ (IO T.Text)) => Op (GetTooltip ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> tooltip' widgetPtr >>= cStringToText+{# fun Fl_Widget_copy_tooltip as copyTooltip' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( T.Text ->  IO ())) => Op (CopyTooltip ()) WidgetBase orig impl where+  runOp _ _ widget text = withRef widget $ \widgetPtr -> withText text (\t -> copyTooltip' widgetPtr t)+{# fun Fl_Widget_set_tooltip as setTooltip' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( T.Text ->  IO ())) => Op (SetTooltip ()) WidgetBase orig impl where+  runOp _ _ widget text = withRef widget $ \widgetPtr -> withText text (copyTooltip' widgetPtr)+{# fun Fl_Widget_when as when' { id `Ptr ()' } -> `CInt' id #}+instance (impl ~ IO [When]) => Op (GetWhen ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr ->+      when' widgetPtr >>= return . extract allWhen+{# fun Fl_Widget_set_when as setWhen' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( [When] ->  IO ())) => Op (SetWhen ()) WidgetBase orig impl where+  runOp _ _ widget i = withRef widget $ \widgetPtr ->+    setWhen' widgetPtr (fromIntegral . combine $ i)+{# fun Fl_Widget_do_callback as do_callback' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (DoCallback ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> do_callback' widgetPtr+{# fun Fl_Widget_visible as visible' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO Bool)) => Op (GetVisible ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> visible' widgetPtr+{# fun Fl_Widget_visible_r as visibleR' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO Bool)) => Op (GetVisibleR ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> visibleR' widgetPtr+{# fun Fl_Widget_set_visible as setVisible' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (SetVisible ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> setVisible' widgetPtr+{# fun Fl_Widget_clear_visible as clearVisible' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ClearVisible ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> clearVisible' widgetPtr+{# fun Fl_Widget_active as active' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO (Bool))) => Op (Active ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> active' widgetPtr+{# fun Fl_Widget_active_r as activeR' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO (Bool))) => Op (ActiveR ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> activeR' widgetPtr+{# fun Fl_Widget_activate as activate' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Activate ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> activate' widgetPtr+{# fun Fl_Widget_deactivate as deactivate' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Deactivate ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> deactivate' widgetPtr+{# fun Fl_Widget_output as output' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (IO (Int))) => Op (GetOutput ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> output' widgetPtr+{# fun Fl_Widget_set_output as setOutput' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (SetOutput ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> setOutput' widgetPtr+{# fun Fl_Widget_clear_output as clearOutput' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ClearOutput ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> clearOutput' widgetPtr+{# fun Fl_Widget_takesevents as takesevents' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO (Bool))) => Op (Takesevents ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> takesevents' widgetPtr+{# fun Fl_Widget_set_active as setActive' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (SetActive ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> setActive' widgetPtr+{# fun Fl_Widget_clear_active as clearActive' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ClearActive ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> clearActive' widgetPtr+{# fun Fl_Widget_set_changed as setChanged' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (SetChanged ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> setChanged' widgetPtr+{# fun Fl_Widget_clear_changed as clearChanged' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ClearChanged ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> clearChanged' widgetPtr+{# fun Fl_Widget_changed as changed' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO (Bool))) => Op (Changed ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> changed' widgetPtr+{# fun Fl_Widget_take_focus as takeFocus' { id `Ptr ()' } -> `Int' #}+instance (impl ~ (IO (Either NoChange ()))) => Op (TakeFocus ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> takeFocus' widgetPtr >>= return . successOrNoChange+{# fun Fl_Widget_set_visible_focus as setVisibleFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (SetVisibleFocus ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> setVisibleFocus' widgetPtr+{# fun Fl_Widget_clear_visible_focus as clearVisibleFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ClearVisibleFocus ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> clearVisibleFocus' widgetPtr+{# fun Fl_Widget_modify_visible_focus as modifyVisibleFocus' { id `Ptr ()',cFromBool `Bool' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Bool ->  IO ())) => Op (ModifyVisibleFocus ()) WidgetBase orig impl where+  runOp _ _ widget v = withRef widget $ \widgetPtr -> modifyVisibleFocus' widgetPtr v+{# fun Fl_Widget_visible_focus as visibleFocus' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ (IO (Bool))) => Op (GetVisibleFocus ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> visibleFocus' widgetPtr+{# fun Fl_Widget_contains as contains' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (Parent a WidgetBase, impl ~  (Ref a ->  IO Bool)) => Op (Contains ()) WidgetBase orig impl where+  runOp _ _ widget otherWidget = withRef widget $ \widgetPtr -> withRef otherWidget $ \otherWidgetPtr ->+    contains' widgetPtr otherWidgetPtr >>= return . cToBool+{# fun Fl_Widget_inside as inside' { id `Ptr ()',id `Ptr ()' } -> `Int' #}+instance (Parent a WidgetBase, impl ~ (Ref a -> IO (Bool))) => Op (Inside ()) WidgetBase orig impl where+  runOp _ _ widget otherWidget = withRef widget $ \widgetPtr -> withRef otherWidget $ \otherWidgetPtr ->+    inside' widgetPtr otherWidgetPtr >>= return . cToBool+{# fun Fl_Widget_redraw as redraw' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Redraw ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> redraw' widgetPtr+{# fun Fl_Widget_redraw_label as redrawLabel' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (RedrawLabel ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> redrawLabel' widgetPtr+{# fun Fl_Widget_damage as damage' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ (IO ([Damage]))) => Op (GetDamage ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> do+    d <- damage' widgetPtr+    return (extract allDamages (fromIntegral d))+{# fun Fl_Widget_clear_damage_with_bitmask as clearDamageWithBitmask' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( [Damage] ->  IO ())) => Op (ClearDamageThenSet ()) WidgetBase orig impl where+  runOp _ _ widget damages = withRef widget $ \widgetPtr -> clearDamageWithBitmask' widgetPtr (fromIntegral (combine damages))+{# fun Fl_Widget_clear_damage as clearDamage' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ClearDamage ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> clearDamage' widgetPtr+{# fun Fl_Widget_damage_with_text as damageWithText' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( [Damage] ->  IO ())) => Op (SetDamage ()) WidgetBase orig impl where+  runOp _ _ widget damages = withRef widget $ \widgetPtr -> damageWithText' widgetPtr (fromIntegral (combine damages))+{# fun Fl_Widget_damage_inside_widget as damageInsideWidget' { id `Ptr ()',`Word8',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( [Damage] -> Rectangle ->  IO ())) => Op (SetDamageInside ()) WidgetBase orig impl where+  runOp _ _ widget damages rectangle = withRef widget $ \widgetPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    damageInsideWidget' widgetPtr (fromIntegral (combine damages)) x_pos y_pos w_pos h_pos+{# fun Fl_Widget_measure_label as measureLabel' {id `Ptr ()',id `Ptr CInt', id `Ptr CInt'} -> `()' #}+instance (impl ~ ( Maybe Width -> IO (Size))) => Op (MeasureLabel ()) WidgetBase orig impl where+  runOp _ _ widget wrap =+    withRef widget+      $ \widgetPtr ->+      alloca $ \widthPtr ->+      alloca $ \heightPtr -> do+        poke widthPtr (maybe 0 (\(Width w) -> fromIntegral w) wrap)+        poke heightPtr 0+        measureLabel' widgetPtr widthPtr heightPtr+        w <- peekIntConv widthPtr+        h <- peekIntConv heightPtr+        return (Size (Width w) (Height h))+{# fun Fl_Widget_window as window' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref WindowBase)))) => Op (GetWindow ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> window' widgetPtr >>= toMaybeRef+{# fun Fl_Widget_top_window as topWindow' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref WindowBase)))) => Op (GetTopWindow ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> (topWindow' widgetPtr) >>= toMaybeRef+{# fun Fl_Widget_top_window_offset as topWindowOffset' { id `Ptr ()',alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv* } -> `()' #}+instance (impl ~ ( IO (Position))) => Op (GetTopWindowOffset ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> topWindowOffset' widgetPtr >>= \(x_pos,y_pos) -> return $ Position (X x_pos) (Y y_pos)++{# fun Fl_Widget_callback as getCallback' { id `Ptr ()' } -> `FunPtr CallbackWithUserDataPrim' id #}+instance (impl ~ (IO (FunPtr CallbackWithUserDataPrim))) => Op (GetCallback ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> getCallback' widgetPtr++{# fun Fl_Widget_set_callback as setCallback' { id `Ptr ()', id `FunPtr CallbackWithUserDataPrim'} -> `FunPtr CallbackWithUserDataPrim' id #}+instance (impl ~ ((Ref orig -> IO ()) -> IO ())) => Op (SetCallback ()) WidgetBase orig impl where+  runOp _ _ widget callback = withRef widget $ \widgetPtr -> do+    ptr <- toCallbackPrimWithUserData callback+    oldCb <- setCallback' widgetPtr ptr+    if (oldCb == nullFunPtr)+    then return ()+    else freeHaskellFunPtr oldCb++{# fun Fl_Widget_has_callback as hasCallback' { id `Ptr ()' } -> `CInt' #}+instance (impl ~ (IO (Bool))) => Op (HasCallback ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> do+    res <- hasCallback' widgetPtr+    return $ if (res == 0) then False else True+{# fun Fl_Widget_draw_box as widgetDrawBox' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Widget_draw_box_with_tc as widgetDrawBoxWithTC' { id `Ptr ()', cFromEnum `Boxtype', cFromColor`Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Widget_draw_box_with_txywhc as widgetDrawBoxWithTXywhC' { id `Ptr ()', cFromEnum `Boxtype', `Int',`Int',`Int',`Int', cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (DrawBox ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> widgetDrawBox' widgetPtr+instance (impl ~ ( Boxtype -> Color -> Maybe Rectangle -> IO ())) => Op (DrawBoxWithBoxtype ()) WidgetBase orig impl where+  runOp _ _ widget bx c Nothing =+    withRef widget $ \widgetPtr -> widgetDrawBoxWithTC' widgetPtr bx c+  runOp _ _ widget bx c (Just r) =+              withRef widget $ \widgetPtr -> do+                let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r+                widgetDrawBoxWithTXywhC' widgetPtr bx x_pos y_pos w_pos h_pos c+{# fun Fl_Widget_draw_backdrop as widgetDrawBackdrop' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (DrawBackdrop ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> widgetDrawBackdrop' widgetPtr++{# fun Fl_Widget_draw_focus as widgetDrawFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Widget_draw_focus_with_txywh as widgetDrawFocusWithTXywh' { id `Ptr ()', cFromEnum `Boxtype', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Maybe (Boxtype, Rectangle) -> IO ())) => Op (DrawFocus ()) WidgetBase orig impl where+  runOp _ _ widget Nothing =+                withRef widget $ \ widgetPtr -> widgetDrawFocus' widgetPtr+  runOp _ _ widget (Just (bx, r)) =+                withRef widget $ \widgetPtr -> do+                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r+                  widgetDrawFocusWithTXywh' widgetPtr bx x_pos y_pos w_pos h_pos++{# fun Fl_Widget_set_flag as setFlag' { id `Ptr ()', cFromEnum `WidgetFlag' } -> `()' #}+{# fun Fl_Widget_clear_flag as clearFlag' { id `Ptr ()', cFromEnum `WidgetFlag' } -> `()' #}+{# fun Fl_Widget_flags as flags' { id `Ptr ()' } -> `CUInt' #}++instance (impl ~ (WidgetFlag -> IO ())) => Op (SetFlag ()) WidgetBase orig impl where+  runOp _ _ widget flag = withRef widget (\widgetPtr -> setFlag' widgetPtr flag)++instance (impl ~ (WidgetFlag -> IO ())) => Op (ClearFlag ()) WidgetBase orig impl where+  runOp _ _ widget flag = withRef widget (\widgetPtr -> clearFlag' widgetPtr flag)++instance (impl ~ (IO [WidgetFlag])) => Op (Flags ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget (\widgetPtr -> do+                        flagsUInt <- flags' widgetPtr+                        return (extract allWidgetFlags (fromIntegral flagsUInt)))++{# fun Fl_Widget_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleWidgetBase :: Ref WidgetBase -> Event ->  IO (Either UnknownEvent ())+handleWidgetBase widget event = withRef widget $ \widgetPtr -> handleSuper' widgetPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Widget_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeWidgetBase :: Ref WidgetBase -> Rectangle -> IO ()+resizeWidgetBase widget rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef widget $ \widgetPtr -> resizeSuper' widgetPtr x_pos y_pos width height+{# fun Fl_Widget_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideWidgetBase ::  Ref WidgetBase -> IO ()+hideWidgetBase widget = withRef widget $ \widgetPtr -> hideSuper' widgetPtr+{# fun Fl_Widget_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetWidgetBase ::  Ref WidgetBase -> IO ()+showWidgetWidgetBase widget = withRef widget $ \widgetPtr -> showSuper' widgetPtr++{# fun Fl_DerivedWidget_draw as draw' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Draw ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> draw' widgetPtr++{#fun Fl_DerivedWidget_handle as widgetHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) WidgetBase orig impl where+  runOp _ _ widget event = withRef widget (\p -> widgetHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent++{# fun Fl_DerivedWidget_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> show' widgetPtr++{# fun Fl_DerivedWidget_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) WidgetBase orig impl where+  runOp _ _ widget rectangle = withRef widget $ \widgetPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' widgetPtr x_pos y_pos w_pos h_pos++{# fun Fl_DerivedWidget_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) WidgetBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> hide' widgetPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+-- @++-- $functions+-- @+-- activate :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- active :: 'Ref' 'WidgetBase' -> 'IO' ('Bool')+--+-- activeR :: 'Ref' 'WidgetBase' -> 'IO' ('Bool')+--+-- changed :: 'Ref' 'WidgetBase' -> 'IO' ('Bool')+--+-- clearActive :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- clearChanged :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- clearDamage :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- clearDamageThenSet :: 'Ref' 'WidgetBase' -> ['Damage'] -> 'IO' ()+--+-- clearFlag :: 'Ref' 'WidgetBase' -> 'WidgetFlag' -> 'IO' ()+--+-- clearOutput :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- clearVisible :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- clearVisibleFocus :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- contains:: ('Parent' a 'WidgetBase') => 'Ref' 'WidgetBase' -> 'Ref' a -> 'IO' 'Bool'+--+-- copyTooltip :: 'Ref' 'WidgetBase' -> 'T.Text' -> 'IO' ()+--+-- deactivate :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- destroy :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- doCallback :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- draw :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- drawBackdrop :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- drawBox :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- drawBoxWithBoxtype :: 'Ref' 'WidgetBase' -> 'Boxtype' -> 'Color' -> 'Maybe' 'Rectangle' -> 'IO' ()+--+-- drawFocus :: 'Ref' 'WidgetBase' -> 'Maybe' ('Boxtype', 'Rectangle') -> 'IO' ()+--+-- drawLabel :: 'Ref' 'WidgetBase' -> 'Maybe' ('Rectangle,Alignments') -> 'IO' ()+--+-- flags :: 'Ref' 'WidgetBase' -> 'IO' ['WidgetFlag']+--+-- getAlign :: 'Ref' 'WidgetBase' -> 'IO' 'Alignments'+--+-- getBox :: 'Ref' 'WidgetBase' -> 'IO' ('Boxtype')+--+-- getCallback :: 'Ref' 'WidgetBase' -> 'IO' ('FunPtr' 'CallbackWithUserDataPrim')+--+-- getColor :: 'Ref' 'WidgetBase' -> 'IO' ('Color')+--+-- getDamage :: 'Ref' 'WidgetBase' -> 'IO' (['Damage')]+--+-- getDeimage :: 'Ref' 'WidgetBase' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getH :: 'Ref' 'WidgetBase' -> 'IO' ('Height')+--+-- getImage :: 'Ref' 'WidgetBase' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getLabel :: 'Ref' 'WidgetBase' -> 'IO' 'T.Text'+--+-- getLabelcolor :: 'Ref' 'WidgetBase' -> 'IO' ('Color')+--+-- getLabelfont :: 'Ref' 'WidgetBase' -> 'IO' ('Font')+--+-- getLabelsize :: 'Ref' 'WidgetBase' -> 'IO' ('FontSize')+--+-- getLabeltype :: 'Ref' 'WidgetBase' -> 'IO' ('Labeltype')+--+-- getOutput :: 'Ref' 'WidgetBase' -> 'IO' ('Int')+--+-- getParent :: 'Ref' 'WidgetBase' -> 'IO' ('Maybe' ('Ref' 'GroupBase'))+--+-- getRectangle:: ('Match' obj ~ 'FindOp' orig orig ('GetX' ()), 'Match' obj ~ 'FindOp' orig orig ('GetY' ()), 'Match' obj ~ 'FindOp' orig orig ('GetW' ()), 'Match' obj ~ 'FindOp' orig orig ('GetH' ()), 'Op' ('GetX' ()) obj orig ('IO' 'X',) 'Op' ('GetY' ()) obj orig ('IO' 'Y',) 'Op' ('GetW' ()) obj orig ('IO' 'Width',) 'Op' ('GetH' ()) obj orig ('IO' 'Height',)) => 'Ref' 'WidgetBase' -> 'IO' 'Rectangle'+--+-- getSelectionColor :: 'Ref' 'WidgetBase' -> 'IO' ('Color')+--+-- getTooltip :: 'Ref' 'WidgetBase' -> 'IO' 'T.Text'+--+-- getTopWindow :: 'Ref' 'WidgetBase' -> 'IO' ('Maybe' ('Ref' 'WindowBase'))+--+-- getTopWindowOffset :: 'Ref' 'WidgetBase' -> 'IO' ('Position')+--+-- getType_ :: 'Ref' 'WidgetBase' -> 'IO' ('Word8')+--+-- getVisible :: 'Ref' 'WidgetBase' -> 'IO' 'Bool'+--+-- getVisibleFocus :: 'Ref' 'WidgetBase' -> 'IO' ('Bool')+--+-- getVisibleR :: 'Ref' 'WidgetBase' -> 'IO' 'Bool'+--+-- getW :: 'Ref' 'WidgetBase' -> 'IO' ('Width')+--+-- getWhen :: 'Ref' 'WidgetBase' -> 'IO' ['When']+--+-- getWindow :: 'Ref' 'WidgetBase' -> 'IO' ('Maybe' ('Ref' 'WindowBase'))+--+-- getX :: 'Ref' 'WidgetBase' -> 'IO' ('X')+--+-- getY :: 'Ref' 'WidgetBase' -> 'IO' ('Y')+--+-- handle :: 'Ref' 'WidgetBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hasCallback :: 'Ref' 'WidgetBase' -> 'IO' ('Bool')+--+-- hide :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- inside:: ('Parent' a 'WidgetBase') => 'Ref' 'WidgetBase' -> 'Ref' a -> 'IO' ('Bool')+--+-- measureLabel :: 'Ref' 'WidgetBase' -> 'Maybe' 'Width' -> 'IO' ('Size')+--+-- modifyVisibleFocus :: 'Ref' 'WidgetBase' -> 'Bool' -> 'IO' ()+--+-- redraw :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- redrawLabel :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- resize :: 'Ref' 'WidgetBase' -> 'Rectangle' -> 'IO' ()+--+-- setActive :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- setAlign :: 'Ref' 'WidgetBase' -> 'Alignments' -> 'IO' ()+--+-- setBox :: 'Ref' 'WidgetBase' -> 'Boxtype' -> 'IO' ()+--+-- setCallback :: 'Ref' 'WidgetBase' -> ('Ref' orig -> 'IO' ()) -> 'IO' ()+--+-- setChanged :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- setColor :: 'Ref' 'WidgetBase' -> 'Color' -> 'IO' ()+--+-- setColorWithBgSel :: 'Ref' 'WidgetBase' -> 'Color' -> 'Color' -> 'IO' ()+--+-- setDamage :: 'Ref' 'WidgetBase' -> ['Damage'] -> 'IO' ()+--+-- setDamageInside :: 'Ref' 'WidgetBase' -> ['Damage'] -> 'Rectangle' -> 'IO' ()+--+-- setDeimage:: ('Parent' a 'Image') => 'Ref' 'WidgetBase' -> 'Maybe'( 'Ref' a ) -> 'IO' ()+--+-- setFlag :: 'Ref' 'WidgetBase' -> 'WidgetFlag' -> 'IO' ()+--+-- setImage:: ('Parent' a 'Image') => 'Ref' 'WidgetBase' -> 'Maybe'( 'Ref' a ) -> 'IO' ()+--+-- setLabel :: 'Ref' 'WidgetBase' -> 'T.Text' -> 'IO' ()+--+-- setLabelcolor :: 'Ref' 'WidgetBase' -> 'Color' -> 'IO' ()+--+-- setLabelfont :: 'Ref' 'WidgetBase' -> 'Font' -> 'IO' ()+--+-- setLabelsize :: 'Ref' 'WidgetBase' -> 'FontSize' -> 'IO' ()+--+-- setLabeltype :: 'Ref' 'WidgetBase' -> 'Labeltype' -> 'ResolveImageLabelConflict' -> 'IO' ()+--+-- setOutput :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- setParent:: ('Parent' a 'GroupBase') => 'Ref' 'WidgetBase' -> 'Maybe' ('Ref' a) -> 'IO' ()+--+-- setSelectionColor :: 'Ref' 'WidgetBase' -> 'Color' -> 'IO' ()+--+-- setTooltip :: 'Ref' 'WidgetBase' -> 'T.Text' -> 'IO' ()+--+-- setType :: 'Ref' 'WidgetBase' -> 'Word8' -> 'IO' ()+--+-- setVisible :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- setVisibleFocus :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- setWhen :: 'Ref' 'WidgetBase' -> ['When'] -> 'IO' ()+--+-- showWidget :: 'Ref' 'WidgetBase' -> 'IO' ()+--+-- takeFocus :: 'Ref' 'WidgetBase' -> 'IO' ('Either' 'NoChange' ())+--+-- takesevents :: 'Ref' 'WidgetBase' -> 'IO' ('Bool')+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Window.chs view
@@ -0,0 +1,583 @@+{-# LANGUAGE CPP, UndecidableInstances, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ExistentialQuantification #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Window+    (+     CustomWindowFuncs(..),+     OptionalSizeRangeArgs(..),+     PositionSpec(..),+     WindowType(..),+     defaultCustomWindowFuncs,+     fillCustomWidgetFunctionStruct,+     defaultOptionalSizeRangeArgs,+     windowCustom,+     windowNew,+     windowMaker,+     currentWindow+   , handleWindowBase+   , resizeWindowBase+   , hideWindowBase+   , showWidgetWindowBase+   , flushWindowBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_C.h"+#include "Fl_WindowC.h"+#include "Fl_WidgetC.h"+#include "Fl_GroupC.h"+import Foreign+import Foreign.C+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Widget++#c+ enum WindowType {+   SingleWindowType = FL_WINDOWC,+   DoubleWindowType = FL_DOUBLE_WINDOWC+};+#endc+{#enum WindowType {} deriving (Show, Eq) #}++data PositionSpec = ByPosition Position+                  | forall a. (Parent a WidgetBase) => ByWidget (Ref a)++data CustomWindowFuncs a =+    CustomWindowFuncs {+      flushCustom :: Maybe (Ref a -> IO ())+    }++data OptionalSizeRangeArgs = OptionalSizeRangeArgs {+      maxw :: Maybe Int,+      maxh :: Maybe Int,+      dw :: Maybe Int,+      dh :: Maybe Int,+      aspect :: Maybe Bool+    }++optionalSizeRangeArgsToStruct :: OptionalSizeRangeArgs -> IO (Ptr ())+optionalSizeRangeArgsToStruct args = do+  p <- mallocBytes {#sizeof fl_Window_size_range_args #}+  {#set fl_Window_size_range_args->maxw #} p $ maybe 0 fromIntegral (maxw args)+  {#set fl_Window_size_range_args->maxh #} p $ maybe 0 fromIntegral (maxh args)+  {#set fl_Window_size_range_args->dw #} p $ maybe 0 fromIntegral (dw args)+  {#set fl_Window_size_range_args->dh #} p $ maybe 0 fromIntegral (dh args)+  {#set fl_Window_size_range_args->aspect #} p $ maybe 0 fromBool (aspect args)+  return p++defaultOptionalSizeRangeArgs :: OptionalSizeRangeArgs+defaultOptionalSizeRangeArgs = OptionalSizeRangeArgs Nothing Nothing Nothing Nothing Nothing++fillCustomWindowFunctionStruct :: forall a. (Parent a WindowBase) =>+                                  Ptr () ->+                                  CustomWindowFuncs a ->+                                  IO ()+fillCustomWindowFunctionStruct structPtr (CustomWindowFuncs _flush') =+  toCallbackPrim  `orNullFunPtr` _flush' >>= {#set fl_Window_Virtual_Funcs->flush#} structPtr++defaultCustomWindowFuncs :: forall a. (Parent a WindowBase) => CustomWindowFuncs a+defaultCustomWindowFuncs = CustomWindowFuncs Nothing++{# fun Fl_Window_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}+windowMaker :: forall a b. (Parent a WindowBase, Parent b WidgetBase) =>+               Size ->+               Maybe Position ->+               Maybe T.Text ->+               Maybe (Ref b -> IO ()) ->+               CustomWidgetFuncs b ->+               CustomWindowFuncs a ->+               (Int -> Int -> Ptr () -> IO (Ptr ())) ->+               (Int -> Int -> CString -> Ptr () -> IO (Ptr ())) ->+               (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())) ->+               (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())) ->+               IO (Ref a)+windowMaker (Size (Width w) (Height h))+            position+            title+            draw'+            customWidgetFuncs'+            customWindowFuncs'+            custom'+            customWithLabel'+            customXY'+            customXYWithLabel' =+     do+       p <- virtualFuncs'+       fillCustomWidgetFunctionStruct p draw' customWidgetFuncs'+       fillCustomWindowFunctionStruct p customWindowFuncs'+       ref <- case (position, title) of+                (Nothing, Nothing) -> custom' w h p >>= toRef+                (Just (Position (X x) (Y y)), Nothing) -> customXY' x y w h p >>= toRef+                (Just (Position (X x) (Y y)), (Just l')) -> copyTextToCString l' >>= \l'' -> customXYWithLabel' x y w h l'' p >>= toRef+                (Nothing, (Just l')) -> copyTextToCString l' >>= \l'' -> customWithLabel' w h l'' p >>= toRef+       setFlag (safeCast ref :: Ref WindowBase) WidgetFlagCopiedLabel+       setFlag (safeCast ref :: Ref WindowBase) WidgetFlagCopiedTooltip+       return ref++{# fun Fl_OverriddenWindow_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenWindow_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenWindow_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenWindow_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+windowCustom :: Size                        -- ^ Size of this window+             -> Maybe Position              -- ^ Optional position of this window+             -> Maybe T.Text                -- ^ Optional label+             -> Maybe (Ref Window -> IO ()) -- ^ Optional table drawing routine+             -> CustomWidgetFuncs Window    -- ^ Custom widget overrides+             -> CustomWindowFuncs Window    -- ^ Custom window overrides+             -> IO (Ref Window)+windowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =+  windowMaker+    size+    position+    title+    draw'+    customWidgetFuncs'+    customWindowFuncs'+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++windowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref Window)+windowNew size position title =+  windowMaker+    size+    position+    title+    Nothing+    (defaultCustomWidgetFuncs :: CustomWidgetFuncs Window)+    (defaultCustomWindowFuncs :: CustomWindowFuncs Window)+    overriddenWindowNew'+    overriddenWindowNewWithLabel'+    overriddenWindowNewXY'+    overriddenWindowNewXYWithLabel'++{# fun Fl_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr++{# fun Fl_Window_set_callback as windowSetCallback' {id `Ptr ()' , id `FunPtr CallbackWithUserDataPrim'} -> `FunPtr CallbackWithUserDataPrim' id #}+instance (impl ~ ((Ref orig -> IO ()) -> IO ())) => Op (SetCallback ()) WindowBase orig impl where+  runOp _ _ window callback =+   withRef window $ (\p -> do+     callbackPtr <- toCallbackPrimWithUserData callback+     oldCb <- windowSetCallback' (castPtr p) callbackPtr+     if (oldCb == nullFunPtr)+     then return ()+     else freeHaskellFunPtr oldCb)++{# fun Fl_Window_changed as changed' { id `Ptr ()' } -> `Bool' cToBool #}+instance (impl ~ ( IO (Bool))) => Op (Changed ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> changed' winPtr++{# fun Fl_Window_fullscreen as fullscreen' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (MakeFullscreen ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> fullscreen' winPtr++{# fun Fl_Window_fullscreen_off as fullscreenOff' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_fullscreen_off_with_resize as fullscreenOffWithResize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Maybe Rectangle ->  IO ())) => Op (FullscreenOff ()) WindowBase orig impl where+  runOp _ _ win (Just rectangle) =+    withRef win $ \winPtr ->+        let (x_pos, y_pos, width, height) = fromRectangle rectangle+        in fullscreenOffWithResize' winPtr x_pos y_pos width height+  runOp _ _ win Nothing =+    withRef win $ \winPtr -> fullscreenOff' winPtr++{# fun Fl_Window_set_border as setBorder' { id `Ptr ()', fromBool `Bool' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Bool ->  IO ())) => Op (SetBorder ()) WindowBase orig impl where+  runOp _ _ win b = withRef win $ \winPtr -> setBorder' winPtr b++{# fun Fl_Window_clear_border as clearBorder' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ClearBorder ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> clearBorder' winPtr++{# fun Fl_Window_border as border' { id `Ptr ()' } -> `Bool' toBool#}+instance (impl ~ ( IO (Bool))) => Op (GetBorder ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> border' winPtr++{# fun Fl_Window_set_override as setOverride' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (SetOverride ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> setOverride' winPtr++{# fun Fl_Window_override as override' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (GetOverride ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> override' winPtr++{# fun Fl_Window_set_modal as setModal' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (SetModal ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> setModal' winPtr++{# fun Fl_Window_modal as modal' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (GetModal ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> modal' winPtr++{# fun Fl_Window_set_non_modal as setNonModal' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (SetNonModal ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> setNonModal' winPtr++{# fun Fl_Window_non_modal as nonModal' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (NonModal ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> nonModal' winPtr++{# fun Fl_Window_set_menu_window as setMenuWindow' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (SetMenuWindow ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> setMenuWindow' winPtr++{# fun Fl_Window_menu_window as menuWindow' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (GetMenuWindow ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> menuWindow' winPtr++{# fun Fl_Window_set_tooltip_window as setTooltipWindow' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (SetTooltipWindow ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> setTooltipWindow' winPtr++{# fun Fl_Window_tooltip_window as tooltipWindow' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (GetTooltipWindow ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> tooltipWindow' winPtr++{# fun Fl_Window_hotspot_with_x_y as hotspotWithXY' { id `Ptr ()',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_hotspot_with_x_y_with_offscreen as hotspotWithXYWithOffscreen' { id `Ptr ()',`Int',`Int', fromBool `Bool' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_hotspot_with_widget as hotspotWithWidget' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_hotspot_with_widget_with_offscreen as hotspotWithWidgetWithOffscreen' { id `Ptr ()',id `Ptr ()',fromBool `Bool' } -> `()' supressWarningAboutRes #}+instance (impl ~ (PositionSpec -> Maybe Bool -> IO ())) => Op (HotSpot ()) WindowBase orig impl where+  runOp _ _ win positionSpec offscreen =+    withRef win $ \winPtr ->+            case (positionSpec, offscreen) of+              ((ByPosition (Position (X x) (Y y))), (Just offscreen')) ->+                  hotspotWithXYWithOffscreen' winPtr x y offscreen'+              ((ByPosition (Position (X x) (Y y))), Nothing) -> hotspotWithXY' winPtr x y+              ((ByWidget templateWidget), (Just offscreen')) ->+                  withRef templateWidget $ \templatePtr ->+                      hotspotWithWidgetWithOffscreen' winPtr templatePtr offscreen'+              ((ByWidget templateWidget), Nothing) ->+                  withRef templateWidget $ \templatePtr ->+                      hotspotWithWidget' winPtr templatePtr+{# fun Fl_Window_free_position as freePosition' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (FreePosition ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> freePosition' winPtr++{# fun Fl_Window_size_range as sizeRange' { id `Ptr ()',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_size_range_with_args as sizeRangeWithArgs' { id `Ptr ()',`Int',`Int', id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Size -> IO ())) => Op (SizeRange ()) WindowBase orig impl where+  runOp _ _ win (Size (Width minw') (Height minh')) =+    withRef win $ \winPtr -> sizeRange' winPtr minw' minh'+instance (impl ~ (Size -> OptionalSizeRangeArgs ->  IO ())) => Op (SizeRangeWithArgs ()) WindowBase orig impl where+  runOp _ _ win (Size (Width minw') (Height minh')) args =+    withRef win $ \winPtr -> do+      structPtr <- optionalSizeRangeArgsToStruct args+      sizeRangeWithArgs' winPtr minw' minh' structPtr++{# fun Fl_Window_label as label' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetLabel ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> label' winPtr >>= cStringToText++{# fun Fl_Window_iconlabel as iconlabel' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetIconlabel ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> iconlabel' winPtr >>= cStringToText++{# fun Fl_Window_set_label as setLabel' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetLabel ()) WindowBase orig impl where+  runOp _ _ win l' = withRef win $ \winPtr -> copyTextToCString l' >>= setLabel' winPtr++{# fun Fl_Window_set_iconlabel as setIconlabel' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetIconlabel ()) WindowBase orig impl where+  runOp _ _ win l' = withRef win $ \winPtr -> copyTextToCString l' >>= setIconlabel' winPtr++{# fun Fl_Window_set_label_with_iconlabel as setLabelWithIconlabel' { id `Ptr ()',`CString',`CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ (T.Text -> T.Text ->  IO ())) => Op (SetLabelWithIconlabel ()) WindowBase orig impl where+  runOp _ _ win label iconlabel = withRef win $ \winPtr -> do+    l' <- copyTextToCString label+    il' <- copyTextToCString iconlabel+    setLabelWithIconlabel' winPtr l' il'++{# fun Fl_Window_copy_label as copyLabel' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ (T.Text ->  IO ())) => Op (CopyLabel ()) WindowBase orig impl where+  runOp _ _ win a = withRef win $ \winPtr -> withText a (copyLabel' winPtr)++{# fun Fl_Window_xclass as xclass' { id `Ptr ()' } -> `CString' #}+instance (impl ~ ( IO T.Text)) => Op (GetXclass ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> xclass' winPtr >>= cStringToText++{# fun Fl_Window_set_xclass as setXclass' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}+instance (impl ~ (T.Text ->  IO ())) => Op (SetXclass ()) WindowBase orig impl where+  runOp _ _ win c = withRef win $ \winPtr -> copyTextToCString c >>= setXclass' winPtr++{# fun Fl_Window_icon as icon' { id `Ptr ()' } -> `Ptr ()' id #}+instance (impl ~ ( IO (Maybe (Ref Image)))) => Op (GetIcon ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> icon' winPtr >>= toMaybeRef++{# fun Fl_Window_set_icon as setIcon' { id `Ptr ()', id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (Parent a Image, impl ~ (Maybe( Ref a ) ->  IO ())) => Op (SetIcon ()) WindowBase orig impl where+  runOp _ _ win bitmap = withRef win $ \winPtr -> withMaybeRef bitmap $ \bitmapPtr -> setIcon' winPtr bitmapPtr++{# fun Fl_Window_shown as shown' { id `Ptr ()' } -> `Bool' toBool #}+instance (impl ~ ( IO (Bool))) => Op (Shown ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> shown' winPtr++{# fun Fl_Window_iconize as iconize' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Iconize ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> iconize' winPtr++{# fun Fl_Window_x_root as xRoot' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetXRoot ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> xRoot' winPtr++{# fun Fl_Window_y_root as yRoot' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetYRoot ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> yRoot' winPtr++{# fun Fl_Window_current as current' {  } -> `Ptr ()' id #}+currentWindow ::  (Parent a WindowBase) => IO (Ref a)+currentWindow = current' >>= toRef++{# fun Fl_Window_make_current as makeCurrent' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (MakeCurrent ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> makeCurrent' winPtr++{# fun Fl_Window_set_cursor_with_bg as setCursorWithBg' { id `Ptr ()',cFromEnum `Cursor',cFromColor `Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_set_cursor_with_fg as setCursorWithFg' { id `Ptr ()',cFromEnum `Cursor',cFromColor `Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_set_cursor_with_fg_bg as setCursorWithFgBg' { id `Ptr ()',cFromEnum `Cursor',cFromColor `Color',cFromColor `Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_set_cursor as setCursor' { id `Ptr ()',cFromEnum `Cursor' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Cursor -> IO ())) => Op (SetCursor ()) WindowBase orig impl where+  runOp _ _ win cursor =  withRef win $ \winPtr -> setCursor' winPtr cursor+instance (impl ~ (Cursor -> (Maybe Color, Maybe Color) ->  IO ())) => Op (SetCursorWithFgBg ()) WindowBase orig impl where+  runOp _ _ win cursor fgbg =+    case fgbg of+      ((Just fg), (Just bg)) -> withRef win $ \winPtr -> setCursorWithFgBg' winPtr cursor fg bg+      (Nothing , (Just bg)) -> withRef win $ \winPtr -> setCursorWithBg' winPtr cursor bg+      ((Just fg), Nothing)  -> withRef win $ \winPtr -> setCursorWithFg' winPtr cursor fg+      (Nothing, Nothing)    -> withRef win $ \winPtr -> setCursor' winPtr cursor++{# fun Fl_Window_set_default_cursor_with_bg as setDefaultCursorWithBg' { id `Ptr ()',cFromEnum `CursorType',cFromColor `Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_set_default_cursor_with_fg as setDefaultCursorWithFg' { id `Ptr ()',cFromEnum `CursorType',cFromColor `Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_set_default_cursor_with_fg_bg as setDefaultCursorWithFgBg' { id `Ptr ()',cFromEnum `CursorType',cFromColor `Color',cFromColor `Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_set_default_cursor as setDefaultCursor' { id `Ptr ()',cFromEnum `CursorType' } -> `()' supressWarningAboutRes #}+instance (impl ~ (CursorType -> IO ())) => Op (SetDefaultCursor ()) WindowBase orig impl where+  runOp _ _ win cursor = withRef win $ \winPtr -> setDefaultCursor' winPtr cursor+instance (impl ~ (CursorType -> (Maybe Color, Maybe Color) -> IO ())) => Op (SetDefaultCursorWithFgBg ()) WindowBase orig impl where+  runOp _ _ win cursor fgbg =+    case fgbg of+      ((Just fg), (Just bg)) -> withRef win $ \winPtr -> setDefaultCursorWithFgBg' winPtr cursor fg bg+      (Nothing , (Just bg)) -> withRef win $ \winPtr -> setDefaultCursorWithBg' winPtr cursor bg+      ((Just fg), Nothing)  -> withRef win $ \winPtr -> setDefaultCursorWithFg' winPtr cursor fg+      (Nothing, Nothing)    -> withRef win $ \winPtr -> setDefaultCursor' winPtr cursor++{# fun Fl_Window_decorated_w as decoratedW' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetDecoratedW ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> decoratedW' winPtr++{# fun Fl_Window_decorated_h as decoratedH' { id `Ptr ()' } -> `Int' #}+instance (impl ~ ( IO (Int))) => Op (GetDecoratedH ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> decoratedH' winPtr++{# fun Fl_Window_draw_box as windowDrawBox' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_draw_box_with_tc as windowDrawBoxWithTC' { id `Ptr ()', cFromEnum `Boxtype', cFromColor`Color' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_draw_box_with_txywhc as windowDrawBoxWithTXywhC' { id `Ptr ()', cFromEnum `Boxtype', `Int',`Int',`Int',`Int', cFromColor `Color' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (DrawBox ()) WindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> windowDrawBox' windowPtr+instance (impl ~ (Boxtype -> Color -> Maybe Rectangle -> IO ())) => Op (DrawBoxWithBoxtype ()) WindowBase orig impl where+  runOp _ _ window bx c Nothing =+              withRef window $ \windowPtr -> windowDrawBoxWithTC' windowPtr bx c+  runOp _ _ window bx c (Just r) =+              withRef window $ \windowPtr -> do+                let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r+                windowDrawBoxWithTXywhC' windowPtr bx x_pos y_pos w_pos h_pos c+{# fun Fl_Window_draw_backdrop as windowDrawBackdrop' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (DrawBackdrop ()) WindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> windowDrawBackdrop' windowPtr++{# fun Fl_Window_draw_focus as windowDrawFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_Window_draw_focus_with_txywh as windowDrawFocusWithTXywh' { id `Ptr ()', cFromEnum `Boxtype', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Maybe (Boxtype, Rectangle) -> IO ())) => Op (DrawFocus ()) WindowBase orig impl where+  runOp _ _ window Nothing =+                withRef window $ \ windowPtr -> windowDrawFocus' windowPtr+  runOp _ _ window (Just (bx, r)) =+                withRef window $ \windowPtr -> do+                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r+                  windowDrawFocusWithTXywh' windowPtr bx x_pos y_pos w_pos h_pos++{# fun Fl_Window_wait_for_expose as waitForExpose' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (WaitForExpose ()) WindowBase orig impl where+  runOp _ _ win = withRef win $ \winPtr -> waitForExpose' winPtr++{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}+instance (impl ~ (WindowType ->  IO ())) => Op (SetType ()) WindowBase orig impl where+  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)+{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}+instance (impl ~ IO (WindowType)) => Op (GetType_ ()) WindowBase orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger++{# fun Fl_Window_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleWindowBase :: Ref WindowBase -> Event ->  IO (Either UnknownEvent ())+handleWindowBase adjuster event = withRef adjuster $ \adjusterPtr -> handleSuper' adjusterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Window_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeWindowBase :: Ref WindowBase -> Rectangle -> IO ()+resizeWindowBase adjuster rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef adjuster $ \adjusterPtr -> resizeSuper' adjusterPtr x_pos y_pos width height+{# fun Fl_Window_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideWindowBase ::  Ref WindowBase -> IO ()+hideWindowBase adjuster = withRef adjuster $ \adjusterPtr -> hideSuper' adjusterPtr+{# fun Fl_Window_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetWindowBase ::  Ref WindowBase -> IO ()+showWidgetWindowBase adjuster = withRef adjuster $ \adjusterPtr -> showSuper' adjusterPtr+{# fun Fl_Window_flush_super as flushSuper' { id `Ptr ()' } -> `()' #}+flushWindowBase :: Ref WindowBase -> IO ()+flushWindowBase window = withRef window $ \windowPtr -> flush' windowPtr++{#fun Fl_DerivedWindow_handle as windowHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) WindowBase orig impl where+  runOp _ _ window event = withRef window (\p -> windowHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedWindow_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) WindowBase orig impl where+  runOp _ _ window rectangle = withRef window $ \windowPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' windowPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedWindow_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) WindowBase orig impl where+  runOp _ _ window = withRef window (\p -> windowShow' p)++{# fun Fl_DerivedWindow_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) WindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr++{# fun Fl_Window_flush as flush' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Flush ()) WindowBase orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+-- @++-- $functions+-- @+-- changed :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- clearBorder :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- copyLabel :: 'Ref' 'WindowBase' -> 'T.Text' -> 'IO' ()+--+-- destroy :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- drawBackdrop :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- drawBox :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- drawBoxWithBoxtype :: 'Ref' 'WindowBase' -> 'Boxtype' -> 'Color' -> 'Maybe' 'Rectangle' -> 'IO' ()+--+-- drawFocus :: 'Ref' 'WindowBase' -> 'Maybe' ('Boxtype', 'Rectangle') -> 'IO' ()+--+-- flush :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- freePosition :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- fullscreenOff :: 'Ref' 'WindowBase' -> 'Maybe' 'Rectangle' -> 'IO' ()+--+-- getBorder :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- getDecoratedH :: 'Ref' 'WindowBase' -> 'IO' ('Int')+--+-- getDecoratedW :: 'Ref' 'WindowBase' -> 'IO' ('Int')+--+-- getIcon :: 'Ref' 'WindowBase' -> 'IO' ('Maybe' ('Ref' 'Image'))+--+-- getIconlabel :: 'Ref' 'WindowBase' -> 'IO' 'T.Text'+--+-- getLabel :: 'Ref' 'WindowBase' -> 'IO' 'T.Text'+--+-- getMenuWindow :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- getModal :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- getOverride :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- getTooltipWindow :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- getType_ :: 'Ref' 'WindowBase' -> 'IO' ('WindowType')+--+-- getXRoot :: 'Ref' 'WindowBase' -> 'IO' ('Int')+--+-- getXclass :: 'Ref' 'WindowBase' -> 'IO' 'T.Text'+--+-- getYRoot :: 'Ref' 'WindowBase' -> 'IO' ('Int')+--+-- handle :: 'Ref' 'WindowBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- hotSpot :: 'Ref' 'WindowBase' -> 'PositionSpec' -> 'Maybe' 'Bool' -> 'IO' ()+--+-- iconize :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- makeCurrent :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- makeFullscreen :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- nonModal :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- resize :: 'Ref' 'WindowBase' -> 'Rectangle' -> 'IO' ()+--+-- setBorder :: 'Ref' 'WindowBase' -> 'Bool' -> 'IO' ()+--+-- setCallback :: 'Ref' 'WindowBase' -> ('Ref' orig -> 'IO' ()) -> 'IO' ()+--+-- setCursor :: 'Ref' 'WindowBase' -> 'Cursor' -> 'IO' ()+--+-- setCursorWithFgBg :: 'Ref' 'WindowBase' -> 'Cursor' -> ('Maybe' 'Color', 'Maybe' 'Color') -> 'IO' ()+--+-- setDefaultCursor :: 'Ref' 'WindowBase' -> 'CursorType' -> 'IO' ()+--+-- setDefaultCursorWithFgBg :: 'Ref' 'WindowBase' -> 'CursorType' -> ('Maybe' 'Color', 'Maybe' 'Color') -> 'IO' ()+--+-- setIcon:: ('Parent' a 'Image') => 'Ref' 'WindowBase' -> 'Maybe'( 'Ref' a ) -> 'IO' ()+--+-- setIconlabel :: 'Ref' 'WindowBase' -> 'T.Text' -> 'IO' ()+--+-- setLabel :: 'Ref' 'WindowBase' -> 'T.Text' -> 'IO' ()+--+-- setLabelWithIconlabel :: 'Ref' 'WindowBase' -> 'T.Text' -> 'T.Text' -> 'IO' ()+--+-- setMenuWindow :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- setModal :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- setNonModal :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- setOverride :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- setTooltipWindow :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- setType :: 'Ref' 'WindowBase' -> 'WindowType' -> 'IO' ()+--+-- setXclass :: 'Ref' 'WindowBase' -> 'T.Text' -> 'IO' ()+--+-- showWidget :: 'Ref' 'WindowBase' -> 'IO' ()+--+-- shown :: 'Ref' 'WindowBase' -> 'IO' ('Bool')+--+-- sizeRange :: 'Ref' 'WindowBase' -> 'Size' -> 'IO' ()+--+-- sizeRangeWithArgs :: 'Ref' 'WindowBase' -> 'Size' -> 'OptionalSizeRangeArgs' -> 'IO' ()+--+-- waitForExpose :: 'Ref' 'WindowBase' -> 'IO' ()+-- @
+ src/Graphics/UI/FLTK/LowLevel/Base/Wizard.chs view
@@ -0,0 +1,153 @@+{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.Base.Wizard+    (+     wizardNew,+     wizardCustom+    , drawWizardBase+    , handleWizardBase+    , resizeWizardBase+    , hideWizardBase+    , showWidgetWizardBase+     -- * Hierarchy+     --+     -- $hierarchy++     -- * Functions+     --+     -- $functions+    )+where+#include "Fl_ExportMacros.h"+#include "Fl_Types.h"+#include "Fl_WizardC.h"+import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Dispatch+import qualified Data.Text as T+{# fun Fl_OverriddenWizard_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenWizard_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+wizardCustom ::+       Rectangle                         -- ^ The bounds of this Wizard+    -> Maybe T.Text                      -- ^ The Wizard label+    -> Maybe (Ref Wizard -> IO ())           -- ^ Optional custom drawing function+    -> Maybe (CustomWidgetFuncs Wizard)      -- ^ Optional custom widget functions+    -> IO (Ref Wizard)+wizardCustom rectangle l' draw' funcs' =+  widgetMaker+    rectangle+    l'+    draw'+    funcs'+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'+++{# fun Fl_Wizard_New as wizardNew' {  `Int',`Int', `Int', `Int'} -> `Ptr ()' id #}+{# fun Fl_Wizard_New_WithLabel as wizardNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}+wizardNew :: Rectangle -> Maybe T.Text -> IO (Ref Wizard)+wizardNew rectangle label' =+  widgetMaker+    rectangle+    label'+    Nothing+    Nothing+    overriddenWidgetNew'+    overriddenWidgetNewWithLabel'++{# fun Fl_Wizard_Destroy as wizardDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) WizardBase orig impl where+  runOp _ _ wizard = swapRef wizard $ \wizardPtr -> do+    wizardDestroy' wizardPtr+    return nullPtr+{# fun Fl_Wizard_next as wizardNext' { id `Ptr ()' } -> `()' #}+instance (impl ~ (IO ())) => Op (Next ()) WizardBase orig impl where+  runOp _ _ wizard = withRef wizard $ \wizardPtr -> wizardNext' wizardPtr+{# fun Fl_Wizard_prev as wizardPrev' { id `Ptr ()' } -> `()' #}+instance (impl ~ (IO ())) => Op (Prev ()) WizardBase orig impl where+  runOp _ _ wizard = withRef wizard $ \wizardPtr -> wizardPrev' wizardPtr+{# fun Fl_Wizard_set_value as wizardSetValue' { id `Ptr ()', id `Ptr ()' } -> `()' #}+instance (Parent a WidgetBase, impl ~ ( Maybe ( Ref a ) -> IO ())) => Op (SetValue ()) WizardBase orig impl where+  runOp _ _ wizard widget =+    withRef wizard $ \wizardPtr ->+      withMaybeRef widget $ \widgetPtr ->+        wizardSetValue' wizardPtr widgetPtr+{# fun Fl_Wizard_value as wizardValue' {id `Ptr ()'} -> `Ptr ()' id #}+instance (impl ~ (IO (Maybe (Ref WidgetBase)))) => Op (GetValue ()) WizardBase orig impl where+  runOp _ _ wizard =+    withRef wizard $ \wizardPtr -> wizardValue' wizardPtr >>= toMaybeRef++{# fun Fl_Wizard_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+drawWizardBase ::  Ref WizardBase -> IO ()+drawWizardBase wizard = withRef wizard $ \wizardPtr -> drawSuper' wizardPtr+{# fun Fl_Wizard_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+handleWizardBase :: Ref WizardBase -> Event ->  IO (Either UnknownEvent ())+handleWizardBase wizard event = withRef wizard $ \wizardPtr -> handleSuper' wizardPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Wizard_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+resizeWizardBase :: Ref WizardBase -> Rectangle -> IO ()+resizeWizardBase wizard rectangle =+    let (x_pos, y_pos, width, height) = fromRectangle rectangle+    in withRef wizard $ \wizardPtr -> resizeSuper' wizardPtr x_pos y_pos width height+{# fun Fl_Wizard_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+hideWizardBase ::  Ref WizardBase -> IO ()+hideWizardBase wizard = withRef wizard $ \wizardPtr -> hideSuper' wizardPtr+{# fun Fl_Wizard_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+showWidgetWizardBase ::  Ref WizardBase -> IO ()+showWidgetWizardBase wizard = withRef wizard $ \wizardPtr -> showSuper' wizardPtr++{# fun Fl_Wizard_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) WizardBase orig impl where+  runOp _ _ wizard = withRef wizard $ \wizardPtr -> draw'' wizardPtr+{#fun Fl_Wizard_handle as wizardHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) WizardBase orig impl where+  runOp _ _ wizard event = withRef wizard (\p -> wizardHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Wizard_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) WizardBase orig impl where+  runOp _ _ wizard rectangle = withRef wizard $ \wizardPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' wizardPtr x_pos y_pos w_pos h_pos+{# fun Fl_Wizard_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) WizardBase orig impl where+  runOp _ _ wizard = withRef wizard $ \wizardPtr -> hide' wizardPtr+{# fun Fl_Wizard_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) WizardBase orig impl where+  runOp _ _ wizard = withRef wizard $ \wizardPtr -> show' wizardPtr+++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Wizard"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'WizardBase' -> 'IO' ()+--+-- draw :: 'Ref' 'WizardBase' -> 'IO' ()+--+-- getValue :: 'Ref' 'WizardBase' -> 'IO' ('Maybe' ('Ref' 'WidgetBase'))+--+-- handle :: 'Ref' 'WizardBase' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'WizardBase' -> 'IO' ()+--+-- next :: 'Ref' 'WizardBase' -> 'IO' ()+--+-- prev :: 'Ref' 'WizardBase' -> 'IO' ()+--+-- resize :: 'Ref' 'WizardBase' -> 'Rectangle' -> 'IO' ()+--+-- setValue:: ('Parent' a 'WidgetBase') => 'Ref' 'WizardBase' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()+--+-- showWidget :: 'Ref' 'WizardBase' -> 'IO' ()+-- @
src/Graphics/UI/FLTK/LowLevel/Box.chs view
@@ -27,7 +27,7 @@ import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget+import Graphics.UI.FLTK.LowLevel.Base.Widget  {# fun Fl_Box_New as boxNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #} {# fun Fl_Box_New_WithLabel as boxNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}
src/Graphics/UI/FLTK/LowLevel/Browser.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Browser     (-     -- * Constructor-     browserNew,-     browserCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -17,391 +14,54 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_BrowserC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)- import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_Browser_New as browserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Browser_New_WithLabel as browserNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-{# fun Fl_OverriddenBrowser_New_WithLabel as overriddenBrowserNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenBrowser_New as overriddenBrowserNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-browserCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Browser -> IO ()) -> Maybe (CustomWidgetFuncs Browser) -> IO (Ref Browser)-browserCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenBrowserNew'-    overriddenBrowserNewWithLabel'--browserNew :: Rectangle -> Maybe T.Text -> IO (Ref Browser)-browserNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenBrowserNew'-    overriddenBrowserNewWithLabel'-+import Graphics.UI.FLTK.LowLevel.Hierarchy +{# fun Fl_Browser_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) Browser orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> draw'' browserPtr {#fun Fl_Browser_handle as browserHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Browser orig impl where-  runOp _ _ browser event = withRef browser (\p -> browserHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent-{# fun Fl_Browser_Destroy as browserDestroy' { id `Ptr ()' } -> `()' #}-instance (impl ~ (IO ())) => Op (Destroy ()) Browser orig impl where-  runOp _ _ browser = swapRef browser $ \browserPtr -> do-    browserDestroy' browserPtr-    return nullPtr-{# fun Fl_Browser_remove as remove' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (Remove ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> remove' browserPtr line-{# fun Fl_Browser_add as add' { id `Ptr ()',`CString' } -> `()' #}-instance (impl ~ (T.Text ->  IO ())) => Op (Add ()) Browser orig impl where-  runOp _ _ browser newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= add' browserPtr-{# fun Fl_Browser_insert as insert' { id `Ptr ()',`Int',`CString' } -> `()' #}-instance (impl ~ (LineNumber -> T.Text ->  IO ())) => Op (Insert ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= insert' browserPtr line-{# fun Fl_Browser_move as move' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (LineNumber -> LineNumber ->  IO ())) => Op (Move ()) Browser orig impl where-  runOp _ _ browser (LineNumber to) (LineNumber from) = withRef browser $ \browserPtr -> move' browserPtr to from-{# fun Fl_Browser_load as load' { id `Ptr ()',`CString' } -> `Int' #}-instance (impl ~ (T.Text ->  IO (Either UnknownError ()))) => Op (Load ()) Browser orig impl where-  runOp _ _ browser filename = do-    res <- withRef browser $ \browserPtr -> withText filename (\f -> load' browserPtr f)-    if (res == 0) then return (Left UnknownError) else return (Right ())-{# fun Fl_Browser_swap as swap' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (LineNumber -> LineNumber ->  IO ())) => Op (Swap ()) Browser orig impl where-  runOp _ _ browser (LineNumber a) (LineNumber b) = withRef browser $ \browserPtr -> swap' browserPtr a b-{# fun Fl_Browser_clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Clear ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> clear' browserPtr-{# fun Fl_Browser_size as size' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetSize ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> size' browserPtr-{# fun Fl_Browser_set_size as setSize' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (Size ->  IO ())) => Op (SetSize ()) Browser orig impl where-  runOp _ _ browser (Size (Width w) (Height h)) = withRef browser $ \browserPtr -> setSize' browserPtr w h-{# fun Fl_Browser_topline as topline' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (LineNumber))) => Op (GetTopline ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> topline' browserPtr >>= return . LineNumber-{# fun Fl_Browser_lineposition as lineposition' { id `Ptr ()',`Int', cFromEnum `LinePosition' } -> `()' #}-instance (impl ~ (LineNumber -> LinePosition ->  IO ())) => Op (Lineposition ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) pos = withRef browser $ \browserPtr -> lineposition' browserPtr line pos-{# fun Fl_Browser_set_topline as setTopline' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (SetTopline ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setTopline' browserPtr line-{# fun Fl_Browser_bottomline as bottomline' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (SetBottomline ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> bottomline' browserPtr line-{# fun Fl_Browser_middleline as middleline' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (SetMiddleline ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> middleline' browserPtr line-{# fun Fl_Browser_select_with_val as select' { id `Ptr ()',`Int', cFromBool `Bool' } -> `Int' #}-instance (impl ~ (LineNumber -> Bool -> IO (Either NoChange ()))) => Op (Select ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) selectType = withRef browser $ \browserPtr -> select' browserPtr line selectType >>= return . successOrNoChange-{# fun Fl_Browser_selected as selected' { id `Ptr ()',`Int' } -> `Bool' cToBool #}-instance (impl ~ (LineNumber ->  IO (Bool))) => Op (Selected ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> selected' browserPtr line-{# fun Fl_Browser_show_with_line as showWithLine' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (ShowWidgetLine ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> showWithLine' browserPtr line-{# fun Fl_Browser_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (ShowWidget ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> show' browserPtr-{# fun Fl_Browser_hide_with_line as hideWithLine' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (HideLine ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> hideWithLine' browserPtr line+  runOp _ _ browser event = withRef browser (\p -> browserHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Browser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Browser orig impl where+  runOp _ _ browser rectangle = withRef browser $ \browserPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' browserPtr x_pos y_pos w_pos h_pos {# fun Fl_Browser_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Hide ()) Browser orig impl where+instance (impl ~ (  IO ())) => Op (Hide ()) Browser orig impl where   runOp _ _ browser = withRef browser $ \browserPtr -> hide' browserPtr-{# fun Fl_Browser_visible as visible' { id `Ptr ()',`Int' } -> `Bool' cToBool #}-instance (impl ~ (LineNumber ->  IO (Bool))) => Op (Visible ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> visible' browserPtr line-{# fun Fl_Browser_value as value' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (LineNumber))) => Op (GetValue ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> value' browserPtr >>= return . LineNumber-{# fun Fl_Browser_set_value as setValue' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (SetValue ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> setValue' browserPtr line-{# fun Fl_Browser_text as text' { id `Ptr ()',`Int' } -> `CString' #}-instance (impl ~ (LineNumber ->  IO T.Text)) => Op (GetText ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> text' browserPtr line >>= cStringToText-{# fun Fl_Browser_set_text as setText' { id `Ptr ()',`Int', `CString' } -> `()' #}-instance (impl ~ (LineNumber -> T.Text ->  IO ())) => Op (SetText ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) newtext = withRef browser $ \browserPtr -> copyTextToCString newtext >>= setText' browserPtr line-{# fun Fl_Browser_format_char as formatChar' { id `Ptr ()' } -> `CChar' id #}-instance (impl ~ ( IO (Char))) => Op (GetFormatChar ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> formatChar' browserPtr >>= return . castCCharToChar-{# fun Fl_Browser_set_format_char as setFormatChar' { id `Ptr ()', id `CChar' } -> `()' #}-instance (impl ~ (Char ->  IO ())) => Op (SetFormatChar ()) Browser orig impl where-  runOp _ _ browser c = withRef browser $ \browserPtr -> setFormatChar' browserPtr (castCharToCChar c)-{# fun Fl_Browser_column_char as columnChar' { id `Ptr ()' } -> `CChar' id #}-instance (impl ~ ( IO (Char))) => Op (GetColumnChar ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> columnChar' browserPtr >>= return . castCCharToChar-{# fun Fl_Browser_set_column_char as setColumnChar' { id `Ptr ()',id `CChar' } -> `()' #}-instance (impl ~ (Char ->  IO ())) => Op (SetColumnChar ()) Browser orig impl where-  runOp _ _ browser c = withRef browser $ \browserPtr -> setColumnChar' browserPtr (castCharToCChar c)-{# fun Fl_Browser_column_widths as columnWidths' { id `Ptr ()' } -> `Ptr CInt' id #}-instance (impl ~ ( IO [Int])) => Op (GetColumnWidths ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> do-    ptr <- columnWidths' browserPtr-    if (ptr == nullPtr)-      then return []-      else go ptr []-    where-      go ptr accum = do-        curr <- peek ptr-        if (curr == 0)-          then return accum-          else go (ptr `plusPtr` (sizeOf (undefined :: CInt))) (accum ++ [fromIntegral curr])+{# fun Fl_Browser_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) Browser orig impl where+  runOp _ _ browser = withRef browser $ \browserPtr -> show' browserPtr -{# fun Fl_Browser_set_column_widths as setColumnWidths' { id `Ptr ()', id `Ptr CInt' } -> `()' #}-instance (impl ~ ([Int] ->  IO ())) => Op (SetColumnWidths ()) Browser orig impl where-  runOp _ _ browser arr =-    withRef browser $ \browserPtr -> do-      ptr <- newArray ((map fromIntegral arr) :: [CInt])-      setColumnWidths' browserPtr (castPtr ptr)-{# fun Fl_Browser_displayed as displayed' { id `Ptr ()',`Int' } -> `Bool' cToBool #}-instance (impl ~ (LineNumber ->  IO (Bool))) => Op (Displayed ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> displayed' browserPtr line-{# fun Fl_Browser_make_visible as makeVisible' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (MakeVisible ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> makeVisible' browserPtr line-{# fun Fl_Browser_set_icon as setIcon' { id `Ptr ()',`Int',id `Ptr ()' } -> `()' #}-instance (impl ~ (LineNumber -> Ref Image ->  IO ())) => Op (SetIcon ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) icon = withRef browser $ \browserPtr -> withRef icon $ \iconPtr -> setIcon' browserPtr line iconPtr-{# fun Fl_Browser_icon as icon' { id `Ptr ()',`Int' } -> `Ptr ()' id #}-instance (impl ~ (LineNumber ->  IO (Maybe (Ref Image)))) => Op (GetIcon ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> icon' browserPtr line >>= toMaybeRef-{# fun Fl_Browser_remove_icon as removeIcon' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineNumber ->  IO ())) => Op (RemoveIcon ()) Browser orig impl where-  runOp _ _ browser (LineNumber line) = withRef browser $ \browserPtr -> removeIcon' browserPtr line-{# fun Fl_Browser_deselect as deselect' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either NoChange ()))) => Op (Deselect ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> deselect' browserPtr >>= return . successOrNoChange-{# fun Fl_Browser_deselect_with_docallbacks as deselectWithDocallbacks' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (IO (Either NoChange ()))) => Op (DeselectAndCallback ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> deselectWithDocallbacks' browserPtr 1 >>= return . successOrNoChange-{# fun Fl_Browser_position as position' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (PixelPosition))) => Op (GetPosition ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> position' browserPtr >>= return . PixelPosition-{# fun Fl_Browser_set_position as setPosition' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (PixelPosition ->  IO ())) => Op (SetPosition ()) Browser orig impl where-  runOp _ _ browser (PixelPosition pos) = withRef browser $ \browserPtr -> setPosition' browserPtr pos-{# fun Fl_Browser_hposition as hposition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (PixelPosition))) => Op (GetHposition ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> hposition' browserPtr >>= return . PixelPosition-{# fun Fl_Browser_set_hposition as setHposition' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (PixelPosition ->  IO ())) => Op (SetHposition ()) Browser orig impl where-  runOp _ _ browser (PixelPosition int) = withRef browser $ \browserPtr -> setHposition' browserPtr int-{# fun Fl_Browser_has_scrollbar as hasScrollbar' { id `Ptr ()' } -> `ScrollbarMode' cToEnum #}-instance (impl ~ ( IO (ScrollbarMode))) => Op (GetHasScrollbar ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> hasScrollbar' browserPtr-{# fun Fl_Browser_set_has_scrollbar as setHasScrollbar' { id `Ptr ()', cFromEnum `ScrollbarMode' } -> `()' #}-instance (impl ~ (ScrollbarMode ->  IO ())) => Op (SetHasScrollbar ()) Browser orig impl where-  runOp _ _ browser mode = withRef browser $ \browserPtr -> setHasScrollbar' browserPtr mode-{# fun Fl_Browser_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> textfont' browserPtr-{# fun Fl_Browser_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) Browser orig impl where-  runOp _ _ browser font = withRef browser $ \browserPtr -> setTextfont' browserPtr font-{# fun Fl_Browser_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> textsize' browserPtr >>= return . FontSize-{# fun Fl_Browser_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) Browser orig impl where-  runOp _ _ browser (FontSize newsize) = withRef browser $ \browserPtr -> setTextsize' browserPtr newsize-{# fun Fl_Browser_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> textcolor' browserPtr-{# fun Fl_Browser_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) Browser orig impl where-  runOp _ _ browser col = withRef browser $ \browserPtr -> setTextcolor' browserPtr col-{# fun Fl_Browser_set_scrollbar_color as setScrollbarColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetScrollbarColor ()) Browser orig impl where-  runOp _ _ browser col = withRef browser $ \browserPtr -> setScrollbarColor' browserPtr col-{# fun Fl_Browser_set_scrollbar_selection_color as setScrollbarSelectionColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetScrollbarSelectionColor ()) Browser orig impl where-  runOp _ _ browser col = withRef browser $ \browserPtr -> setScrollbarSelectionColor' browserPtr col-{# fun Fl_Browser_scrollbar_size as scrollbarSize' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetScrollbarSize ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> scrollbarSize' browserPtr-{# fun Fl_Browser_set_scrollbar_size as setScrollbarSize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ())) => Op (SetScrollbarSize ()) Browser orig impl where-  runOp _ _ browser newsize = withRef browser $ \browserPtr -> setScrollbarSize' browserPtr newsize-{# fun Fl_Browser_scrollbar_width as scrollbarWidth' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetScrollbarWidth ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> scrollbarWidth' browserPtr-{# fun Fl_Browser_set_scrollbar_width as setScrollbarWidth' { id `Ptr ()', `Int' } -> `()' #}-instance (impl ~ (Int ->  IO ())) => Op (SetScrollbarWidth ()) Browser orig impl where-  runOp _ _ browser width = withRef browser $ \browserPtr -> setScrollbarWidth' browserPtr width-{# fun Fl_Browser_sort_with_flags as sortWithFlags' {id `Ptr ()', cFromEnum `SortType'} -> `()' #}-instance (impl ~ (SortType -> IO ())) => Op (SortWithSortType ()) Browser orig impl where-  runOp _ _ browser sorttype' = withRef browser $ \browserPtr -> sortWithFlags' browserPtr sorttype'-{# fun Fl_Browser_sort as sort' {id `Ptr ()'} -> `()' #}-instance (impl ~ IO ()) => Op (Sort ()) Browser orig impl where-  runOp _ _ browser = withRef browser $ \browserPtr -> sort' browserPtr-{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (BrowserType ->  IO ())) => Op (SetType ()) Browser orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (BrowserType)) => Op (GetType_ ()) Browser orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger-{# fun Fl_Browser_handle_super as handleSuper' { id `Ptr ()', id `CInt'} -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Browser orig impl where-  runOp _ _ browser event = withRef browser (\p -> handleSuper' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent-{# fun Fl_Browser_draw_super as drawSuper' { id `Ptr ()' }  -> `()' #}-instance (impl ~ (IO ())) => Op (DrawSuper ()) Browser orig impl where-  runOp _ _ browser = withRef browser (\p -> drawSuper' p)+-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Browser"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Browser"+-- @  -- $functions -- @--- add :: 'Ref' 'Browser' -> 'T.Text' -> 'IO' ()------ clear :: 'Ref' 'Browser' -> 'IO' ()------ deselect :: 'Ref' 'Browser' -> 'IO' ('Either' 'NoChange' ())------ deselectAndCallback :: 'Ref' 'Browser' -> 'IO' ('Either' 'NoChange' ())------ destroy :: 'Ref' 'Browser' -> 'IO' ()------ displayed :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ('Bool')------ drawSuper :: 'Ref' 'Browser' -> 'IO' ()------ getColumnChar :: 'Ref' 'Browser' -> 'IO' ('Char')------ getColumnWidths :: 'Ref' 'Browser' -> 'IO' ['Int']------ getFormatChar :: 'Ref' 'Browser' -> 'IO' ('Char')------ getHasScrollbar :: 'Ref' 'Browser' -> 'IO' ('ScrollbarMode')------ getHposition :: 'Ref' 'Browser' -> 'IO' ('PixelPosition')------ getIcon :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getPosition :: 'Ref' 'Browser' -> 'IO' ('PixelPosition')------ getScrollbarSize :: 'Ref' 'Browser' -> 'IO' ('Int')------ getScrollbarWidth :: 'Ref' 'Browser' -> 'IO' ('Int')------ getSize :: 'Ref' 'Browser' -> 'IO' ('Int')------ getText :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' 'T.Text'------ getTextcolor :: 'Ref' 'Browser' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'Browser' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'Browser' -> 'IO' ('FontSize')------ getTopline :: 'Ref' 'Browser' -> 'IO' ('LineNumber')------ getType_ :: 'Ref' 'Browser' -> 'IO' ('BrowserType')------ getValue :: 'Ref' 'Browser' -> 'IO' ('LineNumber')+-- draw :: 'Ref' 'Browser' -> 'IO' () -- -- handle :: 'Ref' 'Browser' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Browser' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Browser' -> 'IO' () ----- hideLine :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ insert :: 'Ref' 'Browser' -> 'LineNumber' -> 'T.Text' -> 'IO' ()------ lineposition :: 'Ref' 'Browser' -> 'LineNumber' -> 'LinePosition' -> 'IO' ()------ load :: 'Ref' 'Browser' -> 'T.Text' -> 'IO' ('Either' 'UnknownError' ())------ makeVisible :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ move :: 'Ref' 'Browser' -> 'LineNumber' -> 'LineNumber' -> 'IO' ()------ remove :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ removeIcon :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ select :: 'Ref' 'Browser' -> 'LineNumber' -> 'Bool' -> 'IO' ('Either' 'NoChange' ())------ selected :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ('Bool')------ setBottomline :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ setColumnChar :: 'Ref' 'Browser' -> 'Char' -> 'IO' ()------ setColumnWidths :: 'Ref' 'Browser' -> ['Int'] -> 'IO' ()------ setFormatChar :: 'Ref' 'Browser' -> 'Char' -> 'IO' ()------ setHasScrollbar :: 'Ref' 'Browser' -> 'ScrollbarMode' -> 'IO' ()------ setHposition :: 'Ref' 'Browser' -> 'PixelPosition' -> 'IO' ()------ setIcon :: 'Ref' 'Browser' -> 'LineNumber' -> 'Ref' 'Image' -> 'IO' ()------ setMiddleline :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ setPosition :: 'Ref' 'Browser' -> 'PixelPosition' -> 'IO' ()------ setScrollbarColor :: 'Ref' 'Browser' -> 'Color' -> 'IO' ()------ setScrollbarSelectionColor :: 'Ref' 'Browser' -> 'Color' -> 'IO' ()------ setScrollbarSize :: 'Ref' 'Browser' -> 'Int' -> 'IO' ()------ setScrollbarWidth :: 'Ref' 'Browser' -> 'Int' -> 'IO' ()------ setSize :: 'Ref' 'Browser' -> 'Size' -> 'IO' ()------ setText :: 'Ref' 'Browser' -> 'LineNumber' -> 'T.Text' -> 'IO' ()------ setTextcolor :: 'Ref' 'Browser' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'Browser' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'Browser' -> 'FontSize' -> 'IO' ()------ setTopline :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ setType :: 'Ref' 'Browser' -> 'BrowserType' -> 'IO' ()------ setValue :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()+-- resize :: 'Ref' 'Browser' -> 'Rectangle' -> 'IO' () -- -- showWidget :: 'Ref' 'Browser' -> 'IO' ()------ showWidgetLine :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ()------ sort :: 'Ref' 'Browser' -> 'IO' ()------ sortWithSortType :: 'Ref' 'Browser' -> 'SortType' -> 'IO' ()------ swap :: 'Ref' 'Browser' -> 'LineNumber' -> 'LineNumber' -> 'IO' ()------ visible :: 'Ref' 'Browser' -> 'LineNumber' -> 'IO' ('Bool')--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Browser" -- @
src/Graphics/UI/FLTK/LowLevel/Button.chs view
@@ -1,226 +1,60 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Button     (-     buttonCustom,-     buttonNew,-     ButtonType(..),      -- * Hierarchy      --      -- $hierarchy -     -- * Fl_Button functions+     -- * Widget Functions      ---     -- $Fl_Buttonfunctions+     -- $functions     ) where-#include "Fl_C.h"-#include "Fl_ButtonC.h"-#include "Fl_WidgetC.h"-#include "Fl_GroupC.h" #include "Fl_ExportMacros.h" #include "Fl_Types.h"+#include "Fl_ButtonC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)--import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_OverriddenButton_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenButton_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-buttonCustom :: Rectangle                         -- ^ The bounds of this button-             -> Maybe T.Text                      -- ^ The button label-             -> Maybe (Ref Button -> IO ())       -- ^ Optional custom drawing function-             -> Maybe (CustomWidgetFuncs Button)  -- ^ Optional custom widget functions-             -> IO (Ref Button)-buttonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel' -buttonNew :: Rectangle -> Maybe T.Text -> IO (Ref Button)-buttonNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (Destroy ()) Button orig impl where-  runOp _ _ button = swapRef button $-                 \buttonPtr ->-                  widgetDestroy' buttonPtr >>-                  return nullPtr-{# fun Fl_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (DrawSuper ()) Button orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> drawSuper' buttonPtr-{# fun Fl_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ ((Event ->  IO (Either UnknownEvent ())))) => Op (HandleSuper ()) Button orig impl where-  runOp _ _ button event = withRef button $ \buttonPtr -> handleSuper' buttonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{#fun Fl_Button_handle as buttonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedButton_handle as buttonHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ ((Event -> IO (Either UnknownEvent ())))) => Op (Handle ()) Button orig impl where   runOp _ _ button event = withRef button (\p -> buttonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ ((Rectangle -> IO ()))) => Op (ResizeSuper ()) Button orig impl where-  runOp _ _ button rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef button $ \buttonPtr -> resizeSuper' buttonPtr x_pos y_pos width height-{# fun Fl_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedButton_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ ((Rectangle -> IO ()))) => Op (Resize ()) Button orig impl where   runOp _ _ button rectangle = withRef button $ \buttonPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' buttonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (HideSuper ()) Button orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> hideSuper' buttonPtr-{# fun Fl_Button_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (Hide ()) Button orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> hide' buttonPtr-{# fun Fl_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (ShowWidgetSuper ()) Button orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> showSuper' buttonPtr-{# fun Fl_Button_show as buttonShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedButton_show as buttonShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #} instance (impl ~ ((IO ()))) => Op (ShowWidget ()) Button orig impl where   runOp _ _ button = withRef button $ (\p -> buttonShow' p)-{# fun Fl_Button_value as value' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (( IO (Bool)))) => Op (GetValue ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> value' bPtr-{# fun Fl_Button_set_value as setValue' { id `Ptr ()', fromBool `Bool' } -> `Bool' toBool #}-instance (impl ~ ((Bool ->  IO (Bool)))) => Op (SetValue ()) Button orig impl where-  runOp _ _ b v = withRef b $ \bPtr -> setValue' bPtr v-{# fun Fl_Button_set as set' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (( IO (Bool)))) => Op (Set ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> set' bPtr-{# fun Fl_Button_clear as clear' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (( IO (Bool)))) => Op (Clear ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> clear' bPtr-{# fun Fl_Button_setonly as setonly' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (Setonly ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> setonly' bPtr-{# fun Fl_Button_get_shortcut as getShortcut' { id `Ptr ()' } -> `CInt' #}-instance (impl ~ (( IO (Maybe ShortcutKeySequence)))) => Op (GetShortcut ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> getShortcut' bPtr >>= return . cIntToKeySequence-{# fun Fl_Button_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' supressWarningAboutRes #}-instance (impl ~ ((ShortcutKeySequence ->  IO ()))) => Op (SetShortcut ()) Button orig impl where-  runOp _ _ input (ShortcutKeySequence modifiers char) =-    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)-{# fun Fl_Button_down_box as downBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ (( IO (Boxtype)))) => Op (GetDownBox ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> downBox' bPtr-{# fun Fl_Button_set_down_box as setDownBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' supressWarningAboutRes #}-instance (impl ~ ((Boxtype ->  IO ()))) => Op (SetDownBox ()) Button orig impl where-  runOp _ _ b boxtype = withRef b $ \bPtr -> setDownBox' bPtr boxtype-{# fun Fl_Button_down_color as downColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ (( IO (Color)))) => Op (GetDownColor ()) Button orig impl where-  runOp _ _ b = withRef b $ \bPtr -> downColor' bPtr-{# fun Fl_Button_set_down_color as setDownColor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ ((Color ->  IO ()))) => Op (SetDownColor ()) Button orig impl where-  runOp _ _ b c = withRef b $ \bPtr -> setDownColor' bPtr c-{# fun Fl_Button_draw_box as buttonDrawBox' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Button_draw_box_with_tc as buttonDrawBoxWithTC' { id `Ptr ()', cFromEnum `Boxtype', cFromColor`Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Button_draw_box_with_txywhc as buttonDrawBoxWithTXywhC' { id `Ptr ()', cFromEnum `Boxtype', `Int',`Int',`Int',`Int', cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ ((IO ()))) => Op (DrawBox ()) Button orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> buttonDrawBox' buttonPtr-instance (impl ~ (( Boxtype -> Color -> Maybe Rectangle -> IO ()))) => Op (DrawBoxWithBoxtype ()) Button orig impl where-  runOp _ _ button bx c Nothing =-              withRef button $ \buttonPtr -> buttonDrawBoxWithTC' buttonPtr bx c-  runOp _ _ button bx c (Just r) =-              withRef button $ \buttonPtr -> do-                let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r-                buttonDrawBoxWithTXywhC' buttonPtr bx x_pos y_pos w_pos h_pos c-{# fun Fl_Button_draw_backdrop as buttonDrawBackdrop' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (DrawBackdrop ()) Button orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> buttonDrawBackdrop' buttonPtr-{# fun Fl_Button_draw_focus as buttonDrawFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Button_draw_focus_with_txywh as buttonDrawFocusWithTXywh' { id `Ptr ()', cFromEnum `Boxtype', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Maybe (Boxtype, Rectangle) -> IO ())) => Op (DrawFocus ()) Button orig impl where-  runOp _ _ button Nothing =-                withRef button $ \ buttonPtr -> buttonDrawFocus' buttonPtr-  runOp _ _ button (Just (bx, r)) =-                withRef button $ \buttonPtr -> do-                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r-                  buttonDrawFocusWithTXywh' buttonPtr bx x_pos y_pos w_pos h_pos+{# fun Fl_DerivedButton_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (( IO ()))) => Op (Hide ()) Button orig impl where+  runOp _ _ button = withRef button $ \buttonPtr -> hide' buttonPtr -{# fun Fl_Button_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ ( IO (ButtonType))) => Op (GetType_ ()) Button orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . cToEnum-{# fun Fl_Button_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}-instance (impl ~ (ButtonType ->  IO ())) => Op (SetType ()) Button orig impl where-   runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (cFromEnum t)+-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Button"+-- @ --- $Fl_Buttonfunctions+-- $functions -- @--- clear :: 'Ref' 'Button' -> ( 'IO' ('Bool'))------ destroy :: 'Ref' 'Button' -> ( 'IO' ())------ drawBackdrop :: 'Ref' 'Button' -> 'IO' ()------ drawBox :: 'Ref' 'Button' -> ('IO' ())------ drawBoxWithBoxtype :: 'Ref' 'Button' -> ( 'Boxtype' -> 'Color' -> 'Maybe' 'Rectangle' -> 'IO' ())------ drawFocus :: 'Ref' 'Button' -> 'Maybe' ('Boxtype', 'Rectangle') -> 'IO' ()------ drawSuper :: 'Ref' 'Button' -> ( 'IO' ())------ getDownBox :: 'Ref' 'Button' -> ( 'IO' ('Boxtype'))------ getDownColor :: 'Ref' 'Button' -> ( 'IO' ('Color'))------ getShortcut :: 'Ref' 'Button' -> ( 'IO' ('Maybe' 'ShortcutKeySequence'))------ getType_ :: 'Ref' 'Button' -> 'IO' ('ButtonType')------ getValue :: 'Ref' 'Button' -> ( 'IO' ('Bool'))--- -- handle :: 'Ref' 'Button' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ())) ----- handleSuper :: 'Ref' 'Button' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))--- -- hide :: 'Ref' 'Button' -> ( 'IO' ()) ----- hideSuper :: 'Ref' 'Button' -> ( 'IO' ())--- -- resize :: 'Ref' 'Button' -> ('Rectangle' -> 'IO' ()) ----- resizeSuper :: 'Ref' 'Button' -> ('Rectangle' -> 'IO' ())------ set :: 'Ref' 'Button' -> ( 'IO' ('Bool'))------ setDownBox :: 'Ref' 'Button' -> ('Boxtype' -> 'IO' ())------ setDownColor :: 'Ref' 'Button' -> ('Color' -> 'IO' ())------ setShortcut :: 'Ref' 'Button' -> ('ShortcutKeySequence' -> 'IO' ())------ setType :: 'Ref' 'Button' -> 'ButtonType' -> 'IO' ()------ setValue :: 'Ref' 'Button' -> ('Bool' -> 'IO' ('Bool'))------ setonly :: 'Ref' 'Button' -> ( 'IO' ())--- -- showWidget :: 'Ref' 'Button' -> ('IO' ())------ showWidgetSuper :: 'Ref' 'Button' -> ( 'IO' ())--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Button"--- -- @
src/Graphics/UI/FLTK/LowLevel/CheckButton.chs view
@@ -1,134 +1,70 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.CheckButton     (-     checkButtonNew,-     checkButtonCustom,      -- * Hierarchy      --      -- $hierarchy-     -- * CheckButton++     -- * Widget Functions      ---     -- $CheckButtonfunctions+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Check_ButtonC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenCheck_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenCheck_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-checkButtonCustom ::-       Rectangle                         -- ^ The bounds of this CheckButton-    -> Maybe T.Text                      -- ^ The CheckButton label-    -> Maybe (Ref CheckButton -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs CheckButton)      -- ^ Optional custom widget functions-    -> IO (Ref CheckButton)-checkButtonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Check_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Check_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-checkButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref CheckButton)-checkButtonNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Check_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) CheckButton orig impl where-  runOp _ _ button = swapRef button $-                    \buttonPtr ->-                     widgetDestroy' buttonPtr >>-                     return nullPtr-{# fun Fl_Check_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedCheck_Button_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) CheckButton orig impl where   runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> draw'' checkButtonPtr-{# fun Fl_Check_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) CheckButton orig impl where-  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> drawSuper' checkButtonPtr-{#fun Fl_Check_Button_handle as checkButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedCheck_Button_handle as checkButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) CheckButton orig impl where   runOp _ _ checkButton event = withRef checkButton (\p -> checkButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Check_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) CheckButton orig impl where-  runOp _ _ checkButton event = withRef checkButton $ \checkButtonPtr -> handleSuper' checkButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Check_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedCheck_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) CheckButton orig impl where   runOp _ _ checkButton rectangle = withRef checkButton $ \checkButtonPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' checkButtonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Check_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) CheckButton orig impl where-  runOp _ _ checkButton rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef checkButton $ \checkButtonPtr -> resizeSuper' checkButtonPtr x_pos y_pos width height-{# fun Fl_Check_Button_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) CheckButton orig impl where-  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> hide' checkButtonPtr-{# fun Fl_Check_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) CheckButton orig impl where-  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> hideSuper' checkButtonPtr-{# fun Fl_Check_Button_show as show' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedCheck_Button_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) CheckButton orig impl where   runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> show' checkButtonPtr-{# fun Fl_Check_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) CheckButton orig impl where-  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> showSuper' checkButtonPtr+{# fun Fl_DerivedCheck_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) CheckButton orig impl where+  runOp _ _ checkButton = withRef checkButton $ \checkButtonPtr -> hide' checkButtonPtr --- $CheckButtonfunctions---+-- $hierarchy -- @--- destroy :: 'Ref' 'CheckButton' -> 'IO' ()---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.LightButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.CheckButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.CheckButton"+-- @++-- $functions+-- @ -- draw :: 'Ref' 'CheckButton' -> 'IO' () ----- drawSuper :: 'Ref' 'CheckButton' -> 'IO' ()--- -- handle :: 'Ref' 'CheckButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'CheckButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'CheckButton' -> 'IO' () ----- hideSuper :: 'Ref' 'CheckButton' -> 'IO' ()--- -- resize :: 'Ref' 'CheckButton' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'CheckButton' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'CheckButton' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'CheckButton' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Button"---  |---  v--- "Graphics.UI.FLTK.LowLevel.CheckButton" -- @
src/Graphics/UI/FLTK/LowLevel/Choice.chs view
@@ -1,153 +1,67 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables  #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Choice     (-     -- * Constructor-     choiceNew,-     choiceCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Choice+     -- * Widget Functions      ---     -- $Choicefunctions+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_ChoiceC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.MenuItem import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget -{# fun Fl_OverriddenChoice_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenChoice_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-choiceCustom ::-       Rectangle                         -- ^ The bounds of this Choice-    -> Maybe T.Text                      -- ^ The Choice label-    -> Maybe (Ref Choice -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Choice)      -- ^ Optional custom widget functions-    -> IO (Ref Choice)-choiceCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Choice_New as choiceNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Choice_New_WithLabel as choiceNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-choiceNew :: Rectangle -> Maybe T.Text -> IO (Ref Choice)-choiceNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-{# fun Fl_Choice_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Choice orig impl where-  runOp _ _ menu_ = swapRef menu_ $-                          \menu_Ptr ->-                             widgetDestroy' menu_Ptr >>-                             return nullPtr-{# fun Fl_Choice_value as value' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (AtIndex))) => Op (GetValue ()) Choice orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> value' menu_Ptr >>= return . AtIndex-{# fun Fl_Choice_set_value_with_item as valueWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-{# fun Fl_Choice_set_value_with_index as valueWithIndex' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (MenuItemReference -> IO (Either NoChange ()))) => Op (SetValue ()) Choice orig impl where-  runOp _ _ menu_ menu_item_reference =-    withRef menu_ $ \menu_Ptr ->-        case menu_item_reference of-          (MenuItemByIndex (AtIndex index')) -> valueWithIndex' menu_Ptr index' >>= return . successOrNoChange-          (MenuItemByPointer (MenuItemPointer menu_item)) ->-              withRef menu_item $ \menu_itemPtr ->-                  valueWithItem' menu_Ptr menu_itemPtr >>= return . successOrNoChange-{#fun Fl_Choice_handle as menu_Handle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_Choice_handle as choiceHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Choice orig impl where-  runOp _ _ menu_ event = withRef menu_ (\p -> menu_Handle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+  runOp _ _ choice event = withRef choice (\p -> choiceHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent {# fun Fl_Choice_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Choice orig impl where   runOp _ _ choice = withRef choice $ \choicePtr -> draw'' choicePtr-{# fun Fl_Choice_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Choice orig impl where-  runOp _ _ choice = withRef choice $ \choicePtr -> drawSuper' choicePtr-{# fun Fl_Choice_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Choice orig impl where-  runOp _ _ choice event = withRef choice $ \choicePtr -> handleSuper' choicePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Choice_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Choice orig impl where   runOp _ _ choice rectangle = withRef choice $ \choicePtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' choicePtr x_pos y_pos w_pos h_pos-{# fun Fl_Choice_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Choice orig impl where-  runOp _ _ choice rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef choice $ \choicePtr -> resizeSuper' choicePtr x_pos y_pos width height {# fun Fl_Choice_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Choice orig impl where   runOp _ _ choice = withRef choice $ \choicePtr -> hide' choicePtr-{# fun Fl_Choice_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Choice orig impl where-  runOp _ _ choice = withRef choice $ \choicePtr -> hideSuper' choicePtr {# fun Fl_Choice_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Choice orig impl where   runOp _ _ choice = withRef choice $ \choicePtr -> show' choicePtr-{# fun Fl_Choice_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Choice orig impl where-  runOp _ _ choice = withRef choice $ \choicePtr -> showSuper' choicePtr --- $Choicefunctions---+-- $hierarchy -- @--- destroy :: 'Ref' 'Choice' -> 'IO' ()---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Choice"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Choice"+-- @++-- $functions+-- @ -- draw :: 'Ref' 'Choice' -> 'IO' () ----- drawSuper :: 'Ref' 'Choice' -> 'IO' ()------ getValue :: 'Ref' 'Choice' -> 'IO' ('AtIndex')--- -- handle :: 'Ref' 'Choice' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Choice' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Choice' -> 'IO' () ----- hideSuper :: 'Ref' 'Choice' -> 'IO' ()--- -- resize :: 'Ref' 'Choice' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Choice' -> 'Rectangle' -> 'IO' ()------ setValue :: 'Ref' 'Choice' -> 'MenuItemReference' -> 'IO' ('Either' 'NoChange' ())--- -- showWidget :: 'Ref' 'Choice' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Choice' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuPrim"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Choice" -- @
src/Graphics/UI/FLTK/LowLevel/Clock.chs view
@@ -1,25 +1,15 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Clock-  (-    ClockType(..),-    clockNew,-    clockNewWithType,-    clockCustom,-    Hour(..),-    Minute(..),-    Second(..),-    ClockByTime (..),-    ClockSinceEpoch(..),-    ClockSetTimeType(..)-    -- * Hierarchy-    ---    -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -    -- * Clock-    ---    -- $Clockfunctions-  )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h"@@ -28,179 +18,47 @@ import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Data.Char-import Graphics.UI.FLTK.LowLevel.Widget--#c-enum ClockType {-  SquareClock = FL_SQUARE_CLOCK,-  RoundClock = FL_ROUND_CLOCK,-  AnalogClock = FL_ANALOG_CLOCK,-  DigitalClock = FL_DIGITAL_CLOCK-};-#endc-{# enum ClockType {} deriving (Show) #}-newtype Hour = Hour Int deriving Show-newtype Minute = Minute Int deriving Show-newtype Second = Second Int deriving Show-data ClockByTime = ClockByTime Hour Minute Second deriving Show-data ClockSinceEpoch = ClockSinceEpoch Second deriving Show-data ClockSetTimeType = ClockSetByTime ClockByTime | ClockSetSinceEpoch ClockSinceEpoch deriving Show--{# fun Fl_OverriddenClock_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenClock_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-clockCustom ::-       Rectangle                         -- ^ The bounds of this Clock-    -> Maybe T.Text                      -- ^ The Clock label-    -> Maybe (Ref Clock -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Clock)      -- ^ Optional custom widget functions-    -> IO (Ref Clock)-clockCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Clock_New as clockNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Clock_New_WithLabel as clockNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_Clock_New_WithClockType as clockNewWithClockType' { id `CUChar', `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-clockNew :: Rectangle -> Maybe T.Text -> IO (Ref Clock)-clockNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--clockNewWithType :: ClockType -> Rectangle -> T.Text -> IO (Ref Clock)-clockNewWithType clocktype' rectangle' label' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle'-    in do-    ref <- copyTextToCString label' >>= \l' -> clockNewWithClockType' (castCharToCUChar . chr . fromEnum $ clocktype') x_pos y_pos width height l'  >>= toRef-    setFlag ref WidgetFlagCopiedLabel-    setFlag ref WidgetFlagCopiedTooltip-    return ref--{# fun Fl_Clock_set_value_with_hms as setValueWithhms' {id `Ptr ()', `Int', `Int', `Int'} -> `()' #}-{# fun Fl_Clock_set_value as setValue' {id `Ptr ()', id `CULong'} -> `()' #}-instance (impl ~ (ClockSetTimeType -> IO ())) => Op (SetValue()) Clock orig impl where-  runOp _ _ clock' clockvalue = withRef clock' $ \clockPtr ->-    case clockvalue of-     ClockSetByTime (ClockByTime (Hour h)(Minute m) (Second s)) -> setValueWithhms' clockPtr h m s-     ClockSetSinceEpoch (ClockSinceEpoch (Second s)) -> setValue' clockPtr (fromIntegral s)---{# fun Fl_Clock_value as getValue' {id `Ptr ()'} -> `CULong' id #}-instance (impl ~ (IO ClockSinceEpoch)) => Op (GetValueSinceEpoch ()) Clock orig impl where-  runOp _ _ clock' = withRef clock' $ \clockPtr ->-    getValue' clockPtr >>= return . ClockSinceEpoch . Second . fromIntegral--{# fun Fl_Clock_hour   as clockHour'   {id `Ptr ()'} -> `Int'  #}-{# fun Fl_Clock_minute as clockMinute' {id `Ptr ()'} -> `Int'  #}-{# fun Fl_Clock_second as clockSecond' {id `Ptr ()'} -> `Int'  #}-instance (impl ~ (IO ClockByTime)) => Op (GetValue ()) Clock orig impl where-  runOp _ _ clock' = withRef clock' $ \clockPtr -> do-    hour' <- clockHour' clockPtr-    minute' <- clockMinute' clockPtr-    second' <- clockSecond' clockPtr-    return $ ClockByTime (Hour hour') (Minute minute') (Second second')--{# fun Fl_Clock_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}-instance (impl ~ (ClockType ->  IO ())) => Op (SetType ()) Clock orig impl where-  runOp _ _ clock type'' = withRef clock $ \clockPtr -> setType' clockPtr (fromIntegral (fromEnum type''))+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Clock_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ ( IO (ClockType))) => Op (GetType_ ()) Clock orig impl where-   runOp _ _ clock = withRef clock $ \clockPtr -> type' clockPtr >>= return . toEnum . fromIntegral {# fun Fl_Clock_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Clock orig impl where   runOp _ _ clock = withRef clock $ \clockPtr -> draw'' clockPtr-{# fun Fl_Clock_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Clock orig impl where-  runOp _ _ clock = withRef clock $ \clockPtr -> drawSuper' clockPtr {#fun Fl_Clock_handle as clockHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Clock orig impl where   runOp _ _ clock event = withRef clock (\p -> clockHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Clock_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Clock orig impl where-  runOp _ _ clock event = withRef clock $ \clockPtr -> handleSuper' clockPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Clock_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) Clock orig impl where+  runOp _ _ clock = withRef clock $ \clockPtr -> show' clockPtr+{# fun Fl_Clock_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) Clock orig impl where+  runOp _ _ clock = withRef clock $ \clockPtr -> hide' clockPtr {# fun Fl_Clock_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Clock orig impl where   runOp _ _ clock rectangle = withRef clock $ \clockPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' clockPtr x_pos y_pos w_pos h_pos-{# fun Fl_Clock_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Clock orig impl where-  runOp _ _ clock rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef clock $ \clockPtr -> resizeSuper' clockPtr x_pos y_pos width height-{# fun Fl_Clock_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) Clock orig impl where-  runOp _ _ clock = withRef clock $ \clockPtr -> hide' clockPtr-{# fun Fl_Clock_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Clock orig impl where-  runOp _ _ clock = withRef clock $ \clockPtr -> hideSuper' clockPtr-{# fun Fl_Clock_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) Clock orig impl where-  runOp _ _ clock = withRef clock $ \clockPtr -> show' clockPtr-{# fun Fl_Clock_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Clock orig impl where-  runOp _ _ clock = withRef clock $ \clockPtr -> showSuper' clockPtr-{#fun Fl_Clock_get_shadow as getShadow' {id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO Bool)) => Op (GetShadow ()) Clock orig impl where-  runOp _ _ clock = withRef clock $ \clockPtr -> getShadow' clockPtr-{#fun Fl_Clock_set_shadow as setShadow' {id `Ptr ()', cFromBool `Bool'} -> `()'#}-instance (impl ~ (Bool -> IO ())) => Op (SetShadow ()) Clock orig impl where-  runOp _ _ clock shadow = withRef clock $ \clockPtr -> setShadow' clockPtr shadow --- $Clockfunctions---+-- $hierarchy -- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Clock"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Clock"+-- @++-- $functions+-- @ -- draw :: 'Ref' 'Clock' -> 'IO' () ----- drawSuper :: 'Ref' 'Clock' -> 'IO' ()------ getShadow :: 'Ref' 'Clock' -> 'IO' 'Bool'------ getType_ :: 'Ref' 'Clock' -> 'IO' ('ClockType')------ getValue :: 'Ref' 'Clock' -> 'IO' 'ClockByTime'------ getValueSinceEpoch :: 'Ref' 'Clock' -> 'IO' 'ClockSinceEpoch'--- -- handle :: 'Ref' 'Clock' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Clock' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Clock' -> 'IO' () ----- hideSuper :: 'Ref' 'Clock' -> 'IO' ()--- -- resize :: 'Ref' 'Clock' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Clock' -> 'Rectangle' -> 'IO' ()------ setShadow :: 'Ref' 'Clock' -> 'Bool' -> 'IO' ()------ setType :: 'Ref' 'Clock' -> 'ClockType' -> 'IO' ()--- -- showWidget :: 'Ref' 'Clock' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Clock' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Clock" -- @
src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs view
@@ -1,19 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ColorChooser     (-     -- * Constructor-     colorChooserNew,-     colorChooserCustom,-     rgb2Hsv,-     hsv2Rgb,-     flcColorChooser,-     CustomColorChooserFuncs(..)      -- * Hierarchy      --      -- $hierarchy -     -- *  Functions+     -- * Widget Functions      --      -- $functions     )@@ -22,133 +15,18 @@ #include "Fl_Types.h" #include "Fl_Color_ChooserC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget-+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Data.List-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Control.Applicative--data CustomColorChooserFuncs a =-  CustomColorChooserFuncs-  {-    getModeCustom :: Ref a -> IO ColorChooserMode-  , setModeCustom :: Ref a -> ColorChooserMode -> IO ()-  , hueCustom :: Ref a -> IO Between0And6-  , saturationCustom :: Ref a -> IO Between0And1-  , valueCustom :: Ref a -> IO Between0And1-  , rCustom :: Ref a -> IO Between0And1-  , gCustom :: Ref a -> IO Between0And1-  , bCustom :: Ref a -> IO Between0And1-  , hsvCustom :: Ref a -> (Between0And6,Between0And1,Between0And1) -> IO Int-  , rgbCustom :: Ref a -> (Between0And1,Between0And1,Between0And1) -> IO Int-  }--toGetBetween0And6Prim :: (Ref a -> IO Between0And6) -> IO (FunPtr GetDoublePrim)-toGetBetween0And6Prim f =-  mkGetDouble (\ptr -> do-                  pp <- wrapNonNull ptr "Null pointer: toGetBetween0And6Prim"-                  (Between0And6 res) <- f (castTo (wrapInRef pp))-                  return (realToFrac res))--toGetBetween0And1Prim :: (Ref a -> IO Between0And1) -> IO (FunPtr GetDoublePrim)-toGetBetween0And1Prim f =-  mkGetDouble (\ptr -> do-                  pp <- wrapNonNull ptr "Null pointer: toGetBetween0And1Prim"-                  (Between0And1 res) <- f (castTo (wrapInRef pp))-                  return (realToFrac res))--toGetModePrim :: (Ref a -> IO ColorChooserMode) -> IO (FunPtr GetIntPrim)-toGetModePrim f =-  mkGetInt (\ptr -> do-               pp <- wrapNonNull ptr "Null pointer: toGetModePrim"-               mode <- f (castTo (wrapInRef pp))-               return (fromIntegral (fromEnum mode)))--toSetModePrim :: (Ref a -> ColorChooserMode -> IO ()) -> IO (FunPtr SetIntPrim)-toSetModePrim f =-  mkSetInt (\ptr m -> do-               pp <- wrapNonNull ptr "Null pointer: toSetModePrim"-               f (castTo (wrapInRef pp)) (cToEnum (fromIntegral m)))--toHsvPrim :: (Ref a -> (Between0And6,Between0And1,Between0And1) -> IO Int)-> IO (FunPtr ColorSetPrim)-toHsvPrim f =-  mkColorSetPrim (\ptr (CDouble h) (CDouble s) (CDouble v) -> do-                     pp <- wrapNonNull ptr "Null pointer: toHsvPrim"-                     ret <- f (castTo (wrapInRef pp)) (Between0And6 h,Between0And1 s,Between0And1 v)-                     return (fromIntegral ret))--toRgbPrim :: (Ref a -> (Between0And1,Between0And1,Between0And1) -> IO Int) -> IO (FunPtr ColorSetPrim)-toRgbPrim f =-  mkColorSetPrim (\ptr (CDouble r) (CDouble g) (CDouble b) -> do-                     pp <- wrapNonNull ptr "Null pointer: toRgbPrim"-                     ret <- f (castTo (wrapInRef pp)) (Between0And1 r,Between0And1 g,Between0And1 b)-                     return (fromIntegral ret))--fillCustomColorChooserFunctionStruct :: forall a. (Parent a ColorChooser) => CustomColorChooserFuncs a -> IO (Ptr ())-fillCustomColorChooserFunctionStruct funcs = do-  structPtr <- mallocBytes {#sizeof fl_Color_Chooser_Virtual_Funcs #}-  toGetModePrim (getModeCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->get_mode #} structPtr-  toSetModePrim (setModeCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->set_mode #} structPtr-  toGetBetween0And6Prim (hueCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->hue #} structPtr-  toGetBetween0And1Prim (saturationCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->saturation #} structPtr-  toGetBetween0And1Prim (valueCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->value #} structPtr-  toGetBetween0And1Prim (rCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->r #} structPtr-  toGetBetween0And1Prim (gCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->g #} structPtr-  toGetBetween0And1Prim (bCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->b #} structPtr-  toHsvPrim (hsvCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->hsv #} structPtr-  toRgbPrim (rgbCustom funcs) >>= {#set fl_Color_Chooser_Virtual_Funcs->rgb #} structPtr-  return structPtr--{# fun Fl_OverriddenColor_Chooser_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()', id `Ptr ()' } -> `Ptr ()' id #}-{# fun Fl_OverriddenColor_Chooser_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()', id `Ptr ()' } -> `Ptr ()' id #}-colorChooserCustom ::-       Rectangle                         -- ^ The bounds of this ColorChooser-    -> Maybe T.Text                      -- ^ The ColorChooser label-    -> Maybe (Ref ColorChooser -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomColorChooserFuncs ColorChooser)-    -> Maybe (CustomWidgetFuncs ColorChooser)      -- ^ Optional custom widget functions-    -> IO (Ref ColorChooser)-colorChooserCustom rectangle l' draw' colorChooserFuncs' funcs' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in do-    widgetFuncsPtr <- customWidgetFunctionStruct draw' (maybe defaultCustomWidgetFuncs id funcs')-    colorChooserFuncsPtr <- maybe (return nullPtr) fillCustomColorChooserFunctionStruct colorChooserFuncs'-    colorChooser <--      maybe-        (overriddenWidgetNew' x_pos y_pos width height (castPtr widgetFuncsPtr) (castPtr colorChooserFuncsPtr))-        (\l -> copyTextToCString l >>= \l' -> overriddenWidgetNewWithLabel' x_pos y_pos width height l' (castPtr widgetFuncsPtr) (castPtr colorChooserFuncsPtr))-        l'-    ref <- toRef colorChooser-    setFlag ref WidgetFlagCopiedLabel-    setFlag ref WidgetFlagCopiedTooltip-    return ref+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Color_Chooser_New as colorchooserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Color_Chooser_New_WithLabel as colorchooserNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-colorChooserNew :: Rectangle -> Maybe T.Text -> IO (Ref ColorChooser)-colorChooserNew rectangle l'=-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> colorchooserNew' x_pos y_pos width height >>= toRef-        Just l -> do-          l' <- copyTextToCString l-          ref <- colorchooserNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref {# fun Fl_Color_Chooser_mode as mode' { id `Ptr ()' } -> `Int' #} instance (impl ~ ( IO (ColorChooserMode))) => Op (GetMode ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> mode' color_chooserPtr >>= return . toEnum- {# fun Fl_Color_Chooser_set_mode as setMode' { id `Ptr ()',`Int' } -> `()' #} instance (impl ~ (ColorChooserMode ->  IO ())) => Op (SetMode ()) ColorChooser orig impl where   runOp _ _ color_chooser mode = withRef color_chooser $ \color_chooserPtr -> setMode' color_chooserPtr (fromEnum mode)- {# fun Fl_Color_Chooser_hue as hue' { id `Ptr ()' } -> `Double' #} instance (impl ~ ( IO (Either OutOfRange Between0And6))) => Op (GetHue ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do@@ -156,8 +34,6 @@     if ((h'' < 0.0) || (h'' >= 6.0))      then return (Left OutOfRange)      else return (Right (Between0And6 h''))-- {# fun Fl_Color_Chooser_saturation as saturation' { id `Ptr ()' } -> `Double' #} instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetSaturation ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do@@ -165,7 +41,6 @@     if ((s'' < 0.0) || (s'' > 1.0))      then return (Left OutOfRange)      else return (Right (Between0And1 s''))- {# fun Fl_Color_Chooser_value as value' { id `Ptr ()' } -> `Double' #} instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetValue ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do@@ -173,7 +48,6 @@     if ((v'' < 0.0) || (v'' > 1.0))      then return (Left OutOfRange)      else return (Right (Between0And1 v''))- {# fun Fl_Color_Chooser_r as r' { id `Ptr ()' } -> `Double' #} instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetR ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do@@ -181,7 +55,6 @@     if ((r'' < 0.0) || (r'' > 1.0))      then return (Left OutOfRange)      else return (Right (Between0And1 r''))- {# fun Fl_Color_Chooser_g as g' { id `Ptr ()' } -> `Double' #} instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetG ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do@@ -189,7 +62,6 @@     if ((g'' < 0.0) || (g'' > 1.0))      then return (Left OutOfRange)      else return (Right (Between0And1 g''))- {# fun Fl_Color_Chooser_b as b' { id `Ptr ()' } -> `Double' #} instance (impl ~ ( IO (Either OutOfRange Between0And1))) => Op (GetB ()) ColorChooser orig impl where   runOp _ _ color_chooser = withRef color_chooser $ \color_chooserPtr -> do@@ -197,155 +69,47 @@     if ((b'' < 0.0) || (b'' > 1.0))      then return (Left OutOfRange)      else return (Right (Between0And1 b''))- {# fun Fl_Color_Chooser_hsv as hsv' { id `Ptr ()',`Double', `Double', `Double'} -> `Int' #} instance (impl ~ ((Between0And6, Between0And1, Between0And1) ->  IO (Either NoChange ()))) => Op (SetHsv ()) ColorChooser orig impl where   runOp _ _ color_chooser (Between0And6 h'', Between0And1 s'', Between0And1 v'') =     withRef color_chooser $ \color_chooserPtr -> do       ret <- hsv' color_chooserPtr h'' s'' v''       if (ret == 0) then return (Left NoChange) else return (Right ())- {# fun Fl_Color_Chooser_rgb as rgb' { id `Ptr ()',`Double', `Double', `Double'} -> `Int' #} instance (impl ~ ((Between0And1, Between0And1, Between0And1) ->  IO (Either NoChange ()))) => Op (SetRgb ()) ColorChooser orig impl where   runOp _ _ color_chooser (Between0And1 r'', Between0And1 g'', Between0And1 b'') =     withRef color_chooser $ \color_chooserPtr -> do       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-  runOp _ _ color_chooser = do-    _r <- getR color_chooser-    _g <- getG color_chooser-    _b <- getB color_chooser-    return (do-      r <- _r-      g <- _g-      b <- _b-      return (r,g,b))--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-    _v <- getValue color_chooser-    return (do-      h <- _h-      s <- _s-      v <- _v-      return (h,s,v))- {# fun Fl_Color_Chooser_draw as draw' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) ColorChooser orig impl where   runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> draw' colorChooserPtr-{# fun Fl_Color_Chooser_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) ColorChooser orig impl where-  runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> drawSuper' colorChooserPtr {#fun Fl_Color_Chooser_handle as colorChooserHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ColorChooser orig impl where   runOp _ _ colorChooser event = withRef colorChooser (\p -> colorChooserHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Color_Chooser_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) ColorChooser orig impl where-  runOp _ _ colorChooser event = withRef colorChooser $ \colorChooserPtr -> handleSuper' colorChooserPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Color_Chooser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ColorChooser orig impl where-  runOp _ _ colorChooser rectangle = withRef colorChooser $ \colorChooserPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' colorChooserPtr x_pos y_pos w_pos h_pos-{# fun Fl_Color_Chooser_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) ColorChooser orig impl where-  runOp _ _ colorChooser rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef colorChooser $ \colorChooserPtr -> resizeSuper' colorChooserPtr x_pos y_pos width height {# fun Fl_Color_Chooser_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) ColorChooser orig impl where   runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> hide' colorChooserPtr-{# fun Fl_Color_Chooser_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) ColorChooser orig impl where-  runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> hideSuper' colorChooserPtr {# fun Fl_Color_Chooser_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) ColorChooser orig impl where   runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> show' colorChooserPtr-{# fun Fl_Color_Chooser_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) ColorChooser orig impl where-  runOp _ _ colorChooser = withRef colorChooser $ \colorChooserPtr -> showSuper' colorChooserPtr---{# fun Fl_Color_Chooser_hsv2rgb as hsv2rgb' {`Double',`Double',`Double', id `Ptr CDouble', id `Ptr CDouble',id `Ptr CDouble' } -> `()' #}-hsv2Rgb :: (Between0And6, Between0And1, Between0And1) ->  IO (Maybe (Between0And1, Between0And1, Between0And1))-hsv2Rgb (Between0And6 h'', Between0And1 s'', Between0And1 v'') =-  alloca $ \rPtr ->-  alloca $ \gPtr ->-  alloca $ \bPtr -> do-    hsv2rgb' h'' s'' v'' rPtr gPtr bPtr-    r'' <- peek rPtr-    g'' <- peek gPtr-    b'' <- peek bPtr-    return (Just (Between0And1 (realToFrac r''),Between0And1 (realToFrac g''),Between0And1 (realToFrac b'')))--{# fun Fl_Color_Chooser_rgb2hsv as rgb2hsv' {`Double',`Double',`Double', id `Ptr CDouble', id `Ptr CDouble',id `Ptr CDouble' } -> `()' #}-rgb2Hsv :: (Between0And1, Between0And1, Between0And1) ->  IO (Maybe (Between0And6, Between0And1, Between0And1))-rgb2Hsv (Between0And1 h'', Between0And1 s'', Between0And1 v'') =-  alloca $ \hPtr ->-  alloca $ \sPtr ->-  alloca $ \vPtr -> do-    rgb2hsv' h'' s'' v'' hPtr sPtr vPtr-    let (nullPtrs, nonNullPtrs) = partition ((==) nullPtr) [hPtr, sPtr, vPtr]-    if (not (null nullPtrs))-     then mapM_ free nonNullPtrs >> return Nothing-     else do-       h''' <- peek hPtr-       s''' <- peek sPtr-       v''' <- peek vPtr-       return (Just (Between0And6 (realToFrac h'''),Between0And1 (realToFrac s'''),Between0And1 (realToFrac v''')))--{# fun flc_color_chooser_with_m as flc_color_chooser_with_m' {`CString' , id `Ptr CDouble', id `Ptr CDouble', id `Ptr CDouble', `Int' } -> `Int' #}-{# fun flc_color_chooser_with_uchar_m as flc_color_chooser_with_uchar_m' {`CString' , id `Ptr CUChar', id `Ptr CUChar', id `Ptr CUChar', `Int' } -> `Int' #}-flcColorChooser :: T.Text ->-                   ColorChooserRGB ->-                   Maybe ColorChooserMode ->-                   IO (Maybe ColorChooserRGB)-flcColorChooser name (Decimals (Between0And1 r'', Between0And1 g'', Between0And1 b'')) mode =-  alloca $ \r''Ptr ->-  alloca $ \g''Ptr ->-  alloca $ \b''Ptr -> do-    poke r''Ptr $ realToFrac r''-    poke g''Ptr $ realToFrac g''-    poke b''Ptr $ realToFrac b''-    ret <- copyTextToCString name >>= \n' -> flc_color_chooser_with_m' n' r''Ptr g''Ptr b''Ptr (maybe (-1) fromEnum mode)-    if (ret == 0)-     then return Nothing-     else do-      newR <- peek r''Ptr-      newG <- peek g''Ptr-      newB <- peek b''Ptr-      return (Just (Decimals-                     (Between0And1 (realToFrac newR),-                      Between0And1 (realToFrac newG),-                      Between0And1 (realToFrac newB))))-flcColorChooser name (Words (r,g,b)) mode =-  alloca $ \r''Ptr ->-  alloca $ \g''Ptr ->-  alloca $ \b''Ptr -> do-    poke r''Ptr (fromIntegral r)-    poke g''Ptr (fromIntegral g)-    poke b''Ptr (fromIntegral b)-    ret <- copyTextToCString name >>= \n' -> flc_color_chooser_with_uchar_m' n' r''Ptr g''Ptr b''Ptr (maybe (-1) fromEnum mode)-    if (ret == 0)-     then return Nothing-     else do-      newR <- peek r''Ptr-      newG <- peek g''Ptr-      newB <- peek b''Ptr-      return (Just (Words ((fromIntegral newR), (fromIntegral newG), (fromIntegral newB))))+{# fun Fl_Color_Chooser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ColorChooser orig impl where+  runOp _ _ colorChooser rectangle = withRef colorChooser $ \colorChooserPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' colorChooserPtr x_pos y_pos w_pos h_pos  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.ColorChooser"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.ColorChooser" -- @ @@ -353,38 +117,26 @@ -- @ -- draw :: 'Ref' 'ColorChooser' -> 'IO' () ----- drawSuper :: 'Ref' 'ColorChooser' -> 'IO' ()--- -- getB :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1') -- -- 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') -- -- getValue :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1') -- -- handle :: 'Ref' 'ColorChooser' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'ColorChooser' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'ColorChooser' -> 'IO' () ----- hideSuper :: 'Ref' 'ColorChooser' -> 'IO' ()--- -- resize :: 'Ref' 'ColorChooser' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'ColorChooser' -> 'Rectangle' -> 'IO' ()--- -- setHsv :: 'Ref' 'ColorChooser' -> ('Between0And6', 'Between0And1', 'Between0And1') -> 'IO' ('Either' 'NoChange' ()) -- -- setMode :: 'Ref' 'ColorChooser' -> 'ColorChooserMode' -> 'IO' ()@@ -392,7 +144,4 @@ -- setRgb :: 'Ref' 'ColorChooser' -> ('Between0And1', 'Between0And1', 'Between0And1') -> 'IO' ('Either' 'NoChange' ()) -- -- showWidget :: 'Ref' 'ColorChooser' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'ColorChooser' -> 'IO' ()--- -- @
src/Graphics/UI/FLTK/LowLevel/CopySurface.chs view
@@ -9,7 +9,7 @@           -- * CopySurface          ---         -- $CopySurfacefunctions+         -- $functions        ) where #include "Fl_ExportMacros.h"@@ -34,10 +34,10 @@   runOp _ _ copy_surface = withRef copy_surface $ \copy_surfacePtr -> setCurrent' copy_surfacePtr  {# fun Fl_Copy_Surface_draw as draw' { id `Ptr ()',id `Ptr ()',`Int',`Int' } -> `()' #}-instance (Parent a Widget, impl ~ ( Ref a  -> Position -> IO ())) => Op (Draw ()) CopySurface orig impl where+instance (Parent a WidgetBase, impl ~ ( Ref a  -> Position -> IO ())) => Op (Draw ()) CopySurface orig impl where   runOp _ _ copy_surface widget (Position (X delta_x) (Y delta_y)) = withRef copy_surface $ \copy_surfacePtr -> withRef widget $ \widgetPtr -> draw' copy_surfacePtr widgetPtr delta_x delta_y --- $CopySurfacefunctions+-- $functions -- -- @ -- destroy :: 'Ref' 'CopySurface' -> 'IO' ()
src/Graphics/UI/FLTK/LowLevel/Counter.chs view
@@ -1,192 +1,67 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Counter     (-     -- * Constructor-     counterNew,-     counterCustom,-     CounterType(..)      -- * Hierarchy      --      -- $hierarchy -     -- * Functions-     ---     -- $Counterfunctions+     -- * Widget Functions      --+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_CounterC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--#c-enum CounterType {-  NormalCounterType = FL_NORMAL_COUNTERC,-  SimpleCounterType = FL_SIMPLE_COUNTERC-};-#endc-{#enum CounterType {} deriving (Show, Eq) #}--{# fun Fl_OverriddenCounter_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenCounter_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-counterCustom ::-       Rectangle                         -- ^ The bounds of this Counter-    -> Maybe T.Text                      -- ^ The Counter label-    -> Maybe (Ref Counter -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Counter)      -- ^ Optional custom widget functions-    -> IO (Ref Counter)-counterCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Counter_New as counterNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Counter_New_WithLabel as counterNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-counterNew :: Rectangle -> Maybe T.Text -> IO (Ref Counter)-counterNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Counter_Destroy as counterDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Counter orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    counterDestroy' winPtr-    return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Counter_lstep as lstep' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (Double ->  IO ())) => Op (SetLstep ()) Counter orig impl where-  runOp _ _ counter lstep = withRef counter $ \counterPtr -> lstep' counterPtr lstep-{# fun Fl_Counter_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) Counter orig impl where-  runOp _ _ counter text = withRef counter $ \counterPtr -> setTextfont' counterPtr text-{# fun Fl_Counter_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) Counter orig impl where-  runOp _ _ counter = withRef counter $ \counterPtr -> textfont' counterPtr-{# fun Fl_Counter_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) Counter orig impl where-  runOp _ _ counter (FontSize text) = withRef counter $ \counterPtr -> setTextsize' counterPtr text-{# fun Fl_Counter_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) Counter orig impl where-  runOp _ _ counter = withRef counter $ \counterPtr -> textsize' counterPtr >>= return . FontSize-{# fun Fl_Counter_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) Counter orig impl where-  runOp _ _ counter text = withRef counter $ \counterPtr -> setTextcolor' counterPtr text-{# fun Fl_Counter_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) Counter orig impl where-  runOp _ _ counter = withRef counter $ \counterPtr -> textcolor' counterPtr-{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (CounterType ->  IO ())) => Op (SetType ()) Counter orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (CounterType)) => Op (GetType_ ()) Counter orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger {# fun Fl_Counter_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Counter orig impl where   runOp _ _ counter = withRef counter $ \counterPtr -> draw'' counterPtr-{# fun Fl_Counter_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Counter orig impl where-  runOp _ _ counter = withRef counter $ \counterPtr -> drawSuper' counterPtr {#fun Fl_Counter_handle as counterHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Counter orig impl where   runOp _ _ counter event = withRef counter (\p -> counterHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Counter_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Counter orig impl where-  runOp _ _ counter event = withRef counter $ \counterPtr -> handleSuper' counterPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Counter_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Counter orig impl where   runOp _ _ counter rectangle = withRef counter $ \counterPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' counterPtr x_pos y_pos w_pos h_pos-{# fun Fl_Counter_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Counter orig impl where-  runOp _ _ counter rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef counter $ \counterPtr -> resizeSuper' counterPtr x_pos y_pos width height {# fun Fl_Counter_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Counter orig impl where   runOp _ _ counter = withRef counter $ \counterPtr -> hide' counterPtr-{# fun Fl_Counter_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Counter orig impl where-  runOp _ _ counter = withRef counter $ \counterPtr -> hideSuper' counterPtr {# fun Fl_Counter_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Counter orig impl where   runOp _ _ counter = withRef counter $ \counterPtr -> show' counterPtr-{# fun Fl_Counter_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Counter orig impl where-  runOp _ _ counter = withRef counter $ \counterPtr -> showSuper' counterPtr --- $Counterfunctions---+-- $hierarchy -- @--- destroy :: 'Ref' 'Counter' -> 'IO' ()---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Counter"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Counter"+-- @++-- $functions+-- @ -- draw :: 'Ref' 'Counter' -> 'IO' () ----- drawSuper :: 'Ref' 'Counter' -> 'IO' ()------ getTextcolor :: 'Ref' 'Counter' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'Counter' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'Counter' -> 'IO' ('FontSize')------ getType_ :: 'Ref' 'Counter' -> 'IO' ('CounterType')--- -- handle :: 'Ref' 'Counter' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Counter' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Counter' -> 'IO' () ----- hideSuper :: 'Ref' 'Counter' -> 'IO' ()--- -- resize :: 'Ref' 'Counter' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Counter' -> 'Rectangle' -> 'IO' ()------ setLstep :: 'Ref' 'Counter' -> 'Double' -> 'IO' ()------ setTextcolor :: 'Ref' 'Counter' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'Counter' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'Counter' -> 'FontSize' -> 'IO' ()------ setType :: 'Ref' 'Counter' -> 'CounterType' -> 'IO' ()--- -- showWidget :: 'Ref' 'Counter' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Counter' -> 'IO' ()------ @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Counter" -- @
src/Graphics/UI/FLTK/LowLevel/Dial.chs view
@@ -1,181 +1,67 @@-{-# LANGUAGE TypeFamilies,CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Dial     (-     -- * Constructor-     dialNew,-     dialCustom,-     DialType(..)      -- * Hierarchy      --      -- $hierarchy -     -- * Dial functions+     -- * Widget Functions      ---     -- $Dialfunctions+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_DialC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--#c-enum DialType {-  NormalDialType = FL_NORMAL_DIALC,-  LineDialType = FL_LINE_DIALC,-  FillDialType = FL_FILL_DIALC-};-#endc-{#enum DialType {} deriving (Show, Eq) #}--{# fun Fl_OverriddenDial_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenDial_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-dialCustom ::-       Rectangle                         -- ^ The bounds of this Dial-    -> Maybe T.Text                      -- ^ The Dial label-    -> Maybe (Ref Dial -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Dial)      -- ^ Optional custom widget functions-    -> IO (Ref Dial)-dialCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Dial_New as dialNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Dial_New_WithLabel as dialNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-dialNew :: Rectangle -> Maybe T.Text -> IO (Ref Dial)-dialNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Dial_Destroy as dialDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Dial orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    dialDestroy' winPtr-    return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Dial_set_angle1 as setAngle1' { id `Ptr ()',id `CShort' } -> `()' #}-instance (impl ~ ( Angle -> IO ())) => Op (SetAngle1 ()) Dial orig impl where-  runOp _ _ dial (Angle a) = withRef dial $ \dialPtr -> setAngle1' dialPtr a-{# fun Fl_Dial_set_angle2 as setAngle2' { id `Ptr ()',id `CShort' } -> `()' #}-instance (impl ~ ( Angle -> IO ())) => Op (SetAngle2 ()) Dial orig impl where-  runOp _ _ dial (Angle a) = withRef dial $ \dialPtr -> setAngle2' dialPtr a-{# fun Fl_Dial_angle1 as angle1' { id `Ptr ()' } -> `CShort' id #}-instance (impl ~ ( IO (Angle))) => Op (GetAngle1 ()) Dial orig impl where-  runOp _ _ dial = withRef dial $ \dialPtr -> angle1' dialPtr >>= return . Angle-{# fun Fl_Dial_angle2 as angle2' { id `Ptr ()' } -> `CShort' id #}-instance (impl ~ ( IO (Angle))) => Op (GetAngle2 ()) Dial orig impl where-  runOp _ _ dial = withRef dial $ \dialPtr -> angle2' dialPtr >>= return . Angle-instance (impl ~ ( Angle -> Angle -> IO ())) => Op (SetAngles ()) Dial orig impl where-  runOp _ _ dial a1' a2' = do-    setAngle1 dial a1'-    setAngle2 dial a2'-{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (DialType ->  IO ())) => Op (SetType ()) Dial orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (DialType)) => Op (GetType_ ()) Dial orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger-{# fun Fl_Dial_draw as draw'' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Draw ()) Dial orig impl where-  runOp _ _ dial = withRef dial $ \dialPtr -> draw'' dialPtr-{# fun Fl_Dial_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Dial orig impl where-  runOp _ _ dial = withRef dial $ \dialPtr -> drawSuper' dialPtr-{#fun Fl_Dial_handle as dialHandle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Dial orig impl where-  runOp _ _ dial event = withRef dial (\p -> dialHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Dial_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Dial orig impl where-  runOp _ _ dial event = withRef dial $ \dialPtr -> handleSuper' dialPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Dial_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Dial orig impl where   runOp _ _ dial rectangle = withRef dial $ \dialPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' dialPtr x_pos y_pos w_pos h_pos-{# fun Fl_Dial_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Dial orig impl where-  runOp _ _ dial rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef dial $ \dialPtr -> resizeSuper' dialPtr x_pos y_pos width height {# fun Fl_Dial_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Dial orig impl where   runOp _ _ dial = withRef dial $ \dialPtr -> hide' dialPtr-{# fun Fl_Dial_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Dial orig impl where-  runOp _ _ dial = withRef dial $ \dialPtr -> hideSuper' dialPtr {# fun Fl_Dial_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Dial orig impl where   runOp _ _ dial = withRef dial $ \dialPtr -> show' dialPtr-{# fun Fl_Dial_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Dial orig impl where-  runOp _ _ dial = withRef dial $ \dialPtr -> showSuper' dialPtr+{#fun Fl_Dial_handle as dialHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Dial orig impl where+  runOp _ _ dial event = withRef dial (\p -> dialHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Dial_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) Dial orig impl where+  runOp _ _ dial = withRef dial $ \dialPtr -> draw'' dialPtr --- $Dialfunctions---+-- $hierarchy -- @--- destroy :: 'Ref' 'Dial' -> 'IO' ()---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Dial"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Dial"+-- @++-- $functions+-- @ -- draw :: 'Ref' 'Dial' -> 'IO' () ----- drawSuper :: 'Ref' 'Dial' -> 'IO' ()------ getAngle1 :: 'Ref' 'Dial' -> 'IO' ('Angle')------ getAngle2 :: 'Ref' 'Dial' -> 'IO' ('Angle')------ getType_ :: 'Ref' 'Dial' -> 'IO' ('DialType')--- -- handle :: 'Ref' 'Dial' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Dial' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Dial' -> 'IO' () ----- hideSuper :: 'Ref' 'Dial' -> 'IO' ()--- -- resize :: 'Ref' 'Dial' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Dial' -> 'Rectangle' -> 'IO' ()------ setAngle1 :: 'Ref' 'Dial' -> 'Angle' -> 'IO' ()------ setAngle2 :: 'Ref' 'Dial' -> 'Angle' -> 'IO' ()------ setAngles :: 'Ref' 'Dial' -> 'Angle' -> 'Angle' -> 'IO' ()------ setType :: 'Ref' 'Dial' -> 'DialType' -> 'IO' ()--- -- showWidget :: 'Ref' 'Dial' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Dial' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Dial" -- @
src/Graphics/UI/FLTK/LowLevel/Dispatch.hs view
@@ -73,6 +73,8 @@                                         ('Text " is not supported by ")                                         ':<>:                                         ('ShowType w)+                                        ':<>:+                                        ('ShowType (Functions ws))                                       ) #else   FindOp orig () n = NoFunction n orig@@ -133,7 +135,7 @@  -- | Cast any reference to one of its ancestors. safeCast :: (Parent a r) => Ref a -> Ref r-safeCast (Ref x) = (Ref x)+safeCast (Ref x) = Ref x  -- | Given some member function @op@ and a 'Ref' to some class @origObj@ return -- the implementation of @op@. See 'Op' for more details.
src/Graphics/UI/FLTK/LowLevel/DoubleWindow.chs view
@@ -1,17 +1,6 @@ {-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.DoubleWindow-  (-    doubleWindowNew,-    doubleWindowCustom-    -- * Hierarchy-    ---    -- $hierarchy--    -- * DoubleWindow functions-    ---    -- $DoubleWindowfunctions-  ) where #include "Fl_C.h" #include "Fl_Double_WindowC.h"@@ -21,134 +10,59 @@ import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Window -{# fun Fl_OverriddenDouble_Window_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenDouble_Window_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenDouble_Window_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenDouble_Window_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-doubleWindowCustom :: Size                              -- ^ Size of this window-                   -> Maybe Position                    -- ^ Optional position of this window-                   -> Maybe T.Text                      -- ^ Optional label-                   -> Maybe (Ref DoubleWindow -> IO ()) -- ^ Optional table drawing routine-                   -> CustomWidgetFuncs DoubleWindow    -- ^ Custom widget overrides-                   -> CustomWindowFuncs DoubleWindow    -- ^ Custom window overrides-                   -> IO (Ref DoubleWindow)-doubleWindowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =-  windowMaker-    size-    position-    title-    draw'-    customWidgetFuncs'-    customWindowFuncs'-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'--doubleWindowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref DoubleWindow)-doubleWindowNew size position title =-  windowMaker-    size-    position-    title-    Nothing-    (defaultCustomWidgetFuncs :: CustomWidgetFuncs DoubleWindow)-    (defaultCustomWindowFuncs :: CustomWindowFuncs DoubleWindow)-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'--{# fun Fl_Double_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedDouble_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (Destroy ()) DoubleWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr -{# fun Fl_Double_Window_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) DoubleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> drawSuper' windowPtr--{# fun Fl_Double_Window_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) DoubleWindow orig impl where-  runOp _ _ window event = withRef window $ \windowPtr -> handleSuper' windowPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent--{# fun Fl_Double_Window_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) DoubleWindow orig impl where-  runOp _ _ window rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef window $ \windowPtr -> resizeSuper' windowPtr x_pos y_pos width height--{# fun Fl_Double_Window_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) DoubleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> showSuper' windowPtr--{# fun Fl_Double_Window_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) DoubleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> hideSuper' windowPtr--{# fun Fl_Double_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedDouble_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Hide ()) DoubleWindow orig impl where   runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr -{# fun Fl_Double_Window_flush_super as flushSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (FlushSuper ()) DoubleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> flushSuper' windowPtr--{# fun Fl_Double_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedDouble_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (ShowWidget ()) DoubleWindow orig impl where   runOp _ _ window = withRef window (\p -> windowShow' p) -{#fun Fl_Double_Window_handle as windowHandle'+{#fun Fl_DerivedDouble_Window_handle as windowHandle'       { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) DoubleWindow orig impl where   runOp _ _ window event = withRef window (\p -> windowHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent -{# fun Fl_Double_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedDouble_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) DoubleWindow orig impl where   runOp _ _ window rectangle = withRef window $ \windowPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' windowPtr x_pos y_pos w_pos h_pos--- $DoubleWindowfunctions+{# fun Fl_DerivedDouble_Window_flush as flush' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Flush ()) DoubleWindow orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr++-- $hierarchy -- @---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.DoubleWindow"+-- @++-- $functions+-- @ -- destroy :: 'Ref' 'DoubleWindow' -> 'IO' () ----- drawSuper :: 'Ref' 'DoubleWindow' -> 'IO' ()------ flushSuper :: 'Ref' 'DoubleWindow' -> 'IO' ()+-- flush :: 'Ref' 'DoubleWindow' -> 'IO' () -- -- handle :: 'Ref' 'DoubleWindow' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'DoubleWindow' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'DoubleWindow' -> 'IO' () ----- hideSuper :: 'Ref' 'DoubleWindow' -> 'IO' ()--- -- resize :: 'Ref' 'DoubleWindow' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'DoubleWindow' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'DoubleWindow' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'DoubleWindow' -> 'IO' ()--- @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Window"---  |---  v--- "Graphics.UI.FLTK.LowLevel.DoubleWindow" -- @
src/Graphics/UI/FLTK/LowLevel/Draw.chs view
@@ -657,7 +657,7 @@ flcSetStatus rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcSetStatus' x_pos' y_pos' width' height'  {# fun flc_set_spot_with_win as flcSetSpotWithWin' { `Int',`CInt',`Int',`Int',`Int',`Int',id `Ptr ()' } -> `()' #}-flcSetSpotWithWin :: (Parent a Window) => Font -> FontSize -> Rectangle -> Ref a -> IO ()+flcSetSpotWithWin :: (Parent a WindowBase) => Font -> FontSize -> Rectangle -> Ref a -> IO () flcSetSpotWithWin (Font font') (FontSize size') rectangle win = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef win $ \winPtr -> flcSetSpotWithWin' font' size' x_pos' y_pos' width' height' winPtr  {# fun flc_set_spot as flcSetSpot' { `Int',`CInt',`Int',`Int',`Int',`Int' } -> `()' #}
src/Graphics/UI/FLTK/LowLevel/FL.chs view
@@ -119,7 +119,6 @@      -- * Box      BoxtypeSpec(..),      getBoxtype,-     getBoxtypePrim,      setBoxtype,      boxDx,      boxDy,@@ -282,9 +281,6 @@ awakeToHandler :: IO () awakeToHandler = {#call Fl_awake_to_handler as fl_awake_to_handler #} -unsafeToCallbackPrim :: GlobalCallback -> FunPtr CallbackPrim-unsafeToCallbackPrim = (Unsafe.unsafePerformIO) . toGlobalCallbackPrim- {# fun Fl_add_awake_handler_ as addAwakeHandler'   {id `FunPtr CallbackPrim', id `(Ptr ())'} -> `Int' #} addAwakeHandler_ :: GlobalCallback -> IO (Either AwakeRingFull ())@@ -369,26 +365,60 @@ {# fun Fl_readqueue as readqueue' {  } -> `Ptr ()' #} readqueue :: IO (Maybe (Ref Widget)) readqueue = readqueue' >>= toMaybeRef-{# fun Fl_add_timeout as addTimeout-       { `Double', unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}-{# fun Fl_repeat_timeout as repeatTimeout-      { `Double',unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}+{# fun Fl_add_timeout as addTimeout'+       { `Double', id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}++-- | Returns a function pointer so it can be freed with `freeHaskellFunPtr`, please don't invoke it.+addTimeout :: Double -> GlobalCallback -> IO (FunPtr CallbackPrim)+addTimeout t cb = do+  fp <- toGlobalCallbackPrim cb+  addTimeout' t fp+  return fp++{# fun Fl_repeat_timeout as repeatTimeout'+      { `Double',id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}+-- | Returns a function pointer so it can be freed with `freeHaskellFunPtr`, please don't invoke it.+repeatTimeout :: Double -> GlobalCallback -> IO (FunPtr CallbackPrim)+repeatTimeout t cb = do+  fp <- toGlobalCallbackPrim cb+  repeatTimeout' t fp+  return fp+ {# fun Fl_has_timeout as hasTimeout-       { unsafeToCallbackPrim `GlobalCallback' } -> `Int' #}+       { id `FunPtr CallbackPrim' } -> `Bool' toBool #}+ {# fun Fl_remove_timeout as removeTimeout-       { unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}-{# fun Fl_add_check as addCheck-       { unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}+       { id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}++{# fun Fl_add_check as addCheck'+       { id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}+-- | Returns a function pointer so it can be freed with `freeHaskellFunPtr`, please don't invoke it.+addCheck :: GlobalCallback -> IO (FunPtr CallbackPrim)+addCheck cb = do+  fp <- toGlobalCallbackPrim cb+  addCheck' fp+  return fp+ {# fun Fl_has_check as hasCheck-       { unsafeToCallbackPrim `GlobalCallback' } -> `Int' #}+       { id `FunPtr CallbackPrim' } -> `Bool' toBool #} {# fun Fl_remove_check as removeCheck-       { unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}-{# fun Fl_add_idle as addIdle-       { unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}+       { id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}++{# fun Fl_add_idle as addIdle'+       { id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}+-- | Returns a function pointer so it can be freed with `freeHaskellFunPtr`, please don't invoke it.+addIdle :: GlobalCallback -> IO (FunPtr CallbackPrim)+addIdle cb = do+  fp <- toGlobalCallbackPrim cb+  addIdle' fp+  return fp+ {# fun Fl_has_idle as hasIdle-       { unsafeToCallbackPrim `GlobalCallback' } -> `Int' #}+       { id `FunPtr CallbackPrim' } -> `Bool' toBool #}+ {# fun Fl_remove_idle as removeIdle-       { unsafeToCallbackPrim `GlobalCallback' } -> `()' supressWarningAboutRes #}+       { id `FunPtr CallbackPrim' } -> `()' supressWarningAboutRes #}+ {# fun Fl_damage as damage        {  } -> `Int' #} {# fun Fl_redraw as redraw@@ -401,7 +431,7 @@  {# fun Fl_set_first_window as setFirstWindow'        { id `Ptr ()' } -> `()' supressWarningAboutRes #}-setFirstWindow :: (Parent a Window) => Ref a -> IO ()+setFirstWindow :: (Parent a WindowBase) => Ref a -> IO () setFirstWindow wp =     withRef wp setFirstWindow' {# fun Fl_next_window as nextWindow' { id `Ptr ()' } -> `Ptr ()' #}@@ -418,7 +448,7 @@  {# fun Fl_set_grab as setGrab'        { id `Ptr ()' } -> `()' supressWarningAboutRes #}-setGrab :: (Parent a Window) => Ref a -> IO ()+setGrab :: (Parent a WindowBase) => Ref a -> IO () setGrab wp = withRef wp setGrab' {# fun Fl_event as event        {  } -> `Event' cToEnum #}@@ -554,7 +584,7 @@       return $ toEnum eventNum {# fun Fl_event_inside_widget as eventInsideWidget'        { id `Ptr ()' } -> `Int' #}-eventInsideWidget :: (Parent a Widget) => Ref a -> IO Event+eventInsideWidget :: (Parent a WidgetBase) => Ref a -> IO Event eventInsideWidget wp =     withRef wp  (\ptr -> do                       eventNum <- eventInsideWidget' (castPtr ptr)@@ -567,12 +597,12 @@        {} -> `()' supressWarningAboutRes #} {# fun Fl_handle as handle'        { `Int',id `Ptr ()' } -> `Int' #}-handle :: (Parent a Window) =>  Event -> Ref a -> IO (Either UnknownEvent ())+handle :: (Parent a WindowBase) =>  Event -> Ref a -> IO (Either UnknownEvent ()) handle e wp =     withRef wp (handle' (cFromEnum e)) >>= return . successOrUnknownEvent {# fun Fl_handle_ as handle_'        { `Int',id `Ptr ()' } -> `Int' #}-handle_ :: (Parent a Window) =>  Event -> Ref a -> IO (Either UnknownEvent ())+handle_ :: (Parent a WindowBase) =>  Event -> Ref a -> IO (Either UnknownEvent ()) handle_ e wp =     withRef wp (handle_' (cFromEnum e)) >>= return . successOrUnknownEvent {# fun Fl_belowmouse as belowmouse' {  } -> `Ptr ()' #}@@ -580,7 +610,7 @@ belowmouse = belowmouse' >>= toMaybeRef {# fun Fl_set_belowmouse as setBelowmouse'        { id `Ptr ()' } -> `()' supressWarningAboutRes #}-setBelowmouse :: (Parent a Widget) => Ref a -> IO ()+setBelowmouse :: (Parent a WidgetBase) => Ref a -> IO () setBelowmouse wp = withRef wp setBelowmouse' {# fun Fl_pushed as pushed'        {  } -> `Ptr ()' #}@@ -588,21 +618,21 @@ pushed = pushed' >>= toMaybeRef {# fun Fl_set_pushed as setPushed'        { id `Ptr ()' } -> `()' supressWarningAboutRes #}-setPushed :: (Parent a Widget) => Ref a -> IO ()+setPushed :: (Parent a WidgetBase) => Ref a -> IO () setPushed wp = withRef wp setPushed' {# fun Fl_focus as focus' {  } -> `Ptr ()' #} focus :: IO (Maybe (Ref Widget)) focus = focus' >>= toMaybeRef {# fun Fl_set_focus as setFocus'        { id `Ptr ()' } -> `()' supressWarningAboutRes #}-setFocus :: (Parent a Widget) => Ref a -> IO ()+setFocus :: (Parent a WidgetBase) => Ref a -> IO () setFocus wp = withRef wp setFocus' {# fun Fl_selection_owner as selectionOwner' {  } -> `Ptr ()' #} selectionOwner :: IO (Maybe (Ref Widget)) selectionOwner = selectionOwner' >>= toMaybeRef {# fun Fl_set_selection_owner as setSelection_Owner'        { id `Ptr ()' } -> `()' supressWarningAboutRes #}-setSelectionOwner :: (Parent a Widget) => Ref a -> IO ()+setSelectionOwner :: (Parent a WidgetBase) => Ref a -> IO () setSelectionOwner wp = withRef wp setSelection_Owner' {# fun Fl_add_handler as addHandler'        { id `FunPtr GlobalEventHandlerPrim' } -> `()' supressWarningAboutRes #}@@ -615,6 +645,7 @@     old <- readIORef ptrToGlobalEventHandler     writeIORef ptrToGlobalEventHandler newGlobalEventHandler     return old+  freeHaskellFunPtr curr   removeHandler' curr   addHandler' newGlobalEventHandler @@ -622,7 +653,7 @@        { id `Ptr (FunPtr EventDispatchPrim)' } -> `()' supressWarningAboutRes #} {# fun Fl_event_dispatch as eventDispatch'        {  } -> `FunPtr EventDispatchPrim' id #}-eventDispatch :: (Parent a Widget) =>+eventDispatch :: (Parent a WidgetBase) =>    IO (Event -> Ref a -> IO (Either UnknownEvent ())) eventDispatch =     do@@ -639,7 +670,7 @@              )  setEventDispatch ::-    (Parent a Widget) =>+    (Parent a WidgetBase) =>     (Event -> Ref a -> IO (Either UnknownEvent ())) -> IO () setEventDispatch ed = do     do@@ -674,16 +705,16 @@  {# fun Fl_paste_with_source_type as pasteWithSourceType { id `Ptr ()',`Int', `CString' } -> `()' supressWarningAboutRes #} -pasteImageFromSelectionBuffer :: (Parent a Widget) => Ref a -> IO ()+pasteImageFromSelectionBuffer :: (Parent a WidgetBase) => Ref a -> IO () pasteImageFromSelectionBuffer widget = withRef widget (\widgetPtr -> withText (T.pack "Fl::clipboard_image") (\t -> pasteWithSourceType widgetPtr 0 t)) -pasteFromSelectionBuffer :: (Parent a Widget) => Ref a -> IO ()+pasteFromSelectionBuffer :: (Parent a WidgetBase) => Ref a -> IO () pasteFromSelectionBuffer widget = withRef widget (\widgetPtr -> withText (T.pack "Fl::clipboard_plain_text") (\t -> pasteWithSourceType widgetPtr 0 t)) -pasteImageFromClipboard :: (Parent a Widget) => Ref a -> IO ()+pasteImageFromClipboard :: (Parent a WidgetBase) => Ref a -> IO () pasteImageFromClipboard widget = withRef widget (\widgetPtr -> withText (T.pack "Fl::clipboard_image") (\t -> pasteWithSourceType widgetPtr 1 t)) -pasteFromClipboard :: (Parent a Widget) => Ref a -> IO ()+pasteFromClipboard :: (Parent a WidgetBase) => Ref a -> IO () pasteFromClipboard widget = withRef widget (\widgetPtr -> withText (T.pack "Fl::clipboard_plain_text") (\t -> pasteWithSourceType widgetPtr 1 t))  {# fun Fl_dnd as dnd@@ -916,13 +947,8 @@ removeFd :: CInt -> IO () removeFd fd = removeFd' fd -{# fun Fl_get_boxtype as getBoxtypePrim+{# fun Fl_get_boxtype as getBoxtype        { cFromEnum `Boxtype' } -> `FunPtr BoxDrawFPrim' id #}-getBoxtype :: Boxtype -> IO BoxDrawF-getBoxtype bt = do-  wrappedFunPtr <- getBoxtypePrim bt-  let boxDrawPrim = unwrapBoxDrawFPrim wrappedFunPtr-  return $ toBoxDrawF boxDrawPrim  {# fun Fl_set_boxtype as setBoxtype'        {@@ -1005,18 +1031,18 @@ setDndTextOps =  {#call Fl_set_dnd_text_ops as fl_set_dnd_text_ops #} . fromBool dndTextOps :: IO Option dndTextOps = {#call Fl_dnd_text_ops as fl_dnd_text_ops #} >>= return . cToEnum-deleteWidget :: (Parent a Widget) => Ref a -> IO ()+deleteWidget :: (Parent a WidgetBase) => Ref a -> IO () deleteWidget wptr =   swapRef wptr $ \ptr -> do     {#call Fl_delete_widget as fl_delete_widget #} ptr     return nullPtr doWidgetDeletion :: IO () doWidgetDeletion = {#call Fl_do_widget_deletion as fl_do_widget_deletion #}-watchWidgetPointer :: (Parent a Widget) => Ref a -> IO ()+watchWidgetPointer :: (Parent a WidgetBase) => Ref a -> IO () watchWidgetPointer wp = withRef wp {#call Fl_watch_widget_pointer as fl_Watch_widget_Pointer #}-releaseWidgetPointer :: (Parent a Widget) => Ref a -> IO ()+releaseWidgetPointer :: (Parent a WidgetBase) => Ref a -> IO () releaseWidgetPointer wp = withRef wp {#call Fl_release_widget_pointer as fl_release_widget_pointer #}-clearWidgetPointer :: (Parent a Widget) => Ref a -> IO ()+clearWidgetPointer :: (Parent a WidgetBase) => Ref a -> IO () clearWidgetPointer wp = withRef wp {#call Fl_clear_widget_pointer as fl_Clear_Widget_Pointer #} -- | Only available on FLTK version 1.3.4 and above. setBoxColor :: Color -> IO ()
src/Graphics/UI/FLTK/LowLevel/FLTKHS.hs view
@@ -66,8 +66,34 @@           -- * API Guide          ---         -- $APIGuide+         -- ** Guide to the Haddock Docs+         --+         -- $guidetothehaddockdocs +         -- ** Widget Construction+         --+         -- $widgetconstruction+        +         -- ** Widget Methods+         --+         -- $widgetmethods++         -- ** Widget Hierachy+         --+         -- $widgethierarchyguide+      +         -- ** Overriding C++ Methods (Creating Custom Widgets)+         --+         -- $overriding++         -- ** Explicitly Calling Base Class Methods+         --+         -- $explicitbaseclasscalling++         -- ** Overriding the Widget Destructor+         --+         -- $destructors+                  -- * Slow Compilation Issues          --          -- $Compilation@@ -79,87 +105,143 @@          -- * Core Types          module Graphics.UI.FLTK.LowLevel.Fl_Types,          -- * Widgets+         module Graphics.UI.FLTK.LowLevel.Base.Adjuster,          module Graphics.UI.FLTK.LowLevel.Adjuster,          module Graphics.UI.FLTK.LowLevel.Ask,          module Graphics.UI.FLTK.LowLevel.BMPImage,          module Graphics.UI.FLTK.LowLevel.Bitmap,          module Graphics.UI.FLTK.LowLevel.Box,+         module Graphics.UI.FLTK.LowLevel.Base.Browser,          module Graphics.UI.FLTK.LowLevel.Browser,+         module Graphics.UI.FLTK.LowLevel.Base.Button,          module Graphics.UI.FLTK.LowLevel.Button,+         module Graphics.UI.FLTK.LowLevel.Base.CheckButton,          module Graphics.UI.FLTK.LowLevel.CheckButton,+         module Graphics.UI.FLTK.LowLevel.Base.Choice,          module Graphics.UI.FLTK.LowLevel.Choice,+         module Graphics.UI.FLTK.LowLevel.Base.Clock,          module Graphics.UI.FLTK.LowLevel.Clock,+         module Graphics.UI.FLTK.LowLevel.Base.ColorChooser,          module Graphics.UI.FLTK.LowLevel.ColorChooser,          module Graphics.UI.FLTK.LowLevel.CopySurface,+         module Graphics.UI.FLTK.LowLevel.Base.Counter,          module Graphics.UI.FLTK.LowLevel.Counter,+         module Graphics.UI.FLTK.LowLevel.Base.Dial,          module Graphics.UI.FLTK.LowLevel.Dial,          module Graphics.UI.FLTK.LowLevel.DoubleWindow,+         module Graphics.UI.FLTK.LowLevel.Base.DoubleWindow,          module Graphics.UI.FLTK.LowLevel.Draw,+         module Graphics.UI.FLTK.LowLevel.Base.FileBrowser,          module Graphics.UI.FLTK.LowLevel.FileBrowser,+         module Graphics.UI.FLTK.LowLevel.Base.FileInput,          module Graphics.UI.FLTK.LowLevel.FileInput,          module Graphics.UI.FLTK.LowLevel.FillDial,+         module Graphics.UI.FLTK.LowLevel.Base.FillSlider,          module Graphics.UI.FLTK.LowLevel.FillSlider,          module Graphics.UI.FLTK.LowLevel.GIFImage,+         module Graphics.UI.FLTK.LowLevel.Base.Group,          module Graphics.UI.FLTK.LowLevel.Group,+         module Graphics.UI.FLTK.LowLevel.Base.HorFillSlider,          module Graphics.UI.FLTK.LowLevel.HorFillSlider,+         module Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider,          module Graphics.UI.FLTK.LowLevel.HorNiceSlider,+         module Graphics.UI.FLTK.LowLevel.Base.HorSlider,          module Graphics.UI.FLTK.LowLevel.HorSlider,          module Graphics.UI.FLTK.LowLevel.HorValueSlider,          module Graphics.UI.FLTK.LowLevel.Image,          module Graphics.UI.FLTK.LowLevel.ImageSurface,+         module Graphics.UI.FLTK.LowLevel.Base.Input,          module Graphics.UI.FLTK.LowLevel.Input,          module Graphics.UI.FLTK.LowLevel.JPEGImage,+         module Graphics.UI.FLTK.LowLevel.Base.LightButton,          module Graphics.UI.FLTK.LowLevel.LightButton,          module Graphics.UI.FLTK.LowLevel.LineDial,+         module Graphics.UI.FLTK.LowLevel.Base.MenuBar,          module Graphics.UI.FLTK.LowLevel.MenuBar,+         module Graphics.UI.FLTK.LowLevel.Base.MenuButton,          module Graphics.UI.FLTK.LowLevel.MenuButton,+         module Graphics.UI.FLTK.LowLevel.Base.MenuItem,          module Graphics.UI.FLTK.LowLevel.MenuItem,+         module Graphics.UI.FLTK.LowLevel.Base.MenuPrim,          module Graphics.UI.FLTK.LowLevel.MenuPrim,          module Graphics.UI.FLTK.LowLevel.MultiLabel,          module Graphics.UI.FLTK.LowLevel.NativeFileChooser,+         module Graphics.UI.FLTK.LowLevel.Base.NiceSlider,          module Graphics.UI.FLTK.LowLevel.NiceSlider,+         module Graphics.UI.FLTK.LowLevel.Base.Output,          module Graphics.UI.FLTK.LowLevel.Output,          module Graphics.UI.FLTK.LowLevel.OverlayWindow,+         module Graphics.UI.FLTK.LowLevel.Base.OverlayWindow,          module Graphics.UI.FLTK.LowLevel.PNGImage,          module Graphics.UI.FLTK.LowLevel.PNMImage,+         module Graphics.UI.FLTK.LowLevel.Base.Pack,          module Graphics.UI.FLTK.LowLevel.Pack,          module Graphics.UI.FLTK.LowLevel.Pixmap,+         module Graphics.UI.FLTK.LowLevel.Base.Positioner,          module Graphics.UI.FLTK.LowLevel.Positioner,+         module Graphics.UI.FLTK.LowLevel.Base.Progress,          module Graphics.UI.FLTK.LowLevel.Progress,          module Graphics.UI.FLTK.LowLevel.RGBImage,+         module Graphics.UI.FLTK.LowLevel.Base.RadioLightButton,          module Graphics.UI.FLTK.LowLevel.RadioLightButton,+         module Graphics.UI.FLTK.LowLevel.Base.RepeatButton,          module Graphics.UI.FLTK.LowLevel.RepeatButton,+         module Graphics.UI.FLTK.LowLevel.Base.ReturnButton,          module Graphics.UI.FLTK.LowLevel.ReturnButton,+         module Graphics.UI.FLTK.LowLevel.Base.Roller,          module Graphics.UI.FLTK.LowLevel.Roller,+         module Graphics.UI.FLTK.LowLevel.Base.RoundButton,          module Graphics.UI.FLTK.LowLevel.RoundButton,          module Graphics.UI.FLTK.LowLevel.SVGImage,+         module Graphics.UI.FLTK.LowLevel.Base.Scrollbar,          module Graphics.UI.FLTK.LowLevel.Scrollbar,+         module Graphics.UI.FLTK.LowLevel.Base.Scrolled,          module Graphics.UI.FLTK.LowLevel.Scrolled,          module Graphics.UI.FLTK.LowLevel.SelectBrowser,+         module Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal,          module Graphics.UI.FLTK.LowLevel.SimpleTerminal,+         module Graphics.UI.FLTK.LowLevel.Base.SingleWindow,          module Graphics.UI.FLTK.LowLevel.SingleWindow,+         module Graphics.UI.FLTK.LowLevel.Base.Slider,          module Graphics.UI.FLTK.LowLevel.Slider,+         module Graphics.UI.FLTK.LowLevel.Base.Spinner,          module Graphics.UI.FLTK.LowLevel.Spinner,+         module Graphics.UI.FLTK.LowLevel.Base.SysMenuBar,          module Graphics.UI.FLTK.LowLevel.SysMenuBar,+         module Graphics.UI.FLTK.LowLevel.Base.Table,          module Graphics.UI.FLTK.LowLevel.Table,+         module Graphics.UI.FLTK.LowLevel.Base.TableRow,          module Graphics.UI.FLTK.LowLevel.TableRow,+         module Graphics.UI.FLTK.LowLevel.Base.Tabs,          module Graphics.UI.FLTK.LowLevel.Tabs,          module Graphics.UI.FLTK.LowLevel.TextBuffer,+         module Graphics.UI.FLTK.LowLevel.Base.TextDisplay,          module Graphics.UI.FLTK.LowLevel.TextDisplay,+         module Graphics.UI.FLTK.LowLevel.Base.TextEditor,          module Graphics.UI.FLTK.LowLevel.TextEditor,          module Graphics.UI.FLTK.LowLevel.TextSelection,+         module Graphics.UI.FLTK.LowLevel.Base.Tile,          module Graphics.UI.FLTK.LowLevel.Tile,+         module Graphics.UI.FLTK.LowLevel.Base.ToggleButton,          module Graphics.UI.FLTK.LowLevel.ToggleButton,          module Graphics.UI.FLTK.LowLevel.Tooltip,+         module Graphics.UI.FLTK.LowLevel.Base.Tree,          module Graphics.UI.FLTK.LowLevel.Tree,          module Graphics.UI.FLTK.LowLevel.TreeItem,          module Graphics.UI.FLTK.LowLevel.TreePrefs,+         module Graphics.UI.FLTK.LowLevel.Base.Valuator,          module Graphics.UI.FLTK.LowLevel.Valuator,+         module Graphics.UI.FLTK.LowLevel.Base.ValueInput,          module Graphics.UI.FLTK.LowLevel.ValueInput,+         module Graphics.UI.FLTK.LowLevel.Base.ValueOutput,          module Graphics.UI.FLTK.LowLevel.ValueOutput,+         module Graphics.UI.FLTK.LowLevel.Base.ValueSlider,          module Graphics.UI.FLTK.LowLevel.ValueSlider,          module Graphics.UI.FLTK.LowLevel.Widget,+         module Graphics.UI.FLTK.LowLevel.Base.Widget,+         module Graphics.UI.FLTK.LowLevel.Base.Window,          module Graphics.UI.FLTK.LowLevel.Window,+         module Graphics.UI.FLTK.LowLevel.Base.Wizard,          module Graphics.UI.FLTK.LowLevel.Wizard,          module Graphics.UI.FLTK.LowLevel.XBMImage,          module Graphics.UI.FLTK.LowLevel.XPMImage,@@ -169,91 +251,147 @@          module Graphics.UI.FLTK.LowLevel.Hierarchy        ) where-import Graphics.UI.FLTK.LowLevel.Adjuster+import Graphics.UI.FLTK.LowLevel.Base.Adjuster+import Graphics.UI.FLTK.LowLevel.Adjuster() import Graphics.UI.FLTK.LowLevel.Ask import Graphics.UI.FLTK.LowLevel.BMPImage import Graphics.UI.FLTK.LowLevel.Bitmap import Graphics.UI.FLTK.LowLevel.Box-import Graphics.UI.FLTK.LowLevel.Browser-import Graphics.UI.FLTK.LowLevel.Button-import Graphics.UI.FLTK.LowLevel.CheckButton-import Graphics.UI.FLTK.LowLevel.Choice-import Graphics.UI.FLTK.LowLevel.Clock-import Graphics.UI.FLTK.LowLevel.ColorChooser+import Graphics.UI.FLTK.LowLevel.Base.Browser+import Graphics.UI.FLTK.LowLevel.Browser()+import Graphics.UI.FLTK.LowLevel.Base.Button+import Graphics.UI.FLTK.LowLevel.Button()+import Graphics.UI.FLTK.LowLevel.Base.CheckButton+import Graphics.UI.FLTK.LowLevel.CheckButton()+import Graphics.UI.FLTK.LowLevel.Base.Choice+import Graphics.UI.FLTK.LowLevel.Choice()+import Graphics.UI.FLTK.LowLevel.Base.Clock+import Graphics.UI.FLTK.LowLevel.Clock()+import Graphics.UI.FLTK.LowLevel.Base.ColorChooser+import Graphics.UI.FLTK.LowLevel.ColorChooser() import Graphics.UI.FLTK.LowLevel.CopySurface-import Graphics.UI.FLTK.LowLevel.Counter-import Graphics.UI.FLTK.LowLevel.Dial+import Graphics.UI.FLTK.LowLevel.Base.Counter+import Graphics.UI.FLTK.LowLevel.Counter()+import Graphics.UI.FLTK.LowLevel.Base.Dial+import Graphics.UI.FLTK.LowLevel.Dial() import Graphics.UI.FLTK.LowLevel.Dispatch-import Graphics.UI.FLTK.LowLevel.DoubleWindow+import Graphics.UI.FLTK.LowLevel.DoubleWindow()+import Graphics.UI.FLTK.LowLevel.Base.DoubleWindow import Graphics.UI.FLTK.LowLevel.Draw-import Graphics.UI.FLTK.LowLevel.FileBrowser-import Graphics.UI.FLTK.LowLevel.FileInput+import Graphics.UI.FLTK.LowLevel.Base.FileBrowser+import Graphics.UI.FLTK.LowLevel.FileBrowser()+import Graphics.UI.FLTK.LowLevel.Base.FileInput+import Graphics.UI.FLTK.LowLevel.FileInput() import Graphics.UI.FLTK.LowLevel.FillDial-import Graphics.UI.FLTK.LowLevel.FillSlider+import Graphics.UI.FLTK.LowLevel.Base.FillSlider+import Graphics.UI.FLTK.LowLevel.FillSlider() import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.GIFImage-import Graphics.UI.FLTK.LowLevel.Group+import Graphics.UI.FLTK.LowLevel.Base.Group+import Graphics.UI.FLTK.LowLevel.Group() import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.HorFillSlider-import Graphics.UI.FLTK.LowLevel.HorNiceSlider-import Graphics.UI.FLTK.LowLevel.HorSlider+import Graphics.UI.FLTK.LowLevel.Base.HorFillSlider+import Graphics.UI.FLTK.LowLevel.HorFillSlider()+import Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider+import Graphics.UI.FLTK.LowLevel.HorNiceSlider()+import Graphics.UI.FLTK.LowLevel.Base.HorSlider+import Graphics.UI.FLTK.LowLevel.HorSlider() import Graphics.UI.FLTK.LowLevel.HorValueSlider import Graphics.UI.FLTK.LowLevel.Image import Graphics.UI.FLTK.LowLevel.ImageSurface-import Graphics.UI.FLTK.LowLevel.Input+import Graphics.UI.FLTK.LowLevel.Base.Input+import Graphics.UI.FLTK.LowLevel.Input() import Graphics.UI.FLTK.LowLevel.JPEGImage-import Graphics.UI.FLTK.LowLevel.LightButton+import Graphics.UI.FLTK.LowLevel.Base.LightButton+import Graphics.UI.FLTK.LowLevel.LightButton() import Graphics.UI.FLTK.LowLevel.LineDial-import Graphics.UI.FLTK.LowLevel.MenuBar-import Graphics.UI.FLTK.LowLevel.MenuButton-import Graphics.UI.FLTK.LowLevel.MenuItem-import Graphics.UI.FLTK.LowLevel.MenuPrim+import Graphics.UI.FLTK.LowLevel.Base.MenuBar+import Graphics.UI.FLTK.LowLevel.MenuBar()+import Graphics.UI.FLTK.LowLevel.Base.MenuButton+import Graphics.UI.FLTK.LowLevel.MenuButton()+import Graphics.UI.FLTK.LowLevel.Base.MenuItem+import Graphics.UI.FLTK.LowLevel.MenuItem()+import Graphics.UI.FLTK.LowLevel.Base.MenuPrim+import Graphics.UI.FLTK.LowLevel.MenuPrim() import Graphics.UI.FLTK.LowLevel.MultiLabel import Graphics.UI.FLTK.LowLevel.NativeFileChooser-import Graphics.UI.FLTK.LowLevel.NiceSlider-import Graphics.UI.FLTK.LowLevel.Output-import Graphics.UI.FLTK.LowLevel.OverlayWindow+import Graphics.UI.FLTK.LowLevel.Base.NiceSlider+import Graphics.UI.FLTK.LowLevel.NiceSlider()+import Graphics.UI.FLTK.LowLevel.Base.Output+import Graphics.UI.FLTK.LowLevel.Output()+import Graphics.UI.FLTK.LowLevel.Base.OverlayWindow+import Graphics.UI.FLTK.LowLevel.OverlayWindow() import Graphics.UI.FLTK.LowLevel.PNGImage import Graphics.UI.FLTK.LowLevel.PNMImage-import Graphics.UI.FLTK.LowLevel.Pack+import Graphics.UI.FLTK.LowLevel.Base.Pack+import Graphics.UI.FLTK.LowLevel.Pack() import Graphics.UI.FLTK.LowLevel.Pixmap-import Graphics.UI.FLTK.LowLevel.Positioner-import Graphics.UI.FLTK.LowLevel.Progress+import Graphics.UI.FLTK.LowLevel.Base.Positioner+import Graphics.UI.FLTK.LowLevel.Positioner()+import Graphics.UI.FLTK.LowLevel.Base.Progress+import Graphics.UI.FLTK.LowLevel.Progress() import Graphics.UI.FLTK.LowLevel.RGBImage-import Graphics.UI.FLTK.LowLevel.RadioLightButton-import Graphics.UI.FLTK.LowLevel.RepeatButton-import Graphics.UI.FLTK.LowLevel.ReturnButton-import Graphics.UI.FLTK.LowLevel.Roller-import Graphics.UI.FLTK.LowLevel.RoundButton+import Graphics.UI.FLTK.LowLevel.Base.RadioLightButton+import Graphics.UI.FLTK.LowLevel.RadioLightButton()+import Graphics.UI.FLTK.LowLevel.Base.RepeatButton+import Graphics.UI.FLTK.LowLevel.RepeatButton()+import Graphics.UI.FLTK.LowLevel.Base.ReturnButton+import Graphics.UI.FLTK.LowLevel.ReturnButton()+import Graphics.UI.FLTK.LowLevel.Base.Roller+import Graphics.UI.FLTK.LowLevel.Roller()+import Graphics.UI.FLTK.LowLevel.Base.RoundButton+import Graphics.UI.FLTK.LowLevel.RoundButton() import Graphics.UI.FLTK.LowLevel.SVGImage-import Graphics.UI.FLTK.LowLevel.Scrollbar-import Graphics.UI.FLTK.LowLevel.Scrolled+import Graphics.UI.FLTK.LowLevel.Base.Scrollbar+import Graphics.UI.FLTK.LowLevel.Scrollbar()+import Graphics.UI.FLTK.LowLevel.Base.Scrolled+import Graphics.UI.FLTK.LowLevel.Scrolled() import Graphics.UI.FLTK.LowLevel.SelectBrowser-import Graphics.UI.FLTK.LowLevel.SimpleTerminal-import Graphics.UI.FLTK.LowLevel.SingleWindow-import Graphics.UI.FLTK.LowLevel.Slider-import Graphics.UI.FLTK.LowLevel.Spinner-import Graphics.UI.FLTK.LowLevel.SysMenuBar-import Graphics.UI.FLTK.LowLevel.Table-import Graphics.UI.FLTK.LowLevel.TableRow-import Graphics.UI.FLTK.LowLevel.Tabs+import Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal+import Graphics.UI.FLTK.LowLevel.SimpleTerminal()+import Graphics.UI.FLTK.LowLevel.Base.SingleWindow+import Graphics.UI.FLTK.LowLevel.SingleWindow()+import Graphics.UI.FLTK.LowLevel.Base.Slider+import Graphics.UI.FLTK.LowLevel.Slider()+import Graphics.UI.FLTK.LowLevel.Base.Spinner+import Graphics.UI.FLTK.LowLevel.Spinner()+import Graphics.UI.FLTK.LowLevel.Base.SysMenuBar+import Graphics.UI.FLTK.LowLevel.SysMenuBar()+import Graphics.UI.FLTK.LowLevel.Base.Table+import Graphics.UI.FLTK.LowLevel.Table()+import Graphics.UI.FLTK.LowLevel.Base.TableRow+import Graphics.UI.FLTK.LowLevel.TableRow()+import Graphics.UI.FLTK.LowLevel.Base.Tabs+import Graphics.UI.FLTK.LowLevel.Tabs() import Graphics.UI.FLTK.LowLevel.TextBuffer-import Graphics.UI.FLTK.LowLevel.TextDisplay-import Graphics.UI.FLTK.LowLevel.TextEditor+import Graphics.UI.FLTK.LowLevel.Base.TextDisplay+import Graphics.UI.FLTK.LowLevel.TextDisplay()+import Graphics.UI.FLTK.LowLevel.Base.TextEditor+import Graphics.UI.FLTK.LowLevel.TextEditor() import Graphics.UI.FLTK.LowLevel.TextSelection()-import Graphics.UI.FLTK.LowLevel.Tile-import Graphics.UI.FLTK.LowLevel.ToggleButton+import Graphics.UI.FLTK.LowLevel.Base.Tile+import Graphics.UI.FLTK.LowLevel.Tile()+import Graphics.UI.FLTK.LowLevel.Base.ToggleButton+import Graphics.UI.FLTK.LowLevel.ToggleButton() import Graphics.UI.FLTK.LowLevel.Tooltip-import Graphics.UI.FLTK.LowLevel.Tree+import Graphics.UI.FLTK.LowLevel.Base.Tree+import Graphics.UI.FLTK.LowLevel.Tree() import Graphics.UI.FLTK.LowLevel.TreeItem import Graphics.UI.FLTK.LowLevel.TreePrefs-import Graphics.UI.FLTK.LowLevel.Valuator-import Graphics.UI.FLTK.LowLevel.ValueInput-import Graphics.UI.FLTK.LowLevel.ValueOutput-import Graphics.UI.FLTK.LowLevel.ValueSlider-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Window-import Graphics.UI.FLTK.LowLevel.Wizard+import Graphics.UI.FLTK.LowLevel.Base.Valuator+import Graphics.UI.FLTK.LowLevel.Valuator()+import Graphics.UI.FLTK.LowLevel.Base.ValueInput+import Graphics.UI.FLTK.LowLevel.ValueInput()+import Graphics.UI.FLTK.LowLevel.Base.ValueOutput+import Graphics.UI.FLTK.LowLevel.ValueOutput()+import Graphics.UI.FLTK.LowLevel.Base.ValueSlider+import Graphics.UI.FLTK.LowLevel.ValueSlider()+import Graphics.UI.FLTK.LowLevel.Base.Widget+import Graphics.UI.FLTK.LowLevel.Widget()+import Graphics.UI.FLTK.LowLevel.Base.Window+import Graphics.UI.FLTK.LowLevel.Window()+import Graphics.UI.FLTK.LowLevel.Base.Wizard+import Graphics.UI.FLTK.LowLevel.Wizard() import Graphics.UI.FLTK.LowLevel.XBMImage import Graphics.UI.FLTK.LowLevel.XPMImage @@ -996,9 +1134,7 @@ -- -- --- $APIGuide------ = Guide to the Haddock Docs+-- $guidetothehaddockdocs -- -- Convenient access to the underlying C++ is achieved using typeclasses and -- type-level programming to emulate OO classes and multiple dispatch. This approach makes@@ -1011,10 +1147,11 @@ -- -- The documentation provided with this API is not yet self-contained and is -- meant to be used in tandem with the <http://www.fltk.org/doc-1.4/classes.html C++ documentation>.--- The rest of this document is about how the Haskell--- functions and datatypes map to the C++ ones.------ == Widget Construction+-- The rest of this section is about how the Haskell+-- functions and datatypes map to the C++ ones and how to, in some limited cases, override a C++ function+-- with a Haskell implementations.++-- $widgetconstruction -- Each widget has its own module, all of which are listed -- below under the __Widgets__ heading. Most modules include a function named -- `<widgetName>New` that returns a reference to that widget. Although you@@ -1029,7 +1166,8 @@ -- which transparently extract the pointer and pass it to the -- appropriate <http://www.fltk.org/doc-1.4/classFl__Window.html `Fl_Window`> instance method. ----- == Widget Methods++-- $widgetmethods -- -- The Haskell functions that bind to the instance methods of an FLTK class are -- listed under the __Functions__ heading in that widget's module. It's worth@@ -1087,7 +1225,9 @@ -- user can use these heuristics (and the type signatures) along with the -- official FLTK documentation to "guess" what the binding functions do. ----- == Widget Hierarchy+++-- $widgethierarchyguide -- Every widget module in the API has a __Hierarchy__ heading that shows all its parents. -- -- The design of the API makes all the parent functions transparently available@@ -1106,19 +1246,20 @@ -- <http://www.fltk.org/doc-1.4/classes.html C++ documentation> to use the -- binding API. ----- === Overriding C++ methods++-- $overriding -- -- The binding API allows a limited but powerful form of "inheritance" allowing -- users to override certain key FLTK methods with Haskell functions. All GUI -- elements that derive from the C++ base class -- <http://www.fltk.org/doc-1.4/classFl__Widget.html Fl_Widget> and the Haskell -- analog--- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Widget.html Widget> now allow Haskell--- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Widget.html#g:2 functions> to be passed at widget construction time that give Haskell--- complete control on--- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Widget.html#v:widgetCustom drawing>,--- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Widget.html#t:CustomWidgetFuncs handling, resizing and other key functions>. This means that the Haskell user--- has complete control of the look and feel as well as the event loop. The+-- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html WidgetBase> now allow Haskell+-- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#g:2 functions> to be passed at widget construction time that give Haskell+-- complete control over+-- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#v:widgetCustom drawing>,+-- <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#t:CustomWidgetFuncs handling, resizing and other key functions>. This means that the Haskell user+-- can control the look and feel as well as the event loop. The -- <https://github.com/deech/fltkhs-demos/blob/master/src/Examples/table-as-container.hs#L105 table> demos are an example of drawing in Haskell. An example of taking over -- the event loop is an FLTKHS <https://github.com/deech/fltkhs-reflex-host proof-of-concept> that -- <https://github.com/deech/fltkhs-reflex-host/blob/master/src/reflex-host.hs#L33 overrides> the FLTKHS event loop with the@@ -1134,57 +1275,95 @@ -- to the C++ side and called whenever the event loop deems appropriate. Unlike -- callbacks, they can be set only on object instantiation. ----- An example of this is "Graphics.UI.FLTK.LowLevel.Widget" which, since it is a+-- An example of this is "Graphics.UI.FLTK.LowLevel.Base.Widget" which, since it is a -- base class for most widgets and doesn't have much functionality of its own, -- only allows custom construction using 'widgetCustom'. This constructor takes -- a 'CustomWidgetFuncs' datatype which is a record of functions which tells a--- "Graphics.UI.FLTK.LowLevel.Widget" how to handle events and draw, resize and+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" how to handle events and draw, resize and -- display itself. ----- Again "Graphics.UI.FLTK.LowLevel.Window" can be used a motivating example.+-- Again "Graphics.UI.FLTK.LowLevel.Base.Window" can be used a motivating example. -- Its custom constructor 'windowCustom', in fact, takes two records: a -- 'CustomWidgetFuncs' which allows you to override methods in its--- "Graphics.UI.FLTK.LowLevel.Widget" parent class, and also a+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" parent class, and also a -- 'CustomWindowFuncs' record which allows you to override @flush@, a -- method on the Window class which tells the window how to force a redraw. For -- example, the demo /src\/Examples\/doublebuffer.hs/ (which corresponds to the -- executable 'ftlkhs-doublebuffer') tells both windows how to draw themselves -- in a Haskell function that uses low-level FLTK drawing routines by overriding--- the draw function of their "Graphics.UI.FLTK.LowLevel.Widget" parent.+-- the draw function of their "Graphics.UI.FLTK.LowLevel.Base.Widget" parent. -- -- Every widget that supports customizing also provides a default function -- record that can be passed to the constructor. For example,--- "Graphics.UI.FLTK.LowLevel.Widget" provides 'defaultCustomWidgetFuncs' and--- "Graphics.UI.FLTK.LowLevel.Window" has 'defaultCustomWindowFuncs'. In the+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" provides 'defaultCustomWidgetFuncs' and+-- "Graphics.UI.FLTK.LowLevel.Base.Window" has 'defaultCustomWindowFuncs'. In the -- demo mentioned above, the 'singleWindowCustom' function is given--- 'defaultCustomWidgetFuncs' but with an overridden 'drawCustom'.+-- 'defaultCustom.WidgetFuncs' but with an overridden 'drawCustom'. -- -- Another case where customization comes up a lot is when using--- "Graphics.UI.FLTK.LowLevel.Table" which is a low-level table widget that+-- "Graphics.UI.FLTK.LowLevel.Base.Table" which is a low-level table widget that -- needs to be told, for example, how to draw its cells. The demo -- /src\/Examples\/table-simple.hs/ (corresponding to the executable -- 'fltkhs-table-simple') shows this in action. -- -- Hopefully the demos just mentioned and others included with this library show -- that, even though customizing is limited, it is possible to do a lot.++-- $explicitbaseclasscalling+-- A common pattern when overring parent class methods is augment them,+-- some logic followed by an explicit call to the parent method. In C+++-- this is done by explicitly by annotating the call with the parent's class name: ----- For most customizable functions, a widget provides a--- corresponding function that calls the default C++ implementation as the--- function name suffixed with \"Super\". For instance, you can provide a--- custom implementation of /handle/ on "Graphics.UI.FLTK.LowLevel.Window" via--- the constructor and every call to /handle/ invokes that implementation, but--- you can also call /handleSuper/ to get at the default C++--- implementation. This comes in handy when the custom function is just setting--- up variables or logging and you want the underlying implementation to take over at--- some point.+-- @+-- void Child::f() {+--   ... some code+--   Parent::f();+-- }+-- @ ----- __Warning__: Since calls to the default implementation of the function--- /handleSuper/, for example, are available to the widget, they are--- automatically available to all subclasses of the widget. I--- acknowledge this is a confusing aspect of the library's design but hope the--- benefit of being able to get at the default implementation outweighs the--- trap users might fall into. If this becomes a pervasive problem, I'm--- open to removing this functionality.+-- In this binding the widget methods that can be overridden have a corresponding+-- explict call to the parent class method in that widget's module. For example,+-- the <https://www.fltk.org/doc-1.4/classFl__Widget.html#a9cb17cc092697dfd05a3fab55856d218 handle> method+-- can be overridden by <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#t:CustomWidgetFuncs handleCustom>+-- but you can still call the base class 'handle' with <https://hackage.haskell.org/package/fltkhs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#v:handleWidgetBase handleWidgetBase> so+-- a custom handler that just prints console when a widget is minimized but delegates to the parent for all other events could look something like:+--+-- @+-- myHandle :: Ref Widget -> Event -> IO (Either UnknownEvent ())+-- myHandle w e = do+--   case e of+--     Hide -> print "widget has been hidden"+--     _ -> return ()+--   handleWidgetBase (safeCast w) e+-- @+--+-- The 'safeCast' is needed to explicitly cast a widget to it's parent, in this case casting 'Widget' to 'WidgetBase'.+-- The cast is safe because it is statically restricted to only classes in the hierarchy.+--++-- $destructors+-- Most of the <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#t:CustomWidgetFuncs overrideable methods> correspond to+-- some method in FLTK. <https://hackage.haskell.org/package/fltkhs/docs/Graphics-UI-FLTK-LowLevel-Base-Widget.html#t:CustomWidgetFuncs resizeCustom>, for instance+-- overrides <https://www.fltk.org/doc-1.4/classFl__Widget.html#aca98267e7a9b94f699ebd27d9f59e8bb resize>, but 'destroyCallbacksCustom' does not. This function is called+-- in the widget's C++ destructor and can be used for any Haskell side clean up but exists specifically to release function pointers given to the C++ side by the GHC runtime.+-- This is necessary because any resources closed over by the Haskell function to which we generate a pointer are ignored by the garbage collector until that pointer is+-- explicitly freed. Over time this could cause significant memory bloat. Normally the binding does this for you freeing callbacks set with 'setCallback' and the overriding functions+-- themselves but occasionally there are function pointers the binding does not know about.+--+-- For example <https://hackage.haskell.org/package/fltkhs/Graphics-UI-FLTK-LowLevel-FL.html#v:addTimeout adding a timer>+-- entails passing in a function pointer to a closure that will be invoked at at some specified frequency but the binding has no idea when that needs to be cleaned up+-- so that becomes your responsibility. A custom 'destroyCallbacksCustom' might look something like:+--+-- @+-- myDestroyCallbacks :: FunPtr (IO ()) -> Ref Widget -> [Maybe (FunPtr (IO ())] -> IO ()+-- myDestroyCallbacks myFunptr w cbs = do+--   freeHaskellFunPtr myFunPtr+--   defaultDestroyWidgetCallbacks w cbs+-- @+--+-- The function takes 'myFunPtr', a pointer to the timer's closure, and a widget 'w' and that widget's associated callbacks,  'myFunPtr' is then freed with 'freeHaskellFunPtr'+-- and control passes to 'defaultDestroyWidgetCallbacks' which frees the rest of them. Passing control to 'defaultDestroyWidgetCallbacks' is critical otherwise those callbacks+-- will never be freed. --  -- $Compilation
src/Graphics/UI/FLTK/LowLevel/FileBrowser.chs view
@@ -1,194 +1,70 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.FileBrowser     (-     -- * Constructor-     fileBrowserNew,-     fileBrowserCustom,-     FileBrowserType(..),-     FileSortF,-     numericSort,-     alphaSort,-     caseAlphaSort,-     caseNumericSort      -- * Hierarchy      --      -- $hierarchy -     -- * Functions-     ---     -- $FileBrowserFunctions+     -- * Widget Functions      --+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_File_BrowserC.h"-#include "Fl_WidgetC.h"-#include "FL/filename.H" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget--{# pointer *Fl_File_Sort_F as FileSortF #}--{# fun Fl_OverriddenFile_Browser_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenFile_Browser_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-fileBrowserCustom ::-       Rectangle                         -- ^ The bounds of this FileBrowser-    -> Maybe T.Text                      -- ^ The FileBrowser label-    -> Maybe (Ref FileBrowser -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs FileBrowser)      -- ^ Optional custom widget functions-    -> IO (Ref FileBrowser)-fileBrowserCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_File_Browser_New as fileBrowserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_File_Browser_New_WithLabel as fileBrowserNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-fileBrowserNew :: Rectangle -> Maybe T.Text -> IO (Ref FileBrowser)-fileBrowserNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_File_Browser_set_iconsize as setIconsize' { id `Ptr ()', id `CUChar' } -> `()' #}-instance (impl ~ (CUChar ->  IO ())) => Op (SetIconsize ()) FileBrowser orig impl where-  runOp _ _ fileBrowser text = withRef fileBrowser $ \fileBrowserPtr -> setIconsize' fileBrowserPtr text-{# fun Fl_File_Browser_iconsize as iconsize' { id `Ptr ()' } -> `CUChar' id #}-instance (impl ~ ( IO (CUChar))) => Op (GetIconsize ()) FileBrowser orig impl where-  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> iconsize' fileBrowserPtr-{# fun Fl_File_Browser_set_filter as setFilter' { id `Ptr ()', `CString' } -> `()' #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetFilter ()) FileBrowser orig impl where-  runOp _ _ fileBrowser text = withRef fileBrowser $ \fileBrowserPtr -> copyTextToCString text >>= setFilter' fileBrowserPtr-{# fun Fl_File_Browser_filter as filter' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetFilter ()) FileBrowser orig impl where-  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> filter' fileBrowserPtr >>= cStringToText-{# fun Fl_File_Browser_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) FileBrowser orig impl where-  runOp _ _ fileBrowser (FontSize text) = withRef fileBrowser $ \fileBrowserPtr -> setTextsize' fileBrowserPtr text-{# fun Fl_File_Browser_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) FileBrowser orig impl where-  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> textsize' fileBrowserPtr >>= return . FontSize-{# fun Fl_File_Browser_set_filetype as setFileType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (FileBrowserType ->  IO ())) => Op (SetFiletype ()) FileBrowser orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setFileType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_File_Browser_filetype as filetype' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (FileBrowserType)) => Op (GetFiletype ()) FileBrowser orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> filetype' widgetPtr >>= return . toEnum . fromInteger . toInteger-{# fun Fl_File_Browser_load as load' { id `Ptr ()', `CString', id `FileSortF' } -> `CInt' id #}-instance (impl ~ (T.Text -> FileSortF -> IO (Either UnknownError ()))) => Op (Load ()) FileBrowser orig impl where-  runOp _ _ widget dir sortF = withRef widget $ \widgetPtr -> do-                               status <- copyTextToCString dir >>= \d -> load' widgetPtr d sortF-                               return (if (status == 0) then (Left UnknownError) else (Right ()))+import Graphics.UI.FLTK.LowLevel.Hierarchy  {# fun Fl_File_Browser_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) FileBrowser orig impl where   runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> draw'' fileBrowserPtr-{# fun Fl_File_Browser_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) FileBrowser orig impl where-  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> drawSuper' fileBrowserPtr {#fun Fl_File_Browser_handle as fileBrowserHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) FileBrowser orig impl where   runOp _ _ fileBrowser event = withRef fileBrowser (\p -> fileBrowserHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_File_Browser_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) FileBrowser orig impl where-  runOp _ _ fileBrowser event = withRef fileBrowser $ \fileBrowserPtr -> handleSuper' fileBrowserPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_File_Browser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) FileBrowser orig impl where-  runOp _ _ fileBrowser rectangle = withRef fileBrowser $ \fileBrowserPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' fileBrowserPtr x_pos y_pos w_pos h_pos-{# fun Fl_File_Browser_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) FileBrowser orig impl where-  runOp _ _ fileBrowser rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef fileBrowser $ \fileBrowserPtr -> resizeSuper' fileBrowserPtr x_pos y_pos width height {# fun Fl_File_Browser_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) FileBrowser orig impl where   runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> hide' fileBrowserPtr-{# fun Fl_File_Browser_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) FileBrowser orig impl where-  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> hideSuper' fileBrowserPtr {# fun Fl_File_Browser_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) FileBrowser orig impl where   runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> show' fileBrowserPtr-{# fun Fl_File_Browser_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) FileBrowser orig impl where-  runOp _ _ fileBrowser = withRef fileBrowser $ \fileBrowserPtr -> showSuper' fileBrowserPtr---{# fun fl_numericsort_reference     as numericSort     {} -> `FileSortF' #}-{# fun fl_alphasort_reference       as alphaSort       {} -> `FileSortF' #}-{# fun fl_casealphasort_reference   as caseAlphaSort   {} -> `FileSortF' #}-{# fun fl_casenumericsort_reference as caseNumericSort {} -> `FileSortF' #}+{# fun Fl_File_Browser_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) FileBrowser orig impl where+  runOp _ _ fileBrowser rectangle = withRef fileBrowser $ \fileBrowserPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' fileBrowserPtr x_pos y_pos w_pos h_pos  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Browser"+-- "Graphics.UI.FLTK.LowLevel.Base.Browser" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.FileBrowser"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.FileBrowser" -- @ --- $FileBrowserFunctions+-- $functions -- @ -- draw :: 'Ref' 'FileBrowser' -> 'IO' () ----- drawSuper :: 'Ref' 'FileBrowser' -> 'IO' ()------ getFiletype :: 'Ref' 'FileBrowser' -> 'IO' ('FileBrowserType')------ getFilter :: 'Ref' 'FileBrowser' -> 'IO' 'T.Text'------ getIconsize :: 'Ref' 'FileBrowser' -> 'IO' ('CUChar')------ getTextsize :: 'Ref' 'FileBrowser' -> 'IO' ('FontSize')--- -- handle :: 'Ref' 'FileBrowser' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'FileBrowser' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'FileBrowser' -> 'IO' () ----- hideSuper :: 'Ref' 'FileBrowser' -> 'IO' ()------ load :: 'Ref' 'FileBrowser' -> 'T.Text' -> 'FileSortF' -> 'IO' ('Either' 'UnknownError' ())--- -- resize :: 'Ref' 'FileBrowser' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'FileBrowser' -> 'Rectangle' -> 'IO' ()------ setFiletype :: 'Ref' 'FileBrowser' -> 'FileBrowserType' -> 'IO' ()------ setFilter :: 'Ref' 'FileBrowser' -> 'T.Text' -> 'IO' ()------ setIconsize :: 'Ref' 'FileBrowser' -> 'CUChar' -> 'IO' ()------ setTextsize :: 'Ref' 'FileBrowser' -> 'FontSize' -> 'IO' ()--- -- showWidget :: 'Ref' 'FileBrowser' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'FileBrowser' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/FileInput.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.FileInput     (-     fileInputNew,-     fileInputCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -17,104 +15,41 @@ #include "Fl_Types.h" #include "Fl_File_InputC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenFile_Input_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenFile_Input_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-fileInputCustom ::-       Rectangle                         -- ^ The bounds of this FileInput-    -> Maybe T.Text                      -- ^ The FileInput label-    -> Maybe (Ref FileInput -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs FileInput)      -- ^ Optional custom widget functions-    -> IO (Ref FileInput)-fileInputCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_File_Input_New as fileInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_File_Input_New_WithLabel as fileInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-fileInputNew :: Rectangle -> Maybe T.Text -> IO (Ref FileInput)-fileInputNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_File_Input_down_box as downBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ ( IO (Boxtype))) => Op (GetDownBox ()) FileInput orig impl where-  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> downBox' fileInputPtr-{# fun Fl_File_Input_set_down_box as setDownBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}-instance (impl ~ (Boxtype ->  IO ())) => Op (SetDownBox ()) FileInput orig impl where-  runOp _ _ fileInput b = withRef fileInput $ \fileInputPtr -> setDownBox' fileInputPtr b-{# fun Fl_File_Input_errorcolor as errorColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetErrorColor ()) FileInput orig impl where-  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> errorColor' fileInputPtr-{# fun Fl_File_Input_set_errorcolor as setErrorColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetErrorColor ()) FileInput orig impl where-  runOp _ _ fileInput b = withRef fileInput $ \fileInputPtr -> setErrorColor' fileInputPtr b-{# fun Fl_File_Input_set_value as setValue' { id `Ptr ()', `CString'} -> `()' #}-instance (impl ~ (T.Text -> IO ())) => Op (SetValue ()) FileInput orig impl where-  runOp _ _ fileInput s = withRef fileInput $ \fileInputPtr -> copyTextToCString s >>= setValue' fileInputPtr-{# fun Fl_File_Input_value as getValue' { id `Ptr ()' } -> `CString' #}-instance (impl ~ (IO T.Text)) => Op (GetValue ()) FileInput orig impl where-  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> getValue' fileInputPtr >>= cStringToText {# fun Fl_File_Input_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) FileInput orig impl where   runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> draw'' fileInputPtr-{# fun Fl_File_Input_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) FileInput orig impl where-  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> drawSuper' fileInputPtr {#fun Fl_File_Input_handle as fileInputHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) FileInput orig impl where   runOp _ _ fileInput event = withRef fileInput (\p -> fileInputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_File_Input_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) FileInput orig impl where-  runOp _ _ fileInput event = withRef fileInput $ \fileInputPtr -> handleSuper' fileInputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_File_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) FileInput orig impl where-  runOp _ _ fileInput rectangle = withRef fileInput $ \fileInputPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' fileInputPtr x_pos y_pos w_pos h_pos-{# fun Fl_File_Input_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) FileInput orig impl where-  runOp _ _ fileInput rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef fileInput $ \fileInputPtr -> resizeSuper' fileInputPtr x_pos y_pos width height {# fun Fl_File_Input_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) FileInput orig impl where   runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> hide' fileInputPtr-{# fun Fl_File_Input_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) FileInput orig impl where-  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> hideSuper' fileInputPtr {# fun Fl_File_Input_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) FileInput orig impl where   runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> show' fileInputPtr-{# fun Fl_File_Input_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) FileInput orig impl where-  runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> showSuper' fileInputPtr+{# fun Fl_File_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) FileInput orig impl where+  runOp _ _ fileInput rectangle = withRef fileInput $ \fileInputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' fileInputPtr x_pos y_pos w_pos h_pos+ -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Input"+-- "Graphics.UI.FLTK.LowLevel.Base.Input" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.FileInput"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.FileInput" -- @ @@ -122,33 +57,11 @@ -- @ -- draw :: 'Ref' 'FileInput' -> 'IO' () ----- drawSuper :: 'Ref' 'FileInput' -> 'IO' ()------ getDownBox :: 'Ref' 'FileInput' -> 'IO' ('Boxtype')------ getErrorColor :: 'Ref' 'FileInput' -> 'IO' ('Color')------ getValue :: 'Ref' 'FileInput' -> 'IO' 'T.Text'--- -- handle :: 'Ref' 'FileInput' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'FileInput' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'FileInput' -> 'IO' () ----- hideSuper :: 'Ref' 'FileInput' -> 'IO' ()--- -- resize :: 'Ref' 'FileInput' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'FileInput' -> 'Rectangle' -> 'IO' ()------ setDownBox :: 'Ref' 'FileInput' -> 'Boxtype' -> 'IO' ()------ setErrorColor :: 'Ref' 'FileInput' -> 'Color' -> 'IO' ()------ setValue :: 'Ref' 'FileInput' -> 'T.Text' -> 'IO' ()--- -- showWidget :: 'Ref' 'FileInput' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'FileInput' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/FillDial.chs view
@@ -15,7 +15,7 @@ import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Hierarchy import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget+import Graphics.UI.FLTK.LowLevel.Base.Widget {# fun Fl_Fill_Dial_New as fillDialNew' { `Int',`Int',`Int',`Int', `CString' } -> `Ptr ()' id #} fillDialNew :: Rectangle -> T.Text -> IO (Ref FillDial) fillDialNew rectangle l'=@@ -29,13 +29,13 @@  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Dial"+-- "Graphics.UI.FLTK.LowLevel.Base.Dial" --  | --  v -- "Graphics.UI.FLTK.LowLevel.FillDial"
src/Graphics/UI/FLTK/LowLevel/FillSlider.chs view
@@ -1,45 +1,20 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.FillSlider-    (-     fillSliderNew-     -- * Hierarchy-     ---     -- $hierarchy--    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_SliderC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget-{# fun Fl_Fill_Slider_New as fillSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Fill_Slider_New_WithLabel as fillSliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-fillSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref FillSlider)-fillSliderNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> fillSliderNew' x_pos y_pos width height >>= toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> fillSliderNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider" --  | --  v -- "Graphics.UI.FLTK.LowLevel.FillSlider"
src/Graphics/UI/FLTK/LowLevel/Fl_Types.chs view
@@ -303,6 +303,7 @@ type GetIntPrim                  = Ptr () -> IO CInt type SetIntPrim                  = Ptr () -> CInt -> IO () type ColorSetPrim                = Ptr () -> CDouble -> CDouble -> CDouble -> IO CInt+type DestroyCallbacksPrim        = Ptr () -> Ptr () -> IO ()  newtype Width = Width Int deriving (Eq, Show, Ord) newtype Height = Height Int deriving (Eq, Show, Ord)@@ -548,3 +549,9 @@   w2Null <- isNull w2   if (w1Null || w2Null) then return False     else withRef w1 (\w1Ptr -> withRef w2 (\w2Ptr -> return (w1Ptr == w2Ptr)))++unpackFunctionPointerToFreeStruct :: Ptr () -> IO (CInt, Ptr (FunPtr (IO ())))+unpackFunctionPointerToFreeStruct fpts = do+  numFps <- {#get Function_Pointers_To_Free->length #} fpts+  fpArray <- {#get Function_Pointers_To_Free->function_pointer_array #} fpts+  return (numFps, fpArray)
+ src/Graphics/UI/FLTK/LowLevel/GlWIndow.chs view
@@ -0,0 +1,34 @@+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Graphics.UI.FLTK.LowLevel.GlWindow ()+where+#include "Fl_C.h"+#include "Fl_Gl_WindowC.h"+import Foreign+import Foreign.C+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch+import Graphics.UI.FLTK.LowLevel.Hierarchy++{# fun Fl_DerivedGl_Window_flush as flush' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Flush ()) GlWindow orig impl where+  runOp _ _ win = withRef win $ \winPtr -> flush' winPtr+{# fun Fl_DerivedGl_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Hide ()) GlWindow orig impl where+  runOp _ _ win = withRef win $ \winPtr -> hide' winPtr+{# fun Fl_DerivedGl_Window_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ShowWidget ()) GlWindow orig impl where+  runOp _ _ win = withRef win $ \winPtr -> show' winPtr+{# fun Fl_DerivedGl_Window_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}+instance (impl ~ (Event ->  IO(Either UnknownEvent ()))) => Op (Handle ()) GlWindow orig impl where+  runOp _ _ self event = withRef self $ \selfPtr -> handle' selfPtr event >>= return  . successOrUnknownEvent+{# fun Fl_DerivedGl_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) GlWindow orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr+{# fun Fl_DerivedGl_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) GlWindow orig impl where+  runOp _ _ win rectangle' =+    let (x_pos', y_pos', width', height') = fromRectangle rectangle' in+    withRef win $ \winPtr -> resize' winPtr x_pos' y_pos' width' height'
src/Graphics/UI/FLTK/LowLevel/GlWindow.chs view
@@ -1,251 +1,66 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.GlWindow-    (-     glWindowNew,-     glWindowCustom,-     glWindowCanDo-     -- * Hierarchy-     ---     -- $hierarchy--     -- * GlWindow functions-     ---     -- $GlWindowfunctions-    ) where #include "Fl_C.h"-#include "Fl_Double_WindowC.h" #include "Fl_Gl_WindowC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Foreign+import Foreign.C import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Window-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--{# fun Fl_OverriddenGl_Window_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenGl_Window_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenGl_Window_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenGl_Window_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-glWindowCustom :: Size                           -- ^ The size of this window-               -> Maybe Position                 -- ^ The position of this window-               -> Maybe T.Text                   -- ^ The window label-               -> Maybe (Ref GlWindow -> IO ())  -- ^ Optional custom drawing function-               -> CustomWidgetFuncs GlWindow     -- ^ other custom widget functions-               -> CustomWindowFuncs GlWindow     -- ^ Other custom window functions-               -> IO (Ref GlWindow)-glWindowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =-  windowMaker-    size-    position-    title-    draw'-    customWidgetFuncs'-    customWindowFuncs'-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'-glWindowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref GlWindow)-glWindowNew size position title =-  windowMaker-    size-    position-    title-    Nothing-    (defaultCustomWidgetFuncs :: CustomWidgetFuncs GlWindow)-    (defaultCustomWindowFuncs :: CustomWindowFuncs GlWindow)-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Gl_Window_can_do_with_m as canDoWithM' { `Int'} -> `Bool' cToBool #}-glWindowCanDo :: Mode -> IO Bool-glWindowCanDo m = canDoWithM' (fromEnum m)-{# fun Fl_Gl_Window_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) GlWindow orig impl where-  runOp _ _ self = withRef self $ \selfPtr -> drawSuper' selfPtr-{# fun Fl_Gl_Window_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> hideSuper' winPtr-{# fun Fl_Gl_Window_flush_super as flushSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (FlushSuper ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> flushSuper' winPtr-{# fun Fl_Gl_Window_flush as flush' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedGl_Window_flush as flush' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Flush ()) GlWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> flush' winPtr-{# fun Fl_Gl_Window_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> showSuper' winPtr-{# fun Fl_Gl_Window_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle ->  IO ())) => Op (ResizeSuper ()) GlWindow orig impl where-  runOp _ _ win rectangle' =-    let (x_pos', y_pos', width', height') = fromRectangle rectangle' in-    withRef win $ \winPtr -> resizeSuper' winPtr x_pos' y_pos' width' height'-{# fun Fl_Gl_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedGl_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Hide ()) GlWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> hide' winPtr-{# fun Fl_Gl_Window_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedGl_Window_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (ShowWidget ()) GlWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> show' winPtr-{# fun Fl_Gl_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) GlWindow orig impl where-  runOp _ _ win rectangle' =-    let (x_pos', y_pos', width', height') = fromRectangle rectangle' in-    withRef win $ \winPtr -> resize' winPtr x_pos' y_pos' width' height'-{# fun Fl_Gl_Window_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}+{# fun Fl_DerivedGl_Window_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #} instance (impl ~ (Event ->  IO(Either UnknownEvent ()))) => Op (Handle ()) GlWindow orig impl where   runOp _ _ self event = withRef self $ \selfPtr -> handle' selfPtr event >>= return  . successOrUnknownEvent-{# fun Fl_Gl_Window_handle_super as handleSuper' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) GlWindow orig impl where-  runOp _ _ self event = withRef self $ \selfPtr -> handleSuper' selfPtr event >>= return . successOrUnknownEvent-{# fun Fl_Gl_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedGl_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (Destroy ()) GlWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr-{# fun Fl_Gl_Window_valid as valid' { id `Ptr ()' } -> `Bool' #}-instance (impl ~ ( IO (Bool))) => Op (GetValid ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> valid' winPtr-{# fun Fl_Gl_Window_set_valid as setValid' { id `Ptr ()', `Bool' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Bool ->  IO ())) => Op (SetValid ()) GlWindow orig impl where-  runOp _ _ win v = withRef win $ \winPtr -> setValid' winPtr v-{# fun Fl_Gl_Window_invalidate as invalidate' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Invalidate ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> invalidate' winPtr-{# fun Fl_Gl_Window_context_valid as contextValid' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (GetContextValid ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> contextValid' winPtr-{# fun Fl_Gl_Window_set_context_valid as setContextValid' { id `Ptr ()', fromBool `Bool' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Bool ->  IO ())) => Op (SetContextValid ()) GlWindow orig impl where-  runOp _ _ win v = withRef win $ \winPtr -> setContextValid' winPtr v-{# fun Fl_Gl_Window_can_do as canDo' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (CanDo ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> canDo' winPtr-{# fun Fl_Gl_Window_mode as mode' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Mode))) => Op (GetMode ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> mode' winPtr >>= return . toEnum-{# fun Fl_Gl_Window_set_mode as setMode' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Modes ->  IO ())) => Op (SetMode ()) GlWindow orig impl where-  runOp _ _ win a = withRef win $ \winPtr -> setMode' winPtr (modesToInt a) >> return ()-{# fun Fl_Gl_Window_context as context' { id `Ptr ()' } -> `Ptr ()'  #}-instance (impl ~ ( IO (Ref FlGlContext))) => Op (GetContext ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> context' winPtr >>= toRef-{# fun Fl_Gl_Window_set_context as setContext' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Ref FlGlContext ->  IO ())) => Op (SetContext ()) GlWindow orig impl where-  runOp _ _ win context = withRef win $ \winPtr -> withRef context $ \contextPtr -> setContext' winPtr contextPtr-{# fun Fl_Gl_Window_set_context_with_destroy_flag as setContextWithDestroyFlag' { id `Ptr ()',id `Ptr ()', fromBool `Bool'} -> `()' supressWarningAboutRes #}-instance (impl ~ ( Ref FlGlContext ->  Bool -> IO ())) => Op (SetContextWithDestroyFlag ()) GlWindow orig impl where-  runOp _ _ win context destroyFlag= withRef win $ \winPtr -> withRef context $ \contextPtr -> setContextWithDestroyFlag' winPtr contextPtr destroyFlag-{# fun Fl_Gl_Window_swap_buffers as swapBuffers' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (SwapBuffers ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> swapBuffers' winPtr-{# fun Fl_Gl_Window_ortho as ortho' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Ortho ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> ortho' winPtr-{# fun Fl_Gl_Window_can_do_overlay as canDoOverlay' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (CanDoOverlay ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> canDoOverlay' winPtr-{# fun Fl_Gl_Window_redraw_overlay as redrawOverlay' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (RedrawOverlay ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> redrawOverlay' winPtr-{# fun Fl_Gl_Window_hide_overlay as hideOverlay' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideOverlay ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> hideOverlay' winPtr-{# fun Fl_Gl_Window_make_overlay_current as makeOverlayCurrent' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (MakeOverlayCurrent ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> makeOverlayCurrent' winPtr-{# fun Fl_Gl_Window_pixels_per_unit as pixelsPerUnit' { id `Ptr ()'} -> `Float' #}-instance (impl ~ ( IO (Float))) => Op (PixelsPerUnit ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> pixelsPerUnit' winPtr-{# fun Fl_Gl_Window_pixel_h as pixelH' { id `Ptr ()'} -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (PixelH ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> pixelH' winPtr-{# fun Fl_Gl_Window_pixel_w as pixelW' { id `Ptr ()'} -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (PixelW ()) GlWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> pixelW' winPtr+{# fun Fl_DerivedGl_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) GlWindow orig impl where+  runOp _ _ win rectangle' =+    let (x_pos', y_pos', width', height') = fromRectangle rectangle' in+    withRef win $ \winPtr -> resize' winPtr x_pos' y_pos' width' height' --- $GlWindowfunctions+-- $hierarchy -- @--- canDo :: 'Ref' 'GlWindow' -> 'IO' ('Bool')------ canDoOverlay :: 'Ref' 'GlWindow' -> 'IO' ('Bool')---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.GlWindow"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.GlWindow"+-- @++-- $functions+-- @ -- destroy :: 'Ref' 'GlWindow' -> 'IO' () ----- drawSuper :: 'Ref' 'GlWindow' -> 'IO' ()--- -- flush :: 'Ref' 'GlWindow' -> 'IO' () ----- flushSuper :: 'Ref' 'GlWindow' -> 'IO' ()------ getContext :: 'Ref' 'GlWindow' -> 'IO' ('Ref' 'FlGlContext')------ getContextValid :: 'Ref' 'GlWindow' -> 'IO' ('Bool')------ getMode :: 'Ref' 'GlWindow' -> 'IO' ('Mode')------ getValid :: 'Ref' 'GlWindow' -> 'IO' ('Bool')--- -- handle :: 'Ref' 'GlWindow' -> 'Event' -> 'IO(Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'GlWindow' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'GlWindow' -> 'IO' () ----- hideOverlay :: 'Ref' 'GlWindow' -> 'IO' ()------ hideSuper :: 'Ref' 'GlWindow' -> 'IO' ()------ invalidate :: 'Ref' 'GlWindow' -> 'IO' ()------ makeOverlayCurrent :: 'Ref' 'GlWindow' -> 'IO' ()------ ortho :: 'Ref' 'GlWindow' -> 'IO' ()------ pixelH :: 'Ref' 'GlWindow' -> 'IO' ('Int')------ pixelW :: 'Ref' 'GlWindow' -> 'IO' ('Int')------ pixelsPerUnit :: 'Ref' 'GlWindow' -> 'IO' ('Float')------ redrawOverlay :: 'Ref' 'GlWindow' -> 'IO' ()--- -- resize :: 'Ref' 'GlWindow' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'GlWindow' -> 'Rectangle' -> 'IO' ()------ setContext :: 'Ref' 'GlWindow' -> 'Ref' 'FlGlContext' -> 'IO' ()------ setContextValid :: 'Ref' 'GlWindow' -> 'Bool' -> 'IO' ()------ setContextWithDestroyFlag :: 'Ref' 'GlWindow' -> 'Ref' 'FlGlContext' -> 'Bool' -> 'IO' ()------ setMode :: 'Ref' 'GlWindow' -> 'Modes' -> 'IO' ()------ setValid :: 'Ref' 'GlWindow' -> 'Bool' -> 'IO' ()--- -- showWidget :: 'Ref' 'GlWindow' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'GlWindow' -> 'IO' ()------ swapBuffers :: 'Ref' 'GlWindow' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Window"---  |---  v--- "Graphics.UI.FLTK.LowLevel.GlWindow" -- @
src/Graphics/UI/FLTK/LowLevel/Group.chs view
@@ -2,276 +2,56 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Group     (-    -- * Constructor-     groupNew,-     groupCustom,-     groupSetCurrent,-     groupCurrent,      -- * Hierarchy      --      -- $hierarchy -     -- * Group functions+     -- * Functions      ---     -- $groupfunctions+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h"-#include "Fl_WidgetC.h" #include "Fl_GroupC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Dispatch import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import Control.Exception (finally) -{# fun Fl_Group_set_current as groupSetCurrent' { id `Ptr ()' } -> `()' #}-{# fun Fl_Group_current as groupCurrent' {} -> `Ptr ()' id #}--groupSetCurrent :: (Parent a Group) => Maybe (Ref a) -> IO ()-groupSetCurrent group = withMaybeRef group $ \groupPtr -> groupSetCurrent' groupPtr--groupCurrent :: IO (Maybe (Ref Group))-groupCurrent = groupCurrent' >>= toMaybeRef--{# fun Fl_Group_New as groupNew' {  `Int',`Int', `Int', `Int'} -> `Ptr ()' id #}-{# fun Fl_Group_New_WithLabel as groupNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-groupNew :: Rectangle -> Maybe T.Text -> IO (Ref Group)-groupNew rectangle label' =-  widgetMaker-    rectangle-    label'-    Nothing-    Nothing-    overriddenGroupNew'-    overriddenGroupNewWithLabel'--{# fun Fl_OverriddenGroup_New_WithLabel as overriddenGroupNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenGroup_New as overriddenGroupNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-groupCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Group -> IO ()) -> CustomWidgetFuncs Group -> IO (Ref Group)-groupCustom rectangle l' draw' funcs' =-  widgetMaker rectangle l' draw' (Just funcs') overriddenGroupNew' overriddenGroupNewWithLabel'--{# fun Fl_Group_Destroy as groupDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> groupDestroy' groupPtr---{# fun Fl_Group_draw_child as drawChild' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Widget, impl ~ (Ref a -> IO ())) => Op (DrawChild ()) Group orig impl where-  runOp _ _ group widget = withRef group $ \groupPtr -> withRef widget $ \widgetPtr -> drawChild' groupPtr widgetPtr--{# fun Fl_Group_draw_children as drawChildren' { id `Ptr ()' } -> `()' #}-instance (impl ~ (IO ())) => Op (DrawChildren ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> drawChildren' groupPtr--{# fun Fl_Group_draw_outside_label as drawOutsideLabel' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Widget, impl ~ (Ref a -> IO ())) => Op (DrawOutsideLabel ()) Group orig impl where-  runOp _ _ group widget = withRef group $ \groupPtr -> withRef widget $ \widgetPtr -> drawOutsideLabel' groupPtr widgetPtr--{# fun Fl_Group_update_child as updateChild' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Widget, impl ~ (Ref a -> IO ())) => Op (UpdateChild ()) Group orig impl where-  runOp _ _ group widget = withRef group $ \groupPtr -> withRef widget $ \widgetPtr -> updateChild' groupPtr widgetPtr--{# fun Fl_Group_begin as begin' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Begin ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> begin' groupPtr--{# fun Fl_Group_end as end' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (End ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> end' groupPtr--instance (-           Match obj ~ FindOp orig orig (Begin ()),-           Match obj ~ FindOp orig orig (End ()),-           Op (Begin ()) obj orig (IO ()),-           Op (End ()) obj orig (IO ()),-           impl ~ (IO a -> IO a)-         )-         =>-         Op (Within ()) Group orig impl where-  runOp _ _ group action = do-    () <- begin (castTo group :: Ref orig)-    finally action ((end (castTo group :: Ref orig)) :: IO ())--{# fun Fl_Group_find as find' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (Parent a Widget, impl ~ (Ref a ->  IO (AtIndex))) => Op (Find ()) Group orig impl where-  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> find' groupPtr wPtr >>= return . AtIndex--{# fun Fl_Group_add as add' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Ref a->  IO ())) => Op (Add ()) Group orig impl where-  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> add' groupPtr wPtr--{# fun Fl_Group_insert as insert' { id `Ptr ()',id `Ptr ()',`Int' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Ref a-> AtIndex ->  IO ())) => Op (Insert ()) Group orig impl where-  runOp _ _ group w (AtIndex i) = withRef group $ \groupPtr -> withRef w $ \wPtr -> insert' groupPtr wPtr i--{# fun Fl_Group_remove_index as removeIndex' { id `Ptr ()',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( AtIndex ->  IO ())) => Op (RemoveIndex ()) Group orig impl where-  runOp _ _ group (AtIndex index') = withRef group $ \groupPtr -> removeIndex' groupPtr index'--{# fun Fl_Group_remove_widget as removeWidget' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Ref a ->  IO ())) => Op (RemoveWidget ()) Group orig impl where-  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> removeWidget' groupPtr wPtr--{# fun Fl_Group_clear as clear' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Clear ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> clear' groupPtr--{# fun Fl_Group_set_resizable as setResizable' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Maybe ( Ref a ) -> IO ())) => Op (SetResizable ()) Group orig impl where-  runOp _ _ group o = withRef group $ \groupPtr -> withMaybeRef o $ \oPtr -> setResizable' groupPtr oPtr--instance (impl ~ IO ()) => Op (SetNotResizable ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> setResizable' groupPtr nullPtr--{# fun Fl_Group_resizable as resizable' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref Widget)))) => Op (GetResizable ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> resizable' groupPtr >>= toMaybeRef--{# fun Fl_Group_add_resizable as addResizable' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Ref a ->  IO ())) => Op (AddResizable ()) Group orig impl where-  runOp _ _ group o = withRef group $ \groupPtr -> withRef o $ \oPtr -> addResizable' groupPtr oPtr--{# fun Fl_Group_init_sizes as initSizes' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (InitSizes ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> initSizes' groupPtr--{# fun Fl_Group_children as children' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (Children ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> children' groupPtr--{# fun Fl_Group_set_clip_children as setClipChildren' { id `Ptr ()', cFromBool `Bool' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Bool ->  IO ())) => Op (SetClipChildren ()) Group orig impl where-  runOp _ _ group c = withRef group $ \groupPtr -> setClipChildren' groupPtr c--{# fun Fl_Group_clip_children as clipChildren' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (ClipChildren ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> clipChildren' groupPtr--{# fun Fl_Group_focus as focus' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Ref a ->  IO ())) => Op (Focus ()) Group orig impl where-  runOp _ _ group w = withRef group $ \groupPtr -> withRef w $ \wPtr -> focus' groupPtr wPtr--{# fun Fl_Group__ddfdesign_kludge as ddfdesignKludge' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (DdfdesignKludge ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> ddfdesignKludge' groupPtr >>= toMaybeRef--{# fun Fl_Group_insert_with_before as insertWithBefore' { id `Ptr ()',id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Widget, impl ~ (Ref a -> Ref b ->  IO ())) => Op (InsertBefore ()) Group orig impl where-  runOp _ _ self w before = withRef self $ \selfPtr -> withRef w $ \wPtr -> withRef before $ \beforePtr -> insertWithBefore' selfPtr wPtr beforePtr--{# fun Fl_Group_array as array' { id `Ptr ()' } -> `Ptr (Ptr ())' id#}-instance (impl ~ (IO [Ref Widget])) => Op (GetArray ()) Group orig impl where-  runOp _ _ group = withRef group $ \groupPtr -> do-                    childArrayPtr <- array' groupPtr-                    numChildren <- children group-                    arrayToRefs childArrayPtr numChildren--{# fun Fl_Group_child as child' { id `Ptr ()',`Int' } -> `Ptr ()' id #}-instance (impl ~ (AtIndex ->  IO (Maybe (Ref Widget)))) => Op (GetChild ()) Group orig impl where-  runOp _ _ self (AtIndex n) = withRef self $ \selfPtr -> child' selfPtr n >>= toMaybeRef--{#fun Fl_Group_handle as groupHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedGroup_handle as groupHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Group orig impl where   runOp _ _ group event = withRef group (\p -> groupHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent -{# fun Fl_Group_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-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 #}+{# fun Fl_DerivedGroup_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Group 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_DerivedGroup_Destroy as groupDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Destroy ()) Group orig impl where+  runOp _ _ group = withRef group $ \groupPtr -> groupDestroy' groupPtr -{# 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+-- $hierarchy -- @--- add:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a-> 'IO' ()------ addResizable:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ()------ begin :: 'Ref' 'Group' -> 'IO' ()------ children :: 'Ref' 'Group' -> 'IO' ('Int')------ clear :: 'Ref' 'Group' -> 'IO' ()------ clipChildren :: 'Ref' 'Group' -> 'IO' ('Bool')------ ddfdesignKludge :: 'Ref' 'Group' -> 'IO' ('Maybe' ('Ref' 'Widget'))---+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Group"+-- @++-- $functions+-- @ -- destroy :: 'Ref' 'Group' -> 'IO' () ----- drawChild:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ()------ drawChildren :: 'Ref' 'Group' -> 'IO' ()------ 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')------ focus:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ()------ getArray :: 'Ref' 'Group' -> 'IO' ['Ref' 'Widget']------ getChild :: 'Ref' 'Group' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' 'Widget'))------ getResizable :: 'Ref' 'Group' -> 'IO' ('Maybe' ('Ref' 'Widget'))--- -- handle :: 'Ref' 'Group' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Group' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ initSizes :: 'Ref' 'Group' -> 'IO' ()------ insert:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a-> 'AtIndex' -> 'IO' ()------ insertBefore:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'Ref' b -> 'IO' ()------ removeIndex :: 'Ref' 'Group' -> 'AtIndex' -> 'IO' ()------ removeWidget:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ()--- -- resize :: 'Ref' 'Group' -> 'Rectangle' -> 'IO' ()------ resizeSuper :: 'Ref' 'Group' -> 'Rectangle' -> 'IO' ()------ setClipChildren :: 'Ref' 'Group' -> 'Bool' -> 'IO' ()------ setNotResizable :: 'Ref' 'Group' -> 'IO' ()------ setResizable:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()------ updateChild:: ('Parent' a 'Widget') => 'Ref' 'Group' -> 'Ref' a -> 'IO' ()------ within:: ('Match' obj ~ 'FindOp' orig orig ('Begin' ()), 'Match' obj ~ 'FindOp' orig orig ('End' ()), 'Op' ('Begin' ()) obj orig ('IO' ()), 'Op' ('End' ()) obj orig ('IO' ()),) => 'Ref' 'Group' -> 'IO' a -> 'IO' a--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group" -- @
src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs view
@@ -23,4595 +23,5060 @@ module Graphics.UI.FLTK.LowLevel.Hierarchy        (          -- * Widget-         Widget,-         WidgetFuncs,-         Destroy,-         destroy,-         Handle,-         handle,-         GetParent,-         getParent,-         SetParent,-         setParent,-         GetType_,-         getType_,-         SetType,-         setType,-         DrawLabel,-         drawLabel,-         GetX,-         getX,-         GetY,-         getY,-         GetW,-         getW,-         GetH,-         getH,-         GetRectangle,-         getRectangle,-         SetAlign,-         setAlign,-         GetAlign,-         getAlign,-         GetBox,-         getBox,-         SetBox,-         setBox,-         GetColor,-         getColor,-         SetColor,-         setColor,-         SetColorWithBgSel,-         setColorWithBgSel,-         GetSelectionColor,-         getSelectionColor,-         SetSelectionColor,-         setSelectionColor,-         GetLabel,-         getLabel,-         CopyLabel,-         copyLabel,-         SetLabel,-         setLabel,-         GetLabeltype,-         getLabeltype,-         SetLabeltype,-         setLabeltype,-         GetLabelcolor,-         getLabelcolor,-         SetLabelcolor,-         setLabelcolor,-         GetLabelfont,-         getLabelfont,-         SetLabelfont,-         setLabelfont,-         GetLabelsize,-         getLabelsize,-         SetLabelsize,-         setLabelsize,-         GetImage,-         getImage,-         SetImage,-         setImage,-         GetDeimage,-         getDeimage,-         SetDeimage,-         setDeimage,-         GetTooltip,-         getTooltip,-         CopyTooltip,-         copyTooltip,-         SetTooltip,-         setTooltip,-         GetWhen,-         getWhen,-         SetWhen,-         setWhen,-         GetVisible,-         getVisible,-         GetVisibleR,-         getVisibleR,-         ShowWidgetSuper,-         showWidgetSuper,-         ShowWidget,-         showWidget,-         HideSuper,-         hideSuper,-         Hide,-         hide,-         SetVisible,-         setVisible,-         ClearVisible,-         clearVisible,-         Active,-         active,-         ActiveR,-         activeR,-         Activate,-         activate,-         Deactivate,-         deactivate,-         GetOutput,-         getOutput,-         SetOutput,-         setOutput,-         ClearOutput,-         clearOutput,-         Takesevents,-         takesevents,-         SetChanged,-         setChanged,-         ClearChanged,-         clearChanged,-         Changed,-         changed,-         SetActive,-         setActive,-         ClearActive,-         clearActive,-         TakeFocus,-         takeFocus,-         SetVisibleFocus,-         setVisibleFocus,-         ClearVisibleFocus,-         clearVisibleFocus,-         ModifyVisibleFocus,-         modifyVisibleFocus,-         GetVisibleFocus,-         getVisibleFocus,-         Contains,-         contains,-         Inside,-         inside,-         Redraw,-         redraw,-         RedrawLabel,-         redrawLabel,-         GetDamage,-         getDamage,-         ClearDamageThenSet,-         clearDamageThenSet,-         ClearDamage,-         clearDamage,-         SetDamage,-         setDamage,-         SetDamageInside,-         setDamageInside,-         MeasureLabel,-         measureLabel,-         GetWindow,-         getWindow,-         GetTopWindow,-         getTopWindow,-         GetTopWindowOffset,-         getTopWindowOffset,-         ResizeSuper,-         resizeSuper,-         Resize,-         resize,-         SetCallback,-         setCallback,-         HasCallback,-         hasCallback,-         DrawBox,-         drawBox,-         DrawBoxWithBoxtype,-         drawBoxWithBoxtype,-         DrawBackdrop,-         drawBackdrop,-         DrawFocus,-         drawFocus,-         Flags,-         flags,-         SetFlag,-         setFlag,-         ClearFlag,-         clearFlag,-         -- * Group-         Group,-         DrawChild,-         drawChild,-         DrawChildren,-         drawChildren,-         DrawOutsideLabel,-         drawOutsideLabel,-         UpdateChild,-         updateChild,-         Begin,-         begin,-         End,-         end,-         Within,-         within,-         Find,-         find,-         Add,-         add,-         Insert,-         insert,-         RemoveIndex,-         removeIndex,-         RemoveWidget,-         removeWidget,-         Clear,-         clear,-         SetResizable,-         setResizable,-         SetNotResizable,-         setNotResizable,-         GetResizable,-         getResizable,-         AddResizable,-         addResizable,-         InitSizes,-         initSizes,-         Children,-         children,-         SetClipChildren,-         setClipChildren,-         ClipChildren,-         clipChildren,-         Focus,-         focus,-         DdfdesignKludge,-         ddfdesignKludge,-         InsertBefore,-         insertBefore,-         GetArray,-         getArray,-         GetChild,-         getChild,-         -- * Window-         Window,-         DrawSuper,-         drawSuper,-         HandleSuper,-         handleSuper,-         FlushSuper,-         flushSuper,-         MakeFullscreen,-         makeFullscreen,-         FullscreenOff,-         fullscreenOff,-         SetBorder,-         setBorder,-         ClearBorder,-         clearBorder,-         GetBorder,-         getBorder,-         SetOverride,-         setOverride,-         GetOverride,-         getOverride,-         SetModal,-         setModal,-         GetModal,-         getModal,-         SetNonModal,-         setNonModal,-         NonModal,-         nonModal,-         SetMenuWindow,-         setMenuWindow,-         GetMenuWindow,-         getMenuWindow,-         SetTooltipWindow,-         setTooltipWindow,-         GetTooltipWindow,-         getTooltipWindow,-         HotSpot,-         hotSpot,-         FreePosition,-         freePosition,-         SizeRange,-         sizeRange,-         SizeRangeWithArgs,-         sizeRangeWithArgs,-         GetIconlabel,-         getIconlabel,-         SetIconlabel,-         setIconlabel,-         SetLabelWithIconlabel,-         setLabelWithIconlabel,-         GetXclass,-         getXclass,-         SetXclass,-         setXclass,-         GetIcon,-         getIcon,-         SetIcon,-         setIcon,-         Shown,-         shown,-         Iconize,-         iconize,-         GetXRoot,-         getXRoot,-         GetYRoot,-         getYRoot,-         MakeCurrent,-         makeCurrent,-         SetCursor,-         setCursor,-         SetCursorWithFgBg,-         setCursorWithFgBg,-         SetDefaultCursor,-         setDefaultCursor,-         SetDefaultCursorWithFgBg,-         setDefaultCursorWithFgBg,-         GetDecoratedW,-         getDecoratedW,-         GetDecoratedH,-         getDecoratedH,-         WaitForExpose,-         waitForExpose,-         -- * SingleWindow-         SingleWindow,-         -- * DoubleWindow-         DoubleWindow,-         -- * OverlayWindow-         OverlayWindow,-         CanDoOverlay,-         canDoOverlay,-         RedrawOverlay,-         redrawOverlay,-         Flush,-         flush,-         -- * Button-         Button,-         GetValue,-         getValue,-         SetValue,-         setValue,-         Set,-         set,-         Setonly,-         setonly,-         GetShortcut,-         getShortcut,-         SetShortcut,-         setShortcut,-         GetDownBox,-         getDownBox,-         SetDownBox,-         setDownBox,-         GetDownColor,-         getDownColor,-         SetDownColor,-         setDownColor,-         -- * LightButton-         LightButton,-         -- * RadioLightButton-         RadioLightButton,-         -- * CheckButton-         CheckButton,-         -- * ReturnButton-         ReturnButton,-         -- * RoundButton-         RoundButton,-         -- * RepeatButton-         RepeatButton,-         -- * ToggleButton-         ToggleButton,-         -- * Valuator-         Valuator,-         Bounds,-         bounds,-         GetMinimum,-         getMinimum,-         SetMinimum,-         setMinimum,-         GetMaximum,-         getMaximum,-         SetMaximum,-         setMaximum,-         Range,-         range,-         SetStep,-         setStep,-         GetStep,-         getStep,-         Precision,-         precision,-         Format,-         format,-         Round,-         round,-         Clamp,-         clamp,-         Increment,-         increment,-         -- * Slider-         Slider,-         Scrollvalue,-         scrollvalue,-         SetSliderSize,-         setSliderSize,-         GetSliderSize,-         getSliderSize,-         GetSlider,-         getSlider,-         SetSlider,-         setSlider,-         -- * FillSlider-         FillSlider,-         -- * HorSlider-         HorSlider,-         -- * HorFillSider-         HorFillSlider,-         -- * NiceSlider-         NiceSlider,-         -- * HorNiceSlider-         HorNiceSlider,-         -- * MenuItem-         MenuItem,-         NextWithStep,-         nextWithStep,-         Next,-         next,-         GetFirst,-         getFirst,-         SetLabelWithLabeltype,-         setLabelWithLabeltype,-         Submenu,-         submenu,-         Checkbox,-         checkbox,-         Radio,-         radio,-         Visible,-         visible,-         Activevisible,-         activevisible,-         Measure,-         measure,-         DrawWithT,-         drawWithT,-         Draw,-         draw,-         GetFlags,-         getFlags,-         SetFlags,-         setFlags,-         GetText,-         getText,-         Pulldown,-         pulldown,-         Popup,-         popup,-         TestShortcut,-         testShortcut,-         FindShortcut,-         findShortcut,-         DoCallback,-         doCallback,-         GetSize,-         getSize,-         -- * MenuPrim-         MenuPrim,-         ItemPathname,-         itemPathname,-         ItemPathnameRecent,-         itemPathnameRecent,-         Picked,-         picked,-         FindIndex,-         findIndex,-         Global,-         global,-         GetMenu,-         getMenu,-         SetMenu,-         setMenu,-         AddName,-         addName,-         Copy,-         copy,-         SetSize,-         setSize,-         ClearSubmenu,-         clearSubmenu,-         Replace,-         replace,-         Remove,-         remove,-         SetMode,-         setMode,-         GetMode,-         getMode,-         Mvalue,-         mvalue,-         GetTextWithIndex,-         getTextWithIndex,-         GetTextfont,-         getTextfont,-         SetTextfont,-         setTextfont,-         GetTextsize,-         getTextsize,-         SetTextsize,-         setTextsize,-         GetTextcolor,-         getTextcolor,-         SetTextcolor,-         setTextcolor,-         DownBox,-         downBox,-         AddAndGetMenuItem,-         addAndGetMenuItem,-         -- * MenuBar-         MenuBar,-         -- * SysMenuBar-         SysMenuBar,-         -- * Choice,-         Choice,-         -- * MenuButton-         MenuButton,-         -- * Image-         Image,-         GetD,-         getD,-         GetLd,-         getLd,-         GetCount,-         getCount,-         ColorAverage,-         colorAverage,-         Inactive,-         inactive,-         Desaturate,-         desaturate,-         DrawResize,-         drawResize,-         Uncache,-         uncache,-         Fail,-         fail,-         Scale,-         scale,-         GetDataW,-         getDataW,-         GetDataH,-         getDataH,-         GetDataSize,-         getDataSize,-         -- * Bitmap-         Bitmap,-         -- * Pixmap-         Pixmap,-         -- * CopySurface-         CopySurface,-         SetCurrent,-         setCurrent,-         -- * ImageSurface-         ImageSurface,-         GetOrigin,-         getOrigin,-         PrintableRect,-         printableRect,-         SetOrigin,-         setOrigin,-         GetOffscreenBeforeDelete,-         getOffscreenBeforeDelete,-         GetOffscreen,-         getOffscreen,-         -- * Adjuster-         Adjuster,-         SetSoft,-         setSoft,-         GetSoft,-         getSoft,-         -- * Dial-         Dial,-         GetAngle1,-         getAngle1,-         SetAngle1,-         setAngle1,-         GetAngle2,-         getAngle2,-         SetAngle2,-         setAngle2,-         SetAngles,-         setAngles,-         -- * FillDial-         FillDial,-         -- * LineDial-         LineDial,-         -- * Roller-         Roller,-         -- * Counter-         Counter,-         SetLstep,-         setLstep,-         -- * Scrollbar-         Scrollbar,-         SetLinesize,-         setLinesize,-         GetLinesize,-         getLinesize,-         -- * ValueSlider-         ValueSlider,-         -- * HorValueSlider-         HorValueSlider,-         -- * Input-         Input,-         StaticValue,-         staticValue,-         Index,-         index,-         GetMaximumSize,-         getMaximumSize,-         SetMaximumSize,-         setMaximumSize,-         GetPosition,-         getPosition,-         GetMark,-         getMark,-         SetPosition,-         setPosition,-         SetMark,-         setMark,-         Cut,-         cut,-         CutFromCursor,-         cutFromCursor,-         CutRange,-         cutRange,-         InsertWithLength,-         insertWithLength,-         Undo,-         undo,-         CopyCuts,-         copyCuts,-         GetCursorColor,-         getCursorColor,-         SetCursorColor,-         setCursorColor,-         GetInputType,-         getInputType,-         SetInputType,-         setInputType,-         GetReadonly,-         getReadonly,-         SetReadonly,-         setReadonly,-         GetWrap,-         getWrap,-         SetWrap,-         setWrap,-         GetTabNav,-         getTabNav,-         SetTabNav,-         setTabNav,-         DrawText,-         drawText,-         -- * Output-         Output,-         -- * ValueInput-         ValueInput,-         -- * ValueOutput-         ValueOutput,-         -- * Progress-         Progress,-         -- * Positioner-         Positioner,-         SetXvalue,-         setXvalue,-         GetXvalue,-         getXvalue,-         SetYvalue,-         setYvalue,-         GetYvalue,-         getYvalue,-         SetXminimum,-         setXminimum,-         GetXminimum,-         getXminimum,-         SetYminimum,-         setYminimum,-         GetYminimum,-         getYminimum,-         SetXmaximum,-         setXmaximum,-         GetXmaximum,-         getXmaximum,-         SetYmaximum,-         setYmaximum,-         GetYmaximum,-         getYmaximum,-         SetXbounds,-         setXbounds,-         SetYbounds,-         setYbounds,-         SetXstep,-         setXstep,-         SetYstep,-         setYstep,-         -- * Wizard-         Wizard,-         Prev,-         prev,-         -- * Table-         Table,-         SetTableBox,-         setTableBox,-         GetTableBox,-         getTableBox,-         SetRows,-         setRows,-         GetRows,-         getRows,-         SetCols,-         setCols,-         GetCols,-         getCols,-         GetVisibleCells,-         getVisibleCells,-         IsInteractiveResize,-         isInteractiveResize,-         GetRowResize,-         getRowResize,-         SetRowResize,-         setRowResize,-         GetColResize,-         getColResize,-         SetColResize,-         setColResize,-         GetColResizeMin,-         getColResizeMin,-         SetColResizeMin,-         setColResizeMin,-         GetRowResizeMin,-         getRowResizeMin,-         SetRowResizeMin,-         setRowResizeMin,-         GetRowHeader,-         getRowHeader,-         SetRowHeader,-         setRowHeader,-         GetColHeader,-         getColHeader,-         SetColHeader,-         setColHeader,-         SetColHeaderHeight,-         setColHeaderHeight,-         GetColHeaderHeight,-         getColHeaderHeight,-         SetRowHeaderWidth,-         setRowHeaderWidth,-         GetRowHeaderWidth,-         getRowHeaderWidth,-         SetRowHeaderColor,-         setRowHeaderColor,-         GetRowHeaderColor,-         getRowHeaderColor,-         SetColHeaderColor,-         setColHeaderColor,-         GetColHeaderColor,-         getColHeaderColor,-         SetRowHeight,-         setRowHeight,-         GetRowHeight,-         getRowHeight,-         SetColWidth,-         setColWidth,-         GetColWidth,-         getColWidth,-         SetRowHeightAll,-         setRowHeightAll,-         SetColWidthAll,-         setColWidthAll,-         SetRowPosition,-         setRowPosition,-         SetColPosition,-         setColPosition,-         GetRowPosition,-         getRowPosition,-         GetColPosition,-         getColPosition,-         SetTopRow,-         setTopRow,-         GetTopRow,-         getTopRow,-         IsSelected,-         isSelected,-         GetSelection,-         getSelection,-         SetSelection,-         setSelection,-         MoveCursor,-         moveCursor,-         CallbackRow,-         callbackRow,-         CallbackCol,-         callbackCol,-         CallbackContext,-         callbackContext,-         FindCell,-         findCell,-         ClearSuper,-         clearSuper,-         SetRowsSuper,-         setRowsSuper,-         SetColsSuper,-         setColsSuper,-         SetTabCellNav,-         setTabCellNav,-         GetTabCellNav,-         getTabCellNav,-         -- * TableRow-         TableRow,-         GetRowSelected,-         getRowSelected,-         SelectAllRows,-         selectAllRows,-         -- * GlWindow-         GlWindow,-         GetValid,-         getValid,-         SetValid,-         setValid,-         Invalidate,-         invalidate,-         GetContextValid,-         getContextValid,-         SetContextValid,-         setContextValid,-         CanDo,-         canDo,-         GetContext,-         getContext,-         SetContext,-         setContext,-         SetContextWithDestroyFlag,-         setContextWithDestroyFlag,-         SwapBuffers,-         swapBuffers,-         Ortho,-         ortho,-         HideOverlay,-         hideOverlay,-         MakeOverlayCurrent,-         makeOverlayCurrent,-         PixelsPerUnit,-         pixelsPerUnit,-         PixelH,-         pixelH,-         PixelW,-         pixelW,-         -- * Box-         Box,-         -- * Browser-         Browser,-         Move,-         move,-         Load,-         load,-         Swap,-         swap,-         GetTopline,-         getTopline,-         Lineposition,-         lineposition,-         SetTopline,-         setTopline,-         SetBottomline,-         setBottomline,-         SetMiddleline,-         setMiddleline,-         Select,-         select,-         Selected,-         selected,-         ShowWidgetLine,-         showWidgetLine,-         HideLine,-         hideLine,-         SetText,-         setText,-         GetFormatChar,-         getFormatChar,-         SetFormatChar,-         setFormatChar,-         GetColumnChar,-         getColumnChar,-         SetColumnChar,-         setColumnChar,-         GetColumnWidths,-         getColumnWidths,-         SetColumnWidths,-         setColumnWidths,-         Displayed,-         displayed,-         MakeVisible,-         makeVisible,-         RemoveIcon,-         removeIcon,-         SelectOnly,-         selectOnly,-         SelectOnlyAndCallback,-         selectOnlyAndCallback,-         Deselect,-         deselect,-         DeselectAndCallback,-         deselectAndCallback,-         GetHposition,-         getHposition,-         SetHposition,-         setHposition,-         GetHasScrollbar,-         getHasScrollbar,-         SetHasScrollbar,-         setHasScrollbar,-         GetScrollbarSize,-         getScrollbarSize,-         SetScrollbarSize,-         setScrollbarSize,-         GetScrollbarWidth,-         getScrollbarWidth,-         SetScrollbarWidth,-         setScrollbarWidth,-         SetScrollbarColor,-         setScrollbarColor,-         SetScrollbarSelectionColor,-         setScrollbarSelectionColor,-         Sort,-         sort,-         SortWithSortType,-         sortWithSortType,-         -- * SelectBrowser-         SelectBrowser,-         -- * IntInput-         IntInput,-         -- * Clock-         Clock,-         GetValueSinceEpoch,-         getValueSinceEpoch,-         GetShadow,-         getShadow,-         SetShadow,-         setShadow,-         -- * TreePrefs-         TreePrefs,-         GetItemLabelfont,-         getItemLabelfont,-         GetItemLabelsize,-         getItemLabelsize,-         SetItemLabelsize,-         setItemLabelsize,-         SetItemLabelfgcolor,-         setItemLabelfgcolor,-         GetItemLabelbgcolor,-         getItemLabelbgcolor,-         SetItemLabelbgcolor,-         setItemLabelbgcolor,-         GetLabelfgcolor,-         getLabelfgcolor,-         SetLabelfgcolor,-         setLabelfgcolor,-         GetLabelbgcolor,-         getLabelbgcolor,-         SetLabelbgcolor,-         setLabelbgcolor,-         GetMarginleft,-         getMarginleft,-         SetMarginleft,-         setMarginleft,-         GetMargintop,-         getMargintop,-         SetMargintop,-         setMargintop,-         GetOpenchildMarginbottom,-         getOpenchildMarginbottom,-         SetOpenchildMarginbottom,-         setOpenchildMarginbottom,-         GetUsericonmarginleft,-         getUsericonmarginleft,-         SetUsericonmarginleft,-         setUsericonmarginleft,-         GetLabelmarginleft,-         getLabelmarginleft,-         SetLabelmarginleft,-         setLabelmarginleft,-         GetLinespacing,-         getLinespacing,-         SetLinespacing,-         setLinespacing,-         GetConnectorcolor,-         getConnectorcolor,-         SetConnectorcolor,-         setConnectorcolor,-         GetConnectorstyle,-         getConnectorstyle,-         SetConnectorstyle,-         setConnectorstyle,-         GetConnectorwidth,-         getConnectorwidth,-         SetConnectorwidth,-         setConnectorwidth,-         GetOpenicon,-         getOpenicon,-         SetOpenicon,-         setOpenicon,-         GetCloseicon,-         getCloseicon,-         SetCloseicon,-         setCloseicon,-         GetUsericon,-         getUsericon,-         SetUsericon,-         setUsericon,-         GetShowcollapse,-         getShowcollapse,-         SetShowcollapse,-         setShowcollapse,-         GetSortorder,-         getSortorder,-         SetSortorder,-         setSortorder,-         GetSelectbox,-         getSelectbox,-         SetSelectbox,-         setSelectbox,-         GetShowroot,-         getShowroot,-         SetShowroot,-         setShowroot,-         GetSelectmode,-         getSelectmode,-         SetSelectmode,-         setSelectmode,-         -- * TreeItem-         TreeItem,-         ShowSelf,-         showSelf,-         SetWidget,-         setWidget,-         GetWidget,-         getWidget,-         Child,-         child,-         HasChildren,-         hasChildren,-         FindChild,-         findChild,-         RemoveChild,-         removeChild,-         ClearChildren,-         clearChildren,-         SwapChildren,-         swapChildren,-         SwapChildrenByTreeItem,-         swapChildrenByTreeItem,-         FindInChildren,-         findInChildren,-         FindItem,-         findItem,-         AddAt,-         addAt,-         InsertAbove,-         insertAbove,-         Deparent,-         deparent,-         Reparent,-         reparent,-         MoveTo,-         moveTo,-         GetDepth,-         getDepth,-         NextSibling,-         nextSibling,-         PrevSibling,-         prevSibling,-         UpdatePrevNext,-         updatePrevNext,-         NextDisplayed,-         nextDisplayed,-         PrevDisplayed,-         prevDisplayed,-         Open,-         open,-         Close,-         close,-         IsOpen,-         isOpen,-         IsClose,-         isClose,-         OpenToggle,-         openToggle,-         SelectSet,-         selectSet,-         SelectToggle,-         selectToggle,-         SelectAll,-         selectAll,-         DeselectAll,-         deselectAll,-         ActivateWith,-         activateWith,-         IsActive,-         isActive,-         IsVisible,-         isVisible,-         VisibleR,-         visibleR,-         FindClicked,-         findClicked,-         EventOnCollapseIcon,-         eventOnCollapseIcon,-         EventOnLabel,-         eventOnLabel,-         IsRoot,-         isRoot,-         LabelX,-         labelX,-         LabelY,-         labelY,-         LabelW,-         labelW,-         LabelH,-         labelH,-         -- * Tree-         Tree,-         RootLabel,-         rootLabel,-         Root,-         root,-         ItemClicked,-         itemClicked,-         FirstVisible,-         firstVisible,-         NextItem,-         nextItem,-         NextAfterItem,-         nextAfterItem,-         PrevBeforeItem,-         prevBeforeItem,-         GetLast,-         getLast,-         LastVisible,-         lastVisible,-         FirstSelectedItem,-         firstSelectedItem,-         LastSelectedItem,-         lastSelectedItem,-         NextSelectedItem,-         nextSelectedItem,-         NextSelectedItemAfterItem,-         nextSelectedItemAfterItem,-         OpenAndCallback,-         openAndCallback,-         OpenToggleAndCallback,-         openToggleAndCallback,-         TreeMenuItemLocator,-         treeMenuItemLocator,-         CloseAndCallback,-         closeAndCallback,-         SelectAndCallback,-         selectAndCallback,-         SelectToggleAndCallback,-         selectToggleAndCallback,-         SelectAllAndCallback,-         selectAllAndCallback,-         DeselectAllAndCallback,-         deselectAllAndCallback,-         SetItemFocus,-         setItemFocus,-         GetItemFocus,-         getItemFocus,-         IsSelectedWithItem,-         isSelectedWithItem,-         SetItemLabelfont,-         setItemLabelfont,-         GetItemLabelfgcolor,-         getItemLabelfgcolor,-         Selectmode,-         selectmode,-         ShowItemWithYoff,-         showItemWithYoff,-         ShowItemTop,-         showItemTop,-         ShowItemMiddle,-         showItemMiddle,-         ShowItemBottom,-         showItemBottom,-         Display,-         display,-         GetVposition,-         getVposition,-         SetVposition,-         setVposition,-         IsScrollbar,-         isScrollbar,-         IsVscrollVisible,-         isVscrollVisible,-         SetCallbackItem,-         setCallbackItem,-         GetCallbackItem,-         getCallbackItem,-         SetCallbackReason,-         setCallbackReason,-         GetCallbackReason,-         getCallbackReason,-         RecalcTree,-         recalcTree,-         SetMarginbottom,-         setMarginbottom,-         GetMarginbottom,-         getMarginbottom,-         SetWidgetmarginleft,-         setWidgetmarginleft,-         GetWidgetmarginleft,-         getWidgetmarginleft,-         SetItemReselectMode,-         setItemReselectMode,-         GetItemReselectMode,-         getItemReselectMode,-         SetItemDrawMode,-         setItemDrawMode,-         GetItemDrawMode,-         getItemDrawMode,-         -- * TextSelection-         TextSelection,-         Update,-         update,-         Start,-         start,-         SetSelected,-         setSelected,-         Includes,-         includes,-         -- * TextBuffer-         TextBuffer,-         InputFileWasTranscoded,-         inputFileWasTranscoded,-         FileEncodingWarningMessage,-         fileEncodingWarningMessage,-         GetLength,-         getLength,-         TextRange,-         textRange,-         CharAt,-         charAt,-         ByteAt,-         byteAt,-         AppendToBuffer,-         appendToBuffer,-         CanUndo,-         canUndo,-         Insertfile,-         insertfile,-         InsertfileWithBuflen,-         insertfileWithBuflen,-         Appendfile,-         appendfile,-         AppendfileWithBuflen,-         appendfileWithBuflen,-         Loadfile,-         loadfile,-         LoadfileWithBuflen,-         loadfileWithBuflen,-         Outputfile,-         outputfile,-         OutputfileWithBuflen,-         outputfileWithBuflen,-         Savefile,-         savefile,-         SavefileWithBuflen,-         savefileWithBuflen,-         GetTabDistance,-         getTabDistance,-         SetTabDistance,-         setTabDistance,-         Unselect,-         unselect,-         SelectionPosition,-         selectionPosition,-         SelectionText,-         selectionText,-         RemoveSelection,-         removeSelection,-         ReplaceSelection,-         replaceSelection,-         SecondarySelect,-         secondarySelect,-         SecondarySelected,-         secondarySelected,-         SecondaryUnselect,-         secondaryUnselect,-         SecondarySelectionPosition,-         secondarySelectionPosition,-         SecondarySelectionText,-         secondarySelectionText,-         RemoveSecondarySelection,-         removeSecondarySelection,-         ReplaceSecondarySelection,-         replaceSecondarySelection,-         GetHighlight,-         getHighlight,-         SetHighlight,-         setHighlight,-         Unhighlight,-         unhighlight,-         HighlightPosition,-         highlightPosition,-         HighlightText,-         highlightText,-         AddModifyCallback,-         addModifyCallback,-         RemoveModifyCallback,-         removeModifyCallback,-         CallModifyCallbacks,-         callModifyCallbacks,-         AddPredeleteCallback,-         addPredeleteCallback,-         RemovePredeleteCallback,-         removePredeleteCallback,-         CallPredeleteCallbacks,-         callPredeleteCallbacks,-         LineText,-         lineText,-         LineStart,-         lineStart,-         LineEnd,-         lineEnd,-         WordStart,-         wordStart,-         WordEnd,-         wordEnd,-         CountDisplayedCharacters,-         countDisplayedCharacters,-         SkipDisplayedCharacters,-         skipDisplayedCharacters,-         CountLines,-         countLines,-         SkipLines,-         skipLines,-         RewindLines,-         rewindLines,-         FindcharForward,-         findcharForward,-         FindcharBackward,-         findcharBackward,-         SearchForwardWithMatchcase,-         searchForwardWithMatchcase,-         SearchBackwardWithMatchcase,-         searchBackwardWithMatchcase,-         PrimarySelection,-         primarySelection,-         SecondarySelection,-         secondarySelection,-         HighlightSelection,-         highlightSelection,-         PrevChar,-         prevChar,-         PrevCharClipped,-         prevCharClipped,-         NextChar,-         nextChar,-         NextCharClipped,-         nextCharClipped,-         Utf8Align,-         utf8Align,-         -- * TextDisplay,-         TextDisplay,-         SetBuffer,-         setBuffer,-         GetBuffer,-         getBuffer,-         RedisplayRange,-         redisplayRange,-         Scroll,-         scroll,-         Overstrike,-         overstrike,-         SetInsertPosition,-         setInsertPosition,-         GetInsertPosition,-         getInsertPosition,-         PositionToXy,-         positionToXy,-         InSelection,-         inSelection,-         ShowInsertPosition,-         showInsertPosition,-         MoveRight,-         moveRight,-         MoveLeft,-         moveLeft,-         MoveUp,-         moveUp,-         MoveDown,-         moveDown,-         NextWord,-         nextWord,-         PreviousWord,-         previousWord,-         ShowCursor,-         showCursor,-         SetCursorStyle,-         setCursorStyle,-         GetScrollbarAlign,-         getScrollbarAlign,-         SetScrollbarAlign,-         setScrollbarAlign,-         HighlightData,-         highlightData,-         PositionStyle,-         positionStyle,-         XToCol,-         xToCol,-         ColToX,-         colToX,-         SetLinenumberWidth,-         setLinenumberWidth,-         GetLinenumberWidth,-         getLinenumberWidth,-         SetLinenumberFont,-         setLinenumberFont,-         GetLinenumberFont,-         getLinenumberFont,-         SetLinenumberSize,-         setLinenumberSize,-         GetLinenumberSize,-         getLinenumberSize,-         SetLinenumberFgcolor,-         setLinenumberFgcolor,-         GetLinenumberFgcolor,-         getLinenumberFgcolor,-         SetLinenumberBgcolor,-         setLinenumberBgcolor,-         GetLinenumberBgcolor,-         getLinenumberBgcolor,-         SetLinenumberAlign,-         setLinenumberAlign,-         GetLinenumberAlign,-         getLinenumberAlign,-         SetLinenumberFormat,-         setLinenumberFormat,-         GetLinenumberFormat,-         getLinenumberFormat,-         WrapMode,-         wrapMode,-         -- * TextEditor-         TextEditor,-         SetInsertMode,-         setInsertMode,-         GetInsertMode,-         getInsertMode,-         GetDefaultKeyBindings,-         getDefaultKeyBindings,-         ReplaceKeyBindings,-         replaceKeyBindings,-         -- * NativeFileChooser-         NativeFileChooser,-         SetOptions,-         setOptions,-         GetOptions,-         getOptions,-         GetFilename,-         getFilename,-         GetFilenameAt,-         getFilenameAt,-         SetDirectory,-         setDirectory,-         GetDirectory,-         getDirectory,-         SetTitle,-         setTitle,-         GetTitle,-         getTitle,-         GetFilter,-         getFilter,-         SetFilter,-         setFilter,-         Filters,-         filters,-         SetFilterValue,-         setFilterValue,-         GetFilterValue,-         getFilterValue,-         SetPresetFile,-         setPresetFile,-         GetPresetFile,-         getPresetFile,-         GetErrmsg,-         getErrmsg,-         -- * Tile-         Tile,-         Pack,-         setSpacing,-         SetSpacing,-         getSpacing,-         GetSpacing,-         isHorizontal,-         IsHorizontal,-         -- * Scrolled AKA Scroll-         Scrolled,-         ScrollTo,-         scrollTo,-         Xposition,-         xposition,-         Yposition,-         yposition,-         -- * Tabs-         Tabs,-         GetPush,-         getPush,-         SetPush,-         setPush,-         Which,-         which,-         ClientArea,-         clientArea,-         TabPositions,-         tabPositions,-         TabHeight,-         tabHeight,-         GetTabAlign,-         getTabAlign,-         SetTabAlign,-         setTabAlign,-         -- * Spinner-         Spinner,-         GetFormat,-         getFormat,-         SetFormat,-         setFormat,-         -- * ColorChooser-         ColorChooser,-         GetHue,-         getHue,-         GetSaturation,-         getSaturation,-         GetR,-         getR,-         GetG,-         getG,-         GetB,-         getB,-         SetHsv,-         setHsv,-         SetRgb,-         setRgb,-         GetRgb,-         getRgb,-         GetHsv,-         getHsv,-         -- * FileBrowser-         FileBrowser,-         SetIconsize,-         setIconsize,-         GetIconsize,-         getIconsize,-         SetFiletype,-         setFiletype,-         GetFiletype,-         getFiletype,-         -- * RGBImage-         RGBImage,-         -- * JPEGImage-         JPEGImage,-         -- * BMPImage-         BMPImage,-         -- * GIFImage-         GIFImage,-         -- * XBMImage-         XBMImage,-         -- * XPMImage-         XPMImage,-         -- * PNGImage-         PNGImage,-         -- * PNMImage-         PNMImage,-         -- * FileInput-         FileInput,-         GetErrorColor,-         getErrorColor,-         SetErrorColor,-         setErrorColor,-         ScreenDriver,-         SystemDriver,-         -- * SVGImage-         SVGImage,-         -- * SimpleTerminal-         SimpleTerminal,-         SetStayAtBottom,-         setStayAtBottom,-         GetStayAtBottom,-         getStayAtBottom,-         SetHistoryLines,-         setHistoryLines,-         GetHistoryLines,-         getHistoryLines,-         SetAnsi,-         setAnsi,-         GetAnsi,-         getAnsi,-         SetStyleTable,-         setStyleTable,-         GetStyleTable,-         getStyleTable,-         GetStyleTableSize,-         getStyleTableSize,-         SetNormalStyleIndex,-         setNormalStyleIndex,-         GetNormalStyleIndex,-         getNormalStyleIndex,-         SetCurrentStyleIndex,-         setCurrentStyleIndex,-         GetCurrentStyleIndex,-         getCurrentStyleIndex,-         RemoveLines,-         removeLines,-         -- MultiLabel-         MultiLabel,-         WidgetLabel,-         widgetLabel,-         MenuItemLabel,-         menuItemLabel-     )-where-import Prelude hiding (round, fail)-import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Dispatch-#if defined(CALLSTACK_AVAILABLE) || defined(HASCALLSTACK_AVAILABLE)-import GHC.Stack-import System.IO.Unsafe-#endif-type instance Functions Base = ()--data CWidget parent-type Widget = CWidget Base-type WidgetFuncs =-  (Destroy-  (Handle-  (GetParent-  (SetParent-  (GetType_-  (SetType-  (DrawLabel-  (DoCallback-  (GetX-  (GetY-  (GetW-  (GetH-  (GetRectangle-  (SetAlign-  (GetAlign-  (GetBox-  (SetBox-  (GetColor-  (SetColor-  (SetColorWithBgSel-  (GetSelectionColor-  (SetSelectionColor-  (GetLabel-  (SetLabel-  (GetLabeltype-  (SetLabeltype-  (GetLabelcolor-  (SetLabelcolor-  (GetLabelfont-  (SetLabelfont-  (GetLabelsize-  (SetLabelsize-  (GetImage-  (SetImage-  (GetDeimage-  (SetDeimage-  (GetTooltip-  (CopyTooltip-  (SetTooltip-  (GetWhen-  (SetWhen-  (GetVisible-  (GetVisibleR-  (ShowWidgetSuper-  (ShowWidget-  (HideSuper-  (Hide-  (SetVisible-  (ClearVisible-  (Active-  (ActiveR-  (Activate-  (Deactivate-  (GetOutput-  (SetOutput-  (Takesevents-  (Changed-  (SetChanged-  (ClearChanged-  (SetActive-  (ClearActive-  (TakeFocus-  (SetVisibleFocus-  (ClearVisibleFocus-  (ModifyVisibleFocus-  (GetVisibleFocus-  (Contains-  (Inside-  (Redraw-  (RedrawLabel-  (GetDamage-  (ClearDamageThenSet-  (ClearDamage-  (SetDamage-  (SetDamageInside-  (MeasureLabel-  (GetWindow-  (GetTopWindow-  (GetTopWindowOffset-  (ResizeSuper-  (Resize-  (SetCallback-  (HasCallback-  (DrawBox-  (DrawBoxWithBoxtype-  (DrawBackdrop-  (DrawFocus-  (Flags-  (SetFlag-  (ClearFlag-  (ClearOutput-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))-type instance Functions Widget = WidgetFuncs--MAKE_METHOD(Destroy, destroy)-MAKE_METHOD(Handle, handle)-MAKE_METHOD(GetParent, getParent)-MAKE_METHOD(SetParent, setParent)-MAKE_METHOD(GetType_, getType_)-MAKE_METHOD(SetType, setType)-MAKE_METHOD(DrawLabel, drawLabel)-MAKE_METHOD(GetX, getX)-MAKE_METHOD(GetY, getY)-MAKE_METHOD(GetW, getW)-MAKE_METHOD(GetH, getH)-MAKE_METHOD(GetRectangle, getRectangle)-MAKE_METHOD(SetAlign, setAlign)-MAKE_METHOD(GetAlign, getAlign)-MAKE_METHOD(GetBox, getBox)-MAKE_METHOD(SetBox, setBox)-MAKE_METHOD(GetColor, getColor)-MAKE_METHOD(SetColor, setColor)-MAKE_METHOD(SetColorWithBgSel, setColorWithBgSel)-MAKE_METHOD(GetSelectionColor, getSelectionColor)-MAKE_METHOD(SetSelectionColor, setSelectionColor)-MAKE_METHOD(GetLabel, getLabel)-MAKE_METHOD(CopyLabel, copyLabel)-MAKE_METHOD(SetLabel, setLabel)-MAKE_METHOD(GetLabeltype,getLabeltype)-MAKE_METHOD(SetLabeltype,setLabeltype)-MAKE_METHOD(GetLabelcolor,getLabelcolor)-MAKE_METHOD(SetLabelcolor,setLabelcolor)-MAKE_METHOD(GetLabelfont,getLabelfont)-MAKE_METHOD(SetLabelfont,setLabelfont)-MAKE_METHOD(GetLabelsize,getLabelsize)-MAKE_METHOD(SetLabelsize,setLabelsize)-MAKE_METHOD(GetImage,getImage)-MAKE_METHOD(SetImage,setImage)-MAKE_METHOD(GetDeimage,getDeimage)-MAKE_METHOD(SetDeimage,setDeimage)-MAKE_METHOD(GetTooltip,getTooltip)-MAKE_METHOD(CopyTooltip,copyTooltip)-MAKE_METHOD(SetTooltip,setTooltip)-MAKE_METHOD(GetWhen,getWhen)-MAKE_METHOD(SetWhen,setWhen)-MAKE_METHOD(GetVisible,getVisible)-MAKE_METHOD(GetVisibleR,getVisibleR)-MAKE_METHOD(ShowWidgetSuper,showWidgetSuper)-MAKE_METHOD(ShowWidget,showWidget)-MAKE_METHOD(HideSuper,hideSuper)-MAKE_METHOD(Hide,hide)-MAKE_METHOD(SetVisible,setVisible)-MAKE_METHOD(ClearVisible,clearVisible)-MAKE_METHOD(Active,active)-MAKE_METHOD(ActiveR,activeR)-MAKE_METHOD(Activate,activate)-MAKE_METHOD(Deactivate,deactivate)-MAKE_METHOD(GetOutput,getOutput)-MAKE_METHOD(SetOutput,setOutput)-MAKE_METHOD(ClearOutput,clearOutput)-MAKE_METHOD(Takesevents,takesevents)-MAKE_METHOD(SetChanged,setChanged)-MAKE_METHOD(ClearChanged,clearChanged)-MAKE_METHOD(SetActive,setActive)-MAKE_METHOD(ClearActive,clearActive)-MAKE_METHOD(TakeFocus,takeFocus)-MAKE_METHOD(SetVisibleFocus,setVisibleFocus)-MAKE_METHOD(ClearVisibleFocus,clearVisibleFocus)-MAKE_METHOD(ModifyVisibleFocus,modifyVisibleFocus)-MAKE_METHOD(GetVisibleFocus,getVisibleFocus)-MAKE_METHOD(Contains,contains)-MAKE_METHOD(Inside,inside)-MAKE_METHOD(Redraw,redraw)-MAKE_METHOD(RedrawLabel,redrawLabel)-MAKE_METHOD(GetDamage,getDamage)-MAKE_METHOD(ClearDamageThenSet,clearDamageThenSet)-MAKE_METHOD(ClearDamage,clearDamage)-MAKE_METHOD(SetDamage,setDamage)-MAKE_METHOD(SetDamageInside,setDamageInside)-MAKE_METHOD(MeasureLabel,measureLabel)-MAKE_METHOD(GetWindow,getWindow)-MAKE_METHOD(GetTopWindow,getTopWindow)-MAKE_METHOD(GetTopWindowOffset,getTopWindowOffset)-MAKE_METHOD(ResizeSuper,resizeSuper)-MAKE_METHOD(Resize,resize)-MAKE_METHOD(SetCallback, setCallback)-MAKE_METHOD(HasCallback,hasCallback)-MAKE_METHOD(DrawBox,drawBox)-MAKE_METHOD(DrawBoxWithBoxtype,drawBoxWithBoxtype)-MAKE_METHOD(DrawBackdrop,drawBackdrop)-MAKE_METHOD(DrawFocus,drawFocus)-MAKE_METHOD(Flags,flags)-MAKE_METHOD(SetFlag, setFlag)-MAKE_METHOD(ClearFlag, clearFlag)---- * Group-data CGroup parent-type Group = CGroup Widget-type GroupFuncs =-  (Destroy-  (DrawChild-  (DrawChildren-  (DrawOutsideLabel-  (DrawSuper-  (UpdateChild-  (Begin-  (Handle-  (HandleSuper-  (Resize-  (ResizeSuper-  (End-  (Within-  (Find-  (Add-  (Insert-  (RemoveIndex-  (RemoveWidget-  (Clear-  (SetResizable-  (SetNotResizable-  (GetResizable-  (AddResizable-  (InitSizes-  (Children-  (SetClipChildren-  (ClipChildren-  (Focus-  (DdfdesignKludge-  (InsertBefore-  (GetArray-  (GetChild-  ()))))))))))))))))))))))))))))))))-type instance Functions Group = GroupFuncs--MAKE_METHOD(DrawChild,drawChild)-MAKE_METHOD(DrawChildren,drawChildren)-MAKE_METHOD(DrawOutsideLabel,drawOutsideLabel)-MAKE_METHOD(UpdateChild,updateChild)-MAKE_METHOD(Begin,begin)-MAKE_METHOD(End,end)-MAKE_METHOD(Within, within)-MAKE_METHOD(Find,find)-MAKE_METHOD(Add,add)-MAKE_METHOD(Insert,insert)-MAKE_METHOD(RemoveIndex,removeIndex)-MAKE_METHOD(RemoveWidget,removeWidget)-MAKE_METHOD(Clear,clear)-MAKE_METHOD(SetResizable,setResizable)-MAKE_METHOD(SetNotResizable,setNotResizable)-MAKE_METHOD(GetResizable,getResizable)-MAKE_METHOD(AddResizable,addResizable)-MAKE_METHOD(InitSizes,initSizes)-MAKE_METHOD(Children,children)-MAKE_METHOD(SetClipChildren,setClipChildren)-MAKE_METHOD(ClipChildren,clipChildren)-MAKE_METHOD(Focus,focus)-MAKE_METHOD(DdfdesignKludge,ddfdesignKludge)-MAKE_METHOD(InsertBefore,insertBefore)-MAKE_METHOD(GetArray,getArray)-MAKE_METHOD(GetChild,getChild)--data CWindow parent-type Window = CWindow Group-type WindowFuncs =-  (Destroy-  (SetType-  (GetType_-  (DrawSuper-  (HandleSuper-  (Resize-  (ResizeSuper-  (ShowWidget-  (ShowWidgetSuper-  (FlushSuper-  (Changed-  (MakeFullscreen-  (FullscreenOff-  (SetBorder-  (ClearBorder-  (GetBorder-  (SetOverride-  (GetOverride-  (SetModal-  (GetModal-  (SetNonModal-  (NonModal-  (SetMenuWindow-  (GetMenuWindow-  (SetTooltipWindow-  (GetTooltipWindow-  (HotSpot-  (FreePosition-  (SizeRange-  (SizeRangeWithArgs-  (GetIconlabel-  (SetIconlabel-  (SetLabelWithIconlabel-  (GetXclass-  (SetXclass-  (GetIcon-  (SetIcon-  (Shown-  (Iconize-  (GetXRoot-  (GetYRoot-  (MakeCurrent-  (SetCursor-  (SetCursorWithFgBg-  (SetDefaultCursor-  (SetDefaultCursorWithFgBg-  (GetDecoratedW-  (GetDecoratedH-  (WaitForExpose-  (HideSuper-  (Handle-  (SetCallback-  (Hide-  (GetLabel-  (SetLabel-  (CopyLabel-  (DrawBox-  (DrawBoxWithBoxtype-  (DrawBackdrop-  (DrawFocus-  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))-type instance Functions Window = WindowFuncs--MAKE_METHOD(DrawSuper,drawSuper)-MAKE_METHOD(HandleSuper,handleSuper)-MAKE_METHOD(FlushSuper,flushSuper)-MAKE_METHOD(Changed,changed)-MAKE_METHOD(MakeFullscreen,makeFullscreen)-MAKE_METHOD(FullscreenOff,fullscreenOff)-MAKE_METHOD(SetBorder,setBorder)-MAKE_METHOD(ClearBorder,clearBorder)-MAKE_METHOD(GetBorder,getBorder)-MAKE_METHOD(SetOverride,setOverride)-MAKE_METHOD(GetOverride,getOverride)-MAKE_METHOD(SetModal,setModal)-MAKE_METHOD(GetModal,getModal)-MAKE_METHOD(SetNonModal,setNonModal)-MAKE_METHOD(NonModal,nonModal)-MAKE_METHOD(SetMenuWindow,setMenuWindow)-MAKE_METHOD(GetMenuWindow,getMenuWindow)-MAKE_METHOD(SetTooltipWindow,setTooltipWindow)-MAKE_METHOD(GetTooltipWindow,getTooltipWindow)-MAKE_METHOD(HotSpot,hotSpot)-MAKE_METHOD(FreePosition,freePosition)-MAKE_METHOD(SizeRange,sizeRange)-MAKE_METHOD(SizeRangeWithArgs,sizeRangeWithArgs)-MAKE_METHOD(GetIconlabel,getIconlabel)-MAKE_METHOD(SetIconlabel,setIconlabel)-MAKE_METHOD(SetLabelWithIconlabel,setLabelWithIconlabel)-MAKE_METHOD(GetXclass,getXclass)-MAKE_METHOD(SetXclass,setXclass)-MAKE_METHOD(GetIcon,getIcon)-MAKE_METHOD(SetIcon,setIcon)-MAKE_METHOD(Shown,shown)-MAKE_METHOD(Iconize,iconize)-MAKE_METHOD(GetXRoot,getXRoot)-MAKE_METHOD(GetYRoot,getYRoot)-MAKE_METHOD(MakeCurrent,makeCurrent)-MAKE_METHOD(SetCursor,setCursor)-MAKE_METHOD(SetCursorWithFgBg,setCursorWithFgBg)-MAKE_METHOD(SetDefaultCursor,setDefaultCursor)-MAKE_METHOD(SetDefaultCursorWithFgBg,setDefaultCursorWithFgBg)-MAKE_METHOD(GetDecoratedW,getDecoratedW)-MAKE_METHOD(GetDecoratedH,getDecoratedH)-MAKE_METHOD(WaitForExpose,waitForExpose)--data CSingleWindow parent-type SingleWindow = CSingleWindow Window-type SingleWindowFuncs =-  (Destroy-  (DrawSuper-  (HandleSuper-  (ResizeSuper-  (ShowWidgetSuper-  (HideSuper-  (Hide-  (FlushSuper-  (ShowWidget-  (Handle-  (Resize-  ())))))))))))-type instance Functions SingleWindow = SingleWindowFuncs---data CDoubleWindow parent-type DoubleWindow = CDoubleWindow Window-type DoubleWindowFuncs =-  (Destroy-  (DrawSuper-  (HandleSuper-  (ResizeSuper-  (ShowWidgetSuper-  (HideSuper-  (Hide-  (FlushSuper-  (ShowWidget-  (Handle-  (Resize-  ())))))))))))--type instance Functions DoubleWindow = DoubleWindowFuncs---data COverlayWindow parent-type OverlayWindow = COverlayWindow DoubleWindow-type OverlayWindowFuncs =-  (Destroy-  (ShowWidget-  (Flush-  (Resize-  (Hide-  (CanDoOverlay-  (RedrawOverlay-  ())))))))--type instance Functions OverlayWindow = OverlayWindowFuncs---MAKE_METHOD(CanDoOverlay,canDoOverlay)-MAKE_METHOD(RedrawOverlay,redrawOverlay)-MAKE_METHOD(Flush,flush)--data CButton parent-type Button = CButton Widget-type ButtonFuncs =-  (Destroy-  (DrawSuper-  (HandleSuper-  (Handle-  (ResizeSuper-  (Resize-  (HideSuper-  (Hide-  (ShowWidgetSuper-  (ShowWidget-  (GetValue-  (SetValue-  (Set-  (Clear-  (Setonly-  (GetShortcut-  (SetShortcut-  (GetDownBox-  (SetDownBox-  (GetDownColor-  (SetDownColor-  (DrawBox-  (DrawBackdrop-  (DrawFocus-  (SetType-  (GetType_-  (DrawBoxWithBoxtype-  ())))))))))))))))))))))))))))--type instance Functions Button = ButtonFuncs--MAKE_METHOD(GetValue,getValue)-MAKE_METHOD(SetValue,setValue)-MAKE_METHOD(Set,set)-MAKE_METHOD(Setonly,setonly)-MAKE_METHOD(GetShortcut,getShortcut)-MAKE_METHOD(SetShortcut,setShortcut)-MAKE_METHOD(GetDownBox,getDownBox)-MAKE_METHOD(SetDownBox,setDownBox)-MAKE_METHOD(GetDownColor,getDownColor)-MAKE_METHOD(SetDownColor,setDownColor)--data CLightButton parent-type LightButtonFuncs =-  (Destroy-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))--type LightButton = CLightButton Button--type instance Functions LightButton = LightButtonFuncs--data CRadioLightButton parent-type RadioLightButton = CRadioLightButton LightButton--type instance Functions RadioLightButton = ()--data CCheckButton parent-type CheckButtonFuncs =-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Destroy-  (Resize-  (ResizeSuper-  ())))))))))))-type CheckButton = CCheckButton LightButton--type instance Functions CheckButton = CheckButtonFuncs--data CReturnButton parent-type ReturnButton = CReturnButton Button-type ReturnButtonFuncs =-  (Destroy-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))--type instance Functions ReturnButton = ReturnButtonFuncs--data CRoundButton parent-type RoundButton = CRoundButton LightButton-type RoundButtonFuncs =-  (Destroy-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))--type instance Functions RoundButton = RoundButtonFuncs--data CRepeatButton parent-type RepeatButton = CRepeatButton Button-type RepeatButtonFuncs =-  (Destroy-  (Deactivate-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))--type instance Functions RepeatButton = RepeatButtonFuncs---data CToggleButton parent-type ToggleButton = CToggleButton Button-type ToggleButtonFuncs =-  (Destroy-  ())--type instance Functions ToggleButton = ToggleButtonFuncs--data CValuator parent-type Valuator = CValuator Widget-type ValuatorFuncs =-  (Destroy-  (Handle-  (HandleSuper-  (ResizeSuper-  (Resize-  (Hide-  (HideSuper-  (Bounds-  (GetMinimum-  (SetMinimum-  (GetMaximum-  (SetMaximum-  (Range-  (SetStep-  (GetStep-  (Precision-  (GetValue-  (SetValue-  (Format-  (Round-  (Clamp-  (Increment-  (SetType-  (GetType_-  ()))))))))))))))))))))))))--type instance Functions Valuator = ValuatorFuncs--MAKE_METHOD(Bounds,bounds)-MAKE_METHOD(GetMinimum,getMinimum)-MAKE_METHOD(SetMinimum,setMinimum)-MAKE_METHOD(GetMaximum,getMaximum)-MAKE_METHOD(SetMaximum,setMaximum)-MAKE_METHOD(Range,range)--- MAKE_METHOD(SetRange,setRange)-MAKE_METHOD(SetStep,setStep)-MAKE_METHOD(GetStep,getStep)-MAKE_METHOD(Precision,precision)-MAKE_METHOD(Format,format)-MAKE_METHOD(Round,round)-MAKE_METHOD(Clamp,clamp)-MAKE_METHOD(Increment,increment)--data CSlider parent-type Slider = CSlider Valuator-type SliderFuncs =-  (Destroy-  (Bounds-  (Scrollvalue-  (SetSliderSize-  (GetSliderSize-  (GetSlider-  (SetSlider-  (SetType-  (GetType_-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))))--type instance Functions Slider = SliderFuncs--MAKE_METHOD(Scrollvalue,scrollvalue)-MAKE_METHOD(SetSliderSize,setSliderSize)-MAKE_METHOD(GetSliderSize,getSliderSize)-MAKE_METHOD(GetSlider,getSlider)-MAKE_METHOD(SetSlider,setSlider)--data CFillSlider parent-type FillSlider = CFillSlider Slider--type instance Functions FillSlider = ()--data CHorSlider parent-type HorSlider = CHorSlider Slider--type instance Functions HorSlider = ()--data CHorFillSlider parent-type HorFillSlider = CHorFillSlider Slider--type instance Functions HorFillSlider = ()--data CNiceSlider parent-type NiceSlider = CNiceSlider Slider--type instance Functions NiceSlider = ()--data CHorNiceSlider parent-type HorNiceSlider = CHorNiceSlider Slider--type instance Functions HorNiceSlider = ()--data CMenuItem parent-type MenuItem = CMenuItem Base-type MenuItemFuncs =-  (Destroy-  (NextWithStep-  (Next-  (GetFirst-  (GetLabel-  (SetLabel-  (SetLabelWithLabeltype-  (GetLabeltype-  (SetLabeltype-  (GetLabelcolor-  (SetLabelcolor-  (GetLabelfont-  (SetLabelfont-  (GetLabelsize-  (SetLabelsize-  (SetCallback-  (GetShortcut-  (SetShortcut-  (Submenu-  (Checkbox-  (Radio-  (GetValue-  (Set-  (Clear-  (Setonly-  (Visible-  (ShowWidget-  (Hide-  (Active-  (Activate-  (Deactivate-  (Activevisible-  (Measure-  (DrawWithT-  (Draw-  (GetFlags-  (SetFlags-  (GetText-  (Pulldown-  (Popup-  (TestShortcut-  (FindShortcut-  (DoCallback-  (Add-  (Insert-  (GetSize-  ()))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions MenuItem = MenuItemFuncs--MAKE_METHOD(NextWithStep,nextWithStep)-MAKE_METHOD(Next,next)-MAKE_METHOD(GetFirst,getFirst)-MAKE_METHOD(SetLabelWithLabeltype,setLabelWithLabeltype)-MAKE_METHOD(Submenu,submenu)-MAKE_METHOD(Checkbox,checkbox)-MAKE_METHOD(Radio,radio)-MAKE_METHOD(Visible,visible)-MAKE_METHOD(Activevisible,activevisible)-MAKE_METHOD(Measure,measure)-MAKE_METHOD(DrawWithT,drawWithT)-MAKE_METHOD(Draw,draw)-MAKE_METHOD(GetFlags,getFlags)-MAKE_METHOD(SetFlags,setFlags)-MAKE_METHOD(Pulldown,pulldown)-MAKE_METHOD(Popup,popup)-MAKE_METHOD(TestShortcut,testShortcut)-MAKE_METHOD(FindShortcut,findShortcut)-MAKE_METHOD(DoCallback,doCallback)-MAKE_METHOD(GetSize,getSize)--data CMenuPrim parent-type MenuPrim = CMenuPrim Widget-type MenuPrimFuncs =-  (Destroy-  (HandleSuper-  (Handle-  (ResizeSuper-  (Resize-  (HideSuper-  (Hide-  (ShowWidgetSuper-  (ShowWidget-  (ItemPathname-  (ItemPathnameRecent-  (Picked-  (FindIndex-  (TestShortcut-  (Global-  (GetMenu-  (SetMenu-  (Copy-  (Insert-  (Add-  (AddName-  (GetSize-  (SetSize-  (Clear-  (ClearSubmenu-  (Replace-  (Remove-  (SetShortcut-  (SetMode-  (GetMode-  (Mvalue-  (GetValue-  (SetValue-  (GetText-  (GetTextWithIndex-  (GetTextfont-  (SetTextfont-  (GetTextsize-  (SetTextsize-  (GetTextcolor-  (SetTextcolor-  (GetDownBox-  (SetDownBox-  (GetDownColor-  (SetDownColor-  (Setonly-  (AddAndGetMenuItem-  ())))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions MenuPrim = MenuPrimFuncs--MAKE_METHOD(ItemPathname,itemPathname)-MAKE_METHOD(ItemPathnameRecent,itemPathnameRecent)-MAKE_METHOD(Picked,picked)-MAKE_METHOD(FindIndex,findIndex)-MAKE_METHOD(Global,global)-MAKE_METHOD(GetMenu,getMenu)-MAKE_METHOD(SetMenu,setMenu)-MAKE_METHOD(Copy,copy)-MAKE_METHOD(SetSize,setSize)-MAKE_METHOD(ClearSubmenu,clearSubmenu)-MAKE_METHOD(AddName,addName)-MAKE_METHOD(Replace,replace)-MAKE_METHOD(Remove,remove)-MAKE_METHOD(SetMode,setMode)-MAKE_METHOD(GetMode,getMode)-MAKE_METHOD(Mvalue,mvalue)-MAKE_METHOD(GetText,getText)-MAKE_METHOD(GetTextWithIndex,getTextWithIndex)-MAKE_METHOD(GetTextfont,getTextfont)-MAKE_METHOD(SetTextfont,setTextfont)-MAKE_METHOD(GetTextsize,getTextsize)-MAKE_METHOD(SetTextsize,setTextsize)-MAKE_METHOD(GetTextcolor,getTextcolor)-MAKE_METHOD(SetTextcolor,setTextcolor)-MAKE_METHOD(DownBox,downBox)-MAKE_METHOD(AddAndGetMenuItem, addAndGetMenuItem)--data CMenuBar parent-type MenuBar = CMenuBar MenuPrim-type MenuBarFuncs =-  (Destroy-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))-type instance Functions MenuBar = MenuBarFuncs---data CSysMenuBar parent-type SysMenuBar = CSysMenuBar MenuBar-type SysMenuBarFuncs =-  (Destroy-  (SetMenu-  (Insert-  (Remove-  (Replace-  (Clear-  (ClearSubmenu-  (Global-  (SetMode-  (GetMode-  (SetShortcut-  (Add-  (AddName-  (Insert-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))))))))))))))--type instance Functions SysMenuBar = SysMenuBarFuncs--data CChoice parent-type Choice = CChoice MenuPrim-type ChoiceFuncs =-  (Destroy-  (Handle-  (GetValue-  (SetValue-  (Draw-  (DrawSuper-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))--type instance Functions Choice = ChoiceFuncs---data CMenuButton parent-type MenuButton = CMenuButton MenuPrim-type MenuButtonFuncs =-  (Destroy-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Popup-  (Resize-  (ResizeSuper-  ()))))))))))))--type instance Functions MenuButton = MenuButtonFuncs--data CImage parent-type Image = CImage Base-type ImageFuncs =-  (Destroy-  (GetW-  (GetH-  (GetD-  (GetLd-  (GetCount-  (Copy-  (ColorAverage-  (Inactive-  (Desaturate-  (DrawResize-  (Draw-  (Uncache-  (Scale-  (GetDataW-  (GetDataH-  (GetDataSize-  (Fail-  ()))))))))))))))))))--type instance Functions Image = ImageFuncs--MAKE_METHOD(GetD,getD)-MAKE_METHOD(GetLd,getLd)-MAKE_METHOD(GetCount,getCount)-MAKE_METHOD(ColorAverage,colorAverage)-MAKE_METHOD(Inactive,inactive)-MAKE_METHOD(Desaturate,desaturate)-MAKE_METHOD(DrawResize,drawResize)-MAKE_METHOD(Uncache,uncache)-MAKE_METHOD(Fail,fail)-MAKE_METHOD(Scale,scale)-MAKE_METHOD(GetDataW,getDataW)-MAKE_METHOD(GetDataH,getDataH)-MAKE_METHOD(GetDataSize,getDataSize)--data CBitmap parent-type Bitmap = CBitmap Image-type BitmapFuncs =-  (Destroy- (GetW- (GetH- (GetD- (GetLd- (GetCount- (Copy- (ColorAverage- (Inactive- (Desaturate- (DrawResize- (Draw- (Uncache- ())))))))))))))--type instance Functions Bitmap = BitmapFuncs--data CPixmap parent-type Pixmap = CPixmap Image-type PixmapFuncs =-  (Destroy-  (GetW-  (GetH-  (GetD-  (GetLd-  (GetCount-  (Copy-  (ColorAverage-  (Inactive-  (Desaturate-  (DrawResize-  (Draw-  (Uncache-  ())))))))))))))--type instance Functions Pixmap = PixmapFuncs--data CCopySurface parent-type CopySurface = CCopySurface Base-type CopySurfaceFuncs =-  (Destroy-  (SetCurrent-  (Draw-  ())))--type instance Functions CopySurface = CopySurfaceFuncs--MAKE_METHOD(SetCurrent,setCurrent)--data CImageSurface parent-type ImageSurface = CImageSurface Base-type ImageSurfaceFuncs =-  (Destroy-  (SetCurrent-  (Draw-  (GetOrigin-  (PrintableRect-  (SetOrigin-  (GetOffscreen-  ())))))))--type instance Functions ImageSurface = ImageSurfaceFuncs--MAKE_METHOD(GetOrigin, getOrigin)-MAKE_METHOD(PrintableRect, printableRect)-MAKE_METHOD(SetOrigin, setOrigin)-MAKE_METHOD(GetOffscreenBeforeDelete, getOffscreenBeforeDelete)-MAKE_METHOD(GetOffscreen, getOffscreen)--data CAdjuster parent-type Adjuster = CAdjuster Valuator-type AdjusterFuncs =-  (Destroy-  (SetSoft-  (GetSoft-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))--type instance Functions Adjuster = AdjusterFuncs---MAKE_METHOD(SetSoft,setSoft)-MAKE_METHOD(GetSoft,getSoft)--data CDial parent-type Dial = CDial Valuator-type DialFuncs =-  (Destroy-  (GetAngle1-  (SetAngle1-  (GetAngle2-  (SetAngle2-  (SetAngles-  (SetType-  (GetType_-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))))))))--type instance Functions Dial = DialFuncs--MAKE_METHOD(GetAngle1,getAngle1)-MAKE_METHOD(SetAngle1,setAngle1)-MAKE_METHOD(GetAngle2,getAngle2)-MAKE_METHOD(SetAngle2,setAngle2)-MAKE_METHOD(SetAngles,setAngles)--data CFillDial parent-type FillDial = CFillDial Dial--type instance Functions FillDial = ()--data CLineDial parent-type LineDial = CLineDial Dial--type instance Functions LineDial = ()--data CRoller parent-type Roller = CRoller Valuator-type RollerFuncs =-  (Destroy-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))--type instance Functions Roller = RollerFuncs--data CCounter parent-type Counter = CCounter Valuator-type CounterFuncs =-  (Destroy-  (Handle-  (SetLstep-  (SetTextfont-  (GetTextfont-  (SetTextsize-  (GetTextsize-  (SetTextcolor-  (GetTextcolor-  (SetType-  (GetType_-  (Draw-  (DrawSuper-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))))))))))--type instance Functions Counter = CounterFuncs--MAKE_METHOD(SetLstep,setLstep)--data CScrollbar parent-type Scrollbar = CScrollbar Slider-type ScrollbarFuncs =-  (Destroy-  (Scrollvalue-  (SetLinesize-  (GetLinesize-  (SetType-  (GetType_-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))))))--type instance Functions Scrollbar = ScrollbarFuncs--MAKE_METHOD(SetLinesize,setLinesize)-MAKE_METHOD(GetLinesize,getLinesize)--data CValueSlider parent-type ValueSlider = CValueSlider Slider-type ValueSliderFuncs =-  (Destroy-  (GetTextfont-  (SetTextfont-  (GetTextsize-  (SetTextsize-  (GetTextcolor-  (SetTextcolor-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))--type instance Functions ValueSlider = ValueSliderFuncs--data CHorValueSlider parent-type HorValueSlider = CHorValueSlider ValueSlider--type instance Functions HorValueSlider = ()--data CInput parent-type Input = CInput Widget-type InputFuncs =-  (Destroy-  (SetInputType-  (SetValue-  (StaticValue-  (GetValue-  (Index-  (SetSize-  (GetMaximumSize-  (GetSize-  (SetMaximumSize-  (GetPosition-  (GetMark-  (SetPosition-  (SetMark-  (Replace-  (Cut-  (CutFromCursor-  (CutRange-  (Insert-  (InsertWithLength-  (Copy-  (Undo-  (CopyCuts-  (GetShortcut-  (SetShortcut-  (GetTextfont-  (SetTextfont-  (GetTextsize-  (SetTextsize-  (GetTextcolor-  (SetTextcolor-  (GetCursorColor-  (SetCursorColor-  (GetInputType-  (SetInputType-  (GetReadonly-  (SetReadonly-  (GetWrap-  (SetWrap-  (GetTabNav-  (SetTabNav-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (DrawText-  (Resize-  (ResizeSuper-  ()))))))))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions Input = InputFuncs--MAKE_METHOD(StaticValue,staticValue)-MAKE_METHOD(Index,index)-MAKE_METHOD(GetMaximumSize,getMaximumSize)-MAKE_METHOD(SetMaximumSize,setMaximumSize)-MAKE_METHOD(GetPosition,getPosition)-MAKE_METHOD(GetMark,getMark)-MAKE_METHOD(SetPosition,setPosition)-MAKE_METHOD(SetMark,setMark)-MAKE_METHOD(Cut,cut)-MAKE_METHOD(CutFromCursor,cutFromCursor)-MAKE_METHOD(CutRange,cutRange)-MAKE_METHOD(InsertWithLength,insertWithLength)-MAKE_METHOD(Undo,undo)-MAKE_METHOD(CopyCuts,copyCuts)-MAKE_METHOD(GetCursorColor,getCursorColor)-MAKE_METHOD(SetCursorColor,setCursorColor)-MAKE_METHOD(GetInputType,getInputType)-MAKE_METHOD(SetInputType,setInputType)-MAKE_METHOD(GetReadonly,getReadonly)-MAKE_METHOD(SetReadonly,setReadonly)-MAKE_METHOD(GetWrap,getWrap)-MAKE_METHOD(SetWrap,setWrap)-MAKE_METHOD(GetTabNav,getTabNav)-MAKE_METHOD(SetTabNav,setTabNav)-MAKE_METHOD(DrawText,drawText)--data COutput parent-type Output = COutput Input-type OutputFuncs =-  (SetType-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))--type instance Functions Output = OutputFuncs--data CValueInput parent-type ValueInput = CValueInput Valuator-type ValueInputFuncs =-  (Destroy-  (GetSoft-  (SetSoft-  (GetShortcut-  (SetShortcut-  (SetTextfont-  (GetTextfont-  (SetTextsize-  (GetTextsize-  (SetTextcolor-  (GetTextcolor-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))))))--type instance Functions ValueInput = ValueInputFuncs--data CValueOutput parent-type ValueOutput = CValueOutput Valuator-type ValueOutputFuncs =-  (Destroy-  (GetSoft-  (SetSoft-  (SetTextfont-  (GetTextfont-  (SetTextsize-  (GetTextsize-  (SetTextcolor-  (GetTextcolor-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))))--type instance Functions ValueOutput = ValueOutputFuncs--data CProgress parent-type Progress = CProgress Widget-type ProgressFuncs =-  (Destroy-  (SetMaximum-  (GetMaximum-  (SetMinimum-  (GetMinimum-  (SetValue-  (GetValue-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))--type instance Functions Progress = ProgressFuncs--data CPositioner parent-type Positioner = CPositioner Widget-type PositionerFuncs =-  (Destroy-  (SetXvalue-  (GetXvalue-  (SetYvalue-  (GetYvalue-  (SetXminimum-  (GetXminimum-  (SetYminimum-  (GetYminimum-  (SetXmaximum-  (GetXmaximum-  (SetYmaximum-  (GetYmaximum-  (SetXbounds-  (SetYbounds-  (SetXstep-  (SetYstep-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))))))))))))--type instance Functions Positioner = PositionerFuncs--MAKE_METHOD(SetXvalue,setXvalue)-MAKE_METHOD(GetXvalue,getXvalue)-MAKE_METHOD(SetYvalue,setYvalue)-MAKE_METHOD(GetYvalue,getYvalue)-MAKE_METHOD(SetXminimum,setXminimum)-MAKE_METHOD(GetXminimum,getXminimum)-MAKE_METHOD(SetYminimum,setYminimum)-MAKE_METHOD(GetYminimum,getYminimum)-MAKE_METHOD(SetXmaximum,setXmaximum)-MAKE_METHOD(GetXmaximum,getXmaximum)-MAKE_METHOD(SetYmaximum,setYmaximum)-MAKE_METHOD(GetYmaximum,getYmaximum)-MAKE_METHOD(SetXbounds,setXbounds)-MAKE_METHOD(SetYbounds,setYbounds)-MAKE_METHOD(SetXstep,setXstep)-MAKE_METHOD(SetYstep,setYstep)--data CWizard parent-type Wizard = CWizard Group-type WizardFuncs =-  (Destroy-  (Next-  (Prev-  (SetValue-  (GetValue-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))--type instance Functions Wizard = WizardFuncs--MAKE_METHOD(Prev,prev)--data CTable parent-type Table = CTable Group-type TableFuncs =-  (Destroy-  (SetTableBox-  (GetTableBox-  (SetRows-  (GetRows-  (SetCols-  (GetCols-  (GetVisibleCells-  (IsInteractiveResize-  (GetRowResize-  (SetRowResize-  (GetColResize-  (SetColResize-  (GetColResizeMin-  (SetColResizeMin-  (GetRowResizeMin-  (SetRowResizeMin-  (GetRowHeader-  (SetRowHeader-  (GetColHeader-  (SetColHeader-  (SetColHeaderHeight-  (GetColHeaderHeight-  (SetRowHeaderWidth-  (GetRowHeaderWidth-  (SetRowHeaderColor-  (GetRowHeaderColor-  (SetColHeaderColor-  (GetColHeaderColor-  (SetRowHeight-  (GetRowHeight-  (SetColWidth-  (GetColWidth-  (SetRowHeightAll-  (SetColWidthAll-  (SetRowPosition-  (SetColPosition-  (GetRowPosition-  (GetColPosition-  (SetTopRow-  (GetTopRow-  (IsSelected-  (GetSelection-  (SetSelection-  (MoveCursor-  (InitSizes-  (Add-  (Insert-  (InsertBefore-  (Begin-  (End-  (GetArray-  (GetChild-  (Children-  (Find-  (CallbackRow-  (CallbackCol-  (CallbackContext-  (DoCallback-  (FindCell-  (DrawSuper-  (Draw-  (Handle-  (ResizeSuper-  (Resize-  (ClearSuper-  (Clear-  (SetRowsSuper-  (SetColsSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (GetTabCellNav-  (SetTabCellNav-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions Table = TableFuncs--MAKE_METHOD(SetTableBox,setTableBox)-MAKE_METHOD(GetTableBox,getTableBox)-MAKE_METHOD(SetRows,setRows)-MAKE_METHOD(GetRows,getRows)-MAKE_METHOD(SetCols,setCols)-MAKE_METHOD(GetCols,getCols)-MAKE_METHOD(GetVisibleCells,getVisibleCells)-MAKE_METHOD(IsInteractiveResize,isInteractiveResize)-MAKE_METHOD(GetRowResize,getRowResize)-MAKE_METHOD(SetRowResize,setRowResize)-MAKE_METHOD(GetColResize,getColResize)-MAKE_METHOD(SetColResize,setColResize)-MAKE_METHOD(GetColResizeMin,getColResizeMin)-MAKE_METHOD(SetColResizeMin,setColResizeMin)-MAKE_METHOD(GetRowResizeMin,getRowResizeMin)-MAKE_METHOD(SetRowResizeMin,setRowResizeMin)-MAKE_METHOD(GetRowHeader,getRowHeader)-MAKE_METHOD(SetRowHeader,setRowHeader)-MAKE_METHOD(GetColHeader,getColHeader)-MAKE_METHOD(SetColHeader,setColHeader)-MAKE_METHOD(SetColHeaderHeight,setColHeaderHeight)-MAKE_METHOD(GetColHeaderHeight,getColHeaderHeight)-MAKE_METHOD(SetRowHeaderWidth,setRowHeaderWidth)-MAKE_METHOD(GetRowHeaderWidth,getRowHeaderWidth)-MAKE_METHOD(SetRowHeaderColor,setRowHeaderColor)-MAKE_METHOD(GetRowHeaderColor,getRowHeaderColor)-MAKE_METHOD(SetColHeaderColor,setColHeaderColor)-MAKE_METHOD(GetColHeaderColor,getColHeaderColor)-MAKE_METHOD(SetRowHeight,setRowHeight)-MAKE_METHOD(GetRowHeight,getRowHeight)-MAKE_METHOD(SetColWidth,setColWidth)-MAKE_METHOD(GetColWidth,getColWidth)-MAKE_METHOD(SetRowHeightAll,setRowHeightAll)-MAKE_METHOD(SetColWidthAll,setColWidthAll)-MAKE_METHOD(SetRowPosition,setRowPosition)-MAKE_METHOD(SetColPosition,setColPosition)-MAKE_METHOD(GetRowPosition,getRowPosition)-MAKE_METHOD(GetColPosition,getColPosition)-MAKE_METHOD(SetTopRow,setTopRow)-MAKE_METHOD(GetTopRow,getTopRow)-MAKE_METHOD(IsSelected,isSelected)-MAKE_METHOD(GetSelection,getSelection)-MAKE_METHOD(SetSelection,setSelection)-MAKE_METHOD(MoveCursor,moveCursor)-MAKE_METHOD(CallbackRow,callbackRow)-MAKE_METHOD(CallbackCol,callbackCol)-MAKE_METHOD(CallbackContext,callbackContext)-MAKE_METHOD(FindCell,findCell)-MAKE_METHOD(ClearSuper,clearSuper)-MAKE_METHOD(SetRowsSuper,setRowsSuper)-MAKE_METHOD(SetColsSuper,setColsSuper)-MAKE_METHOD(SetTabCellNav, setTabCellNav)-MAKE_METHOD(GetTabCellNav, getTabCellNav)--data CTableRow parent-type TableRow = CTableRow Table-type TableRowFuncs =-  (Destroy-  (GetRows-  (SetType-  (GetType_-  (SetRows-  (SetCols-  (ClearSuper-  (Clear-  (SetRowsSuper-  (SetColsSuper-  (Handle-  (HandleSuper-  (ResizeSuper-  (Resize-  (GetRowSelected-  (SelectAllRows-  (Draw-  (DrawSuper-  (Hide-  (HideSuper-  (ShowWidget-  (ShowWidgetSuper-  ()))))))))))))))))))))))--type instance Functions TableRow = TableRowFuncs--MAKE_METHOD(GetRowSelected,getRowSelected)-MAKE_METHOD(SelectAllRows,selectAllRows)--data CGlWindow parent-type GlWindow = CGlWindow Window-type GlWindowFuncs =-  (DrawSuper-  (HideSuper-  (FlushSuper-  (Flush-  (ShowWidgetSuper-  (ResizeSuper-  (Hide-  (ShowWidget-  (Resize-  (Handle-  (HandleSuper-  (Destroy-  (GetValid-  (SetValid-  (Invalidate-  (GetContextValid-  (SetContextValid-  (CanDo-  (GetMode-  (SetMode-  (GetContext-  (SetContext-  (SetContextWithDestroyFlag-  (SwapBuffers-  (Ortho-  (CanDoOverlay-  (RedrawOverlay-  (HideOverlay-  (MakeOverlayCurrent-  (PixelsPerUnit-  (PixelH-  (PixelW-  ()))))))))))))))))))))))))))))))))--type instance Functions GlWindow = GlWindowFuncs--MAKE_METHOD(GetValid,getValid)-MAKE_METHOD(SetValid,setValid)-MAKE_METHOD(Invalidate,invalidate)-MAKE_METHOD(GetContextValid,getContextValid)-MAKE_METHOD(SetContextValid,setContextValid)-MAKE_METHOD(CanDo,canDo)-MAKE_METHOD(GetContext,getContext)-MAKE_METHOD(SetContext,setContext)-MAKE_METHOD(SetContextWithDestroyFlag,setContextWithDestroyFlag)-MAKE_METHOD(SwapBuffers,swapBuffers)-MAKE_METHOD(Ortho,ortho)-MAKE_METHOD(HideOverlay,hideOverlay)-MAKE_METHOD(MakeOverlayCurrent,makeOverlayCurrent)-MAKE_METHOD(PixelsPerUnit,pixelsPerUnit)-MAKE_METHOD(PixelH,pixelH)-MAKE_METHOD(PixelW,pixelW)--data CBox parent-type Box = CBox Widget--type instance Functions Box = ()--data CBrowser parent-type Browser = CBrowser Group-type BrowserFuncs =-  (Handle-  (Destroy-  (Remove-  (Add-  (Insert-  (Move-  (Load-  (Swap-  (Clear-  (GetSize-  (SetSize-  (GetTopline-  (Lineposition-  (SetTopline-  (SetBottomline-  (SetMiddleline-  (Select-  (Selected-  (ShowWidgetLine-  (ShowWidget-  (HideLine-  (Hide-  (Visible-  (GetValue-  (SetValue-  (GetText-  (SetText-  (GetFormatChar-  (SetFormatChar-  (GetColumnChar-  (SetColumnChar-  (GetColumnWidths-  (SetColumnWidths-  (Displayed-  (MakeVisible-  (SetIcon-  (GetIcon-  (RemoveIcon-  (Deselect-  (DeselectAndCallback-  (GetPosition-  (SetPosition-  (GetHposition-  (SetHposition-  (GetHasScrollbar-  (SetHasScrollbar-  (GetTextfont-  (SetTextfont-  (GetTextsize-  (SetTextsize-  (GetTextcolor-  (SetTextcolor-  (GetScrollbarSize-  (SetScrollbarSize-  (GetScrollbarWidth-  (SetScrollbarWidth-  (SetScrollbarColor-  (SetScrollbarSelectionColor-  (Sort-  (SortWithSortType-  (SetType-  (GetType_-  (DrawSuper-  (HandleSuper-  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions Browser = BrowserFuncs--MAKE_METHOD(Move,move)-MAKE_METHOD(Load,load)-MAKE_METHOD(Swap,swap)-MAKE_METHOD(GetTopline,getTopline)-MAKE_METHOD(Lineposition,lineposition)-MAKE_METHOD(SetTopline,setTopline)-MAKE_METHOD(SetBottomline,setBottomline)-MAKE_METHOD(SetMiddleline,setMiddleline)-MAKE_METHOD(Select,select)-MAKE_METHOD(Selected,selected)-MAKE_METHOD(ShowWidgetLine,showWidgetLine)-MAKE_METHOD(HideLine,hideLine)-MAKE_METHOD(SetText,setText)-MAKE_METHOD(GetFormatChar,getFormatChar)-MAKE_METHOD(SetFormatChar,setFormatChar)-MAKE_METHOD(GetColumnChar,getColumnChar)-MAKE_METHOD(SetColumnChar,setColumnChar)-MAKE_METHOD(GetColumnWidths,getColumnWidths)-MAKE_METHOD(SetColumnWidths,setColumnWidths)-MAKE_METHOD(Displayed,displayed)-MAKE_METHOD(MakeVisible,makeVisible)-MAKE_METHOD(RemoveIcon,removeIcon)-MAKE_METHOD(SelectOnly,selectOnly)-MAKE_METHOD(SelectOnlyAndCallback,selectOnlyAndCallback)-MAKE_METHOD(Deselect,deselect)-MAKE_METHOD(DeselectAndCallback,deselectAndCallback)-MAKE_METHOD(GetHposition,getHposition)-MAKE_METHOD(SetHposition,setHposition)-MAKE_METHOD(GetHasScrollbar,getHasScrollbar)-MAKE_METHOD(SetHasScrollbar,setHasScrollbar)-MAKE_METHOD(GetScrollbarSize,getScrollbarSize)-MAKE_METHOD(SetScrollbarSize,setScrollbarSize)-MAKE_METHOD(GetScrollbarWidth,getScrollbarWidth)-MAKE_METHOD(SetScrollbarWidth,setScrollbarWidth)-MAKE_METHOD(SetScrollbarColor,setScrollbarColor)-MAKE_METHOD(SetScrollbarSelectionColor,setScrollbarSelectionColor)-MAKE_METHOD(SortWithSortType,sortWithSortType)-MAKE_METHOD(Sort,sort)--data CSelectBrowser parent-type SelectBrowser = CSelectBrowser Browser--type instance Functions SelectBrowser = ()--data CIntInput parent-type IntInput = CIntInput Input--type instance Functions IntInput = ()--data CClock parent-type Clock = CClock Widget-type ClockFuncs =-  (Handle-  (GetValue-  (GetValueSinceEpoch-  (SetValue-  (SetType-  (GetType_-  (Draw-  (DrawSuper-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (SetShadow-  (GetShadow-  (Resize-  (ResizeSuper-  ())))))))))))))))))---type instance Functions Clock = ClockFuncs-MAKE_METHOD(GetValueSinceEpoch,getValueSinceEpoch)-MAKE_METHOD(GetShadow,getShadow)-MAKE_METHOD(SetShadow,setShadow)--data CTreePrefs parent-type TreePrefs = CTreePrefs Base-type TreePrefsFuncs =-  (GetItemLabelfont-  (SetItemLabelfont-  (GetItemLabelsize-  (SetItemLabelsize-  (SetItemLabelfgcolor-  (GetItemLabelbgcolor-  (SetItemLabelbgcolor-  (GetLabelfont-  (SetLabelfont-  (GetLabelsize-  (SetLabelsize-  (GetLabelfgcolor-  (SetLabelfgcolor-  (GetLabelbgcolor-  (SetLabelbgcolor-  (GetMarginleft-  (SetMarginleft-  (GetMargintop-  (SetMargintop-  (GetOpenchildMarginbottom-  (SetOpenchildMarginbottom-  (GetUsericonmarginleft-  (SetUsericonmarginleft-  (GetLabelmarginleft-  (SetLabelmarginleft-  (GetLinespacing-  (SetLinespacing-  (GetConnectorcolor-  (SetConnectorcolor-  (GetConnectorstyle-  (SetConnectorstyle-  (GetConnectorwidth-  (SetConnectorwidth-  (GetOpenicon-  (SetOpenicon-  (GetCloseicon-  (SetCloseicon-  (GetUsericon-  (SetUsericon-  (GetShowcollapse-  (SetShowcollapse-  (GetSortorder-  (SetSortorder-  (GetSelectbox-  (SetSelectbox-  (GetShowroot-  (SetShowroot-  (GetSelectmode-  (SetSelectmode-  (GetMarginbottom-  (SetMarginbottom-  (GetWidgetmarginleft-  (SetWidgetmarginleft-  (GetItemReselectMode-  (SetItemReselectMode-  (GetItemDrawMode-  (SetItemDrawMode-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions TreePrefs = TreePrefsFuncs--MAKE_METHOD(GetItemLabelfont,getItemLabelfont)-MAKE_METHOD(GetItemLabelsize,getItemLabelsize)-MAKE_METHOD(SetItemLabelsize,setItemLabelsize)-MAKE_METHOD(SetItemLabelfgcolor,setItemLabelfgcolor)-MAKE_METHOD(GetItemLabelbgcolor,getItemLabelbgcolor)-MAKE_METHOD(SetItemLabelbgcolor,setItemLabelbgcolor)-MAKE_METHOD(GetLabelfgcolor,getLabelfgcolor)-MAKE_METHOD(SetLabelfgcolor,setLabelfgcolor)-MAKE_METHOD(GetLabelbgcolor,getLabelbgcolor)-MAKE_METHOD(SetLabelbgcolor,setLabelbgcolor)-MAKE_METHOD(GetMarginleft,getMarginleft)-MAKE_METHOD(SetMarginleft,setMarginleft)-MAKE_METHOD(GetMargintop,getMargintop)-MAKE_METHOD(SetMargintop,setMargintop)-MAKE_METHOD(GetOpenchildMarginbottom,getOpenchildMarginbottom)-MAKE_METHOD(SetOpenchildMarginbottom,setOpenchildMarginbottom)-MAKE_METHOD(GetUsericonmarginleft,getUsericonmarginleft)-MAKE_METHOD(SetUsericonmarginleft,setUsericonmarginleft)-MAKE_METHOD(GetLabelmarginleft,getLabelmarginleft)-MAKE_METHOD(SetLabelmarginleft,setLabelmarginleft)-MAKE_METHOD(GetLinespacing,getLinespacing)-MAKE_METHOD(SetLinespacing,setLinespacing)-MAKE_METHOD(GetConnectorcolor,getConnectorcolor)-MAKE_METHOD(SetConnectorcolor,setConnectorcolor)-MAKE_METHOD(GetConnectorstyle,getConnectorstyle)-MAKE_METHOD(SetConnectorstyle,setConnectorstyle)-MAKE_METHOD(GetConnectorwidth,getConnectorwidth)-MAKE_METHOD(SetConnectorwidth,setConnectorwidth)-MAKE_METHOD(GetOpenicon,getOpenicon)-MAKE_METHOD(SetOpenicon,setOpenicon)-MAKE_METHOD(GetCloseicon,getCloseicon)-MAKE_METHOD(SetCloseicon,setCloseicon)-MAKE_METHOD(GetUsericon,getUsericon)-MAKE_METHOD(SetUsericon,setUsericon)-MAKE_METHOD(GetShowcollapse,getShowcollapse)-MAKE_METHOD(SetShowcollapse,setShowcollapse)-MAKE_METHOD(GetSortorder,getSortorder)-MAKE_METHOD(SetSortorder,setSortorder)-MAKE_METHOD(GetSelectbox,getSelectbox)-MAKE_METHOD(SetSelectbox,setSelectbox)-MAKE_METHOD(GetShowroot,getShowroot)-MAKE_METHOD(SetShowroot,setShowroot)-MAKE_METHOD(GetSelectmode,getSelectmode)-MAKE_METHOD(SetSelectmode,setSelectmode)--data CTreeItem parent-type TreeItem = CTreeItem Base-type TreeItemFuncs =-  (Destroy-  (GetX-  (GetY-  (GetW-  (GetH-  (GetX-  (ShowSelf-  (SetLabel-  (GetLabel-  (SetLabelfont-  (GetLabelfont-  (SetLabelsize-  (GetLabelsize-  (SetLabelcolor-  (GetLabelcolor-  (GetLabelfgcolor-  (SetLabelfgcolor-  (SetLabelbgcolor-  (GetLabelbgcolor-  (SetWidget-  (GetWidget-  (Children-  (Child-  (HasChildren-  (FindChild-  (RemoveChild-  (RemoveChild-  (ClearChildren-  (SwapChildren-  (SwapChildrenByTreeItem-  (FindInChildren-  (FindItem-  (Add-  (AddAt-  (Insert-  (InsertAbove-  (Deparent-  (Reparent-  (Move-  (MoveTo-  (GetDepth-  (Prev-  (Next-  (NextSibling-  (PrevSibling-  (UpdatePrevNext-  (NextDisplayed-  (PrevDisplayed-  (GetParent-  (SetParent-  (Open-  (Close-  (IsOpen-  (IsClose-  (OpenToggle-  (Select-  (SelectSet-  (SelectToggle-  (SelectAll-  (Deselect-  (DeselectAll-  (IsSelected-  (Activate-  (ActivateWith-  (IsActive-  (Visible-  (IsVisible-  (VisibleR-  (SetUsericon-  (GetUsericon-  (FindClicked-  (EventOnCollapseIcon-  (EventOnLabel-  (IsRoot-  (LabelX-  (LabelY-  (LabelW-  (LabelH-  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))---type instance Functions TreeItem = TreeItemFuncs--MAKE_METHOD(ShowSelf,showSelf)-MAKE_METHOD(SetWidget,setWidget)-MAKE_METHOD(GetWidget,getWidget)-MAKE_METHOD(Child,child)-MAKE_METHOD(HasChildren,hasChildren)-MAKE_METHOD(FindChild,findChild)-MAKE_METHOD(RemoveChild,removeChild)-MAKE_METHOD(ClearChildren,clearChildren)-MAKE_METHOD(SwapChildren,swapChildren)-MAKE_METHOD(SwapChildrenByTreeItem,swapChildrenByTreeItem)-MAKE_METHOD(FindInChildren,findInChildren)-MAKE_METHOD(FindItem,findItem)-MAKE_METHOD(AddAt,addAt)-MAKE_METHOD(InsertAbove,insertAbove)-MAKE_METHOD(Deparent,deparent)-MAKE_METHOD(Reparent,reparent)-MAKE_METHOD(MoveTo,moveTo)-MAKE_METHOD(GetDepth,getDepth)-MAKE_METHOD(NextSibling,nextSibling)-MAKE_METHOD(PrevSibling,prevSibling)-MAKE_METHOD(UpdatePrevNext,updatePrevNext)-MAKE_METHOD(NextDisplayed,nextDisplayed)-MAKE_METHOD(PrevDisplayed,prevDisplayed)-MAKE_METHOD(Open,open)-MAKE_METHOD(Close,close)-MAKE_METHOD(IsOpen,isOpen)-MAKE_METHOD(IsClose,isClose)-MAKE_METHOD(OpenToggle,openToggle)-MAKE_METHOD(SelectSet,selectSet)-MAKE_METHOD(SelectToggle,selectToggle)-MAKE_METHOD(SelectAll,selectAll)-MAKE_METHOD(DeselectAll,deselectAll)-MAKE_METHOD(ActivateWith,activateWith)-MAKE_METHOD(IsActive,isActive)-MAKE_METHOD(IsVisible,isVisible)-MAKE_METHOD(VisibleR,visibleR)-MAKE_METHOD(FindClicked,findClicked)-MAKE_METHOD(EventOnCollapseIcon,eventOnCollapseIcon)-MAKE_METHOD(EventOnLabel,eventOnLabel)-MAKE_METHOD(IsRoot,isRoot)-MAKE_METHOD(LabelX,labelX)-MAKE_METHOD(LabelY,labelY)-MAKE_METHOD(LabelW,labelW)-MAKE_METHOD(LabelH,labelH)--data CTree parent-type Tree = CTree Group-type TreeFuncs =-  (Destroy-  (ShowSelf-  (RootLabel-  (Root-  (Add-  (AddAt-  (InsertAbove-  (Insert-  (Remove-  (Clear-  (ClearChildren-  (FindItem-  (ItemPathname-  (ItemClicked-  (GetFirst-  (FirstVisible-  (Next-  (NextItem-  (NextAfterItem-  (Prev-  (PrevBeforeItem-  (GetLast-  (LastVisible-  (FirstSelectedItem-  (LastSelectedItem-  (NextSelectedItem-  (NextSelectedItemAfterItem-  (Open-  (OpenAndCallback-  (OpenToggle-  (OpenToggleAndCallback-  (Close-  (CloseAndCallback-  (IsOpen-  (IsClose-  (Select-  (SelectAndCallback-  (SelectToggle-  (SelectToggleAndCallback-  (Deselect-  (DeselectAndCallback-  (SelectOnly-  (SelectOnlyAndCallback-  (SelectAll-  (SelectAllAndCallback-  (DeselectAll-  (DeselectAllAndCallback-  (SetItemFocus-  (GetItemFocus-  (IsSelected-  (GetItemLabelfont-  (SetItemLabelfont-  (GetItemLabelsize-  (SetItemLabelsize-  (GetItemLabelfgcolor-  (SetItemLabelfgcolor-  (GetItemLabelbgcolor-  (SetItemLabelbgcolor-  (GetConnectorcolor-  (SetConnectorcolor-  (GetMarginleft-  (SetMarginleft-  (GetMargintop-  (SetMargintop-  (GetLinespacing-  (SetLinespacing-  (GetOpenchildMarginbottom-  (SetOpenchildMarginbottom-  (GetUsericonmarginleft-  (SetUsericonmarginleft-  (GetLabelmarginleft-  (SetLabelmarginleft-  (GetConnectorwidth-  (SetConnectorwidth-  (GetUsericon-  (SetUsericon-  (GetOpenicon-  (SetOpenicon-  (GetCloseicon-  (SetCloseicon-  (GetShowcollapse-  (SetShowcollapse-  (GetShowroot-  (SetShowroot-  (GetConnectorstyle-  (SetConnectorstyle-  (GetSortorder-  (SetSortorder-  (GetSelectbox-  (SetSelectbox-  (Selectmode-  (SetSelectmode-  (Displayed-  (ShowItemWithYoff-  (ShowItemTop-  (ShowItemMiddle-  (ShowItemBottom-  (Display-  (GetVposition-  (SetVposition-  (IsScrollbar-  (GetScrollbarSize-  (SetScrollbarSize-  (IsVscrollVisible-  (SetCallbackItem-  (GetCallbackItem-  (SetCallbackReason-  (GetCallbackReason-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (RecalcTree-  (GetMarginbottom-  (SetMarginbottom-  (GetWidgetmarginleft-  (SetWidgetmarginleft-  (GetItemReselectMode-  (SetItemReselectMode-  (Resize-  (ResizeSuper-  (GetItemDrawMode-  (SetItemDrawMode-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))---type instance Functions Tree = TreeFuncs--MAKE_METHOD(RootLabel,rootLabel)-MAKE_METHOD(Root,root)-MAKE_METHOD(ItemClicked,itemClicked)-MAKE_METHOD(FirstVisible,firstVisible)-MAKE_METHOD(NextAfterItem,nextAfterItem)-MAKE_METHOD(NextItem,nextItem)-MAKE_METHOD(PrevBeforeItem,prevBeforeItem)-MAKE_METHOD(GetLast,getLast)-MAKE_METHOD(LastVisible,lastVisible)-MAKE_METHOD(FirstSelectedItem,firstSelectedItem)-MAKE_METHOD(LastSelectedItem,lastSelectedItem)-MAKE_METHOD(NextSelectedItem,nextSelectedItem)-MAKE_METHOD(NextSelectedItemAfterItem,nextSelectedItemAfterItem)-MAKE_METHOD(OpenAndCallback,openAndCallback)-MAKE_METHOD(OpenToggleAndCallback,openToggleAndCallback)-MAKE_METHOD(TreeMenuItemLocator,treeMenuItemLocator)-MAKE_METHOD(CloseAndCallback,closeAndCallback)-MAKE_METHOD(SelectAndCallback,selectAndCallback)-MAKE_METHOD(SelectToggleAndCallback,selectToggleAndCallback)-MAKE_METHOD(SelectAllAndCallback,selectAllAndCallback)-MAKE_METHOD(DeselectAllAndCallback,deselectAllAndCallback)-MAKE_METHOD(SetItemFocus,setItemFocus)-MAKE_METHOD(GetItemFocus,getItemFocus)-MAKE_METHOD(IsSelectedWithItem,isSelectedWithItem)-MAKE_METHOD(SetItemLabelfont,setItemLabelfont)-MAKE_METHOD(GetItemLabelfgcolor,getItemLabelfgcolor)-MAKE_METHOD(Selectmode,selectmode)-MAKE_METHOD(ShowItemWithYoff,showItemWithYoff)-MAKE_METHOD(ShowItemTop,showItemTop)-MAKE_METHOD(ShowItemMiddle,showItemMiddle)-MAKE_METHOD(ShowItemBottom,showItemBottom)-MAKE_METHOD(Display,display)-MAKE_METHOD(GetVposition,getVposition)-MAKE_METHOD(SetVposition,setVposition)-MAKE_METHOD(IsScrollbar,isScrollbar)-MAKE_METHOD(IsVscrollVisible,isVscrollVisible)-MAKE_METHOD(SetCallbackItem,setCallbackItem)-MAKE_METHOD(GetCallbackItem,getCallbackItem)-MAKE_METHOD(SetCallbackReason,setCallbackReason)-MAKE_METHOD(GetCallbackReason,getCallbackReason)-MAKE_METHOD(RecalcTree, recalcTree)-MAKE_METHOD(SetMarginbottom,setMarginbottom)-MAKE_METHOD(GetMarginbottom,getMarginbottom)-MAKE_METHOD(SetWidgetmarginleft,setWidgetmarginleft)-MAKE_METHOD(GetWidgetmarginleft,getWidgetmarginleft)-MAKE_METHOD(SetItemReselectMode,setItemReselectMode)-MAKE_METHOD(GetItemReselectMode,getItemReselectMode)-MAKE_METHOD(SetItemDrawMode,setItemDrawMode)-MAKE_METHOD(GetItemDrawMode,getItemDrawMode)--data CTextSelection parent-type TextSelection = CTextSelection Base-type TextSelectionFuncs =-  (Set-  (Update-  (Start-  (End-  (Selected-  (SetSelected-  (Includes-  (GetPosition-  ()))))))))--type instance Functions TextSelection = TextSelectionFuncs-MAKE_METHOD(Update,update)-MAKE_METHOD(Start,start)-MAKE_METHOD(SetSelected,setSelected)-MAKE_METHOD(Includes,includes)--data CTextBuffer parent-type TextBuffer = CTextBuffer Base-type TextBufferFuncs =-  (Destroy-  (InputFileWasTranscoded-  (FileEncodingWarningMessage-  (GetLength-  (GetText-  (SetText-  (TextRange-  (CharAt-  (ByteAt-  (Insert-  (AppendToBuffer-  (Remove-  (Replace-  (Copy-  (Undo-  (CanUndo-  (Insertfile-  (InsertfileWithBuflen-  (Appendfile-  (AppendfileWithBuflen-  (Loadfile-  (LoadfileWithBuflen-  (Outputfile-  (OutputfileWithBuflen-  (Savefile-  (SavefileWithBuflen-  (GetTabDistance-  (SetTabDistance-  (Select-  (Selected-  (Unselect-  (SelectionPosition-  (SelectionText-  (RemoveSelection-  (ReplaceSelection-  (SecondarySelect-  (SecondarySelected-  (SecondaryUnselect-  (SecondarySelectionPosition-  (SecondarySelectionText-  (RemoveSecondarySelection-  (ReplaceSecondarySelection-  (SetHighlight-  (GetHighlight-  (Unhighlight-  (HighlightPosition-  (HighlightText-  (AddModifyCallback-  (RemoveModifyCallback-  (CallModifyCallbacks-  (AddPredeleteCallback-  (RemovePredeleteCallback-  (CallPredeleteCallbacks-  (LineText-  (LineStart-  (LineEnd-  (WordStart-  (WordEnd-  (CountDisplayedCharacters-  (SkipDisplayedCharacters-  (CountLines-  (SkipLines-  (RewindLines-  (FindcharForward-  (FindcharBackward-  (SearchForwardWithMatchcase-  (SearchBackwardWithMatchcase-  (PrimarySelection-  (SecondarySelection-  (HighlightSelection-  (PrevChar-  (PrevCharClipped-  (NextChar-  (NextCharClipped-  (Utf8Align-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions TextBuffer = TextBufferFuncs--MAKE_METHOD(InputFileWasTranscoded,inputFileWasTranscoded)-MAKE_METHOD(FileEncodingWarningMessage,fileEncodingWarningMessage)-MAKE_METHOD(GetLength,getLength)-MAKE_METHOD(TextRange,textRange)-MAKE_METHOD(CharAt,charAt)-MAKE_METHOD(ByteAt,byteAt)-MAKE_METHOD(AppendToBuffer,appendToBuffer)-MAKE_METHOD(CanUndo,canUndo)-MAKE_METHOD(Insertfile,insertfile)-MAKE_METHOD(InsertfileWithBuflen,insertfileWithBuflen)-MAKE_METHOD(Appendfile,appendfile)-MAKE_METHOD(AppendfileWithBuflen,appendfileWithBuflen)-MAKE_METHOD(Loadfile,loadfile)-MAKE_METHOD(LoadfileWithBuflen,loadfileWithBuflen)-MAKE_METHOD(Outputfile,outputfile)-MAKE_METHOD(OutputfileWithBuflen,outputfileWithBuflen)-MAKE_METHOD(Savefile,savefile)-MAKE_METHOD(SavefileWithBuflen,savefileWithBuflen)-MAKE_METHOD(GetTabDistance,getTabDistance)-MAKE_METHOD(SetTabDistance,setTabDistance)-MAKE_METHOD(Unselect,unselect)-MAKE_METHOD(SelectionPosition,selectionPosition)-MAKE_METHOD(SelectionText,selectionText)-MAKE_METHOD(RemoveSelection,removeSelection)-MAKE_METHOD(ReplaceSelection,replaceSelection)-MAKE_METHOD(SecondarySelect,secondarySelect)-MAKE_METHOD(SecondarySelected,secondarySelected)-MAKE_METHOD(SecondaryUnselect,secondaryUnselect)-MAKE_METHOD(SecondarySelectionPosition,secondarySelectionPosition)-MAKE_METHOD(SecondarySelectionText,secondarySelectionText)-MAKE_METHOD(RemoveSecondarySelection,removeSecondarySelection)-MAKE_METHOD(ReplaceSecondarySelection,replaceSecondarySelection)-MAKE_METHOD(GetHighlight,getHighlight)-MAKE_METHOD(SetHighlight,setHighlight)-MAKE_METHOD(Unhighlight,unhighlight)-MAKE_METHOD(HighlightPosition,highlightPosition)-MAKE_METHOD(HighlightText,highlightText)-MAKE_METHOD(AddModifyCallback,addModifyCallback)-MAKE_METHOD(RemoveModifyCallback,removeModifyCallback)-MAKE_METHOD(CallModifyCallbacks,callModifyCallbacks)-MAKE_METHOD(AddPredeleteCallback,addPredeleteCallback)-MAKE_METHOD(RemovePredeleteCallback,removePredeleteCallback)-MAKE_METHOD(CallPredeleteCallbacks,callPredeleteCallbacks)-MAKE_METHOD(LineText,lineText)-MAKE_METHOD(LineStart,lineStart)-MAKE_METHOD(LineEnd,lineEnd)-MAKE_METHOD(WordStart,wordStart)-MAKE_METHOD(WordEnd,wordEnd)-MAKE_METHOD(CountDisplayedCharacters,countDisplayedCharacters)-MAKE_METHOD(SkipDisplayedCharacters,skipDisplayedCharacters)-MAKE_METHOD(CountLines,countLines)-MAKE_METHOD(SkipLines,skipLines)-MAKE_METHOD(RewindLines,rewindLines)-MAKE_METHOD(FindcharForward,findcharForward)-MAKE_METHOD(FindcharBackward,findcharBackward)-MAKE_METHOD(SearchForwardWithMatchcase,searchForwardWithMatchcase)-MAKE_METHOD(SearchBackwardWithMatchcase,searchBackwardWithMatchcase)-MAKE_METHOD(PrimarySelection,primarySelection)-MAKE_METHOD(SecondarySelection,secondarySelection)-MAKE_METHOD(HighlightSelection,highlightSelection)-MAKE_METHOD(PrevChar,prevChar)-MAKE_METHOD(PrevCharClipped,prevCharClipped)-MAKE_METHOD(NextChar,nextChar)-MAKE_METHOD(NextCharClipped,nextCharClipped)-MAKE_METHOD(Utf8Align,utf8Align)--data CTextDisplay parent-type TextDisplay = CTextDisplay Group-type TextDisplayFuncs =-  (Destroy-  (DrawSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  (Handle-  (HandleSuper-  (SetBuffer-  (GetBuffer-  (RedisplayRange-  (Scroll-  (Overstrike-  (SetInsertPosition-  (GetInsertPosition-  (PositionToXy-  (InSelection-  (ShowInsertPosition-  (MoveRight-  (MoveLeft-  (MoveUp-  (MoveDown-  (CountLines-  (LineStart-  (LineEnd-  (SkipLines-  (RewindLines-  (NextWord-  (PreviousWord-  (ShowCursor-  (SetCursorStyle-  (GetCursorColor-  (SetCursorColor-  (GetScrollbarWidth-  (SetScrollbarWidth-  (GetScrollbarAlign-  (SetScrollbarAlign-  (WordStart-  (WordEnd-  (HighlightData-  (PositionStyle-  (GetShortcut-  (SetShortcut-  (GetTextfont-  (SetTextfont-  (GetTextsize-  (SetTextsize-  (GetTextcolor-  (SetTextcolor-  (XToCol-  (ColToX-  (SetLinenumberWidth-  (GetLinenumberWidth-  (SetLinenumberFont-  (GetLinenumberFont-  (SetLinenumberSize-  (GetLinenumberSize-  (SetLinenumberFgcolor-  (GetLinenumberFgcolor-  (SetLinenumberBgcolor-  (GetLinenumberBgcolor-  (SetLinenumberAlign-  (GetLinenumberAlign-  (SetLinenumberFormat-  (GetLinenumberFormat-  (WrapMode-  (Draw-  (ShowWidget-  (ShowWidgetSuper-  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))--type instance Functions TextDisplay = TextDisplayFuncs--MAKE_METHOD(SetBuffer,setBuffer)-MAKE_METHOD(GetBuffer,getBuffer)-MAKE_METHOD(RedisplayRange,redisplayRange)-MAKE_METHOD(Scroll,scroll)-MAKE_METHOD(Overstrike,overstrike)-MAKE_METHOD(SetInsertPosition,setInsertPosition)-MAKE_METHOD(GetInsertPosition,getInsertPosition)-MAKE_METHOD(PositionToXy,positionToXy)-MAKE_METHOD(InSelection,inSelection)-MAKE_METHOD(ShowInsertPosition,showInsertPosition)-MAKE_METHOD(MoveRight,moveRight)-MAKE_METHOD(MoveLeft,moveLeft)-MAKE_METHOD(MoveUp,moveUp)-MAKE_METHOD(MoveDown,moveDown)-MAKE_METHOD(NextWord,nextWord)-MAKE_METHOD(PreviousWord,previousWord)-MAKE_METHOD(ShowCursor,showCursor)-MAKE_METHOD(SetCursorStyle,setCursorStyle)-MAKE_METHOD(GetScrollbarAlign,getScrollbarAlign)-MAKE_METHOD(SetScrollbarAlign,setScrollbarAlign)-MAKE_METHOD(HighlightData,highlightData)-MAKE_METHOD(PositionStyle,positionStyle)-MAKE_METHOD(XToCol,xToCol)-MAKE_METHOD(ColToX,colToX)-MAKE_METHOD(SetLinenumberWidth,setLinenumberWidth)-MAKE_METHOD(GetLinenumberWidth,getLinenumberWidth)-MAKE_METHOD(SetLinenumberFont,setLinenumberFont)-MAKE_METHOD(GetLinenumberFont,getLinenumberFont)-MAKE_METHOD(SetLinenumberSize,setLinenumberSize)-MAKE_METHOD(GetLinenumberSize,getLinenumberSize)-MAKE_METHOD(SetLinenumberFgcolor,setLinenumberFgcolor)-MAKE_METHOD(GetLinenumberFgcolor,getLinenumberFgcolor)-MAKE_METHOD(SetLinenumberBgcolor,setLinenumberBgcolor)-MAKE_METHOD(GetLinenumberBgcolor,getLinenumberBgcolor)-MAKE_METHOD(SetLinenumberAlign,setLinenumberAlign)-MAKE_METHOD(GetLinenumberAlign,getLinenumberAlign)-MAKE_METHOD(SetLinenumberFormat,setLinenumberFormat)-MAKE_METHOD(GetLinenumberFormat,getLinenumberFormat)-MAKE_METHOD(WrapMode,wrapMode)--data CTextEditor parent-type TextEditor = CTextEditor TextDisplay-type TextEditorFuncs =-  (Destroy-  (SetInsertMode-  (GetInsertMode-  (GetDefaultKeyBindings-  (ReplaceKeyBindings-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))--type instance Functions TextEditor = TextEditorFuncs--MAKE_METHOD(SetInsertMode,setInsertMode)-MAKE_METHOD(GetInsertMode,getInsertMode)-MAKE_METHOD(GetDefaultKeyBindings,getDefaultKeyBindings)-MAKE_METHOD(ReplaceKeyBindings,replaceKeyBindings)--data CNativeFileChooser parent-type NativeFileChooser = CNativeFileChooser Base-type NativeFileChooserFuncs =-  (Destroy-  (SetType-  (GetType_-  (SetOptions-  (GetOptions-  (GetCount-  (GetFilename-  (GetFilenameAt-  (SetDirectory-  (GetDirectory-  (SetTitle-  (GetTitle-  (GetFilter-  (SetFilter-  (Filters-  (SetFilterValue-  (GetFilterValue-  (SetPresetFile-  (GetPresetFile-  (GetErrmsg-  (ShowWidget-  ())))))))))))))))))))))--type instance Functions NativeFileChooser = NativeFileChooserFuncs--MAKE_METHOD(SetOptions,setOptions)-MAKE_METHOD(GetOptions,getOptions)-MAKE_METHOD(GetFilename,getFilename)-MAKE_METHOD(GetFilenameAt,getFilenameAt)-MAKE_METHOD(SetDirectory,setDirectory)-MAKE_METHOD(GetDirectory,getDirectory)-MAKE_METHOD(SetTitle,setTitle)-MAKE_METHOD(GetTitle,getTitle)-MAKE_METHOD(GetFilter,getFilter)-MAKE_METHOD(SetFilter,setFilter)-MAKE_METHOD(Filters,filters)-MAKE_METHOD(SetFilterValue,setFilterValue)-MAKE_METHOD(GetFilterValue,getFilterValue)-MAKE_METHOD(SetPresetFile,setPresetFile)-MAKE_METHOD(GetPresetFile,getPresetFile)-MAKE_METHOD(GetErrmsg,getErrmsg)--data CTile parent-type Tile = CTile Group-type TileFuncs =-  (SetPosition-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))--type instance Functions Tile = TileFuncs--data CPack parent-type Pack = CPack Group-type PackFuncs =-  (GetType_-  (SetType-  (SetSpacing-  (GetSpacing-  (IsHorizontal-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))--type instance Functions Pack = PackFuncs--MAKE_METHOD(SetSpacing,setSpacing)-MAKE_METHOD(GetSpacing,getSpacing)-MAKE_METHOD(IsHorizontal,isHorizontal)--data CScrolled parent-type Scrolled = CScrolled Group-type ScrolledFuncs =-  (SetScrollbarSize-  (GetScrollbarSize-  (Clear-  (ScrollTo-  (Yposition-  (Xposition-  (GetType_-  (SetType-  (Resize-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (ResizeSuper-  ()))))))))))))))))))--type instance Functions Scrolled = ScrolledFuncs--MAKE_METHOD(ScrollTo,scrollTo)-MAKE_METHOD(Xposition,xposition)-MAKE_METHOD(Yposition,yposition)--data CTabs parent-type Tabs = CTabs Group-type TabsFuncs =-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Resize-  (ResizeSuper-  (Hide-  (HideSuper-  (GetValue-  (SetValue-  (GetPush-  (SetPush-  (Which-  (ClientArea-  (TabPositions-  (TabHeight-  (GetTabAlign-  (SetTabAlign-  (Resize-  (ResizeSuper-  ()))))))))))))))))))))))--type instance Functions Tabs = TabsFuncs--MAKE_METHOD(GetPush,getPush)-MAKE_METHOD(SetPush,setPush)-MAKE_METHOD(Which,which)-MAKE_METHOD(ClientArea,clientArea)-MAKE_METHOD(TabPositions, tabPositions)-MAKE_METHOD(TabHeight, tabHeight)-MAKE_METHOD(GetTabAlign,getTabAlign)-MAKE_METHOD(SetTabAlign,setTabAlign)--data CSpinner parent-type Spinner = CSpinner Group-type SpinnerFuncs =-  (GetValue-  (SetValue-  (Handle-  (SetTextfont-  (GetTextfont-  (SetTextsize-  (GetTextsize-  (SetTextcolor-  (GetTextcolor-  (SetType-  (GetType_-  (SetFormat-  (GetFormat-  (SetMinimum-  (GetMinimum-  (SetMaximum-  (GetMaximum-  (SetStep-  (GetStep-  (Resize-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (GetWrap-  (SetWrap-  (Resize-  (ResizeSuper-  (Range-  ())))))))))))))))))))))))))))))))))---type instance Functions Spinner = SpinnerFuncs-MAKE_METHOD(GetFormat,getFormat)-MAKE_METHOD(SetFormat,setFormat)--data CColorChooser parent-type ColorChooser = CColorChooser Group-type ColorChooserFuncs =-  (GetMode-  (SetMode-  (GetHue-  (GetSaturation-  (GetValue-  (GetR-  (GetG-  (GetB-  (GetHsv-  (GetRgb-  (SetHsv-  (SetRgb-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))))))))))))--type instance Functions ColorChooser = ColorChooserFuncs--MAKE_METHOD(GetHue, getHue)-MAKE_METHOD(GetSaturation, getSaturation)-MAKE_METHOD(GetR, getR)-MAKE_METHOD(GetG, getG)-MAKE_METHOD(GetB, getB)-MAKE_METHOD(SetHsv, setHsv)-MAKE_METHOD(SetRgb, setRgb)-MAKE_METHOD(GetRgb, getRgb)-MAKE_METHOD(GetHsv, getHsv)--data CFileBrowser parent-type FileBrowser = CFileBrowser Browser-type FileBrowserFuncs =-  (SetIconsize-  (GetIconsize-  (SetFilter-  (GetFilter-  (SetTextsize-  (GetTextsize-  (GetFiletype-  (SetFiletype-  (Load-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ())))))))))))))))))))-type instance Functions FileBrowser = FileBrowserFuncs--MAKE_METHOD(SetIconsize, setIconsize)-MAKE_METHOD(GetIconsize, getIconsize)-MAKE_METHOD(SetFiletype, setFiletype)-MAKE_METHOD(GetFiletype, getFiletype)--data CRGBImage parent-type RGBImage = CRGBImage Image-type RGBImageFuncs =-  (Destroy-  (GetW-  (GetH-  (GetD-  (GetLd-  (GetCount-  (Copy-  (ColorAverage-  (Inactive-  (Desaturate-  (DrawResize-  (Draw-  (Uncache-  ())))))))))))))--type instance Functions RGBImage = RGBImageFuncs--data CJPEGImage parent-type JPEGImage = CJPEGImage RGBImage-type instance Functions JPEGImage = ()--data CBMPImage parent-type BMPImage = CBMPImage RGBImage-type instance Functions BMPImage = ()--data CGIFImage parent-type GIFImage = CGIFImage RGBImage-type instance Functions GIFImage = ()--data CXBMImage parent-type XBMImage = CXBMImage RGBImage-type instance Functions XBMImage = ()--data CXPMImage parent-type XPMImage = CXPMImage RGBImage-type instance Functions XPMImage = ()--data CPNGImage parent-type PNGImage = CPNGImage RGBImage-type instance Functions PNGImage = ()--data CPNMImage parent-type PNMImage = CPNMImage RGBImage-type instance Functions PNMImage = ()--data CFileInput parent-type FileInput = CFileInput Input-type FileInputFuncs =-  (SetDownBox-  (GetDownBox-  (SetErrorColor-  (GetErrorColor-  (GetValue-  (SetValue-  (Draw-  (DrawSuper-  (Handle-  (HandleSuper-  (ShowWidget-  (ShowWidgetSuper-  (Hide-  (HideSuper-  (Resize-  (ResizeSuper-  ()))))))))))))))))--type instance Functions FileInput = FileInputFuncs-MAKE_METHOD(SetErrorColor, setErrorColor)-MAKE_METHOD(GetErrorColor, getErrorColor)--data CScreenDriver parent-type ScreenDriver = CScreenDriver Base-type instance Functions ScreenDriver = ()--data CSystemDriver parent-type SystemDriver = CSystemDriver Base-type instance Functions SystemDriver = ()--data CSVGImage parent-type SVGImage = CSVGImage RGBImage-type SVGImageFuncs =-  (Destroy-  (Copy-  (ColorAverage-  (Desaturate-  (DrawResize-  (Draw-  (Resize-  ())))))))-type instance Functions SVGImage = SVGImageFuncs--data CSimpleTerminal parent-type SimpleTerminal = CSimpleTerminal TextDisplay-type SimpleTerminalFuncs =-    (SetStayAtBottom-    (GetStayAtBottom-    (SetHistoryLines-    (GetHistoryLines-    (SetAnsi-    (GetAnsi-    (SetStyleTable-    (GetStyleTable-    (GetStyleTableSize-    (SetNormalStyleIndex-    (GetNormalStyleIndex-    (SetCurrentStyleIndex-    (GetCurrentStyleIndex-    (SetText-    (GetText-    (Clear-    (RemoveLines-    (DrawSuper-    (ResizeSuper-    (HandleSuper-    (HideSuper-    (ShowWidgetSuper-    ()))))))))))))))))))))))+         WidgetBase,+         Widget,+         WidgetBaseFuncs,+         WidgetFuncs,+         Destroy,+         destroy,+         Handle,+         handle,+         GetParent,+         getParent,+         SetParent,+         setParent,+         GetType_,+         getType_,+         SetType,+         setType,+         DrawLabel,+         drawLabel,+         GetX,+         getX,+         GetY,+         getY,+         GetW,+         getW,+         GetH,+         getH,+         GetRectangle,+         getRectangle,+         SetAlign,+         setAlign,+         GetAlign,+         getAlign,+         GetBox,+         getBox,+         SetBox,+         setBox,+         GetColor,+         getColor,+         SetColor,+         setColor,+         SetColorWithBgSel,+         setColorWithBgSel,+         GetSelectionColor,+         getSelectionColor,+         SetSelectionColor,+         setSelectionColor,+         GetLabel,+         getLabel,+         CopyLabel,+         copyLabel,+         SetLabel,+         setLabel,+         GetLabeltype,+         getLabeltype,+         SetLabeltype,+         setLabeltype,+         GetLabelcolor,+         getLabelcolor,+         SetLabelcolor,+         setLabelcolor,+         GetLabelfont,+         getLabelfont,+         SetLabelfont,+         setLabelfont,+         GetLabelsize,+         getLabelsize,+         SetLabelsize,+         setLabelsize,+         GetImage,+         getImage,+         SetImage,+         setImage,+         GetDeimage,+         getDeimage,+         SetDeimage,+         setDeimage,+         GetTooltip,+         getTooltip,+         CopyTooltip,+         copyTooltip,+         SetTooltip,+         setTooltip,+         GetWhen,+         getWhen,+         SetWhen,+         setWhen,+         GetVisible,+         getVisible,+         GetVisibleR,+         getVisibleR,+         ShowWidgetSuper,+         showWidgetSuper,+         ShowWidget,+         showWidget,+         HideSuper,+         hideSuper,+         Hide,+         hide,+         SetVisible,+         setVisible,+         ClearVisible,+         clearVisible,+         Active,+         active,+         ActiveR,+         activeR,+         Activate,+         activate,+         Deactivate,+         deactivate,+         GetOutput,+         getOutput,+         SetOutput,+         setOutput,+         ClearOutput,+         clearOutput,+         Takesevents,+         takesevents,+         SetChanged,+         setChanged,+         ClearChanged,+         clearChanged,+         Changed,+         changed,+         SetActive,+         setActive,+         ClearActive,+         clearActive,+         TakeFocus,+         takeFocus,+         SetVisibleFocus,+         setVisibleFocus,+         ClearVisibleFocus,+         clearVisibleFocus,+         ModifyVisibleFocus,+         modifyVisibleFocus,+         GetVisibleFocus,+         getVisibleFocus,+         Contains,+         contains,+         Inside,+         inside,+         Redraw,+         redraw,+         RedrawLabel,+         redrawLabel,+         GetDamage,+         getDamage,+         ClearDamageThenSet,+         clearDamageThenSet,+         ClearDamage,+         clearDamage,+         SetDamage,+         setDamage,+         SetDamageInside,+         setDamageInside,+         MeasureLabel,+         measureLabel,+         GetWindow,+         getWindow,+         GetTopWindow,+         getTopWindow,+         GetTopWindowOffset,+         getTopWindowOffset,+         ResizeSuper,+         resizeSuper,+         Resize,+         resize,+         GetCallback,+         getCallback,+         SetCallback,+         setCallback,+         HasCallback,+         hasCallback,+         DrawBox,+         drawBox,+         DrawBoxWithBoxtype,+         drawBoxWithBoxtype,+         DrawBackdrop,+         drawBackdrop,+         DrawFocus,+         drawFocus,+         Flags,+         flags,+         SetFlag,+         setFlag,+         ClearFlag,+         clearFlag,+         -- * Group+         GroupBase,+         Group,+         DrawChild,+         drawChild,+         DrawChildren,+         drawChildren,+         DrawOutsideLabel,+         drawOutsideLabel,+         UpdateChild,+         updateChild,+         Begin,+         begin,+         End,+         end,+         Within,+         within,+         Find,+         find,+         Add,+         add,+         Insert,+         insert,+         RemoveIndex,+         removeIndex,+         RemoveWidget,+         removeWidget,+         Clear,+         clear,+         SetResizable,+         setResizable,+         SetNotResizable,+         setNotResizable,+         GetResizable,+         getResizable,+         AddResizable,+         addResizable,+         InitSizes,+         initSizes,+         Children,+         children,+         SetClipChildren,+         setClipChildren,+         ClipChildren,+         clipChildren,+         Focus,+         focus,+         DdfdesignKludge,+         ddfdesignKludge,+         InsertBefore,+         insertBefore,+         GetArray,+         getArray,+         GetChild,+         getChild,+         -- * Window+         WindowBase,+         Window,+         DrawSuper,+         drawSuper,+         HandleSuper,+         handleSuper,+         FlushSuper,+         flushSuper,+         MakeFullscreen,+         makeFullscreen,+         FullscreenOff,+         fullscreenOff,+         SetBorder,+         setBorder,+         ClearBorder,+         clearBorder,+         GetBorder,+         getBorder,+         SetOverride,+         setOverride,+         GetOverride,+         getOverride,+         SetModal,+         setModal,+         GetModal,+         getModal,+         SetNonModal,+         setNonModal,+         NonModal,+         nonModal,+         SetMenuWindow,+         setMenuWindow,+         GetMenuWindow,+         getMenuWindow,+         SetTooltipWindow,+         setTooltipWindow,+         GetTooltipWindow,+         getTooltipWindow,+         HotSpot,+         hotSpot,+         FreePosition,+         freePosition,+         SizeRange,+         sizeRange,+         SizeRangeWithArgs,+         sizeRangeWithArgs,+         GetIconlabel,+         getIconlabel,+         SetIconlabel,+         setIconlabel,+         SetLabelWithIconlabel,+         setLabelWithIconlabel,+         GetXclass,+         getXclass,+         SetXclass,+         setXclass,+         GetIcon,+         getIcon,+         SetIcon,+         setIcon,+         Shown,+         shown,+         Iconize,+         iconize,+         GetXRoot,+         getXRoot,+         GetYRoot,+         getYRoot,+         MakeCurrent,+         makeCurrent,+         SetCursor,+         setCursor,+         SetCursorWithFgBg,+         setCursorWithFgBg,+         SetDefaultCursor,+         setDefaultCursor,+         SetDefaultCursorWithFgBg,+         setDefaultCursorWithFgBg,+         GetDecoratedW,+         getDecoratedW,+         GetDecoratedH,+         getDecoratedH,+         WaitForExpose,+         waitForExpose,+         -- * SingleWindow+         SingleWindowBase,+         SingleWindow,+         -- * DoubleWindow+         DoubleWindowBase,+         DoubleWindow,+         -- * OverlayWindow+         OverlayWindowBase,+         OverlayWindow,+         CanDoOverlay,+         canDoOverlay,+         RedrawOverlay,+         redrawOverlay,+         Flush,+         flush,+         -- * Button+         ButtonBase,+         Button,+         GetValue,+         getValue,+         SetValue,+         setValue,+         Set,+         set,+         Setonly,+         setonly,+         GetShortcut,+         getShortcut,+         SetShortcut,+         setShortcut,+         GetDownBox,+         getDownBox,+         SetDownBox,+         setDownBox,+         GetDownColor,+         getDownColor,+         SetDownColor,+         setDownColor,+         -- * LightButton+         LightButtonBase,+         LightButton,+         -- * RadioLightButton+         RadioLightButtonBase,+         RadioLightButton,+         -- * CheckButton+         CheckButtonBase,+         CheckButton,+         -- * ReturnButton+         ReturnButtonBase,+         ReturnButton,+         -- * RoundButton+         RoundButtonBase,+         RoundButton,+         -- * RepeatButton+         RepeatButtonBase,+         RepeatButton,+         -- * ToggleButton+         ToggleButtonBase,+         ToggleButton,+         -- * Valuator+         ValuatorBase,+         Valuator,+         Bounds,+         bounds,+         GetMinimum,+         getMinimum,+         SetMinimum,+         setMinimum,+         GetMaximum,+         getMaximum,+         SetMaximum,+         setMaximum,+         Range,+         range,+         SetStep,+         setStep,+         GetStep,+         getStep,+         Precision,+         precision,+         Format,+         format,+         Round,+         round,+         Clamp,+         clamp,+         Increment,+         increment,+         -- * Slider+         SliderBase,+         Slider,+         Scrollvalue,+         scrollvalue,+         SetSliderSize,+         setSliderSize,+         GetSliderSize,+         getSliderSize,+         GetSlider,+         getSlider,+         SetSlider,+         setSlider,+         -- * FillSlider+         FillSliderBase,+         FillSlider,+         -- * HorSlider+         HorSliderBase,+         HorSlider,+         -- * HorFillSider+         HorFillSliderBase,+         HorFillSlider,+         -- * NiceSlider+         NiceSliderBase,+         NiceSlider,+         -- * HorNiceSlider+         HorNiceSliderBase,+         HorNiceSlider,+         -- * MenuItem+         MenuItemBase,+         MenuItem,+         NextWithStep,+         nextWithStep,+         Next,+         next,+         GetFirst,+         getFirst,+         SetLabelWithLabeltype,+         setLabelWithLabeltype,+         Submenu,+         submenu,+         Checkbox,+         checkbox,+         Radio,+         radio,+         Visible,+         visible,+         Activevisible,+         activevisible,+         Measure,+         measure,+         DrawWithT,+         drawWithT,+         Draw,+         draw,+         GetFlags,+         getFlags,+         SetFlags,+         setFlags,+         GetText,+         getText,+         Pulldown,+         pulldown,+         Popup,+         popup,+         TestShortcut,+         testShortcut,+         FindShortcut,+         findShortcut,+         DoCallback,+         doCallback,+         GetSize,+         getSize,+         -- * MenuPrim+         MenuPrimBase,+         MenuPrim,+         ItemPathname,+         itemPathname,+         ItemPathnameRecent,+         itemPathnameRecent,+         Picked,+         picked,+         FindIndex,+         findIndex,+         Global,+         global,+         GetMenu,+         getMenu,+         SetMenu,+         setMenu,+         AddName,+         addName,+         Copy,+         copy,+         SetSize,+         setSize,+         ClearSubmenu,+         clearSubmenu,+         Replace,+         replace,+         Remove,+         remove,+         SetMode,+         setMode,+         GetMode,+         getMode,+         Mvalue,+         mvalue,+         GetTextWithIndex,+         getTextWithIndex,+         GetTextfont,+         getTextfont,+         SetTextfont,+         setTextfont,+         GetTextsize,+         getTextsize,+         SetTextsize,+         setTextsize,+         GetTextcolor,+         getTextcolor,+         SetTextcolor,+         setTextcolor,+         DownBox,+         downBox,+         AddAndGetMenuItem,+         addAndGetMenuItem,+         -- * MenuBar+         MenuBarBase,+         MenuBar,+         -- * SysMenuBar+         SysMenuBarBase,+         SysMenuBar,+         -- * Choice,+         ChoiceBase,+         Choice,+         -- * MenuButton+         MenuButtonBase,+         MenuButton,+         -- * Image+         Image,+         GetD,+         getD,+         GetLd,+         getLd,+         GetCount,+         getCount,+         ColorAverage,+         colorAverage,+         Inactive,+         inactive,+         Desaturate,+         desaturate,+         DrawResize,+         drawResize,+         Uncache,+         uncache,+         Fail,+         fail,+         Scale,+         scale,+         GetDataW,+         getDataW,+         GetDataH,+         getDataH,+         GetDataSize,+         getDataSize,+         -- * Bitmap+         Bitmap,+         -- * Pixmap+         Pixmap,+         -- * CopySurface+         CopySurface,+         SetCurrent,+         setCurrent,+         -- * ImageSurface+         ImageSurface,+         GetOrigin,+         getOrigin,+         PrintableRect,+         printableRect,+         SetOrigin,+         setOrigin,+         GetOffscreenBeforeDelete,+         getOffscreenBeforeDelete,+         GetOffscreen,+         getOffscreen,+         -- * Adjuster+         AdjusterBase,+         Adjuster,+         SetSoft,+         setSoft,+         GetSoft,+         getSoft,+         -- * Dial+         DialBase,+         Dial,+         GetAngle1,+         getAngle1,+         SetAngle1,+         setAngle1,+         GetAngle2,+         getAngle2,+         SetAngle2,+         setAngle2,+         SetAngles,+         setAngles,+         -- * FillDial+         FillDial,+         -- * LineDial+         LineDial,+         -- * Roller+         RollerBase,+         Roller,+         -- * Counter+         CounterBase,+         Counter,+         SetLstep,+         setLstep,+         -- * Scrollbar+         ScrollbarBase,+         Scrollbar,+         SetLinesize,+         setLinesize,+         GetLinesize,+         getLinesize,+         -- * ValueSlider+         ValueSliderBase,+         ValueSlider,+         -- * HorValueSlider+         HorValueSlider,+         -- * Input+         InputBase,+         Input,+         StaticValue,+         staticValue,+         Index,+         index,+         GetMaximumSize,+         getMaximumSize,+         SetMaximumSize,+         setMaximumSize,+         GetPosition,+         getPosition,+         GetMark,+         getMark,+         SetPosition,+         setPosition,+         SetMark,+         setMark,+         Cut,+         cut,+         CutFromCursor,+         cutFromCursor,+         CutRange,+         cutRange,+         InsertWithLength,+         insertWithLength,+         Undo,+         undo,+         CopyCuts,+         copyCuts,+         GetCursorColor,+         getCursorColor,+         SetCursorColor,+         setCursorColor,+         GetInputType,+         getInputType,+         SetInputType,+         setInputType,+         GetReadonly,+         getReadonly,+         SetReadonly,+         setReadonly,+         GetWrap,+         getWrap,+         SetWrap,+         setWrap,+         GetTabNav,+         getTabNav,+         SetTabNav,+         setTabNav,+         DrawText,+         drawText,+         -- * Output+         OutputBase,+         Output,+         -- * ValueInput+         ValueInputBase,+         ValueInput,+         -- * ValueOutput+         ValueOutputBase,+         ValueOutput,+         -- * Progress+         ProgressBase,+         Progress,+         -- * Positioner+         PositionerBase,+         Positioner,+         SetXvalue,+         setXvalue,+         GetXvalue,+         getXvalue,+         SetYvalue,+         setYvalue,+         GetYvalue,+         getYvalue,+         SetXminimum,+         setXminimum,+         GetXminimum,+         getXminimum,+         SetYminimum,+         setYminimum,+         GetYminimum,+         getYminimum,+         SetXmaximum,+         setXmaximum,+         GetXmaximum,+         getXmaximum,+         SetYmaximum,+         setYmaximum,+         GetYmaximum,+         getYmaximum,+         SetXbounds,+         setXbounds,+         SetYbounds,+         setYbounds,+         SetXstep,+         setXstep,+         SetYstep,+         setYstep,+         -- * Wizard+         WizardBase,+         Wizard,+         Prev,+         prev,+         -- * Table+         TableBase,+         Table,+         SetTableBox,+         setTableBox,+         GetTableBox,+         getTableBox,+         SetRows,+         setRows,+         GetRows,+         getRows,+         SetCols,+         setCols,+         GetCols,+         getCols,+         GetVisibleCells,+         getVisibleCells,+         IsInteractiveResize,+         isInteractiveResize,+         GetRowResize,+         getRowResize,+         SetRowResize,+         setRowResize,+         GetColResize,+         getColResize,+         SetColResize,+         setColResize,+         GetColResizeMin,+         getColResizeMin,+         SetColResizeMin,+         setColResizeMin,+         GetRowResizeMin,+         getRowResizeMin,+         SetRowResizeMin,+         setRowResizeMin,+         GetRowHeader,+         getRowHeader,+         SetRowHeader,+         setRowHeader,+         GetColHeader,+         getColHeader,+         SetColHeader,+         setColHeader,+         SetColHeaderHeight,+         setColHeaderHeight,+         GetColHeaderHeight,+         getColHeaderHeight,+         SetRowHeaderWidth,+         setRowHeaderWidth,+         GetRowHeaderWidth,+         getRowHeaderWidth,+         SetRowHeaderColor,+         setRowHeaderColor,+         GetRowHeaderColor,+         getRowHeaderColor,+         SetColHeaderColor,+         setColHeaderColor,+         GetColHeaderColor,+         getColHeaderColor,+         SetRowHeight,+         setRowHeight,+         GetRowHeight,+         getRowHeight,+         SetColWidth,+         setColWidth,+         GetColWidth,+         getColWidth,+         SetRowHeightAll,+         setRowHeightAll,+         SetColWidthAll,+         setColWidthAll,+         SetRowPosition,+         setRowPosition,+         SetColPosition,+         setColPosition,+         GetRowPosition,+         getRowPosition,+         GetColPosition,+         getColPosition,+         SetTopRow,+         setTopRow,+         GetTopRow,+         getTopRow,+         IsSelected,+         isSelected,+         GetSelection,+         getSelection,+         SetSelection,+         setSelection,+         MoveCursor,+         moveCursor,+         CallbackRow,+         callbackRow,+         CallbackCol,+         callbackCol,+         CallbackContext,+         callbackContext,+         FindCell,+         findCell,+         ClearSuper,+         clearSuper,+         SetRowsSuper,+         setRowsSuper,+         SetColsSuper,+         setColsSuper,+         SetTabCellNav,+         setTabCellNav,+         GetTabCellNav,+         getTabCellNav,+         -- * TableRow+         TableRowBase,+         TableRow,+         GetRowSelected,+         getRowSelected,+         SelectAllRows,+         selectAllRows,+         -- * GlWindow+         GlWindowBase,+         GlWindow,+         GetValid,+         getValid,+         SetValid,+         setValid,+         Invalidate,+         invalidate,+         GetContextValid,+         getContextValid,+         SetContextValid,+         setContextValid,+         CanDo,+         canDo,+         GetContext,+         getContext,+         SetContext,+         setContext,+         SetContextWithDestroyFlag,+         setContextWithDestroyFlag,+         SwapBuffers,+         swapBuffers,+         Ortho,+         ortho,+         HideOverlay,+         hideOverlay,+         MakeOverlayCurrent,+         makeOverlayCurrent,+         PixelsPerUnit,+         pixelsPerUnit,+         PixelH,+         pixelH,+         PixelW,+         pixelW,+         -- * Box+         Box,+         -- * Browser+         BrowserBase,+         Browser,+         Move,+         move,+         Load,+         load,+         Swap,+         swap,+         GetTopline,+         getTopline,+         Lineposition,+         lineposition,+         SetTopline,+         setTopline,+         SetBottomline,+         setBottomline,+         SetMiddleline,+         setMiddleline,+         Select,+         select,+         Selected,+         selected,+         ShowWidgetLine,+         showWidgetLine,+         HideLine,+         hideLine,+         SetText,+         setText,+         GetFormatChar,+         getFormatChar,+         SetFormatChar,+         setFormatChar,+         GetColumnChar,+         getColumnChar,+         SetColumnChar,+         setColumnChar,+         GetColumnWidths,+         getColumnWidths,+         SetColumnWidths,+         setColumnWidths,+         Displayed,+         displayed,+         MakeVisible,+         makeVisible,+         RemoveIcon,+         removeIcon,+         SelectOnly,+         selectOnly,+         SelectOnlyAndCallback,+         selectOnlyAndCallback,+         Deselect,+         deselect,+         DeselectAndCallback,+         deselectAndCallback,+         GetHposition,+         getHposition,+         SetHposition,+         setHposition,+         GetHasScrollbar,+         getHasScrollbar,+         SetHasScrollbar,+         setHasScrollbar,+         GetScrollbarSize,+         getScrollbarSize,+         SetScrollbarSize,+         setScrollbarSize,+         GetScrollbarWidth,+         getScrollbarWidth,+         SetScrollbarWidth,+         setScrollbarWidth,+         SetScrollbarColor,+         setScrollbarColor,+         SetScrollbarSelectionColor,+         setScrollbarSelectionColor,+         Sort,+         sort,+         SortWithSortType,+         sortWithSortType,+         -- * SelectBrowser+         SelectBrowser,+         -- * IntInput+         IntInput,+         -- * Clock+         ClockBase,+         Clock,+         GetValueSinceEpoch,+         getValueSinceEpoch,+         GetShadow,+         getShadow,+         SetShadow,+         setShadow,+         -- * TreePrefs+         TreePrefs,+         GetItemLabelfont,+         getItemLabelfont,+         GetItemLabelsize,+         getItemLabelsize,+         SetItemLabelsize,+         setItemLabelsize,+         SetItemLabelfgcolor,+         setItemLabelfgcolor,+         GetItemLabelbgcolor,+         getItemLabelbgcolor,+         SetItemLabelbgcolor,+         setItemLabelbgcolor,+         GetLabelfgcolor,+         getLabelfgcolor,+         SetLabelfgcolor,+         setLabelfgcolor,+         GetLabelbgcolor,+         getLabelbgcolor,+         SetLabelbgcolor,+         setLabelbgcolor,+         GetMarginleft,+         getMarginleft,+         SetMarginleft,+         setMarginleft,+         GetMargintop,+         getMargintop,+         SetMargintop,+         setMargintop,+         GetOpenchildMarginbottom,+         getOpenchildMarginbottom,+         SetOpenchildMarginbottom,+         setOpenchildMarginbottom,+         GetUsericonmarginleft,+         getUsericonmarginleft,+         SetUsericonmarginleft,+         setUsericonmarginleft,+         GetLabelmarginleft,+         getLabelmarginleft,+         SetLabelmarginleft,+         setLabelmarginleft,+         GetLinespacing,+         getLinespacing,+         SetLinespacing,+         setLinespacing,+         GetConnectorcolor,+         getConnectorcolor,+         SetConnectorcolor,+         setConnectorcolor,+         GetConnectorstyle,+         getConnectorstyle,+         SetConnectorstyle,+         setConnectorstyle,+         GetConnectorwidth,+         getConnectorwidth,+         SetConnectorwidth,+         setConnectorwidth,+         GetOpenicon,+         getOpenicon,+         SetOpenicon,+         setOpenicon,+         GetCloseicon,+         getCloseicon,+         SetCloseicon,+         setCloseicon,+         GetUsericon,+         getUsericon,+         SetUsericon,+         setUsericon,+         GetShowcollapse,+         getShowcollapse,+         SetShowcollapse,+         setShowcollapse,+         GetSortorder,+         getSortorder,+         SetSortorder,+         setSortorder,+         GetSelectbox,+         getSelectbox,+         SetSelectbox,+         setSelectbox,+         GetShowroot,+         getShowroot,+         SetShowroot,+         setShowroot,+         GetSelectmode,+         getSelectmode,+         SetSelectmode,+         setSelectmode,+         -- * TreeItem+         TreeItem,+         ShowSelf,+         showSelf,+         SetWidget,+         setWidget,+         GetWidget,+         getWidget,+         Child,+         child,+         HasChildren,+         hasChildren,+         FindChild,+         findChild,+         RemoveChild,+         removeChild,+         ClearChildren,+         clearChildren,+         SwapChildren,+         swapChildren,+         SwapChildrenByTreeItem,+         swapChildrenByTreeItem,+         FindInChildren,+         findInChildren,+         FindItem,+         findItem,+         AddAt,+         addAt,+         InsertAbove,+         insertAbove,+         Deparent,+         deparent,+         Reparent,+         reparent,+         MoveTo,+         moveTo,+         GetDepth,+         getDepth,+         NextSibling,+         nextSibling,+         PrevSibling,+         prevSibling,+         UpdatePrevNext,+         updatePrevNext,+         NextDisplayed,+         nextDisplayed,+         PrevDisplayed,+         prevDisplayed,+         Open,+         open,+         Close,+         close,+         IsOpen,+         isOpen,+         IsClose,+         isClose,+         OpenToggle,+         openToggle,+         SelectSet,+         selectSet,+         SelectToggle,+         selectToggle,+         SelectAll,+         selectAll,+         DeselectAll,+         deselectAll,+         ActivateWith,+         activateWith,+         IsActive,+         isActive,+         IsVisible,+         isVisible,+         VisibleR,+         visibleR,+         FindClicked,+         findClicked,+         EventOnCollapseIcon,+         eventOnCollapseIcon,+         EventOnLabel,+         eventOnLabel,+         IsRoot,+         isRoot,+         LabelX,+         labelX,+         LabelY,+         labelY,+         LabelW,+         labelW,+         LabelH,+         labelH,+         -- * Tree+         TreeBase,+         Tree,+         RootLabel,+         rootLabel,+         Root,+         root,+         ItemClicked,+         itemClicked,+         FirstVisible,+         firstVisible,+         NextItem,+         nextItem,+         NextAfterItem,+         nextAfterItem,+         PrevBeforeItem,+         prevBeforeItem,+         GetLast,+         getLast,+         LastVisible,+         lastVisible,+         FirstSelectedItem,+         firstSelectedItem,+         LastSelectedItem,+         lastSelectedItem,+         NextSelectedItem,+         nextSelectedItem,+         NextSelectedItemAfterItem,+         nextSelectedItemAfterItem,+         OpenAndCallback,+         openAndCallback,+         OpenToggleAndCallback,+         openToggleAndCallback,+         TreeMenuItemLocator,+         treeMenuItemLocator,+         CloseAndCallback,+         closeAndCallback,+         SelectAndCallback,+         selectAndCallback,+         SelectToggleAndCallback,+         selectToggleAndCallback,+         SelectAllAndCallback,+         selectAllAndCallback,+         DeselectAllAndCallback,+         deselectAllAndCallback,+         SetItemFocus,+         setItemFocus,+         GetItemFocus,+         getItemFocus,+         IsSelectedWithItem,+         isSelectedWithItem,+         SetItemLabelfont,+         setItemLabelfont,+         GetItemLabelfgcolor,+         getItemLabelfgcolor,+         Selectmode,+         selectmode,+         ShowItemWithYoff,+         showItemWithYoff,+         ShowItemTop,+         showItemTop,+         ShowItemMiddle,+         showItemMiddle,+         ShowItemBottom,+         showItemBottom,+         Display,+         display,+         GetVposition,+         getVposition,+         SetVposition,+         setVposition,+         IsScrollbar,+         isScrollbar,+         IsVscrollVisible,+         isVscrollVisible,+         SetCallbackItem,+         setCallbackItem,+         GetCallbackItem,+         getCallbackItem,+         SetCallbackReason,+         setCallbackReason,+         GetCallbackReason,+         getCallbackReason,+         RecalcTree,+         recalcTree,+         SetMarginbottom,+         setMarginbottom,+         GetMarginbottom,+         getMarginbottom,+         SetWidgetmarginleft,+         setWidgetmarginleft,+         GetWidgetmarginleft,+         getWidgetmarginleft,+         SetItemReselectMode,+         setItemReselectMode,+         GetItemReselectMode,+         getItemReselectMode,+         SetItemDrawMode,+         setItemDrawMode,+         GetItemDrawMode,+         getItemDrawMode,+         -- * TextSelection+         TextSelection,+         Update,+         update,+         Start,+         start,+         SetSelected,+         setSelected,+         Includes,+         includes,+         -- * TextBuffer+         TextBuffer,+         InputFileWasTranscoded,+         inputFileWasTranscoded,+         FileEncodingWarningMessage,+         fileEncodingWarningMessage,+         GetLength,+         getLength,+         TextRange,+         textRange,+         CharAt,+         charAt,+         ByteAt,+         byteAt,+         AppendToBuffer,+         appendToBuffer,+         CanUndo,+         canUndo,+         Insertfile,+         insertfile,+         InsertfileWithBuflen,+         insertfileWithBuflen,+         Appendfile,+         appendfile,+         AppendfileWithBuflen,+         appendfileWithBuflen,+         Loadfile,+         loadfile,+         LoadfileWithBuflen,+         loadfileWithBuflen,+         Outputfile,+         outputfile,+         OutputfileWithBuflen,+         outputfileWithBuflen,+         Savefile,+         savefile,+         SavefileWithBuflen,+         savefileWithBuflen,+         GetTabDistance,+         getTabDistance,+         SetTabDistance,+         setTabDistance,+         Unselect,+         unselect,+         SelectionPosition,+         selectionPosition,+         SelectionText,+         selectionText,+         RemoveSelection,+         removeSelection,+         ReplaceSelection,+         replaceSelection,+         SecondarySelect,+         secondarySelect,+         SecondarySelected,+         secondarySelected,+         SecondaryUnselect,+         secondaryUnselect,+         SecondarySelectionPosition,+         secondarySelectionPosition,+         SecondarySelectionText,+         secondarySelectionText,+         RemoveSecondarySelection,+         removeSecondarySelection,+         ReplaceSecondarySelection,+         replaceSecondarySelection,+         GetHighlight,+         getHighlight,+         SetHighlight,+         setHighlight,+         Unhighlight,+         unhighlight,+         HighlightPosition,+         highlightPosition,+         HighlightText,+         highlightText,+         AddModifyCallback,+         addModifyCallback,+         RemoveModifyCallback,+         removeModifyCallback,+         CallModifyCallbacks,+         callModifyCallbacks,+         AddPredeleteCallback,+         addPredeleteCallback,+         RemovePredeleteCallback,+         removePredeleteCallback,+         CallPredeleteCallbacks,+         callPredeleteCallbacks,+         LineText,+         lineText,+         LineStart,+         lineStart,+         LineEnd,+         lineEnd,+         WordStart,+         wordStart,+         WordEnd,+         wordEnd,+         CountDisplayedCharacters,+         countDisplayedCharacters,+         SkipDisplayedCharacters,+         skipDisplayedCharacters,+         CountLines,+         countLines,+         SkipLines,+         skipLines,+         RewindLines,+         rewindLines,+         FindcharForward,+         findcharForward,+         FindcharBackward,+         findcharBackward,+         SearchForwardWithMatchcase,+         searchForwardWithMatchcase,+         SearchBackwardWithMatchcase,+         searchBackwardWithMatchcase,+         PrimarySelection,+         primarySelection,+         SecondarySelection,+         secondarySelection,+         HighlightSelection,+         highlightSelection,+         PrevChar,+         prevChar,+         PrevCharClipped,+         prevCharClipped,+         NextChar,+         nextChar,+         NextCharClipped,+         nextCharClipped,+         Utf8Align,+         utf8Align,+         -- * TextDisplay,+         TextDisplayBase,+         TextDisplay,+         SetBuffer,+         setBuffer,+         GetBuffer,+         getBuffer,+         RedisplayRange,+         redisplayRange,+         Scroll,+         scroll,+         Overstrike,+         overstrike,+         SetInsertPosition,+         setInsertPosition,+         GetInsertPosition,+         getInsertPosition,+         XyToPosition,+         xyToPosition,+         PositionToXy,+         positionToXy,+         InSelection,+         inSelection,+         ShowInsertPosition,+         showInsertPosition,+         MoveRight,+         moveRight,+         MoveLeft,+         moveLeft,+         MoveUp,+         moveUp,+         MoveDown,+         moveDown,+         NextWord,+         nextWord,+         PreviousWord,+         previousWord,+         ShowCursor,+         showCursor,+         SetCursorStyle,+         setCursorStyle,+         GetScrollbarAlign,+         getScrollbarAlign,+         SetScrollbarAlign,+         setScrollbarAlign,+         HighlightData,+         highlightData,+         PositionStyle,+         positionStyle,+         XToCol,+         xToCol,+         ColToX,+         colToX,+         SetLinenumberWidth,+         setLinenumberWidth,+         GetLinenumberWidth,+         getLinenumberWidth,+         SetLinenumberFont,+         setLinenumberFont,+         GetLinenumberFont,+         getLinenumberFont,+         SetLinenumberSize,+         setLinenumberSize,+         GetLinenumberSize,+         getLinenumberSize,+         SetLinenumberFgcolor,+         setLinenumberFgcolor,+         GetLinenumberFgcolor,+         getLinenumberFgcolor,+         SetLinenumberBgcolor,+         setLinenumberBgcolor,+         GetLinenumberBgcolor,+         getLinenumberBgcolor,+         SetLinenumberAlign,+         setLinenumberAlign,+         GetLinenumberAlign,+         getLinenumberAlign,+         SetLinenumberFormat,+         setLinenumberFormat,+         GetLinenumberFormat,+         getLinenumberFormat,+         WrapMode,+         wrapMode,+         -- * TextEditor+         TextEditorBase,+         TextEditor,+         SetInsertMode,+         setInsertMode,+         GetInsertMode,+         getInsertMode,+         GetDefaultKeyBindings,+         getDefaultKeyBindings,+         ReplaceKeyBindings,+         replaceKeyBindings,+         -- * NativeFileChooser+         NativeFileChooser,+         SetOptions,+         setOptions,+         GetOptions,+         getOptions,+         GetFilename,+         getFilename,+         GetFilenameAt,+         getFilenameAt,+         SetDirectory,+         setDirectory,+         GetDirectory,+         getDirectory,+         SetTitle,+         setTitle,+         GetTitle,+         getTitle,+         GetFilter,+         getFilter,+         SetFilter,+         setFilter,+         Filters,+         filters,+         SetFilterValue,+         setFilterValue,+         GetFilterValue,+         getFilterValue,+         SetPresetFile,+         setPresetFile,+         GetPresetFile,+         getPresetFile,+         GetErrmsg,+         getErrmsg,+         -- * Tile+         TileBase,+         Tile,+         PackBase,+         Pack,+         setSpacing,+         SetSpacing,+         getSpacing,+         GetSpacing,+         isHorizontal,+         IsHorizontal,+         -- * Scrolled AKA Scroll+         ScrolledBase,+         Scrolled,+         ScrollTo,+         scrollTo,+         Xposition,+         xposition,+         Yposition,+         yposition,+         -- * Tabs+         TabsBase,+         Tabs,+         GetPush,+         getPush,+         SetPush,+         setPush,+         Which,+         which,+         ClientArea,+         clientArea,+         TabPositions,+         tabPositions,+         TabHeight,+         tabHeight,+         GetTabAlign,+         getTabAlign,+         SetTabAlign,+         setTabAlign,+         -- * Spinner+         SpinnerBase,+         Spinner,+         GetFormat,+         getFormat,+         SetFormat,+         setFormat,+         -- * ColorChooser+         ColorChooserBase,+         ColorChooser,+         GetHue,+         getHue,+         GetSaturation,+         getSaturation,+         GetR,+         getR,+         GetG,+         getG,+         GetB,+         getB,+         SetHsv,+         setHsv,+         SetRgb,+         setRgb,+         GetRgb,+         getRgb,+         GetHsv,+         getHsv,+         -- * FileBrowser+         FileBrowserBase,+         FileBrowser,+         SetIconsize,+         setIconsize,+         GetIconsize,+         getIconsize,+         SetFiletype,+         setFiletype,+         GetFiletype,+         getFiletype,+         -- * RGBImage+         RGBImage,+         -- * JPEGImage+         JPEGImage,+         -- * BMPImage+         BMPImage,+         -- * GIFImage+         GIFImage,+         -- * XBMImage+         XBMImage,+         -- * XPMImage+         XPMImage,+         -- * PNGImage+         PNGImage,+         -- * PNMImage+         PNMImage,+         -- * FileInput+         FileInputBase,+         FileInput,+         GetErrorColor,+         getErrorColor,+         SetErrorColor,+         setErrorColor,+         ScreenDriver,+         SystemDriver,+         -- * SVGImage+         SVGImage,+         -- * SimpleTerminal+         SimpleTerminalBase,+         SimpleTerminal,+         SetStayAtBottom,+         setStayAtBottom,+         GetStayAtBottom,+         getStayAtBottom,+         SetHistoryLines,+         setHistoryLines,+         GetHistoryLines,+         getHistoryLines,+         SetAnsi,+         setAnsi,+         GetAnsi,+         getAnsi,+         SetStyleTable,+         setStyleTable,+         GetStyleTable,+         getStyleTable,+         GetStyleTableSize,+         getStyleTableSize,+         SetNormalStyleIndex,+         setNormalStyleIndex,+         GetNormalStyleIndex,+         getNormalStyleIndex,+         SetCurrentStyleIndex,+         setCurrentStyleIndex,+         GetCurrentStyleIndex,+         getCurrentStyleIndex,+         RemoveLines,+         removeLines,+         -- * MultiLabel+         MultiLabel,+         WidgetLabel,+         widgetLabel,+         MenuItemLabel,+         menuItemLabel+     )+where+import Prelude hiding (round, fail)+import Graphics.UI.FLTK.LowLevel.Fl_Types+import Graphics.UI.FLTK.LowLevel.Dispatch+#if defined(CALLSTACK_AVAILABLE) || defined(HASCALLSTACK_AVAILABLE)+import GHC.Stack+import System.IO.Unsafe+#endif+type instance Functions Base = ()++data CWidgetBase parent+type WidgetBase = CWidgetBase Base+type WidgetBaseFuncs =+  (Activate+  (Active+  (ActiveR+  (Changed+  (ClearActive+  (ClearChanged+  (ClearDamage+  (ClearDamageThenSet+  (ClearFlag+  (ClearOutput+  (ClearVisible+  (ClearVisibleFocus+  (Contains+  (CopyTooltip+  (Deactivate+  (Destroy+  (DoCallback+  (DrawBackdrop+  (DrawBox+  (DrawBoxWithBoxtype+  (DrawFocus+  (DrawLabel+  (Flags+  (GetAlign+  (GetBox+  (GetCallback+  (GetColor+  (GetDamage+  (GetDeimage+  (GetH+  (GetImage+  (GetLabel+  (GetLabelcolor+  (GetLabelfont+  (GetLabelsize+  (GetLabeltype+  (GetOutput+  (GetParent+  (GetRectangle+  (GetSelectionColor+  (GetTooltip+  (GetTopWindow+  (GetTopWindowOffset+  (GetType_+  (GetVisible+  (GetVisibleFocus+  (GetVisibleR+  (GetW+  (GetWhen+  (GetWindow+  (GetX+  (GetY+  (Handle+  (HasCallback+  (Hide+  (Inside+  (MeasureLabel+  (ModifyVisibleFocus+  (Redraw+  (RedrawLabel+  (Resize+  (SetActive+  (SetAlign+  (SetBox+  (SetCallback+  (SetChanged+  (SetColor+  (SetColorWithBgSel+  (SetDamage+  (SetDamageInside+  (SetDeimage+  (SetFlag+  (SetImage+  (SetLabel+  (SetLabelcolor+  (SetLabelfont+  (SetLabelsize+  (SetLabeltype+  (SetOutput+  (SetParent+  (SetSelectionColor+  (SetTooltip+  (SetType+  (SetVisible+  (SetVisibleFocus+  (SetWhen+  (ShowWidget+  (TakeFocus+  (Takesevents+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))+type instance Functions WidgetBase = WidgetBaseFuncs++data CWidget parent+type Widget = CWidget WidgetBase+type WidgetFuncs =+  (Draw+  (Destroy+  (Handle+  (Hide+  (Resize+  (ShowWidget+  ()))))))+type instance Functions Widget = WidgetFuncs++MAKE_METHOD(Destroy, destroy)+MAKE_METHOD(Handle, handle)+MAKE_METHOD(GetParent, getParent)+MAKE_METHOD(SetParent, setParent)+MAKE_METHOD(GetType_, getType_)+MAKE_METHOD(SetType, setType)+MAKE_METHOD(DrawLabel, drawLabel)+MAKE_METHOD(GetX, getX)+MAKE_METHOD(GetY, getY)+MAKE_METHOD(GetW, getW)+MAKE_METHOD(GetH, getH)+MAKE_METHOD(GetRectangle, getRectangle)+MAKE_METHOD(SetAlign, setAlign)+MAKE_METHOD(GetAlign, getAlign)+MAKE_METHOD(GetBox, getBox)+MAKE_METHOD(SetBox, setBox)+MAKE_METHOD(GetColor, getColor)+MAKE_METHOD(SetColor, setColor)+MAKE_METHOD(SetColorWithBgSel, setColorWithBgSel)+MAKE_METHOD(GetSelectionColor, getSelectionColor)+MAKE_METHOD(SetSelectionColor, setSelectionColor)+MAKE_METHOD(GetLabel, getLabel)+MAKE_METHOD(CopyLabel, copyLabel)+MAKE_METHOD(SetLabel, setLabel)+MAKE_METHOD(GetLabeltype,getLabeltype)+MAKE_METHOD(SetLabeltype,setLabeltype)+MAKE_METHOD(GetLabelcolor,getLabelcolor)+MAKE_METHOD(SetLabelcolor,setLabelcolor)+MAKE_METHOD(GetLabelfont,getLabelfont)+MAKE_METHOD(SetLabelfont,setLabelfont)+MAKE_METHOD(GetLabelsize,getLabelsize)+MAKE_METHOD(SetLabelsize,setLabelsize)+MAKE_METHOD(GetImage,getImage)+MAKE_METHOD(SetImage,setImage)+MAKE_METHOD(GetDeimage,getDeimage)+MAKE_METHOD(SetDeimage,setDeimage)+MAKE_METHOD(GetTooltip,getTooltip)+MAKE_METHOD(CopyTooltip,copyTooltip)+MAKE_METHOD(SetTooltip,setTooltip)+MAKE_METHOD(GetWhen,getWhen)+MAKE_METHOD(SetWhen,setWhen)+MAKE_METHOD(GetVisible,getVisible)+MAKE_METHOD(GetVisibleR,getVisibleR)+MAKE_METHOD(ShowWidgetSuper,showWidgetSuper)+MAKE_METHOD(ShowWidget,showWidget)+MAKE_METHOD(HideSuper,hideSuper)+MAKE_METHOD(Hide,hide)+MAKE_METHOD(SetVisible,setVisible)+MAKE_METHOD(ClearVisible,clearVisible)+MAKE_METHOD(Active,active)+MAKE_METHOD(ActiveR,activeR)+MAKE_METHOD(Activate,activate)+MAKE_METHOD(Deactivate,deactivate)+MAKE_METHOD(GetOutput,getOutput)+MAKE_METHOD(SetOutput,setOutput)+MAKE_METHOD(ClearOutput,clearOutput)+MAKE_METHOD(Takesevents,takesevents)+MAKE_METHOD(SetChanged,setChanged)+MAKE_METHOD(ClearChanged,clearChanged)+MAKE_METHOD(SetActive,setActive)+MAKE_METHOD(ClearActive,clearActive)+MAKE_METHOD(TakeFocus,takeFocus)+MAKE_METHOD(SetVisibleFocus,setVisibleFocus)+MAKE_METHOD(ClearVisibleFocus,clearVisibleFocus)+MAKE_METHOD(ModifyVisibleFocus,modifyVisibleFocus)+MAKE_METHOD(GetVisibleFocus,getVisibleFocus)+MAKE_METHOD(Contains,contains)+MAKE_METHOD(Inside,inside)+MAKE_METHOD(Redraw,redraw)+MAKE_METHOD(RedrawLabel,redrawLabel)+MAKE_METHOD(GetDamage,getDamage)+MAKE_METHOD(ClearDamageThenSet,clearDamageThenSet)+MAKE_METHOD(ClearDamage,clearDamage)+MAKE_METHOD(SetDamage,setDamage)+MAKE_METHOD(SetDamageInside,setDamageInside)+MAKE_METHOD(MeasureLabel,measureLabel)+MAKE_METHOD(GetWindow,getWindow)+MAKE_METHOD(GetTopWindow,getTopWindow)+MAKE_METHOD(GetTopWindowOffset,getTopWindowOffset)+MAKE_METHOD(ResizeSuper,resizeSuper)+MAKE_METHOD(Resize,resize)+MAKE_METHOD(GetCallback, getCallback)+MAKE_METHOD(SetCallback, setCallback)+MAKE_METHOD(HasCallback,hasCallback)+MAKE_METHOD(DrawBox,drawBox)+MAKE_METHOD(DrawBoxWithBoxtype,drawBoxWithBoxtype)+MAKE_METHOD(DrawBackdrop,drawBackdrop)+MAKE_METHOD(DrawFocus,drawFocus)+MAKE_METHOD(Flags,flags)+MAKE_METHOD(SetFlag, setFlag)+MAKE_METHOD(ClearFlag, clearFlag)++-- * Group+data CGroupBase parent+type GroupBase = CGroupBase WidgetBase+type GroupBaseFuncs =+  (Destroy+  (DrawChild+  (DrawChildren+  (DrawOutsideLabel+  (UpdateChild+  (Begin+  (Handle+  (Resize+  (End+  (Within+  (Find+  (Add+  (Insert+  (RemoveIndex+  (RemoveWidget+  (Clear+  (SetResizable+  (SetNotResizable+  (GetResizable+  (AddResizable+  (InitSizes+  (Children+  (SetClipChildren+  (ClipChildren+  (Focus+  (DdfdesignKludge+  (InsertBefore+  (GetArray+  (GetChild+  ())))))))))))))))))))))))))))))+type instance Functions GroupBase = GroupBaseFuncs++data CGroup parent+type Group = CGroup GroupBase+type GroupFuncs =+  (Handle+  (Resize+  (Destroy+  ())))+type instance Functions Group = GroupFuncs++MAKE_METHOD(DrawChild,drawChild)+MAKE_METHOD(DrawChildren,drawChildren)+MAKE_METHOD(DrawOutsideLabel,drawOutsideLabel)+MAKE_METHOD(UpdateChild,updateChild)+MAKE_METHOD(Begin,begin)+MAKE_METHOD(End,end)+MAKE_METHOD(Within, within)+MAKE_METHOD(Find,find)+MAKE_METHOD(Add,add)+MAKE_METHOD(Insert,insert)+MAKE_METHOD(RemoveIndex,removeIndex)+MAKE_METHOD(RemoveWidget,removeWidget)+MAKE_METHOD(Clear,clear)+MAKE_METHOD(SetResizable,setResizable)+MAKE_METHOD(SetNotResizable,setNotResizable)+MAKE_METHOD(GetResizable,getResizable)+MAKE_METHOD(AddResizable,addResizable)+MAKE_METHOD(InitSizes,initSizes)+MAKE_METHOD(Children,children)+MAKE_METHOD(SetClipChildren,setClipChildren)+MAKE_METHOD(ClipChildren,clipChildren)+MAKE_METHOD(Focus,focus)+MAKE_METHOD(DdfdesignKludge,ddfdesignKludge)+MAKE_METHOD(InsertBefore,insertBefore)+MAKE_METHOD(GetArray,getArray)+MAKE_METHOD(GetChild,getChild)++data CWindowBase parent+type WindowBase = CWindowBase GroupBase+type WindowBaseFuncs =+  (Changed+  (ClearBorder+  (CopyLabel+  (Destroy+  (DrawBackdrop+  (DrawBox+  (DrawBoxWithBoxtype+  (DrawFocus+  (FreePosition+  (FullscreenOff+  (GetBorder+  (GetDecoratedH+  (GetDecoratedW+  (GetIcon+  (GetIconlabel+  (GetLabel+  (GetMenuWindow+  (GetModal+  (GetOverride+  (GetTooltipWindow+  (GetType_+  (GetXRoot+  (GetXclass+  (GetYRoot+  (Handle+  (Hide+  (HotSpot+  (Iconize+  (MakeCurrent+  (MakeFullscreen+  (NonModal+  (Resize+  (SetBorder+  (SetCallback+  (SetCursor+  (SetCursorWithFgBg+  (SetDefaultCursor+  (SetDefaultCursorWithFgBg+  (SetIcon+  (SetIconlabel+  (SetLabel+  (SetLabelWithIconlabel+  (SetMenuWindow+  (SetModal+  (SetNonModal+  (SetOverride+  (SetTooltipWindow+  (SetType+  (SetXclass+  (ShowWidget+  (Shown+  (SizeRange+  (SizeRangeWithArgs+  (WaitForExpose+  (Flush+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))+type instance Functions WindowBase = WindowBaseFuncs++data CWindow parent+type Window = CWindow WindowBase+type WindowFuncs =+  (Flush+  (Handle+  (Hide+  (Resize+  (ShowWidget+  ())))))+type instance Functions Window = WindowFuncs+MAKE_METHOD(DrawSuper,drawSuper)+MAKE_METHOD(HandleSuper,handleSuper)+MAKE_METHOD(FlushSuper,flushSuper)+MAKE_METHOD(Changed,changed)+MAKE_METHOD(MakeFullscreen,makeFullscreen)+MAKE_METHOD(FullscreenOff,fullscreenOff)+MAKE_METHOD(SetBorder,setBorder)+MAKE_METHOD(ClearBorder,clearBorder)+MAKE_METHOD(GetBorder,getBorder)+MAKE_METHOD(SetOverride,setOverride)+MAKE_METHOD(GetOverride,getOverride)+MAKE_METHOD(SetModal,setModal)+MAKE_METHOD(GetModal,getModal)+MAKE_METHOD(SetNonModal,setNonModal)+MAKE_METHOD(NonModal,nonModal)+MAKE_METHOD(SetMenuWindow,setMenuWindow)+MAKE_METHOD(GetMenuWindow,getMenuWindow)+MAKE_METHOD(SetTooltipWindow,setTooltipWindow)+MAKE_METHOD(GetTooltipWindow,getTooltipWindow)+MAKE_METHOD(HotSpot,hotSpot)+MAKE_METHOD(FreePosition,freePosition)+MAKE_METHOD(SizeRange,sizeRange)+MAKE_METHOD(SizeRangeWithArgs,sizeRangeWithArgs)+MAKE_METHOD(GetIconlabel,getIconlabel)+MAKE_METHOD(SetIconlabel,setIconlabel)+MAKE_METHOD(SetLabelWithIconlabel,setLabelWithIconlabel)+MAKE_METHOD(GetXclass,getXclass)+MAKE_METHOD(SetXclass,setXclass)+MAKE_METHOD(GetIcon,getIcon)+MAKE_METHOD(SetIcon,setIcon)+MAKE_METHOD(Shown,shown)+MAKE_METHOD(Iconize,iconize)+MAKE_METHOD(GetXRoot,getXRoot)+MAKE_METHOD(GetYRoot,getYRoot)+MAKE_METHOD(MakeCurrent,makeCurrent)+MAKE_METHOD(SetCursor,setCursor)+MAKE_METHOD(SetCursorWithFgBg,setCursorWithFgBg)+MAKE_METHOD(SetDefaultCursor,setDefaultCursor)+MAKE_METHOD(SetDefaultCursorWithFgBg,setDefaultCursorWithFgBg)+MAKE_METHOD(GetDecoratedW,getDecoratedW)+MAKE_METHOD(GetDecoratedH,getDecoratedH)+MAKE_METHOD(WaitForExpose,waitForExpose)++data CSingleWindowBase parent+type SingleWindowBase = CSingleWindowBase WindowBase+type SingleWindowBaseFuncs =+  (Destroy+  (Hide+  (ShowWidget+  (Handle+  (Resize+  ())))))+type instance Functions SingleWindowBase = SingleWindowBaseFuncs++data CSingleWindow parent+type SingleWindow = CSingleWindow SingleWindowBase+type SingleWindowFuncs =+  (Destroy+  (Hide+  (ShowWidget+  (Handle+  (Resize+  ())))))+type instance Functions SingleWindow = SingleWindowFuncs+++data CDoubleWindowBase parent+type DoubleWindowBase = CDoubleWindowBase WindowBase+type DoubleWindowBaseFuncs =+  (Destroy+  (Flush+  (Handle+  (Hide+  (Resize+  (ShowWidget+  ()))))))+type instance Functions DoubleWindowBase = DoubleWindowBaseFuncs++data CDoubleWindow parent+type DoubleWindow = CDoubleWindow WindowBase+type DoubleWindowFuncs =+  (Destroy+  (Flush+  (Handle+  (Hide+  (Resize+  (ShowWidget+  ()))))))+type instance Functions DoubleWindow = DoubleWindowFuncs++data COverlayWindowBase parent+type OverlayWindowBase = COverlayWindowBase DoubleWindowBase+type OverlayWindowBaseFuncs =+  (CanDoOverlay+  (Destroy+  (Flush+  (Hide+  (RedrawOverlay+  (Resize+  (ShowWidget+  ())))))))+type instance Functions OverlayWindowBase = OverlayWindowBaseFuncs++data COverlayWindow parent+type OverlayWindow = COverlayWindow OverlayWindowBase+type OverlayWindowFuncs =+  (Destroy+  (Flush+  (Hide+  (Resize+  (ShowWidget+  ())))))+type instance Functions OverlayWindow = OverlayWindowFuncs+++MAKE_METHOD(CanDoOverlay,canDoOverlay)+MAKE_METHOD(RedrawOverlay,redrawOverlay)+MAKE_METHOD(Flush,flush)++data CButtonBase parent+type ButtonBase = CButtonBase WidgetBase+type ButtonBaseFuncs =+  (Destroy+  (Handle+  (Resize+  (Hide+  (ShowWidget+  (GetValue+  (SetValue+  (Set+  (Clear+  (Setonly+  (GetShortcut+  (SetShortcut+  (GetDownBox+  (SetDownBox+  (GetDownColor+  (SetDownColor+  (DrawBox+  (DrawBackdrop+  (DrawFocus+  (SetType+  (GetType_+  (DrawBoxWithBoxtype+  ()))))))))))))))))))))))++type instance Functions ButtonBase = ButtonBaseFuncs++data CButton parent+type Button = CButton ButtonBase+type ButtonFuncs =+  (Handle+  (Resize+  (Hide+  (ShowWidget+  ()))))+type instance Functions Button = ButtonFuncs+++MAKE_METHOD(GetValue,getValue)+MAKE_METHOD(SetValue,setValue)+MAKE_METHOD(Set,set)+MAKE_METHOD(Setonly,setonly)+MAKE_METHOD(GetShortcut,getShortcut)+MAKE_METHOD(SetShortcut,setShortcut)+MAKE_METHOD(GetDownBox,getDownBox)+MAKE_METHOD(SetDownBox,setDownBox)+MAKE_METHOD(GetDownColor,getDownColor)+MAKE_METHOD(SetDownColor,setDownColor)++data CLightButtonBase parent+type LightButtonBaseFuncs =+  (Destroy+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))++type LightButtonBase = CLightButtonBase ButtonBase+type instance Functions LightButtonBase = LightButtonBaseFuncs++data CLightButton parent+type LightButtonFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type LightButton = CLightButton LightButtonBase+type instance Functions LightButton = LightButtonFuncs++data CRadioLightButtonBase parent+type RadioLightButtonBase = CRadioLightButtonBase LightButtonBase++type instance Functions RadioLightButtonBase = ()++data CRadioLightButton parent+type RadioLightButton = CRadioLightButton RadioLightButtonBase++type instance Functions RadioLightButton = ()++data CCheckButtonBase parent+type CheckButtonBaseFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Destroy+  (Resize+  ()))))))+type CheckButtonBase = CCheckButtonBase LightButtonBase++type instance Functions CheckButtonBase = CheckButtonBaseFuncs++data CCheckButton parent+type CheckButtonFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))+type CheckButton = CCheckButton CheckButtonBase++type instance Functions CheckButton = CheckButtonFuncs++data CReturnButtonBase parent+type ReturnButtonBase = CReturnButtonBase ButtonBase+type ReturnButtonBaseFuncs =+  (Destroy+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))++type instance Functions ReturnButtonBase = ReturnButtonBaseFuncs++data CReturnButton parent+type ReturnButton = CReturnButton ReturnButtonBase+type ReturnButtonFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions ReturnButton = ReturnButtonFuncs++data CRoundButtonBase parent+type RoundButtonBase = CRoundButtonBase ButtonBase+type RoundButtonBaseFuncs =+  (Destroy+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))++type instance Functions RoundButtonBase = RoundButtonBaseFuncs++data CRoundButton parent+type RoundButton = CRoundButton RoundButtonBase+type RoundButtonFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions RoundButton = RoundButtonFuncs++data CRepeatButtonBase parent+type RepeatButtonBase = CRepeatButtonBase ButtonBase+type RepeatButtonBaseFuncs =+  (Destroy+  (Deactivate+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))++type instance Functions RepeatButtonBase = RepeatButtonBaseFuncs++data CRepeatButton parent+type RepeatButton = CRepeatButton RepeatButtonBase+type RepeatButtonFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions RepeatButton = RepeatButtonFuncs+++data CToggleButtonBase parent+type ToggleButtonBase = CToggleButtonBase ButtonBase+type ToggleButtonBaseFuncs =+  (Destroy+  ())++type instance Functions ToggleButtonBase = ToggleButtonBaseFuncs++data CToggleButton parent+type ToggleButton = CToggleButton ToggleButtonBase+type ToggleButtonFuncs =+  ()+type instance Functions ToggleButton = ToggleButtonFuncs++data CValuatorBase parent+type ValuatorBase = CValuatorBase WidgetBase+type ValuatorBaseFuncs =+  (Destroy+  (Handle+  (Resize+  (Hide+  (Bounds+  (GetMinimum+  (SetMinimum+  (GetMaximum+  (SetMaximum+  (Range+  (SetStep+  (GetStep+  (Precision+  (GetValue+  (SetValue+  (Format+  (Round+  (Clamp+  (Increment+  (SetType+  (GetType_+  ())))))))))))))))))))))++type instance Functions ValuatorBase = ValuatorBaseFuncs++data CValuator parent+type Valuator = CValuator ValuatorBase+type ValuatorFuncs =+  (Handle+  (Resize+  (Hide+  ())))++type instance Functions Valuator = ValuatorFuncs++MAKE_METHOD(Bounds,bounds)+MAKE_METHOD(GetMinimum,getMinimum)+MAKE_METHOD(SetMinimum,setMinimum)+MAKE_METHOD(GetMaximum,getMaximum)+MAKE_METHOD(SetMaximum,setMaximum)+MAKE_METHOD(Range,range)+-- MAKE_METHOD(SetRange,setRange)+MAKE_METHOD(SetStep,setStep)+MAKE_METHOD(GetStep,getStep)+MAKE_METHOD(Precision,precision)+MAKE_METHOD(Format,format)+MAKE_METHOD(Round,round)+MAKE_METHOD(Clamp,clamp)+MAKE_METHOD(Increment,increment)++data CSliderBase parent+type SliderBase = CSliderBase ValuatorBase+type SliderBaseFuncs =+  (Destroy+  (Bounds+  (Scrollvalue+  (SetSliderSize+  (GetSliderSize+  (GetSlider+  (SetSlider+  (SetType+  (GetType_+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))))++type instance Functions SliderBase = SliderBaseFuncs++data CSlider parent+type Slider = CSlider SliderBase+type SliderFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Slider = SliderFuncs++MAKE_METHOD(Scrollvalue,scrollvalue)+MAKE_METHOD(SetSliderSize,setSliderSize)+MAKE_METHOD(GetSliderSize,getSliderSize)+MAKE_METHOD(GetSlider,getSlider)+MAKE_METHOD(SetSlider,setSlider)++data CFillSliderBase parent+type FillSliderBase = CFillSliderBase SliderBase++type instance Functions FillSliderBase = ()++data CFillSlider parent+type FillSlider = CFillSlider SliderBase++type instance Functions FillSlider = ()++data CHorSliderBase parent+type HorSliderBase = CHorSliderBase SliderBase++type instance Functions HorSliderBase = ()++data CHorSlider parent+type HorSlider = CHorSlider HorSliderBase++type instance Functions HorSlider = ()++data CHorFillSliderBase parent+type HorFillSliderBase = CHorFillSliderBase SliderBase++type instance Functions HorFillSliderBase = ()++data CHorFillSlider parent+type HorFillSlider = CHorFillSlider HorFillSliderBase++type instance Functions HorFillSlider = ()++data CNiceSliderBase parent+type NiceSliderBase = CNiceSliderBase SliderBase++type instance Functions NiceSliderBase = ()++data CNiceSlider parent+type NiceSlider = CNiceSlider NiceSliderBase++type instance Functions NiceSlider = ()++data CHorNiceSliderBase parent+type HorNiceSliderBase = CHorNiceSliderBase SliderBase++type instance Functions HorNiceSliderBase = ()++data CHorNiceSlider parent+type HorNiceSlider = CHorNiceSlider HorNiceSliderBase++type instance Functions HorNiceSlider = ()++data CMenuItemBase parent+type MenuItemBase = CMenuItemBase Base+type MenuItemBaseFuncs =+  (Destroy+  (NextWithStep+  (Next+  (GetFirst+  (GetLabel+  (SetLabel+  (SetLabelWithLabeltype+  (GetLabeltype+  (SetLabeltype+  (GetLabelcolor+  (SetLabelcolor+  (GetLabelfont+  (SetLabelfont+  (GetLabelsize+  (SetLabelsize+  (SetCallback+  (GetShortcut+  (SetShortcut+  (Submenu+  (Checkbox+  (Radio+  (GetValue+  (Set+  (Clear+  (Setonly+  (Visible+  (ShowWidget+  (Hide+  (Active+  (Activate+  (Deactivate+  (Activevisible+  (Measure+  (DrawWithT+  (Draw+  (GetFlags+  (SetFlags+  (GetText+  (Pulldown+  (Popup+  (TestShortcut+  (FindShortcut+  (DoCallback+  (Add+  (Insert+  (GetSize+  (GetCallback+  ())))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions MenuItemBase = MenuItemBaseFuncs++data CMenuItem parent+type MenuItem = CMenuItem MenuItemBase+type MenuItemFuncs =+  (Draw+  ())++type instance Functions MenuItem = MenuItemFuncs++MAKE_METHOD(NextWithStep,nextWithStep)+MAKE_METHOD(Next,next)+MAKE_METHOD(GetFirst,getFirst)+MAKE_METHOD(SetLabelWithLabeltype,setLabelWithLabeltype)+MAKE_METHOD(Submenu,submenu)+MAKE_METHOD(Checkbox,checkbox)+MAKE_METHOD(Radio,radio)+MAKE_METHOD(Visible,visible)+MAKE_METHOD(Activevisible,activevisible)+MAKE_METHOD(Measure,measure)+MAKE_METHOD(DrawWithT,drawWithT)+{-# WARNING draw "'draw' is bad." #-}+MAKE_METHOD(Draw,draw)+MAKE_METHOD(GetFlags,getFlags)+MAKE_METHOD(SetFlags,setFlags)+MAKE_METHOD(Pulldown,pulldown)+MAKE_METHOD(Popup,popup)+MAKE_METHOD(TestShortcut,testShortcut)+MAKE_METHOD(FindShortcut,findShortcut)+MAKE_METHOD(DoCallback,doCallback)+MAKE_METHOD(GetSize,getSize)++data CMenuPrimBase parent+type MenuPrimBase = CMenuPrimBase WidgetBase+type MenuPrimBaseFuncs =+  (Destroy+  (Handle+  (Resize+  (Hide+  (ShowWidget+  (ItemPathname+  (ItemPathnameRecent+  (Picked+  (FindIndex+  (TestShortcut+  (Global+  (GetMenu+  (SetMenu+  (Copy+  (Insert+  (Add+  (AddName+  (GetSize+  (SetSize+  (Clear+  (ClearSubmenu+  (Replace+  (Remove+  (SetShortcut+  (SetMode+  (GetMode+  (Mvalue+  (GetValue+  (SetValue+  (GetText+  (GetTextWithIndex+  (GetTextfont+  (SetTextfont+  (GetTextsize+  (SetTextsize+  (GetTextcolor+  (SetTextcolor+  (GetDownBox+  (SetDownBox+  (GetDownColor+  (SetDownColor+  (Setonly+  (AddAndGetMenuItem+  ())))))))))))))))))))))))))))))))))))))))))))++type instance Functions MenuPrimBase = MenuPrimBaseFuncs++data CMenuPrim parent+type MenuPrim = CMenuPrim MenuPrimBase+type MenuPrimFuncs =+  (Handle+  (Resize+  (Hide+  (ShowWidget+  ()))))++type instance Functions MenuPrim = MenuPrimFuncs++MAKE_METHOD(ItemPathname,itemPathname)+MAKE_METHOD(ItemPathnameRecent,itemPathnameRecent)+MAKE_METHOD(Picked,picked)+MAKE_METHOD(FindIndex,findIndex)+MAKE_METHOD(Global,global)+MAKE_METHOD(GetMenu,getMenu)+MAKE_METHOD(SetMenu,setMenu)+MAKE_METHOD(Copy,copy)+MAKE_METHOD(SetSize,setSize)+MAKE_METHOD(ClearSubmenu,clearSubmenu)+MAKE_METHOD(AddName,addName)+MAKE_METHOD(Replace,replace)+MAKE_METHOD(Remove,remove)+MAKE_METHOD(SetMode,setMode)+MAKE_METHOD(GetMode,getMode)+MAKE_METHOD(Mvalue,mvalue)+MAKE_METHOD(GetText,getText)+MAKE_METHOD(GetTextWithIndex,getTextWithIndex)+MAKE_METHOD(GetTextfont,getTextfont)+MAKE_METHOD(SetTextfont,setTextfont)+MAKE_METHOD(GetTextsize,getTextsize)+MAKE_METHOD(SetTextsize,setTextsize)+MAKE_METHOD(GetTextcolor,getTextcolor)+MAKE_METHOD(SetTextcolor,setTextcolor)+MAKE_METHOD(DownBox,downBox)+MAKE_METHOD(AddAndGetMenuItem, addAndGetMenuItem)++data CMenuBarBase parent+type MenuBarBase = CMenuBarBase MenuPrimBase+type MenuBarBaseFuncs =+  (Destroy+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))+type instance Functions MenuBarBase = MenuBarBaseFuncs++data CMenuBar parent+type MenuBar = CMenuBar MenuBarBase+type MenuBarFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))+type instance Functions MenuBar = MenuBarFuncs++data CSysMenuBarBase parent+type SysMenuBarBase = CSysMenuBarBase MenuBarBase+type SysMenuBarBaseFuncs =+  (Destroy+  (SetMenu+  (Insert+  (Remove+  (Replace+  (Clear+  (ClearSubmenu+  (Global+  (SetMode+  (GetMode+  (SetShortcut+  (Add+  (AddName+  (Insert+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))))))))))++type instance Functions SysMenuBarBase = SysMenuBarBaseFuncs++data CSysMenuBar parent+type SysMenuBar = CSysMenuBar SysMenuBarBase+type SysMenuBarFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions SysMenuBar = SysMenuBarFuncs++data CChoiceBase parent+type ChoiceBase = CChoiceBase MenuPrimBase+type ChoiceBaseFuncs =+  (Destroy+  (Handle+  (GetValue+  (SetValue+  (Draw+  (ShowWidget+  (Hide+  (Resize+  ()))))))))++type instance Functions ChoiceBase = ChoiceBaseFuncs++data CChoice parent+type Choice = CChoice ChoiceBase+type ChoiceFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Choice = ChoiceFuncs++data CMenuButtonBase parent+type MenuButtonBase = CMenuButtonBase MenuPrimBase+type MenuButtonBaseFuncs =+  (Destroy+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Popup+  (Resize+  ())))))))++type instance Functions MenuButtonBase = MenuButtonBaseFuncs++data CMenuButton parent+type MenuButton = CMenuButton MenuButtonBase+type MenuButtonFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions MenuButton = MenuButtonFuncs++data CImage parent+type Image = CImage Base+type ImageFuncs =+  (Destroy+  (GetW+  (GetH+  (GetD+  (GetLd+  (GetCount+  (Copy+  (ColorAverage+  (Inactive+  (Desaturate+  (DrawResize+  (Draw+  (Uncache+  (Scale+  (GetDataW+  (GetDataH+  (GetDataSize+  (Fail+  ()))))))))))))))))))++type instance Functions Image = ImageFuncs++MAKE_METHOD(GetD,getD)+MAKE_METHOD(GetLd,getLd)+MAKE_METHOD(GetCount,getCount)+MAKE_METHOD(ColorAverage,colorAverage)+MAKE_METHOD(Inactive,inactive)+MAKE_METHOD(Desaturate,desaturate)+MAKE_METHOD(DrawResize,drawResize)+MAKE_METHOD(Uncache,uncache)+MAKE_METHOD(Fail,fail)+MAKE_METHOD(Scale,scale)+MAKE_METHOD(GetDataW,getDataW)+MAKE_METHOD(GetDataH,getDataH)+MAKE_METHOD(GetDataSize,getDataSize)++data CBitmap parent+type Bitmap = CBitmap Image+type BitmapFuncs =+  (Destroy+ (GetW+ (GetH+ (GetD+ (GetLd+ (GetCount+ (Copy+ (ColorAverage+ (Inactive+ (Desaturate+ (DrawResize+ (Draw+ (Uncache+ ())))))))))))))++type instance Functions Bitmap = BitmapFuncs++data CPixmap parent+type Pixmap = CPixmap Image+type PixmapFuncs =+  (Destroy+  (GetW+  (GetH+  (GetD+  (GetLd+  (GetCount+  (Copy+  (ColorAverage+  (Inactive+  (Desaturate+  (DrawResize+  (Draw+  (Uncache+  ())))))))))))))++type instance Functions Pixmap = PixmapFuncs++data CCopySurface parent+type CopySurface = CCopySurface Base+type CopySurfaceFuncs =+  (Destroy+  (SetCurrent+  (Draw+  ())))++type instance Functions CopySurface = CopySurfaceFuncs++MAKE_METHOD(SetCurrent,setCurrent)++data CImageSurface parent+type ImageSurface = CImageSurface Base+type ImageSurfaceFuncs =+  (Destroy+  (SetCurrent+  (Draw+  (GetOrigin+  (PrintableRect+  (SetOrigin+  (GetOffscreen+  ())))))))++type instance Functions ImageSurface = ImageSurfaceFuncs++MAKE_METHOD(GetOrigin, getOrigin)+MAKE_METHOD(PrintableRect, printableRect)+MAKE_METHOD(SetOrigin, setOrigin)+MAKE_METHOD(GetOffscreenBeforeDelete, getOffscreenBeforeDelete)+MAKE_METHOD(GetOffscreen, getOffscreen)++data CAdjusterBase parent+type AdjusterBase = CAdjusterBase ValuatorBase+type AdjusterBaseFuncs =+  (Destroy+  (SetSoft+  (GetSoft+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))++type instance Functions AdjusterBase = AdjusterBaseFuncs++data CAdjuster parent+type Adjuster = CAdjuster AdjusterBase+type AdjusterFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Adjuster = AdjusterFuncs+++MAKE_METHOD(SetSoft,setSoft)+MAKE_METHOD(GetSoft,getSoft)++data CDialBase parent+type DialBase = CDialBase ValuatorBase+type DialBaseFuncs =+  (Destroy+  (GetAngle1+  (SetAngle1+  (GetAngle2+  (SetAngle2+  (SetAngles+  (SetType+  (GetType_+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))))++type instance Functions DialBase = DialBaseFuncs++data CDial parent+type Dial = CDial DialBase+type DialFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Dial = DialFuncs++MAKE_METHOD(GetAngle1,getAngle1)+MAKE_METHOD(SetAngle1,setAngle1)+MAKE_METHOD(GetAngle2,getAngle2)+MAKE_METHOD(SetAngle2,setAngle2)+MAKE_METHOD(SetAngles,setAngles)++data CFillDial parent+type FillDial = CFillDial DialBase++type instance Functions FillDial = ()++data CLineDial parent+type LineDial = CLineDial DialBase++type instance Functions LineDial = ()++data CRollerBase parent+type RollerBase = CRollerBase ValuatorBase+type RollerBaseFuncs =+  (Destroy+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))++type instance Functions RollerBase = RollerBaseFuncs++data CRoller parent+type Roller = CRoller RollerBase+type RollerFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Roller = RollerFuncs++data CCounterBase parent+type CounterBase = CCounterBase ValuatorBase+type CounterBaseFuncs =+  (Destroy+  (Handle+  (SetLstep+  (SetTextfont+  (GetTextfont+  (SetTextsize+  (GetTextsize+  (SetTextcolor+  (GetTextcolor+  (SetType+  (GetType_+  (Draw+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))))))++type instance Functions CounterBase = CounterBaseFuncs++MAKE_METHOD(SetLstep,setLstep)++data CCounter parent+type Counter = CCounter CounterBase+type CounterFuncs =+  (Handle+  (Draw+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Counter = CounterFuncs++data CScrollbarBase parent+type ScrollbarBase = CScrollbarBase SliderBase+type ScrollbarBaseFuncs =+  (Destroy+  (Scrollvalue+  (SetLinesize+  (GetLinesize+  (SetType+  (GetType_+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))++type instance Functions ScrollbarBase = ScrollbarBaseFuncs++data CScrollbar parent+type Scrollbar = CScrollbar ScrollbarBase+type ScrollbarFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Scrollbar = ScrollbarFuncs++MAKE_METHOD(SetLinesize,setLinesize)+MAKE_METHOD(GetLinesize,getLinesize)++data CValueSliderBase parent+type ValueSliderBase = CValueSliderBase SliderBase+type ValueSliderBaseFuncs =+  (Destroy+  (GetTextfont+  (SetTextfont+  (GetTextsize+  (SetTextsize+  (GetTextcolor+  (SetTextcolor+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))++type instance Functions ValueSliderBase = ValueSliderBaseFuncs++data CValueSlider parent+type ValueSlider = CValueSlider ValueSliderBase+type ValueSliderFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions ValueSlider = ValueSliderFuncs++data CHorValueSlider parent+type HorValueSlider = CHorValueSlider ValueSliderBase++type instance Functions HorValueSlider = ()++data CInputBase parent+type InputBase = CInputBase WidgetBase+type InputBaseFuncs =+  (Destroy+  (SetValue+  (StaticValue+  (GetValue+  (Index+  (SetSize+  (GetMaximumSize+  (GetSize+  (SetMaximumSize+  (GetPosition+  (GetMark+  (SetPosition+  (SetMark+  (Replace+  (Cut+  (CutFromCursor+  (CutRange+  (Insert+  (InsertWithLength+  (Copy+  (Undo+  (CopyCuts+  (GetShortcut+  (SetShortcut+  (GetTextfont+  (SetTextfont+  (GetTextsize+  (SetTextsize+  (GetTextcolor+  (SetTextcolor+  (GetCursorColor+  (SetCursorColor+  (GetInputType+  (SetInputType+  (GetReadonly+  (SetReadonly+  (GetWrap+  (SetWrap+  (GetTabNav+  (SetTabNav+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (DrawText+  (Resize+  ()))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions InputBase = InputBaseFuncs++data CInput parent+type Input = CInput InputBase+type InputFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Input = InputFuncs++MAKE_METHOD(StaticValue,staticValue)+MAKE_METHOD(Index,index)+MAKE_METHOD(GetMaximumSize,getMaximumSize)+MAKE_METHOD(SetMaximumSize,setMaximumSize)+MAKE_METHOD(GetPosition,getPosition)+MAKE_METHOD(GetMark,getMark)+MAKE_METHOD(SetPosition,setPosition)+MAKE_METHOD(SetMark,setMark)+MAKE_METHOD(Cut,cut)+MAKE_METHOD(CutFromCursor,cutFromCursor)+MAKE_METHOD(CutRange,cutRange)+MAKE_METHOD(InsertWithLength,insertWithLength)+MAKE_METHOD(Undo,undo)+MAKE_METHOD(CopyCuts,copyCuts)+MAKE_METHOD(GetCursorColor,getCursorColor)+MAKE_METHOD(SetCursorColor,setCursorColor)+MAKE_METHOD(GetInputType,getInputType)+MAKE_METHOD(SetInputType,setInputType)+MAKE_METHOD(GetReadonly,getReadonly)+MAKE_METHOD(SetReadonly,setReadonly)+MAKE_METHOD(GetWrap,getWrap)+MAKE_METHOD(SetWrap,setWrap)+MAKE_METHOD(GetTabNav,getTabNav)+MAKE_METHOD(SetTabNav,setTabNav)+MAKE_METHOD(DrawText,drawText)++data COutputBase parent+type OutputBase = COutputBase InputBase+type OutputBaseFuncs =+  (SetType+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))++type instance Functions OutputBase = OutputBaseFuncs++data COutput parent+type Output = COutput OutputBase+type OutputFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Output = OutputFuncs++data CValueInputBase parent+type ValueInputBase = CValueInputBase ValuatorBase+type ValueInputBaseFuncs =+  (Destroy+  (GetSoft+  (SetSoft+  (GetShortcut+  (SetShortcut+  (SetTextfont+  (GetTextfont+  (SetTextsize+  (GetTextsize+  (SetTextcolor+  (GetTextcolor+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))))))++type instance Functions ValueInputBase = ValueInputBaseFuncs++data CValueInput parent+type ValueInput = CValueInput ValueInputBase+type ValueInputFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions ValueInput = ValueInputFuncs++data CValueOutputBase parent+type ValueOutputBase = CValueOutputBase ValuatorBase+type ValueOutputBaseFuncs =+  (Destroy+  (GetSoft+  (SetSoft+  (SetTextfont+  (GetTextfont+  (SetTextsize+  (GetTextsize+  (SetTextcolor+  (GetTextcolor+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))))++type instance Functions ValueOutputBase = ValueOutputBaseFuncs++data CValueOutput parent+type ValueOutput = CValueOutput ValueOutputBase+type ValueOutputFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions ValueOutput = ValueOutputFuncs++data CProgressBase parent+type ProgressBase = CProgressBase WidgetBase+type ProgressBaseFuncs =+  (Destroy+  (SetMaximum+  (GetMaximum+  (SetMinimum+  (GetMinimum+  (SetValue+  (GetValue+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))++type instance Functions ProgressBase = ProgressBaseFuncs++data CProgress parent+type Progress = CProgress ProgressBase+type ProgressFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Progress = ProgressFuncs++data CPositionerBase parent+type PositionerBase = CPositionerBase WidgetBase+type PositionerBaseFuncs =+  (Destroy+  (SetXvalue+  (GetXvalue+  (SetYvalue+  (GetYvalue+  (SetXminimum+  (GetXminimum+  (SetYminimum+  (GetYminimum+  (SetXmaximum+  (GetXmaximum+  (SetYmaximum+  (GetYmaximum+  (SetXbounds+  (SetYbounds+  (SetXstep+  (SetYstep+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))))))))))))++type instance Functions PositionerBase = PositionerBaseFuncs++data CPositioner parent+type Positioner = CPositioner PositionerBase+type PositionerFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Positioner = PositionerFuncs++MAKE_METHOD(SetXvalue,setXvalue)+MAKE_METHOD(GetXvalue,getXvalue)+MAKE_METHOD(SetYvalue,setYvalue)+MAKE_METHOD(GetYvalue,getYvalue)+MAKE_METHOD(SetXminimum,setXminimum)+MAKE_METHOD(GetXminimum,getXminimum)+MAKE_METHOD(SetYminimum,setYminimum)+MAKE_METHOD(GetYminimum,getYminimum)+MAKE_METHOD(SetXmaximum,setXmaximum)+MAKE_METHOD(GetXmaximum,getXmaximum)+MAKE_METHOD(SetYmaximum,setYmaximum)+MAKE_METHOD(GetYmaximum,getYmaximum)+MAKE_METHOD(SetXbounds,setXbounds)+MAKE_METHOD(SetYbounds,setYbounds)+MAKE_METHOD(SetXstep,setXstep)+MAKE_METHOD(SetYstep,setYstep)++data CWizardBase parent+type WizardBase = CWizardBase GroupBase+type WizardBaseFuncs =+  (Destroy+  (Next+  (Prev+  (SetValue+  (GetValue+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))++type instance Functions WizardBase = WizardBaseFuncs++data CWizard parent+type Wizard = CWizard WizardBase+type WizardFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Wizard = WizardFuncs++MAKE_METHOD(Prev,prev)++data CTableBase parent+type TableBase = CTableBase GroupBase+type TableBaseFuncs =+  (Destroy+  (SetTableBox+  (GetTableBox+  (SetRows+  (GetRows+  (SetCols+  (GetCols+  (GetVisibleCells+  (IsInteractiveResize+  (GetRowResize+  (SetRowResize+  (GetColResize+  (SetColResize+  (GetColResizeMin+  (SetColResizeMin+  (GetRowResizeMin+  (SetRowResizeMin+  (GetRowHeader+  (SetRowHeader+  (GetColHeader+  (SetColHeader+  (SetColHeaderHeight+  (GetColHeaderHeight+  (SetRowHeaderWidth+  (GetRowHeaderWidth+  (SetRowHeaderColor+  (GetRowHeaderColor+  (SetColHeaderColor+  (GetColHeaderColor+  (SetRowHeight+  (GetRowHeight+  (SetColWidth+  (GetColWidth+  (SetRowHeightAll+  (SetColWidthAll+  (SetRowPosition+  (SetColPosition+  (GetRowPosition+  (GetColPosition+  (SetTopRow+  (GetTopRow+  (IsSelected+  (GetSelection+  (SetSelection+  (MoveCursor+  (InitSizes+  (Add+  (Insert+  (InsertBefore+  (Begin+  (End+  (GetArray+  (GetChild+  (Children+  (Find+  (CallbackRow+  (CallbackCol+  (CallbackContext+  (DoCallback+  (FindCell+  (Draw+  (Handle+  (Resize+  (Clear+  (ShowWidget+  (Hide+  (GetTabCellNav+  (SetTabCellNav+  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions TableBase = TableBaseFuncs++data CTable parent+type Table = CTable TableBase+type TableFuncs =+  (SetRows+  (SetCols+  (Draw+  (Handle+  (Resize+  (Clear+  (ShowWidget+  (Hide+  ()))))))))++type instance Functions Table = TableFuncs+MAKE_METHOD(SetTableBox,setTableBox)+MAKE_METHOD(GetTableBox,getTableBox)+MAKE_METHOD(SetRows,setRows)+MAKE_METHOD(GetRows,getRows)+MAKE_METHOD(SetCols,setCols)+MAKE_METHOD(GetCols,getCols)+MAKE_METHOD(GetVisibleCells,getVisibleCells)+MAKE_METHOD(IsInteractiveResize,isInteractiveResize)+MAKE_METHOD(GetRowResize,getRowResize)+MAKE_METHOD(SetRowResize,setRowResize)+MAKE_METHOD(GetColResize,getColResize)+MAKE_METHOD(SetColResize,setColResize)+MAKE_METHOD(GetColResizeMin,getColResizeMin)+MAKE_METHOD(SetColResizeMin,setColResizeMin)+MAKE_METHOD(GetRowResizeMin,getRowResizeMin)+MAKE_METHOD(SetRowResizeMin,setRowResizeMin)+MAKE_METHOD(GetRowHeader,getRowHeader)+MAKE_METHOD(SetRowHeader,setRowHeader)+MAKE_METHOD(GetColHeader,getColHeader)+MAKE_METHOD(SetColHeader,setColHeader)+MAKE_METHOD(SetColHeaderHeight,setColHeaderHeight)+MAKE_METHOD(GetColHeaderHeight,getColHeaderHeight)+MAKE_METHOD(SetRowHeaderWidth,setRowHeaderWidth)+MAKE_METHOD(GetRowHeaderWidth,getRowHeaderWidth)+MAKE_METHOD(SetRowHeaderColor,setRowHeaderColor)+MAKE_METHOD(GetRowHeaderColor,getRowHeaderColor)+MAKE_METHOD(SetColHeaderColor,setColHeaderColor)+MAKE_METHOD(GetColHeaderColor,getColHeaderColor)+MAKE_METHOD(SetRowHeight,setRowHeight)+MAKE_METHOD(GetRowHeight,getRowHeight)+MAKE_METHOD(SetColWidth,setColWidth)+MAKE_METHOD(GetColWidth,getColWidth)+MAKE_METHOD(SetRowHeightAll,setRowHeightAll)+MAKE_METHOD(SetColWidthAll,setColWidthAll)+MAKE_METHOD(SetRowPosition,setRowPosition)+MAKE_METHOD(SetColPosition,setColPosition)+MAKE_METHOD(GetRowPosition,getRowPosition)+MAKE_METHOD(GetColPosition,getColPosition)+MAKE_METHOD(SetTopRow,setTopRow)+MAKE_METHOD(GetTopRow,getTopRow)+MAKE_METHOD(IsSelected,isSelected)+MAKE_METHOD(GetSelection,getSelection)+MAKE_METHOD(SetSelection,setSelection)+MAKE_METHOD(MoveCursor,moveCursor)+MAKE_METHOD(CallbackRow,callbackRow)+MAKE_METHOD(CallbackCol,callbackCol)+MAKE_METHOD(CallbackContext,callbackContext)+MAKE_METHOD(FindCell,findCell)+MAKE_METHOD(ClearSuper,clearSuper)+MAKE_METHOD(SetRowsSuper,setRowsSuper)+MAKE_METHOD(SetColsSuper,setColsSuper)+MAKE_METHOD(SetTabCellNav, setTabCellNav)+MAKE_METHOD(GetTabCellNav, getTabCellNav)++data CTableRowBase parent+type TableRowBase = CTableRowBase TableBase+type TableRowBaseFuncs =+  (Destroy+  (GetRows+  (SetType+  (GetType_+  (SetRows+  (SetCols+  (Clear+  (Handle+  (Resize+  (GetRowSelected+  (SelectAllRows+  (Draw+  (Hide+  (ShowWidget+  ()))))))))))))))++type instance Functions TableRowBase = TableRowBaseFuncs++data CTableRow parent+type TableRow = CTableRow TableRowBase+type TableRowFuncs =+  (Clear+  (SetRows+  (SetCols+  (Handle+  (Resize+  (Draw+  (Hide+  (ShowWidget+  ()))))))))++type instance Functions TableRow = TableRowFuncs++MAKE_METHOD(GetRowSelected,getRowSelected)+MAKE_METHOD(SelectAllRows,selectAllRows)++data CGlWindowBase parent+type GlWindowBase = CGlWindowBase WindowBase+type GlWindowBaseFuncs =+  (CanDo+  (CanDoOverlay+  (Destroy+  (Flush+  (GetContext+  (GetContextValid+  (GetMode+  (GetValid+  (Handle+  (Hide+  (HideOverlay+  (Invalidate+  (MakeOverlayCurrent+  (Ortho+  (PixelH+  (PixelW+  (PixelsPerUnit+  (RedrawOverlay+  (Resize+  (SetContext+  (SetContextValid+  (SetContextWithDestroyFlag+  (SetMode+  (SetValid+  (ShowWidget+  (SwapBuffers+  ()))))))))))))))))))))))))))++type instance Functions GlWindowBase = GlWindowBaseFuncs++data CGlWindow parent+type GlWindow = CGlWindow GlWindowBase+type GlWindowFuncs =+  (Destroy+  (Flush+  (Handle+  (Hide+  (Resize+  (ShowWidget+  ()))))))++type instance Functions GlWindow = GlWindowFuncs++MAKE_METHOD(GetValid,getValid)+MAKE_METHOD(SetValid,setValid)+MAKE_METHOD(Invalidate,invalidate)+MAKE_METHOD(GetContextValid,getContextValid)+MAKE_METHOD(SetContextValid,setContextValid)+MAKE_METHOD(CanDo,canDo)+MAKE_METHOD(GetContext,getContext)+MAKE_METHOD(SetContext,setContext)+MAKE_METHOD(SetContextWithDestroyFlag,setContextWithDestroyFlag)+MAKE_METHOD(SwapBuffers,swapBuffers)+MAKE_METHOD(Ortho,ortho)+MAKE_METHOD(HideOverlay,hideOverlay)+MAKE_METHOD(MakeOverlayCurrent,makeOverlayCurrent)+MAKE_METHOD(PixelsPerUnit,pixelsPerUnit)+MAKE_METHOD(PixelH,pixelH)+MAKE_METHOD(PixelW,pixelW)++data CBox parent+type Box = CBox WidgetBase++type instance Functions Box = ()++data CBrowserBase parent+type BrowserBase = CBrowserBase GroupBase+type BrowserBaseFuncs =+  (Add+  (Clear+  (Deselect+  (DeselectAndCallback+  (Destroy+  (Displayed+  (Draw+  (GetColumnChar+  (GetColumnWidths+  (GetFormatChar+  (GetHasScrollbar+  (GetHposition+  (GetIcon+  (GetPosition+  (GetScrollbarSize+  (GetScrollbarWidth+  (GetSize+  (GetText+  (GetTextcolor+  (GetTextfont+  (GetTextsize+  (GetTopline+  (GetType_+  (GetValue+  (Handle+  (Hide+  (HideLine+  (Insert+  (Lineposition+  (Load+  (MakeVisible+  (Move+  (Remove+  (RemoveIcon+  (Select+  (Selected+  (SetBottomline+  (SetColumnChar+  (SetColumnWidths+  (SetFormatChar+  (SetHasScrollbar+  (SetHposition+  (SetIcon+  (SetMiddleline+  (SetPosition+  (SetScrollbarColor+  (SetScrollbarSelectionColor+  (SetScrollbarSize+  (SetScrollbarWidth+  (SetSize+  (SetText+  (SetTextcolor+  (SetTextfont+  (SetTextsize+  (SetTopline+  (SetType+  (SetValue+  (ShowWidget+  (ShowWidgetLine+  (Sort+  (SortWithSortType+  (Swap+  (Visible+  (Resize+  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions BrowserBase = BrowserBaseFuncs++data CBrowser parent+type Browser = CBrowser BrowserBase+type BrowserFuncs =+  (Handle+  (Resize+  (ShowWidget+  (Hide+  (Draw+  ())))))++type instance Functions Browser = BrowserFuncs++MAKE_METHOD(Move,move)+MAKE_METHOD(Load,load)+MAKE_METHOD(Swap,swap)+MAKE_METHOD(GetTopline,getTopline)+MAKE_METHOD(Lineposition,lineposition)+MAKE_METHOD(SetTopline,setTopline)+MAKE_METHOD(SetBottomline,setBottomline)+MAKE_METHOD(SetMiddleline,setMiddleline)+MAKE_METHOD(Select,select)+MAKE_METHOD(Selected,selected)+MAKE_METHOD(ShowWidgetLine,showWidgetLine)+MAKE_METHOD(HideLine,hideLine)+MAKE_METHOD(SetText,setText)+MAKE_METHOD(GetFormatChar,getFormatChar)+MAKE_METHOD(SetFormatChar,setFormatChar)+MAKE_METHOD(GetColumnChar,getColumnChar)+MAKE_METHOD(SetColumnChar,setColumnChar)+MAKE_METHOD(GetColumnWidths,getColumnWidths)+MAKE_METHOD(SetColumnWidths,setColumnWidths)+MAKE_METHOD(Displayed,displayed)+MAKE_METHOD(MakeVisible,makeVisible)+MAKE_METHOD(RemoveIcon,removeIcon)+MAKE_METHOD(SelectOnly,selectOnly)+MAKE_METHOD(SelectOnlyAndCallback,selectOnlyAndCallback)+MAKE_METHOD(Deselect,deselect)+MAKE_METHOD(DeselectAndCallback,deselectAndCallback)+MAKE_METHOD(GetHposition,getHposition)+MAKE_METHOD(SetHposition,setHposition)+MAKE_METHOD(GetHasScrollbar,getHasScrollbar)+MAKE_METHOD(SetHasScrollbar,setHasScrollbar)+MAKE_METHOD(GetScrollbarSize,getScrollbarSize)+MAKE_METHOD(SetScrollbarSize,setScrollbarSize)+MAKE_METHOD(GetScrollbarWidth,getScrollbarWidth)+MAKE_METHOD(SetScrollbarWidth,setScrollbarWidth)+MAKE_METHOD(SetScrollbarColor,setScrollbarColor)+MAKE_METHOD(SetScrollbarSelectionColor,setScrollbarSelectionColor)+MAKE_METHOD(SortWithSortType,sortWithSortType)+MAKE_METHOD(Sort,sort)++data CSelectBrowser parent+type SelectBrowser = CSelectBrowser BrowserBase++type instance Functions SelectBrowser = ()++data CIntInput parent+type IntInput = CIntInput InputBase++type instance Functions IntInput = ()++data CClockBase parent+type ClockBase = CClockBase WidgetBase+type ClockBaseFuncs =+  (Handle+  (GetValue+  (GetValueSinceEpoch+  (SetValue+  (SetType+  (GetType_+  (Draw+  (ShowWidget+  (Hide+  (SetShadow+  (GetShadow+  (Resize+  ()))))))))))))++type instance Functions ClockBase = ClockBaseFuncs+data CClock parent+type Clock = CClock ClockBase+type ClockFuncs =+  (Handle+  (Draw+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Clock = ClockFuncs+MAKE_METHOD(GetValueSinceEpoch,getValueSinceEpoch)+MAKE_METHOD(GetShadow,getShadow)+MAKE_METHOD(SetShadow,setShadow)++data CTreePrefs parent+type TreePrefs = CTreePrefs Base+type TreePrefsFuncs =+  (GetItemLabelfont+  (SetItemLabelfont+  (GetItemLabelsize+  (SetItemLabelsize+  (SetItemLabelfgcolor+  (GetItemLabelbgcolor+  (SetItemLabelbgcolor+  (GetLabelfont+  (SetLabelfont+  (GetLabelsize+  (SetLabelsize+  (GetLabelfgcolor+  (SetLabelfgcolor+  (GetLabelbgcolor+  (SetLabelbgcolor+  (GetMarginleft+  (SetMarginleft+  (GetMargintop+  (SetMargintop+  (GetOpenchildMarginbottom+  (SetOpenchildMarginbottom+  (GetUsericonmarginleft+  (SetUsericonmarginleft+  (GetLabelmarginleft+  (SetLabelmarginleft+  (GetLinespacing+  (SetLinespacing+  (GetConnectorcolor+  (SetConnectorcolor+  (GetConnectorstyle+  (SetConnectorstyle+  (GetConnectorwidth+  (SetConnectorwidth+  (GetOpenicon+  (SetOpenicon+  (GetCloseicon+  (SetCloseicon+  (GetUsericon+  (SetUsericon+  (GetShowcollapse+  (SetShowcollapse+  (GetSortorder+  (SetSortorder+  (GetSelectbox+  (SetSelectbox+  (GetShowroot+  (SetShowroot+  (GetSelectmode+  (SetSelectmode+  (GetMarginbottom+  (SetMarginbottom+  (GetWidgetmarginleft+  (SetWidgetmarginleft+  (GetItemReselectMode+  (SetItemReselectMode+  (GetItemDrawMode+  (SetItemDrawMode+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions TreePrefs = TreePrefsFuncs++MAKE_METHOD(GetItemLabelfont,getItemLabelfont)+MAKE_METHOD(GetItemLabelsize,getItemLabelsize)+MAKE_METHOD(SetItemLabelsize,setItemLabelsize)+MAKE_METHOD(SetItemLabelfgcolor,setItemLabelfgcolor)+MAKE_METHOD(GetItemLabelbgcolor,getItemLabelbgcolor)+MAKE_METHOD(SetItemLabelbgcolor,setItemLabelbgcolor)+MAKE_METHOD(GetLabelfgcolor,getLabelfgcolor)+MAKE_METHOD(SetLabelfgcolor,setLabelfgcolor)+MAKE_METHOD(GetLabelbgcolor,getLabelbgcolor)+MAKE_METHOD(SetLabelbgcolor,setLabelbgcolor)+MAKE_METHOD(GetMarginleft,getMarginleft)+MAKE_METHOD(SetMarginleft,setMarginleft)+MAKE_METHOD(GetMargintop,getMargintop)+MAKE_METHOD(SetMargintop,setMargintop)+MAKE_METHOD(GetOpenchildMarginbottom,getOpenchildMarginbottom)+MAKE_METHOD(SetOpenchildMarginbottom,setOpenchildMarginbottom)+MAKE_METHOD(GetUsericonmarginleft,getUsericonmarginleft)+MAKE_METHOD(SetUsericonmarginleft,setUsericonmarginleft)+MAKE_METHOD(GetLabelmarginleft,getLabelmarginleft)+MAKE_METHOD(SetLabelmarginleft,setLabelmarginleft)+MAKE_METHOD(GetLinespacing,getLinespacing)+MAKE_METHOD(SetLinespacing,setLinespacing)+MAKE_METHOD(GetConnectorcolor,getConnectorcolor)+MAKE_METHOD(SetConnectorcolor,setConnectorcolor)+MAKE_METHOD(GetConnectorstyle,getConnectorstyle)+MAKE_METHOD(SetConnectorstyle,setConnectorstyle)+MAKE_METHOD(GetConnectorwidth,getConnectorwidth)+MAKE_METHOD(SetConnectorwidth,setConnectorwidth)+MAKE_METHOD(GetOpenicon,getOpenicon)+MAKE_METHOD(SetOpenicon,setOpenicon)+MAKE_METHOD(GetCloseicon,getCloseicon)+MAKE_METHOD(SetCloseicon,setCloseicon)+MAKE_METHOD(GetUsericon,getUsericon)+MAKE_METHOD(SetUsericon,setUsericon)+MAKE_METHOD(GetShowcollapse,getShowcollapse)+MAKE_METHOD(SetShowcollapse,setShowcollapse)+MAKE_METHOD(GetSortorder,getSortorder)+MAKE_METHOD(SetSortorder,setSortorder)+MAKE_METHOD(GetSelectbox,getSelectbox)+MAKE_METHOD(SetSelectbox,setSelectbox)+MAKE_METHOD(GetShowroot,getShowroot)+MAKE_METHOD(SetShowroot,setShowroot)+MAKE_METHOD(GetSelectmode,getSelectmode)+MAKE_METHOD(SetSelectmode,setSelectmode)++data CTreeItem parent+type TreeItem = CTreeItem Base+type TreeItemFuncs =+  (Destroy+  (GetX+  (GetY+  (GetW+  (GetH+  (GetX+  (ShowSelf+  (SetLabel+  (GetLabel+  (SetLabelfont+  (GetLabelfont+  (SetLabelsize+  (GetLabelsize+  (SetLabelcolor+  (GetLabelcolor+  (GetLabelfgcolor+  (SetLabelfgcolor+  (SetLabelbgcolor+  (GetLabelbgcolor+  (SetWidget+  (GetWidget+  (Children+  (Child+  (HasChildren+  (FindChild+  (RemoveChild+  (RemoveChild+  (ClearChildren+  (SwapChildren+  (SwapChildrenByTreeItem+  (FindInChildren+  (FindItem+  (Add+  (AddAt+  (Insert+  (InsertAbove+  (Deparent+  (Reparent+  (Move+  (MoveTo+  (GetDepth+  (Prev+  (Next+  (NextSibling+  (PrevSibling+  (UpdatePrevNext+  (NextDisplayed+  (PrevDisplayed+  (GetParent+  (SetParent+  (Open+  (Close+  (IsOpen+  (IsClose+  (OpenToggle+  (Select+  (SelectSet+  (SelectToggle+  (SelectAll+  (Deselect+  (DeselectAll+  (IsSelected+  (Activate+  (ActivateWith+  (IsActive+  (Visible+  (IsVisible+  (VisibleR+  (SetUsericon+  (GetUsericon+  (FindClicked+  (EventOnCollapseIcon+  (EventOnLabel+  (IsRoot+  (LabelX+  (LabelY+  (LabelW+  (LabelH+  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))+++type instance Functions TreeItem = TreeItemFuncs++MAKE_METHOD(ShowSelf,showSelf)+MAKE_METHOD(SetWidget,setWidget)+MAKE_METHOD(GetWidget,getWidget)+MAKE_METHOD(Child,child)+MAKE_METHOD(HasChildren,hasChildren)+MAKE_METHOD(FindChild,findChild)+MAKE_METHOD(RemoveChild,removeChild)+MAKE_METHOD(ClearChildren,clearChildren)+MAKE_METHOD(SwapChildren,swapChildren)+MAKE_METHOD(SwapChildrenByTreeItem,swapChildrenByTreeItem)+MAKE_METHOD(FindInChildren,findInChildren)+MAKE_METHOD(FindItem,findItem)+MAKE_METHOD(AddAt,addAt)+MAKE_METHOD(InsertAbove,insertAbove)+MAKE_METHOD(Deparent,deparent)+MAKE_METHOD(Reparent,reparent)+MAKE_METHOD(MoveTo,moveTo)+MAKE_METHOD(GetDepth,getDepth)+MAKE_METHOD(NextSibling,nextSibling)+MAKE_METHOD(PrevSibling,prevSibling)+MAKE_METHOD(UpdatePrevNext,updatePrevNext)+MAKE_METHOD(NextDisplayed,nextDisplayed)+MAKE_METHOD(PrevDisplayed,prevDisplayed)+MAKE_METHOD(Open,open)+MAKE_METHOD(Close,close)+MAKE_METHOD(IsOpen,isOpen)+MAKE_METHOD(IsClose,isClose)+MAKE_METHOD(OpenToggle,openToggle)+MAKE_METHOD(SelectSet,selectSet)+MAKE_METHOD(SelectToggle,selectToggle)+MAKE_METHOD(SelectAll,selectAll)+MAKE_METHOD(DeselectAll,deselectAll)+MAKE_METHOD(ActivateWith,activateWith)+MAKE_METHOD(IsActive,isActive)+MAKE_METHOD(IsVisible,isVisible)+MAKE_METHOD(VisibleR,visibleR)+MAKE_METHOD(FindClicked,findClicked)+MAKE_METHOD(EventOnCollapseIcon,eventOnCollapseIcon)+MAKE_METHOD(EventOnLabel,eventOnLabel)+MAKE_METHOD(IsRoot,isRoot)+MAKE_METHOD(LabelX,labelX)+MAKE_METHOD(LabelY,labelY)+MAKE_METHOD(LabelW,labelW)+MAKE_METHOD(LabelH,labelH)++data CTreeBase parent+type TreeBase = CTreeBase GroupBase+type TreeBaseFuncs =+  (Destroy+  (ShowSelf+  (RootLabel+  (Root+  (Add+  (AddAt+  (InsertAbove+  (Insert+  (Remove+  (Clear+  (ClearChildren+  (FindItem+  (ItemPathname+  (ItemClicked+  (GetFirst+  (FirstVisible+  (Next+  (NextItem+  (NextAfterItem+  (Prev+  (PrevBeforeItem+  (GetLast+  (LastVisible+  (FirstSelectedItem+  (LastSelectedItem+  (NextSelectedItem+  (NextSelectedItemAfterItem+  (Open+  (OpenAndCallback+  (OpenToggle+  (OpenToggleAndCallback+  (Close+  (CloseAndCallback+  (IsOpen+  (IsClose+  (Select+  (SelectAndCallback+  (SelectToggle+  (SelectToggleAndCallback+  (Deselect+  (DeselectAndCallback+  (SelectOnly+  (SelectOnlyAndCallback+  (SelectAll+  (SelectAllAndCallback+  (DeselectAll+  (DeselectAllAndCallback+  (SetItemFocus+  (GetItemFocus+  (IsSelected+  (GetItemLabelfont+  (SetItemLabelfont+  (GetItemLabelsize+  (SetItemLabelsize+  (GetItemLabelfgcolor+  (SetItemLabelfgcolor+  (GetItemLabelbgcolor+  (SetItemLabelbgcolor+  (GetConnectorcolor+  (SetConnectorcolor+  (GetMarginleft+  (SetMarginleft+  (GetMargintop+  (SetMargintop+  (GetLinespacing+  (SetLinespacing+  (GetOpenchildMarginbottom+  (SetOpenchildMarginbottom+  (GetUsericonmarginleft+  (SetUsericonmarginleft+  (GetLabelmarginleft+  (SetLabelmarginleft+  (GetConnectorwidth+  (SetConnectorwidth+  (GetUsericon+  (SetUsericon+  (GetOpenicon+  (SetOpenicon+  (GetCloseicon+  (SetCloseicon+  (GetShowcollapse+  (SetShowcollapse+  (GetShowroot+  (SetShowroot+  (GetConnectorstyle+  (SetConnectorstyle+  (GetSortorder+  (SetSortorder+  (GetSelectbox+  (SetSelectbox+  (Selectmode+  (SetSelectmode+  (Displayed+  (ShowItemWithYoff+  (ShowItemTop+  (ShowItemMiddle+  (ShowItemBottom+  (Display+  (GetVposition+  (SetVposition+  (IsScrollbar+  (GetScrollbarSize+  (SetScrollbarSize+  (IsVscrollVisible+  (SetCallbackItem+  (GetCallbackItem+  (SetCallbackReason+  (GetCallbackReason+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (RecalcTree+  (GetMarginbottom+  (SetMarginbottom+  (GetWidgetmarginleft+  (SetWidgetmarginleft+  (GetItemReselectMode+  (SetItemReselectMode+  (Resize+  (GetItemDrawMode+  (SetItemDrawMode+  ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions TreeBase = TreeBaseFuncs++data CTree parent+type Tree = CTree TreeBase+type TreeFuncs =+ (Draw+ (Handle+ (ShowWidget+ (Hide+ (Resize+ ())))))+++type instance Functions Tree = TreeFuncs++MAKE_METHOD(RootLabel,rootLabel)+MAKE_METHOD(Root,root)+MAKE_METHOD(ItemClicked,itemClicked)+MAKE_METHOD(FirstVisible,firstVisible)+MAKE_METHOD(NextAfterItem,nextAfterItem)+MAKE_METHOD(NextItem,nextItem)+MAKE_METHOD(PrevBeforeItem,prevBeforeItem)+MAKE_METHOD(GetLast,getLast)+MAKE_METHOD(LastVisible,lastVisible)+MAKE_METHOD(FirstSelectedItem,firstSelectedItem)+MAKE_METHOD(LastSelectedItem,lastSelectedItem)+MAKE_METHOD(NextSelectedItem,nextSelectedItem)+MAKE_METHOD(NextSelectedItemAfterItem,nextSelectedItemAfterItem)+MAKE_METHOD(OpenAndCallback,openAndCallback)+MAKE_METHOD(OpenToggleAndCallback,openToggleAndCallback)+MAKE_METHOD(TreeMenuItemLocator,treeMenuItemLocator)+MAKE_METHOD(CloseAndCallback,closeAndCallback)+MAKE_METHOD(SelectAndCallback,selectAndCallback)+MAKE_METHOD(SelectToggleAndCallback,selectToggleAndCallback)+MAKE_METHOD(SelectAllAndCallback,selectAllAndCallback)+MAKE_METHOD(DeselectAllAndCallback,deselectAllAndCallback)+MAKE_METHOD(SetItemFocus,setItemFocus)+MAKE_METHOD(GetItemFocus,getItemFocus)+MAKE_METHOD(IsSelectedWithItem,isSelectedWithItem)+MAKE_METHOD(SetItemLabelfont,setItemLabelfont)+MAKE_METHOD(GetItemLabelfgcolor,getItemLabelfgcolor)+MAKE_METHOD(Selectmode,selectmode)+MAKE_METHOD(ShowItemWithYoff,showItemWithYoff)+MAKE_METHOD(ShowItemTop,showItemTop)+MAKE_METHOD(ShowItemMiddle,showItemMiddle)+MAKE_METHOD(ShowItemBottom,showItemBottom)+MAKE_METHOD(Display,display)+MAKE_METHOD(GetVposition,getVposition)+MAKE_METHOD(SetVposition,setVposition)+MAKE_METHOD(IsScrollbar,isScrollbar)+MAKE_METHOD(IsVscrollVisible,isVscrollVisible)+MAKE_METHOD(SetCallbackItem,setCallbackItem)+MAKE_METHOD(GetCallbackItem,getCallbackItem)+MAKE_METHOD(SetCallbackReason,setCallbackReason)+MAKE_METHOD(GetCallbackReason,getCallbackReason)+MAKE_METHOD(RecalcTree, recalcTree)+MAKE_METHOD(SetMarginbottom,setMarginbottom)+MAKE_METHOD(GetMarginbottom,getMarginbottom)+MAKE_METHOD(SetWidgetmarginleft,setWidgetmarginleft)+MAKE_METHOD(GetWidgetmarginleft,getWidgetmarginleft)+MAKE_METHOD(SetItemReselectMode,setItemReselectMode)+MAKE_METHOD(GetItemReselectMode,getItemReselectMode)+MAKE_METHOD(SetItemDrawMode,setItemDrawMode)+MAKE_METHOD(GetItemDrawMode,getItemDrawMode)++data CTextSelection parent+type TextSelection = CTextSelection Base+type TextSelectionFuncs =+  (Set+  (Update+  (Start+  (End+  (Selected+  (SetSelected+  (Includes+  (GetPosition+  ()))))))))++type instance Functions TextSelection = TextSelectionFuncs+MAKE_METHOD(Update,update)+MAKE_METHOD(Start,start)+MAKE_METHOD(SetSelected,setSelected)+MAKE_METHOD(Includes,includes)++data CTextBuffer parent+type TextBuffer = CTextBuffer Base+type TextBufferFuncs =+  (Destroy+  (InputFileWasTranscoded+  (FileEncodingWarningMessage+  (GetLength+  (GetText+  (SetText+  (TextRange+  (CharAt+  (ByteAt+  (Insert+  (AppendToBuffer+  (Remove+  (Replace+  (Copy+  (Undo+  (CanUndo+  (Insertfile+  (InsertfileWithBuflen+  (Appendfile+  (AppendfileWithBuflen+  (Loadfile+  (LoadfileWithBuflen+  (Outputfile+  (OutputfileWithBuflen+  (Savefile+  (SavefileWithBuflen+  (GetTabDistance+  (SetTabDistance+  (Select+  (Selected+  (Unselect+  (SelectionPosition+  (SelectionText+  (RemoveSelection+  (ReplaceSelection+  (SecondarySelect+  (SecondarySelected+  (SecondaryUnselect+  (SecondarySelectionPosition+  (SecondarySelectionText+  (RemoveSecondarySelection+  (ReplaceSecondarySelection+  (SetHighlight+  (GetHighlight+  (Unhighlight+  (HighlightPosition+  (HighlightText+  (AddModifyCallback+  (RemoveModifyCallback+  (CallModifyCallbacks+  (AddPredeleteCallback+  (RemovePredeleteCallback+  (CallPredeleteCallbacks+  (LineText+  (LineStart+  (LineEnd+  (WordStart+  (WordEnd+  (CountDisplayedCharacters+  (SkipDisplayedCharacters+  (CountLines+  (SkipLines+  (RewindLines+  (FindcharForward+  (FindcharBackward+  (SearchForwardWithMatchcase+  (SearchBackwardWithMatchcase+  (PrimarySelection+  (SecondarySelection+  (HighlightSelection+  (PrevChar+  (PrevCharClipped+  (NextChar+  (NextCharClipped+  (Utf8Align+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions TextBuffer = TextBufferFuncs++MAKE_METHOD(InputFileWasTranscoded,inputFileWasTranscoded)+MAKE_METHOD(FileEncodingWarningMessage,fileEncodingWarningMessage)+MAKE_METHOD(GetLength,getLength)+MAKE_METHOD(TextRange,textRange)+MAKE_METHOD(CharAt,charAt)+MAKE_METHOD(ByteAt,byteAt)+MAKE_METHOD(AppendToBuffer,appendToBuffer)+MAKE_METHOD(CanUndo,canUndo)+MAKE_METHOD(Insertfile,insertfile)+MAKE_METHOD(InsertfileWithBuflen,insertfileWithBuflen)+MAKE_METHOD(Appendfile,appendfile)+MAKE_METHOD(AppendfileWithBuflen,appendfileWithBuflen)+MAKE_METHOD(Loadfile,loadfile)+MAKE_METHOD(LoadfileWithBuflen,loadfileWithBuflen)+MAKE_METHOD(Outputfile,outputfile)+MAKE_METHOD(OutputfileWithBuflen,outputfileWithBuflen)+MAKE_METHOD(Savefile,savefile)+MAKE_METHOD(SavefileWithBuflen,savefileWithBuflen)+MAKE_METHOD(GetTabDistance,getTabDistance)+MAKE_METHOD(SetTabDistance,setTabDistance)+MAKE_METHOD(Unselect,unselect)+MAKE_METHOD(SelectionPosition,selectionPosition)+MAKE_METHOD(SelectionText,selectionText)+MAKE_METHOD(RemoveSelection,removeSelection)+MAKE_METHOD(ReplaceSelection,replaceSelection)+MAKE_METHOD(SecondarySelect,secondarySelect)+MAKE_METHOD(SecondarySelected,secondarySelected)+MAKE_METHOD(SecondaryUnselect,secondaryUnselect)+MAKE_METHOD(SecondarySelectionPosition,secondarySelectionPosition)+MAKE_METHOD(SecondarySelectionText,secondarySelectionText)+MAKE_METHOD(RemoveSecondarySelection,removeSecondarySelection)+MAKE_METHOD(ReplaceSecondarySelection,replaceSecondarySelection)+MAKE_METHOD(GetHighlight,getHighlight)+MAKE_METHOD(SetHighlight,setHighlight)+MAKE_METHOD(Unhighlight,unhighlight)+MAKE_METHOD(HighlightPosition,highlightPosition)+MAKE_METHOD(HighlightText,highlightText)+MAKE_METHOD(AddModifyCallback,addModifyCallback)+MAKE_METHOD(RemoveModifyCallback,removeModifyCallback)+MAKE_METHOD(CallModifyCallbacks,callModifyCallbacks)+MAKE_METHOD(AddPredeleteCallback,addPredeleteCallback)+MAKE_METHOD(RemovePredeleteCallback,removePredeleteCallback)+MAKE_METHOD(CallPredeleteCallbacks,callPredeleteCallbacks)+MAKE_METHOD(LineText,lineText)+MAKE_METHOD(LineStart,lineStart)+MAKE_METHOD(LineEnd,lineEnd)+MAKE_METHOD(WordStart,wordStart)+MAKE_METHOD(WordEnd,wordEnd)+MAKE_METHOD(CountDisplayedCharacters,countDisplayedCharacters)+MAKE_METHOD(SkipDisplayedCharacters,skipDisplayedCharacters)+MAKE_METHOD(CountLines,countLines)+MAKE_METHOD(SkipLines,skipLines)+MAKE_METHOD(RewindLines,rewindLines)+MAKE_METHOD(FindcharForward,findcharForward)+MAKE_METHOD(FindcharBackward,findcharBackward)+MAKE_METHOD(SearchForwardWithMatchcase,searchForwardWithMatchcase)+MAKE_METHOD(SearchBackwardWithMatchcase,searchBackwardWithMatchcase)+MAKE_METHOD(PrimarySelection,primarySelection)+MAKE_METHOD(SecondarySelection,secondarySelection)+MAKE_METHOD(HighlightSelection,highlightSelection)+MAKE_METHOD(PrevChar,prevChar)+MAKE_METHOD(PrevCharClipped,prevCharClipped)+MAKE_METHOD(NextChar,nextChar)+MAKE_METHOD(NextCharClipped,nextCharClipped)+MAKE_METHOD(Utf8Align,utf8Align)++data CTextDisplayBase parent+type TextDisplayBase = CTextDisplayBase GroupBase+type TextDisplayBaseFuncs =+  (Destroy+  (Hide+  (Resize+  (Handle+  (SetBuffer+  (GetBuffer+  (RedisplayRange+  (Scroll+  (Overstrike+  (SetInsertPosition+  (GetInsertPosition+  (XyToPosition+  (PositionToXy+  (InSelection+  (ShowInsertPosition+  (MoveRight+  (MoveLeft+  (MoveUp+  (MoveDown+  (CountLines+  (LineStart+  (LineEnd+  (SkipLines+  (RewindLines+  (NextWord+  (PreviousWord+  (ShowCursor+  (SetCursorStyle+  (GetCursorColor+  (SetCursorColor+  (GetScrollbarWidth+  (SetScrollbarWidth+  (GetScrollbarAlign+  (SetScrollbarAlign+  (WordStart+  (WordEnd+  (HighlightData+  (PositionStyle+  (GetShortcut+  (SetShortcut+  (GetTextfont+  (SetTextfont+  (GetTextsize+  (SetTextsize+  (GetTextcolor+  (SetTextcolor+  (XToCol+  (ColToX+  (SetLinenumberWidth+  (GetLinenumberWidth+  (SetLinenumberFont+  (GetLinenumberFont+  (SetLinenumberSize+  (GetLinenumberSize+  (SetLinenumberFgcolor+  (GetLinenumberFgcolor+  (SetLinenumberBgcolor+  (GetLinenumberBgcolor+  (SetLinenumberAlign+  (GetLinenumberAlign+  (SetLinenumberFormat+  (GetLinenumberFormat+  (WrapMode+  (Draw+  (ShowWidget+  ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))++type instance Functions TextDisplayBase = TextDisplayBaseFuncs++data CTextDisplay parent+type TextDisplay = CTextDisplay TextDisplayBase+type TextDisplayFuncs =+  (Draw+  (Hide+  (Resize+  (Handle+  (ShowWidget+  ())))))++type instance Functions TextDisplay = TextDisplayFuncs++MAKE_METHOD(SetBuffer,setBuffer)+MAKE_METHOD(GetBuffer,getBuffer)+MAKE_METHOD(RedisplayRange,redisplayRange)+MAKE_METHOD(Scroll,scroll)+MAKE_METHOD(Overstrike,overstrike)+MAKE_METHOD(SetInsertPosition,setInsertPosition)+MAKE_METHOD(GetInsertPosition,getInsertPosition)+MAKE_METHOD(XyToPosition,xyToPosition)+MAKE_METHOD(PositionToXy,positionToXy)+MAKE_METHOD(InSelection,inSelection)+MAKE_METHOD(ShowInsertPosition,showInsertPosition)+MAKE_METHOD(MoveRight,moveRight)+MAKE_METHOD(MoveLeft,moveLeft)+MAKE_METHOD(MoveUp,moveUp)+MAKE_METHOD(MoveDown,moveDown)+MAKE_METHOD(NextWord,nextWord)+MAKE_METHOD(PreviousWord,previousWord)+MAKE_METHOD(ShowCursor,showCursor)+MAKE_METHOD(SetCursorStyle,setCursorStyle)+MAKE_METHOD(GetScrollbarAlign,getScrollbarAlign)+MAKE_METHOD(SetScrollbarAlign,setScrollbarAlign)+MAKE_METHOD(HighlightData,highlightData)+MAKE_METHOD(PositionStyle,positionStyle)+MAKE_METHOD(XToCol,xToCol)+MAKE_METHOD(ColToX,colToX)+MAKE_METHOD(SetLinenumberWidth,setLinenumberWidth)+MAKE_METHOD(GetLinenumberWidth,getLinenumberWidth)+MAKE_METHOD(SetLinenumberFont,setLinenumberFont)+MAKE_METHOD(GetLinenumberFont,getLinenumberFont)+MAKE_METHOD(SetLinenumberSize,setLinenumberSize)+MAKE_METHOD(GetLinenumberSize,getLinenumberSize)+MAKE_METHOD(SetLinenumberFgcolor,setLinenumberFgcolor)+MAKE_METHOD(GetLinenumberFgcolor,getLinenumberFgcolor)+MAKE_METHOD(SetLinenumberBgcolor,setLinenumberBgcolor)+MAKE_METHOD(GetLinenumberBgcolor,getLinenumberBgcolor)+MAKE_METHOD(SetLinenumberAlign,setLinenumberAlign)+MAKE_METHOD(GetLinenumberAlign,getLinenumberAlign)+MAKE_METHOD(SetLinenumberFormat,setLinenumberFormat)+MAKE_METHOD(GetLinenumberFormat,getLinenumberFormat)+MAKE_METHOD(WrapMode,wrapMode)++data CTextEditorBase parent+type TextEditorBase = CTextEditorBase TextDisplayBase+type TextEditorBaseFuncs =+  (Destroy+  (SetInsertMode+  (GetInsertMode+  (GetDefaultKeyBindings+  (ReplaceKeyBindings+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))++type instance Functions TextEditorBase = TextEditorBaseFuncs++data CTextEditor parent+type TextEditor = CTextEditor TextEditorBase+type TextEditorFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions TextEditor = TextEditorFuncs++MAKE_METHOD(SetInsertMode,setInsertMode)+MAKE_METHOD(GetInsertMode,getInsertMode)+MAKE_METHOD(GetDefaultKeyBindings,getDefaultKeyBindings)+MAKE_METHOD(ReplaceKeyBindings,replaceKeyBindings)++data CNativeFileChooser parent+type NativeFileChooser = CNativeFileChooser Base+type NativeFileChooserFuncs =+  (Destroy+  (SetType+  (GetType_+  (SetOptions+  (GetOptions+  (GetCount+  (GetFilename+  (GetFilenameAt+  (SetDirectory+  (GetDirectory+  (SetTitle+  (GetTitle+  (GetFilter+  (SetFilter+  (Filters+  (SetFilterValue+  (GetFilterValue+  (SetPresetFile+  (GetPresetFile+  (GetErrmsg+  (ShowWidget+  ())))))))))))))))))))))++type instance Functions NativeFileChooser = NativeFileChooserFuncs++MAKE_METHOD(SetOptions,setOptions)+MAKE_METHOD(GetOptions,getOptions)+MAKE_METHOD(GetFilename,getFilename)+MAKE_METHOD(GetFilenameAt,getFilenameAt)+MAKE_METHOD(SetDirectory,setDirectory)+MAKE_METHOD(GetDirectory,getDirectory)+MAKE_METHOD(SetTitle,setTitle)+MAKE_METHOD(GetTitle,getTitle)+MAKE_METHOD(GetFilter,getFilter)+MAKE_METHOD(SetFilter,setFilter)+MAKE_METHOD(Filters,filters)+MAKE_METHOD(SetFilterValue,setFilterValue)+MAKE_METHOD(GetFilterValue,getFilterValue)+MAKE_METHOD(SetPresetFile,setPresetFile)+MAKE_METHOD(GetPresetFile,getPresetFile)+MAKE_METHOD(GetErrmsg,getErrmsg)++data CTileBase parent+type TileBase = CTileBase GroupBase+type TileBaseFuncs =+  (SetPosition+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))++type instance Functions TileBase = TileBaseFuncs++data CTile parent+type Tile = CTile TileBase+type TileFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions Tile = TileFuncs++data CPackBase parent+type PackBase = CPackBase GroupBase+type PackBaseFuncs =+  (GetType_+  (SetType+  (SetSpacing+  (GetSpacing+  (IsHorizontal+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))++type instance Functions PackBase = PackBaseFuncs+data CPack parent+type Pack = CPack PackBase+type PackFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))+type instance Functions Pack = PackFuncs++MAKE_METHOD(SetSpacing,setSpacing)+MAKE_METHOD(GetSpacing,getSpacing)+MAKE_METHOD(IsHorizontal,isHorizontal)++data CScrolledBase parent+type ScrolledBase = CScrolledBase GroupBase+type ScrolledBaseFuncs =+  (SetScrollbarSize+  (GetScrollbarSize+  (Clear+  (ScrollTo+  (Yposition+  (Xposition+  (GetType_+  (SetType+  (Resize+  (Draw+  (Handle+  (ShowWidget+  (Hide+  ())))))))))))))++type instance Functions ScrolledBase = ScrolledBaseFuncs++data CScrolled parent+type Scrolled = CScrolled Group+type ScrolledFuncs =+  (Resize+  (Draw+  (Handle+  (ShowWidget+  (Hide+  ())))))++type instance Functions Scrolled = ScrolledFuncs++MAKE_METHOD(ScrollTo,scrollTo)+MAKE_METHOD(Xposition,xposition)+MAKE_METHOD(Yposition,yposition)++data CTabsBase parent+type TabsBase = CTabsBase GroupBase+type TabsBaseFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Resize+  (Hide+  (GetValue+  (SetValue+  (GetPush+  (SetPush+  (Which+  (ClientArea+  (TabPositions+  (TabHeight+  (GetTabAlign+  (SetTabAlign+  (Resize+  ()))))))))))))))))++type instance Functions TabsBase = TabsBaseFuncs++data CTabs parent+type Tabs = CTabs TabsBase+type TabsFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Resize+  (Hide+  (Resize+  ()))))))++type instance Functions Tabs = TabsFuncs++MAKE_METHOD(GetPush,getPush)+MAKE_METHOD(SetPush,setPush)+MAKE_METHOD(Which,which)+MAKE_METHOD(ClientArea,clientArea)+MAKE_METHOD(TabPositions, tabPositions)+MAKE_METHOD(TabHeight, tabHeight)+MAKE_METHOD(GetTabAlign,getTabAlign)+MAKE_METHOD(SetTabAlign,setTabAlign)++data CSpinnerBase parent+type SpinnerBase = CSpinnerBase GroupBase+type SpinnerBaseFuncs =+  (GetValue+  (SetValue+  (Handle+  (SetTextfont+  (GetTextfont+  (SetTextsize+  (GetTextsize+  (SetTextcolor+  (GetTextcolor+  (SetType+  (GetType_+  (SetFormat+  (GetFormat+  (SetMinimum+  (GetMinimum+  (SetMaximum+  (GetMaximum+  (SetStep+  (GetStep+  (Resize+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (GetWrap+  (SetWrap+  (Resize+  (Range+  ()))))))))))))))))))))))))))))+++type instance Functions SpinnerBase = SpinnerBaseFuncs+data CSpinner parent+type Spinner = CSpinner SpinnerBase+type SpinnerFuncs =+  (Handle+  (Resize+  (Draw+  (Handle+  (ShowWidget+  (Hide+  ()))))))+++type instance Functions Spinner = SpinnerFuncs++MAKE_METHOD(GetFormat,getFormat)+MAKE_METHOD(SetFormat,setFormat)++data CColorChooserBase parent+type ColorChooserBase = CColorChooserBase GroupBase+type ColorChooserBaseFuncs =+  (GetMode+  (SetMode+  (GetHue+  (GetSaturation+  (GetValue+  (GetR+  (GetG+  (GetB+  (GetHsv+  (GetRgb+  (SetHsv+  (SetRgb+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))))))))++type instance Functions ColorChooserBase = ColorChooserBaseFuncs++data CColorChooser parent+type ColorChooser = CColorChooser ColorChooserBase+type ColorChooserFuncs =+  (GetMode+  (SetMode+  (GetHue+  (GetSaturation+  (GetValue+  (GetR+  (GetG+  (GetB+  (SetHsv+  (SetRgb+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))))))++type instance Functions ColorChooser = ColorChooserFuncs++MAKE_METHOD(GetHue, getHue)+MAKE_METHOD(GetSaturation, getSaturation)+MAKE_METHOD(GetR, getR)+MAKE_METHOD(GetG, getG)+MAKE_METHOD(GetB, getB)+MAKE_METHOD(SetHsv, setHsv)+MAKE_METHOD(SetRgb, setRgb)+MAKE_METHOD(GetRgb, getRgb)+MAKE_METHOD(GetHsv, getHsv)++data CFileBrowserBase parent+type FileBrowserBase = CFileBrowserBase BrowserBase+type FileBrowserBaseFuncs =+  (SetIconsize+  (GetIconsize+  (SetFilter+  (GetFilter+  (SetTextsize+  (GetTextsize+  (GetFiletype+  (SetFiletype+  (Load+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ()))))))))))))))+type instance Functions FileBrowserBase = FileBrowserBaseFuncs++data CFileBrowser parent+type FileBrowser = CFileBrowser FileBrowserBase+type FileBrowserFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))+type instance Functions FileBrowser = FileBrowserFuncs++MAKE_METHOD(SetIconsize, setIconsize)+MAKE_METHOD(GetIconsize, getIconsize)+MAKE_METHOD(SetFiletype, setFiletype)+MAKE_METHOD(GetFiletype, getFiletype)++data CRGBImage parent+type RGBImage = CRGBImage Image+type RGBImageFuncs =+  (Destroy+  (GetW+  (GetH+  (GetD+  (GetLd+  (GetCount+  (Copy+  (ColorAverage+  (Inactive+  (Desaturate+  (DrawResize+  (Draw+  (Uncache+  ())))))))))))))++type instance Functions RGBImage = RGBImageFuncs++data CJPEGImage parent+type JPEGImage = CJPEGImage RGBImage+type instance Functions JPEGImage = ()++data CBMPImage parent+type BMPImage = CBMPImage RGBImage+type instance Functions BMPImage = ()++data CGIFImage parent+type GIFImage = CGIFImage RGBImage+type instance Functions GIFImage = ()++data CXBMImage parent+type XBMImage = CXBMImage RGBImage+type instance Functions XBMImage = ()++data CXPMImage parent+type XPMImage = CXPMImage RGBImage+type instance Functions XPMImage = ()++data CPNGImage parent+type PNGImage = CPNGImage RGBImage+type instance Functions PNGImage = ()++data CPNMImage parent+type PNMImage = CPNMImage RGBImage+type instance Functions PNMImage = ()++data CFileInputBase parent+type FileInputBase = CFileInputBase InputBase+type FileInputBaseFuncs =+  (SetDownBox+  (GetDownBox+  (SetErrorColor+  (GetErrorColor+  (GetValue+  (SetValue+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))))))))++type instance Functions FileInputBase = FileInputBaseFuncs++data CFileInput parent+type FileInput = CFileInput FileInputBase+type FileInputFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))++type instance Functions FileInput = FileInputFuncs++MAKE_METHOD(SetErrorColor, setErrorColor)+MAKE_METHOD(GetErrorColor, getErrorColor)++data CScreenDriver parent+type ScreenDriver = CScreenDriver Base+type instance Functions ScreenDriver = ()++data CSystemDriver parent+type SystemDriver = CSystemDriver Base+type instance Functions SystemDriver = ()++data CSVGImage parent+type SVGImage = CSVGImage RGBImage+type SVGImageFuncs =+  (Destroy+  (Copy+  (ColorAverage+  (Desaturate+  (DrawResize+  (Draw+  (Resize+  ())))))))+type instance Functions SVGImage = SVGImageFuncs++data CSimpleTerminalBase parent+type SimpleTerminalBase = CSimpleTerminalBase TextDisplayBase+type SimpleTerminalBaseFuncs =+    (SetStayAtBottom+    (GetStayAtBottom+    (SetHistoryLines+    (GetHistoryLines+    (SetAnsi+    (GetAnsi+    (SetStyleTable+    (GetStyleTable+    (GetStyleTableSize+    (SetNormalStyleIndex+    (GetNormalStyleIndex+    (SetCurrentStyleIndex+    (GetCurrentStyleIndex+    (SetText+    (GetText+    (Clear+    (RemoveLines+    (Draw+    (Resize+    (Handle+    (Hide+    (ShowWidget+    ()))))))))))))))))))))))+type instance Functions SimpleTerminalBase = SimpleTerminalBaseFuncs++data CSimpleTerminal parent+type SimpleTerminal = CSimpleTerminal SimpleTerminalBase+type SimpleTerminalFuncs =+  (Draw+  (Handle+  (ShowWidget+  (Hide+  (Resize+  ())))))+ type instance Functions SimpleTerminal = SimpleTerminalFuncs  MAKE_METHOD(SetStayAtBottom,setStayAtBottom)
src/Graphics/UI/FLTK/LowLevel/HorFillSlider.chs view
@@ -1,50 +1,23 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.HorFillSlider-    (-     horFillSliderNew-     -- * Hierarchy-     ---     -- $hierarchy--    )+  (+    -- *Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_SliderC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget-{# fun Fl_Hor_Fill_Slider_New as horFillSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Hor_Fill_Slider_New_WithLabel as horFillSliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-horFillSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref HorFillSlider)-horFillSliderNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> horFillSliderNew' x_pos y_pos width height >>=-                             toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> horFillSliderNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref--- @--- --- @- -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.HorFillSlider" --  | --  v -- "Graphics.UI.FLTK.LowLevel.HorFillSlider"
src/Graphics/UI/FLTK/LowLevel/HorNiceSlider.chs view
@@ -1,44 +1,23 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.HorNiceSlider-    (-     horNiceSliderNew-     -- * Hierarchy-     ---     -- $hierarchy--    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_SliderC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import qualified Data.Text as T-{# fun Fl_Hor_Nice_Slider_New as horNiceSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Hor_Nice_Slider_New_WithLabel as horNiceSliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-horNiceSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref HorNiceSlider)-horNiceSliderNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> horNiceSliderNew' x_pos y_pos width height >>= toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> horNiceSliderNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref+ -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.HorNiceSlider" --  | --  v -- "Graphics.UI.FLTK.LowLevel.HorNiceSlider"
src/Graphics/UI/FLTK/LowLevel/HorSlider.chs view
@@ -1,45 +1,23 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.HorSlider-    (-     horSliderNew-     -- * Hierarchy-     ---     -- $hierarchy--    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_SliderC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import qualified Data.Text as T-{# fun Fl_Hor_Slider_New as horSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Hor_Slider_New_WithLabel as horSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-horSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref HorSlider)-horSliderNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> horSliderNew' x_pos y_pos width height >>=-                             toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> horSliderNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref+ -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.HorSlider" --  | --  v -- "Graphics.UI.FLTK.LowLevel.HorSlider"
src/Graphics/UI/FLTK/LowLevel/HorValueSlider.chs view
@@ -16,7 +16,7 @@ import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget+import Graphics.UI.FLTK.LowLevel.Base.Widget import qualified Data.Text as T {# fun Fl_Hor_Value_Slider_New as horValueSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #} {# fun Fl_Hor_Value_Slider_New_WithLabel as horValueSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}@@ -32,18 +32,19 @@           setFlag ref WidgetFlagCopiedTooltip           return ref + -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider" --  | --  v--- "Graphics.UI.FLTK.LowLevel.ValueSlider"+-- "Graphics.UI.FLTK.LowLevel.Base.ValueSlider" --  | --  v -- "Graphics.UI.FLTK.LowLevel.HorValueSlider"
src/Graphics/UI/FLTK/LowLevel/Image.chs view
@@ -205,6 +205,12 @@   runOp _ _ image (Size (Width w') (Height h')) proportional can_expand =     withRef image $ \imagePtr -> scale' imagePtr w' h' (maybe True id proportional) (maybe False id can_expand) ++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Image"+-- @+ -- $functions -- @ -- colorAverage :: 'Ref' 'Image' -> 'Color' -> 'Float' -> 'IO' ()@@ -242,9 +248,4 @@ -- scale :: 'Ref' 'Image' -> 'Size' -> 'Maybe' 'Bool' -> 'Maybe' 'Bool' -> 'IO' () -- -- uncache :: 'Ref' 'Image' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Image" -- @
src/Graphics/UI/FLTK/LowLevel/ImageSurface.chs view
@@ -41,7 +41,7 @@   runOp _ _ image_surface = withRef image_surface $ \image_surfacePtr -> setCurrent' image_surfacePtr  {# fun Fl_Image_Surface_draw as draw' { id `Ptr ()',id `Ptr ()',`Int',`Int' } -> `()' #}-instance (Parent a Widget, impl ~ ( Ref a  -> Position -> IO ())) => Op (Draw ()) ImageSurface orig impl where+instance (Parent a WidgetBase, impl ~ ( Ref a  -> Position -> IO ())) => Op (Draw ()) ImageSurface orig impl where   runOp _ _ image_surface widget (Position (X delta_x) (Y delta_y)) = withRef image_surface $ \image_surfacePtr -> withRef widget $ \widgetPtr -> draw' image_surfacePtr widgetPtr delta_x delta_y  {# fun Fl_Image_Surface_get_origin as getOrigin' {id `Ptr()', alloca- `CInt' peekIntConv*, alloca- `CInt' peekIntConv*} -> `()' #}
src/Graphics/UI/FLTK/LowLevel/Input.chs view
@@ -1,118 +1,27 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Input     (-     FlInputType(..),-     -- * Constructor-     inputNew,-     inputCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Input+     -- * Widget Functions      ---     -- $Input+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h"-#include "Fl_InputC.h"-#include "Fl_Input_C.h"-#include "Fl_Int_InputC.h"-#include "Fl_Float_InputC.h" #include "Fl_Secret_InputC.h"-#include "Fl_Multiline_InputC.h"-#include "Fl_OutputC.h"-#include "Fl_Multiline_OutputC.h"-#include "Fl_WidgetC.h"+#include "Fl_InputC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--#c-enum FlInputType {-  FlNormalInput = FL_NORMAL_INPUT,-  FlFloatInput = FL_FLOAT_INPUT,-  FlIntInput = FL_INT_INPUT,-  FlMultilineInput = FL_MULTILINE_INPUT,-  FlSecretInput = FL_SECRET_INPUT,-  FlHiddenInput = FL_HIDDEN_INPUT-};-#endc-{#enum FlInputType {}#}-{# fun Fl_OverriddenInput_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenInput_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-inputCustom ::-       Rectangle                         -- ^ The bounds of this Input-    -> Maybe T.Text                      -- ^ The Input label-    -> Maybe FlInputType                 -- ^ The input type-    -> Maybe (Ref Input -> IO ())        -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Input)   -- ^ Optional custom widget functions-    -> IO (Ref Input)-inputCustom rectangle l' itMaybe draw' funcs' = do-  i <- widgetMaker-         rectangle-         l'-         draw'-         funcs'-         overriddenWidgetNew'-         overriddenWidgetNewWithLabel'-  maybe-    (return ())-    (\it -> do-        setInputType i it-        case it of-          FlNormalInput -> return ()-          FlFloatInput -> clearFlag i WidgetFlagMacUseAccentsMenu-          FlIntInput -> clearFlag i WidgetFlagMacUseAccentsMenu-          FlMultilineInput -> return ()-          FlSecretInput -> clearFlag i WidgetFlagMacUseAccentsMenu-          FlHiddenInput -> return ()-        )-    itMaybe-  setFlag i WidgetFlagCopiedLabel-  setFlag i WidgetFlagCopiedTooltip-  return i--{# fun Fl_Input_New as inputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Input_New_WithLabel as inputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_Multiline_Input_New as multilineInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Multiline_Input_New_WithLabel as multilineInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_Float_Input_New as floatInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Float_Input_New_WithLabel as floatInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_Int_Input_New as intInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Int_Input_New_WithLabel as intInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_Secret_Input_New as secretInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Secret_Input_New_WithLabel as secretInputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-inputNew :: Rectangle -> Maybe T.Text -> Maybe FlInputType -> IO (Ref Input)-inputNew rectangle l' flInputType =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-        constructor = case flInputType of-                       Just FlNormalInput -> maybe inputNew' (\l -> (\x y w h -> copyTextToCString l >>= \l' -> inputNewWithLabel' x y w h l')) l'-                       Just FlFloatInput -> maybe floatInputNew' (\l -> (\x y w h -> copyTextToCString l >>= \l' -> floatInputNewWithLabel' x y w h l')) l'-                       Just FlIntInput -> maybe intInputNew'  (\l -> (\x y w h -> copyTextToCString l >>= \l' -> intInputNewWithLabel' x y w h l')) l'-                       Just FlMultilineInput -> maybe multilineInputNew'  (\l -> (\x y w h -> copyTextToCString l >>= \l' -> multilineInputNewWithLabel' x y w h l')) l'-                       Just FlSecretInput -> maybe secretInputNew' (\l -> (\x y w h -> copyTextToCString l >>= \l' -> secretInputNewWithLabel' x y w h l')) l'-                       Just FlHiddenInput -> maybe inputNew' (\l -> (\x y w h -> copyTextToCString l >>= \l' -> inputNewWithLabel' x y w h l')) l'-                       Nothing -> inputNew'-    in do-    i <- constructor x_pos y_pos width height >>= toRef-    case flInputType of { Just FlHiddenInput -> setInputType i FlHiddenInput; _ -> return () }-    setFlag i WidgetFlagCopiedLabel-    setFlag i WidgetFlagCopiedTooltip-    return i--{# fun Fl_Input_Destroy as inputDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Input orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    inputDestroy' winPtr-    return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy+import Graphics.UI.FLTK.LowLevel.Base.Input  {#fun Fl_Input_handle as inputHandle' { id `Ptr ()', id `CInt' } -> `Int' #} {#fun Fl_Secret_Input_handle as secretInputHandle' { id `Ptr ()', id `CInt' } -> `Int' #}@@ -128,284 +37,42 @@       )     >>= return . successOrUnknownEvent -{# fun Fl_Input_set_value as setValue' { id `Ptr ()', `CString' } -> `Int' #}-instance (impl ~ (T.Text -> IO (Either NoChange ()))) => Op (SetValue ()) Input orig impl where-  runOp _ _ input text = withRef input $ \inputPtr -> copyTextToCString text >>= \t -> setValue' inputPtr t >>= return . successOrNoChange -{# fun Fl_Input_static_value as staticValue' { id `Ptr ()', `CString' } -> `Int' #}-instance (impl ~ (T.Text -> IO (Either NoChange ()))) => Op (StaticValue ()) Input orig impl where-  runOp _ _ input text = do-    status' <- withRef input $ \inputPtr -> copyTextToCString text >>= staticValue' inputPtr-    return $ successOrNoChange status'-{# fun Fl_Input_value as value' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetValue ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> value' inputPtr >>= cStringToText-{# fun Fl_Input_index as index' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (Char))) => Op (Index ()) Input orig impl where-  runOp _ _ input (AtIndex i) = withRef input $ \inputPtr -> index' inputPtr i >>= return . toEnum-{# fun Fl_Input_set_size as setSize' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (Size ->  IO ())) => Op (SetSize ()) Input orig impl where-  runOp _ _ input (Size (Width w') (Height h')) = withRef input $ \inputPtr -> setSize' inputPtr w' h'-{# fun Fl_Input_maximum_size as maximumSize' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetMaximumSize ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> maximumSize' inputPtr-{# fun Fl_Input_size as size' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetSize ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> size' inputPtr-{# fun Fl_Input_set_maximum_size as setMaximumSize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ())) => Op (SetMaximumSize ()) Input orig impl where-  runOp _ _ input m = withRef input $ \inputPtr -> setMaximumSize' inputPtr m-{# fun Fl_Input_position as position' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetPosition ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> position' inputPtr-{# fun Fl_Input_mark as mark' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetMark ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> mark' inputPtr-{# fun Fl_Input_set_position_with_cursor_mark as setPositionWithCursorMark' { id `Ptr ()',`Int',`Int' } -> `Int' #}-{# fun Fl_Input_set_position_n_n as setPositionNN' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Int -> Maybe Int -> IO (Either NoChange ()))) => Op (SetPosition ()) Input orig impl where-  runOp _ _ input point mark = do-   status' <- case mark of-      Just m ->  withRef input $ \inputPtr -> setPositionWithCursorMark' inputPtr point m-      Nothing -> withRef input $ \inputPtr -> setPositionNN' inputPtr point-   return $ successOrNoChange status'-{# fun Fl_Input_set_mark as setMark' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Int ->  IO (Either NoChange ()))) => Op (SetMark ()) Input orig impl where-  runOp _ _ input m = withRef input $ \inputPtr -> setMark' inputPtr m >>= return . successOrNoChange-{# fun Fl_Input_replace as replace' { id `Ptr ()',`Int',`Int', `CString' } -> `Int' #}-instance (impl ~ (IndexRange -> T.Text ->  IO (Either NoChange ()))) => Op (Replace ()) Input orig impl where-  runOp _ _ input (IndexRange (AtIndex b) (AtIndex e)) text = withRef input $ \inputPtr -> copyTextToCString text >>= \t -> replace' inputPtr b e t >>= return . successOrNoChange-{# fun Fl_Input_cut as cut' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either NoChange ()))) => Op (Cut ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> cut' inputPtr >>= return . successOrNoChange-{# fun Fl_Input_cut_bytes as cutBytes' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Int ->  IO (Either NoChange ()))) => Op (CutFromCursor ()) Input orig impl where-  runOp _ _ input n = withRef input $ \inputPtr -> cutBytes' inputPtr n >>= return . successOrNoChange-{# fun Fl_Input_cut_range as cutRange' { id `Ptr ()',`Int',`Int' } -> `Int' #}-instance (impl ~ (IndexRange ->  IO (Either NoChange ()))) => Op (CutRange ()) Input orig impl where-  runOp _ _ input (IndexRange (AtIndex a) (AtIndex b)) = withRef input $ \inputPtr -> cutRange' inputPtr a b >>= return . successOrNoChange-{# fun Fl_Input_insert as insert' { id `Ptr ()', `CString' } -> `Int' #}-instance (impl ~ (T.Text ->  IO (Either NoChange ()))) => Op (Insert ()) Input orig impl where-  runOp _ _ input t = withRef input $ \inputPtr -> copyTextToCString t >>= \t' -> insert' inputPtr t' >>= return . successOrNoChange-{# fun Fl_Input_insert_with_length as insertWithLength' { id `Ptr ()', `CString',`Int' } -> `Int' #}-instance (impl ~ (T.Text -> Int ->  IO (Either NoChange ()))) => Op (InsertWithLength ()) Input orig impl where-  runOp _ _ input t l = withRef input $ \inputPtr -> copyTextToCString t >>= \t' -> insertWithLength' inputPtr t' l >>= return . successOrNoChange-{# fun Fl_Input_copy as copy' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Clipboard ->  IO (Either NoChange ()))) => Op (Copy ()) Input orig impl where-  runOp _ _ input clipboard = do-    status' <- case clipboard of-      InternalClipboard -> withRef input $ \inputPtr -> copy' inputPtr 1-      SharedClipboard -> withRef input $ \inputPtr -> copy' inputPtr 0-    return $ successOrNoChange status'-{# fun Fl_Input_undo as undo' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either NoChange ()))) => Op (Undo ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> undo' inputPtr >>= return . successOrNoChange-{# fun Fl_Input_copy_cuts as copyCuts' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either NoChange ()))) => Op (CopyCuts ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> copyCuts' inputPtr >>= return . successOrNoChange-{# fun Fl_Input_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}-instance (impl ~ ( IO (Maybe ShortcutKeySequence))) => Op (GetShortcut ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> shortcut' inputPtr >>= return . cIntToKeySequence-{# fun Fl_Input_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) Input orig impl where-  runOp _ _ input (ShortcutKeySequence modifiers char) =-    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)-{# fun Fl_Input_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> textfont' inputPtr-{# fun Fl_Input_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) Input orig impl where-  runOp _ _ input s = withRef input $ \inputPtr -> setTextfont' inputPtr s-{# fun Fl_Input_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> textsize' inputPtr >>= return . FontSize-{# fun Fl_Input_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) Input orig impl where-  runOp _ _ input (FontSize s) = withRef input $ \inputPtr -> setTextsize' inputPtr s-{# fun Fl_Input_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> textcolor' inputPtr-{# fun Fl_Input_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) Input orig impl where-  runOp _ _ input n = withRef input $ \inputPtr -> setTextcolor' inputPtr n-{# fun Fl_Input_cursor_color as cursorColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetCursorColor ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> cursorColor' inputPtr-{# fun Fl_Input_set_cursor_color as setCursorColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetCursorColor ()) Input orig impl where-  runOp _ _ input n = withRef input $ \inputPtr -> setCursorColor' inputPtr n-{# fun Fl_Input_input_type as inputType' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (FlInputType))) => Op (GetInputType ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> inputType' inputPtr >>= return . toEnum . fromIntegral-{# fun Fl_Input_set_input_type as setInputType' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (FlInputType ->  IO ())) => Op (SetInputType ()) Input orig impl where-  runOp _ _ input t = withRef input $ \inputPtr -> setInputType' inputPtr (fromIntegral (fromEnum t))-{# fun Fl_Input_readonly as readonly' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (GetReadonly ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> readonly' inputPtr-{# fun Fl_Input_set_readonly as setReadonly' { id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (SetReadonly ()) Input orig impl where-  runOp _ _ input b = withRef input $ \inputPtr -> setReadonly' inputPtr b-{# fun Fl_Input_wrap as wrap' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Bool))) => Op (GetWrap ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> wrap' inputPtr >>= return . cToBool-{# fun Fl_Input_set_wrap as setWrap' { id `Ptr ()', `Int' } -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (SetWrap ()) Input orig impl where-  runOp _ _ input b = withRef input $ \inputPtr -> setWrap' inputPtr (cFromBool b)-{# fun Fl_Input_set_tab_nav as setTabNav' { id `Ptr ()', `Int'} -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (SetTabNav ()) Input orig impl where-  runOp _ _ input val = withRef input $ \inputPtr -> setTabNav' inputPtr (cFromBool val)-{# fun Fl_Input_tab_nav as tabNav' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Bool))) => Op (GetTabNav ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> tabNav' inputPtr >>= return . cToBool {# fun Fl_Input_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Input orig impl where   runOp _ _ input = withRef input $ \inputPtr -> draw'' inputPtr-{# fun Fl_Input_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> drawSuper' inputPtr-{# fun Fl_Input_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Input orig impl where-  runOp _ _ input event = withRef input $ \inputPtr -> handleSuper' inputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Input orig impl where   runOp _ _ input rectangle = withRef input $ \inputPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' inputPtr x_pos y_pos w_pos h_pos-{# fun Fl_Input_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Input orig impl where-  runOp _ _ input rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef input $ \inputPtr -> resizeSuper' inputPtr x_pos y_pos width height {# fun Fl_Input_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Input orig impl where   runOp _ _ input = withRef input $ \inputPtr -> hide' inputPtr-{# fun Fl_Input_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> hideSuper' inputPtr {# fun Fl_Input_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Input orig impl where   runOp _ _ input = withRef input $ \inputPtr -> show' inputPtr-{# fun Fl_Input_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Input orig impl where-  runOp _ _ input = withRef input $ \inputPtr -> showSuper' inputPtr -{# fun Fl_Input_drawtext as drawtext' { id `Ptr ()', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (DrawText ()) Input orig impl where-  runOp _ _ input rectangle = withRef input (\inputPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 drawtext' inputPtr x_pos y_pos w_pos h_pos)+-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Input"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Input"+-- @ --- $Input+-- $functions -- @--- copy :: 'Ref' 'Input' -> 'Clipboard' -> 'IO' ('Either' 'NoChange' ())------ copyCuts :: 'Ref' 'Input' -> 'IO' ('Either' 'NoChange' ())------ cut :: 'Ref' 'Input' -> 'IO' ('Either' 'NoChange' ())------ cutFromCursor :: 'Ref' 'Input' -> 'Int' -> 'IO' ('Either' 'NoChange' ())------ cutRange :: 'Ref' 'Input' -> 'IndexRange' -> 'IO' ('Either' 'NoChange' ())------ destroy :: 'Ref' 'Input' -> 'IO' ()--- -- draw :: 'Ref' 'Input' -> 'IO' () ----- drawSuper :: 'Ref' 'Input' -> 'IO' ()------ drawText :: 'Ref' 'Input' -> 'Rectangle' -> 'IO' ()------ getCursorColor :: 'Ref' 'Input' -> 'IO' ('Color')------ getInputType :: 'Ref' 'Input' -> 'IO' ('FlInputType')------ getMark :: 'Ref' 'Input' -> 'IO' ('Int')------ getMaximumSize :: 'Ref' 'Input' -> 'IO' ('Int')------ getPosition :: 'Ref' 'Input' -> 'IO' ('Int')------ getReadonly :: 'Ref' 'Input' -> 'IO' ('Bool')------ getShortcut :: 'Ref' 'Input' -> 'IO' ('Maybe' 'ShortcutKeySequence')------ getSize :: 'Ref' 'Input' -> 'IO' ('Int')------ getTabNav :: 'Ref' 'Input' -> 'IO' ('Bool')------ getTextcolor :: 'Ref' 'Input' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'Input' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'Input' -> 'IO' ('FontSize')------ getValue :: 'Ref' 'Input' -> 'IO' 'T.Text'------ getWrap :: 'Ref' 'Input' -> 'IO' ('Bool')--- -- handle :: 'Ref' 'Input' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Input' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Input' -> 'IO' () ----- hideSuper :: 'Ref' 'Input' -> 'IO' ()------ index :: 'Ref' 'Input' -> 'AtIndex' -> 'IO' ('Char')------ insert :: 'Ref' 'Input' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())------ insertWithLength :: 'Ref' 'Input' -> 'T.Text' -> 'Int' -> 'IO' ('Either' 'NoChange' ())------ replace :: 'Ref' 'Input' -> 'IndexRange' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())--- -- resize :: 'Ref' 'Input' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Input' -> 'Rectangle' -> 'IO' ()------ setCursorColor :: 'Ref' 'Input' -> 'Color' -> 'IO' ()------ setInputType :: 'Ref' 'Input' -> 'FlInputType' -> 'IO' ()------ setMark :: 'Ref' 'Input' -> 'Int' -> 'IO' ('Either' 'NoChange' ())------ setMaximumSize :: 'Ref' 'Input' -> 'Int' -> 'IO' ()------ setPosition :: 'Ref' 'Input' -> 'Int' -> 'Maybe' 'Int' -> 'IO' ('Either' 'NoChange' ())------ setReadonly :: 'Ref' 'Input' -> 'Bool' -> 'IO' ()------ setShortcut :: 'Ref' 'Input' -> 'ShortcutKeySequence' -> 'IO' ()------ setSize :: 'Ref' 'Input' -> 'Size' -> 'IO' ()------ setTabNav :: 'Ref' 'Input' -> 'Bool' -> 'IO' ()------ setTextcolor :: 'Ref' 'Input' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'Input' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'Input' -> 'FontSize' -> 'IO' ()------ setValue :: 'Ref' 'Input' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())------ setWrap :: 'Ref' 'Input' -> 'Bool' -> 'IO' ()--- -- showWidget :: 'Ref' 'Input' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Input' -> 'IO' ()------ staticValue :: 'Ref' 'Input' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())------ undo :: 'Ref' 'Input' -> 'IO' ('Either' 'NoChange' ())--- @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Input" -- @
src/Graphics/UI/FLTK/LowLevel/LightButton.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.LightButton     (-     lightButtonNew,-     lightButtonCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -16,117 +14,56 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Light_ButtonC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget-{# fun Fl_OverriddenLight_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenLight_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-lightButtonCustom ::-       Rectangle                         -- ^ The bounds of this LightButton-    -> Maybe T.Text                      -- ^ The LightButton label-    -> Maybe (Ref LightButton -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs LightButton)      -- ^ Optional custom widget functions-    -> IO (Ref LightButton)-lightButtonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Light_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Light_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-lightButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref LightButton)-lightButtonNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel' -{# fun Fl_Light_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) LightButton orig impl where-  runOp _ _ button = swapRef button $-                    \buttonPtr ->-                     widgetDestroy' buttonPtr >>-                     return nullPtr+{#fun Fl_DerivedLight_Button_handle as buttonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ ((Event -> IO (Either UnknownEvent ())))) => Op (Handle ()) LightButton orig impl where+  runOp _ _ button event = withRef button (\p -> buttonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_DerivedLight_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ((Rectangle -> IO ()))) => Op (Resize ()) LightButton orig impl where+  runOp _ _ button rectangle = withRef button $ \buttonPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' buttonPtr x_pos y_pos w_pos h_pos+{# fun Fl_DerivedLight_Button_show as buttonShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ ((IO ()))) => Op (ShowWidget ()) LightButton orig impl where+  runOp _ _ button = withRef button $ (\p -> buttonShow' p)+{# fun Fl_DerivedLight_Button_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (( IO ()))) => Op (Hide ()) LightButton orig impl where+  runOp _ _ button = withRef button $ \buttonPtr -> hide' buttonPtr+ {# fun Fl_Light_Button_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) LightButton orig impl where   runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> draw'' lightButtonPtr-{# fun Fl_Light_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) LightButton orig impl where-  runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> drawSuper' lightButtonPtr-{#fun Fl_Light_Button_handle as lightButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) LightButton orig impl where-  runOp _ _ lightButton event = withRef lightButton (\p -> lightButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Light_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) LightButton orig impl where-  runOp _ _ lightButton event = withRef lightButton $ \lightButtonPtr -> handleSuper' lightButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Light_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) LightButton orig impl where-  runOp _ _ lightButton rectangle = withRef lightButton $ \lightButtonPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' lightButtonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Light_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) LightButton orig impl where-  runOp _ _ lightButton rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef lightButton $ \lightButtonPtr -> resizeSuper' lightButtonPtr x_pos y_pos width height-{# fun Fl_Light_Button_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) LightButton orig impl where-  runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> hide' lightButtonPtr-{# fun Fl_Light_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) LightButton orig impl where-  runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> hideSuper' lightButtonPtr-{# fun Fl_Light_Button_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) LightButton orig impl where-  runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> show' lightButtonPtr-{# fun Fl_Light_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) LightButton orig impl where-  runOp _ _ lightButton = withRef lightButton $ \lightButtonPtr -> showSuper' lightButtonPtr --- $functions--- @--- destroy :: 'Ref' 'LightButton' -> 'IO' ()------ draw :: 'Ref' 'LightButton' -> 'IO' ()------ drawSuper :: 'Ref' 'LightButton' -> 'IO' ()------ handle :: 'Ref' 'LightButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ handleSuper :: 'Ref' 'LightButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ hide :: 'Ref' 'LightButton' -> 'IO' ()------ hideSuper :: 'Ref' 'LightButton' -> 'IO' ()------ resize :: 'Ref' 'LightButton' -> 'Rectangle' -> 'IO' ()------ resizeSuper :: 'Ref' 'LightButton' -> 'Rectangle' -> 'IO' ()------ showWidget :: 'Ref' 'LightButton' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'LightButton' -> 'IO' ()--- @- -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Button"+-- "Graphics.UI.FLTK.LowLevel.Base.Button" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.LightButton"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.LightButton"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'LightButton' -> 'IO' ()+--+-- handle :: 'Ref' 'LightButton' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+--+-- hide :: 'Ref' 'LightButton' -> ( 'IO' ())+--+-- resize :: 'Ref' 'LightButton' -> ('Rectangle' -> 'IO' ())+--+-- showWidget :: 'Ref' 'LightButton' -> ('IO' ()) -- @
src/Graphics/UI/FLTK/LowLevel/LineDial.chs view
@@ -14,7 +14,7 @@ import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget+import Graphics.UI.FLTK.LowLevel.Base.Widget import qualified Data.Text as T {# fun Fl_Line_Dial_New as lineDialNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #} {# fun Fl_Line_Dial_New_WithLabel as lineDialNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}@@ -29,15 +29,16 @@           setFlag ref WidgetFlagCopiedTooltip           return ref + -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Dial"+-- "Graphics.UI.FLTK.LowLevel.Base.Dial" --  | --  v -- "Graphics.UI.FLTK.LowLevel.LineDial"
src/Graphics/UI/FLTK/LowLevel/MenuBar.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.MenuBar     (-     menuBarNew,-     menuBarCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -17,120 +15,53 @@ #include "Fl_Types.h" #include "Fl_Menu_BarC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget -{# fun Fl_OverriddenMenu_Bar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenMenu_Bar_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-menuBarCustom ::-       Rectangle                         -- ^ The bounds of this MenuBar-    -> Maybe T.Text                      -- ^ The MenuBar label-    -> Maybe (Ref MenuBar -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs MenuBar)      -- ^ Optional custom widget functions-    -> IO (Ref MenuBar)-menuBarCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Menu_Bar_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Menu_Bar_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-menuBarNew :: Rectangle -> Maybe T.Text -> IO (Ref MenuBar)-menuBarNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Menu_Bar_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) MenuBar orig impl where-  runOp _ _ menuBar = swapRef menuBar $-                          \menuBarPtr ->-                             widgetDestroy' menuBarPtr >>-                             return nullPtr {# fun Fl_Menu_Bar_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) MenuBar orig impl where   runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> draw'' menuBarPtr-{# fun Fl_Menu_Bar_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) MenuBar orig impl where-  runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> drawSuper' menuBarPtr {#fun Fl_Menu_Bar_handle as menuBarHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) MenuBar orig impl where   runOp _ _ menuBar event = withRef menuBar (\p -> menuBarHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Menu_Bar_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) MenuBar orig impl where-  runOp _ _ menuBar event = withRef menuBar $ \menuBarPtr -> handleSuper' menuBarPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Menu_Bar_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) MenuBar orig impl where   runOp _ _ menuBar rectangle = withRef menuBar $ \menuBarPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' menuBarPtr x_pos y_pos w_pos h_pos-{# fun Fl_Menu_Bar_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) MenuBar orig impl where-  runOp _ _ menuBar rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef menuBar $ \menuBarPtr -> resizeSuper' menuBarPtr x_pos y_pos width height {# fun Fl_Menu_Bar_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) MenuBar orig impl where   runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> hide' menuBarPtr-{# fun Fl_Menu_Bar_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) MenuBar orig impl where-  runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> hideSuper' menuBarPtr {# fun Fl_Menu_Bar_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) MenuBar orig impl where   runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> show' menuBarPtr-{# fun Fl_Menu_Bar_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) MenuBar orig impl where-  runOp _ _ menuBar = withRef menuBar $ \menuBarPtr -> showSuper' menuBarPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuBar"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.MenuBar"+-- @+ -- $functions--- -- @--- destroy :: 'Ref' 'MenuBar' -> 'IO' ()--- -- draw :: 'Ref' 'MenuBar' -> 'IO' () ----- drawSuper :: 'Ref' 'MenuBar' -> 'IO' ()--- -- handle :: 'Ref' 'MenuBar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'MenuBar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'MenuBar' -> 'IO' () ----- hideSuper :: 'Ref' 'MenuBar' -> 'IO' ()--- -- resize :: 'Ref' 'MenuBar' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'MenuBar' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'MenuBar' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'MenuBar' -> 'IO' ()--- @---- $hierarchy------ @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuPrim"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuBar"--- -- @
src/Graphics/UI/FLTK/LowLevel/MenuButton.chs view
@@ -1,16 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.MenuButton     (-     -- * Constructor-     menuButtonNew,-     MenuButtonType(..),-     menuButtonCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,136 +14,54 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Menu_ButtonC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget -#c-enum MenuButtonType {-  NormalMenuButton = NORMAL,-  Popup1MenuButton = POPUP1,-  Popup2MenuButton = POPUP2,-  Popup12MenuButton = POPUP12,-  Popup3MenuButton = POPUP3,-  Popup13MenuButton = POPUP13,-  Popup123MenuButton = POPUP123,-};-#endc-{#enum MenuButtonType {} deriving (Show, Eq) #}-{# fun Fl_OverriddenMenu_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenMenu_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-menuButtonCustom ::-       Rectangle                         -- ^ The bounds of this MenuButton-    -> Maybe T.Text                      -- ^ The MenuButton label-    -> Maybe (Ref MenuButton -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs MenuButton)      -- ^ Optional custom widget functions-    -> IO (Ref MenuButton)-menuButtonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Menu_Button_New as menuButtonNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Menu_Button_New_WithLabel as menuButtonNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-menuButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref MenuButton)-menuButtonNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Menu_Button_Destroy as menuButtonDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) MenuButton orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    menuButtonDestroy' winPtr-    return nullPtr-{#fun Fl_Menu_Button_popup as menuButtonPopup' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref MenuItem)))) => Op (Popup ()) MenuButton orig impl where-  runOp _ _ menu_bar = withRef menu_bar (\p -> menuButtonPopup' p >>= toMaybeRef)- {# fun Fl_Menu_Button_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) MenuButton orig impl where   runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> draw'' menuButtonPtr-{# fun Fl_Menu_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) MenuButton orig impl where-  runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> drawSuper' menuButtonPtr {#fun Fl_Menu_Button_handle as menuButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) MenuButton orig impl where   runOp _ _ menuButton event = withRef menuButton (\p -> menuButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Menu_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) MenuButton orig impl where-  runOp _ _ menuButton event = withRef menuButton $ \menuButtonPtr -> handleSuper' menuButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Menu_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) MenuButton orig impl where   runOp _ _ menuButton rectangle = withRef menuButton $ \menuButtonPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' menuButtonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Menu_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) MenuButton orig impl where-  runOp _ _ menuButton rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef menuButton $ \menuButtonPtr -> resizeSuper' menuButtonPtr x_pos y_pos width height {# fun Fl_Menu_Button_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) MenuButton orig impl where   runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> hide' menuButtonPtr-{# fun Fl_Menu_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) MenuButton orig impl where-  runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> hideSuper' menuButtonPtr {# fun Fl_Menu_Button_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) MenuButton orig impl where   runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> show' menuButtonPtr-{# fun Fl_Menu_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) MenuButton orig impl where-  runOp _ _ menuButton = withRef menuButton $ \menuButtonPtr -> showSuper' menuButtonPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.MenuButton"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'MenuButton' -> 'IO' ()--- -- draw :: 'Ref' 'MenuButton' -> 'IO' () ----- drawSuper :: 'Ref' 'MenuButton' -> 'IO' ()--- -- handle :: 'Ref' 'MenuButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'MenuButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'MenuButton' -> 'IO' () ----- hideSuper :: 'Ref' 'MenuButton' -> 'IO' ()------ popup :: 'Ref' 'MenuButton' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))--- -- resize :: 'Ref' 'MenuButton' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'MenuButton' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'MenuButton' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'MenuButton' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuPrim"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuButton" -- @
src/Graphics/UI/FLTK/LowLevel/MenuItem.chs view
@@ -1,24 +1,15 @@-{-# LANGUAGE OverloadedStrings, CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.MenuItem-  (-   menuItemNew,-   menuItemCustom,-   addMenuItem,-   MenuItemName(..),-   MenuItemPointer(..),-   MenuItemReference(..),-   MenuItemLocator(..),-   toMenuItemDrawF-   -- * Hierarchy-   ---   -- $hierarchy-   --+    (+     -- * Hierarchy+     --+     -- $hierarchy -   -- * Functions-   ---   -- $functions-  )+     -- * MenuItem Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h"@@ -27,409 +18,25 @@ import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--data MenuItemPointer = forall a. (Parent a MenuItem) => MenuItemPointer (Ref a)-newtype MenuItemName = MenuItemName T.Text-data MenuItemReference = MenuItemByIndex AtIndex | MenuItemByPointer MenuItemPointer-data MenuItemLocator = MenuItemPointerLocator MenuItemPointer | MenuItemNameLocator MenuItemName--toMenuItemDrawF ::-  (Parent a MenuItem) => (Ref a -> Rectangle -> Maybe (Ref MenuPrim) -> Bool -> IO ()) ->-  IO (FunPtr MenuItemDrawF)-toMenuItemDrawF f =-    mkMenuItemDrawFPtr (\menuItemPtr x' y' w' h' menuPtr selected -> do-                           pp <- wrapNonNull menuItemPtr "Null pointer : toMenuItemDrawFPrim"-                           maybeMenu <- toMaybeRef menuPtr-                           let rectangle = toRectangle (fromIntegral x',fromIntegral y',fromIntegral w',fromIntegral h')-                           f (castTo (wrapInRef pp)) rectangle maybeMenu (cToBool selected)-                       )-  -{# fun Fl_Menu_Item_New as new' { } -> `Ptr ()' id #}-menuItemNew :: IO (Ref MenuItem)-menuItemNew = new' >>= toRef--{# fun Fl_Menu_Item_New_With_Draw as newWithDraw' { id `FunPtr MenuItemDrawF' } -> `Ptr ()' id #}-menuItemCustom :: (Parent a MenuItem) => (Ref a -> Rectangle -> Maybe (Ref MenuPrim) -> Bool -> IO ()) -> IO (Ref MenuItem)-menuItemCustom drawF = do-  fPtr <- toMenuItemDrawF drawF-  p <- newWithDraw' fPtr-  toRef p--{# fun Fl_Menu_Item_Destroy as destroy' { id `Ptr ()' } -> `()' id #}-instance (impl ~ IO ()) => Op (Destroy ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> destroy' menu_itemPtr--{# fun Fl_Menu_Item_next_with_step as nextWithStep' { id `Ptr ()',`Int' } -> `Ptr ()' id #}-instance (Parent a MenuItem, impl ~ (Int -> IO (Maybe (Ref a)))) => Op (NextWithStep ()) MenuItem orig impl where-  runOp _ _ menu_item step =-    withRef menu_item $ \menu_itemPtr -> nextWithStep' menu_itemPtr step >>= toMaybeRef--{# fun Fl_Menu_Item_next as next' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~  IO (Maybe (Ref MenuItem))) => Op (Next ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> next' menu_itemPtr >>= toMaybeRef--{# fun Fl_Menu_Item_first as first' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~  IO (Maybe (Ref MenuItem))) => Op (GetFirst ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> first' menu_itemPtr >>=toMaybeRef--{# fun Fl_Menu_Item_label as label' { id `Ptr ()' } -> `CString' #}-instance (impl ~  IO T.Text) => Op (GetLabel ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> label' menu_itemPtr >>= cStringToText--{# fun Fl_Menu_Item_set_label as setLabel' { id `Ptr ()', `CString' } -> `()' #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetLabel ()) MenuItem orig impl where-  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> copyTextToCString a >>= setLabel' menu_itemPtr--{# fun Fl_Menu_Item_set_label_with_labeltype as setLabelWithLabeltype' { id `Ptr ()',cFromEnum `Labeltype', `CString' } -> `()' #}-instance (impl ~ (Labeltype -> T.Text ->  IO ())) => Op (SetLabelWithLabeltype ()) MenuItem orig impl where-  runOp _ _ menu_item labeltype b = withRef menu_item $ \menu_itemPtr -> copyTextToCString b >>= setLabelWithLabeltype' menu_itemPtr labeltype--{# fun Fl_Menu_Item_labeltype as labeltype' { id `Ptr ()' } -> `Labeltype' cToEnum #}-instance (impl ~  IO (Labeltype)) => Op (GetLabeltype ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labeltype' menu_itemPtr--{# fun Fl_Menu_Item_set_labeltype as setLabeltype' { id `Ptr ()',cFromEnum `Labeltype' } -> `()' #}-instance (impl ~ (Labeltype ->  IO ())) => Op (SetLabeltype ()) MenuItem orig impl where-  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> setLabeltype' menu_itemPtr a--{# fun Fl_Menu_Item_labelcolor as labelcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~  IO (Color)) => Op (GetLabelcolor ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labelcolor' menu_itemPtr--{# fun Fl_Menu_Item_set_labelcolor as setLabelcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetLabelcolor ()) MenuItem orig impl where-  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> setLabelcolor' menu_itemPtr a--{# fun Fl_Menu_Item_labelfont as labelfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~  IO (Font)) => Op (GetLabelfont ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labelfont' menu_itemPtr--{# fun Fl_Menu_Item_set_labelfont as setLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetLabelfont ()) MenuItem orig impl where-  runOp _ _ menu_item a = withRef menu_item $ \menu_itemPtr -> setLabelfont' menu_itemPtr a--{# fun Fl_Menu_Item_labelsize as labelsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~  IO (FontSize)) => Op (GetLabelsize ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> labelsize' menu_itemPtr >>= return . FontSize--{# fun Fl_Menu_Item_set_labelsize as setLabelsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetLabelsize ()) MenuItem  orig impl where-  runOp _ _ menu_item (FontSize pix) = withRef menu_item $ \menu_itemPtr -> setLabelsize' menu_itemPtr pix--{# fun Fl_Menu_Item_set_callback as setCallback' { id `Ptr ()', id `FunPtr CallbackWithUserDataPrim'} -> `()' #}-instance (impl ~ ((Ref orig -> IO ()) -> IO ()) ) => Op (SetCallback ()) MenuItem orig impl where-  runOp _ _ menu_item c = withRef menu_item $ \menu_itemPtr -> do-                                    ptr <- toCallbackPrim c-                                    setCallback' menu_itemPtr (castFunPtr ptr)--{# fun Fl_Menu_Item_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}-instance (impl ~  IO (Maybe ShortcutKeySequence)) => Op (GetShortcut ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> shortcut' menu_itemPtr >>= return . cIntToKeySequence--{# fun Fl_Menu_Item_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) MenuItem orig impl where-  runOp _ _ input (ShortcutKeySequence modifiers char) =-    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)--{# fun Fl_Menu_Item_submenu as submenu' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~  IO (Bool)) => Op (Submenu ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> submenu' menu_itemPtr--{# fun Fl_Menu_Item_checkbox as checkbox' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~  IO (Bool)) => Op (Checkbox ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> checkbox' menu_itemPtr--{# fun Fl_Menu_Item_radio as radio' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~  IO (Bool)) => Op (Radio ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> radio' menu_itemPtr--{# fun Fl_Menu_Item_value as value' { id `Ptr ()' } -> `Int' #}-instance (impl ~  IO (Int)) => Op (GetValue ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> value' menu_itemPtr--{# fun Fl_Menu_Item_set as set' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (Set ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> set' menu_itemPtr--{# fun Fl_Menu_Item_clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (Clear ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> clear' menu_itemPtr--{# fun Fl_Menu_Item_setonly as setonly' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (Setonly ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> setonly' menu_itemPtr--{# fun Fl_Menu_Item_visible as visible' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~  IO (Bool)) => Op (Visible ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> visible' menu_itemPtr--{# fun Fl_Menu_Item_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (ShowWidget ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> show' menu_itemPtr--{# fun Fl_Menu_Item_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (Hide ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> hide' menu_itemPtr--{# fun Fl_Menu_Item_active as active' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~  IO (Bool)) => Op (Active ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> active' menu_itemPtr--{# fun Fl_Menu_Item_activate as activate' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (Activate ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> activate' menu_itemPtr--{# fun Fl_Menu_Item_deactivate as deactivate' { id `Ptr ()' } -> `()' #}-instance (impl ~  IO ()) => Op (Deactivate ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> deactivate' menu_itemPtr--{# fun Fl_Menu_Item_activevisible as activevisible' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~  IO (Bool)) => Op (Activevisible ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> activevisible' menu_itemPtr--{# fun Fl_Menu_Item_measure as measure' { id `Ptr ()',alloca- `Int' peekIntConv*,id `Ptr ()' } -> `Int' #}-instance (Parent a MenuPrim, impl ~ (Ref a ->  IO (Size))) => Op (Measure ()) MenuItem orig impl where-  runOp _ _ menu_item menu' = withRef menu_item $ \menu_itemPtr -> withRef menu' $ \menuPtr -> measure' menu_itemPtr menuPtr >>= \(h', w') -> return (Size (Width w') (Height h'))--{# fun Fl_Menu_Item_draw_with_t as drawWithT' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (Parent a MenuPrim, impl ~ (Rectangle -> Ref a -> Bool ->  IO ())) => Op (DrawWithT ()) MenuItem orig impl where-  runOp _ _ menu_item rectangle menu' selected =-    let (x_pos', y_pos', width', height') = fromRectangle rectangle in-    withRef menu_item $ \menu_itemPtr -> withRef menu' $ \menuPtr -> drawWithT' menu_itemPtr x_pos' y_pos' width' height' menuPtr selected+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Menu_Item_draw as draw' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedMenu_Item_draw as draw' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()' } -> `()' #} instance (Parent a MenuPrim, impl ~ (Rectangle -> Ref a ->  IO ())) => Op (Draw ()) MenuItem orig impl where   runOp _ _ menu_item rectangle menu' =     let (x_pos', y_pos', width', height') = fromRectangle rectangle in     withRef menu_item $ \menu_itemPtr ->     withRef menu' $ \menuPtr -> draw' menu_itemPtr x_pos' y_pos' width' height' menuPtr -{# fun Fl_Menu_Item_flags as flags' { id `Ptr ()' } -> `Int' #}-instance (impl ~  IO (Maybe MenuItemFlags)) => Op (GetFlags ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> flags' menu_itemPtr >>= return . intToMenuItemFlags--{# fun Fl_Menu_Item_set_flags as setFlags' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (MenuItemFlags ->  IO ())) => Op (SetFlags ()) MenuItem orig impl where-  runOp _ _ menu_item flags = withRef menu_item $ \menu_itemPtr -> setFlags' menu_itemPtr (menuItemFlagsToInt flags)--{# fun Fl_Menu_Item_text as text' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetText ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> text' menu_itemPtr >>= cStringToText--{# fun Fl_Menu_Item_pulldown_with_args as pulldownWithArgs' { id `Ptr ()',`Int',`Int',`Int',`Int',id `Ptr ()', id `Ptr ()', id `Ptr ()', fromBool `Bool'} -> `Ptr ()' id #}-instance (Parent a MenuPrim, Parent b MenuItem, Parent c MenuItem, impl ~ (Rectangle -> Maybe (Ref a) -> Maybe (Ref b) -> Maybe (Ref c) -> Maybe Bool -> IO (Maybe (Ref MenuItem)))) => Op (Pulldown ()) MenuItem orig impl where-  runOp _ _ menu_item rectangle picked' template_menu title menu_barFlag =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-        menu_bar = maybe False id menu_barFlag-    in-     withRef menu_item $ \menu_itemPtr ->-     withMaybeRef picked' $ \pickedPtr ->-     withMaybeRef template_menu $ \template_menuPtr ->-     withMaybeRef title $ \titlePtr ->-     pulldownWithArgs' menu_itemPtr x_pos y_pos width height pickedPtr template_menuPtr titlePtr menu_bar >>= toMaybeRef--{# fun Fl_Menu_Item_popup_with_args as popupWithArgs' { id `Ptr ()',`Int',`Int', id `Ptr CChar' , id `Ptr ()', id `Ptr ()'} -> `Ptr ()' id #}-instance (Parent a MenuItem, Parent b MenuPrim, Parent c MenuItem, impl ~ (Position -> Maybe T.Text -> Maybe (Ref a) -> Maybe (Ref b) -> IO (Maybe (Ref c)))) => Op (Popup ()) MenuItem orig impl where-  runOp _ _ menu_item (Position (X x_pos) (Y y_pos)) title picked' template_menu =-    withRef menu_item $ \menu_itemPtr ->-    withMaybeRef picked' $ \pickedPtr ->-    withMaybeRef template_menu $ \template_menuPtr ->-    maybeNew copyTextToCString title >>= \titlePtr ->-    popupWithArgs' menu_itemPtr x_pos y_pos titlePtr pickedPtr template_menuPtr >>= toMaybeRef--{# fun Fl_Menu_Item_test_shortcut as testShortcut' { id `Ptr ()' } -> `Ptr ()' id #}-instance (Parent a MenuItem, impl ~ ( IO (Maybe (Ref a)))) => Op (TestShortcut ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> testShortcut' menu_itemPtr >>= toMaybeRef--{# fun Fl_Menu_Item_find_shortcut_with_ip_require_alt as findShortcutWithIpRequireAlt' { id `Ptr ()',id `Ptr CInt',`Bool' } -> `Ptr ()' id #}-instance (Parent a MenuItem, impl ~ (Maybe AtIndex -> Bool -> IO (Maybe (Ref a)))) => Op (FindShortcut ()) MenuItem orig impl where-  runOp _ _ menu_item index' require_alt =-    withRef menu_item $ \menu_itemPtr ->-        maybeNew (new . fromIntegral) (fmap (\(AtIndex i) -> i) index') >>= \index_Ptr ->-            findShortcutWithIpRequireAlt' menu_itemPtr index_Ptr require_alt >>= toMaybeRef--{# fun Fl_Menu_Item_do_callback as doCallback' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref Widget  ->  IO ())) => Op (DoCallback ()) MenuItem orig impl where-  runOp _ _ menu_item o = withRef menu_item $ \menu_itemPtr -> withRef o $ \oPtr -> doCallback' menu_itemPtr oPtr--addMenuItem ::-  (Parent menuItem MenuItem) =>-  Either (Ref MenuPrim) (Ref MenuItem) ->-  T.Text ->-  Maybe Shortcut ->-  Maybe (Ref menuItem -> IO ()) ->-  MenuItemFlags ->-  (Ptr () -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->-  (Ptr () -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->-  IO (AtIndex)-addMenuItem refMenuOrMenuItem name shortcut cb flags addWithFlags addWithShortcutnameFlags =-     either-       (\menu -> withRef menu (go "Menu_.add: Shortcut format string cannot be empty" ))-       (\menuItem -> withRef menuItem (go "MenuItem.add: Shortcut format string cannot be empty"))-       refMenuOrMenuItem-    where-      go :: String -> Ptr () -> IO AtIndex-      go errorMsg menu_Ptr = do-        let combinedFlags = menuItemFlagsToInt flags-        ptr <- maybe (return (castPtrToFunPtr nullPtr)) toCallbackPrim cb-        idx' <- case shortcut of-                 Just s' -> case s' of-                   KeySequence (ShortcutKeySequence modifiers char) -> do-                     nameString <- copyTextToCString name-                     addWithFlags-                      menu_Ptr-                      nameString-                      (keySequenceToCInt modifiers char)-                      (castFunPtr ptr)-                      combinedFlags-                   KeyFormat format' ->-                     if (not $ T.null format') then do-                       nameString <- copyTextToCString name-                       formatString <- copyTextToCString format'-                       addWithShortcutnameFlags-                         menu_Ptr-                         nameString-                         formatString-                         (castFunPtr ptr)-                         combinedFlags-                     else error errorMsg-                 Nothing -> do-                     nameString <- copyTextToCString name-                     addWithFlags-                      menu_Ptr-                      nameString-                      0-                      (castFunPtr ptr)-                      combinedFlags-        return (AtIndex idx')--{# fun Fl_Menu_Item_insert_with_flags as insertWithFlags' { id `Ptr ()',`Int', `CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}-{# fun Fl_Menu_Item_add_with_flags as addWithFlags' { id `Ptr ()', `CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}-{# fun Fl_Menu_Item_add_with_shortcutname_flags as addWithShortcutnameFlags' { id `Ptr ()', `CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-instance (Parent a MenuItem, impl ~ (T.Text -> Maybe Shortcut -> Maybe (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Add ()) MenuItem orig impl where-  runOp _ _ menu_item name shortcut cb flags =-    addMenuItem (Right menu_item) name shortcut cb flags addWithFlags' addWithShortcutnameFlags'--instance (Parent a MenuItem, impl ~ (AtIndex -> T.Text -> Maybe ShortcutKeySequence -> (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Insert ()) MenuItem orig impl where-  runOp _ _ menu_item (AtIndex index') name ks cb flags =-    withRef menu_item $ \menu_itemPtr ->-      let combinedFlags = menuItemFlagsToInt flags-          shortcutCode = maybe 0 (\(ShortcutKeySequence modifiers char) -> keySequenceToCInt modifiers char ) ks-      in do-        ptr <- toCallbackPrim cb-        nameString <- copyTextToCString name-        idx' <- insertWithFlags'-                 menu_itemPtr-                 index'-                 nameString-                 shortcutCode-                 (castFunPtr ptr)-                 combinedFlags-        return (AtIndex idx')--{# fun Fl_Menu_Item_size as size' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetSize ()) MenuItem orig impl where-  runOp _ _ menu_item = withRef menu_item $ \menu_itemPtr -> size' menu_itemPtr- -- $hierarchy -- @+-- "Graphics.UI.FLTK.LowLevel.Base.MenuItem"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.MenuItem" -- @  -- $functions -- @--- activate :: 'Ref' 'MenuItem' -> 'IO' ()------ active :: 'Ref' 'MenuItem' -> 'IO' ('Bool')------ activevisible :: 'Ref' 'MenuItem' -> 'IO' ('Bool')------ add:: ('Parent' a 'MenuItem') => 'Ref' 'MenuItem' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')------ checkbox :: 'Ref' 'MenuItem' -> 'IO' ('Bool')------ clear :: 'Ref' 'MenuItem' -> 'IO' ()------ deactivate :: 'Ref' 'MenuItem' -> 'IO' ()------ destroy :: 'Ref' 'MenuItem' -> 'IO' ()------ doCallback :: 'Ref' 'MenuItem' -> 'Ref' 'Widget' -> 'IO' ()--- -- draw:: ('Parent' a 'MenuPrim') => 'Ref' 'MenuItem' -> 'Rectangle' -> 'Ref' a -> 'IO' ()------ drawWithT:: ('Parent' a 'MenuPrim') => 'Ref' 'MenuItem' -> 'Rectangle' -> 'Ref' a -> 'Bool' -> 'IO' ()------ findShortcut:: ('Parent' a 'MenuItem') => 'Ref' 'MenuItem' -> 'Maybe' 'AtIndex' -> 'Bool' -> 'IO' ('Maybe' ('Ref' a))------ getFirst :: 'Ref' 'MenuItem' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))------ getFlags :: 'Ref' 'MenuItem' -> 'IO' ('Maybe' 'MenuItemFlags')------ getLabel :: 'Ref' 'MenuItem' -> 'IO' 'T.Text'------ getLabelcolor :: 'Ref' 'MenuItem' -> 'IO' ('Color')------ getLabelfont :: 'Ref' 'MenuItem' -> 'IO' ('Font')------ getLabelsize :: 'Ref' 'MenuItem' -> 'IO' ('FontSize')------ getLabeltype :: 'Ref' 'MenuItem' -> 'IO' ('Labeltype')------ getShortcut :: 'Ref' 'MenuItem' -> 'IO' ('Maybe' 'ShortcutKeySequence')------ getSize :: 'Ref' 'MenuItem' -> 'IO' ('Int')------ getText :: 'Ref' 'MenuItem' -> 'IO' 'T.Text'------ getValue :: 'Ref' 'MenuItem' -> 'IO' ('Int')------ hide :: 'Ref' 'MenuItem' -> 'IO' ()------ insert:: ('Parent' a 'MenuItem') => 'Ref' 'MenuItem' -> 'AtIndex' -> 'T.Text' -> 'Maybe' 'ShortcutKeySequence' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')------ measure:: ('Parent' a 'MenuPrim') => 'Ref' 'MenuItem' -> 'Ref' a -> 'IO' ('Size')------ next :: 'Ref' 'MenuItem' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))------ nextWithStep:: ('Parent' a 'MenuItem') => 'Ref' 'MenuItem' -> 'Int' -> 'IO' ('Maybe' ('Ref' a))------ popup:: ('Parent' a 'MenuItem', 'Parent' b 'MenuPrim', 'Parent' c 'MenuItem') => 'Ref' 'MenuItem' -> 'Position' -> 'Maybe' 'T.Text' -> 'Maybe' ('Ref' a) -> 'Maybe' ('Ref' b) -> 'IO' ('Maybe' ('Ref' c))------ pulldown:: ('Parent' a 'MenuPrim', 'Parent' b 'MenuItem', 'Parent' c 'MenuItem') => 'Ref' 'MenuItem' -> 'Rectangle' -> 'Maybe' ('Ref' a) -> 'Maybe' ('Ref' b) -> 'Maybe' ('Ref' c) -> 'Maybe' 'Bool' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))------ radio :: 'Ref' 'MenuItem' -> 'IO' ('Bool')------ set :: 'Ref' 'MenuItem' -> 'IO' ()------ setCallback :: 'Ref' 'MenuItem' -> ('Ref' orig -> 'IO' ()) -> 'IO' ()------ setFlags :: 'Ref' 'MenuItem' -> 'MenuItemFlags' -> 'IO' ()------ setLabel :: 'Ref' 'MenuItem' -> 'T.Text' -> 'IO' ()------ setLabelWithLabeltype :: 'Ref' 'MenuItem' -> 'Labeltype' -> 'T.Text' -> 'IO' ()------ setLabelcolor :: 'Ref' 'MenuItem' -> 'Color' -> 'IO' ()------ setLabelfont :: 'Ref' 'MenuItem' -> 'Font' -> 'IO' ()------ setLabelsize :: 'Ref' 'MenuItem' -> 'FontSize' -> 'IO' ()------ setLabeltype :: 'Ref' 'MenuItem' -> 'Labeltype' -> 'IO' ()------ setShortcut :: 'Ref' 'MenuItem' -> 'ShortcutKeySequence' -> 'IO' ()------ setonly :: 'Ref' 'MenuItem' -> 'IO' ()------ showWidget :: 'Ref' 'MenuItem' -> 'IO' ()------ submenu :: 'Ref' 'MenuItem' -> 'IO' ('Bool')------ testShortcut:: ('Parent' a 'MenuItem') => 'Ref' 'MenuItem' -> 'IO' ('Maybe' ('Ref' a))------ visible :: 'Ref' 'MenuItem' -> 'IO' ('Bool') -- @
src/Graphics/UI/FLTK/LowLevel/MenuPrim.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.MenuPrim     (-     menu_New,-     menu_Custom,-     insertMenuItem      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * MenuPrim Functions      --      -- $functions     )@@ -17,411 +14,49 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Menu_C.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)--import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.MenuItem-import qualified Data.ByteString.Char8 as C-import Control.Exception -{# fun Fl_Menu__New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Menu__New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-{# fun Fl_OverriddenMenu__New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenMenu__New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-menu_Custom :: Rectangle -> Maybe T.Text -> Maybe (CustomWidgetFuncs MenuPrim) -> IO (Ref MenuPrim)-menu_Custom rectangle l' funcs' =-  widgetMaker-    rectangle-    l'-    Nothing-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--menu_New :: Rectangle -> Maybe T.Text -> IO (Ref MenuPrim)-menu_New rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Menu__Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) MenuPrim orig impl where-  runOp _ _ menu_ = swapRef menu_ $-                          \menu_Ptr ->-                             widgetDestroy' menu_Ptr >>-                             return nullPtr-{# fun Fl_Menu__handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) MenuPrim orig impl where-  runOp _ _ menu_ event = withRef menu_ $ \menu_Ptr -> handleSuper' menu_Ptr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{#fun Fl_Menu__handle as menu_Handle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedMenu__handle as menuPrimHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) MenuPrim orig impl where-  runOp _ _ menu_ event = withRef menu_ (\p -> menu_Handle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Menu__resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) MenuPrim orig impl where-  runOp _ _ menu_ rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef menu_ $ \menu_Ptr -> resizeSuper' menu_Ptr x_pos y_pos width height-{# fun Fl_Menu__resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) MenuPrim orig impl where-  runOp _ _ menu_ rectangle = withRef menu_ $ \menu_Ptr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' menu_Ptr x_pos y_pos w_pos h_pos-{# fun Fl_Menu__hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> hideSuper' menu_Ptr-{# fun Fl_Menu__hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Hide ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> hide' menu_Ptr-{# fun Fl_Menu__show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> showSuper' menu_Ptr-{# fun Fl_Menu__show as menu_Show' {id `Ptr ()'} -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ShowWidget ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ (\p -> menu_Show' p)--{# fun Fl_Menu__item_pathname_with_finditem as itemPathnameWithFinditem' { id `Ptr ()',id `Ptr CChar',`Int',id `Ptr ()' } -> `Int' #}-{# fun Fl_Menu__item_pathname as itemPathname' { id `Ptr ()',id `Ptr CChar',`Int' } -> `Int' #}-instance (Parent a MenuItem, impl ~ (Ref a -> IO (Maybe T.Text))) => Op (ItemPathname ()) MenuPrim orig impl where-  runOp _ _ menu_ menu_item' =-    withRef menu_ $-    \ menu_Ref ->-     allocaBytes oneKb $ \ptr -> do-       retVal' <- withRef menu_item' $ \ menu_item'Ref -> itemPathnameWithFinditem' menu_Ref (castPtr ptr) oneKb menu_item'Ref-       if (retVal' == -1)-         then return Nothing-         else do-           b' <- cStringToText ptr-           return $ Just b'-instance (impl ~ (IO (Maybe String))) => Op (ItemPathnameRecent ()) MenuPrim orig impl where-  runOp _ _ menu_ =-    withRef menu_ $ \menu_Ptr ->-    allocaBytes oneKb $ \pathPtr -> do-      retVal' <- itemPathname' menu_Ptr (castPtr pathPtr) oneKb-      if (retVal' == -1)-        then return Nothing-        else do-          b' <- C.packCString (castPtr pathPtr)-          return $ Just (C.unpack b')--{# fun Fl_Menu__picked as picked' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}-instance (Parent a MenuItem, Parent b MenuItem, impl ~ (Ref a -> IO (Maybe (Ref b)))) => Op (Picked ()) MenuPrim orig impl where-  runOp _ _ menu_ item = withRef menu_ $ \menu_Ptr -> withRef item $ \itemPtr -> picked' menu_Ptr itemPtr >>= toMaybeRef-{# fun Fl_Menu__find_index_with_name as findIndexWithName' { id `Ptr ()',`CString' } -> `Int' #}-{# fun Fl_Menu__find_index_with_item as findIndexWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (impl ~ (MenuItemLocator -> IO (Maybe Int))) => Op (FindIndex ()) MenuPrim orig impl where-  runOp _ _ menu_ menu_item_referene =-    withRef menu_ $ \menu_Ptr ->-        case menu_item_referene of-          MenuItemNameLocator (MenuItemName name) -> withText name (\n -> findIndexWithName' menu_Ptr n >>= \r -> if (r == -1) then (return Nothing) else (return $ Just r))-          MenuItemPointerLocator (MenuItemPointer menu_item) ->-              withRef menu_item $ \menu_itemPtr -> findIndexWithItem' menu_Ptr menu_itemPtr >>= \r -> if (r == -1) then (return Nothing) else (return $ Just r)-{# fun Fl_Menu__test_shortcut as testShortcut' { id `Ptr ()' } -> `Ptr ()' id #}-instance (Parent a MenuItem, impl ~ ( IO (Maybe (Ref a)))) => Op (TestShortcut ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> testShortcut' menu_Ptr >>= toMaybeRef-{# fun Fl_Menu__global as global' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Global ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> global' menu_Ptr-{# fun Fl_Menu__get_menu_item_by_index as getMenuItemByIndex' { id `Ptr ()', id `CInt' } -> `Ptr ()' id #}-instance (impl ~ ( IO [(Maybe (Ref MenuItem))])) => Op (GetMenu ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> do-    n <- getSize menu_-    if (n == 0)-     then return []-     else go menu_Ptr 0 (n-1) []-      where-        go _ _ 0 accum = return accum-        go ptr offset left accum = do-          ref <- getMenuItemByIndex' ptr offset >>= toMaybeRef-          go ptr-             (offset + 1)-             (left - 1)-             (accum ++ [ref])--{# fun Fl_Menu__menu_with_m as menuWithM' { id `Ptr ()',id `Ptr (Ptr ())',`Int' } -> `()' #}-instance (Parent a MenuItem, impl ~ ([Ref a] -> IO ())) => Op (SetMenu ()) MenuPrim orig impl where-  runOp _ _ menu_ items =-    withRef menu_ $ \menu_Ptr ->-        withRefs items $ \menu_itemsPtr ->-            menuWithM' menu_Ptr menu_itemsPtr (length items)-{# fun Fl_Menu__copy as copy' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a MenuItem, impl ~ (Ref a->  IO ())) => Op (Copy ()) MenuPrim orig impl where-  runOp _ _ menu_ m = withRef menu_ $ \menu_Ptr -> withRef m $ \mPtr -> copy' menu_Ptr mPtr--insertMenuItem ::-  (Parent a MenuPrim) =>-  Ref MenuPrim ->-  Int ->-  T.Text ->-  Maybe Shortcut ->-  (Ref a -> IO ()) ->-  MenuItemFlags ->-  (Ptr () -> Int -> CString -> CInt -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->-  (Ptr () -> Int -> CString -> CString -> FunPtr CallbackWithUserDataPrim -> Int -> IO Int) ->-  IO (AtIndex)-insertMenuItem menu_ index' name shortcut cb flags insertWithFlags'' insertWithShortcutnameFlags'' =-  withRef menu_ $ \menu_Ptr -> do-    let combinedFlags = menuItemFlagsToInt flags-    ptr <- toCallbackPrim cb-    idx' <- case shortcut of-             Just s' -> case s' of-               KeySequence (ShortcutKeySequence modifiers char) -> do-                 n <- copyTextToCString name-                 insertWithFlags''-                  menu_Ptr-                  index'-                  n-                  (keySequenceToCInt modifiers char)-                  (castFunPtr ptr)-                  combinedFlags-               KeyFormat format' -> do-                 f <- copyTextToCString format'-                 n <- copyTextToCString name-                 if (not $ T.null format') then-                   insertWithShortcutnameFlags''-                     menu_Ptr-                     index'-                     n-                     f-                     (castFunPtr ptr)-                     combinedFlags-                 else error "Fl_Menu_.menu_insert: shortcut format string cannot be empty"-             Nothing -> do-               n <- copyTextToCString name-               insertWithFlags''-                 menu_Ptr-                 index'-                 n-                 0-                 (castFunPtr ptr)-                 combinedFlags-    return (AtIndex idx')+  runOp _ _ menuPrim event = withRef menuPrim (\p -> menuPrimHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent -{# fun Fl_Menu__insert_with_flags as insertWithFlags' { id `Ptr ()',`Int',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}-{# fun Fl_Menu__insert_with_shortcutname_flags as insertWithShortcutnameFlags' { id `Ptr ()',`Int',`CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-instance (Parent a MenuPrim, impl ~ ( AtIndex -> T.Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Insert ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex index') name shortcut cb flags =-    insertMenuItem menu_ index' name shortcut cb flags insertWithFlags' insertWithShortcutnameFlags'+{# fun Fl_DerivedMenu__show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) MenuPrim orig impl where+  runOp _ _ menuPrim = withRef menuPrim $ \menuPrimPtr -> show' menuPrimPtr -{# fun Fl_Menu__add_with_name as add' { id `Ptr ()',`CString'} -> `()' #}-instance (impl ~ (T.Text -> IO ())) => Op (AddName ()) MenuPrim orig impl where-  runOp _ _ menu_ name' = withRef menu_ $ \menu_Ptr -> copyTextToCString name' >>= add' menu_Ptr-{# fun Fl_Menu__add_with_flags as addWithFlags' { id `Ptr ()',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-{# fun Fl_Menu__add_with_shortcutname_flags as addWithShortcutnameFlags' { id `Ptr ()', `CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-instance (Parent a MenuItem, impl ~ ( T.Text -> Maybe Shortcut -> Maybe (Ref a-> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Add ()) MenuPrim orig (impl) where-  runOp _ _ menu_ name shortcut cb flags =-    addMenuItem (Left menu_) name shortcut cb flags addWithFlags' addWithShortcutnameFlags'+{# fun Fl_DerivedMenu__resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) MenuPrim orig impl where+  runOp _ _ menuPrim rectangle = withRef menuPrim $ \menuPrimPtr -> do+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' menuPrimPtr x_pos y_pos w_pos h_pos -instance (Parent a MenuItem, impl ~ ( T.Text -> Maybe Shortcut -> Maybe (Ref a-> IO ()) -> MenuItemFlags -> IO (Ref MenuItem))) => Op (AddAndGetMenuItem ()) MenuPrim orig (impl) where-  runOp _ _ menu_ name shortcut cb flags = do-    (AtIndex i) <- add menu_ name shortcut cb flags-    items <- getMenu menu_-    let mi = items !! i-    case mi of-      Just mi' -> return mi'-      Nothing -> throwIO (userError ("FLTK claims the menu item " ++ (T.unpack name) ++ " was added successfully at index " ++ (show i) ++ " , but no MenuItem at that index could be retrieved."))+{# fun Fl_DerivedMenu__hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) MenuPrim orig impl where+  runOp _ _ menuPrim = withRef menuPrim $ \menuPrimPtr -> hide' menuPrimPtr -{# fun Fl_Menu__size as size' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetSize ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> size' menu_Ptr-{# fun Fl_Menu__set_size as setSize' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (Size ->  IO ())) => Op (SetSize ()) MenuPrim orig impl where-  runOp _ _ menu_ (Size (Width w) (Height h)) = withRef menu_ $ \menu_Ptr -> setSize' menu_Ptr w h-{# fun Fl_Menu__clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Clear ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> clear' menu_Ptr-{# fun Fl_Menu__clear_submenu as clearSubmenu' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (Either OutOfRange ()))) => Op (ClearSubmenu ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex index') = withRef menu_ $ \menu_Ptr -> clearSubmenu' menu_Ptr index' >>= \ret' -> if ret' == -1 then return (Left OutOfRange) else return (Right ())-{# fun Fl_Menu__replace as replace' { id `Ptr ()',`Int', `CString' } -> `()' #}-instance (impl ~ (AtIndex -> T.Text ->  IO ())) => Op (Replace ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex index') name = withRef menu_ $ \menu_Ptr -> copyTextToCString name >>= replace' menu_Ptr index'-{# fun Fl_Menu__remove as remove' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (AtIndex ->  IO ())) => Op (Remove ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex index') = withRef menu_ $ \menu_Ptr -> remove' menu_Ptr index'-{# fun Fl_Menu__shortcut as shortcut' { id `Ptr ()',`Int',id `CInt' } -> `()' #}-instance (impl ~ (AtIndex -> ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex index') (ShortcutKeySequence modifiers char) =-    withRef menu_ $ \menu_Ptr ->-        shortcut' menu_Ptr index' (keySequenceToCInt modifiers char)-{# fun Fl_Menu__set_mode as setMode' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (AtIndex -> MenuItemFlags ->  IO ())) => Op (SetMode ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex i) fl = withRef menu_ $ \menu_Ptr -> setMode' menu_Ptr i (menuItemFlagsToInt fl)-{# fun Fl_Menu__mode as mode' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (Maybe MenuItemFlags))) => Op (GetMode ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex i) = withRef menu_ $ \menu_Ptr -> mode' menu_Ptr i >>= return . intToMenuItemFlags-{# fun Fl_Menu__mvalue as mvalue' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref MenuItem)))) => Op (Mvalue ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> mvalue' menu_Ptr >>= toMaybeRef-{# fun Fl_Menu__value as value' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Maybe AtIndex))) => Op (GetValue ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> do-    res <- value' menu_Ptr-    return (if (res == -1) then Nothing else Just (AtIndex res))-{# fun Fl_Menu__value_with_item as valueWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-{# fun Fl_Menu__value_with_index as valueWithIndex' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (MenuItemReference -> IO (Either NoChange ()))) => Op (SetValue ()) MenuPrim orig impl where-  runOp _ _ menu_ menu_item_reference =-    withRef menu_ $ \menu_Ptr ->-        case menu_item_reference of-          (MenuItemByIndex (AtIndex index')) -> valueWithIndex' menu_Ptr index' >>= return . successOrNoChange-          (MenuItemByPointer (MenuItemPointer menu_item)) ->-              withRef menu_item $ \menu_itemPtr ->-                  valueWithItem' menu_Ptr menu_itemPtr >>= return . successOrNoChange-{# fun Fl_Menu__text as text' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetText ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> text' menu_Ptr >>= cStringToText-{# fun Fl_Menu__text_with_index as textWithIndex' { id `Ptr ()',`Int' } -> `CString' #}-instance (impl ~ (AtIndex ->  IO T.Text)) => Op (GetTextWithIndex ()) MenuPrim orig impl where-  runOp _ _ menu_ (AtIndex i) = withRef menu_ $ \menu_Ptr -> textWithIndex' menu_Ptr i >>= cStringToText-{# fun Fl_Menu__textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> textfont' menu_Ptr-{# fun Fl_Menu__set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) MenuPrim orig impl where-  runOp _ _ menu_ c = withRef menu_ $ \menu_Ptr -> setTextfont' menu_Ptr c-{# fun Fl_Menu__textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> textsize' menu_Ptr >>= return . FontSize-{# fun Fl_Menu__set_textsize as setTextsize' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) MenuPrim orig impl where-  runOp _ _ menu_ (FontSize c) = withRef menu_ $ \menu_Ptr -> setTextsize' menu_Ptr c-{# fun Fl_Menu__textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> textcolor' menu_Ptr-{# fun Fl_Menu__set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) MenuPrim orig impl where-  runOp _ _ menu_ c = withRef menu_ $ \menu_Ptr -> setTextcolor' menu_Ptr c-{# fun Fl_Menu__down_box as downBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ ( IO (Boxtype))) => Op (GetDownBox ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> downBox' menu_Ptr-{# fun Fl_Menu__set_down_box as setDownBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}-instance (impl ~ (Boxtype ->  IO ())) => Op (SetDownBox ()) MenuPrim orig impl where-  runOp _ _ menu_ b = withRef menu_ $ \menu_Ptr -> setDownBox' menu_Ptr b-{# fun Fl_Menu__down_color as downColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetDownColor ()) MenuPrim orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> downColor' menu_Ptr-{# fun Fl_Menu__set_down_color as setDownColor' { id `Ptr ()',`CUInt' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetDownColor ()) MenuPrim orig impl where-  runOp _ _ menu_ (Color c) = withRef menu_ $ \menu_Ptr -> setDownColor' menu_Ptr c-{# fun Fl_Menu__set_only as setonly' { id `Ptr ()', id `Ptr ()' } -> `()' #}-instance (Parent a MenuItem, impl ~ (Ref a -> IO ())) => Op (Setonly ()) MenuPrim orig impl where-  runOp _ _ menu_ item = withRef menu_ $ \menu_Ptr ->-                            withRef item $ \item_Ptr -> setonly' menu_Ptr item_Ptr+-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.MenuPrim"+-- @  -- $functions -- @--- add:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')------ addAndGetMenuItem:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('Ref' 'MenuItem')------ addName :: 'Ref' 'MenuPrim' -> 'T.Text' -> 'IO' ()------ clear :: 'Ref' 'MenuPrim' -> 'IO' ()------ clearSubmenu :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'IO' ('Either' 'OutOfRange' ())------ copy:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> 'Ref' a-> 'IO' ()------ destroy :: 'Ref' 'MenuPrim' -> 'IO' ()------ findIndex :: 'Ref' 'MenuPrim' -> 'MenuItemLocator' -> 'IO' ('Maybe' 'Int')------ getDownBox :: 'Ref' 'MenuPrim' -> 'IO' ('Boxtype')------ getDownColor :: 'Ref' 'MenuPrim' -> 'IO' ('Color')------ getMenu :: 'Ref' 'MenuPrim' -> 'IO' [('Maybe' ('Ref' 'MenuItem']))------ getMode :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'IO' ('Maybe' 'MenuItemFlags')------ getSize :: 'Ref' 'MenuPrim' -> 'IO' ('Int')------ getText :: 'Ref' 'MenuPrim' -> 'IO' 'T.Text'------ getTextWithIndex :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'IO' 'T.Text'------ getTextcolor :: 'Ref' 'MenuPrim' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'MenuPrim' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'MenuPrim' -> 'IO' ('FontSize')------ getValue :: 'Ref' 'MenuPrim' -> 'IO' ('Maybe' 'AtIndex')------ global :: 'Ref' 'MenuPrim' -> 'IO' ()--- -- handle :: 'Ref' 'MenuPrim' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'MenuPrim' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'MenuPrim' -> 'IO' () ----- hideSuper :: 'Ref' 'MenuPrim' -> 'IO' ()------ insert:: ('Parent' a 'MenuPrim') => 'Ref' 'MenuPrim' -> 'AtIndex' -> 'T.Text' -> 'Maybe' 'Shortcut' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')------ itemPathname:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> 'Ref' a -> 'IO' ('Maybe' 'T.Text')------ itemPathnameRecent :: 'Ref' 'MenuPrim' -> 'IO' ('Maybe' 'String')------ mvalue :: 'Ref' 'MenuPrim' -> 'IO' ('Maybe' ('Ref' 'MenuItem'))------ picked:: ('Parent' a 'MenuItem', 'Parent' b 'MenuItem') => 'Ref' 'MenuPrim' -> 'Ref' a -> 'IO' ('Maybe' ('Ref' b))------ remove :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'IO' ()------ replace :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'T.Text' -> 'IO' ()--- -- resize :: 'Ref' 'MenuPrim' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'MenuPrim' -> 'Rectangle' -> 'IO' ()------ setDownBox :: 'Ref' 'MenuPrim' -> 'Boxtype' -> 'IO' ()------ setDownColor :: 'Ref' 'MenuPrim' -> 'Color' -> 'IO' ()------ setMenu:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> ['Ref' a] -> 'IO' ()------ setMode :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'MenuItemFlags' -> 'IO' ()------ setShortcut :: 'Ref' 'MenuPrim' -> 'AtIndex' -> 'ShortcutKeySequence' -> 'IO' ()------ setSize :: 'Ref' 'MenuPrim' -> 'Size' -> 'IO' ()------ setTextcolor :: 'Ref' 'MenuPrim' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'MenuPrim' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'MenuPrim' -> 'FontSize' -> 'IO' ()------ setValue :: 'Ref' 'MenuPrim' -> 'MenuItemReference' -> 'IO' ('Either' 'NoChange' ())------ setonly:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> 'Ref' a -> 'IO' ()--- -- showWidget :: 'Ref' 'MenuPrim' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'MenuPrim' -> 'IO' ()------ testShortcut:: ('Parent' a 'MenuItem') => 'Ref' 'MenuPrim' -> 'IO' ('Maybe' ('Ref' a))--- @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuPrim" -- @
src/Graphics/UI/FLTK/LowLevel/MultiLabel.chs view
@@ -120,20 +120,26 @@       setLabela' mlPtr ptr       labelb' mlPtr >>= return . castPtr -instance (Parent a Widget, impl ~ (Ref a -> IO ())) => Op (WidgetLabel ()) MultiLabel orig impl where+instance (Parent a WidgetBase, impl ~ (Ref a -> IO ())) => Op (WidgetLabel ()) MultiLabel orig impl where   runOp _ _ widget widget' =     withRef widget $ \widgetPtr ->     withRef widget' $ \widget'Ptr ->       setWidgetLabel' widgetPtr widget'Ptr-instance (Parent a MenuItem, impl ~ (Ref a -> IO ())) => Op (MenuItemLabel ()) MultiLabel orig impl where+instance (Parent a MenuItemBase, impl ~ (Ref a -> IO ())) => Op (MenuItemLabel ()) MultiLabel orig impl where   runOp _ _ widget widget' =     withRef widget $ \widgetPtr ->     withRef widget' $ \widget'Ptr ->       setMenuItemLabel' widgetPtr widget'Ptr ++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.MultiLabel"+-- @+ -- $functions -- @--- menuItemLabel:: ('Parent' a 'MenuItem') => 'Ref' 'MultiLabel' -> 'Ref' a -> 'IO' ()+-- menuItemLabel:: ('Parent' a 'MenuItemBase') => 'Ref' 'MultiLabel' -> 'Ref' a -> 'IO' () ----- widgetLabel:: ('Parent' a 'Widget') => 'Ref' 'MultiLabel' -> 'Ref' a -> 'IO' ()+-- widgetLabel:: ('Parent' a 'WidgetBase') => 'Ref' 'MultiLabel' -> 'Ref' a -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/NativeFileChooser.chs view
@@ -156,6 +156,7 @@        (-1) -> NativeFileChooserError        x''  -> error $ "NativeFileChooser::showWidget, unknown option:" ++ (show  x'') + -- $hierarchy -- @ -- "Graphics.UI.FLTK.LowLevel.NativeFileChooser"
src/Graphics/UI/FLTK/LowLevel/NiceSlider.chs view
@@ -1,45 +1,23 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.NiceSlider-    (-     niceSliderNew-     -- * Hierarchy-     ---     -- $hierarchy-    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_SliderC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import qualified Data.Text as T-{# fun Fl_Nice_Slider_New as niceSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Nice_Slider_New_WithLabel as niceSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-niceSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref NiceSlider)-niceSliderNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> niceSliderNew' x_pos y_pos width height >>=-                             toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> niceSliderNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.NiceSlider" --  | --  v -- "Graphics.UI.FLTK.LowLevel.NiceSlider"
src/Graphics/UI/FLTK/LowLevel/Output.chs view
@@ -1,147 +1,67 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Output     (-     FlOutputType(..),-     -- * Constructor-     outputNew,-     outputCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Input+     -- * Widget Functions      ---     -- $Input+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h"-#include "Fl_Input_C.h" #include "Fl_OutputC.h"-#include "Fl_Multiline_OutputC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations--#c-enum FlOutputType {-  FlNormalOutput = FL_NORMAL_OUTPUT,-  FlMultilineOutput = FL_MULTILINE_OUTPUT-};-#endc-{# fun Fl_OverriddenOutput_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenOutput_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-outputCustom ::-       Rectangle                         -- ^ The bounds of this Output-    -> Maybe T.Text                      -- ^ The Output label-    -> Maybe (Ref Output -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Output)      -- ^ Optional custom widget functions-    -> IO (Ref Output)-outputCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{#enum FlOutputType {}#}-{# fun Fl_Output_New as outputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Output_New_WithLabel as outputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_Multiline_Output_New as multilineOutputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Multiline_Output_New_WithLabel as multilineOutputNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-outputNew :: Rectangle -> Maybe T.Text -> Maybe FlOutputType -> IO (Ref Output)-outputNew rectangle l' flOutputType =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-        constructor = case flOutputType of-                       Just FlNormalOutput -> maybe outputNew' (\l -> (\x y w h -> copyTextToCString l >>= \l' -> outputNewWithLabel' x y w h l')) l'-                       Just FlMultilineOutput -> maybe multilineOutputNew' (\l -> (\x y w h -> copyTextToCString l >>= \l' -> multilineOutputNewWithLabel' x y w h l')) l'-                       Nothing -> outputNew'-    in do-    ref <- constructor x_pos y_pos width height >>= toRef-    setFlag ref WidgetFlagCopiedLabel-    setFlag ref WidgetFlagCopiedTooltip-    return ref+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (FlOutputType ->  IO ())) => Op (SetType ()) Output orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t) {# fun Fl_Output_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Output orig impl where   runOp _ _ output = withRef output $ \outputPtr -> draw'' outputPtr-{# fun Fl_Output_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Output orig impl where-  runOp _ _ output = withRef output $ \outputPtr -> drawSuper' outputPtr {#fun Fl_Output_handle as outputHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Output orig impl where   runOp _ _ output event = withRef output (\p -> outputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Output_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Output orig impl where-  runOp _ _ output event = withRef output $ \outputPtr -> handleSuper' outputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Output_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Output orig impl where   runOp _ _ output rectangle = withRef output $ \outputPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' outputPtr x_pos y_pos w_pos h_pos-{# fun Fl_Output_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Output orig impl where-  runOp _ _ output rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef output $ \outputPtr -> resizeSuper' outputPtr x_pos y_pos width height {# fun Fl_Output_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Output orig impl where   runOp _ _ output = withRef output $ \outputPtr -> hide' outputPtr-{# fun Fl_Output_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Output orig impl where-  runOp _ _ output = withRef output $ \outputPtr -> hideSuper' outputPtr {# fun Fl_Output_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Output orig impl where   runOp _ _ output = withRef output $ \outputPtr -> show' outputPtr-{# fun Fl_Output_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Output orig impl where-  runOp _ _ output = withRef output $ \outputPtr -> showSuper' outputPtr  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Input"+-- "Graphics.UI.FLTK.LowLevel.Base.Input" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Output"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Output" -- @ --- $Input+-- $functions -- @ -- draw :: 'Ref' 'Output' -> 'IO' () ----- drawSuper :: 'Ref' 'Output' -> 'IO' ()--- -- handle :: 'Ref' 'Output' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Output' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Output' -> 'IO' () ----- hideSuper :: 'Ref' 'Output' -> 'IO' ()--- -- resize :: 'Ref' 'Output' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Output' -> 'Rectangle' -> 'IO' ()------ setType :: 'Ref' 'Output' -> 'FlOutputType' -> 'IO' ()--- -- showWidget :: 'Ref' 'Output' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Output' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/OverlayWindow.chs view
@@ -1,99 +1,72 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ExistentialQuantification #-}+{-# LANGUAGE CPP, UndecidableInstances, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ExistentialQuantification #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.OverlayWindow-    (-     overlayWindowNew-     -- * Hierarchy-     ---     -- $hierarchy--     -- * Functions-     ---     -- $functions-    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where #include "Fl_C.h" #include "Fl_Overlay_WindowC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)+#include "Fl_WidgetC.h"+#include "Fl_GroupC.h"+import Foreign import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import Graphics.UI.FLTK.LowLevel.Widget-import qualified Data.Text as T--{# fun Fl_Overlay_Window_New_WithLabel as windowNewWithLabel' { `Int', `Int', `CString', id `FunPtr CallbackPrim' } -> `Ptr ()' id #}-{# fun Fl_Overlay_Window_New as windowNew' { `Int', `Int', id `FunPtr CallbackPrim' } -> `Ptr ()' id #}-{# fun Fl_Overlay_Window_NewXY_WithLabel as windowNewWithXYLabel' { `Int', `Int', `Int', `Int', `CString', id `FunPtr CallbackPrim' } -> `Ptr ()' id #}-{# fun Fl_Overlay_Window_NewXY as windowNewWithXY' { `Int', `Int', `Int', `Int', id `FunPtr CallbackPrim' } -> `Ptr ()' id #}+import Graphics.UI.FLTK.LowLevel.Hierarchy -overlayWindowNew :: forall a. (Parent a OverlayWindow) => Size -> Maybe T.Text -> Maybe Position -> (Ref a -> IO ()) -> IO (Ref OverlayWindow)-overlayWindowNew (Size (Width width') (Height height')) title' position' callback' =-    do-      fptr <- toCallbackPrim callback'-      ref <- case (title', position') of-              (Just t, Just (Position (X x') (Y y'))) -> copyTextToCString t >>= \t' -> windowNewWithXYLabel' width' height' x' y' t' fptr >>= toRef-              (Nothing, Just (Position (X x') (Y y'))) -> windowNewWithXY' width' height' x' y' fptr >>= toRef-              (Just t, Nothing) -> copyTextToCString t >>= \t' -> windowNewWithLabel' width' height' t' fptr >>= toRef-              (Nothing, Nothing) -> windowNew' width' height' fptr >>= toRef-      setFlag ref WidgetFlagCopiedLabel-      setFlag ref WidgetFlagCopiedTooltip-      return ref-{# fun Fl_Overlay_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' #}-instance (impl ~ (IO ())) => Op (Destroy ()) OverlayWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr-{# fun Fl_Overlay_Window_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (IO ())) => Op (ShowWidget ()) OverlayWindow orig impl where-  runOp _ _ window = withRef window (\p -> show' p)-{# fun Fl_Overlay_Window_flush as flush' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Flush ()) OverlayWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr-{# fun Fl_Overlay_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}+{# fun Fl_DerivedOverlay_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) OverlayWindow orig impl where   runOp _ _ window rectangle = withRef window $ \windowPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' windowPtr x_pos y_pos w_pos h_pos-{# fun Fl_Overlay_Window_hide as hide' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedOverlay_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) OverlayWindow orig impl where+  runOp _ _ window = withRef window (\p -> windowShow' p)++{# fun Fl_DerivedOverlay_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Hide ()) OverlayWindow orig impl where   runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr-{# fun Fl_Overlay_Window_can_do_overlay as canDoOverlay' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Bool))) => Op (CanDoOverlay ()) OverlayWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> canDoOverlay' winPtr >>= return . cToBool-{# fun Fl_Overlay_Window_redraw_overlay as redrawOverlay' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (RedrawOverlay ()) OverlayWindow orig impl where-  runOp _ _ win = withRef win $ \winPtr -> redrawOverlay' winPtr --- $functions--- @------ canDoOverlay :: 'Ref' 'OverlayWindow' -> 'IO' ('Bool')------ destroy :: 'Ref' 'OverlayWindow' -> 'IO' ()------ flush :: 'Ref' 'OverlayWindow' -> 'IO' ()------ hide :: 'Ref' 'OverlayWindow' -> 'IO' ()------ redrawOverlay :: 'Ref' 'OverlayWindow' -> 'IO' ()------ resize :: 'Ref' 'OverlayWindow' -> 'Rectangle' -> 'IO' ()------ showWidget :: 'Ref' 'OverlayWindow' -> 'IO' ()--- @+{# fun Fl_DerivedOverlay_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Destroy ()) OverlayWindow orig impl where+  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr +{# fun Fl_DerivedOverlay_Window_flush as flush' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Flush ()) OverlayWindow orig impl where+  runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr+ -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Window"+-- "Graphics.UI.FLTK.LowLevel.Base.Window" --  | --  v--- "Graphics.UI.FLTK.LowLevel.DoubleWindow"+-- "Graphics.UI.FLTK.LowLevel.Base.DoubleWindow" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.OverlayWindow"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.OverlayWindow"+-- @++-- $functions+-- @+-- destroy :: 'Ref' 'OverlayWindow' -> 'IO' ()+--+-- flush :: 'Ref' 'OverlayWindow' -> 'IO' ()+--+-- hide :: 'Ref' 'OverlayWindow' -> 'IO' ()+--+-- resize :: 'Ref' 'OverlayWindow' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'OverlayWindow' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/PNGImage.chs view
@@ -30,6 +30,7 @@   B.useAsCString data' $ \png' ->     copyTextToCString l' >>= \label -> pngImageNewWithData' label (castPtr png') (B.length data') >>= toRef >>= checkImage + -- $hierarchy -- @ -- "Graphics.UI.FLTK.LowLevel.Image"
src/Graphics/UI/FLTK/LowLevel/Pack.chs view
@@ -1,120 +1,55 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Pack-  (-    PackType(..),-    packNew,-    packCustom-    -- * Hierarchy-    ---    -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -    -- * Functions-    ---    -- $functions-  )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_PackC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-{# fun Fl_OverriddenPack_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenPack_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-packCustom ::-       Rectangle                         -- ^ The bounds of this Pack-    -> Maybe T.Text                      -- ^ The Pack label-    -> Maybe (Ref Pack -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Pack)      -- ^ Optional custom widget functions-    -> IO (Ref Pack)-packCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Pack_New as packNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Pack_New_WithLabel as packNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-packNew :: Rectangle -> Maybe T.Text -> IO (Ref Pack)-packNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Pack_get_spacing as getSpacing' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (IO (Int))) => Op (GetSpacing ()) Pack orig impl where-   runOp _ _ p = withRef p $ \pPtr -> getSpacing' pPtr-{# fun Fl_Pack_set_spacing as setSpacing' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ())) => Op (SetSpacing ()) Pack orig impl where-   runOp _ _ p pixels = withRef p $ \pPtr -> setSpacing' pPtr pixels-{# fun Fl_Pack_horizontal as horizontal' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ ( IO Bool)) => Op (IsHorizontal ()) Pack orig impl where-   runOp _ _ p = withRef p $ \pPtr -> do-     orientation <- horizontal' pPtr >>= return . cToEnum-     case orientation of-       PackHorizontal -> return True-       _  -> return False-{# fun Fl_Pack_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ ( IO (PackType))) => Op (GetType_ ()) Pack orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . cToEnum-{# fun Fl_Pack_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}-instance (impl ~ (PackType ->  IO ())) => Op (SetType ()) Pack orig impl where-   runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (cFromEnum t) {# fun Fl_Pack_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Pack orig impl where   runOp _ _ pack = withRef pack $ \packPtr -> draw'' packPtr-{# fun Fl_Pack_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Pack orig impl where-  runOp _ _ pack = withRef pack $ \packPtr -> drawSuper' packPtr {#fun Fl_Pack_handle as packHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Pack orig impl where   runOp _ _ pack event = withRef pack (\p -> packHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Pack_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Pack orig impl where-  runOp _ _ pack event = withRef pack $ \packPtr -> handleSuper' packPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Pack_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) Pack orig impl where+  runOp _ _ pack = withRef pack $ \packPtr -> show' packPtr+{# fun Fl_Pack_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) Pack orig impl where+  runOp _ _ pack = withRef pack $ \packPtr -> hide' packPtr {# fun Fl_Pack_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Pack orig impl where   runOp _ _ pack rectangle = withRef pack $ \packPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' packPtr x_pos y_pos w_pos h_pos-{# fun Fl_Pack_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Pack orig impl where-  runOp _ _ pack rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef pack $ \packPtr -> resizeSuper' packPtr x_pos y_pos width height-{# fun Fl_Pack_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) Pack orig impl where-  runOp _ _ pack = withRef pack $ \packPtr -> hide' packPtr-{# fun Fl_Pack_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Pack orig impl where-  runOp _ _ pack = withRef pack $ \packPtr -> hideSuper' packPtr-{# fun Fl_Pack_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) Pack orig impl where-  runOp _ _ pack = withRef pack $ \packPtr -> show' packPtr-{# fun Fl_Pack_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Pack orig impl where-  runOp _ _ pack = withRef pack $ \packPtr -> showSuper' packPtr+ -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Pack"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Pack" -- @ @@ -122,31 +57,11 @@ -- @ -- draw :: 'Ref' 'Pack' -> 'IO' () ----- drawSuper :: 'Ref' 'Pack' -> 'IO' ()------ getSpacing :: 'Ref' 'Pack' -> 'IO' ('Int')------ getType_ :: 'Ref' 'Pack' -> 'IO' ('PackType')--- -- handle :: 'Ref' 'Pack' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Pack' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Pack' -> 'IO' () ----- hideSuper :: 'Ref' 'Pack' -> 'IO' ()------ isHorizontal :: 'Ref' 'Pack' -> 'IO' 'Bool'--- -- resize :: 'Ref' 'Pack' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Pack' -> 'Rectangle' -> 'IO' ()------ setSpacing :: 'Ref' 'Pack' -> 'Int' -> 'IO' ()------ setType :: 'Ref' 'Pack' -> 'PackType' -> 'IO' ()--- -- showWidget :: 'Ref' 'Pack' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Pack' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/Pixmap.chs view
@@ -82,9 +82,17 @@ instance (impl ~ ( IO ())) => Op (Uncache ()) Pixmap orig impl where   runOp _ _ pixmap = withRef pixmap $ \pixmapPtr -> uncache' pixmapPtr ++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Image"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Pixmap"+-- @+ -- $functions -- @--- -- colorAverage :: 'Ref' 'Pixmap' -> 'Color' -> 'Float' -> 'IO' () -- -- copy :: 'Ref' 'Pixmap' -> 'Maybe' 'Size' -> 'IO' ('Maybe' ('Ref' 'Pixmap'))@@ -110,12 +118,4 @@ -- inactive :: 'Ref' 'Pixmap' -> 'IO' () -- -- uncache :: 'Ref' 'Pixmap' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Image"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Pixmap" -- @
src/Graphics/UI/FLTK/LowLevel/Positioner.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Positioner     (-     -- * Constructor-     positionerNew,-     positionerCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,194 +15,50 @@ #include "Fl_Types.h" #include "Fl_PositionerC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--{# fun Fl_OverriddenPositioner_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenPositioner_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-positionerCustom ::-       Rectangle                         -- ^ The bounds of this Positioner-    -> Maybe T.Text                      -- ^ The Positioner label-    -> Maybe (Ref Positioner -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Positioner)      -- ^ Optional custom widget functions-    -> IO (Ref Positioner)-positionerCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Positioner_New as positionerNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Positioner_New_WithLabel as positionerNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-positionerNew :: Rectangle -> Maybe T.Text -> IO (Ref Positioner)-positionerNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Positioner_Destroy as positionerDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Positioner orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    positionerDestroy' winPtr-    return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Positioner_set_xvalue as setXvalue' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (PreciseX ->  IO ())) => Op (SetXvalue ()) Positioner orig impl where-  runOp _ _ positioner (PreciseX xvalue) = withRef positioner $ \positionerPtr -> setXvalue' positionerPtr xvalue-{# fun Fl_Positioner_xvalue as xvalue' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (PreciseX))) => Op (GetXvalue ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> xvalue' positionerPtr >>= return . PreciseX-{# fun Fl_Positioner_set_yvalue as setYvalue' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (PreciseY ->  IO ())) => Op (SetYvalue ()) Positioner orig impl where-  runOp _ _ positioner (PreciseY yvalue) = withRef positioner $ \positionerPtr -> setYvalue' positionerPtr yvalue-{# fun Fl_Positioner_yvalue as yvalue' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (PreciseY))) => Op (GetYvalue ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> yvalue' positionerPtr >>= return . PreciseY-{# fun Fl_Positioner_set_xminimum as setXminimum' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (PreciseX ->  IO ())) => Op (SetXminimum ()) Positioner orig impl where-  runOp _ _ positioner (PreciseX xminimum) = withRef positioner $ \positionerPtr -> setXminimum' positionerPtr xminimum-{# fun Fl_Positioner_xminimum as xminimum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (PreciseX))) => Op (GetXminimum ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> xminimum' positionerPtr >>= return . PreciseX-{# fun Fl_Positioner_set_yminimum as setYminimum' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (PreciseY ->  IO ())) => Op (SetYminimum ()) Positioner orig impl where-  runOp _ _ positioner (PreciseY yminimum) = withRef positioner $ \positionerPtr -> setYminimum' positionerPtr yminimum-{# fun Fl_Positioner_yminimum as yminimum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (PreciseY))) => Op (GetYminimum ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> yminimum' positionerPtr >>= return . PreciseY-{# fun Fl_Positioner_set_xmaximum as setXmaximum' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (PreciseX ->  IO ())) => Op (SetXmaximum ()) Positioner orig impl where-  runOp _ _ positioner (PreciseX xmaximum) = withRef positioner $ \positionerPtr -> setXmaximum' positionerPtr xmaximum-{# fun Fl_Positioner_xmaximum as xmaximum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (PreciseX))) => Op (GetXmaximum ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> xmaximum' positionerPtr >>= return . PreciseX-{# fun Fl_Positioner_set_ymaximum as setYmaximum' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (PreciseY ->  IO ())) => Op (SetYmaximum ()) Positioner orig impl where-  runOp _ _ positioner (PreciseY ymaximum) = withRef positioner $ \positionerPtr -> setYmaximum' positionerPtr ymaximum-{# fun Fl_Positioner_ymaximum as ymaximum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (PreciseY))) => Op (GetYmaximum ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> ymaximum' positionerPtr >>= return . PreciseY-{# fun Fl_Positioner_xbounds as xbounds' { id `Ptr ()',`Double',`Double' } -> `()' #}-instance (impl ~ (PreciseX -> PreciseX ->  IO ())) => Op (SetXbounds ()) Positioner orig impl where-  runOp _ _ positioner (PreciseX xstart) (PreciseX xend) = withRef positioner $ \positionerPtr -> xbounds' positionerPtr xstart xend-{# fun Fl_Positioner_ybounds as ybounds' { id `Ptr ()',`Double',`Double' } -> `()' #}-instance (impl ~ (PreciseY -> PreciseY ->  IO ())) => Op (SetYbounds ()) Positioner orig impl where-  runOp _ _ positioner (PreciseY ystart) (PreciseY yend) = withRef positioner $ \positionerPtr -> ybounds' positionerPtr ystart yend-{# fun Fl_Positioner_xstep as xstep' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (Double ->  IO ())) => Op (SetXstep ()) Positioner orig impl where-  runOp _ _ positioner xstep = withRef positioner $ \positionerPtr -> xstep' positionerPtr xstep-{# fun Fl_Positioner_ystep as ystep' { id `Ptr ()',`Double' } -> `()' #}-instance (impl ~ (Double ->  IO ())) => Op (SetYstep ()) Positioner orig impl where-  runOp _ _ positioner ystep = withRef positioner $ \positionerPtr -> ystep' positionerPtr ystep {# fun Fl_Positioner_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Positioner orig impl where   runOp _ _ positioner = withRef positioner $ \positionerPtr -> draw'' positionerPtr-{# fun Fl_Positioner_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> drawSuper' positionerPtr {#fun Fl_Positioner_handle as positionerHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Positioner orig impl where   runOp _ _ positioner event = withRef positioner (\p -> positionerHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Positioner_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Positioner orig impl where-  runOp _ _ positioner event = withRef positioner $ \positionerPtr -> handleSuper' positionerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Positioner_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Positioner orig impl where   runOp _ _ positioner rectangle = withRef positioner $ \positionerPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' positionerPtr x_pos y_pos w_pos h_pos-{# fun Fl_Positioner_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Positioner orig impl where-  runOp _ _ positioner rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef positioner $ \positionerPtr -> resizeSuper' positionerPtr x_pos y_pos width height {# fun Fl_Positioner_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Positioner orig impl where   runOp _ _ positioner = withRef positioner $ \positionerPtr -> hide' positionerPtr-{# fun Fl_Positioner_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> hideSuper' positionerPtr {# fun Fl_Positioner_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Positioner orig impl where   runOp _ _ positioner = withRef positioner $ \positionerPtr -> show' positionerPtr-{# fun Fl_Positioner_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Positioner orig impl where-  runOp _ _ positioner = withRef positioner $ \positionerPtr -> showSuper' positionerPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Positioner"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Positioner"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'Positioner' -> 'IO' ()--- -- draw :: 'Ref' 'Positioner' -> 'IO' () ----- drawSuper :: 'Ref' 'Positioner' -> 'IO' ()------ getXmaximum :: 'Ref' 'Positioner' -> 'IO' ('PreciseX')------ getXminimum :: 'Ref' 'Positioner' -> 'IO' ('PreciseX')------ getXvalue :: 'Ref' 'Positioner' -> 'IO' ('PreciseX')------ getYmaximum :: 'Ref' 'Positioner' -> 'IO' ('PreciseY')------ getYminimum :: 'Ref' 'Positioner' -> 'IO' ('PreciseY')------ getYvalue :: 'Ref' 'Positioner' -> 'IO' ('PreciseY')--- -- handle :: 'Ref' 'Positioner' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Positioner' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Positioner' -> 'IO' () ----- hideSuper :: 'Ref' 'Positioner' -> 'IO' ()--- -- resize :: 'Ref' 'Positioner' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Positioner' -> 'Rectangle' -> 'IO' ()------ setXbounds :: 'Ref' 'Positioner' -> 'PreciseX' -> 'PreciseX' -> 'IO' ()------ setXmaximum :: 'Ref' 'Positioner' -> 'PreciseX' -> 'IO' ()------ setXminimum :: 'Ref' 'Positioner' -> 'PreciseX' -> 'IO' ()------ setXstep :: 'Ref' 'Positioner' -> 'Double' -> 'IO' ()------ setXvalue :: 'Ref' 'Positioner' -> 'PreciseX' -> 'IO' ()------ setYbounds :: 'Ref' 'Positioner' -> 'PreciseY' -> 'PreciseY' -> 'IO' ()------ setYmaximum :: 'Ref' 'Positioner' -> 'PreciseY' -> 'IO' ()------ setYminimum :: 'Ref' 'Positioner' -> 'PreciseY' -> 'IO' ()------ setYstep :: 'Ref' 'Positioner' -> 'Double' -> 'IO' ()------ setYvalue :: 'Ref' 'Positioner' -> 'PreciseY' -> 'IO' ()--- -- showWidget :: 'Ref' 'Positioner' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Positioner' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Positioner" -- @
src/Graphics/UI/FLTK/LowLevel/Progress.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Progress     (-     -- * Constructor-     progressNew,-     progressCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,145 +15,50 @@ #include "Fl_Types.h" #include "Fl_ProgressC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenProgress_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenProgress_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-progressCustom ::-       Rectangle                         -- ^ The bounds of this Progress-    -> Maybe T.Text                      -- ^ The Progress label-    -> Maybe (Ref Progress -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Progress)      -- ^ Optional custom widget functions-    -> IO (Ref Progress)-progressCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Progress_New as progressNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Progress_New_WithLabel as progressNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-progressNew :: Rectangle -> Maybe T.Text -> IO (Ref Progress)-progressNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Progress_Destroy as progressDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) Progress orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    progressDestroy' winPtr-    return nullPtr-{# fun Fl_Progress_set_maximum as setMaximum' { id `Ptr ()',`Float' } -> `()' #}-instance (impl ~ (Float ->  IO ())) => Op (SetMaximum ()) Progress orig impl where-  runOp _ _ progress v = withRef progress $ \progressPtr -> setMaximum' progressPtr v-{# fun Fl_Progress_maximum as maximum' { id `Ptr ()' } -> `Float' #}-instance (impl ~ ( IO (Float))) => Op (GetMaximum ()) Progress orig impl where-  runOp _ _ progress = withRef progress $ \progressPtr -> maximum' progressPtr-{# fun Fl_Progress_set_minimum as setMinimum' { id `Ptr ()',`Float' } -> `()' #}-instance (impl ~ (Float ->  IO ())) => Op (SetMinimum ()) Progress orig impl where-  runOp _ _ progress v = withRef progress $ \progressPtr -> setMinimum' progressPtr v-{# fun Fl_Progress_minimum as minimum' { id `Ptr ()' } -> `Float' #}-instance (impl ~ ( IO (Float))) => Op (GetMinimum ()) Progress orig impl where-  runOp _ _ progress = withRef progress $ \progressPtr -> minimum' progressPtr-{# fun Fl_Progress_set_value as setValue' { id `Ptr ()',`Float' } -> `()' #}-instance (impl ~ (Float ->  IO ())) => Op (SetValue ()) Progress orig impl where-  runOp _ _ progress v = withRef progress $ \progressPtr -> setValue' progressPtr v-{# fun Fl_Progress_value as value' { id `Ptr ()' } -> `Float' #}-instance (impl ~ ( IO (Float))) => Op (GetValue ()) Progress orig impl where-  runOp _ _ progress = withRef progress $ \progressPtr -> value' progressPtr {# fun Fl_Progress_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Progress orig impl where   runOp _ _ progress = withRef progress $ \progressPtr -> draw'' progressPtr-{# fun Fl_Progress_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Progress orig impl where-  runOp _ _ progress = withRef progress $ \progressPtr -> drawSuper' progressPtr {#fun Fl_Progress_handle as progressHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Progress orig impl where   runOp _ _ progress event = withRef progress (\p -> progressHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Progress_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Progress orig impl where-  runOp _ _ progress event = withRef progress $ \progressPtr -> handleSuper' progressPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Progress_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Progress orig impl where   runOp _ _ progress rectangle = withRef progress $ \progressPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' progressPtr x_pos y_pos w_pos h_pos-{# fun Fl_Progress_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Progress orig impl where-  runOp _ _ progress rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef progress $ \progressPtr -> resizeSuper' progressPtr x_pos y_pos width height {# fun Fl_Progress_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Progress orig impl where   runOp _ _ progress = withRef progress $ \progressPtr -> hide' progressPtr-{# fun Fl_Progress_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Progress orig impl where-  runOp _ _ progress = withRef progress $ \progressPtr -> hideSuper' progressPtr {# fun Fl_Progress_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Progress orig impl where   runOp _ _ progress = withRef progress $ \progressPtr -> show' progressPtr-{# fun Fl_Progress_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Progress orig impl where-  runOp _ _ progress = withRef progress $ \progressPtr -> showSuper' progressPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Progress"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Progress"+-- @+ -- $functions -- @------ destroy :: 'Ref' 'Progress' -> 'IO' ()--- -- draw :: 'Ref' 'Progress' -> 'IO' () ----- drawSuper :: 'Ref' 'Progress' -> 'IO' ()------ getMaximum :: 'Ref' 'Progress' -> 'IO' ('Float')------ getMinimum :: 'Ref' 'Progress' -> 'IO' ('Float')------ getValue :: 'Ref' 'Progress' -> 'IO' ('Float')--- -- handle :: 'Ref' 'Progress' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Progress' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Progress' -> 'IO' () ----- hideSuper :: 'Ref' 'Progress' -> 'IO' ()--- -- resize :: 'Ref' 'Progress' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Progress' -> 'Rectangle' -> 'IO' ()------ setMaximum :: 'Ref' 'Progress' -> 'Float' -> 'IO' ()------ setMinimum :: 'Ref' 'Progress' -> 'Float' -> 'IO' ()------ setValue :: 'Ref' 'Progress' -> 'Float' -> 'IO' ()--- -- showWidget :: 'Ref' 'Progress' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Progress' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Progress" -- @
src/Graphics/UI/FLTK/LowLevel/RadioLightButton.chs view
@@ -1,46 +1,23 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.RadioLightButton-    (-     radioLightButtonNew-     -- * Hierarchy-     ---     -- $hierarchy-    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_Radio_Light_ButtonC.h"-#include "Fl_WidgetC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) -import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import qualified Data.Text as T-{# fun Fl_Radio_Light_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Radio_Light_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-radioLightButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RadioLightButton)-radioLightButtonNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> widgetNew' x_pos y_pos width height >>= toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> widgetNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref- -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Button"+-- "Graphics.UI.FLTK.LowLevel.Base.Button" --  | --  v--- "Graphics.UI.FLTK.LowLevel.LightButton"+-- "Graphics.UI.FLTK.LowLevel.Base.LightButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.RadioLightButton" --  | --  v -- "Graphics.UI.FLTK.LowLevel.RadioLightButton"
src/Graphics/UI/FLTK/LowLevel/RepeatButton.chs view
@@ -1,141 +1,67 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.RepeatButton     (-    repeatButtonNew,-    repeatButtonCustom-    -- * Hierarchy-    ---    -- $hierarchy+     -- * Hierarchy+     --+     -- $hierarchy -    -- * Functions-    ---    -- $functions+     -- * Widget Functions+     --+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Repeat_ButtonC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)--import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenRepeat_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenRepeat_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-repeatButtonCustom ::-       Rectangle                         -- ^ The bounds of this RepeatButton-    -> Maybe T.Text                      -- ^ The RepeatButton label-    -> Maybe (Ref RepeatButton -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs RepeatButton)      -- ^ Optional custom widget functions-    -> IO (Ref RepeatButton)-repeatButtonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Repeat_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Repeat_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-repeatButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RepeatButton)-repeatButtonNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Repeat_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) RepeatButton orig impl where-  runOp _ _ button = swapRef button $-                    \buttonPtr ->-                     widgetDestroy' buttonPtr >>-                     return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{#fun Fl_Repeat_Button_deactivate as deactivate' { id `Ptr ()'} -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Deactivate ()) RepeatButton orig impl where-  runOp _ _ button = withRef button (\p -> deactivate' p )-{# fun Fl_Repeat_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedRepeat_Button_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) RepeatButton orig impl where   runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> draw'' repeatButtonPtr-{# fun Fl_Repeat_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) RepeatButton orig impl where-  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> drawSuper' repeatButtonPtr-{#fun Fl_Repeat_Button_handle as repeatButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedRepeat_Button_handle as repeatButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) RepeatButton orig impl where   runOp _ _ repeatButton event = withRef repeatButton (\p -> repeatButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Repeat_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) RepeatButton orig impl where-  runOp _ _ repeatButton event = withRef repeatButton $ \repeatButtonPtr -> handleSuper' repeatButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Repeat_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedRepeat_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) RepeatButton orig impl where   runOp _ _ repeatButton rectangle = withRef repeatButton $ \repeatButtonPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' repeatButtonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Repeat_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) RepeatButton orig impl where-  runOp _ _ repeatButton rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef repeatButton $ \repeatButtonPtr -> resizeSuper' repeatButtonPtr x_pos y_pos width height-{# fun Fl_Repeat_Button_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) RepeatButton orig impl where-  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> hide' repeatButtonPtr-{# fun Fl_Repeat_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) RepeatButton orig impl where-  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> hideSuper' repeatButtonPtr-{# fun Fl_Repeat_Button_show as show' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedRepeat_Button_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) RepeatButton orig impl where   runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> show' repeatButtonPtr-{# fun Fl_Repeat_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) RepeatButton orig impl where-  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> showSuper' repeatButtonPtr+{# fun Fl_DerivedRepeat_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) RepeatButton orig impl where+  runOp _ _ repeatButton = withRef repeatButton $ \repeatButtonPtr -> hide' repeatButtonPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.RepeatButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.RepeatButton"+-- @+ -- $functions -- @--- deactivate :: 'Ref' 'RepeatButton' -> 'IO' ()------ destroy :: 'Ref' 'RepeatButton' -> 'IO' ()--- -- draw :: 'Ref' 'RepeatButton' -> 'IO' () ----- drawSuper :: 'Ref' 'RepeatButton' -> 'IO' ()--- -- handle :: 'Ref' 'RepeatButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'RepeatButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'RepeatButton' -> 'IO' () ----- hideSuper :: 'Ref' 'RepeatButton' -> 'IO' ()--- -- resize :: 'Ref' 'RepeatButton' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'RepeatButton' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'RepeatButton' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'RepeatButton' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Button"---  |---  v--- "Graphics.UI.FLTK.LowLevel.RepeatButton" -- @
src/Graphics/UI/FLTK/LowLevel/ReturnButton.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ReturnButton     (-     returnButtonNew,-     returnButtonCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -16,122 +14,54 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Return_ButtonC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)--import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenReturn_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenReturn_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-returnButtonCustom ::-       Rectangle                         -- ^ The bounds of this ReturnButton-    -> Maybe T.Text                      -- ^ The ReturnButton label-    -> Maybe (Ref ReturnButton -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs ReturnButton)      -- ^ Optional custom widget functions-    -> IO (Ref ReturnButton)-returnButtonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Return_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Return_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-returnButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref ReturnButton)-returnButtonNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Return_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~  IO ()) => Op (Destroy ()) ReturnButton orig impl where-  runOp _ _ button = swapRef button $-                    \buttonPtr ->-                     widgetDestroy' buttonPtr >>-                     return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Return_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedReturn_Button_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) ReturnButton orig impl where   runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> draw'' returnButtonPtr-{# fun Fl_Return_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) ReturnButton orig impl where-  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> drawSuper' returnButtonPtr-{#fun Fl_Return_Button_handle as returnButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedReturn_Button_handle as returnButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ReturnButton orig impl where   runOp _ _ returnButton event = withRef returnButton (\p -> returnButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Return_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) ReturnButton orig impl where-  runOp _ _ returnButton event = withRef returnButton $ \returnButtonPtr -> handleSuper' returnButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Return_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedReturn_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ReturnButton orig impl where   runOp _ _ returnButton rectangle = withRef returnButton $ \returnButtonPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' returnButtonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Return_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) ReturnButton orig impl where-  runOp _ _ returnButton rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef returnButton $ \returnButtonPtr -> resizeSuper' returnButtonPtr x_pos y_pos width height-{# fun Fl_Return_Button_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) ReturnButton orig impl where-  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> hide' returnButtonPtr-{# fun Fl_Return_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) ReturnButton orig impl where-  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> hideSuper' returnButtonPtr-{# fun Fl_Return_Button_show as show' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedReturn_Button_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) ReturnButton orig impl where   runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> show' returnButtonPtr-{# fun Fl_Return_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) ReturnButton orig impl where-  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> showSuper' returnButtonPtr+{# fun Fl_DerivedReturn_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) ReturnButton orig impl where+  runOp _ _ returnButton = withRef returnButton $ \returnButtonPtr -> hide' returnButtonPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ReturnButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.ReturnButton"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'ReturnButton' -> 'IO' ()--- -- draw :: 'Ref' 'ReturnButton' -> 'IO' () ----- drawSuper :: 'Ref' 'ReturnButton' -> 'IO' ()--- -- handle :: 'Ref' 'ReturnButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'ReturnButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'ReturnButton' -> 'IO' () ----- hideSuper :: 'Ref' 'ReturnButton' -> 'IO' ()--- -- resize :: 'Ref' 'ReturnButton' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'ReturnButton' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'ReturnButton' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'ReturnButton' -> 'IO' ()------ @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Button"---  |---  v--- "Graphics.UI.FLTK.LowLevel.ReturnButton" -- @
src/Graphics/UI/FLTK/LowLevel/Roller.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Roller     (-     -- * Constructor-     rollerNew,-     rollerCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,114 +15,53 @@ #include "Fl_Types.h" #include "Fl_RollerC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-{# fun Fl_OverriddenRoller_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenRoller_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-rollerCustom ::-       Rectangle                         -- ^ The bounds of this Roller-    -> Maybe T.Text                      -- ^ The Roller label-    -> Maybe (Ref Roller -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Roller)      -- ^ Optional custom widget functions-    -> IO (Ref Roller)-rollerCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Roller_New as rollerNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Roller_New_WithLabel as rollerNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-rollerNew :: Rectangle -> Maybe T.Text -> IO (Ref Roller)-rollerNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Roller_Destroy as rollerDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Roller orig impl where-  runOp _ _ roller = swapRef roller $ \rollerPtr -> do-    rollerDestroy' rollerPtr-    return nullPtr {# fun Fl_Roller_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Roller orig impl where   runOp _ _ roller = withRef roller $ \rollerPtr -> draw'' rollerPtr-{# fun Fl_Roller_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Roller orig impl where-  runOp _ _ roller = withRef roller $ \rollerPtr -> drawSuper' rollerPtr {#fun Fl_Roller_handle as rollerHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Roller orig impl where   runOp _ _ roller event = withRef roller (\p -> rollerHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Roller_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Roller orig impl where-  runOp _ _ roller event = withRef roller $ \rollerPtr -> handleSuper' rollerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Roller_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Roller orig impl where   runOp _ _ roller rectangle = withRef roller $ \rollerPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' rollerPtr x_pos y_pos w_pos h_pos-{# fun Fl_Roller_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Roller orig impl where-  runOp _ _ roller rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef roller $ \rollerPtr -> resizeSuper' rollerPtr x_pos y_pos width height {# fun Fl_Roller_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Roller orig impl where   runOp _ _ roller = withRef roller $ \rollerPtr -> hide' rollerPtr-{# fun Fl_Roller_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Roller orig impl where-  runOp _ _ roller = withRef roller $ \rollerPtr -> hideSuper' rollerPtr {# fun Fl_Roller_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Roller orig impl where   runOp _ _ roller = withRef roller $ \rollerPtr -> show' rollerPtr-{# fun Fl_Roller_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Roller orig impl where-  runOp _ _ roller = withRef roller $ \rollerPtr -> showSuper' rollerPtr++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Roller"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Roller"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'Roller' -> 'IO' ()--- -- draw :: 'Ref' 'Roller' -> 'IO' () ----- drawSuper :: 'Ref' 'Roller' -> 'IO' ()--- -- handle :: 'Ref' 'Roller' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Roller' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Roller' -> 'IO' () ----- hideSuper :: 'Ref' 'Roller' -> 'IO' ()--- -- resize :: 'Ref' 'Roller' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Roller' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'Roller' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Roller' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Roller" -- @
src/Graphics/UI/FLTK/LowLevel/RoundButton.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.RoundButton     (-     roundButtonNew,-     roundButtonCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -16,116 +14,54 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Round_ButtonC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-{# fun Fl_OverriddenRound_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenRound_Button_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-roundButtonCustom ::-       Rectangle                         -- ^ The bounds of this RoundButton-    -> Maybe T.Text                      -- ^ The RoundButton label-    -> Maybe (Ref RoundButton -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs RoundButton)      -- ^ Optional custom widget functions-    -> IO (Ref RoundButton)-roundButtonCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-{# fun Fl_Round_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Round_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-roundButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RoundButton)-roundButtonNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Round_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ IO ()) => Op (Destroy ()) RoundButton orig impl where-  runOp _ _ button = swapRef button $-                    \buttonPtr ->-                     widgetDestroy' buttonPtr >>-                     return nullPtr-{# fun Fl_Round_Button_draw as draw'' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedRound_Button_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) RoundButton orig impl where   runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> draw'' roundButtonPtr-{# fun Fl_Round_Button_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) RoundButton orig impl where-  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> drawSuper' roundButtonPtr-{#fun Fl_Round_Button_handle as roundButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedRound_Button_handle as roundButtonHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) RoundButton orig impl where   runOp _ _ roundButton event = withRef roundButton (\p -> roundButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Round_Button_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) RoundButton orig impl where-  runOp _ _ roundButton event = withRef roundButton $ \roundButtonPtr -> handleSuper' roundButtonPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Round_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedRound_Button_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) RoundButton orig impl where   runOp _ _ roundButton rectangle = withRef roundButton $ \roundButtonPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' roundButtonPtr x_pos y_pos w_pos h_pos-{# fun Fl_Round_Button_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) RoundButton orig impl where-  runOp _ _ roundButton rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef roundButton $ \roundButtonPtr -> resizeSuper' roundButtonPtr x_pos y_pos width height-{# fun Fl_Round_Button_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) RoundButton orig impl where-  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> hide' roundButtonPtr-{# fun Fl_Round_Button_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) RoundButton orig impl where-  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> hideSuper' roundButtonPtr-{# fun Fl_Round_Button_show as show' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedRound_Button_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) RoundButton orig impl where   runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> show' roundButtonPtr-{# fun Fl_Round_Button_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) RoundButton orig impl where-  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> showSuper' roundButtonPtr+{# fun Fl_DerivedRound_Button_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) RoundButton orig impl where+  runOp _ _ roundButton = withRef roundButton $ \roundButtonPtr -> hide' roundButtonPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.RoundButton"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.RoundButton"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'RoundButton' -> 'IO' ()--- -- draw :: 'Ref' 'RoundButton' -> 'IO' () ----- drawSuper :: 'Ref' 'RoundButton' -> 'IO' ()--- -- handle :: 'Ref' 'RoundButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'RoundButton' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'RoundButton' -> 'IO' () ----- hideSuper :: 'Ref' 'RoundButton' -> 'IO' ()--- -- resize :: 'Ref' 'RoundButton' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'RoundButton' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'RoundButton' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'RoundButton' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Button"---  |---  v--- "Graphics.UI.FLTK.LowLevel.RoundButton" -- @
src/Graphics/UI/FLTK/LowLevel/Scrollbar.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Scrollbar     (-     -- * Constructor-     scrollbarNew,-     scrollbarCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -17,151 +14,53 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_ScrollbarC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--{# fun Fl_OverriddenScrollbar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenScrollbar_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-scrollbarCustom ::-       Rectangle                         -- ^ The bounds of this Scrollbar-    -> Maybe T.Text                      -- ^ The Scrollbar label-    -> Maybe (Ref Scrollbar -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Scrollbar)      -- ^ Optional custom widget functions-    -> IO (Ref Scrollbar)-scrollbarCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy  -{# fun Fl_Scrollbar_New as scrollbarNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Scrollbar_New_WithLabel as scrollbarNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-scrollbarNew :: Rectangle -> Maybe T.Text -> IO (Ref Scrollbar)-scrollbarNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Scrollbar_Destroy as scrollbarDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Scrollbar orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    scrollbarDestroy' winPtr-    return nullPtr--{# fun Fl_Scrollbar_scrollvalue as scrollvalue' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `Int' #}-instance (impl ~ (Y -> Lines -> LineNumber -> Lines ->  IO (Int))) => Op (Scrollvalue ()) Scrollbar orig impl where-  runOp _ _ slider (Y pos) (Lines size) (LineNumber first) (Lines total) = withRef slider $ \sliderPtr -> scrollvalue' sliderPtr pos size first total--{# fun Fl_Scrollbar_set_linesize as setLinesize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (LineSize ->  IO ())) => Op (SetLinesize ()) Scrollbar orig impl where-  runOp _ _ slider (LineSize i) = withRef slider $ \sliderPtr -> setLinesize' sliderPtr i--{# fun Fl_Scrollbar_linesize as linesize' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO LineSize)) => Op (GetLinesize ()) Scrollbar orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> linesize' sliderPtr >>= return . LineSize--{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (ScrollbarType ->  IO ())) => Op (SetType ()) Scrollbar orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (ScrollbarType)) => Op (GetType_ ()) Scrollbar orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger- {# fun Fl_Scrollbar_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Scrollbar orig impl where   runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> draw'' scrollbarPtr-{# fun Fl_Scrollbar_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Scrollbar orig impl where-  runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> drawSuper' scrollbarPtr-{#fun Fl_Scrollbar_handle as scrollbarHandle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Scrollbar orig impl where-  runOp _ _ scrollbar event = withRef scrollbar (\p -> scrollbarHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Scrollbar_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Scrollbar orig impl where-  runOp _ _ scrollbar event = withRef scrollbar $ \scrollbarPtr -> handleSuper' scrollbarPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Scrollbar_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Scrollbar orig impl where   runOp _ _ scrollbar rectangle = withRef scrollbar $ \scrollbarPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' scrollbarPtr x_pos y_pos w_pos h_pos-{# fun Fl_Scrollbar_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Scrollbar orig impl where-  runOp _ _ scrollbar rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef scrollbar $ \scrollbarPtr -> resizeSuper' scrollbarPtr x_pos y_pos width height {# fun Fl_Scrollbar_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Scrollbar orig impl where   runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> hide' scrollbarPtr-{# fun Fl_Scrollbar_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Scrollbar orig impl where-  runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> hideSuper' scrollbarPtr {# fun Fl_Scrollbar_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Scrollbar orig impl where   runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> show' scrollbarPtr-{# fun Fl_Scrollbar_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Scrollbar orig impl where-  runOp _ _ scrollbar = withRef scrollbar $ \scrollbarPtr -> showSuper' scrollbarPtr --- $functions--- @--- destroy :: 'Ref' 'Scrollbar' -> 'IO' ()------ draw :: 'Ref' 'Scrollbar' -> 'IO' ()------ drawSuper :: 'Ref' 'Scrollbar' -> 'IO' ()------ getLinesize :: 'Ref' 'Scrollbar' -> 'IO' 'LineSize'------ getType_ :: 'Ref' 'Scrollbar' -> 'IO' ('ScrollbarType')------ handle :: 'Ref' 'Scrollbar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ handleSuper :: 'Ref' 'Scrollbar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ hide :: 'Ref' 'Scrollbar' -> 'IO' ()------ hideSuper :: 'Ref' 'Scrollbar' -> 'IO' ()------ resize :: 'Ref' 'Scrollbar' -> 'Rectangle' -> 'IO' ()------ resizeSuper :: 'Ref' 'Scrollbar' -> 'Rectangle' -> 'IO' ()------ scrollvalue :: 'Ref' 'Scrollbar' -> 'Y' -> 'Lines' -> 'LineNumber' -> 'Lines' -> 'IO' ('Int')------ setLinesize :: 'Ref' 'Scrollbar' -> 'LineSize' -> 'IO' ()------ setType :: 'Ref' 'Scrollbar' -> 'ScrollbarType' -> 'IO' ()------ showWidget :: 'Ref' 'Scrollbar' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Scrollbar' -> 'IO' ()--- @- -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Valuator"+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Slider"+-- "Graphics.UI.FLTK.LowLevel.Base.Slider" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Scrollbar"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Scrollbar"+-- @++-- $functions+-- @+-- draw :: 'Ref' 'Scrollbar' -> 'IO' ()+--+-- hide :: 'Ref' 'Scrollbar' -> 'IO' ()+--+-- resize :: 'Ref' 'Scrollbar' -> 'Rectangle' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Scrollbar' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/Scrolled.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Scrolled     (-     -- * Constructor-     scrolledNew,-     scrolledCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,148 +15,53 @@ #include "Fl_Types.h" #include "Fl_ScrollC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-{# fun Fl_OverriddenScroll_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenScroll_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-scrolledCustom ::-       Rectangle                         -- ^ The bounds of this Scrolled-    -> Maybe T.Text                      -- ^ The Scrolled label-    -> Maybe (Ref Scrolled -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Scrolled)      -- ^ Optional custom widget functions-    -> IO (Ref Scrolled)-scrolledCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Scroll_New as scrollNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Scroll_New_WithLabel as scrollNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-scrolledNew :: Rectangle -> Maybe T.Text -> IO (Ref Scrolled)-scrolledNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-{# fun Fl_Scroll_set_scrollbar_size as setScrollbarSize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ())) => Op (SetScrollbarSize ()) Scrolled orig impl where-   runOp _ _ widget size = withRef widget $ \widgetPtr -> setScrollbarSize' widgetPtr size-{# fun Fl_Scroll_get_scrollbar_size as getScrollbarSize' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetScrollbarSize ()) Scrolled orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> getScrollbarSize' widgetPtr-{# fun Fl_Scroll_clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Clear ()) Scrolled orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> clear' widgetPtr-{# fun Fl_Scroll_scroll_to as scrollTo' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (Position ->  IO ())) => Op (ScrollTo ()) Scrolled orig impl where-   runOp _ _ widget (Position (X x_pos') (Y y_pos')) = withRef widget $ \widgetPtr -> scrollTo' widgetPtr x_pos' y_pos'-{# fun Fl_Scroll_yposition as yposition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (Yposition ()) Scrolled orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> yposition' widgetPtr-{# fun Fl_Scroll_xposition as xposition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (Xposition ()) Scrolled orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> xposition' widgetPtr-{# fun Fl_Scroll_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ ( IO (ScrollbarMode))) => Op (GetType_ ()) Scrolled orig impl where-   runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . cToEnum-{# fun Fl_Scroll_set_type as setType' { id `Ptr ()',`Word8' } -> `()' #}-instance (impl ~ (ScrollbarMode ->  IO ())) => Op (SetType ()) Scrolled orig impl where-   runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (cFromEnum t) {# fun Fl_Scroll_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Scrolled orig impl where   runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> draw'' scrolledPtr-{# fun Fl_Scroll_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Scrolled orig impl where-  runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> drawSuper' scrolledPtr {#fun Fl_Scroll_handle as scrolledHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Scrolled orig impl where   runOp _ _ scrolled event = withRef scrolled (\p -> scrolledHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Scroll_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Scrolled orig impl where-  runOp _ _ scrolled event = withRef scrolled $ \scrolledPtr -> handleSuper' scrolledPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Scroll_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Scrolled orig impl where   runOp _ _ scrolled rectangle = withRef scrolled $ \scrolledPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' scrolledPtr x_pos y_pos w_pos h_pos-{# fun Fl_Scroll_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Scrolled orig impl where-  runOp _ _ scrolled rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef scrolled $ \scrolledPtr -> resizeSuper' scrolledPtr x_pos y_pos width height {# fun Fl_Scroll_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Scrolled orig impl where   runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> hide' scrolledPtr-{# fun Fl_Scroll_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Scrolled orig impl where-  runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> hideSuper' scrolledPtr {# fun Fl_Scroll_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Scrolled orig impl where   runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> show' scrolledPtr-{# fun Fl_Scroll_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Scrolled orig impl where-  runOp _ _ scrolled = withRef scrolled $ \scrolledPtr -> showSuper' scrolledPtr  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Group" --  | --  v -- "Graphics.UI.FLTK.LowLevel.Scrolled" -- @ - -- $functions -- @--- clear :: 'Ref' 'Scrolled' -> 'IO' ()--- -- draw :: 'Ref' 'Scrolled' -> 'IO' () ----- drawSuper :: 'Ref' 'Scrolled' -> 'IO' ()------ getScrollbarSize :: 'Ref' 'Scrolled' -> 'IO' ('Int')------ getType_ :: 'Ref' 'Scrolled' -> 'IO' ('ScrollbarMode')--- -- handle :: 'Ref' 'Scrolled' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Scrolled' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Scrolled' -> 'IO' () ----- hideSuper :: 'Ref' 'Scrolled' -> 'IO' ()--- -- resize :: 'Ref' 'Scrolled' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Scrolled' -> 'Rectangle' -> 'IO' ()------ scrollTo :: 'Ref' 'Scrolled' -> 'Position' -> 'IO' ()------ setScrollbarSize :: 'Ref' 'Scrolled' -> 'Int' -> 'IO' ()------ setType :: 'Ref' 'Scrolled' -> 'ScrollbarMode' -> 'IO' ()--- -- showWidget :: 'Ref' 'Scrolled' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Scrolled' -> 'IO' ()------ xposition :: 'Ref' 'Scrolled' -> 'IO' ('Int')------ yposition :: 'Ref' 'Scrolled' -> 'IO' ('Int') -- @
src/Graphics/UI/FLTK/LowLevel/SelectBrowser.chs view
@@ -16,30 +16,32 @@ import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget+import Graphics.UI.FLTK.LowLevel.Base.Widget import qualified Data.Text as T-{# fun Fl_Select_Browser_New as selectBrowserNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Select_Browser_New_WithLabel as selectBrowserNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}+{# fun Fl_Select_Browser_New as selectBrowserNew' { `Int',`Int',`Int',`Int', id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+{# fun Fl_Select_Browser_New_WithLabel as selectBrowserNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #} selectBrowserNew :: Rectangle -> Maybe T.Text -> IO (Ref SelectBrowser) selectBrowserNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> selectBrowserNew' x_pos y_pos width height >>=-                             toRef-        Just l -> do-          ref <- copyTextToCString l >>= \l' -> selectBrowserNewWithLabel' x_pos y_pos width height l' >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref+  let (x_pos, y_pos, width, height) = fromRectangle rectangle+  in do+  destroyFptr <- toDestroyCallbacksPrim defaultDestroyCallbacks+  ref <- case l' of+      Nothing -> selectBrowserNew' x_pos y_pos width height destroyFptr >>= toRef+      Just l -> copyTextToCString l >>= \l' -> selectBrowserNewWithLabel' x_pos y_pos width height l' destroyFptr >>= toRef+  setFlag ref WidgetFlagCopiedLabel+  setFlag ref WidgetFlagCopiedTooltip+  return ref++ -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Browser"+-- "Graphics.UI.FLTK.LowLevel.Base.Browser" --  | --  v -- "Graphics.UI.FLTK.LowLevel.SelectBrowser"
src/Graphics/UI/FLTK/LowLevel/SimpleTerminal.chs view
@@ -1,197 +1,70 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.SimpleTerminal-       (-         simpleTerminalNew,-         simpleTerminalCustom-         -- * Hierarchy-         ---         -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -         -- * Functions-         ---         -- $functions-       )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Simple_TerminalC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.TextDisplay-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import qualified Foreign.ForeignPtr.Unsafe as Unsafe--{# fun Fl_Simple_Terminal_New as simpleTerminalNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Simple_Terminal_New_WithLabel as simpleTerminalNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-simpleTerminalNew :: Rectangle -> Maybe T.Text -> IO (Ref SimpleTerminal)-simpleTerminalNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_OverriddenSimple_Terminal_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSimple_Terminal_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-simpleTerminalCustom ::-       Rectangle                           -- ^ The bounds of this SimpleTerminal-    -> Maybe T.Text                        -- ^ The SimpleTerminal label-    -> Maybe (Ref SimpleTerminal -> IO ()) -- ^ Optional custom drawing function-    -> IO (Ref SimpleTerminal)-simpleTerminalCustom rectangle l' draw' =-  widgetMaker-    rectangle-    l'-    draw'-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Simple_Terminal_set_stay_at_bottom as setStayAtBottom' { id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (SetStayAtBottom ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal b = withRef simple_terminal $ \simple_terminalPtr -> setStayAtBottom' simple_terminalPtr b-{# fun Fl_Simple_Terminal_get_stay_at_bottom as getStayAtBottom' { id `Ptr ()'} -> `Bool' cToBool#}-instance (impl ~ (IO Bool)) => Op (GetStayAtBottom ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getStayAtBottom' simple_terminalPtr-{# fun Fl_Simple_Terminal_set_ansi as setAnsi' { id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (SetAnsi ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal b = withRef simple_terminal $ \simple_terminalPtr -> setAnsi' simple_terminalPtr b-{# fun Fl_Simple_Terminal_get_ansi as getAnsi' { id `Ptr ()'} -> `Bool' cToBool#}-instance (impl ~ (IO Bool)) => Op (GetAnsi ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getAnsi' simple_terminalPtr-{# fun Fl_Simple_Terminal_set_history_lines as setHistoryLines' { id `Ptr ()', `Int' } -> `()' #}-instance (impl ~ (Lines ->  IO ())) => Op (SetHistoryLines ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal (Lines b) = withRef simple_terminal $ \simple_terminalPtr -> setHistoryLines' simple_terminalPtr b-{# fun Fl_Simple_Terminal_get_history_lines as getHistoryLines' { id `Ptr ()'} -> `Int' #}-instance (impl ~ (IO Lines)) => Op (GetHistoryLines ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getHistoryLines' simple_terminalPtr >>= return . Lines-{# fun Fl_Simple_Terminal_set_normal_style_index as setNormalStyleIndex' { id `Ptr ()', `Int' } -> `()' #}-instance (impl ~ (AtIndex ->  IO ())) => Op (SetNormalStyleIndex ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal (AtIndex b) = withRef simple_terminal $ \simple_terminalPtr -> setNormalStyleIndex' simple_terminalPtr b-{# fun Fl_Simple_Terminal_get_normal_style_index as getNormalStyleIndex' { id `Ptr ()'} -> `Int' #}-instance (impl ~ (IO AtIndex)) => Op (GetNormalStyleIndex ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getNormalStyleIndex' simple_terminalPtr >>= return . AtIndex-{# fun Fl_Simple_Terminal_set_current_style_index as setCurrentStyleIndex' { id `Ptr ()', `Int' } -> `()' #}-instance (impl ~ (AtIndex ->  IO ())) => Op (SetCurrentStyleIndex ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal (AtIndex b) = withRef simple_terminal $ \simple_terminalPtr -> setCurrentStyleIndex' simple_terminalPtr b-{# fun Fl_Simple_Terminal_get_current_style_index as getCurrentStyleIndex' { id `Ptr ()'} -> `Int' #}-instance (impl ~ (IO AtIndex)) => Op (GetCurrentStyleIndex ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getCurrentStyleIndex' simple_terminalPtr >>= return . AtIndex-{# fun Fl_Simple_Terminal_set_text as setText' { id `Ptr ()',`CString' } -> `()' #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetText ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal val = withRef simple_terminal $ \simple_terminalPtr -> copyTextToCString val >>= setText' simple_terminalPtr-{# fun Fl_Simple_Terminal_get_text as getText' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetText ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getText' simple_terminalPtr >>= cStringToText-{# fun Fl_Simple_Terminal_clear as clear'' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Clear ()) SimpleTerminal orig impl where-  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> clear'' simpleTerminalPtr-{# fun Fl_Simple_Terminal_remove_lines as removeLines' { id `Ptr ()', `Int', `Int' } -> `()' #}-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-   runOp _ _ simple_terminal styleTable normal_style_index =-     withRef simple_terminal $ \simple_terminalPtr -> do-       stesPtr <- mkStyleTableEntriesPtr simple_terminal styleTable-       setStyleTable'-         simple_terminalPtr-         (castPtr (Unsafe.unsafeForeignPtrToPtr stesPtr))-         (length styleTable)-         (maybe 0 id normal_style_index)-{# fun Fl_Simple_Terminal_get_style_table_size as getStyleTableSize' { id `Ptr ()'} -> `Int' fromIntegral #}-instance (impl ~ (IO Int)) => Op (GetStyleTableSize ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal = withRef simple_terminal $ \simple_terminalPtr -> getStyleTableSize' simple_terminalPtr-{# fun Fl_Simple_Terminal_get_style_table as getStyleTable' { id `Ptr ()'} -> `Ptr ()' #}-instance (impl ~ (IO (Maybe [StyleTableEntry]))) => Op (GetStyleTable ()) SimpleTerminal orig impl where-   runOp _ _ simple_terminal =-     withRef simple_terminal $ \simple_terminalPtr -> do-       size <- getStyleTableSize simple_terminal-       ptr <- getStyleTable' simple_terminalPtr-       toStyleTableEntries size ptr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Simple_Terminal_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) SimpleTerminal orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> drawSuper' textDisplayPtr-{# fun Fl_Simple_Terminal_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) SimpleTerminal orig impl where-  runOp _ _ textDisplay event = withRef textDisplay $ \textDisplayPtr -> handleSuper' textDisplayPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Simple_Terminal_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) SimpleTerminal orig impl where-  runOp _ _ textDisplay rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef textDisplay $ \textDisplayPtr -> resizeSuper' textDisplayPtr x_pos y_pos width height-{# fun Fl_Simple_Terminal_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) SimpleTerminal orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> hideSuper' textDisplayPtr-{# fun Fl_Simple_Terminal_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) SimpleTerminal orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> showSuper' textDisplayPtr+{# fun Fl_Simple_Terminal_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) SimpleTerminal orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> draw'' simpleTerminalPtr+{#fun Fl_Simple_Terminal_handle as simpleTerminalHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SimpleTerminal orig impl where+  runOp _ _ simpleTerminal event = withRef simpleTerminal (\p -> simpleTerminalHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent+{# fun Fl_Simple_Terminal_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SimpleTerminal orig impl where+  runOp _ _ simpleTerminal rectangle = withRef simpleTerminal $ \simpleTerminalPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' simpleTerminalPtr x_pos y_pos w_pos h_pos+{# fun Fl_Simple_Terminal_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) SimpleTerminal orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> hide' simpleTerminalPtr+{# fun Fl_Simple_Terminal_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) SimpleTerminal orig impl where+  runOp _ _ simpleTerminal = withRef simpleTerminal $ \simpleTerminalPtr -> show' simpleTerminalPtr  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v--- "Graphics.UI.FLTK.LowLevel.TextDisplay"+-- "Graphics.UI.FLTK.LowLevel.Base.TextDisplay" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.SimpleTerminal"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.SimpleTerminal" -- @  -- $functions -- @--- clear :: 'Ref' 'SimpleTerminal' -> 'IO' ()------ drawSuper :: 'Ref' 'SimpleTerminal' -> 'IO' ()------ getAnsi :: 'Ref' 'SimpleTerminal' -> 'IO' 'Bool'------ getCurrentStyleIndex :: 'Ref' 'SimpleTerminal' -> 'IO' 'AtIndex'------ getHistoryLines :: 'Ref' 'SimpleTerminal' -> 'IO' 'Lines'------ getNormalStyleIndex :: 'Ref' 'SimpleTerminal' -> 'IO' 'AtIndex'------ getStayAtBottom :: 'Ref' 'SimpleTerminal' -> 'IO' 'Bool'------ getStyleTable :: 'Ref' 'SimpleTerminal' -> 'IO' ('Maybe' ['StyleTableEntry')]------ getStyleTableSize :: 'Ref' 'SimpleTerminal' -> 'IO' 'Int'------ getText :: 'Ref' 'SimpleTerminal' -> 'IO' 'T.Text'------ handleSuper :: 'Ref' 'SimpleTerminal' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ hideSuper :: 'Ref' 'SimpleTerminal' -> 'IO' ()------ removeLines :: 'Ref' 'SimpleTerminal' -> 'LineNumber' -> 'LineNumber' -> 'IO' ()------ resizeSuper :: 'Ref' 'SimpleTerminal' -> 'Rectangle' -> 'IO' ()------ setAnsi :: 'Ref' 'SimpleTerminal' -> 'Bool' -> 'IO' ()------ setCurrentStyleIndex :: 'Ref' 'SimpleTerminal' -> 'AtIndex' -> 'IO' ()------ setHistoryLines :: 'Ref' 'SimpleTerminal' -> 'Lines' -> 'IO' ()------ setNormalStyleIndex :: 'Ref' 'SimpleTerminal' -> 'AtIndex' -> 'IO' ()+-- draw :: 'Ref' 'SimpleTerminal' -> 'IO' () ----- setStayAtBottom :: 'Ref' 'SimpleTerminal' -> 'Bool' -> 'IO' ()+-- handle :: 'Ref' 'SimpleTerminal' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- setStyleTable :: 'Ref' 'SimpleTerminal' -> ['StyleTableEntry'] -> 'Maybe' 'Int' -> 'IO' ()+-- hide :: 'Ref' 'SimpleTerminal' -> 'IO' () ----- setText :: 'Ref' 'SimpleTerminal' -> 'T.Text' -> 'IO' ()+-- resize :: 'Ref' 'SimpleTerminal' -> 'Rectangle' -> 'IO' () ----- showWidgetSuper :: 'Ref' 'SimpleTerminal' -> 'IO' ()+-- showWidget :: 'Ref' 'SimpleTerminal' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/SingleWindow.chs view
@@ -2,15 +2,9 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.SingleWindow   (-    singleWindowNew,-    singleWindowCustom     -- * Hierarchy     --     -- $hierarchy--    -- * Functions-    ---    -- $functions   ) where #include "Fl_C.h"@@ -21,132 +15,57 @@ import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Window -{# fun Fl_OverriddenSingle_Window_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSingle_Window_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSingle_Window_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSingle_Window_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-singleWindowCustom :: Size                                 -- ^ Size of this window-                   -> Maybe Position                       -- ^ Optional position of this window-                   -> Maybe T.Text                         -- ^ Optional label-                   -> Maybe (Ref SingleWindow -> IO ())    -- ^ Optional custom drawing function-                   -> CustomWidgetFuncs SingleWindow       -- ^ Custom widget overrides-                   -> CustomWindowFuncs SingleWindow       -- ^ Custom window overrides-                   -> IO (Ref SingleWindow)-singleWindowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =-  windowMaker-    size-    position-    title-    draw'-    customWidgetFuncs'-    customWindowFuncs'-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'--singleWindowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref SingleWindow)-singleWindowNew size position title =-  windowMaker-    size-    position-    title-    Nothing-    (defaultCustomWidgetFuncs :: CustomWidgetFuncs SingleWindow)-    (defaultCustomWindowFuncs :: CustomWindowFuncs SingleWindow)-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'--{# fun Fl_Single_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedSingle_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (Destroy ()) SingleWindow orig impl where   runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr -{# fun Fl_Single_Window_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) SingleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> drawSuper' windowPtr--{# fun Fl_Single_Window_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) SingleWindow orig impl where-  runOp _ _ window event = withRef window $ \windowPtr -> handleSuper' windowPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent--{# fun Fl_Single_Window_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) SingleWindow orig impl where-  runOp _ _ window rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef window $ \windowPtr -> resizeSuper' windowPtr x_pos y_pos width height--{# fun Fl_Single_Window_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) SingleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> showSuper' windowPtr--{# fun Fl_Single_Window_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) SingleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> hideSuper' windowPtr--{# fun Fl_Single_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedSingle_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Hide ()) SingleWindow orig impl where   runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr -{# fun Fl_Single_Window_flush_super as flushSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (FlushSuper ()) SingleWindow orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> flushSuper' windowPtr--{# fun Fl_Single_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedSingle_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (ShowWidget ()) SingleWindow orig impl where   runOp _ _ window = withRef window (\p -> windowShow' p) -{#fun Fl_Single_Window_handle as windowHandle'+{#fun Fl_DerivedSingle_Window_handle as windowHandle'       { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SingleWindow orig impl where   runOp _ _ window event = withRef window (\p -> windowHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent -{# fun Fl_Single_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedSingle_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SingleWindow orig impl where   runOp _ _ window rectangle = withRef window $ \windowPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' windowPtr x_pos y_pos w_pos h_pos++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.SingleWindow"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.SingleWindow"+-- @+ -- $functions -- @ -- destroy :: 'Ref' 'SingleWindow' -> 'IO' () ----- drawSuper :: 'Ref' 'SingleWindow' -> 'IO' ()------ flushSuper :: 'Ref' 'SingleWindow' -> 'IO' ()--- -- handle :: 'Ref' 'SingleWindow' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'SingleWindow' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'SingleWindow' -> 'IO' () ----- hideSuper :: 'Ref' 'SingleWindow' -> 'IO' ()--- -- resize :: 'Ref' 'SingleWindow' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'SingleWindow' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'SingleWindow' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'SingleWindow' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Window"---  |---  v--- "Graphics.UI.FLTK.LowLevel.SingleWindow" -- @
src/Graphics/UI/FLTK/LowLevel/Slider.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Slider     (-     sliderNew,-     sliderCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Slider Functions      --      -- $functions     )@@ -16,156 +14,58 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_SliderC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-{# fun Fl_OverriddenSlider_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSlider_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-sliderCustom ::-       Rectangle                         -- ^ The bounds of this Slider-    -> Maybe T.Text                      -- ^ The Slider label-    -> Maybe (Ref Slider -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Slider)      -- ^ Optional custom widget functions-    -> IO (Ref Slider)-sliderCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-{# fun Fl_Slider_New as sliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Slider_New_WithLabel as sliderNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-sliderNew :: Rectangle -> Maybe T.Text -> IO (Ref Slider)-sliderNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel' -{# fun Fl_Slider_Destroy as sliderDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Slider orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-                                        sliderDestroy' winPtr-                                        return nullPtr-{# fun Fl_Slider_bounds as bounds' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double -> Double ->  IO ())) => Op (Bounds ()) Slider orig impl where-  runOp _ _ slider a b = withRef slider $ \sliderPtr -> bounds' sliderPtr a b-{# fun Fl_Slider_scrollvalue as scrollvalue' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `Int' #}-instance (impl ~ (Y -> Lines -> LineNumber -> Lines ->  IO (Int))) => Op (Scrollvalue ()) Slider orig impl where-  runOp _ _ slider (Y pos) (Lines slider_size) (LineNumber first) (Lines total) = withRef slider $ \sliderPtr -> scrollvalue' sliderPtr pos slider_size first total-{# fun Fl_Slider_set_slider_size as setSliderSize' { id `Ptr ()' } -> `Float' #}-instance (impl ~ ( IO (Double))) => Op (GetSliderSize ()) Slider orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> setSliderSize' sliderPtr >>= return . realToFrac-{# fun Fl_Slider_slider_size as sliderSize' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double ->  IO ())) => Op (SetSliderSize ()) Slider orig impl where-  runOp _ _ slider v = withRef slider $ \sliderPtr -> sliderSize' sliderPtr v-{# fun Fl_Slider_slider as slider' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ ( IO (Boxtype))) => Op (GetSlider ()) Slider orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> slider' sliderPtr-{# fun Fl_Slider_set_slider as setSlider' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Boxtype ->  IO ())) => Op (SetSlider ()) Slider orig impl where-  runOp _ _ slider c = withRef slider $ \sliderPtr -> setSlider' sliderPtr c-{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (SliderType ->  IO ())) => Op (SetType ()) Slider orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (SliderType)) => Op (GetType_ ()) Slider orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger--{# fun Fl_Slider_draw as draw'' { id `Ptr ()' } -> `()' #}+{# fun Fl_DerivedSlider_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Slider orig impl where   runOp _ _ slider = withRef slider $ \sliderPtr -> draw'' sliderPtr-{# fun Fl_Slider_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Slider orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> drawSuper' sliderPtr-{#fun Fl_Slider_handle as sliderHandle' { id `Ptr ()', id `CInt' } -> `Int' #}++{#fun Fl_DerivedSlider_handle as sliderHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Slider orig impl where   runOp _ _ slider event = withRef slider (\p -> sliderHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Slider_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Slider orig impl where-  runOp _ _ slider event = withRef slider $ \sliderPtr -> handleSuper' sliderPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Slider_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Slider orig impl where++{# fun Fl_DerivedSlider_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) Slider orig impl where+  runOp _ _ slider = withRef slider $ \sliderPtr -> show' sliderPtr++{# fun Fl_DerivedSlider_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) Slider orig impl where   runOp _ _ slider rectangle = withRef slider $ \sliderPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' sliderPtr x_pos y_pos w_pos h_pos-{# fun Fl_Slider_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Slider orig impl where-  runOp _ _ slider rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef slider $ \sliderPtr -> resizeSuper' sliderPtr x_pos y_pos width height-{# fun Fl_Slider_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) Slider orig impl where+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' sliderPtr x_pos y_pos w_pos h_pos++{# fun Fl_DerivedSlider_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) Slider orig impl where   runOp _ _ slider = withRef slider $ \sliderPtr -> hide' sliderPtr-{# fun Fl_Slider_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Slider orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> hideSuper' sliderPtr-{# fun Fl_Slider_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) Slider orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> show' sliderPtr-{# fun Fl_Slider_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Slider orig impl where-  runOp _ _ slider = withRef slider $ \sliderPtr -> showSuper' sliderPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Slider"+-- @+ -- $functions -- @--- bounds :: 'Ref' 'Slider' -> 'Double' -> 'Double' -> 'IO' ()------ destroy :: 'Ref' 'Slider' -> 'IO' ()--- -- draw :: 'Ref' 'Slider' -> 'IO' () ----- drawSuper :: 'Ref' 'Slider' -> 'IO' ()------ getSlider :: 'Ref' 'Slider' -> 'IO' ('Boxtype')------ getSliderSize :: 'Ref' 'Slider' -> 'IO' ('Double')------ getType_ :: 'Ref' 'Slider' -> 'IO' ('SliderType')--- -- handle :: 'Ref' 'Slider' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Slider' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Slider' -> 'IO' () ----- hideSuper :: 'Ref' 'Slider' -> 'IO' ()--- -- resize :: 'Ref' 'Slider' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Slider' -> 'Rectangle' -> 'IO' ()------ scrollvalue :: 'Ref' 'Slider' -> 'Y' -> 'Lines' -> 'LineNumber' -> 'Lines' -> 'IO' ('Int')------ setSlider :: 'Ref' 'Slider' -> 'Boxtype' -> 'IO' ()------ setSliderSize :: 'Ref' 'Slider' -> 'Double' -> 'IO' ()------ setType :: 'Ref' 'Slider' -> 'SliderType' -> 'IO' ()--- -- showWidget :: 'Ref' 'Slider' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Slider' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Slider" -- @
src/Graphics/UI/FLTK/LowLevel/Spinner.chs view
@@ -1,243 +1,67 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Spinner     (-     -- * Constructor-     spinnerNew,-     spinnerCustom,-     SpinnerType(..)      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions-     --     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_SpinnerC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-#c-enum SpinnerType {-  IntSpinnerType = FL_INT_INPUTC,-  FloatSpinnerType = FL_FLOAT_INPUTC-};-#endc-{#enum SpinnerType {} deriving (Show, Eq) #}-{# fun Fl_OverriddenSpinner_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSpinner_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-spinnerCustom ::-       Rectangle                         -- ^ The bounds of this Spinner-    -> Maybe T.Text                      -- ^ The Spinner label-    -> Maybe (Ref Spinner -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Spinner)      -- ^ Optional custom widget functions-    -> IO (Ref Spinner)-spinnerCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Spinner_New as spinnerNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Spinner_New_WithLabel as spinnerNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-spinnerNew :: Rectangle -> Maybe T.Text -> IO (Ref Spinner)-spinnerNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Spinner_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) Spinner orig impl where-  runOp _ _ spinner text = withRef spinner $ \spinnerPtr -> setTextfont' spinnerPtr text-{# fun Fl_Spinner_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> textfont' spinnerPtr-{# fun Fl_Spinner_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) Spinner orig impl where-  runOp _ _ spinner (FontSize text) = withRef spinner $ \spinnerPtr -> setTextsize' spinnerPtr text-{# fun Fl_Spinner_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> textsize' spinnerPtr >>= return . FontSize-{# fun Fl_Spinner_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) Spinner orig impl where-  runOp _ _ spinner text = withRef spinner $ \spinnerPtr -> setTextcolor' spinnerPtr text-{# fun Fl_Spinner_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> textcolor' spinnerPtr-{# fun Fl_Spinner_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (SpinnerType ->  IO ())) => Op (SetType ()) Spinner orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Spinner_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (SpinnerType)) => Op (GetType_ ()) Spinner orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger-{# fun Fl_Spinner_set_format as set_format' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetFormat ()) Spinner orig impl where-  runOp _ _ spinner f = withRef spinner $ \spinnerPtr -> copyTextToCString f >>= set_format' spinnerPtr-{# fun Fl_Spinner_format as format' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO (Maybe T.Text))) => Op (GetFormat ()) Spinner orig impl where-   runOp _ _ spinner = withRef spinner $ \spinnerPtr -> format' spinnerPtr >>= \s -> cStringToText s >>= \s ->-     if (T.null s) then return Nothing else return (Just s)-{# fun Fl_Spinner_value as value' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetValue ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> value' spinnerPtr-{# fun Fl_Spinner_set_value as setValue' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double ->  IO ())) => Op (SetValue ()) Spinner orig impl where-  runOp _ _ spinner v = withRef spinner $ \spinnerPtr -> setValue' spinnerPtr v-{# fun Fl_Spinner_set_step as setStep' { id `Ptr ()', `Double'} -> `()' supressWarningAboutRes #}-instance (impl ~ (Double -> IO ())) => Op (SetStep ()) Spinner orig impl where-  runOp _ _ spinner r = withRef spinner $ \spinnerPtr -> setStep' spinnerPtr r-{# fun Fl_Spinner_step as step' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetStep ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> step' spinnerPtr-{# fun Fl_Spinner_maximum as maximum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetMaximum ()) Spinner orig impl where-  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> maximum' valuatorPtr-{# fun Fl_Spinner_set_maximum as setMaximum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double ->  IO ())) => Op (SetMaximum ()) Spinner orig impl where-  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMaximum' valuatorPtr a-{# fun Fl_Spinner_minimum as minimum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetMinimum ()) Spinner orig impl where-  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> minimum' valuatorPtr-{# fun Fl_Spinner_set_minimum as setMinimum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double ->  IO ())) => Op (SetMinimum ()) Spinner orig impl where-  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMinimum' valuatorPtr a-{# fun Fl_Spinner_range as range' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double -> Double ->  IO ())) => Op (Range ()) Spinner orig impl where-  runOp _ _ valuator a b = withRef valuator $ \valuatorPtr -> range' valuatorPtr a b {# fun Fl_Spinner_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Spinner orig impl where   runOp _ _ spinner = withRef spinner $ \spinnerPtr -> draw'' spinnerPtr-{# fun Fl_Spinner_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> drawSuper' spinnerPtr {#fun Fl_Spinner_handle as spinnerHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Spinner orig impl where   runOp _ _ spinner event = withRef spinner (\p -> spinnerHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Spinner_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Spinner orig impl where-  runOp _ _ spinner event = withRef spinner $ \spinnerPtr -> handleSuper' spinnerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Spinner_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Spinner orig impl where   runOp _ _ spinner rectangle = withRef spinner $ \spinnerPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' spinnerPtr x_pos y_pos w_pos h_pos-{# fun Fl_Spinner_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Spinner orig impl where-  runOp _ _ spinner rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef spinner $ \spinnerPtr -> resizeSuper' spinnerPtr x_pos y_pos width height {# fun Fl_Spinner_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Spinner orig impl where   runOp _ _ spinner = withRef spinner $ \spinnerPtr -> hide' spinnerPtr-{# fun Fl_Spinner_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> hideSuper' spinnerPtr {# fun Fl_Spinner_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Spinner orig impl where   runOp _ _ spinner = withRef spinner $ \spinnerPtr -> show' spinnerPtr-{# fun Fl_Spinner_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> showSuper' spinnerPtr -{# fun Fl_Spinner_set_wrap as setWrap' { id `Ptr ()', cFromBool `Bool'} -> `()' supressWarningAboutRes #}-instance (impl ~ (Bool -> IO ())) => Op (SetWrap ()) Spinner orig impl where-  runOp _ _ spinner r = withRef spinner $ \spinnerPtr -> setWrap' spinnerPtr r-{# fun Fl_Spinner_wrap as wrap' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (GetWrap ()) Spinner orig impl where-  runOp _ _ spinner = withRef spinner $ \spinnerPtr -> wrap' spinnerPtr- -- $hierarchy -- @------ "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Spinner"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Spinner"--- -- @  -- $functions -- @ -- draw :: 'Ref' 'Spinner' -> 'IO' () ----- drawSuper :: 'Ref' 'Spinner' -> 'IO' ()------ getFormat :: 'Ref' 'Spinner' -> 'IO' ('Maybe' 'T.Text')------ getMaximum :: 'Ref' 'Spinner' -> 'IO' ('Double')------ getMinimum :: 'Ref' 'Spinner' -> 'IO' ('Double')------ getStep :: 'Ref' 'Spinner' -> 'IO' ('Double')------ getTextcolor :: 'Ref' 'Spinner' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'Spinner' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'Spinner' -> 'IO' ('FontSize')------ getType_ :: 'Ref' 'Spinner' -> 'IO' ('SpinnerType')------ getValue :: 'Ref' 'Spinner' -> 'IO' ('Double')------ getWrap :: 'Ref' 'Spinner' -> 'IO' ('Bool')--- -- handle :: 'Ref' 'Spinner' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Spinner' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Spinner' -> 'IO' () ----- hideSuper :: 'Ref' 'Spinner' -> 'IO' ()------ range :: 'Ref' 'Spinner' -> 'Double' -> 'Double' -> 'IO' ()--- -- resize :: 'Ref' 'Spinner' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Spinner' -> 'Rectangle' -> 'IO' ()------ setFormat :: 'Ref' 'Spinner' -> 'T.Text' -> 'IO' ()------ setMaximum :: 'Ref' 'Spinner' -> 'Double' -> 'IO' ()------ setMinimum :: 'Ref' 'Spinner' -> 'Double' -> 'IO' ()------ setStep :: 'Ref' 'Spinner' -> 'Double' -> 'IO' ()------ setTextcolor :: 'Ref' 'Spinner' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'Spinner' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'Spinner' -> 'FontSize' -> 'IO' ()------ setType :: 'Ref' 'Spinner' -> 'SpinnerType' -> 'IO' ()------ setValue :: 'Ref' 'Spinner' -> 'Double' -> 'IO' ()------ setWrap :: 'Ref' 'Spinner' -> 'Bool' -> 'IO' ()--- -- showWidget :: 'Ref' 'Spinner' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Spinner' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/SysMenuBar.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.SysMenuBar     (-     sysMenuBarNew,-     sysMenuBarCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -16,192 +14,57 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Sys_Menu_BarC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.MenuItem-import Graphics.UI.FLTK.LowLevel.MenuPrim -{# fun Fl_OverriddenSys_Menu_Bar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenSys_Menu_Bar_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-sysMenuBarCustom ::-       Rectangle                         -- ^ The bounds of this SysMenuBar-    -> Maybe T.Text                      -- ^ The SysMenuBar label-    -> Maybe (Ref SysMenuBar -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs SysMenuBar)      -- ^ Optional custom widget functions-    -> IO (Ref SysMenuBar)-sysMenuBarCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-{# fun Fl_Sys_Menu_Bar_New as sysMenuBarNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Sys_Menu_Bar_New_WithLabel as sysMenuBarNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-sysMenuBarNew :: Rectangle -> Maybe T.Text -> IO (Ref SysMenuBar)-sysMenuBarNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'-{# fun Fl_Sys_Menu_Bar_Destroy as sysMenuBarDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) SysMenuBar orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    sysMenuBarDestroy' winPtr-    return nullPtr-{# fun Fl_Sys_Menu_Bar_remove as remove' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int  ->  IO ())) => Op (Remove ()) SysMenuBar orig impl where-  runOp _ _ menu_ index' = withRef menu_ $ \menu_Ptr -> remove' menu_Ptr index'-{# fun Fl_Sys_Menu_Bar_replace as replace' { id `Ptr ()',`Int', `CString' } -> `()' #}-instance (impl ~ (AtIndex -> T.Text ->  IO ())) => Op (Replace ()) SysMenuBar orig impl where-  runOp _ _ menu_ (AtIndex index') name = withRef menu_ $ \menu_Ptr -> copyTextToCString name >>= replace' menu_Ptr index'-{# fun Fl_Sys_Menu_Bar_clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Clear ()) SysMenuBar orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> clear' menu_Ptr-{# fun Fl_Sys_Menu_Bar_clear_submenu as clearSubmenu' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (Either OutOfRangeOrNotSubmenu ()))) => Op (ClearSubmenu ()) SysMenuBar orig impl where-  runOp _ _ menu_ (AtIndex index') = withRef menu_ $ \menu_Ptr -> clearSubmenu' menu_Ptr index' >>= return . successOrOutOfRangeOrNotSubmenu-{# fun Fl_Sys_Menu_Bar_shortcut as shortcut' { id `Ptr ()',`Int',id `CInt' } -> `()' #}-instance (impl ~ (AtIndex -> ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) SysMenuBar orig impl where-  runOp _ _ menu_ (AtIndex index') (ShortcutKeySequence modifiers char) =-    withRef menu_ $ \menu_Ptr ->-        shortcut' menu_Ptr index' (keySequenceToCInt modifiers char)-{# fun Fl_Sys_Menu_Bar_set_mode as setMode' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (AtIndex -> MenuItemFlags ->  IO ())) => Op (SetMode ()) SysMenuBar orig impl where-  runOp _ _ menu_ (AtIndex i) fl = withRef menu_ $ \menu_Ptr -> setMode' menu_Ptr i (menuItemFlagsToInt fl)-{# fun Fl_Sys_Menu_Bar_mode as mode' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (Maybe MenuItemFlags))) => Op (GetMode ()) SysMenuBar orig impl where-  runOp _ _ menu_ (AtIndex i) = withRef menu_ $ \menu_Ptr -> mode' menu_Ptr i >>= return . intToMenuItemFlags-{# fun Fl_Sys_Menu_Bar_global as global' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Global ()) SysMenuBar orig impl where-  runOp _ _ menu_ = withRef menu_ $ \menu_Ptr -> global' menu_Ptr-{# fun Fl_Sys_Menu_Bar_menu_with_m as menuWithM' { id `Ptr ()',id `Ptr ( Ptr () )',`Int' } -> `()' #}-instance (impl ~ ([Ref MenuItem] -> IO ())) => Op (SetMenu ()) SysMenuBar orig impl where-  runOp _ _ menu_ items =-    withRef menu_ $ \menu_Ptr ->-        withRefs items $ \menu_itemsPtr ->-            menuWithM' menu_Ptr menu_itemsPtr (length items)--{# fun Fl_Sys_Menu_Bar_add_with_name as add' { id `Ptr ()',`CString'} -> `()' #}-instance (impl ~ (T.Text -> IO ())) => Op (AddName ()) SysMenuBar orig impl where-  runOp _ _ menu_ name' = withRef menu_ $ \menu_Ptr -> copyTextToCString name' >>= add' menu_Ptr--{# fun Fl_Sys_Menu_Bar_add_with_flags as addWithFlags' { id `Ptr ()',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-{# fun Fl_Sys_Menu_Bar_add_with_shortcutname_flags as addWithShortcutnameFlags' { id `Ptr ()', `CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-instance (Parent a MenuItem, impl ~ ( T.Text -> Maybe Shortcut -> Maybe (Ref a-> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Add ()) SysMenuBar orig (impl) where-  runOp _ _ menu_ name shortcut cb flags =-    addMenuItem (Left (safeCast menu_)) name shortcut cb flags addWithFlags' addWithShortcutnameFlags'--{# fun Fl_Sys_Menu_Bar_insert_with_flags as insertWithFlags' { id `Ptr ()',`Int',`CString',id `CInt',id `FunPtr CallbackWithUserDataPrim',`Int'} -> `Int' #}-{# fun Fl_Sys_Menu_Bar_insert_with_shortcutname_flags as insertWithShortcutnameFlags' { id `Ptr ()',`Int',`CString', `CString',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #}-instance (Parent a MenuPrim, impl ~ ( AtIndex -> T.Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> IO (AtIndex))) => Op (Insert ()) SysMenuBar orig impl where-  runOp _ _ menu_ (AtIndex index') name shortcut cb flags = insertMenuItem (safeCast menu_) index' name shortcut cb flags insertWithFlags' insertWithShortcutnameFlags' {# fun Fl_Sys_Menu_Bar_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) SysMenuBar orig impl where   runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> draw'' sysMenuBarPtr-{# fun Fl_Sys_Menu_Bar_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) SysMenuBar orig impl where-  runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> drawSuper' sysMenuBarPtr {#fun Fl_Sys_Menu_Bar_handle as sysMenuBarHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) SysMenuBar orig impl where   runOp _ _ sysMenuBar event = withRef sysMenuBar (\p -> sysMenuBarHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Sys_Menu_Bar_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) SysMenuBar orig impl where-  runOp _ _ sysMenuBar event = withRef sysMenuBar $ \sysMenuBarPtr -> handleSuper' sysMenuBarPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Sys_Menu_Bar_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) SysMenuBar orig impl where   runOp _ _ sysMenuBar rectangle = withRef sysMenuBar $ \sysMenuBarPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' sysMenuBarPtr x_pos y_pos w_pos h_pos-{# fun Fl_Sys_Menu_Bar_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) SysMenuBar orig impl where-  runOp _ _ sysMenuBar rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef sysMenuBar $ \sysMenuBarPtr -> resizeSuper' sysMenuBarPtr x_pos y_pos width height {# fun Fl_Sys_Menu_Bar_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) SysMenuBar orig impl where   runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> hide' sysMenuBarPtr-{# fun Fl_Sys_Menu_Bar_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) SysMenuBar orig impl where-  runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> hideSuper' sysMenuBarPtr {# fun Fl_Sys_Menu_Bar_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) SysMenuBar orig impl where   runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> show' sysMenuBarPtr-{# fun Fl_Sys_Menu_Bar_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) SysMenuBar orig impl where-  runOp _ _ sysMenuBar = withRef sysMenuBar $ \sysMenuBarPtr -> showSuper' sysMenuBarPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuPrim"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.MenuBar"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.SysMenuBar"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.SysMenuBar"+-- @+ -- $functions -- @--- add:: ('Parent' a 'MenuItem') => 'Ref' 'SysMenuBar' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')------ addName :: 'Ref' 'SysMenuBar' -> 'T.Text' -> 'IO' ()------ clear :: 'Ref' 'SysMenuBar' -> 'IO' ()------ clearSubmenu :: 'Ref' 'SysMenuBar' -> 'AtIndex' -> 'IO' ('Either' 'OutOfRangeOrNotSubmenu' ())------ destroy :: 'Ref' 'SysMenuBar' -> 'IO' ()--- -- draw :: 'Ref' 'SysMenuBar' -> 'IO' () ----- drawSuper :: 'Ref' 'SysMenuBar' -> 'IO' ()------ getMode :: 'Ref' 'SysMenuBar' -> 'AtIndex' -> 'IO' ('Maybe' 'MenuItemFlags')------ global :: 'Ref' 'SysMenuBar' -> 'IO' ()--- -- handle :: 'Ref' 'SysMenuBar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'SysMenuBar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'SysMenuBar' -> 'IO' () ----- hideSuper :: 'Ref' 'SysMenuBar' -> 'IO' ()------ insert:: ('Parent' a 'MenuPrim') => 'Ref' 'SysMenuBar' -> 'AtIndex' -> 'T.Text' -> 'Maybe' 'Shortcut' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('AtIndex')------ remove :: 'Ref' 'SysMenuBar' -> 'Int' -> 'IO' ()------ replace :: 'Ref' 'SysMenuBar' -> 'AtIndex' -> 'T.Text' -> 'IO' ()--- -- resize :: 'Ref' 'SysMenuBar' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'SysMenuBar' -> 'Rectangle' -> 'IO' ()------ setMenu :: 'Ref' 'SysMenuBar' -> ['Ref' 'MenuItem'] -> 'IO' ()------ setMode :: 'Ref' 'SysMenuBar' -> 'AtIndex' -> 'MenuItemFlags' -> 'IO' ()------ setShortcut :: 'Ref' 'SysMenuBar' -> 'AtIndex' -> 'ShortcutKeySequence' -> 'IO' ()--- -- showWidget :: 'Ref' 'SysMenuBar' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'SysMenuBar' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuPrim"---  |---  v--- "Graphics.UI.FLTK.LowLevel.MenuBar"---  |---  v--- "Graphics.UI.FLTK.LowLevel.SysMenuBar"--- -- @
src/Graphics/UI/FLTK/LowLevel/Table.chs view
@@ -1,553 +1,80 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Table     (-     TableCoordinate(..),-     Row(..),-     Column(..),-     CustomTableFuncs(..),-     mkSetInt,-     mkDrawCell,-     toSetRowsPrim,-     toSetColumnsPrim,-     toDrawCellPrim,-     fillCustomTableFunctionStruct,-     defaultCustomTableFuncs,-     tableCustom,-     tableCustomFunctionStruct      -- * Hierarchy      --      -- $hierarchy -     -- * Table functions+     -- * Widget Functions      ---     -- $Tablefunctions+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_TableC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)- import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-data Row = Row Int-data Column = Column Int-data TableCoordinate = TableCoordinate Row Column-foreign import ccall "wrapper"-        mkDrawCell :: (Ptr () ->-                       CInt ->-                       CInt -> CInt ->-                       CInt -> CInt -> CInt -> CInt ->-                       IO ())-                       ->-                       IO (FunPtr (Ptr () ->-                                   CInt ->-                                   CInt -> CInt ->-                                   CInt -> CInt -> CInt -> CInt ->-                                   IO ()))--toSetRowsPrim :: (Ref a -> Rows -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))-toSetRowsPrim f =-    mkSetInt-    (-     \ptr num' -> do-       pp <- wrapNonNull ptr "Null pointer. toSetRowsPrim"-       f (wrapInRef pp) (Rows (fromIntegral num'))-    )--toSetColumnsPrim :: (Ref a -> Columns -> IO ()) -> IO (FunPtr (Ptr () -> CInt -> IO ()))-toSetColumnsPrim f =-    mkSetInt-    (-     \ptr num' -> do-       pp <- wrapNonNull ptr "Null pointer. toSetColumnsPrim"-       f (wrapInRef pp) (Columns (fromIntegral num'))-    )--toDrawCellPrim :: (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->-                       IO (FunPtr (Ptr () ->-                                   CInt ->-                                   CInt -> CInt ->-                                   CInt -> CInt -> CInt -> CInt ->-                                   IO ()))-toDrawCellPrim f =-    mkDrawCell-     (-      \ptr context' row' col' x_pos y_pos width height ->-          let rectangle = toRectangle (fromIntegral x_pos,-                                       fromIntegral y_pos,-                                       fromIntegral width,-                                       fromIntegral height)-          in-          do-           pp <- wrapNonNull ptr "Null pointer. toDrawCellPrim"-           f (wrapInRef pp) (toEnum $ fromIntegral context') (TableCoordinate (Row (fromIntegral row')) (Column (fromIntegral col'))) rectangle-     )--data CustomTableFuncs a =-    CustomTableFuncs-    {-    clearCustom      :: Maybe (Ref a -> IO ())-    ,setRowsCustom    :: Maybe (Ref a -> Rows -> IO ())-    ,setColsCustom    :: Maybe (Ref a -> Columns -> IO ())-    }--fillCustomTableFunctionStruct :: forall a. (Parent a Table) =>-                                  Ptr () ->-                                  Maybe (Ref a -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->-                                  CustomTableFuncs a ->-                                  IO ()-fillCustomTableFunctionStruct structPtr _drawCell' (CustomTableFuncs _clear' _setRows' _setCols')  = do-   toDrawCellPrim `orNullFunPtr` _drawCell' >>= {#set fl_Table_Virtual_Funcs->draw_cell#} structPtr-   toCallbackPrim `orNullFunPtr` _clear' >>= {#set fl_Table_Virtual_Funcs->clear#} structPtr-   toSetRowsPrim `orNullFunPtr` _setRows' >>= {#set fl_Table_Virtual_Funcs->set_rows#} structPtr-   toSetColumnsPrim `orNullFunPtr` _setCols' >>= {#set fl_Table_Virtual_Funcs->set_cols#} structPtr--defaultCustomTableFuncs :: forall a. (Parent a Table) => CustomTableFuncs a-defaultCustomTableFuncs = CustomTableFuncs Nothing Nothing Nothing--{# fun Fl_Table_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}-tableCustomFunctionStruct :: (Parent a Widget,-                              Parent b Table) =>-                             Maybe (Ref a -> IO ()) ->-                             Maybe (Ref b -> TableContext -> TableCoordinate -> Rectangle -> IO ()) ->-                             CustomWidgetFuncs a ->-                             CustomTableFuncs b ->-                             IO (Ptr ())-tableCustomFunctionStruct draw'' drawCell' customWidgetFuncs' customTableFuncs' =-  do-   ptr <- virtualFuncs'-   fillCustomWidgetFunctionStruct ptr draw'' customWidgetFuncs'-   fillCustomTableFunctionStruct ptr drawCell' customTableFuncs'-   return ptr--{# fun Fl_Table_New as tableNew' {  `Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_Table_New_WithLabel as tableNewWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-tableCustom :: Rectangle                                                            -- ^ Bounds of this table-            -> Maybe T.Text                                                         -- ^ Optional label-            -> Maybe (Ref Table -> IO ())                                           -- ^ Optional custom table drawing function-            -> (Ref Table -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -- ^ Custom table cell drawing function-            -> CustomWidgetFuncs Table                                              -- ^ Widget overrides-            -> CustomTableFuncs Table                                               -- ^ Table overrides-            -> IO (Ref Table)-tableCustom rectangle label' draw'' drawCell' customWidgetFuncs' customTableFuncs' =-    do-      let (x_pos, y_pos, width, height) = fromRectangle rectangle-      ptr <- tableCustomFunctionStruct draw'' (Just drawCell') customWidgetFuncs' customTableFuncs'-      case label' of-        (Just l') -> copyTextToCString l' >>= \l'' -> tableNewWithLabel' x_pos y_pos width height l'' ptr >>= toRef-        Nothing -> tableNew' x_pos y_pos width height ptr >>= toRef+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Table_Destroy as tableDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Destroy ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> tableDestroy' tablePtr-{# fun Fl_Table_set_table_box as setTableBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}-instance (impl ~ ( Boxtype ->  IO ())) => Op (SetTableBox ()) Table orig impl where-  runOp _ _ table val = withRef table $ \tablePtr -> setTableBox' tablePtr val-{# fun Fl_Table_table_box as tableBox' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ (  IO (Boxtype))) => Op (GetTableBox ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> tableBox' tablePtr-{# fun Fl_Table_set_rows as setRows' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Rows ->  IO ())) => Op (SetRows ()) Table orig impl where-  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRows' tablePtr val-{# fun Fl_Table_rows as rows' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Rows))) => Op (GetRows ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rows' tablePtr >>= return . Rows-{# fun Fl_Table_set_cols as setCols' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Columns ->  IO ())) => Op (SetCols ()) Table orig impl where-  runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setCols' tablePtr val-{# fun Fl_Table_cols as cols' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Columns))) => Op (GetCols ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> cols' tablePtr >>= return . Columns-{# fun Fl_Table_visible_cells as visibleCells' { id `Ptr ()',alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*} -> `()' #}-instance (impl ~ (IO (TableCoordinate,TableCoordinate))) => Op (GetVisibleCells ()) Table orig impl where-  runOp _ _ table =-    withRef table $ \tablePtr ->-    visibleCells' tablePtr >>= \(r1', r2', c1', c2') ->-    return ((TableCoordinate (Row r1') (Column c1')), (TableCoordinate (Row r2') (Column c2')))-{# fun Fl_Table_is_interactive_resize as isInteractiveResize' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (  IO (Bool))) => Op (IsInteractiveResize ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> isInteractiveResize' tablePtr-{# fun Fl_Table_row_resize as rowResize' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (  IO (Bool))) => Op (GetRowResize ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rowResize' tablePtr-{# fun Fl_Table_set_row_resize as setRowResize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Bool ->  IO ())) => Op (SetRowResize ()) Table orig impl where-  runOp _ _ table flag = withRef table $ \tablePtr -> setRowResize' tablePtr (cFromBool flag)-{# fun Fl_Table_col_resize as colResize' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (  IO (Bool))) => Op (GetColResize ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> colResize' tablePtr-{# fun Fl_Table_set_col_resize as setColResize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Bool ->  IO ())) => Op (SetColResize ()) Table orig impl where-  runOp _ _ table flag = withRef table $ \tablePtr -> setColResize' tablePtr (cFromBool flag)-{# fun Fl_Table_col_resize_min as colResizeMin' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Int))) => Op (GetColResizeMin ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> colResizeMin' tablePtr-{# fun Fl_Table_set_col_resize_min as setColResizeMin' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Int ->  IO ())) => Op (SetColResizeMin ()) Table orig impl where-  runOp _ _ table val = withRef table $ \tablePtr -> setColResizeMin' tablePtr val-{# fun Fl_Table_row_resize_min as rowResizeMin' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Int))) => Op (GetRowResizeMin ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rowResizeMin' tablePtr-{# fun Fl_Table_set_row_resize_min as setRowResizeMin' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Int ->  IO ())) => Op (SetRowResizeMin ()) Table orig impl where-  runOp _ _ table val = withRef table $ \tablePtr -> setRowResizeMin' tablePtr val-{# fun Fl_Table_row_header as rowHeader' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO Bool)) => Op (GetRowHeader ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rowHeader' tablePtr >>= return . cToBool-{# fun Fl_Table_set_row_header as setRowHeader' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Bool ->  IO ())) => Op (SetRowHeader ()) Table orig impl where-  runOp _ _ table flag = withRef table $ \tablePtr -> setRowHeader' tablePtr (cFromBool flag)-{# fun Fl_Table_col_header as colHeader' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (  IO (Bool))) => Op (GetColHeader ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> colHeader' tablePtr-{# fun Fl_Table_set_col_header as setColHeader' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Bool ->  IO ())) => Op (SetColHeader ()) Table orig impl where-  runOp _ _ table flag = withRef table $ \tablePtr -> setColHeader' tablePtr (cFromBool flag)-{# fun Fl_Table_set_col_header_height as setColHeaderHeight' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Int ->  IO ())) => Op (SetColHeaderHeight ()) Table orig impl where-  runOp _ _ table height = withRef table $ \tablePtr -> setColHeaderHeight' tablePtr height-{# fun Fl_Table_col_header_height as colHeaderHeight' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Int))) => Op (GetColHeaderHeight ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> colHeaderHeight' tablePtr-{# fun Fl_Table_set_row_header_width as setRowHeaderWidth' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Int ->  IO ())) => Op (SetRowHeaderWidth ()) Table orig impl where-  runOp _ _ table width = withRef table $ \tablePtr -> setRowHeaderWidth' tablePtr width-{# fun Fl_Table_row_header_width as rowHeaderWidth' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Int))) => Op (GetRowHeaderWidth ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rowHeaderWidth' tablePtr-{# fun Fl_Table_set_row_header_color as setRowHeaderColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ ( Color ->  IO ())) => Op (SetRowHeaderColor ()) Table orig impl where-  runOp _ _ table val = withRef table $ \tablePtr -> setRowHeaderColor' tablePtr val-{# fun Fl_Table_row_header_color as rowHeaderColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ (  IO (Color))) => Op (GetRowHeaderColor ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rowHeaderColor' tablePtr-{# fun Fl_Table_set_col_header_color as setColHeaderColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ ( Color ->  IO ())) => Op (SetColHeaderColor ()) Table orig impl where-  runOp _ _ table val = withRef table $ \tablePtr -> setColHeaderColor' tablePtr val-{# fun Fl_Table_col_header_color as colHeaderColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ (  IO (Color))) => Op (GetColHeaderColor ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> colHeaderColor' tablePtr-{# fun Fl_Table_set_row_height as setRowHeight' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ ( Row -> Int ->  IO ())) => Op (SetRowHeight ()) Table orig impl where-  runOp _ _ table (Row row) height = withRef table $ \tablePtr -> setRowHeight' tablePtr row height-{# fun Fl_Table_row_height as rowHeight' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ ( Row ->  IO (Int))) => Op (GetRowHeight ()) Table orig impl where-  runOp _ _ table (Row row) = withRef table $ \tablePtr -> rowHeight' tablePtr row-{# fun Fl_Table_set_col_width as setColWidth' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ ( Column -> Int ->  IO ())) => Op (SetColWidth ()) Table orig impl where-  runOp _ _ table (Column col) width = withRef table $ \tablePtr -> setColWidth' tablePtr col width-{# fun Fl_Table_col_width as colWidth' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ ( Column ->  IO (Int))) => Op (GetColWidth ()) Table orig impl where-  runOp _ _ table (Column col) = withRef table $ \tablePtr -> colWidth' tablePtr col-{# fun Fl_Table_set_row_height_all as setRowHeightAll' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Int ->  IO ())) => Op (SetRowHeightAll ()) Table orig impl where-  runOp _ _ table height = withRef table $ \tablePtr -> setRowHeightAll' tablePtr height-{# fun Fl_Table_set_col_width_all as setColWidthAll' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Int ->  IO ())) => Op (SetColWidthAll ()) Table orig impl where-  runOp _ _ table width = withRef table $ \tablePtr -> setColWidthAll' tablePtr width-{# fun Fl_Table_set_row_position as setRowPosition' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Row ->  IO ())) => Op (SetRowPosition ()) Table orig impl where-  runOp _ _ table (Row row) = withRef table $ \tablePtr -> setRowPosition' tablePtr row-{# fun Fl_Table_set_col_position as setColPosition' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Column ->  IO ())) => Op (SetColPosition ()) Table orig impl where-  runOp _ _ table (Column col) = withRef table $ \tablePtr -> setColPosition' tablePtr col-{# fun Fl_Table_row_position as rowPosition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Row))) => Op (GetRowPosition ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> rowPosition' tablePtr >>= return . Row-{# fun Fl_Table_col_position as colPosition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Column))) => Op (GetColPosition ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> colPosition' tablePtr >>= return . Column-{# fun Fl_Table_set_top_row as setTopRow' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Row ->  IO ())) => Op (SetTopRow ()) Table orig impl where-  runOp _ _ table (Row row) = withRef table $ \tablePtr -> setTopRow' tablePtr row-{# fun Fl_Table_top_row as topRow' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Row))) => Op (GetTopRow ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> topRow' tablePtr >>= return . Row-{# fun Fl_Table_is_selected as isSelected' { id `Ptr ()',`Int',`Int' } -> `Bool' cToBool #}-instance (impl ~ (TableCoordinate ->  IO Bool)) => Op (IsSelected ()) Table orig impl where-  runOp _ _ table (TableCoordinate (Row r) (Column c)) = withRef table $ \tablePtr -> isSelected' tablePtr r c-{# fun Fl_Table_get_selection as getSelection' { id `Ptr ()',alloca- `Int' peekIntConv*, alloca- `Int' peekIntConv*, alloca- `Int' peekIntConv*, alloca- `Int' peekIntConv*} -> `()' #}-instance (impl ~ IO (TableCoordinate, TableCoordinate)) => Op (GetSelection ()) Table orig impl where-  runOp _ _ table =-    withRef table $ \tablePtr ->-        getSelection' tablePtr >>= \(top', left',bottom',right') ->-            return ((TableCoordinate (Row top') (Column left')), (TableCoordinate (Row bottom') (Column right')))-{# fun Fl_Table_set_selection as setSelection' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ ( TableCoordinate -> TableCoordinate ->IO ())) => Op (SetSelection ()) Table orig impl where-  runOp _ _ table (TableCoordinate (Row row_top) (Column col_left))-                  (TableCoordinate (Row row_bot) (Column col_right)) =-    withRef table $ \tablePtr -> setSelection' tablePtr row_top col_left row_bot col_right-{# fun Fl_Table_move_cursor as moveCursor' { id `Ptr ()',`Int',`Int' } -> `Int' #}-instance (impl ~ ( TableCoordinate ->  IO (Either NoChange ()))) => Op (MoveCursor ()) Table orig impl where-  runOp _ _ table (TableCoordinate (Row r) (Column c)) = withRef table $ \tablePtr -> moveCursor' tablePtr r c >>= return . successOrNoChange-{# fun Fl_Table_init_sizes as initSizes' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (InitSizes ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> initSizes' tablePtr-{# fun Fl_Table_add as add' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Widget, impl ~ (Ref a  ->  IO ())) => Op (Add ()) Table orig impl where-  runOp _ _ table wgt = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> add' tablePtr wgtPtr-{# fun Fl_Table_insert as insert' { id `Ptr ()',id `Ptr ()',`Int' } -> `()' #}-instance (Parent a Widget, impl ~ (Ref a -> AtIndex ->  IO ())) => Op (Insert ()) Table orig impl where-  runOp _ _ table wgt (AtIndex n) = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> insert' tablePtr wgtPtr n-{# fun Fl_Table_insert_with_widget as insertWithWidget' { id `Ptr ()',id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Widget, Parent b Widget, impl ~ (Ref a -> Ref b ->  IO ())) => Op (InsertBefore ()) Table orig impl where-  runOp _ _ self w before = withRef self $ \selfPtr -> withRef w $ \wPtr -> withRef before $ \beforePtr -> insertWithWidget' selfPtr wPtr beforePtr-{# fun Fl_Table_begin as begin' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Begin ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> begin' tablePtr-{# fun Fl_Table_end as end' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (End ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> end' tablePtr-{# fun Fl_Table_array as array' { id `Ptr ()' } -> `Ptr (Ptr ())' id #}-instance (impl ~ (  IO [Ref Widget])) => Op (GetArray ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> do-                     childArrayPtr <- array' tablePtr-                     numChildren <- children table-                     arrayToRefs childArrayPtr numChildren-{# fun Fl_Table_child as child' { id `Ptr ()',`Int' } -> `Ptr ()' id #}-instance (impl ~ ( AtIndex ->  IO (Maybe (Ref Widget)))) => Op (GetChild ()) Table orig impl where-  runOp _ _ table (AtIndex n) = withRef table $ \tablePtr -> child' tablePtr n >>= toMaybeRef-{# fun Fl_Table_children as children' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Int))) => Op (Children ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> children' tablePtr-{# fun Fl_Table_find as find' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (Parent a Widget, impl ~ (Ref a ->  IO (Int))) => Op (Find ()) Table orig impl where-  runOp _ _ table wgt = withRef table $ \tablePtr -> withRef wgt $ \wgtPtr -> find' tablePtr wgtPtr-{# fun Fl_Table_callback_row as callbackRow' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Row))) => Op (CallbackRow ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> callbackRow' tablePtr >>= return . Row-{# fun Fl_Table_callback_col as callbackCol' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (  IO (Column))) => Op (CallbackCol ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> callbackCol' tablePtr >>= return . Column-{# fun Fl_Table_callback_context as callbackContext' { id `Ptr ()' } -> `TableContext' cToEnum #}-instance (impl ~ (  IO (TableContext))) => Op (CallbackContext ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> callbackContext' tablePtr-{# fun Fl_Table_do_callback as doCallback' { id `Ptr ()',cFromEnum `TableContext',`Int',`Int' } -> `()' #}-instance (impl ~ ( TableContext -> TableCoordinate ->  IO ())) => Op (DoCallback ()) Table orig impl where-  runOp _ _ table tablecontext (TableCoordinate (Row row) (Column col)) = withRef table $ \tablePtr -> doCallback' tablePtr tablecontext row col-{# fun Fl_Table_find_cell as findCell' { id `Ptr ()',cFromEnum `TableContext',`Int',`Int',alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv* } -> `CInt' id #}-instance (impl ~ ( TableContext -> TableCoordinate -> IO (Maybe Rectangle))) => Op (FindCell ()) Table orig impl where-  runOp _ _ table context (TableCoordinate (Row r) (Column c))  =-    withRef table $ \tablePtr ->-        findCell' tablePtr context r c >>= \(result, x_pos', y_pos', width', height') -> do-          if (result /= -1)-            then return $ Just $ toRectangle (x_pos', y_pos', width', height')-            else return $ Nothing-{# fun Fl_Table_draw_super as drawSuper' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (DrawSuper ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> drawSuper' tablePtr {# fun Fl_Table_draw as draw' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Table orig impl where   runOp _ _ table = withRef table $ \tablePtr -> draw' tablePtr {# fun Fl_Table_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #} instance (impl ~ ( Event ->  IO( Either UnknownEvent ()))) => Op (Handle ()) Table orig impl where   runOp _ _ table event = withRef table $ \tablePtr -> handle' tablePtr event >>= return  . successOrUnknownEvent-{# fun Fl_Table_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ ( Rectangle ->  IO ())) => Op (ResizeSuper ()) Table orig impl where-  runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resizeSuper' tablePtr x_pos' y_pos' width' height' {# fun Fl_Table_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #} instance (impl ~ ( Rectangle ->  IO ())) => Op (Resize ()) Table orig impl where   runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'-{# fun Fl_Table_clear_super as clearSuper' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ClearSuper ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> clearSuper' tablePtr {# fun Fl_Table_clear as clear' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Clear ()) Table orig impl where   runOp _ _ table = withRef table $ \tablePtr -> clear' tablePtr-{# fun Fl_Table_set_rows_super as setRowsSuper' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Rows ->  IO ())) => Op (SetRowsSuper ()) Table orig impl where-  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRowsSuper' tablePtr val-{# fun Fl_Table_set_cols_super as setColsSuper' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ ( Columns ->  IO ())) => Op (SetColsSuper ()) Table orig impl where-  runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setColsSuper' tablePtr val-{# fun Fl_Table_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Table orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> showSuper' widgetPtr {# fun Fl_Table_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (ShowWidget ()) Table orig impl where   runOp _ _ widget = withRef widget $ \widgetPtr -> show' widgetPtr-{# fun Fl_Table_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Table orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> hideSuper' widgetPtr {# fun Fl_Table_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Hide ()) Table orig impl where   runOp _ _ widget = withRef widget $ \widgetPtr -> hide' widgetPtr+{# fun Fl_Table_set_rows as setRows' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Rows ->  IO ())) => Op (SetRows ()) Table orig impl where+  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRows' tablePtr val+{# fun Fl_Table_set_cols as setCols' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ ( Columns ->  IO ())) => Op (SetCols ()) Table orig impl where+  runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setCols' tablePtr val -{# fun Fl_Table_tab_cell_nav as tabCellNav' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (  IO (Bool))) => Op (GetTabCellNav ()) Table orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> tabCellNav' tablePtr-{# fun Fl_Table_set_tab_cell_nav as setTabCellNav' { id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ ( Bool ->  IO ())) => Op (SetTabCellNav ()) Table orig impl where-  runOp _ _ table val = withRef table $ \tablePtr -> setTabCellNav' tablePtr val+-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Table"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Table"+-- @ --- $Tablefunctions+-- $functions -- @--- add:: ('Parent' a 'Widget') => 'Ref' 'Table' -> 'Ref' a -> 'IO' ()------ begin :: 'Ref' 'Table' -> 'IO' ()------ callbackCol :: 'Ref' 'Table' -> 'IO' ('Column')------ callbackContext :: 'Ref' 'Table' -> 'IO' ('TableContext')------ callbackRow :: 'Ref' 'Table' -> 'IO' ('Row')------ children :: 'Ref' 'Table' -> 'IO' ('Int')--- -- clear :: 'Ref' 'Table' -> 'IO' () ----- clearSuper :: 'Ref' 'Table' -> 'IO' ()------ destroy :: 'Ref' 'Table' -> 'IO' ()------ doCallback :: 'Ref' 'Table' -> 'TableContext' -> 'TableCoordinate' -> 'IO' ()--- -- draw :: 'Ref' 'Table' -> 'IO' () ----- drawSuper :: 'Ref' 'Table' -> 'IO' ()------ end :: 'Ref' 'Table' -> 'IO' ()------ find:: ('Parent' a 'Widget') => 'Ref' 'Table' -> 'Ref' a -> 'IO' ('Int')------ findCell :: 'Ref' 'Table' -> 'TableContext' -> 'TableCoordinate' -> 'IO' ('Maybe' 'Rectangle')------ getArray :: 'Ref' 'Table' -> 'IO' ['Ref' 'Widget']------ getChild :: 'Ref' 'Table' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' 'Widget'))------ getColHeader :: 'Ref' 'Table' -> 'IO' ('Bool')------ getColHeaderColor :: 'Ref' 'Table' -> 'IO' ('Color')------ getColHeaderHeight :: 'Ref' 'Table' -> 'IO' ('Int')------ getColPosition :: 'Ref' 'Table' -> 'IO' ('Column')------ getColResize :: 'Ref' 'Table' -> 'IO' ('Bool')------ getColResizeMin :: 'Ref' 'Table' -> 'IO' ('Int')------ getColWidth :: 'Ref' 'Table' -> 'Column' -> 'IO' ('Int')------ getCols :: 'Ref' 'Table' -> 'IO' ('Columns')------ getRowHeader :: 'Ref' 'Table' -> 'IO' 'Bool'------ getRowHeaderColor :: 'Ref' 'Table' -> 'IO' ('Color')------ getRowHeaderWidth :: 'Ref' 'Table' -> 'IO' ('Int')------ getRowHeight :: 'Ref' 'Table' -> 'Row' -> 'IO' ('Int')------ getRowPosition :: 'Ref' 'Table' -> 'IO' ('Row')------ getRowResize :: 'Ref' 'Table' -> 'IO' ('Bool')------ getRowResizeMin :: 'Ref' 'Table' -> 'IO' ('Int')------ getRows :: 'Ref' 'Table' -> 'IO' ('Rows')------ getSelection :: 'Ref' 'Table' -> 'IO' ('TableCoordinate', 'TableCoordinate')------ getTabCellNav :: 'Ref' 'Table' -> 'IO' ('Bool')------ getTableBox :: 'Ref' 'Table' -> 'IO' ('Boxtype')------ getTopRow :: 'Ref' 'Table' -> 'IO' ('Row')------ getVisibleCells :: 'Ref' 'Table' -> 'IO' ('TableCoordinate,TableCoordinate')--- -- handle :: 'Ref' 'Table' -> 'Event' -> 'IO'( 'Either' 'UnknownEvent' ()) -- -- hide :: 'Ref' 'Table' -> 'IO' () ----- hideSuper :: 'Ref' 'Table' -> 'IO' ()------ initSizes :: 'Ref' 'Table' -> 'IO' ()------ insert:: ('Parent' a 'Widget') => 'Ref' 'Table' -> 'Ref' a -> 'AtIndex' -> 'IO' ()------ insertBefore:: ('Parent' a 'Widget', 'Parent' b 'Widget') => 'Ref' 'Table' -> 'Ref' a -> 'Ref' b -> 'IO' ()------ isInteractiveResize :: 'Ref' 'Table' -> 'IO' ('Bool')------ isSelected :: 'Ref' 'Table' -> 'TableCoordinate' -> 'IO' 'Bool'------ moveCursor :: 'Ref' 'Table' -> 'TableCoordinate' -> 'IO' ('Either' 'NoChange' ())--- -- resize :: 'Ref' 'Table' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Table' -> 'Rectangle' -> 'IO' ()------ setColHeader :: 'Ref' 'Table' -> 'Bool' -> 'IO' ()------ setColHeaderColor :: 'Ref' 'Table' -> 'Color' -> 'IO' ()------ setColHeaderHeight :: 'Ref' 'Table' -> 'Int' -> 'IO' ()------ setColPosition :: 'Ref' 'Table' -> 'Column' -> 'IO' ()------ setColResize :: 'Ref' 'Table' -> 'Bool' -> 'IO' ()------ setColResizeMin :: 'Ref' 'Table' -> 'Int' -> 'IO' ()------ setColWidth :: 'Ref' 'Table' -> 'Column' -> 'Int' -> 'IO' ()------ setColWidthAll :: 'Ref' 'Table' -> 'Int' -> 'IO' ()--- -- setCols :: 'Ref' 'Table' -> 'Columns' -> 'IO' () ----- setColsSuper :: 'Ref' 'Table' -> 'Columns' -> 'IO' ()------ setRowHeader :: 'Ref' 'Table' -> 'Bool' -> 'IO' ()------ setRowHeaderColor :: 'Ref' 'Table' -> 'Color' -> 'IO' ()------ setRowHeaderWidth :: 'Ref' 'Table' -> 'Int' -> 'IO' ()------ setRowHeight :: 'Ref' 'Table' -> 'Row' -> 'Int' -> 'IO' ()------ setRowHeightAll :: 'Ref' 'Table' -> 'Int' -> 'IO' ()------ setRowPosition :: 'Ref' 'Table' -> 'Row' -> 'IO' ()------ setRowResize :: 'Ref' 'Table' -> 'Bool' -> 'IO' ()------ setRowResizeMin :: 'Ref' 'Table' -> 'Int' -> 'IO' ()--- -- setRows :: 'Ref' 'Table' -> 'Rows' -> 'IO' () ----- setRowsSuper :: 'Ref' 'Table' -> 'Rows' -> 'IO' ()------ setSelection :: 'Ref' 'Table' -> 'TableCoordinate' -> 'TableCoordinate' ->'IO' ()------ setTabCellNav :: 'Ref' 'Table' -> 'Bool' -> 'IO' ()------ setTableBox :: 'Ref' 'Table' -> 'Boxtype' -> 'IO' ()------ setTopRow :: 'Ref' 'Table' -> 'Row' -> 'IO' ()--- -- showWidget :: 'Ref' 'Table' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Table' -> 'IO' ()--- @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Table" -- @
src/Graphics/UI/FLTK/LowLevel/TableRow.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.TableRow     (-     tableRowNew,-     TableRowSelectFlag(..)      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -17,164 +15,69 @@ #include "Fl_Types.h" #include "Fl_Table_RowC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)--import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Table+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--data TableRowSelectFlag = TableRowSelect | TableRowDeselect | TableRowToggle--{# fun Fl_OverriddenTable_Row_New as tableRowNew' {  `Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenTable_Row_New_WithLabel as tableRowNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-tableRowNew :: Rectangle -> Maybe T.Text -> Maybe (Ref TableRow -> IO ()) -> (Ref TableRow -> TableContext -> TableCoordinate -> Rectangle -> IO ()) -> CustomWidgetFuncs TableRow -> CustomTableFuncs TableRow -> IO (Ref TableRow)-tableRowNew rectangle label' draw' drawCell' customWidgetFuncs' customTableFuncs' =-    do-      let (x_pos, y_pos, width, height) = fromRectangle rectangle-      ptr <- tableCustomFunctionStruct draw' (Just drawCell') customWidgetFuncs' customTableFuncs'-      case label' of-        (Just l') -> copyTextToCString l' >>= \l'' -> tableRowNewWithLabel' x_pos y_pos width height l'' ptr >>= toRef-        Nothing -> do-          ref <- tableRowNew' x_pos y_pos width height ptr >>= toRef-          setFlag ref WidgetFlagCopiedLabel-          setFlag ref WidgetFlagCopiedTooltip-          return ref+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Table_Row_Destroy as tableRowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) TableRow orig impl where-  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> tableRowDestroy' tableRowPtr-{# fun Fl_Table_Row_rows as rows' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Rows))) => Op (GetRows ()) TableRow orig impl where-  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> rows' tableRowPtr >>= return . Rows-{# fun Fl_Table_Row_set_type as tableRowSetType' { id `Ptr ()', cFromEnum `TableRowSelectMode'} -> `()' #}-instance (impl ~ (TableRowSelectMode -> IO ())) => Op (SetType ()) TableRow orig impl where-  runOp _ _ tableRow selectionMode = withRef tableRow $ \tableRowPtr' -> tableRowSetType' tableRowPtr' selectionMode-{# fun Fl_Table_Row_type as tableRowType { id `Ptr ()' } -> `TableRowSelectMode' cToEnum  #}-instance (impl ~ (IO TableRowSelectMode)) => Op (GetType_ ()) TableRow orig impl where-  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr' -> tableRowType tableRowPtr'-{# fun Fl_Table_Row_set_rows as setRows' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Rows ->  IO ())) => Op (SetRows ()) TableRow orig impl where-  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRows' tablePtr val {# fun Fl_Table_Row_set_cols as setCols' { id `Ptr ()',`Int' } -> `()' #} instance (impl ~ (Columns ->  IO ())) => Op (SetCols ()) TableRow orig impl where   runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setCols' tablePtr val-{# fun Fl_Table_Row_clear_super as clearSuper' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (ClearSuper ()) TableRow orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> clearSuper' tablePtr-{# fun Fl_Table_Row_clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (Clear ()) TableRow orig impl where-  runOp _ _ table = withRef table $ \tablePtr -> clear' tablePtr-{# fun Fl_Table_Row_set_rows_super as setRowsSuper' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Rows ->  IO ())) => Op (SetRowsSuper ()) TableRow orig impl where-  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRowsSuper' tablePtr val-{# fun Fl_Table_Row_set_cols_super as setColsSuper' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Columns ->  IO ())) => Op (SetColsSuper ()) TableRow orig impl where-  runOp _ _ table (Columns val) = withRef table $ \tablePtr -> setColsSuper' tablePtr val-{# fun Fl_Table_Row_handle_super as handleSuper' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) TableRow orig impl where-   runOp _ _ table event = withRef table $ \tablePtr -> handleSuper' tablePtr event >>= return . successOrUnknownEvent-{# fun Fl_Table_Row_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}-instance (impl ~ (Event ->  IO(Either UnknownEvent ()))) => Op (Handle ()) TableRow orig impl where-  runOp _ _ table event = withRef table $ \tablePtr -> handle' tablePtr event >>= return  . successOrUnknownEvent-{# fun Fl_Table_Row_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ (Rectangle ->  IO ())) => Op (ResizeSuper ()) TableRow orig impl where-  runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resizeSuper' tablePtr x_pos' y_pos' width' height'-{# fun Fl_Table_Row_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) TableRow orig impl where-  runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'-{# fun Fl_Table_Row_row_selected as rowSelected' { id `Ptr ()', `Int'} -> `CInt' id #}-instance (impl ~ ( Row -> IO (Either OutOfRange Bool))) => Op (GetRowSelected ()) TableRow orig impl where-  runOp _ _ table (Row idx') = withRef table $ \tablePtr -> do-    ret' <- rowSelected' tablePtr idx'-    if ret' == -1 then (return $ Left OutOfRange) else (return $ Right $ cToBool ret')-{# fun Fl_Table_Row_select_all_rows_with_flag as selectAllRows' {id `Ptr ()', `Int'} -> `()' #}-instance (impl ~ ( TableRowSelectFlag -> IO ())) => Op (SelectAllRows ()) TableRow orig impl where-  runOp _ _ table flag' = withRef table $-                          \tablePtr ->-                             case flag' of-                              TableRowSelect -> selectAllRows' tablePtr 1-                              TableRowDeselect -> selectAllRows' tablePtr 0-                              TableRowToggle -> selectAllRows' tablePtr 2+{# fun Fl_Table_Row_set_rows as setRows' { id `Ptr ()',`Int' } -> `()' #}+instance (impl ~ (Rows ->  IO ())) => Op (SetRows ()) TableRow orig impl where+  runOp _ _ table (Rows val) = withRef table $ \tablePtr -> setRows' tablePtr val {# fun Fl_Table_Row_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) TableRow orig impl where   runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> draw'' tableRowPtr-{# fun Fl_Table_Row_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) TableRow orig impl where-  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> drawSuper' tableRowPtr {# fun Fl_Table_Row_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) TableRow orig impl where   runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> hide' tableRowPtr-{# fun Fl_Table_Row_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) TableRow orig impl where-  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> hideSuper' tableRowPtr {# fun Fl_Table_Row_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) TableRow orig impl where   runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> show' tableRowPtr-{# fun Fl_Table_Row_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) TableRow orig impl where-  runOp _ _ tableRow = withRef tableRow $ \tableRowPtr -> showSuper' tableRowPtr+{# fun Fl_Table_Row_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}+instance (impl ~ (Rectangle ->  IO ())) => Op (Resize ()) TableRow orig impl where+  runOp _ _ table rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef table $ \tablePtr -> resize' tablePtr x_pos' y_pos' width' height'+{# fun Fl_Table_Row_clear as clear' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Clear ()) TableRow orig impl where+  runOp _ _ table = withRef table $ \tablePtr -> clear' tablePtr+{# fun Fl_Table_Row_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}+instance (impl ~ (Event ->  IO(Either UnknownEvent ()))) => Op (Handle ()) TableRow orig impl where+  runOp _ _ table event = withRef table $ \tablePtr -> handle' tablePtr event >>= return  . successOrUnknownEvent +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Table"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.TableRow"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.TableRow"+-- @+ -- $functions -- @ -- clear :: 'Ref' 'TableRow' -> 'IO' () ----- clearSuper :: 'Ref' 'TableRow' -> 'IO' ()------ destroy :: 'Ref' 'TableRow' -> 'IO' ()--- -- draw :: 'Ref' 'TableRow' -> 'IO' () ----- drawSuper :: 'Ref' 'TableRow' -> 'IO' ()------ getRowSelected :: 'Ref' 'TableRow' -> 'Row' -> 'IO' ('Either' 'OutOfRange' 'Bool')------ getRows :: 'Ref' 'TableRow' -> 'IO' ('Rows')------ getType_ :: 'Ref' 'TableRow' -> 'IO' 'TableRowSelectMode'--- -- handle :: 'Ref' 'TableRow' -> 'Event' -> 'IO(Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'TableRow' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'TableRow' -> 'IO' () ----- hideSuper :: 'Ref' 'TableRow' -> 'IO' ()--- -- resize :: 'Ref' 'TableRow' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'TableRow' -> 'Rectangle' -> 'IO' ()------ selectAllRows :: 'Ref' 'TableRow' -> 'TableRowSelectFlag' -> 'IO' ()--- -- setCols :: 'Ref' 'TableRow' -> 'Columns' -> 'IO' () ----- setColsSuper :: 'Ref' 'TableRow' -> 'Columns' -> 'IO' ()--- -- setRows :: 'Ref' 'TableRow' -> 'Rows' -> 'IO' () ----- setRowsSuper :: 'Ref' 'TableRow' -> 'Rows' -> 'IO' ()------ setType :: 'Ref' 'TableRow' -> 'TableRowSelectMode' -> 'IO' ()--- -- showWidget :: 'Ref' 'TableRow' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'TableRow' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Table"---  |---  v--- "Graphics.UI.FLTK.LowLevel.TableRow" -- @
src/Graphics/UI/FLTK/LowLevel/Tabs.chs view
@@ -1,264 +1,67 @@-{-# LANGUAGE OverloadedStrings, CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Tabs     (-     tabsNew,-     tabsCustom,-     TabsHeightOffset(..),-     CustomTabFuncs(..)      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     ) where- #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_TabsC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy -data TabsHeightOffset = TabsAtTop (Maybe Int) | TabsAtBottom (Maybe Int)-tabsHeightOffsetToInt :: TabsHeightOffset -> Int-tabsHeightOffsetToInt h =-  case h of-    TabsAtTop Nothing -> 0-    TabsAtTop (Just o) -> o-    TabsAtBottom Nothing -> (-1)-    TabsAtBottom (Just o) -> (-o)--intToTabsHeightOffset :: Int -> TabsHeightOffset-intToTabsHeightOffset tabh =-  case tabh of-    _ | tabh == 0 -> TabsAtTop Nothing-      | tabh == (-1) -> TabsAtBottom Nothing-      | tabh > 0 -> TabsAtTop (Just (fromIntegral tabh))-      | otherwise -> TabsAtBottom (Just (fromIntegral tabh))--data CustomTabFuncs a =-  CustomTabFuncs-  {-    tabDrawCustom :: Ref a -> IO ()-  , tabPositionsCustom :: Ref a -> IO (Maybe AtIndex, Int, [(X,Width)])-  , tabHeightCustom :: Ref a -> IO Height-  , tabWhichCustom :: Ref a -> Position -> IO (Maybe (AtIndex, Ref Widget))-  , tabRedrawTabs :: Ref a -> IO ()-  , tabClientArea :: Ref a -> TabsHeightOffset -> IO Rectangle-  }--toTabClientAreaPrim :: (Ref a -> TabsHeightOffset -> IO Rectangle) -> IO (FunPtr TabClientAreaPrim)-toTabClientAreaPrim f =-  mkTabClientAreaPrim (\tabPtr xPtr yPtr wPtr hPtr tabh -> do-                          pp <- wrapNonNull tabPtr "Null pointer. toTabClientAreaPrim"-                          rect <- f (castTo (wrapInRef pp)) (intToTabsHeightOffset (fromIntegral tabh))-                          let (clientX, clientY, clientW, clientH) = fromRectangle rect-                          poke xPtr (fromIntegral clientX)-                          poke yPtr (fromIntegral clientY)-                          poke wPtr (fromIntegral clientW)-                          poke hPtr (fromIntegral clientH))--{# fun Fl_Tab_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}--toTabWhichPrim ::-  (Ref a -> Position -> IO (Maybe (AtIndex, Ref Widget))) ->-  IO (FunPtr TabWhichPrim)-toTabWhichPrim f =-  mkTabWhichPrim (\ptr event_x event_y -> do-                     pp <- wrapNonNull ptr "Null pointer. toTabWhichPrim"-                     res <- f (castTo (wrapInRef pp)) (Position (X (fromIntegral event_x)) (Y (fromIntegral event_y)))-                     maybe (return nullPtr) (\(_,ref) -> unsafeRefToPtr ref) res-                  )--customTabFunctionStruct ::-  (Parent a Tabs) =>-  (Ref a -> IO ()) ->-  (Ref a -> IO (Maybe AtIndex, Int, [(X,Width)])) ->-  (Ref a -> IO Height) ->-  (Ref a -> Position -> IO (Maybe (AtIndex, Ref Widget))) ->-  (Ref a -> IO ()) ->-  (Ref a -> TabsHeightOffset -> IO Rectangle) ->-  IO (Ptr())-customTabFunctionStruct tabDrawCustom' tabPositionsCustom' tabHeightCustom' tabWhichCustom' tabRedrawTabs' tabClientArea' =-    do-  structPtr <- virtualFuncs'-  toCallbackPrim tabDrawCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_draw #} structPtr-  toTabPositionsPrim tabPositionsCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_positions #} structPtr-  toTabHeightPrim tabHeightCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_height #} structPtr-  toTabWhichPrim tabWhichCustom' >>= {#set fl_Tab_Virtual_Funcs->tab_which #} structPtr-  toCallbackPrim tabRedrawTabs' >>= {#set fl_Tab_Virtual_Funcs->redraw_tabs #} structPtr-  toTabClientAreaPrim tabClientArea' >>= {#set fl_Tab_Virtual_Funcs->tab_client_area #} structPtr-  return structPtr--{# fun Fl_OverriddenTabs_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()', id `Ptr ()'} -> `Ptr ()' id #}-tabsCustom ::-     Rectangle                      -- ^ The bounds of this Tabs-  -> Maybe T.Text                   -- ^ The Tabs label-  -> Maybe (CustomTabFuncs Tabs)    -- ^ Optional custom tab drawing functions-  -> Maybe (CustomWidgetFuncs Tabs) -- ^ Optional custom widget functions-  -> IO (Ref Tabs)-tabsCustom rectangle l' tabFuncs' widgetFuncs' =-  let (x_pos, y_pos, width, height) = fromRectangle rectangle-  in do-   tabFuncsPtr <- maybe virtualFuncs'-                   (\tfs -> customTabFunctionStruct-                              (tabDrawCustom tfs)-                              (tabPositionsCustom tfs)-                              (tabHeightCustom tfs)-                              (tabWhichCustom tfs)-                              (tabRedrawTabs tfs)-                              (tabClientArea tfs))-                   tabFuncs'-   widgetFuncsPtr <- customWidgetFunctionStruct (fmap tabDrawCustom tabFuncs') (maybe defaultCustomWidgetFuncs id widgetFuncs')-   label' <- maybe (return nullPtr) copyTextToCString l'-   overriddenWidgetNewWithLabel' x_pos y_pos width height label' tabFuncsPtr widgetFuncsPtr >>= toRef--{# fun Fl_Tabs_New as tabsNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Tabs_New_WithLabel as tabsNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-tabsNew :: Rectangle -> Maybe T.Text -> IO (Ref Tabs)-tabsNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> tabsNew' x_pos y_pos width height >>= toRef-        Just l -> do-           ref <- copyTextToCString l >>= \l' -> tabsNewWithLabel' x_pos y_pos width height l' >>= toRef-           setFlag ref WidgetFlagCopiedLabel-           setFlag ref WidgetFlagCopiedTooltip-           return ref---{# fun Fl_Tabs_value as value' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (GetValue ()) Tabs orig impl where-   runOp _ _ tabs = withRef tabs $ \tabsPtr -> value' tabsPtr >>= toMaybeRef--{# fun Fl_Tabs_set_value as setValue' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (Parent a Widget, impl ~ (Maybe ( Ref a ) ->  IO (Either NoChange ()))) => Op (SetValue ()) Tabs orig impl where-   runOp _ _ tabs w = withRef tabs $ \tabsPtr -> withMaybeRef w $ \wPtr -> setValue' tabsPtr wPtr >>= return . successOrNoChange--{# fun Fl_Tabs_push as push' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (GetPush ()) Tabs orig impl where-   runOp _ _ tabs = withRef tabs $ \tabsPtr -> push' tabsPtr >>= toMaybeRef--{# fun Fl_Tabs_set_push as setPush' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (Parent a Widget, impl ~ (Maybe ( Ref a ) ->  IO (Either NoChange ()))) => Op (SetPush ()) Tabs orig impl where-   runOp _ _ tabs w = withRef tabs $ \tabsPtr -> withMaybeRef w $ \wPtr -> setPush' tabsPtr wPtr >>= return . successOrNoChange--{# fun Fl_Tabs_which as which' { id `Ptr ()',`Int',`Int' } -> `Ptr ()' id #}-instance (impl ~ (Position -> IO (Maybe (Ref Widget)))) => Op (Which ()) Tabs orig impl where-   runOp _ _ tabs (Position (X event_x) (Y event_y)) = withRef tabs $ \tabsPtr -> which' tabsPtr event_x event_y >>= toMaybeRef--{# fun Fl_Tabs_client_area_with_tabh as clientAreaWithTabh' { id `Ptr ()', alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv*, `Int'} -> `()' #}-instance (impl ~ (TabsHeightOffset -> IO Rectangle)) => Op (ClientArea ()) Tabs orig impl where-   runOp _ _ tabs tabh =-     withRef tabs $ \tabsPtr ->-       clientAreaWithTabh' tabsPtr (tabsHeightOffsetToInt tabh) >>= return . toRectangle- {# fun Fl_Tabs_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Tabs orig impl where   runOp _ _ tabs = withRef tabs $ \tabsPtr -> draw'' tabsPtr-{# fun Fl_Tabs_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Tabs orig impl where-  runOp _ _ tabs = withRef tabs $ \tabsPtr -> drawSuper' tabsPtr {#fun Fl_Tabs_handle as tabsHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Tabs orig impl where   runOp _ _ tabs event = withRef tabs (\p -> tabsHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Tabs_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Tabs orig impl where-  runOp _ _ tabs event = withRef tabs $ \tabsPtr -> handleSuper' tabsPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Tabs_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Tabs orig impl where   runOp _ _ tabs rectangle = withRef tabs $ \tabsPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' tabsPtr x_pos y_pos w_pos h_pos-{# fun Fl_Tabs_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Tabs orig impl where-  runOp _ _ tabs rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef tabs $ \tabsPtr -> resizeSuper' tabsPtr x_pos y_pos width height {# fun Fl_Tabs_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Tabs orig impl where   runOp _ _ tabs = withRef tabs $ \tabsPtr -> hide' tabsPtr-{# fun Fl_Tabs_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Tabs orig impl where-  runOp _ _ tabs = withRef tabs $ \tabsPtr -> hideSuper' tabsPtr {# fun Fl_Tabs_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Tabs orig impl where   runOp _ _ tabs = withRef tabs $ \tabsPtr -> show' tabsPtr-{# fun Fl_Tabs_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Tabs orig impl where-  runOp _ _ tabs = withRef tabs $ \tabsPtr -> showSuper' tabsPtr-{# fun Fl_Tabs_tab_positions as tabPositions' {id `Ptr ()'} -> `Int' #}-instance (impl ~ (IO AtIndex)) => Op (TabPositions ()) Tabs orig impl where-  runOp _ _ tabs = withRef tabs $ \tabsPtr -> tabPositions' tabsPtr >>= return . AtIndex-{# fun Fl_Tabs_tab_height as tabHeight' {id `Ptr ()'} -> `Int' #}-instance (impl ~ (IO Height)) => Op (TabHeight ()) Tabs orig impl where-  runOp _ _ tabs = withRef tabs $ \tabsPtr -> tabHeight' tabsPtr >>= return . Height-{# fun Fl_Tabs_get_tab_align as getTabAlign' { id `Ptr ()' } -> `AlignType' cToEnum #}-instance (impl ~ (IO (AlignType))) => Op (GetTabAlign ()) Tabs orig impl where-   runOp _ _ tabs = withRef tabs $ \tabsPtr -> getTabAlign' tabsPtr-{# fun Fl_Tabs_set_tab_align as setTabAlign' { id `Ptr ()', cFromEnum `AlignType' } -> `()'#}-instance (impl ~ (AlignType ->  IO ())) => Op (SetTabAlign ()) Tabs orig impl where-   runOp _ _ tabs a = withRef tabs $ \tabsPtr -> setTabAlign' tabsPtr a  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Tabs"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Tabs" -- @  -- $functions -- @--- clientArea :: 'Ref' 'Tabs' -> 'TabsHeightOffset' -> 'IO' 'Rectangle'--- -- draw :: 'Ref' 'Tabs' -> 'IO' () ----- drawSuper :: 'Ref' 'Tabs' -> 'IO' ()------ getPush :: 'Ref' 'Tabs' -> 'IO' ('Maybe' ('Ref' 'Widget'))------ getTabAlign :: 'Ref' 'Tabs' -> 'IO' ('AlignType')------ getValue :: 'Ref' 'Tabs' -> 'IO' ('Maybe' ('Ref' 'Widget'))--- -- handle :: 'Ref' 'Tabs' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Tabs' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Tabs' -> 'IO' () ----- hideSuper :: 'Ref' 'Tabs' -> 'IO' ()--- -- resize :: 'Ref' 'Tabs' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Tabs' -> 'Rectangle' -> 'IO' ()------ setPush:: ('Parent' a 'Widget') => 'Ref' 'Tabs' -> 'Maybe' ( 'Ref' a ) -> 'IO' ('Either' 'NoChange' ())------ setTabAlign :: 'Ref' 'Tabs' -> 'AlignType' -> 'IO' ()------ setValue:: ('Parent' a 'Widget') => 'Ref' 'Tabs' -> 'Maybe' ( 'Ref' a ) -> 'IO' ('Either' 'NoChange' ())--- -- showWidget :: 'Ref' 'Tabs' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Tabs' -> 'IO' ()------ tabHeight :: 'Ref' 'Tabs' -> 'IO' 'Height'------ tabPositions :: 'Ref' 'Tabs' -> 'IO' 'AtIndex'------ which :: 'Ref' 'Tabs' -> 'Position' -> 'IO' ('Maybe' ('Ref' 'Widget')) -- @
src/Graphics/UI/FLTK/LowLevel/TextBuffer.chs view
@@ -19,21 +19,23 @@  import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils+import Graphics.UI.FLTK.LowLevel.Base.Widget(defaultDestroyCallbacks) import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T-{# fun Fl_Text_Buffer_New as new' {} -> `Ptr ()' id #}-{# fun Fl_Text_Buffer_New_With_RequestedSize as newRequestedSize' {`Int'}-> `Ptr ()' id #}-{# fun Fl_Text_Buffer_New_With_PreferredGapSize as newPreferredGapSize' {`Int'} -> `Ptr ()' id #}-{# fun Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize as newRequestedSizePreferredGapSize' {`Int', `Int'}-> `Ptr ()' id #}+{# fun Fl_Text_Buffer_New as new' {id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+{# fun Fl_Text_Buffer_New_With_RequestedSize as newRequestedSize' {`Int',id `FunPtr DestroyCallbacksPrim'}-> `Ptr ()' id #}+{# fun Fl_Text_Buffer_New_With_PreferredGapSize as newPreferredGapSize' {`Int',id `FunPtr DestroyCallbacksPrim'} -> `Ptr ()' id #}+{# fun Fl_Text_Buffer_New_With_RequestedSize_PreferredGapSize as newRequestedSizePreferredGapSize' {`Int', `Int',id `FunPtr DestroyCallbacksPrim'}-> `Ptr ()' id #}  textBufferNew :: Maybe PreferredSize -> Maybe GapSize -> IO (Ref TextBuffer)-textBufferNew req' pref' =+textBufferNew req' pref' = do+  destroyFptr <- toDestroyCallbacksPrim (defaultDestroyCallbacks :: (Ref TextBuffer -> [Maybe (FunPtr (IO ()))] -> IO ()))   case (req',pref') of-    (Just (PreferredSize r'), Just (GapSize p')) -> newRequestedSizePreferredGapSize' r' p' >>= toRef-    (Just (PreferredSize r'), Nothing) -> newRequestedSize' r' >>= toRef-    (Nothing, Just (GapSize p')) -> newPreferredGapSize' p' >>= toRef-    (Nothing, Nothing) -> new' >>= toRef+    (Just (PreferredSize r'), Just (GapSize p')) -> newRequestedSizePreferredGapSize' r' p' destroyFptr >>= toRef+    (Just (PreferredSize r'), Nothing) -> newRequestedSize' r' destroyFptr >>= toRef+    (Nothing, Just (GapSize p')) -> newPreferredGapSize' p' destroyFptr >>= toRef+    (Nothing, Nothing) -> new' destroyFptr >>= toRef  {# fun Fl_Text_Buffer_Destroy as textbufferDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (Destroy ()) TextBuffer orig impl where@@ -356,6 +358,7 @@      withRef text_buffer $ \text_bufferPtr -> do      p' <- utf8Align' text_bufferPtr align      successOrOutOfRange p' (p' == 0) (return . AtIndex)+  -- $hierarchy -- @
src/Graphics/UI/FLTK/LowLevel/TextDisplay.chs view
@@ -1,510 +1,67 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.TextDisplay-       (-         mkStyleTableEntriesPtr,-         toStyleTableEntries,-         indexStyleTableEntries,-         textDisplayNew,-         textDisplayCustom-         -- * Hierarchy-         ---         -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -         -- * Functions-         ---         -- $functions-       )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Text_DisplayC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget-import qualified Foreign.Concurrent as FC-import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import qualified Foreign.ForeignPtr.Unsafe as Unsafe--mkStyleTableEntriesPtr :: (Parent a TextDisplay) => Ref a -> [StyleTableEntry] -> IO (ForeignPtr [StyleTableEntry])-mkStyleTableEntriesPtr td stes = do-  styleTableEntriesPtr <- mallocBytes ((length stes) * {#sizeof Style_Table_Entry #})-  mapM_-    (-      \(idx, (StyleTableEntry c f s)) -> do-        let currPtr = styleTableEntriesPtr `plusPtr` (idx * {#sizeof Style_Table_Entry #})-        {#set Style_Table_Entry->color #} currPtr $ maybe 0 (\(Color c') -> fromIntegral c') c-        {#set Style_Table_Entry->font  #} currPtr $ maybe 0 (\(Font f') -> fromIntegral f') f-        {#set Style_Table_Entry->size  #} currPtr $ maybe 0 (\(FontSize s') -> s') s-        {#set Style_Table_Entry->attr  #} currPtr 0-    )-    (zip [0..] stes)-  textDisplayAsPtr <- unsafeRefToPtr td-  let finalizerF = if (textDisplayAsPtr == nullPtr)-                   then free styleTableEntriesPtr-                   else return ()-  FC.newForeignPtr-   styleTableEntriesPtr-   finalizerF--toStyleTableEntries :: Int -> Ptr () -> IO (Maybe [StyleTableEntry])-toStyleTableEntries len ptr = do-  entries <- mapM toStyleTableEntry [0 .. (len - 1)]-  return (sequence entries)-  where-    toStyleTableEntry :: Int  -> IO (Maybe StyleTableEntry)-    toStyleTableEntry idx =-      let entryPtr = ptr `plusPtr` (idx * {#sizeof Style_Table_Entry#}) in-      if (entryPtr == nullPtr)-       then return Nothing-       else do-       color <- {#get Style_Table_Entry->color #} entryPtr-       font <- {#get Style_Table_Entry->font #} entryPtr-       fontSize <- {#get Style_Table_Entry->size #} entryPtr-       return-        (Just-           (-             StyleTableEntry-               (if (color == 0) then Nothing else Just (Color (fromIntegral color)))-               (if (font == 0) then Nothing else Just (Font (fromIntegral font)))-               (if (fontSize == 0) then Nothing else Just (FontSize (fromIntegral fontSize)))-           )-        )--indexStyleTableEntries :: [StyleTableEntry] -> [(Char, StyleTableEntry)]-indexStyleTableEntries = zip ['A'..]--{# fun Fl_OverriddenText_Display_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenText_Display_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-textDisplayCustom ::-       Rectangle                         -- ^ The bounds of this TextDisplay-    -> Maybe T.Text                      -- ^ The TextDisplay label-    -> Maybe (Ref TextDisplay -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs TextDisplay)      -- ^ Optional custom widget functions-    -> IO (Ref TextDisplay)-textDisplayCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Text_Display_New as textDisplayNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Text_Display_New_WithLabel as textDisplayNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-textDisplayNew :: Rectangle -> Maybe T.Text -> IO (Ref TextDisplay)-textDisplayNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in do-     r <- case l' of-           Nothing -> textDisplayNew' x_pos y_pos width height >>= toRef-           Just l -> copyTextToCString l >>= \l' -> textDisplayNewWithLabel' x_pos y_pos width height l' >>= toRef-     setFlag r WidgetFlagCopiedLabel-     setFlag r WidgetFlagCopiedTooltip-     return r+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Text_Display_Destroy as textDisplayDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) TextDisplay orig impl where-  runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textDisplayDestroy' text_displayPtr-{# fun Fl_Text_Display_set_buffer as setBuffer' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a TextBuffer, impl ~ (Maybe ( Ref a ) ->  IO ())) => Op (SetBuffer ()) TextDisplay orig impl where-   runOp _ _ text_display buf = withRef text_display $ \text_displayPtr -> withMaybeRef buf $ \bufPtr -> setBuffer' text_displayPtr bufPtr-{# fun Fl_Text_Display_buffer as buffer' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TextBuffer)))) => Op (GetBuffer ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> buffer' text_displayPtr >>= toMaybeRef-{# fun Fl_Text_Display_redisplay_range as redisplayRange' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (IndexRange -> IO ())) => Op (RedisplayRange ()) TextDisplay orig impl where-  runOp _ _ text_display (IndexRange (AtIndex start') (AtIndex end')) = withRef text_display $ \text_displayPtr -> redisplayRange' text_displayPtr start' end'-{# fun Fl_Text_Display_scroll as scroll' { id `Ptr ()',`Int',`Int' } -> `()' #}-instance (impl ~ (LineNumber -> AtIndex ->  IO ())) => Op (Scroll ()) TextDisplay orig impl where-  runOp _ _ text_display (LineNumber toplinenum) (AtIndex  horizoffset) = withRef text_display $ \text_displayPtr -> scroll' text_displayPtr toplinenum horizoffset-{# fun Fl_Text_Display_overstrike as overstrike' { id `Ptr ()',`CString' } -> `()' #}-instance (impl ~ (T.Text ->  IO ())) => Op (Overstrike ()) TextDisplay orig impl where-   runOp _ _ text_display text = withRef text_display $ \text_displayPtr -> copyTextToCString text >>= overstrike' text_displayPtr-{# fun Fl_Text_Display_set_insert_position as setInsertPosition' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (AtIndex ->  IO ())) => Op (SetInsertPosition ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex newpos) = withRef text_display $ \text_displayPtr -> setInsertPosition' text_displayPtr newpos-{# fun Fl_Text_Display_insert_position as insertPosition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO AtIndex)) => Op (GetInsertPosition ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> insertPosition' text_displayPtr >>= return . AtIndex-{# fun Fl_Text_Display_position_to_xy as positionToXy' { id `Ptr ()',`Int', id `Ptr CInt', id `Ptr CInt'} -> `Int' #}-instance (impl ~ (AtIndex ->  IO (Either OutOfRange Position))) => Op (PositionToXy ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex pos)  =-     withRef text_display $ \text_displayPtr ->-     alloca $ \xPtr ->-     alloca $ \yPtr -> do-     status' <- positionToXy' text_displayPtr pos xPtr yPtr-     successOrOutOfRange-       ((xPtr,yPtr))-       (status' == 0)-       (\(xp',yp') -> do-           x' <- peekIntConv xp'-           y' <- peekIntConv yp'-           return (Position (X x') (Y y'))-       )-{# fun Fl_Text_Display_in_selection as inSelection' { id `Ptr ()',`Int',`Int' } -> `Bool' cToBool #}-instance (impl ~ (Position ->  IO (Bool))) => Op (InSelection ()) TextDisplay orig impl where-   runOp _ _ text_display (Position (X x_pos') (Y y_pos')) = withRef text_display $ \text_displayPtr -> inSelection' text_displayPtr x_pos' y_pos'-{# fun Fl_Text_Display_show_insert_position as showInsertPosition' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (ShowInsertPosition ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> showInsertPosition' text_displayPtr-{# fun Fl_Text_Display_move_right as moveRight' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveRight ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr ->-     moveRight' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return-{# fun Fl_Text_Display_move_left as moveLeft' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveLeft ()) TextDisplay orig impl where-   runOp _ _ text_display =-     withRef text_display $ \text_displayPtr ->-     moveLeft' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return-{# fun Fl_Text_Display_move_up as moveUp' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveUp ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr ->-     moveUp' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return-{# fun Fl_Text_Display_move_down as moveDown' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Either OutOfRange ()))) => Op (MoveDown ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr ->-     moveDown' text_displayPtr >>= \s -> successOrOutOfRange () (s == 0) return-{# fun Fl_Text_Display_count_lines as countLines' { id `Ptr ()',`Int',`Int', cFromBool `Bool' } -> `Int' #}-instance (impl ~ (IndexRange -> Bool ->  IO (Int))) => Op (CountLines ()) TextDisplay orig impl where-  runOp _ _ text_display (IndexRange (AtIndex start') (AtIndex end')) start_pos_is_line_start =-    withRef text_display $ \text_displayPtr -> countLines' text_displayPtr start' end' start_pos_is_line_start-{# fun Fl_Text_Display_line_start as lineStart' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (AtIndex))) => Op (LineStart ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex pos) = withRef text_display $ \text_displayPtr -> lineStart' text_displayPtr pos >>= return . AtIndex-{# fun Fl_Text_Display_line_end as lineEnd' { id `Ptr ()',`Int', cFromBool `Bool' } -> `Int' #}-instance (impl ~ (AtIndex -> Bool ->  IO (AtIndex))) => Op (LineEnd ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex startpos) startposislinestart = withRef text_display $ \text_displayPtr -> lineEnd' text_displayPtr startpos startposislinestart >>= return . AtIndex-{# fun Fl_Text_Display_skip_lines as skipLines' { id `Ptr ()',`Int',`Int', cFromBool `Bool' } -> `Int' #}-instance (impl ~ (AtIndex -> Int -> Bool ->  IO (AtIndex))) => Op (SkipLines ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex startpos) nlines startposislinestart = withRef text_display $ \text_displayPtr -> skipLines' text_displayPtr startpos nlines startposislinestart >>= return . AtIndex-{# fun Fl_Text_Display_rewind_lines as rewindLines' { id `Ptr ()',`Int',`Int' } -> `Int' #}-instance (impl ~ (AtIndex -> Int ->  IO (AtIndex))) => Op (RewindLines ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex startpos) nlines = withRef text_display $ \text_displayPtr -> rewindLines' text_displayPtr startpos nlines >>= return . AtIndex-{# fun Fl_Text_Display_next_word as nextWord' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (NextWord ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> nextWord' text_displayPtr-{# fun Fl_Text_Display_previous_word as previousWord' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (PreviousWord ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> previousWord' text_displayPtr-{# fun Fl_Text_Display_show_cursor_with_b as showCursorWithB' { id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (ShowCursor ()) TextDisplay orig impl where-   runOp _ _ text_display b = withRef text_display $ \text_displayPtr -> showCursorWithB' text_displayPtr b-{# fun Fl_Text_Display_set_cursor_style as cursorStyle' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (CursorType -> IO ())) => Op (SetCursorStyle ()) TextDisplay orig impl where-   runOp _ _ text_display ct = withRef text_display $ \text_displayPtr -> cursorStyle' text_displayPtr (fromEnum ct)-{# fun Fl_Text_Display_cursor_color as cursorColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetCursorColor ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> cursorColor' text_displayPtr-{# fun Fl_Text_Display_set_cursor_color as setCursorColor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetCursorColor ()) TextDisplay orig impl where-   runOp _ _ text_display n = withRef text_display $ \text_displayPtr -> setCursorColor' text_displayPtr n-{# fun Fl_Text_Display_scrollbar_width as scrollbarWidth' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Width))) => Op (GetScrollbarWidth ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> scrollbarWidth' text_displayPtr >>= return . Width-{# fun Fl_Text_Display_set_scrollbar_width as setScrollbarWidth' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Width ->  IO ())) => Op (SetScrollbarWidth ()) TextDisplay orig impl where-  runOp _ _ text_display (Width w) = withRef text_display $ \text_displayPtr -> setScrollbarWidth' text_displayPtr w-{# fun Fl_Text_Display_scrollbar_align as scrollbarAlign' { id `Ptr ()' } -> `AlignType' cToEnum #}-instance (impl ~ ( IO (AlignType))) => Op (GetScrollbarAlign ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> scrollbarAlign' text_displayPtr-{# fun Fl_Text_Display_set_scrollbar_align as setScrollbarAlign' { id `Ptr ()',cFromEnum `AlignType' } -> `()' #}-instance (impl ~ (AlignType ->  IO ())) => Op (SetScrollbarAlign ()) TextDisplay orig impl where-   runOp _ _ text_display a = withRef text_display $ \text_displayPtr -> setScrollbarAlign' text_displayPtr a-{# fun Fl_Text_Display_word_start as wordStart' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (AtIndex))) => Op (WordStart ()) TextDisplay orig impl where-   runOp _ _ text_display (AtIndex pos) = withRef text_display $ \text_displayPtr -> wordStart' text_displayPtr pos >>= return . AtIndex-{# fun Fl_Text_Display_word_end as wordEnd' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (AtIndex ->  IO (AtIndex))) => Op (WordEnd ()) TextDisplay orig impl where-   runOp _ _ text_display (AtIndex pos) = withRef text_display $ \text_displayPtr -> wordEnd' text_displayPtr pos >>= return . AtIndex-{# fun Fl_Text_Display_highlight_data as highlightData' { id `Ptr ()',id `Ptr ()',id `Ptr ()',`Int', id `CChar',id `FunPtr UnfinishedStyleCbPrim',id `Ptr ()' } -> `()' #}-instance (Parent a TextBuffer, impl ~ (Ref a -> [(Char, StyleTableEntry)] -> Maybe(Char,UnfinishedStyleCb) -> IO ())) => Op (HighlightData ()) TextDisplay orig impl where-   runOp _ _ text_display style_buffer indexedStyleTable cb =-     withRef text_display $ \text_displayPtr ->-     withRef style_buffer $ \style_bufferPtr -> do-       stesPtr <- mkStyleTableEntriesPtr text_display (map snd indexedStyleTable)-       (indexChar, fPtr) <- case cb of-         (Just (indexChar', unfinishedhighlightcb)) -> do-           fPtr' <- toUnfinishedStyleCbPrim unfinishedhighlightcb-           return ((fromEnum indexChar'), fPtr')-         Nothing -> return (0, nullFunPtr)-       highlightData' text_displayPtr style_bufferPtr (castPtr $ Unsafe.unsafeForeignPtrToPtr $ stesPtr) (length indexedStyleTable) (fromIntegral indexChar) fPtr nullPtr-{# fun Fl_Text_Display_position_style as positionStyle' { id `Ptr ()',`Int',`Int',`Int' } -> `Int' #}-instance (impl ~ (AtIndex -> Int -> LineNumber ->  IO TextDisplayStyle)) => Op (PositionStyle ()) TextDisplay orig impl where-  runOp _ _ text_display (AtIndex linestartpos) linelen (LineNumber lineindex) =-    withRef text_display $ \text_displayPtr ->-    positionStyle' text_displayPtr linestartpos linelen lineindex >>= return . TextDisplayStyle . fromIntegral-{# fun Fl_Text_Display_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}-instance (impl ~ ( IO (Maybe ShortcutKeySequence))) => Op (GetShortcut ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> shortcut' text_displayPtr >>= return . cIntToKeySequence-{# fun Fl_Text_Display_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) TextDisplay orig impl where-  runOp _ _ input (ShortcutKeySequence modifiers char) =-    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)-{# fun Fl_Text_Display_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textfont' text_displayPtr-{# fun Fl_Text_Display_set_textfont as setTextfont' { id `Ptr ()', `CInt'} -> `()' #}-instance (impl ~ ( Font -> IO ())) => Op (SetTextfont ()) TextDisplay orig impl where-   runOp _ _ text_display font = withRef text_display $ \text_displayPtr -> setTextfont' text_displayPtr (cFromFont font)-{# fun Fl_Text_Display_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textsize' text_displayPtr >>= return . FontSize-{# fun Fl_Text_Display_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) TextDisplay orig impl where-   runOp _ _ text_display (FontSize s) = withRef text_display $ \text_displayPtr -> setTextsize' text_displayPtr s-{# fun Fl_Text_Display_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> textcolor' text_displayPtr-{# fun Fl_Text_Display_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) TextDisplay orig impl where-   runOp _ _ text_display n = withRef text_display $ \text_displayPtr -> setTextcolor' text_displayPtr n-{# fun Fl_Text_Display_x_to_col as xToCol' { id `Ptr ()',`Double' } -> `Double' #}-instance (impl ~ (Double ->  IO (Double))) => Op (XToCol ()) TextDisplay orig impl where-   runOp _ _ text_display pixelPos = withRef text_display $ \text_displayPtr -> xToCol' text_displayPtr pixelPos-{# fun Fl_Text_Display_col_to_x as colToX' { id `Ptr ()',`Double' } -> `Double' #}-instance (impl ~ (Double ->  IO (Double))) => Op (ColToX ()) TextDisplay orig impl where-   runOp _ _ text_display col = withRef text_display $ \text_displayPtr -> colToX' text_displayPtr col-{# fun set_linenumber_width as setLinenumberWidth' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Width ->  IO ())) => Op (SetLinenumberWidth ()) TextDisplay orig impl where-  runOp _ _ text_display (Width width) = withRef text_display $ \text_displayPtr -> setLinenumberWidth' text_displayPtr width-{# fun linenumber_width as linenumberWidth' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Width))) => Op (GetLinenumberWidth ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberWidth' text_displayPtr >>= return . Width-{# fun set_linenumber_font as setLinenumberFont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetLinenumberFont ()) TextDisplay orig impl where-   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberFont' text_displayPtr val-{# fun linenumber_font as linenumberFont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetLinenumberFont ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFont' text_displayPtr-{# fun set_linenumber_size as setLinenumberSize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetLinenumberSize ()) TextDisplay orig impl where-  runOp _ _ text_display (FontSize val) = withRef text_display $ \text_displayPtr -> setLinenumberSize' text_displayPtr val-{# fun linenumber_size as linenumberSize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetLinenumberSize ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberSize' text_displayPtr >>= return . FontSize-{# fun set_linenumber_fgcolor as setLinenumberFgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetLinenumberFgcolor ()) TextDisplay orig impl where-   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberFgcolor' text_displayPtr val-{# fun linenumber_fgcolor as linenumberFgcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetLinenumberFgcolor ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFgcolor' text_displayPtr-{# fun set_linenumber_bgcolor as setLinenumberBgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetLinenumberBgcolor ()) TextDisplay orig impl where-   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberBgcolor' text_displayPtr val-{# fun linenumber_bgcolor as linenumberBgcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetLinenumberBgcolor ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberBgcolor' text_displayPtr-{# fun set_linenumber_align as setLinenumberAlign' { id `Ptr ()',cFromEnum `AlignType' } -> `()' #}-instance (impl ~ (AlignType ->  IO ())) => Op (SetLinenumberAlign ()) TextDisplay orig impl where-   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> setLinenumberAlign' text_displayPtr val-{# fun linenumber_align as linenumberAlign' { id `Ptr ()' } -> `AlignType' cToEnum #}-instance (impl ~ ( IO (AlignType))) => Op (GetLinenumberAlign ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberAlign' text_displayPtr-{# fun set_linenumber_format as setLinenumberFormat' { id `Ptr ()',`CString' } -> `()' #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetLinenumberFormat ()) TextDisplay orig impl where-   runOp _ _ text_display val = withRef text_display $ \text_displayPtr -> copyTextToCString val >>= setLinenumberFormat' text_displayPtr-{# fun linenumber_format as linenumberFormat' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetLinenumberFormat ()) TextDisplay orig impl where-   runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFormat' text_displayPtr >>= cStringToText-{# fun Fl_Text_Display_wrap_mode as wrapMode' { id `Ptr ()', `CInt', `CInt'} -> `()' #}-instance (impl ~ (WrapType -> IO ())) => Op (WrapMode ()) TextDisplay orig impl where-  runOp _ _ textDisplay wt =-    withRef textDisplay $ \textDisplayPtr ->-      (case wt of-        (WrapAtPixel (PixelPosition p')) -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapAtPixelFl) (fromIntegral p')-        (WrapAtColumn (ColumnNumber c')) -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapAtColumnFl) (fromIntegral c')-        WrapAtBounds -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapAtBoundsFl) (fromIntegral (0 :: Int))-        WrapNone -> wrapMode' textDisplayPtr ((fromIntegral . fromEnum) WrapNoneFl) (fromIntegral (0 :: Int))-      )-{# fun Fl_Text_Display_draw as draw'' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Draw ()) TextDisplay orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> draw'' textDisplayPtr-{# fun Fl_Text_Display_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) TextDisplay orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> drawSuper' textDisplayPtr-{#fun Fl_Text_Display_handle as textDisplayHandle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TextDisplay orig impl where-  runOp _ _ textDisplay event = withRef textDisplay (\p -> textDisplayHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Text_Display_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) TextDisplay orig impl where-  runOp _ _ textDisplay event = withRef textDisplay $ \textDisplayPtr -> handleSuper' textDisplayPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Text_Display_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TextDisplay orig impl where+  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> hide' textDisplayPtr {# fun Fl_Text_Display_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TextDisplay orig impl where   runOp _ _ textDisplay rectangle = withRef textDisplay $ \textDisplayPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' textDisplayPtr x_pos y_pos w_pos h_pos-{# fun Fl_Text_Display_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) TextDisplay orig impl where-  runOp _ _ textDisplay rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef textDisplay $ \textDisplayPtr -> resizeSuper' textDisplayPtr x_pos y_pos width height-{# fun Fl_Text_Display_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) TextDisplay orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> hide' textDisplayPtr-{# fun Fl_Text_Display_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) TextDisplay orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> hideSuper' textDisplayPtr+{#fun Fl_Text_Display_handle as textDisplayHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TextDisplay orig impl where+  runOp _ _ textDisplay event = withRef textDisplay (\p -> textDisplayHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent {# fun Fl_Text_Display_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) TextDisplay orig impl where   runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> show' textDisplayPtr-{# fun Fl_Text_Display_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) TextDisplay orig impl where-  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> showSuper' textDisplayPtr+{# fun Fl_Text_Display_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Draw ()) TextDisplay orig impl where+  runOp _ _ textDisplay = withRef textDisplay $ \textDisplayPtr -> draw'' textDisplayPtr  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.TextDisplay"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.TextDisplay" -- @  -- $functions -- @--- colToX :: 'Ref' 'TextDisplay' -> 'Double' -> 'IO' ('Double')------ countLines :: 'Ref' 'TextDisplay' -> 'IndexRange' -> 'Bool' -> 'IO' ('Int')------ destroy :: 'Ref' 'TextDisplay' -> 'IO' ()--- -- draw :: 'Ref' 'TextDisplay' -> 'IO' () ----- drawSuper :: 'Ref' 'TextDisplay' -> 'IO' ()------ getBuffer :: 'Ref' 'TextDisplay' -> 'IO' ('Maybe' ('Ref' 'TextBuffer'))------ getCursorColor :: 'Ref' 'TextDisplay' -> 'IO' ('Color')------ getInsertPosition :: 'Ref' 'TextDisplay' -> 'IO' 'AtIndex'------ getLinenumberAlign :: 'Ref' 'TextDisplay' -> 'IO' ('AlignType')------ getLinenumberBgcolor :: 'Ref' 'TextDisplay' -> 'IO' ('Color')------ getLinenumberFgcolor :: 'Ref' 'TextDisplay' -> 'IO' ('Color')------ getLinenumberFont :: 'Ref' 'TextDisplay' -> 'IO' ('Font')------ getLinenumberFormat :: 'Ref' 'TextDisplay' -> 'IO' 'T.Text'------ getLinenumberSize :: 'Ref' 'TextDisplay' -> 'IO' ('FontSize')------ getLinenumberWidth :: 'Ref' 'TextDisplay' -> 'IO' ('Width')------ getScrollbarAlign :: 'Ref' 'TextDisplay' -> 'IO' ('AlignType')------ getScrollbarWidth :: 'Ref' 'TextDisplay' -> 'IO' ('Width')------ getShortcut :: 'Ref' 'TextDisplay' -> 'IO' ('Maybe' 'ShortcutKeySequence')------ getTextcolor :: 'Ref' 'TextDisplay' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'TextDisplay' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'TextDisplay' -> 'IO' ('FontSize')--- -- handle :: 'Ref' 'TextDisplay' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'TextDisplay' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'TextDisplay' -> 'IO' () ----- hideSuper :: 'Ref' 'TextDisplay' -> 'IO' ()------ highlightData:: ('Parent' a 'TextBuffer') => 'Ref' 'TextDisplay' -> 'Ref' a -> [('Char', 'StyleTableEntry']) -> 'Maybe(Char,UnfinishedStyleCb') -> 'IO' ()------ inSelection :: 'Ref' 'TextDisplay' -> 'Position' -> 'IO' ('Bool')------ lineEnd :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'Bool' -> 'IO' ('AtIndex')------ lineStart :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'IO' ('AtIndex')------ moveDown :: 'Ref' 'TextDisplay' -> 'IO' ('Either' 'OutOfRange' ())------ moveLeft :: 'Ref' 'TextDisplay' -> 'IO' ('Either' 'OutOfRange' ())------ moveRight :: 'Ref' 'TextDisplay' -> 'IO' ('Either' 'OutOfRange' ())------ moveUp :: 'Ref' 'TextDisplay' -> 'IO' ('Either' 'OutOfRange' ())------ nextWord :: 'Ref' 'TextDisplay' -> 'IO' ()------ overstrike :: 'Ref' 'TextDisplay' -> 'T.Text' -> 'IO' ()------ positionStyle :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'Int' -> 'LineNumber' -> 'IO' 'TextDisplayStyle'------ positionToXy :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'IO' ('Either' 'OutOfRange' 'Position')------ previousWord :: 'Ref' 'TextDisplay' -> 'IO' ()------ redisplayRange :: 'Ref' 'TextDisplay' -> 'IndexRange' -> 'IO' ()--- -- resize :: 'Ref' 'TextDisplay' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'TextDisplay' -> 'Rectangle' -> 'IO' ()------ rewindLines :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'Int' -> 'IO' ('AtIndex')------ scroll :: 'Ref' 'TextDisplay' -> 'LineNumber' -> 'AtIndex' -> 'IO' ()------ setBuffer:: ('Parent' a 'TextBuffer') => 'Ref' 'TextDisplay' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()------ setCursorColor :: 'Ref' 'TextDisplay' -> 'Color' -> 'IO' ()------ setCursorStyle :: 'Ref' 'TextDisplay' -> 'CursorType' -> 'IO' ()------ setInsertPosition :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'IO' ()------ setLinenumberAlign :: 'Ref' 'TextDisplay' -> 'AlignType' -> 'IO' ()------ setLinenumberBgcolor :: 'Ref' 'TextDisplay' -> 'Color' -> 'IO' ()------ setLinenumberFgcolor :: 'Ref' 'TextDisplay' -> 'Color' -> 'IO' ()------ setLinenumberFont :: 'Ref' 'TextDisplay' -> 'Font' -> 'IO' ()------ setLinenumberFormat :: 'Ref' 'TextDisplay' -> 'T.Text' -> 'IO' ()------ setLinenumberSize :: 'Ref' 'TextDisplay' -> 'FontSize' -> 'IO' ()------ setLinenumberWidth :: 'Ref' 'TextDisplay' -> 'Width' -> 'IO' ()------ setScrollbarAlign :: 'Ref' 'TextDisplay' -> 'AlignType' -> 'IO' ()------ setScrollbarWidth :: 'Ref' 'TextDisplay' -> 'Width' -> 'IO' ()------ setShortcut :: 'Ref' 'TextDisplay' -> 'ShortcutKeySequence' -> 'IO' ()------ setTextcolor :: 'Ref' 'TextDisplay' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'TextDisplay' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'TextDisplay' -> 'FontSize' -> 'IO' ()------ showCursor :: 'Ref' 'TextDisplay' -> 'Bool' -> 'IO' ()------ showInsertPosition :: 'Ref' 'TextDisplay' -> 'IO' ()--- -- showWidget :: 'Ref' 'TextDisplay' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'TextDisplay' -> 'IO' ()------ skipLines :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'Int' -> 'Bool' -> 'IO' ('AtIndex')------ wordEnd :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'IO' ('AtIndex')------ wordStart :: 'Ref' 'TextDisplay' -> 'AtIndex' -> 'IO' ('AtIndex')------ wrapMode :: 'Ref' 'TextDisplay' -> 'WrapType' -> 'IO' ()------ xToCol :: 'Ref' 'TextDisplay' -> 'Double' -> 'IO' ('Double') -- @
src/Graphics/UI/FLTK/LowLevel/TextEditor.chs view
@@ -1,240 +1,70 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.TextEditor-       (-         textEditorNew,-         textEditorCustom,-         KeyBinding(..),-         KeyFunc(..),-         KeyFuncPrim,-         keyFuncToFunRef,-         toKeyFuncPrim,-         keyBindingsToArray,-         arrayToKeyBindings-         -- * Hierarchy-         ---         -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -         -- * Functions-         ---         -- $functions-       )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Text_EditorC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T+import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Data.List--data KeyBinding  = KeyBinding KeyBindingKeySequence FunRef-data KeyFunc     = forall a. (Parent a TextEditor) => KeyFunc (Ref a -> Char -> IO ())-type KeyFuncPrim = CInt -> Ptr () -> IO ()--foreign import ccall "wrapper"-        mkKeyFuncPrim :: KeyFuncPrim -> IO (FunPtr KeyFuncPrim)--toKeyFuncPrim :: KeyFunc -> IO (FunPtr KeyFuncPrim)-toKeyFuncPrim (KeyFunc f) =-    mkKeyFuncPrim-     (-       \char' ptr -> do-         ref <- toRef ptr-         f ref (castCCharToChar $ fromIntegral char')-     )--keyFuncToFunRef :: KeyFunc -> IO FunRef-keyFuncToFunRef f = toKeyFuncPrim f >>= return . toFunRef--keyBindingsToArray :: [KeyBinding] -> IO (Ptr ())-keyBindingsToArray kbs =-  case kbs of-    (kb':kbs') -> foldl'-                  (-                    \p' kb'' -> do-                           curr <- ptrToKb kb''-                           p' >>= {#set Key_BindingC->next #} curr-                           return curr-                  )-                  (ptrToKb kb')-                  kbs'-    []       -> return nullPtr-  where-    extractCodes (KeyBindingKeySequence es key') =-      let keyNum = case key' of-            SpecialKeyType c' -> fromIntegral $ fromEnum c'-            NormalKeyType c' -> fromIntegral $ castCharToCChar c'-          stateCode = maybe 0 (fromIntegral . combine) es-      in-      (stateCode, keyNum)-    ptrToKb (KeyBinding kb fr) =-      let (sc,kn) = extractCodes kb-      in do-       p <- mallocBytes {#sizeof Key_BindingC #}-       {#set Key_BindingC->key #} p kn-       {#set Key_BindingC->state #} p sc-       {#set Key_BindingC->function #} p (castFunPtr  (fromFunRef fr))-       {#set Key_BindingC->next #} p nullPtr-       return p--arrayToKeyBindings :: Ptr () -> IO [KeyBinding]-arrayToKeyBindings p | p == nullPtr = return []-arrayToKeyBindings p =-  go [] p-  where-    go accum p' | p' == nullPtr = return accum-    go accum p' = do-      key' <- {#get Key_BindingC->key #} p' >>= return . fromIntegral-      state' <- {#get Key_BindingC->state #} p'-      function' <- {#get Key_BindingC->function #} p'-      next' <- {#get Key_BindingC->next #} p'-      free p'-      let skCandidates = filter (\sk -> fromEnum sk == key') allSpecialKeys-      let keyType = if (null skCandidates)-                    then (NormalKeyType $ castCCharToChar $ fromIntegral key')-                    else (SpecialKeyType $ head skCandidates)-      let evs = if (state' == 0)-                then Nothing-                else Just $ extract allEventStates state'-      let currKb = KeyBinding (KeyBindingKeySequence evs keyType) (toFunRef function')-      go (accum ++ [currKb]) next'--{# fun Fl_OverriddenText_Editor_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenText_Editor_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-textEditorCustom ::-       Rectangle                         -- ^ The bounds of this TextEditor-    -> Maybe T.Text                      -- ^ The TextEditor label-    -> Maybe (Ref TextEditor -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs TextEditor)      -- ^ Optional custom widget functions-    -> IO (Ref TextEditor)-textEditorCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Text_Editor_New as textEditorNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Text_Editor_New_WithLabel as textEditorNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-textEditorNew :: Rectangle -> Maybe T.Text -> IO (Ref TextEditor)-textEditorNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Dispatch+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Text_Editor_Destroy as textEditorDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) TextEditor orig impl where-  runOp _ _ editor = swapRef editor $ \editorPtr -> do-    textEditorDestroy' editorPtr-    return nullPtr-{# fun Fl_Text_Editor_set_insert_mode as setInsertMode' { id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ())) => Op (SetInsertMode ()) TextEditor orig impl where-   runOp _ _ text_editor b = withRef text_editor $ \text_editorPtr -> setInsertMode' text_editorPtr b-{# fun Fl_Text_Editor_insert_mode as insertMode' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (GetInsertMode ()) TextEditor orig impl where-   runOp _ _ text_editor = withRef text_editor $ \text_editorPtr -> insertMode' text_editorPtr-{# fun Fl_Text_Editor_add_default_key_bindings as addDefaultKeyBindings' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO [KeyBinding])) => Op (GetDefaultKeyBindings ()) TextEditor orig impl where-  runOp _ _ text_editor = withRef text_editor $ \text_editorPtr -> do-    p' <- addDefaultKeyBindings' text_editorPtr nullPtr-    kbs <- arrayToKeyBindings p'-    return kbs-{# fun Fl_Text_Editor_replace_key_bindings as replaceKeyBindings' { id `Ptr ()', id `Ptr ()'} -> `()' #}-instance (impl ~ ([KeyBinding] -> IO ())) => Op (ReplaceKeyBindings ()) TextEditor orig impl where-  runOp _ _ text_editor kbs = withRef text_editor $ \text_editorPtr -> do-        p <- keyBindingsToArray kbs-        replaceKeyBindings' text_editorPtr p {# fun Fl_Text_Editor_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) TextEditor orig impl where   runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> draw'' textEditorPtr-{# fun Fl_Text_Editor_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) TextEditor orig impl where-  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> drawSuper' textEditorPtr {#fun Fl_Text_Editor_handle as textEditorHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) TextEditor orig impl where   runOp _ _ textEditor event = withRef textEditor (\p -> textEditorHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Text_Editor_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) TextEditor orig impl where-  runOp _ _ textEditor event = withRef textEditor $ \textEditorPtr -> handleSuper' textEditorPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Text_Editor_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) TextEditor orig impl where+  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> show' textEditorPtr+{# fun Fl_Text_Editor_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) TextEditor orig impl where+  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> hide' textEditorPtr {# fun Fl_Text_Editor_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) TextEditor orig impl where-  runOp _ _ textEditor rectangle = withRef textEditor $ \textEditorPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' textEditorPtr x_pos y_pos w_pos h_pos-{# fun Fl_Text_Editor_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) TextEditor orig impl where   runOp _ _ textEditor rectangle =     let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef textEditor $ \textEditorPtr -> resizeSuper' textEditorPtr x_pos y_pos width height-{# fun Fl_Text_Editor_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) TextEditor orig impl where-  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> hide' textEditorPtr-{# fun Fl_Text_Editor_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) TextEditor orig impl where-  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> hideSuper' textEditorPtr-{# fun Fl_Text_Editor_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) TextEditor orig impl where-  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> show' textEditorPtr-{# fun Fl_Text_Editor_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) TextEditor orig impl where-  runOp _ _ textEditor = withRef textEditor $ \textEditorPtr -> showSuper' textEditorPtr+    in withRef textEditor $ \textEditorPtr -> resize' textEditorPtr x_pos y_pos width height  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v--- "Graphics.UI.FLTK.LowLevel.TextDisplay"+-- "Graphics.UI.FLTK.LowLevel.Base.TextDisplay" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.TextEditor"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.TextEditor"--- -- @  -- $functions -- @--- destroy :: 'Ref' 'TextEditor' -> 'IO' ()--- -- draw :: 'Ref' 'TextEditor' -> 'IO' () ----- drawSuper :: 'Ref' 'TextEditor' -> 'IO' ()------ getDefaultKeyBindings :: 'Ref' 'TextEditor' -> 'IO' ['KeyBinding']------ getInsertMode :: 'Ref' 'TextEditor' -> 'IO' ('Bool')--- -- handle :: 'Ref' 'TextEditor' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'TextEditor' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'TextEditor' -> 'IO' () ----- hideSuper :: 'Ref' 'TextEditor' -> 'IO' ()------ replaceKeyBindings :: 'Ref' 'TextEditor' -> ['KeyBinding'] -> 'IO' ()--- -- resize :: 'Ref' 'TextEditor' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'TextEditor' -> 'Rectangle' -> 'IO' ()------ setInsertMode :: 'Ref' 'TextEditor' -> 'Bool' -> 'IO' ()--- -- showWidget :: 'Ref' 'TextEditor' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'TextEditor' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/TextSelection.chs view
@@ -48,6 +48,7 @@     withRef text_selection $ \text_selectionPtr ->     statusToIndexRange $ position' text_selectionPtr + -- $hierarchy -- @ -- "Graphics.UI.FLTK.LowLevel.TextSelection"
src/Graphics/UI/FLTK/LowLevel/Tile.chs view
@@ -2,134 +2,66 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Tile     (-     -- * Constructor-     tileNew,-     tileCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     ) where- #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_TileC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--{# fun Fl_OverriddenTile_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenTile_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-tileCustom ::-       Rectangle                         -- ^ The bounds of this Tile-    -> Maybe T.Text                      -- ^ The Tile label-    -> Maybe (Ref Tile -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Tile)      -- ^ Optional custom widget functions-    -> IO (Ref Tile)-tileCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Tile_New as tileNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Tile_New_WithLabel as tileNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-tileNew :: Rectangle -> Maybe T.Text -> IO (Ref Tile)-tileNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Tile_position as setPosition' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ (Rectangle ->  IO ())) => Op (SetPosition ()) Tile orig impl where-  runOp _ _ tile rectangle = withRef tile $ \tilePtr -> do-    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-    setPosition' tilePtr x_pos y_pos w_pos h_pos+import Graphics.UI.FLTK.LowLevel.Hierarchy  {# fun Fl_Tile_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Tile orig impl where   runOp _ _ tile = withRef tile $ \tilePtr -> draw'' tilePtr-{# fun Fl_Tile_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Tile orig impl where-  runOp _ _ tile = withRef tile $ \tilePtr -> drawSuper' tilePtr {#fun Fl_Tile_handle as tileHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Tile orig impl where   runOp _ _ tile event = withRef tile (\p -> tileHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Tile_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Tile orig impl where-  runOp _ _ tile event = withRef tile $ \tilePtr -> handleSuper' tilePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Tile_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) Tile orig impl where+  runOp _ _ tile = withRef tile $ \tilePtr -> show' tilePtr+{# fun Fl_Tile_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) Tile orig impl where+  runOp _ _ tile = withRef tile $ \tilePtr -> hide' tilePtr {# fun Fl_Tile_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Tile orig impl where   runOp _ _ tile rectangle = withRef tile $ \tilePtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' tilePtr x_pos y_pos w_pos h_pos-{# fun Fl_Tile_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Tile orig impl where-  runOp _ _ tile rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef tile $ \tilePtr -> resizeSuper' tilePtr x_pos y_pos width height-{# fun Fl_Tile_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) Tile orig impl where-  runOp _ _ tile = withRef tile $ \tilePtr -> hide' tilePtr-{# fun Fl_Tile_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Tile orig impl where-  runOp _ _ tile = withRef tile $ \tilePtr -> hideSuper' tilePtr-{# fun Fl_Tile_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) Tile orig impl where-  runOp _ _ tile = withRef tile $ \tilePtr -> show' tilePtr-{# fun Fl_Tile_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Tile orig impl where-  runOp _ _ tile = withRef tile $ \tilePtr -> showSuper' tilePtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Tile"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Tile"+-- @+ -- $functions -- @ -- draw :: 'Ref' 'Tile' -> 'IO' () ----- drawSuper :: 'Ref' 'Tile' -> 'IO' ()--- -- handle :: 'Ref' 'Tile' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Tile' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Tile' -> 'IO' () ----- hideSuper :: 'Ref' 'Tile' -> 'IO' ()--- -- resize :: 'Ref' 'Tile' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Tile' -> 'Rectangle' -> 'IO' ()------ setPosition :: 'Ref' 'Tile' -> 'Rectangle' -> 'IO' ()--- -- showWidget :: 'Ref' 'Tile' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Tile' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Tile" -- @
src/Graphics/UI/FLTK/LowLevel/ToggleButton.chs view
@@ -1,62 +1,20 @@-{-# LANGUAGE CPP, EmptyDataDecls, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}-{-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ToggleButton-    (-     toggleButtonNew-     -- * Hierarchy-     ---     -- $hierarchy--     -- * Functions-     ---     -- $functions-    )+  (+    -- * Hierarchy+    --+    -- $hierarchy+  ) where-#include "Fl_ExportMacros.h"-#include "Fl_Types.h"-#include "Fl_Toggle_ButtonC.h"-#include "Fl_WidgetC.h"-import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) -import Graphics.UI.FLTK.LowLevel.Fl_Types-import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget-import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--{# fun Fl_Toggle_Button_New as widgetNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Toggle_Button_New_WithLabel as widgetNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-toggleButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref ToggleButton)-toggleButtonNew rectangle l' =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in case l' of-        Nothing -> widgetNew' x_pos y_pos width height >>= toRef-        Just l -> do-           ref <- copyTextToCString l >>= \l' -> widgetNewWithLabel' x_pos y_pos width height l' >>= toRef-           setFlag ref WidgetFlagCopiedLabel-           setFlag ref WidgetFlagCopiedTooltip-           return ref---{# fun Fl_Toggle_Button_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) ToggleButton orig impl where-  runOp _ _ button = swapRef button $-                    \buttonPtr ->-                     widgetDestroy' buttonPtr >>-                     return nullPtr---- $functions--- @--- destroy :: 'Ref' 'ToggleButton' -> 'IO' ()--- @- -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Button"+-- "Graphics.UI.FLTK.LowLevel.Base.Button"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ToggleButton" --  | --  v -- "Graphics.UI.FLTK.LowLevel.ToggleButton"
src/Graphics/UI/FLTK/LowLevel/Tooltip.chs view
@@ -46,7 +46,7 @@ tooltipCurrent :: IO (Maybe (Ref Widget)) tooltipCurrent = tooltipCurrent' >>= toMaybeRef {# fun Fl_Tooltip_set_current as tooltipSetCurrent' {id `Ptr ()'} -> `()' #}-tooltipSetCurrent:: (Parent a Widget) => Maybe (Ref a) -> IO ()+tooltipSetCurrent:: (Parent a WidgetBase) => Maybe (Ref a) -> IO () tooltipSetCurrent w =   case w of     Nothing -> tooltipSetCurrent' nullPtr
src/Graphics/UI/FLTK/LowLevel/Tree.chs view
@@ -1,789 +1,67 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Tree-  (-    treeNew,-    treeCustom-    -- * Hierarchy-    ---    -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -    -- * Functions-    ---    -- $functions-  )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_TreeC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.TreeItem import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget--{# fun Fl_OverriddenTree_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenTree_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-treeCustom ::-       Rectangle                         -- ^ The bounds of this Tree-    -> Maybe T.Text                      -- ^ The Tree label-    -> Maybe (Ref Tree -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Tree)      -- ^ Optional custom widget functions-    -> IO (Ref Tree)-treeCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Tree_New as treeNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Tree_New_WithLabel as treeNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-treeNew :: Rectangle -> Maybe T.Text -> IO (Ref Tree)-treeNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Tree_Destroy as treeDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Tree orig impl where-  runOp _ _ tree = swapRef tree $ \treePtr -> do-    treeDestroy' treePtr-    return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Tree_show_self as showSelf' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ()) ) => Op (ShowSelf ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> showSelf' treePtr-{# fun Fl_Tree_root_label as rootLabel' { id `Ptr ()',id `Ptr CChar' } -> `()' #}-instance (impl ~ (T.Text ->  IO ()) ) => Op (RootLabel ()) Tree orig impl where-  runOp _ _ tree new_label = withRef tree $ \treePtr -> withText new_label (\new_labelPtr -> rootLabel' treePtr new_labelPtr)-{# fun Fl_Tree_root as root' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Root ()) Tree orig impl where-  runOp _ _  tree = withRef tree $ \treePtr -> root' treePtr >>= toMaybeRef-{# fun Fl_Tree_add as add' { id `Ptr ()',id `Ptr CChar' } -> `Ptr ()' id #}-{# fun Fl_Tree_add_with_item_name as addWithItemName' { id `Ptr ()',id `Ptr ()', id `Ptr CChar' } -> `Ptr ()' id #}-instance (impl ~ (T.Text ->  IO (Maybe (Ref TreeItem)))) => Op (Add ()) Tree orig impl where-  runOp _ _  tree path' = withRef tree $ \treePtr -> withText path' (\pathPtr' -> add' treePtr pathPtr' >>= toMaybeRef )-instance (Parent a TreeItem, impl ~ (T.Text -> Ref a -> IO (Maybe (Ref TreeItem)))) => Op (AddAt ()) Tree orig impl where-  runOp _ _ tree path' item' =-    withRef tree  $ \treePtr ->-    withRef item' $ \itemPtr ->-    withText path' $ \pathPtr ->-    addWithItemName' treePtr itemPtr pathPtr >>= toMaybeRef-{# fun Fl_Tree_insert_above as insertAbove' { id `Ptr ()',id `Ptr ()',`CString' } -> `Ptr ()' id #}-instance (Parent a TreeItem, impl ~ (Ref a -> T.Text ->  IO (Maybe (Ref a)))) => Op (InsertAbove ()) Tree orig impl where-  runOp _ _  tree above name = withRef tree $ \treePtr -> withRef above $ \abovePtr -> copyTextToCString name >>= \n -> insertAbove' treePtr abovePtr n >>= toMaybeRef-{# fun Fl_Tree_insert as insert' { id `Ptr ()',id `Ptr ()',`CString',`Int' } -> `Ptr ()' id #}-instance (Parent a TreeItem, impl ~ (Ref a -> T.Text -> AtIndex ->  IO (Maybe (Ref a)))) => Op (Insert ()) Tree orig impl where-  runOp _ _ tree item name (AtIndex pos) = withRef tree $ \treePtr -> withRef item $ \itemPtr -> copyTextToCString name >>= \n -> insert' treePtr itemPtr n pos >>= toMaybeRef-{# fun Fl_Tree_remove as remove' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (impl ~ (Ref TreeItem  ->  IO (Either TreeItemNotFound ())) ) => Op (Remove ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> do-    status' <- remove' treePtr itemPtr-    if (status' == (-1)) then (return $ Left TreeItemNotFound) else (return $ Right ())-{# fun Fl_Tree_clear as clear' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ()) ) => Op (Clear ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> clear' treePtr-{# fun Fl_Tree_clear_children as clearChildren' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a TreeItem, impl ~ (Ref a ->  IO ()) ) => Op (ClearChildren ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> clearChildren' treePtr itemPtr-{# fun Fl_Tree_find_item as findItem' { id `Ptr ()',`CString' } -> `Ptr ()' id #}-instance (impl ~ (T.Text ->  IO (Maybe (Ref TreeItem))) ) => Op (FindItem ()) Tree orig impl where-  runOp _ _ tree path = withRef tree $ \treePtr -> withText path (\p -> findItem' treePtr p >>= toMaybeRef)-{# fun Fl_Tree_item_pathname as itemPathname' { id `Ptr ()', id `Ptr CChar', `Int', id `Ptr ()'} -> `Int' #}-instance (Parent a TreeItem, impl ~ (Ref a ->  IO (Maybe T.Text)) ) => Op (ItemPathname ()) Tree orig impl where-  runOp _ _ tree item =-    withRef tree $ \treePtr ->-    withRef item $ \itemPtr ->-    allocaBytes oneKb $ \pathPtr -> do-    retVal' <- itemPathname' treePtr pathPtr oneKb itemPtr-    if retVal' < 0-      then return Nothing-      else do-       b' <- cStringToText (castPtr pathPtr)-       return (Just b')-{# fun Fl_Tree_item_clicked as itemClicked' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (ItemClicked ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> itemClicked' treePtr >>= toMaybeRef-{# fun Fl_Tree_first as first' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetFirst ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> first' treePtr >>= toMaybeRef-{# fun Fl_Tree_first_visible as firstVisible' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (FirstVisible ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> firstVisible' treePtr >>= toMaybeRef-{# fun Fl_Tree_next as next' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Next ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> next' treePtr >>= toMaybeRef-{# fun Fl_Tree_next_with_item as nextWithItem' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (Ref TreeItem  ->  IO (Maybe (Ref TreeItem))) ) => Op (NextAfterItem ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextWithItem' treePtr itemPtr >>= toMaybeRef-{# fun Fl_Tree_next_item as nextItem' { id `Ptr ()',id `Ptr ()', id `CInt', cFromBool `Bool'} -> `Ptr ()' id #}-instance (impl ~ (Ref TreeItem  ->  Maybe SearchDirection -> Bool -> IO (Maybe (Ref TreeItem))) ) => Op (NextItem ()) Tree orig impl where-  runOp _ _ tree item dir visible' =-    withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextItem' treePtr itemPtr (maybe 0 (fromIntegral . fromEnum) dir) visible'-       >>= toMaybeRef-{# fun Fl_Tree_prev as prev' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (Prev ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> prev' treePtr >>= toMaybeRef-{# fun Fl_Tree_prev_with_item as prevWithItem' { id `Ptr ()',id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (Ref TreeItem  ->  IO (Maybe (Ref TreeItem))) ) => Op (PrevBeforeItem ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> prevWithItem' treePtr itemPtr >>= toMaybeRef-{# fun Fl_Tree_last as last' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetLast ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> last' treePtr >>= toMaybeRef-{# fun Fl_Tree_last_visible as lastVisible' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (LastVisible ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> lastVisible' treePtr >>= toMaybeRef-{# fun Fl_Tree_first_selected_item as firstSelectedItem' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (FirstSelectedItem ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> firstSelectedItem' treePtr >>= toMaybeRef-{# fun Fl_Tree_last_selected_item as lastSelectedItem' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (LastSelectedItem ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> lastSelectedItem' treePtr >>= toMaybeRef-{# fun Fl_Tree_next_selected_item as nextSelectedItem' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (NextSelectedItem ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> nextSelectedItem' treePtr >>= toMaybeRef-{# fun Fl_Tree_next_selected_item_with_item_direction as nextSelectedItemWithItemDirection' { id `Ptr ()',id `Ptr ()', id `CInt' } -> `Ptr ()' id #}-instance (impl ~ (Ref TreeItem  ->  Maybe SearchDirection -> IO (Maybe (Ref TreeItem))) ) => Op (NextSelectedItemAfterItem ()) Tree orig impl where-  runOp _ _ tree item dir = withRef tree $ \treePtr -> withRef item $ \itemPtr -> nextSelectedItemWithItemDirection' treePtr itemPtr (maybe 0 (fromIntegral . fromEnum) dir) >>= toMaybeRef-{# fun Fl_Tree_open_with_item as openWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-{# fun Fl_Tree_open_with_item_docallback as openWithItemDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `Int' #}-{# fun Fl_Tree_open_with_path as openWithPath' { id `Ptr ()',`CString' } -> `Int' #}-{# fun Fl_Tree_open_with_path_docallback as openWithPathDocallback' { id `Ptr ()', `CString', cFromBool `Bool' } -> `Int' #}-instance (impl ~ (TreeItemLocator -> IO ()) ) => Op (Open ()) Tree orig impl where-  runOp _ _ tree_item locator' =-    withRef tree_item $ \tree_itemPtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> openWithItem' tree_itemPtr itemRefPtr >> return ()-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> openWithPath' tree_itemPtr n'' >> return ())-instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (OpenAndCallback ()) Tree orig impl where-  runOp _ _ tree_item locator' docallback' =-    withRef tree_item $ \tree_itemPtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> openWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> openWithPathDocallback' tree_itemPtr n'' docallback' >> return ())-{# fun Fl_Tree_open_toggle as openToggle' { id `Ptr ()',id `Ptr ()' } -> `()' #}-{# fun Fl_Tree_open_toggle_with_docallback as openToggleWithDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (OpenToggle ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> openToggle' treePtr itemPtr-instance (impl ~ (Ref TreeItem  -> Bool ->  IO ()) ) => Op (OpenToggleAndCallback ()) Tree orig impl where-  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> openToggleWithDocallback' treePtr itemPtr docallback-{# fun Fl_Tree_close_with_item as closeWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-{# fun Fl_Tree_close_with_item_docallback as closeWithItemDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `Int' #}-{# fun Fl_Tree_close_with_path as closeWithPath' { id `Ptr ()',`CString' } -> `Int' #}-{# fun Fl_Tree_close_with_path_docallback as closeWithPathDocallback' { id `Ptr ()',`CString', cFromBool `Bool' } -> `Int' #}-instance (impl ~ (TreeItemLocator -> IO ()) ) => Op (Close ()) Tree orig impl where-  runOp _ _ tree_item locator' =-    withRef tree_item $ \tree_itemPtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> closeWithItem' tree_itemPtr itemRefPtr >> return ()-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> closeWithPath' tree_itemPtr n'' >> return ())-instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (CloseAndCallback ()) Tree orig impl where-  runOp _ _ tree_item locator' docallback' =-    withRef tree_item $ \tree_itemPtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> closeWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> closeWithPathDocallback' tree_itemPtr n'' docallback' >> return ())-{# fun Fl_Tree_is_open_with_item as isOpenWithItem' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}-{# fun Fl_Tree_is_open_with_path as isOpenWithPath' { id `Ptr ()',`CString' } -> `Bool' cToBool  #}-instance (impl ~ (TreeItemLocator ->  IO (Bool)) ) => Op (IsOpen ()) Tree orig impl where-  runOp _ _ tree locator' = withRef tree $ \treePtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> isOpenWithItem' treePtr r'Ptr-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> isOpenWithPath' treePtr n'')-{# fun Fl_Tree_is_close_with_item as isCloseWithItem' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}-{# fun Fl_Tree_is_close_with_path as isCloseWithPath' { id `Ptr ()',`CString' } -> `Bool' cToBool  #}-instance (impl ~ (TreeItemLocator ->  IO (Bool)) ) => Op (IsClose ()) Tree orig impl where-  runOp _ _ tree locator' = withRef tree $ \treePtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> isCloseWithItem' treePtr r'Ptr-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> isCloseWithPath' treePtr n'')-{# fun Fl_Tree_select_with_item as selectWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-{# fun Fl_Tree_select_with_item_docallback as selectWithItemDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `Int' #}-{# fun Fl_Tree_select_with_path as selectWithPath' { id `Ptr ()',`CString' } -> `Int' #}-{# fun Fl_Tree_select_with_path_docallback as selectWithPathDocallback' { id `Ptr ()',`CString',cFromBool `Bool' } -> `Int' #}-instance (impl ~ (TreeItemLocator  ->  IO (Either NoChange ())) ) => Op (Select ()) Tree orig impl where-  runOp _ _ tree locator' =-    withRef tree $ \treePtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> selectWithItem' treePtr r'Ptr >>= return . successOrNoChange-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> selectWithPath' treePtr n'' >>= return . successOrNoChange)-instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (SelectAndCallback ()) Tree orig impl where-  runOp _ _ tree_item locator' docallback' =-    withRef tree_item $ \tree_itemPtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> selectWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> selectWithPathDocallback' tree_itemPtr n'' docallback' >> return ())-{# fun Fl_Tree_select_toggle as selectToggle' { id `Ptr ()',id `Ptr ()' } -> `()' #}-{# fun Fl_Tree_select_toggle_with_docallback as selectToggleWithDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (SelectToggle ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectToggle' treePtr itemPtr-instance (impl ~ (Ref TreeItem  -> Bool ->  IO ()) ) => Op (SelectToggleAndCallback ()) Tree orig impl where-  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectToggleWithDocallback' treePtr itemPtr docallback-{# fun Fl_Tree_deselect_with_item as deselectWithItem' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-{# fun Fl_Tree_deselect_with_item_docallback as deselectWithItemDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `Int' #}-{# fun Fl_Tree_deselect_with_path as deselectWithPath' { id `Ptr ()', `CString'} -> `Int' #}-{# fun Fl_Tree_deselect_with_path_docallback as deselectWithPathDocallback' { id `Ptr ()',`CString',cFromBool `Bool' } -> `Int' #}-instance (impl ~ (TreeItemLocator  ->  IO (Either NoChange ())) ) => Op (Deselect ()) Tree orig impl where-  runOp _ _ tree locator' =-    withRef tree $ \treePtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer r') -> withRef r' $ \r'Ptr -> deselectWithItem' treePtr r'Ptr >>= return . successOrNoChange-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> deselectWithPath' treePtr n'' >>= return . successOrNoChange)-instance  (impl ~ (TreeItemLocator -> Bool -> IO ())) => Op (DeselectAndCallback ()) Tree orig impl where-  runOp _ _ tree_item locator' docallback' =-    withRef tree_item $ \tree_itemPtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer itemRef) -> withRef itemRef $ \itemRefPtr -> deselectWithItemDocallback' tree_itemPtr itemRefPtr docallback' >> return ()-      TreeItemNameLocator (TreeItemName n') -> withText n' (\n'' -> deselectWithPathDocallback' tree_itemPtr n'' docallback' >> return ())-{# fun Fl_Tree_select_only as selectOnly' { id `Ptr ()',id `Ptr ()' } -> `()' #}-{# fun Fl_Tree_select_only_with_docallback as selectOnlyWithDocallback' { id `Ptr ()',id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (SelectOnly ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectOnly' treePtr itemPtr-instance (impl ~ (Ref TreeItem  -> Bool ->  IO ()) ) => Op (SelectOnlyAndCallback ()) Tree orig impl where-  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withRef item $ \itemPtr -> selectOnlyWithDocallback' treePtr itemPtr docallback-{# fun Fl_Tree_select_all as selectAll' { id `Ptr ()',id `Ptr ()' } -> `()' #}-{# fun Fl_Tree_select_all_with_docallback as selectAllWithDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (IO ()) ) => Op (SelectAll ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr ->  selectAll' treePtr nullPtr-instance (impl ~ (Maybe (Ref TreeItem)  -> Bool ->  IO ()) ) => Op (SelectAllAndCallback ()) Tree orig impl where-  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withMaybeRef item $ \itemPtr -> selectAllWithDocallback' treePtr itemPtr docallback-{# fun Fl_Tree_deselect_all_with_item as deselectAll' { id `Ptr ()',id `Ptr ()' } -> `()' #}-{# fun Fl_Tree_deselect_all_with_item_docallback as deselectAllWithDocallback' { id `Ptr ()',id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (IO ()) ) => Op (DeselectAll ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr ->  deselectAll' treePtr nullPtr-instance (impl ~ (Maybe (Ref TreeItem)  -> Bool ->  IO ()) ) => Op (DeselectAllAndCallback ()) Tree orig impl where-  runOp _ _ tree item docallback = withRef tree $ \treePtr -> withMaybeRef item $ \itemPtr -> deselectAllWithDocallback' treePtr itemPtr docallback-{# fun Fl_Tree_set_item_focus as setItemFocus' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (SetItemFocus ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> setItemFocus' treePtr itemPtr-{# fun Fl_Tree_get_item_focus as getItemFocus' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetItemFocus ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> getItemFocus' treePtr >>= toMaybeRef-{# fun Fl_Tree_is_selected_with_item as isSelectedWithItem' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}-{# fun Fl_Tree_is_selected_with_path as isSelectedWithPath' { id `Ptr ()',`CString' } -> `Bool' cToBool #}-instance (impl ~ (TreeItemLocator ->  IO (Bool)) ) => Op (IsSelected ()) Tree orig impl where-  runOp _ _ tree locator' = withRef tree $ \treePtr ->-    case locator' of-      TreeItemPointerLocator (TreeItemPointer item) -> withRef item $ \itemPtr -> isSelectedWithItem' treePtr itemPtr-      TreeItemNameLocator (TreeItemName path) -> withText path (\p -> isSelectedWithPath' treePtr p)-{# fun Fl_Tree_item_labelfont as itemLabelfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font)) ) => Op (GetItemLabelfont ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelfont' treePtr-{# fun Fl_Tree_set_item_labelfont as itemSetLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ()) ) => Op (SetItemLabelfont ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> itemSetLabelfont' treePtr val-{# fun Fl_Tree_item_labelsize as itemLabelsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize)) ) => Op (GetItemLabelsize ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelsize' treePtr >>= return . FontSize-{# fun Fl_Tree_set_item_labelsize as itemSetLabelsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ()) ) => Op (SetItemLabelsize ()) Tree orig impl where-  runOp _ _ tree (FontSize val) = withRef tree $ \treePtr -> itemSetLabelsize' treePtr val-{# fun Fl_Tree_item_labelfgcolor as itemLabelfgcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color)) ) => Op (GetItemLabelfgcolor ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelfgcolor' treePtr-{# fun Fl_Tree_set_item_labelfgcolor as setItemLabelfgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ()) ) => Op (SetItemLabelfgcolor ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setItemLabelfgcolor' treePtr val-{# fun Fl_Tree_item_labelbgcolor as itemLabelbgcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color)) ) => Op (GetItemLabelbgcolor ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> itemLabelbgcolor' treePtr-{# fun Fl_Tree_set_item_labelbgcolor as setItemLabelbgcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ()) ) => Op (SetItemLabelbgcolor ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setItemLabelbgcolor' treePtr val-{# fun Fl_Tree_connectorcolor as connectorcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color)) ) => Op (GetConnectorcolor ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> connectorcolor' treePtr-{# fun Fl_Tree_set_connectorcolor as setConnectorcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ()) ) => Op (SetConnectorcolor ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorcolor' treePtr val-{# fun Fl_Tree_marginleft as marginleft' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetMarginleft ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> marginleft' treePtr-{# fun Fl_Tree_set_marginleft as setMarginleft' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetMarginleft ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setMarginleft' treePtr val-{# fun Fl_Tree_margintop as margintop' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetMargintop ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> margintop' treePtr-{# fun Fl_Tree_set_margintop as setMargintop' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetMargintop ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setMargintop' treePtr val-{# fun Fl_Tree_linespacing as linespacing' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetLinespacing ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> linespacing' treePtr-{# fun Fl_Tree_set_linespacing as setLinespacing' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetLinespacing ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setLinespacing' treePtr val-{# fun Fl_Tree_openchild_marginbottom as openchildMarginbottom' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetOpenchildMarginbottom ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> openchildMarginbottom' treePtr-{# fun Fl_Tree_set_openchild_marginbottom as setOpenchildMarginbottom' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetOpenchildMarginbottom ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setOpenchildMarginbottom' treePtr val-{# fun Fl_Tree_usericonmarginleft as usericonmarginleft' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetUsericonmarginleft ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> usericonmarginleft' treePtr-{# fun Fl_Tree_set_usericonmarginleft as setUsericonmarginleft' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetUsericonmarginleft ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setUsericonmarginleft' treePtr val-{# fun Fl_Tree_labelmarginleft as labelmarginleft' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetLabelmarginleft ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> labelmarginleft' treePtr-{# fun Fl_Tree_set_labelmarginleft as setLabelmarginleft' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetLabelmarginleft ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setLabelmarginleft' treePtr val-{# fun Fl_Tree_connectorwidth as connectorwidth' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetConnectorwidth ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> connectorwidth' treePtr-{# fun Fl_Tree_set_connectorwidth as setConnectorwidth' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetConnectorwidth ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorwidth' treePtr val-{# fun Fl_Tree_usericon as usericon' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetUsericon ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> usericon' treePtr >>= toMaybeRef-{# fun Fl_Tree_set_usericon as setUsericon' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Image, impl ~ (Maybe( Ref a )  ->  IO ()) ) => Op (SetUsericon ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setUsericon' treePtr valPtr-{# fun Fl_Tree_openicon as openicon' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetOpenicon ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> openicon' treePtr >>= toMaybeRef-{# fun Fl_Tree_set_openicon as setOpenicon' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Image , impl ~ (Maybe( Ref a )  ->  IO ()) ) => Op (SetOpenicon ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setOpenicon' treePtr valPtr-{# fun Fl_Tree_closeicon as closeicon' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref Image))) ) => Op (GetCloseicon ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> closeicon' treePtr >>= toMaybeRef-{# fun Fl_Tree_set_closeicon as setCloseicon' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Image, impl ~ (Maybe( Ref a )  ->  IO ()) ) => Op (SetCloseicon ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> withMaybeRef val $ \valPtr -> setCloseicon' treePtr valPtr-{# fun Fl_Tree_showcollapse as showcollapse' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool)) ) => Op (GetShowcollapse ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> showcollapse' treePtr-{# fun Fl_Tree_set_showcollapse as setShowcollapse' { id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ()) ) => Op (SetShowcollapse ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setShowcollapse' treePtr val-{# fun Fl_Tree_showroot as showroot' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool)) ) => Op (GetShowroot ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> showroot' treePtr-{# fun Fl_Tree_set_showroot as setShowroot' { id `Ptr ()', cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool ->  IO ()) ) => Op (SetShowroot ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setShowroot' treePtr val-{# fun Fl_Tree_connectorstyle as connectorstyle' { id `Ptr ()' } -> `TreeConnector' cToEnum #}-instance (impl ~ ( IO (TreeConnector)) ) => Op (GetConnectorstyle ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> connectorstyle' treePtr-{# fun Fl_Tree_set_connectorstyle as setConnectorstyle' { id `Ptr ()', cFromEnum `TreeConnector' } -> `()' #}-instance (impl ~ (TreeConnector ->  IO ()) ) => Op (SetConnectorstyle ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setConnectorstyle' treePtr val-{# fun Fl_Tree_sortorder as sortorder' { id `Ptr ()' } -> `TreeSort' cToEnum #}-instance (impl ~ ( IO (TreeSort)) ) => Op (GetSortorder ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> sortorder' treePtr-{# fun Fl_Tree_set_sortorder as setSortorder' { id `Ptr ()', cFromEnum `TreeSort' } -> `()' #}-instance (impl ~ (TreeSort ->  IO ()) ) => Op (SetSortorder ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setSortorder' treePtr val-{# fun Fl_Tree_selectbox as selectbox' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ ( IO (Boxtype)) ) => Op (GetSelectbox ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> selectbox' treePtr-{# fun Fl_Tree_set_selectbox as setSelectbox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' #}-instance (impl ~ (Boxtype ->  IO ()) ) => Op (SetSelectbox ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setSelectbox' treePtr val-{# fun Fl_Tree_selectmode as selectmode' { id `Ptr ()' } -> `TreeSelect' cToEnum #}-instance (impl ~ ( IO (TreeSelect)) ) => Op (Selectmode ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> selectmode' treePtr-{# fun Fl_Tree_set_selectmode as setSelectmode' { id `Ptr ()', cFromEnum `TreeSelect' } -> `()' #}-instance (impl ~ (TreeSelect ->  IO ()) ) => Op (SetSelectmode ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setSelectmode' treePtr val-{# fun Fl_Tree_displayed as displayed' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (Ref TreeItem  ->  IO (Bool)) ) => Op (Displayed ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> displayed' treePtr itemPtr-{# fun Fl_Tree_show_item_with_yoff as showItemWithYoff' { id `Ptr ()',id `Ptr ()',`Int' } -> `()' #}-{# fun Fl_Tree_show_item as showItem' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref TreeItem  -> Maybe Y ->  IO ()) ) => Op (ShowItemWithYoff ()) Tree orig impl where-  runOp _ _ tree item yoff =-    withRef tree $ \treePtr ->-    withRef item $ \itemPtr ->-    case yoff of-      Just (Y y') -> showItemWithYoff' treePtr itemPtr y'-      Nothing -> showItem' treePtr itemPtr-{# fun Fl_Tree_show_item_top as showItemTop' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (ShowItemTop ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemTop' treePtr itemPtr-{# fun Fl_Tree_show_item_middle as showItemMiddle' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (ShowItemMiddle ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemMiddle' treePtr itemPtr-{# fun Fl_Tree_show_item_bottom as showItemBottom' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (ShowItemBottom ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> showItemBottom' treePtr itemPtr-{# fun Fl_Tree_display as display' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (impl ~ (Ref TreeItem  ->  IO ()) ) => Op (Display ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> display' treePtr itemPtr-{# fun Fl_Tree_vposition as vposition' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetVposition ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> vposition' treePtr-{# fun Fl_Tree_set_vposition as setVposition' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetVposition ()) Tree orig impl where-  runOp _ _ tree pos = withRef tree $ \treePtr -> setVposition' treePtr pos-{# fun Fl_Tree_is_scrollbar as isScrollbar' { id `Ptr ()',id `Ptr ()' } -> `Bool' cToBool #}-instance (Parent a Widget, impl ~ (Ref a  ->  IO (Bool)) ) => Op (IsScrollbar ()) Tree orig impl where-  runOp _ _ tree w = withRef tree $ \treePtr -> withRef w $ \wPtr -> isScrollbar' treePtr wPtr-{# fun Fl_Tree_scrollbar_size as scrollbarSize' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (IO (Int)) ) => Op (GetScrollbarSize ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> scrollbarSize' treePtr-{# fun Fl_Tree_set_scrollbar_size as setScrollbarSize' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetScrollbarSize ()) Tree orig impl where-  runOp _ _ tree size = withRef tree $ \treePtr -> setScrollbarSize' treePtr size-{# fun Fl_Tree_is_vscroll_visible as isVscrollVisible' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool)) ) => Op (IsVscrollVisible ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> isVscrollVisible' treePtr-{# fun Fl_Tree_set_callback_item as setCallbackItem' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a TreeItem, impl ~ (Ref a ->  IO ()) ) => Op (SetCallbackItem ()) Tree orig impl where-  runOp _ _ tree item = withRef tree $ \treePtr -> withRef item $ \itemPtr -> setCallbackItem' treePtr itemPtr-{# fun Fl_Tree_callback_item as callbackItem' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref TreeItem))) ) => Op (GetCallbackItem ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> callbackItem' treePtr >>= toMaybeRef-{# fun Fl_Tree_set_callback_reason as setCallbackReason' { id `Ptr ()', cFromEnum `TreeReasonType' } -> `()' #}-instance (impl ~ (TreeReasonType ->  IO ()) ) => Op (SetCallbackReason ()) Tree orig impl where-  runOp _ _ tree reason = withRef tree $ \treePtr -> setCallbackReason' treePtr reason-{# fun Fl_Tree_callback_reason as callbackReason' { id `Ptr ()' } -> `TreeReasonType' cToEnum #}-instance (impl ~ ( IO (TreeReasonType)) ) => Op (GetCallbackReason ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> callbackReason' treePtr {# fun Fl_Tree_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Tree orig impl where   runOp _ _ tree = withRef tree $ \treePtr -> draw'' treePtr-{# fun Fl_Tree_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> drawSuper' treePtr {#fun Fl_Tree_handle as treeHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Tree orig impl where   runOp _ _ tree event = withRef tree (\p -> treeHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Tree_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Tree orig impl where-  runOp _ _ tree event = withRef tree $ \treePtr -> handleSuper' treePtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Tree_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (ShowWidget ()) Tree orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> show' treePtr+{# fun Fl_Tree_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ (  IO ())) => Op (Hide ()) Tree orig impl where+  runOp _ _ tree = withRef tree $ \treePtr -> hide' treePtr {# fun Fl_Tree_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Tree orig impl where   runOp _ _ tree rectangle = withRef tree $ \treePtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' treePtr x_pos y_pos w_pos h_pos-{# fun Fl_Tree_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Tree orig impl where-  runOp _ _ tree rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef tree $ \treePtr -> resizeSuper' treePtr x_pos y_pos width height-{# fun Fl_Tree_hide as hide' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (Hide ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> hide' treePtr-{# fun Fl_Tree_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> hideSuper' treePtr-{# fun Fl_Tree_show as show' { id `Ptr ()' } -> `()' #}-instance (impl ~ (  IO ())) => Op (ShowWidget ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> show' treePtr-{# fun Fl_Tree_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> showSuper' treePtr-{# fun Fl_Tree_recalc_tree as recalcTree' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (RecalcTree ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> recalcTree' treePtr-{# fun Fl_Tree_marginbottom as marginbottom' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetMarginbottom ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> marginbottom' treePtr-{# fun Fl_Tree_set_marginbottom as setMarginbottom' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetMarginbottom ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setMarginbottom' treePtr val-{# fun Fl_Tree_widgetmarginleft as widgetmarginleft' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int)) ) => Op (GetWidgetmarginleft ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> widgetmarginleft' treePtr-{# fun Fl_Tree_set_widgetmarginleft as setWidgetmarginleft' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Int ->  IO ()) ) => Op (SetWidgetmarginleft ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setWidgetmarginleft' treePtr val-{# fun Fl_Tree_item_reselect_mode as item_reselect_mode' { id `Ptr ()' } -> `TreeItemReselectMode' cToEnum #}-instance (impl ~ ( IO (TreeItemReselectMode)) ) => Op (GetItemReselectMode ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> item_reselect_mode' treePtr-{# fun Fl_Tree_set_item_reselect_mode as setItem_Reselect_Mode' { id `Ptr ()', cFromEnum `TreeItemReselectMode' } -> `()' #}-instance (impl ~ (TreeItemReselectMode ->  IO ()) ) => Op (SetItemReselectMode ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setItem_Reselect_Mode' treePtr val-{# fun Fl_Tree_item_draw_mode as item_draw_mode' { id `Ptr ()' } -> `CInt'#}-instance (impl ~ ( IO ([TreeItemDrawMode])) ) => Op (GetItemDrawMode ()) Tree orig impl where-  runOp _ _ tree = withRef tree $ \treePtr -> item_draw_mode' treePtr >>= return . extract allTreeItemDrawModes-{# fun Fl_Tree_set_item_draw_mode as setItem_Draw_Mode' { id `Ptr ()', `CInt' } -> `()' #}-instance (impl ~ ([TreeItemDrawMode] ->  IO ()) ) => Op (SetItemDrawMode ()) Tree orig impl where-  runOp _ _ tree val = withRef tree $ \treePtr -> setItem_Draw_Mode' treePtr (fromIntegral (combine val)) +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Tree"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Tree"+-- @+ -- $functions -- @--- add :: 'Ref' 'Tree' -> 'T.Text' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ addAt:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'T.Text' -> 'Ref' a -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ clear :: 'Ref' 'Tree' -> 'IO' ()------ clearChildren:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'Ref' a -> 'IO' ()------ close :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ()------ closeAndCallback :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()------ deselect :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ('Either' 'NoChange' ())------ deselectAll :: 'Ref' 'Tree' -> 'IO' ()------ deselectAllAndCallback :: 'Ref' 'Tree' -> 'Maybe' ('Ref' 'TreeItem') -> 'Bool' -> 'IO' ()------ deselectAndCallback :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()------ destroy :: 'Ref' 'Tree' -> 'IO' ()------ display :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ displayed :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ('Bool')--- -- draw :: 'Ref' 'Tree' -> 'IO' () ----- drawSuper :: 'Ref' 'Tree' -> 'IO' ()------ findItem :: 'Ref' 'Tree' -> 'T.Text' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ firstSelectedItem :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ firstVisible :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ getCallbackItem :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ getCallbackReason :: 'Ref' 'Tree' -> 'IO' ('TreeReasonType')------ getCloseicon :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getConnectorcolor :: 'Ref' 'Tree' -> 'IO' ('Color')------ getConnectorstyle :: 'Ref' 'Tree' -> 'IO' ('TreeConnector')------ getConnectorwidth :: 'Ref' 'Tree' -> 'IO' ('Int')------ getFirst :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ getItemDrawMode :: 'Ref' 'Tree' -> 'IO' (['TreeItemDrawMode')]------ getItemFocus :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ getItemLabelbgcolor :: 'Ref' 'Tree' -> 'IO' ('Color')------ getItemLabelfgcolor :: 'Ref' 'Tree' -> 'IO' ('Color')------ getItemLabelfont :: 'Ref' 'Tree' -> 'IO' ('Font')------ getItemLabelsize :: 'Ref' 'Tree' -> 'IO' ('FontSize')------ getItemReselectMode :: 'Ref' 'Tree' -> 'IO' ('TreeItemReselectMode')------ getLabelmarginleft :: 'Ref' 'Tree' -> 'IO' ('Int')------ getLast :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ getLinespacing :: 'Ref' 'Tree' -> 'IO' ('Int')------ getMarginbottom :: 'Ref' 'Tree' -> 'IO' ('Int')------ getMarginleft :: 'Ref' 'Tree' -> 'IO' ('Int')------ getMargintop :: 'Ref' 'Tree' -> 'IO' ('Int')------ getOpenchildMarginbottom :: 'Ref' 'Tree' -> 'IO' ('Int')------ getOpenicon :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getScrollbarSize :: 'Ref' 'Tree' -> 'IO' ('Int')------ getSelectbox :: 'Ref' 'Tree' -> 'IO' ('Boxtype')------ getShowcollapse :: 'Ref' 'Tree' -> 'IO' ('Bool')------ getShowroot :: 'Ref' 'Tree' -> 'IO' ('Bool')------ getSortorder :: 'Ref' 'Tree' -> 'IO' ('TreeSort')------ getUsericon :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getUsericonmarginleft :: 'Ref' 'Tree' -> 'IO' ('Int')------ getVposition :: 'Ref' 'Tree' -> 'IO' ('Int')------ getWidgetmarginleft :: 'Ref' 'Tree' -> 'IO' ('Int')--- -- handle :: 'Ref' 'Tree' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Tree' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Tree' -> 'IO' () ----- hideSuper :: 'Ref' 'Tree' -> 'IO' ()------ insert:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'Ref' a -> 'T.Text' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' a))------ insertAbove:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'Ref' a -> 'T.Text' -> 'IO' ('Maybe' ('Ref' a))------ isClose :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ('Bool')------ isOpen :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ('Bool')------ isScrollbar:: ('Parent' a 'Widget') => 'Ref' 'Tree' -> 'Ref' a -> 'IO' ('Bool')------ isSelected :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ('Bool')------ isVscrollVisible :: 'Ref' 'Tree' -> 'IO' ('Bool')------ itemClicked :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ itemPathname:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'Ref' a -> 'IO' ('Maybe' 'T.Text')------ lastSelectedItem :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ lastVisible :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ next :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ nextAfterItem :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ nextItem :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Maybe' 'SearchDirection' -> 'Bool' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ nextSelectedItem :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ nextSelectedItemAfterItem :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Maybe' 'SearchDirection' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ open :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ()------ openAndCallback :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()------ openToggle :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ openToggleAndCallback :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Bool' -> 'IO' ()------ prev :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ prevBeforeItem :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ recalcTree :: 'Ref' 'Tree' -> 'IO' ()------ remove :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ('Either' 'TreeItemNotFound' ())--- -- resize :: 'Ref' 'Tree' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Tree' -> 'Rectangle' -> 'IO' ()------ root :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))------ rootLabel :: 'Ref' 'Tree' -> 'T.Text' -> 'IO' ()------ select :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'IO' ('Either' 'NoChange' ())------ selectAll :: 'Ref' 'Tree' -> 'IO' ()------ selectAllAndCallback :: 'Ref' 'Tree' -> 'Maybe' ('Ref' 'TreeItem') -> 'Bool' -> 'IO' ()------ selectAndCallback :: 'Ref' 'Tree' -> 'TreeItemLocator' -> 'Bool' -> 'IO' ()------ selectOnly :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ selectOnlyAndCallback :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Bool' -> 'IO' ()------ selectToggle :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ selectToggleAndCallback :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Bool' -> 'IO' ()------ selectmode :: 'Ref' 'Tree' -> 'IO' ('TreeSelect')------ setCallbackItem:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'Ref' a -> 'IO' ()------ setCallbackReason :: 'Ref' 'Tree' -> 'TreeReasonType' -> 'IO' ()------ setCloseicon:: ('Parent' a 'Image') => 'Ref' 'Tree' -> 'Maybe'( 'Ref' a ) -> 'IO' ()------ setConnectorcolor :: 'Ref' 'Tree' -> 'Color' -> 'IO' ()------ setConnectorstyle :: 'Ref' 'Tree' -> 'TreeConnector' -> 'IO' ()------ setConnectorwidth :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setItemDrawMode :: 'Ref' 'Tree' -> ['TreeItemDrawMode'] -> 'IO' ()------ setItemFocus :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ setItemLabelbgcolor :: 'Ref' 'Tree' -> 'Color' -> 'IO' ()------ setItemLabelfgcolor :: 'Ref' 'Tree' -> 'Color' -> 'IO' ()------ setItemLabelfont :: 'Ref' 'Tree' -> 'Font' -> 'IO' ()------ setItemLabelsize :: 'Ref' 'Tree' -> 'FontSize' -> 'IO' ()------ setItemReselectMode :: 'Ref' 'Tree' -> 'TreeItemReselectMode' -> 'IO' ()------ setLabelmarginleft :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setLinespacing :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setMarginbottom :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setMarginleft :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setMargintop :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setOpenchildMarginbottom :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setOpenicon:: ('Parent' a 'Image') => 'Ref' 'Tree' -> 'Maybe'( 'Ref' a ) -> 'IO' ()------ setScrollbarSize :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setSelectbox :: 'Ref' 'Tree' -> 'Boxtype' -> 'IO' ()------ setSelectmode :: 'Ref' 'Tree' -> 'TreeSelect' -> 'IO' ()------ setShowcollapse :: 'Ref' 'Tree' -> 'Bool' -> 'IO' ()------ setShowroot :: 'Ref' 'Tree' -> 'Bool' -> 'IO' ()------ setSortorder :: 'Ref' 'Tree' -> 'TreeSort' -> 'IO' ()------ setUsericon:: ('Parent' a 'Image') => 'Ref' 'Tree' -> 'Maybe'( 'Ref' a ) -> 'IO' ()------ setUsericonmarginleft :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setVposition :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ setWidgetmarginleft :: 'Ref' 'Tree' -> 'Int' -> 'IO' ()------ showItemBottom :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ showItemMiddle :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ showItemTop :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'IO' ()------ showItemWithYoff :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Maybe' 'Y' -> 'IO' ()------ showSelf :: 'Ref' 'Tree' -> 'IO' ()--- -- showWidget :: 'Ref' 'Tree' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Tree' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Tree" -- @
src/Graphics/UI/FLTK/LowLevel/TreeItem.chs view
@@ -118,16 +118,16 @@ instance (impl ~ (IO (Color))) => Op (GetLabelbgcolor ()) TreeItem orig impl where   runOp _ _ tree_item = withRef tree_item $ \tree_itemPtr -> labelbgcolor' tree_itemPtr {# fun Fl_Tree_Item_set_widget as setWidget' { id `Ptr ()',id `Ptr ()' } -> `()' #}-instance (Parent a Widget, impl ~ (Maybe ( Ref a )  ->  IO ())) => Op (SetWidget ()) TreeItem orig impl where+instance (Parent a WidgetBase, impl ~ (Maybe ( Ref a )  ->  IO ())) => Op (SetWidget ()) TreeItem orig impl where   runOp _ _ tree_item val = withRef tree_item $ \tree_itemPtr -> withMaybeRef val $ \valPtr -> setWidget' tree_itemPtr valPtr {# fun Fl_Tree_Item_widget as widget' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (GetWidget ()) TreeItem orig impl where+instance (impl ~ (IO (Maybe (Ref WidgetBase)))) => Op (GetWidget ()) TreeItem orig impl where   runOp _ _ tree_item = withRef tree_item $ \tree_itemPtr -> widget' tree_itemPtr >>= toMaybeRef {# fun Fl_Tree_Item_children as children' { id `Ptr ()' } -> `Int' #} instance (impl ~ (IO (Int))) => Op (Children ()) TreeItem orig impl where   runOp _ _ tree_item = withRef tree_item $ \tree_itemPtr -> children' tree_itemPtr {# fun Fl_Tree_Item_child_by_index as childByIndex' { id `Ptr ()',`Int' } -> `Ptr ()' id #}-instance (impl ~ ( AtIndex ->  IO (Maybe (Ref Widget)))) => Op (Child ()) TreeItem orig impl where+instance (impl ~ ( AtIndex ->  IO (Maybe (Ref WidgetBase)))) => Op (Child ()) TreeItem orig impl where   runOp _ _ tree_item (AtIndex index') = withRef tree_item $ \tree_itemPtr -> childByIndex' tree_itemPtr index' >>= toMaybeRef {# fun Fl_Tree_Item_has_children as hasChildren' { id `Ptr ()' } -> `Bool' cToBool #} instance (impl ~ (IO (Bool))) => Op (HasChildren ()) TreeItem orig impl where@@ -352,6 +352,12 @@ instance (impl ~ (IO (Int))) => Op (LabelH ()) TreeItem orig impl where   runOp _ _ tree_item = withRef tree_item $ \tree_itemPtr -> labelH' tree_itemPtr ++-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.TreeItem"+-- @+ -- $functions -- @ -- activate :: 'Ref' 'TreeItem' -> 'IO' ()@@ -362,7 +368,7 @@ -- -- addAt:: ('Parent' a 'TreeItem', 'Parent' b 'TreePrefs') => 'Ref' 'TreeItem' -> 'Ref' b -> ['T.Text'] -> 'Maybe' ('Ref' a) -> 'IO' ('Maybe' ('Ref' a)) ----- child :: 'Ref' 'TreeItem' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' 'Widget'))+-- child :: 'Ref' 'TreeItem' -> 'AtIndex' -> 'IO' ('Maybe' ('Ref' 'WidgetBase')) -- -- children :: 'Ref' 'TreeItem' -> 'IO' ('Int') --@@ -412,7 +418,7 @@ -- -- getW :: 'Ref' 'TreeItem' -> 'IO' 'Int' ----- getWidget :: 'Ref' 'TreeItem' -> 'IO' ('Maybe' ('Ref' 'Widget'))+-- getWidget :: 'Ref' 'TreeItem' -> 'IO' ('Maybe' ('Ref' 'WidgetBase')) -- -- getX :: 'Ref' 'TreeItem' -> 'IO' 'Int' --@@ -492,7 +498,7 @@ -- -- setUsericon:: ('Parent' a 'Image') => 'Ref' 'TreeItem' -> 'Maybe' ('Ref' a) -> 'IO' () ----- setWidget:: ('Parent' a 'Widget') => 'Ref' 'TreeItem' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()+-- setWidget:: ('Parent' a 'WidgetBase') => 'Ref' 'TreeItem' -> 'Maybe' ( 'Ref' a ) -> 'IO' () -- -- showSelf :: 'Ref' 'TreeItem' -> 'Maybe' 'T.Text' -> 'IO' () --@@ -505,10 +511,4 @@ -- visible :: 'Ref' 'TreeItem' -> 'IO' ('Bool') -- -- visibleR :: 'Ref' 'TreeItem' -> 'IO' ('Bool')--- @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.TreeItem" -- @
src/Graphics/UI/FLTK/LowLevel/Utils.hs view
@@ -74,6 +74,8 @@         mkSetInt :: SetIntPrim -> IO (FunPtr SetIntPrim) foreign import ccall "wrapper"         mkColorSetPrim :: ColorSetPrim -> IO (FunPtr ColorSetPrim)+foreign import ccall "wrapper"+        mkDestroyCallbacksPtr :: DestroyCallbacksPrim -> IO (FunPtr DestroyCallbacksPrim)  toTabPositionsPrim :: (Ref a -> IO (Maybe AtIndex, Int, [(X,Width)])) -> IO (FunPtr TabPositionsPrim) toTabPositionsPrim f =@@ -106,6 +108,28 @@ toCallbackPrimWithUserData f = mkWidgetCallbackPtr $ \ptr _ -> do   pp <- wrapNonNull ptr "Null pointer: toWidgetCallbackPrim"   f (castTo (wrapInRef pp))++toDestroyCallbacksPrim ::+  (Ref a -> [Maybe (FunPtr (IO ()))] -> IO ()) ->+  IO (FunPtr DestroyCallbacksPrim)+toDestroyCallbacksPrim f =+  let marshalFps :: Ptr (FunPtr (IO ())) -> CInt -> [Maybe (FunPtr (IO ()))] -> IO [Maybe (FunPtr (IO ()))]+      marshalFps arrayPtr numLeft accum =+        if (numLeft == 0) then return accum+        else do+          fp <- peek arrayPtr+          marshalFps+            (arrayPtr `plusPtr` (sizeOf (undefined :: FunPtr (IO ()))))+            (numLeft - 1)+            (if (fp == nullFunPtr)+             then  (accum ++ [Nothing])+             else (accum ++ [Just fp]))+  in+  mkDestroyCallbacksPtr $ \ptr fpts -> do+    pp <- wrapNonNull ptr "Null pointer. toDestroyCallbacksPrim"+    (numFps, fpArray) <- unpackFunctionPointerToFreeStruct fpts+    cbs <- marshalFps fpArray numFps []+    f (castTo (wrapInRef pp)) cbs  cFromEnum :: (Enum a, Integral b) => a -> b cFromEnum = fromIntegral . fromEnum
src/Graphics/UI/FLTK/LowLevel/Valuator.chs view
@@ -1,16 +1,12 @@-{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Valuator     (-     -- * Constructor-     valuatorNew,-     valuatorCustom,-     ValuatorType(..),      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Valuator Functions      --      -- $functions     )@@ -18,196 +14,43 @@ #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_ValuatorC.h"-#include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)- import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import Graphics.UI.FLTK.LowLevel.Widget-import Data.Ratio-#c-enum ValuatorType {-  VerticalValuatorType = FL_VERTICALC,-  HorizontalValuatorType = FL_HORIZONTALC-};-#endc-{#enum ValuatorType {} deriving (Show, Eq) #}-{# fun Fl_Valuator_New as valuatorNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Valuator_New_WithLabel as valuatorNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-{# fun Fl_OverriddenValuator_New_WithLabel as overriddenValuatorNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenValuator_New as overriddenValuatorNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-valuatorCustom :: Rectangle -> Maybe T.Text -> Maybe (Ref Valuator -> IO ()) -> Maybe (CustomWidgetFuncs Valuator) -> IO (Ref Valuator)-valuatorCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenValuatorNew'-    overriddenValuatorNewWithLabel'--valuatorNew :: Rectangle -> Maybe T.Text -> IO (Ref Valuator)-valuatorNew rectangle l' =-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenValuatorNew'-    overriddenValuatorNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Valuator_Destroy as valuatorDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Valuator orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-                                        valuatorDestroy' winPtr-                                        return nullPtr-{# fun Fl_Valuator_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (Hide ()) Valuator orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> hide' buttonPtr-{# fun Fl_Valuator_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (( IO ()))) => Op (HideSuper ()) Valuator orig impl where-  runOp _ _ button = withRef button $ \buttonPtr -> hideSuper' buttonPtr-{#fun Fl_Valuator_handle as valuatorHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedValuator_handle as valuatorHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Valuator orig impl where   runOp _ _ valuator event = withRef valuator (\p -> valuatorHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{#fun Fl_Valuator_handle_super as valuatorHandleSuper' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Valuator orig impl where-  runOp _ _ valuator event = withRef valuator (\p -> valuatorHandleSuper' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent-{# fun Fl_Valuator_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle ->  IO ())) => Op (ResizeSuper ()) Valuator orig impl where-  runOp _ _ valuator rectangle = withRef valuator $ \valuatorPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resizeSuper' valuatorPtr x_pos y_pos w_pos h_pos-{# fun Fl_Valuator_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Valuator orig impl where++{# fun Fl_DerivedValuator_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) Valuator orig impl where   runOp _ _ valuator rectangle = withRef valuator $ \valuatorPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' valuatorPtr x_pos y_pos w_pos h_pos-{# fun Fl_Valuator_bounds as bounds' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double -> Double ->  IO ())) => Op (Bounds ()) Valuator orig impl where-  runOp _ _ valuator a b = withRef valuator $ \valuatorPtr -> bounds' valuatorPtr a b-{# fun Fl_Valuator_minimum as minimum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetMinimum ()) Valuator orig impl where-  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> minimum' valuatorPtr-{# fun Fl_Valuator_set_minimum as setMinimum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double ->  IO ())) => Op (SetMinimum ()) Valuator orig impl where-  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMinimum' valuatorPtr a-{# fun Fl_Valuator_maximum as maximum' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetMaximum ()) Valuator orig impl where-  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> maximum' valuatorPtr-{# fun Fl_Valuator_set_maximum as setMaximum' { id `Ptr ()',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double ->  IO ())) => Op (SetMaximum ()) Valuator orig impl where-  runOp _ _ valuator a = withRef valuator $ \valuatorPtr -> setMaximum' valuatorPtr a-{# fun Fl_Valuator_range as range' { id `Ptr ()',`Double',`Double' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Double -> Double ->  IO ())) => Op (Range ()) Valuator orig impl where-  runOp _ _ valuator a b = withRef valuator $ \valuatorPtr -> range' valuatorPtr a b-{# fun Fl_Valuator_set_step_with_a_b as setStepWithAB' { id `Ptr ()', `Double', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rational -> IO ())) => Op (SetStep ()) Valuator orig impl where-  runOp _ _ valuator r = withRef valuator $ \valuatorPtr -> setStepWithAB' valuatorPtr (fromIntegral (numerator r)) (fromIntegral (denominator r))-{# fun Fl_Valuator_step as step' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Rational))) => Op (GetStep ()) Valuator orig impl where-  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> step' valuatorPtr >>= \r -> return $ approxRational r 0-{# fun Fl_Valuator_precision as precision' { id `Ptr ()',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Int ->  IO ())) => Op (Precision ()) Valuator orig impl where-  runOp _ _ valuator p' = withRef valuator $ \valuatorPtr -> precision' valuatorPtr p'-{# fun Fl_Valuator_value as value' { id `Ptr ()' } -> `Double' #}-instance (impl ~ ( IO (Double))) => Op (GetValue ()) Valuator orig impl where-  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> value' valuatorPtr-{# fun Fl_Valuator_set_value as setValue' { id `Ptr ()',`Double' } -> `Int' #}-instance (impl ~ (Double ->  IO (Either NoChange ()))) => Op (SetValue ()) Valuator orig impl where-  runOp _ _ valuator v = withRef valuator $ \valuatorPtr -> do-    ret <- setValue' valuatorPtr v-    return (if (ret == 0) then Left NoChange else Right ())-{# fun Fl_Valuator_format as format' { id `Ptr ()', id `Ptr CChar' } -> `Int' #}-instance (impl ~ (IO (Either UnknownError T.Text))) => Op (Format ()) Valuator orig impl where-  runOp _ _ valuator =-    let bufSize = 128-    in-    withRef valuator-      (\valuatorPtr ->-          allocaBytes 128-            (\bufPtr -> do-               res <- format' valuatorPtr bufPtr-               if (res < 0 || res > bufSize)-                 then return (Left UnknownError)-                 else fmap Right (cStringToText (castPtr bufPtr))-            )-      )-{# fun Fl_Valuator_round as round' { id `Ptr ()',`Double' } -> `Double' #}-instance (impl ~ (Double ->  IO (Double))) => Op (Round ()) Valuator orig impl where-  runOp _ _ valuator v = withRef valuator $ \valuatorPtr -> round' valuatorPtr v-{# fun Fl_Valuator_clamp as clamp' { id `Ptr ()',`Double' } -> `Double' #}-instance (impl ~ (Double ->  IO (Double))) => Op (Clamp ()) Valuator orig impl where-  runOp _ _ valuator v = withRef valuator $ \valuatorPtr -> clamp' valuatorPtr v-{# fun Fl_Valuator_increment as increment' { id `Ptr ()',`Double',`Int' } -> `Double' #}-instance (impl ~ (Double -> Int ->  IO (Double))) => Op (Increment ()) Valuator orig impl where-  runOp _ _ valuator v n = withRef valuator $ \valuatorPtr -> increment' valuatorPtr v n-{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (ValuatorType ->  IO ())) => Op (SetType ()) Valuator orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (ValuatorType)) => Op (GetType_ ()) Valuator orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+    resize' valuatorPtr x_pos y_pos w_pos h_pos --- $functions--- @--- bounds :: 'Ref' 'Valuator' -> 'Double' -> 'Double' -> 'IO' ()------ clamp :: 'Ref' 'Valuator' -> 'Double' -> 'IO' ('Double')------ destroy :: 'Ref' 'Valuator' -> 'IO' ()------ format :: 'Ref' 'Valuator' -> 'IO' ('Either' 'UnknownError' 'T.Text')------ getMaximum :: 'Ref' 'Valuator' -> 'IO' ('Double')------ getMinimum :: 'Ref' 'Valuator' -> 'IO' ('Double')------ getStep :: 'Ref' 'Valuator' -> 'IO' ('Rational')------ getType_ :: 'Ref' 'Valuator' -> 'IO' ('ValuatorType')------ getValue :: 'Ref' 'Valuator' -> 'IO' ('Double')------ handle :: 'Ref' 'Valuator' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ handleSuper :: 'Ref' 'Valuator' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())------ hide :: 'Ref' 'Valuator' -> ( 'IO' ())------ hideSuper :: 'Ref' 'Valuator' -> ( 'IO' ())------ increment :: 'Ref' 'Valuator' -> 'Double' -> 'Int' -> 'IO' ('Double')------ precision :: 'Ref' 'Valuator' -> 'Int' -> 'IO' ()------ range :: 'Ref' 'Valuator' -> 'Double' -> 'Double' -> 'IO' ()------ resize :: 'Ref' 'Valuator' -> 'Rectangle' -> 'IO' ()------ resizeSuper :: 'Ref' 'Valuator' -> 'Rectangle' -> 'IO' ()------ round :: 'Ref' 'Valuator' -> 'Double' -> 'IO' ('Double')------ setMaximum :: 'Ref' 'Valuator' -> 'Double' -> 'IO' ()------ setMinimum :: 'Ref' 'Valuator' -> 'Double' -> 'IO' ()------ setStep :: 'Ref' 'Valuator' -> 'Rational' -> 'IO' ()------ setType :: 'Ref' 'Valuator' -> 'ValuatorType' -> 'IO' ()------ setValue :: 'Ref' 'Valuator' -> 'Double' -> 'IO' ('Either' 'NoChange' ())--- @+{# fun Fl_DerivedValuator_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) Valuator orig impl where+  runOp _ _ valuator = withRef valuator $ \valuatorPtr -> hide' valuatorPtr  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v -- "Graphics.UI.FLTK.LowLevel.Valuator"+-- @++-- $functions+-- @+-- handle :: 'Ref' 'Valuator' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'Valuator' -> 'IO' ()+--+-- resize :: 'Ref' 'Valuator' -> 'Rectangle' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/ValueInput.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ValueInput     (-     -- * Constructor-     valueInputNew,-     valueInputCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,166 +15,53 @@ #include "Fl_Types.h" #include "Fl_Value_InputC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-{# fun Fl_OverriddenValue_Input_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenValue_Input_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-valueInputCustom ::-       Rectangle                         -- ^ The bounds of this ValueInput-    -> Maybe T.Text                      -- ^ The ValueInput label-    -> Maybe (Ref ValueInput -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs ValueInput)      -- ^ Optional custom widget functions-    -> IO (Ref ValueInput)-valueInputCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Value_Input_New as valueInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Value_Input_New_WithLabel as valueInputNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-valueInputNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueInput)-valueInputNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Value_Input_Destroy as valueInputDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) ValueInput orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    valueInputDestroy' winPtr-    return nullPtr-{# fun Fl_Value_Input_soft as soft' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (GetSoft ()) ValueInput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> soft' value_inputPtr-{# fun Fl_Value_Input_set_soft as setSoft' { id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool->  IO ())) => Op (SetSoft ()) ValueInput orig impl where-  runOp _ _ value_input s = withRef value_input $ \value_inputPtr -> setSoft' value_inputPtr s-{# fun Fl_Value_Input_shortcut as shortcut' { id `Ptr ()' } -> `CInt' #}-instance (impl ~ ( IO (Maybe ShortcutKeySequence))) => Op (GetShortcut ()) ValueInput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> shortcut' value_inputPtr >>= return . cIntToKeySequence-{# fun Fl_Value_Input_set_shortcut as setShortcut' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (ShortcutKeySequence ->  IO ())) => Op (SetShortcut ()) ValueInput orig impl where-  runOp _ _ input (ShortcutKeySequence modifiers char) =-    withRef input $ \inputPtr -> setShortcut' inputPtr (keySequenceToCInt modifiers char)-{# fun Fl_Value_Input_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) ValueInput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textfont' value_inputPtr-{# fun Fl_Value_Input_set_textfont as setTextfont' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) ValueInput orig impl where-  runOp _ _ value_input (Font v) = withRef value_input $ \value_inputPtr -> setTextfont' value_inputPtr v-{# fun Fl_Value_Input_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) ValueInput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textsize' value_inputPtr >>= return . FontSize-{# fun Fl_Value_Input_set_textsize as setTextsize' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) ValueInput orig impl where-  runOp _ _ value_input (FontSize v) = withRef value_input $ \value_inputPtr -> setTextsize' value_inputPtr v-{# fun Fl_Value_Input_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) ValueInput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textcolor' value_inputPtr-{# fun Fl_Value_Input_set_textcolor as setTextcolor' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) ValueInput orig impl where-  runOp _ _ value_input (Color v) = withRef value_input $ \value_inputPtr -> setTextcolor' value_inputPtr (fromIntegral v)+import Graphics.UI.FLTK.LowLevel.Hierarchy  {# fun Fl_Value_Input_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) ValueInput orig impl where   runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> draw'' valueInputPtr-{# fun Fl_Value_Input_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) ValueInput orig impl where-  runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> drawSuper' valueInputPtr {#fun Fl_Value_Input_handle as valueInputHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValueInput orig impl where   runOp _ _ valueInput event = withRef valueInput (\p -> valueInputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Value_Input_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) ValueInput orig impl where-  runOp _ _ valueInput event = withRef valueInput $ \valueInputPtr -> handleSuper' valueInputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent-{# fun Fl_Value_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueInput orig impl where-  runOp _ _ valueInput rectangle = withRef valueInput $ \valueInputPtr -> do-                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-                                 resize' valueInputPtr x_pos y_pos w_pos h_pos-{# fun Fl_Value_Input_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) ValueInput orig impl where-  runOp _ _ valueInput rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef valueInput $ \valueInputPtr -> resizeSuper' valueInputPtr x_pos y_pos width height {# fun Fl_Value_Input_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) ValueInput orig impl where   runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> hide' valueInputPtr-{# fun Fl_Value_Input_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) ValueInput orig impl where-  runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> hideSuper' valueInputPtr {# fun Fl_Value_Input_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) ValueInput orig impl where   runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> show' valueInputPtr-{# fun Fl_Value_Input_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) ValueInput orig impl where-  runOp _ _ valueInput = withRef valueInput $ \valueInputPtr -> showSuper' valueInputPtr+{# fun Fl_Value_Input_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueInput orig impl where+  runOp _ _ valueInput rectangle = withRef valueInput $ \valueInputPtr -> do+                                 let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+                                 resize' valueInputPtr x_pos y_pos w_pos h_pos +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ValueInput"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.ValueInput"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'ValueInput' -> 'IO' ()--- -- draw :: 'Ref' 'ValueInput' -> 'IO' () ----- drawSuper :: 'Ref' 'ValueInput' -> 'IO' ()------ getShortcut :: 'Ref' 'ValueInput' -> 'IO' ('Maybe' 'ShortcutKeySequence')------ getSoft :: 'Ref' 'ValueInput' -> 'IO' ('Bool')------ getTextcolor :: 'Ref' 'ValueInput' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'ValueInput' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'ValueInput' -> 'IO' ('FontSize')--- -- handle :: 'Ref' 'ValueInput' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'ValueInput' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'ValueInput' -> 'IO' () ----- hideSuper :: 'Ref' 'ValueInput' -> 'IO' ()--- -- resize :: 'Ref' 'ValueInput' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'ValueInput' -> 'Rectangle' -> 'IO' ()------ setShortcut :: 'Ref' 'ValueInput' -> 'ShortcutKeySequence' -> 'IO' ()------ setSoft :: 'Ref' 'ValueInput' -> 'Bool'>- 'IO' ()------ setTextcolor :: 'Ref' 'ValueInput' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'ValueInput' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'ValueInput' -> 'FontSize' -> 'IO' ()--- -- showWidget :: 'Ref' 'ValueInput' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'ValueInput' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.ValueInput" -- @
src/Graphics/UI/FLTK/LowLevel/ValueOutput.chs view
@@ -1,15 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ValueOutput     (-     -- * Constructor-     valueOutputNew,-     valueOutputCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,156 +15,53 @@ #include "Fl_Types.h" #include "Fl_Value_OutputC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-{# fun Fl_OverriddenValue_Output_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenValue_Output_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-valueOutputCustom ::-       Rectangle                         -- ^ The bounds of this ValueOutput-    -> Maybe T.Text                      -- ^ The ValueOutput label-    -> Maybe (Ref ValueOutput -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs ValueOutput)      -- ^ Optional custom widget functions-    -> IO (Ref ValueOutput)-valueOutputCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Value_Output_New as valueOutputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Value_Output_New_WithLabel as valueOutputNewWithLabel' { `Int',`Int',`Int',`Int',`CString'} -> `Ptr ()' id #}-valueOutputNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueOutput)-valueOutputNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'--{# fun Fl_Value_Output_Destroy as valueOutputDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ IO ()) => Op (Destroy ()) ValueOutput orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    valueOutputDestroy' winPtr-    return nullPtr+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Value_Output_soft as soft' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (GetSoft ()) ValueOutput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> soft' value_inputPtr-{# fun Fl_Value_Output_set_soft as setSoft' { id `Ptr ()',cFromBool `Bool' } -> `()' #}-instance (impl ~ (Bool->  IO ())) => Op (SetSoft ()) ValueOutput orig impl where-  runOp _ _ value_input s = withRef value_input $ \value_inputPtr -> setSoft' value_inputPtr s-{# fun Fl_Value_Output_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) ValueOutput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textfont' value_inputPtr-{# fun Fl_Value_Output_set_textfont as setTextfont' { id `Ptr ()',`Int' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) ValueOutput orig impl where-  runOp _ _ value_input (Font v) = withRef value_input $ \value_inputPtr -> setTextfont' value_inputPtr v-{# fun Fl_Value_Output_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) ValueOutput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textsize' value_inputPtr >>= return . FontSize-{# fun Fl_Value_Output_set_textsize as setTextsize' { id `Ptr ()',id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) ValueOutput orig impl where-  runOp _ _ value_input (FontSize v) = withRef value_input $ \value_inputPtr -> setTextsize' value_inputPtr v-{# fun Fl_Value_Output_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) ValueOutput orig impl where-  runOp _ _ value_input = withRef value_input $ \value_inputPtr -> textcolor' value_inputPtr-{# fun Fl_Value_Output_set_textcolor as setTextcolor' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) ValueOutput orig impl where-  runOp _ _ value_input (Color v) = withRef value_input $ \value_inputPtr -> setTextcolor' value_inputPtr (fromIntegral v) {# fun Fl_Value_Output_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) ValueOutput orig impl where   runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> draw'' valueOutputPtr-{# fun Fl_Value_Output_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) ValueOutput orig impl where-  runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> drawSuper' valueOutputPtr {#fun Fl_Value_Output_handle as valueOutputHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValueOutput orig impl where   runOp _ _ valueOutput event = withRef valueOutput (\p -> valueOutputHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Value_Output_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) ValueOutput orig impl where-  runOp _ _ valueOutput event = withRef valueOutput $ \valueOutputPtr -> handleSuper' valueOutputPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Value_Output_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueOutput orig impl where   runOp _ _ valueOutput rectangle = withRef valueOutput $ \valueOutputPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' valueOutputPtr x_pos y_pos w_pos h_pos-{# fun Fl_Value_Output_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) ValueOutput orig impl where-  runOp _ _ valueOutput rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef valueOutput $ \valueOutputPtr -> resizeSuper' valueOutputPtr x_pos y_pos width height {# fun Fl_Value_Output_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) ValueOutput orig impl where   runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> hide' valueOutputPtr-{# fun Fl_Value_Output_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) ValueOutput orig impl where-  runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> hideSuper' valueOutputPtr {# fun Fl_Value_Output_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) ValueOutput orig impl where   runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> show' valueOutputPtr-{# fun Fl_Value_Output_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) ValueOutput orig impl where-  runOp _ _ valueOutput = withRef valueOutput $ \valueOutputPtr -> showSuper' valueOutputPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ValueOutput"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.ValueOutput"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'ValueOutput' -> 'IO' ()--- -- draw :: 'Ref' 'ValueOutput' -> 'IO' () ----- drawSuper :: 'Ref' 'ValueOutput' -> 'IO' ()------ getSoft :: 'Ref' 'ValueOutput' -> 'IO' ('Bool')------ getTextcolor :: 'Ref' 'ValueOutput' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'ValueOutput' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'ValueOutput' -> 'IO' ('FontSize')--- -- handle :: 'Ref' 'ValueOutput' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'ValueOutput' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'ValueOutput' -> 'IO' () ----- hideSuper :: 'Ref' 'ValueOutput' -> 'IO' ()--- -- resize :: 'Ref' 'ValueOutput' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'ValueOutput' -> 'Rectangle' -> 'IO' ()------ setSoft :: 'Ref' 'ValueOutput' -> 'Bool'>- 'IO' ()------ setTextcolor :: 'Ref' 'ValueOutput' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'ValueOutput' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'ValueOutput' -> 'FontSize' -> 'IO' ()--- -- showWidget :: 'Ref' 'ValueOutput' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'ValueOutput' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.ValueOutput" -- @
src/Graphics/UI/FLTK/LowLevel/ValueSlider.chs view
@@ -1,166 +1,70 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ValueSlider-       (-         -- * Constructor-         valueSliderNew,-         valueSliderCustom-         -- * Hierarchy-         ---         -- $hierarchy+    (+     -- * Hierarchy+     --+     -- $hierarchy -         -- * Functions-         ---         -- $functions-       )+     -- * Widget Functions+     --+     -- $functions+    ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_Value_SliderC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T--{# fun Fl_OverriddenValue_Slider_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenValue_Slider_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-valueSliderCustom ::-       Rectangle                         -- ^ The bounds of this ValueSlider-    -> Maybe T.Text                      -- ^ The ValueSlider label-    -> Maybe (Ref ValueSlider -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs ValueSlider)      -- ^ Optional custom widget functions-    -> IO (Ref ValueSlider)-valueSliderCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Value_Slider_New as valueSliderNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}-{# fun Fl_Value_Slider_New_WithLabel as valueSliderNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-valueSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueSlider)-valueSliderNew rectangle l'=-  widgetMaker-    rectangle-    l'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Value_Slider_Destroy as valueSliderDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) ValueSlider orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    valueSliderDestroy' winPtr-    return nullPtr-{# fun Fl_Value_Slider_textfont as textfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ ( IO (Font))) => Op (GetTextfont ()) ValueSlider orig impl where-  runOp _ _ value_slider = withRef value_slider $ \value_sliderPtr -> textfont' value_sliderPtr-{# fun Fl_Value_Slider_set_textfont as setTextfont' { id `Ptr ()',cFromFont `Font' } -> `()' #}-instance (impl ~ (Font ->  IO ())) => Op (SetTextfont ()) ValueSlider orig impl where-  runOp _ _ value_slider s = withRef value_slider $ \value_sliderPtr -> setTextfont' value_sliderPtr s-{# fun Fl_Value_Slider_textsize as textsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ ( IO (FontSize))) => Op (GetTextsize ()) ValueSlider orig impl where-  runOp _ _ value_slider = withRef value_slider $ \value_sliderPtr -> textsize' value_sliderPtr >>= return . FontSize-{# fun Fl_Value_Slider_set_textsize as setTextsize' { id `Ptr ()', id `CInt' } -> `()' #}-instance (impl ~ (FontSize ->  IO ())) => Op (SetTextsize ()) ValueSlider orig impl where-  runOp _ _ value_slider (FontSize s) = withRef value_slider $ \value_sliderPtr -> setTextsize' value_sliderPtr s-{# fun Fl_Value_Slider_textcolor as textcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ ( IO (Color))) => Op (GetTextcolor ()) ValueSlider orig impl where-  runOp _ _ value_slider = withRef value_slider $ \value_sliderPtr -> textcolor' value_sliderPtr-{# fun Fl_Value_Slider_set_textcolor as setTextcolor' { id `Ptr ()',cFromColor `Color' } -> `()' #}-instance (impl ~ (Color ->  IO ())) => Op (SetTextcolor ()) ValueSlider orig impl where-  runOp _ _ value_slider s = withRef value_slider $ \value_sliderPtr -> setTextcolor' value_sliderPtr s {# fun Fl_Value_Slider_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) ValueSlider orig impl where   runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> draw'' valueSliderPtr-{# fun Fl_Value_Slider_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) ValueSlider orig impl where-  runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> drawSuper' valueSliderPtr {#fun Fl_Value_Slider_handle as valueSliderHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ValueSlider orig impl where   runOp _ _ valueSlider event = withRef valueSlider (\p -> valueSliderHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Value_Slider_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) ValueSlider orig impl where-  runOp _ _ valueSlider event = withRef valueSlider $ \valueSliderPtr -> handleSuper' valueSliderPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Value_Slider_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueSlider orig impl where   runOp _ _ valueSlider rectangle = withRef valueSlider $ \valueSliderPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' valueSliderPtr x_pos y_pos w_pos h_pos-{# fun Fl_Value_Slider_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) ValueSlider orig impl where-  runOp _ _ valueSlider rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef valueSlider $ \valueSliderPtr -> resizeSuper' valueSliderPtr x_pos y_pos width height {# fun Fl_Value_Slider_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) ValueSlider orig impl where   runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> hide' valueSliderPtr-{# fun Fl_Value_Slider_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) ValueSlider orig impl where-  runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> hideSuper' valueSliderPtr {# fun Fl_Value_Slider_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) ValueSlider orig impl where   runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> show' valueSliderPtr-{# fun Fl_Value_Slider_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) ValueSlider orig impl where-  runOp _ _ valueSlider = withRef valueSlider $ \valueSliderPtr -> showSuper' valueSliderPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Valuator"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Slider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.ValueSlider"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.ValueSlider"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'ValueSlider' -> 'IO' ()--- -- draw :: 'Ref' 'ValueSlider' -> 'IO' () ----- drawSuper :: 'Ref' 'ValueSlider' -> 'IO' ()------ getTextcolor :: 'Ref' 'ValueSlider' -> 'IO' ('Color')------ getTextfont :: 'Ref' 'ValueSlider' -> 'IO' ('Font')------ getTextsize :: 'Ref' 'ValueSlider' -> 'IO' ('FontSize')--- -- handle :: 'Ref' 'ValueSlider' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'ValueSlider' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'ValueSlider' -> 'IO' () ----- hideSuper :: 'Ref' 'ValueSlider' -> 'IO' ()--- -- resize :: 'Ref' 'ValueSlider' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'ValueSlider' -> 'Rectangle' -> 'IO' ()------ setTextcolor :: 'Ref' 'ValueSlider' -> 'Color' -> 'IO' ()------ setTextfont :: 'Ref' 'ValueSlider' -> 'Font' -> 'IO' ()------ setTextsize :: 'Ref' 'ValueSlider' -> 'FontSize' -> 'IO' ()--- -- showWidget :: 'Ref' 'ValueSlider' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'ValueSlider' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Valuator"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Slider"---  |---  v--- "Graphics.UI.FLTK.LowLevel.ValueSlider" -- @
src/Graphics/UI/FLTK/LowLevel/Widget.chs view
@@ -2,771 +2,72 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Widget     (-     -- * Constructor-     widgetCustom,-     widgetMaker,-     -- * Custom-     CustomWidgetFuncs(..),-     defaultCustomWidgetFuncs,-     fillCustomWidgetFunctionStruct,-     customWidgetFunctionStruct,-     WidgetFlag(..)      -- * Hierarchy      --      -- $hierarchy       -- * Widget Functions      ---     -- $widgetfunctions+     -- $functions     ) where #include "Fl_ExportMacros.h" #include "Fl_Types.h" #include "Fl_WidgetC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)- import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-import qualified Data.Text.Foreign as TF import Graphics.UI.FLTK.LowLevel.Hierarchy -#c-enum WidgetFlag {-    WidgetFlagInactive = INACTIVE,-    WidgetFlagInvisible = INVISIBLE,-    WidgetFlagOutput = OUTPUT,-    WidgetFlagNoBorder = NOBORDER,-    WidgetFlagForcePosition = FORCE_POSITION,-    WidgetFlagNonModal = NON_MODAL,-    WidgetFlagShortcutLabel = SHORTCUT_LABEL,-    WidgetFlagChanged = CHANGED,-    WidgetFlagOverride = OVERRIDE,-    WidgetFlagVisibleFocus = VISIBLE_FOCUS,-    WidgetFlagCopiedLabel = COPIED_LABEL,-    WidgetFlagClipChildren = CLIP_CHILDREN,-    WidgetFlagMenuWindow = MENU_WINDOW,-    WidgetFlagTooltipWindow = TOOLTIP_WINDOW,-    WidgetFlagModal = MODAL,-    WidgetFlagNoOverlay = NO_OVERLAY,-    WidgetFlagGroupRelative = GROUP_RELATIVE,-    WidgetFlagCopiedTooltip = COPIED_TOOLTIP,-    WidgetFlagFullscreen = FULLSCREEN,-    WidgetFlagMacUseAccentsMenu = MAC_USE_ACCENTS_MENU,-    WidgetFlagNeedsKeyboard = NEEDS_KEYBOARD,-    WidgetFlagUserFlag3 = USERFLAG3,-    WidgetFlagUserFlag2 = USERFLAG2,-    WidgetFlagUserFlag1 = USERFLAG1-};-#endc-{#enum WidgetFlag {} deriving (Show, Eq) #}-allWidgetFlags :: [WidgetFlag]-allWidgetFlags =-  [-    WidgetFlagInactive,-    WidgetFlagInvisible,-    WidgetFlagOutput,-    WidgetFlagNoBorder,-    WidgetFlagForcePosition,-    WidgetFlagNonModal,-    WidgetFlagShortcutLabel,-    WidgetFlagChanged,-    WidgetFlagOverride,-    WidgetFlagVisibleFocus,-    WidgetFlagCopiedLabel,-    WidgetFlagClipChildren,-    WidgetFlagMenuWindow,-    WidgetFlagTooltipWindow,-    WidgetFlagModal,-    WidgetFlagNoOverlay,-    WidgetFlagGroupRelative,-    WidgetFlagCopiedTooltip,-    WidgetFlagFullscreen,-    WidgetFlagMacUseAccentsMenu,-    WidgetFlagNeedsKeyboard,-    WidgetFlagUserFlag3,-    WidgetFlagUserFlag2,-    WidgetFlagUserFlag1-  ]--type RectangleFPrim              = Ptr () -> CInt -> CInt -> CInt -> CInt -> IO ()--foreign import ccall "wrapper"-        mkWidgetEventHandler :: (Ptr () -> CInt -> IO CInt) -> IO (FunPtr (Ptr () -> CInt -> IO CInt))-foreign import ccall "wrapper"-        mkRectanglePtr :: RectangleFPrim -> IO (FunPtr RectangleFPrim)--toRectangleFPrim ::  (Ref a -> Rectangle -> IO ()) ->-                     IO (FunPtr (Ptr () -> CInt -> CInt -> CInt -> CInt -> IO ()))-toRectangleFPrim f = mkRectanglePtr $ \wPtr x_pos y_pos width height ->-  let rectangle = toRectangle (fromIntegral x_pos,-                               fromIntegral y_pos,-                               fromIntegral width,-                               fromIntegral height)-  in do-  fptr <- wrapNonNull wPtr "Null Pointer. toRectangleFPrim"-  f (wrapInRef fptr) rectangle--toEventHandlerPrim :: (Ref a -> Event -> IO (Either UnknownEvent ())) ->-                      IO (FunPtr (Ptr () -> CInt -> IO CInt))-toEventHandlerPrim f = mkWidgetEventHandler $-                       \wPtr eventNumber ->-                            let event = cToEnum (eventNumber :: CInt)-                            in do-                            fptr <- wrapNonNull wPtr "Null Pointer: toEventHandlerPrim"-                            result <- f (wrapInRef fptr) event-                            return (either (\_ -> fromIntegral (0::CInt)) (const (fromIntegral (1::CInt))) result)---- | Overrideable 'Widget' functions--- | Do not create this directly. Instead use `defaultWidgetCustomFuncs`-data CustomWidgetFuncs a =-    CustomWidgetFuncs-    {-     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#a9cb17cc092697dfd05a3fab55856d218 Fl_Widget::handle>-    handleCustom :: Maybe (Ref a -> Event -> IO (Either UnknownEvent ()))-     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#aca98267e7a9b94f699ebd27d9f59e8bb Fl_Widget::resize>-    ,resizeCustom :: Maybe (Ref a -> Rectangle -> IO ())-     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#ab572c6fbc922bf3268b72cf9e2939606 Fl_Widget::show>-    ,showCustom   :: Maybe (Ref a -> IO ())-     -- | See <http://www.fltk.org/doc-1.3/classFl__Widget.html#a1fe8405b86da29d147dc3b5841cf181c Fl_Widget::hide>-    ,hideCustom   :: Maybe (Ref a -> IO ())-    }---- | Fill up a struct with pointers to functions on the Haskell side that will get called instead of the default ones.------ Fill up the 'Widget' part the function pointer struct.------ Only of interest to 'Widget' contributors-fillCustomWidgetFunctionStruct :: forall a. (Parent a Widget) =>-                                  Ptr () ->-                                  Maybe (Ref a -> IO ()) ->-                                  CustomWidgetFuncs a ->-                                  IO ()-fillCustomWidgetFunctionStruct structPtr _draw' (CustomWidgetFuncs _handle' _resize' _show' _hide') = do-      toCallbackPrim `orNullFunPtr` _draw'       >>= {#set fl_Widget_Virtual_Funcs->draw#} structPtr-      toEventHandlerPrim `orNullFunPtr` _handle' >>= {#set fl_Widget_Virtual_Funcs->handle#} structPtr-      toRectangleFPrim `orNullFunPtr` _resize'   >>= {#set fl_Widget_Virtual_Funcs->resize#} structPtr-      toCallbackPrim `orNullFunPtr` _show'       >>= {#set fl_Widget_Virtual_Funcs->show#} structPtr-      toCallbackPrim `orNullFunPtr` _hide'       >>= {#set fl_Widget_Virtual_Funcs->hide#} structPtr--{# fun Fl_Widget_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}---- | Given a record of functions, return a pointer to a struct with function pointers back to those functions.------ Only of interest to 'Widget' contributors.-customWidgetFunctionStruct :: forall a. (Parent a Widget) =>-                              Maybe (Ref a -> IO ()) ->-                              CustomWidgetFuncs a ->-                              IO (Ptr ())-customWidgetFunctionStruct draw' customWidgetFuncs' = do-  p <- virtualFuncs'-  fillCustomWidgetFunctionStruct p draw' customWidgetFuncs'-  return p---- | An empty set of functions to pass to 'widgetCustom'.-defaultCustomWidgetFuncs :: forall a. (Parent a Widget) => CustomWidgetFuncs a-defaultCustomWidgetFuncs =-  CustomWidgetFuncs-    Nothing-    Nothing-    Nothing-    Nothing---- | Lots of 'Widget' subclasses have the same constructor parameters. This function consolidates them.------ Only of interest to 'Widget' contributors.-widgetMaker :: forall a. (Parent a Widget) =>-               Rectangle                                                          -- ^ Position and size-               -> Maybe T.Text                                                    -- ^ Title-               -> Maybe (Ref a -> IO ())                                          -- ^ Custom drawing function-               -> Maybe (CustomWidgetFuncs a)                                     -- ^ Custom functions-               -> (Int -> Int -> Int -> Int -> Ptr () -> IO ( Ptr () ))           -- ^ Foreign constructor to call if only custom functions are given-               -> (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO ( Ptr () )) -- ^ Foreign constructor to call if both title and custom functions are given-               -> IO (Ref a)                                                      -- ^ Reference to the widget-widgetMaker rectangle _label' draw' customFuncs' newWithCustomFuncs' newWithCustomFuncsLabel' =-  do-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    ptr <- customWidgetFunctionStruct draw' (maybe defaultCustomWidgetFuncs id customFuncs')-    widget <- maybe (newWithCustomFuncs' x_pos y_pos width height (castPtr ptr))-                    (\l -> copyTextToCString l >>= \l' -> newWithCustomFuncsLabel' x_pos y_pos width height l' (castPtr ptr))-                    _label'-    ref <- toRef widget-    setFlag (safeCast ref :: Ref Widget) WidgetFlagCopiedLabel-    setFlag (safeCast ref :: Ref Widget) WidgetFlagCopiedTooltip-    return ref--{# fun Fl_OverriddenWidget_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenWidget_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}--- | Widget constructor.-widgetCustom :: Rectangle                   -- ^ The bounds of this widget-                -> Maybe T.Text             -- ^ The widget label-                -> (Ref Widget -> IO ())    -- ^ Custom drawing function-                -> CustomWidgetFuncs Widget -- ^ Other custom functions-                -> IO (Ref Widget)-widgetCustom rectangle label' draw' funcs' = do-  ref <- widgetMaker-           rectangle-           label'-           (Just draw')-           (Just funcs')-           overriddenWidgetNew'-           overriddenWidgetNewWithLabel'-  setFlag ref WidgetFlagCopiedLabel-  setFlag ref WidgetFlagCopiedTooltip-  return ref--{# fun Fl_Widget_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~  IO ()) => Op (Destroy ()) Widget orig impl where-  runOp _ _ win = swapRef win $ \winPtr -> do-    widgetDestroy' winPtr-    return nullPtr+{# fun Fl_DerivedWidget_draw as draw' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Draw ()) Widget orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> draw' widgetPtr -{#fun Fl_Widget_handle as widgetHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedWidget_handle as widgetHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Widget orig impl where   runOp _ _ widget event = withRef widget (\p -> widgetHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent -{#fun Fl_Widget_parent as widgetParent' { id `Ptr ()'} -> `Ptr ()' id #}-instance (impl ~  IO (Maybe (Ref Group))) => Op (GetParent ()) Widget orig impl where-  runOp _ _ widget = withRef widget widgetParent' >>= toMaybeRef--{#fun Fl_Widget_set_parent as widgetSetParent' { id `Ptr ()', id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Group, impl ~ (Maybe (Ref a) -> IO ())) => Op (SetParent ()) Widget orig impl where-  runOp _ _ widget group =-      withRef widget-      (\widgetPtr ->-        withMaybeRef group (\groupPtr ->-                        widgetSetParent' widgetPtr groupPtr-                      )-      )-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (Word8)) => Op (GetType_ ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr-{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Word8 ->  IO ())) => Op (SetType ()) Widget orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr t-{# fun Fl_Widget_draw_label as drawLabel' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Widget_draw_label_with_xywh_alignment as drawLabelWithXywhAlignment' { id `Ptr ()',`Int',`Int',`Int',`Int', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Maybe (Rectangle,Alignments) ->  IO ())) => Op (DrawLabel ()) Widget orig impl where-  runOp _ _ widget Nothing = withRef widget $ \widgetPtr -> drawLabel' widgetPtr-  runOp _ _ widget (Just (rectangle,align_)) = withRef widget $ \widgetPtr -> do-    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-    drawLabelWithXywhAlignment' widgetPtr x_pos y_pos w_pos h_pos (alignmentsToInt align_)--{# fun Fl_Widget_x as x' { id `Ptr ()' } -> `Int' #}-instance (impl ~ IO (X)) => Op (GetX ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> x' widgetPtr >>= return . X-{# fun Fl_Widget_y as y' { id `Ptr ()' } -> `Int' #}-instance (impl ~ IO (Y)) => Op (GetY ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> y' widgetPtr >>= return . Y-{# fun Fl_Widget_w as w' { id `Ptr ()' } -> `Int' #}-instance (impl ~ IO (Width)) => Op (GetW ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> w' widgetPtr >>= return . Width-{# fun Fl_Widget_h as h' { id `Ptr ()' } -> `Int' #}-instance (impl ~ IO (Height)) => Op (GetH ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> h' widgetPtr >>= return . Height-instance (-         Match obj ~ FindOp orig orig (GetX ()),-         Match obj ~ FindOp orig orig (GetY ()),-         Match obj ~ FindOp orig orig (GetW ()),-         Match obj ~ FindOp orig orig (GetH ()),-         Op (GetX ()) obj orig (IO X),-         Op (GetY ()) obj orig (IO Y),-         Op (GetW ()) obj orig (IO Width),-         Op (GetH ()) obj orig (IO Height),-         impl ~ IO Rectangle-         )-         =>-         Op (GetRectangle ()) Widget orig impl where-   runOp _ _ widget = do-     _x <- getX (castTo widget :: Ref orig)-     _y <- getY (castTo widget :: Ref orig)-     _w <- getW (castTo widget :: Ref orig)-     _h <- getH (castTo widget :: Ref orig)-     return (Rectangle (Position _x _y) (Size _w _h))-{# fun Fl_Widget_set_align as setAlign' { id `Ptr ()', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Alignments ->  IO ())) => Op (SetAlign ()) Widget orig impl where-  runOp _ _ widget _align = withRef widget $ \widgetPtr -> setAlign' widgetPtr (alignmentsToInt _align)-{# fun Fl_Widget_align as align' { id `Ptr ()' } -> `CUInt' id #}-instance (impl ~ IO Alignments) => Op (GetAlign ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> align' widgetPtr >>= return . intToAlignments . fromIntegral-{# fun Fl_Widget_box as box' { id `Ptr ()' } -> `Boxtype' cToEnum #}-instance (impl ~ IO (Boxtype)) => Op (GetBox ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> box' widgetPtr-{# fun Fl_Widget_set_box as setBox' { id `Ptr ()',cFromEnum `Boxtype' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Boxtype ->  IO ())) => Op (SetBox ()) Widget orig impl where-  runOp _ _ widget new_box = withRef widget $ \widgetPtr -> setBox' widgetPtr new_box-{# fun Fl_Widget_color as color' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ IO (Color)) => Op (GetColor ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> color' widgetPtr-{# fun Fl_Widget_set_color as setColor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Color ->  IO ())) => Op (SetColor ()) Widget orig impl where-  runOp _ _ widget bg = withRef widget $ \widgetPtr -> setColor' widgetPtr bg-{# fun Fl_Widget_set_color_with_bg_sel as setColorWithBgSel' { id `Ptr ()',cFromColor `Color',cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Color -> Color ->  IO ())) => Op (SetColorWithBgSel ()) Widget orig impl where-  runOp _ _ widget bg a = withRef widget $ \widgetPtr -> setColorWithBgSel' widgetPtr bg a-{# fun Fl_Widget_selection_color as selectionColor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ IO (Color)) => Op (GetSelectionColor ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> selectionColor' widgetPtr-{# fun Fl_Widget_set_selection_color as setSelectionColor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Color ->  IO ())) => Op (SetSelectionColor ()) Widget orig impl where-  runOp _ _ widget a = withRef widget $ \widgetPtr -> setSelectionColor' widgetPtr a-{# fun Fl_Widget_label as label' { id `Ptr ()' } -> `CString' #}-instance (impl ~ IO T.Text) => Op (GetLabel ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> label' widgetPtr >>= cStringToText-{# fun Fl_Widget_copy_label as copyLabel' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( T.Text -> IO ())) => Op (SetLabel ()) Widget orig impl where-  runOp _ _ widget text =-     withRef widget $ \widgetPtr -> withCString (T.unpack text) (\sPtr -> copyLabel' widgetPtr sPtr)-{# fun Fl_Widget_labeltype as labeltype' { id `Ptr ()' } -> `Labeltype' cToEnum #}-instance (impl ~ (IO (Labeltype))) => Op (GetLabeltype ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> labeltype' widgetPtr-{# fun Fl_Widget_set_labeltype as setLabeltype' { id `Ptr ()',cFromEnum `Labeltype' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Labeltype ->  ResolveImageLabelConflict -> IO ())) => Op (SetLabeltype ()) Widget orig impl where-  runOp _ _ widget a resolve = withRef widget $ \widgetPtr -> do-    lt <- getLabeltype widget-    case (lt, resolve) of-      (ImageLabelType, ResolveImageLabelDoNothing) -> return ()-      (ImageLabelType, ResolveImageLabelOverwrite) -> do-         setLabeltype' widgetPtr a-         copyLabel' widgetPtr nullPtr-      (MultiLabelType, ResolveImageLabelDoNothing) -> return ()-      (MultiLabelType, ResolveImageLabelOverwrite) -> do-         setLabeltype' widgetPtr a-         copyLabel' widgetPtr nullPtr-      (_,_) -> setLabeltype' widgetPtr a-{# fun Fl_Widget_labelcolor as labelcolor' { id `Ptr ()' } -> `Color' cToColor #}-instance (impl ~ (IO (Color))) => Op (GetLabelcolor ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> labelcolor' widgetPtr-{# fun Fl_Widget_set_labelcolor as setLabelcolor' { id `Ptr ()',cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Color ->  IO ())) => Op (SetLabelcolor ()) Widget orig impl where-  runOp _ _ widget c = withRef widget $ \widgetPtr -> setLabelcolor' widgetPtr c-{# fun Fl_Widget_labelfont as labelfont' { id `Ptr ()' } -> `Font' cToFont #}-instance (impl ~ (IO (Font))) => Op (GetLabelfont ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> labelfont' widgetPtr-{# fun Fl_Widget_set_labelfont as setLabelfont' { id `Ptr ()',cFromFont `Font' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Font ->  IO ())) => Op (SetLabelfont ()) Widget orig impl where-  runOp _ _ widget c = withRef widget $ \widgetPtr -> setLabelfont' widgetPtr c-{# fun Fl_Widget_labelsize as labelsize' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ (IO (FontSize))) => Op (GetLabelsize ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> labelsize' widgetPtr >>= return . FontSize-{# fun Fl_Widget_set_labelsize as setLabelsize' { id `Ptr ()',id `CInt' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( FontSize ->  IO ())) => Op (SetLabelsize ()) Widget orig impl where-  runOp _ _ widget (FontSize pix) = withRef widget $ \widgetPtr -> setLabelsize' widgetPtr pix-{# fun Fl_Widget_image as image' { id `Ptr ()' } -> `Ptr ()' #}-instance (impl ~ (IO (Maybe (Ref Image)))) => Op (GetImage ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> image' widgetPtr >>= toMaybeRef-{# fun Fl_Widget_set_image as setImage' { id `Ptr ()',id `Ptr ()'} -> `()' supressWarningAboutRes #}-instance (Parent a Image, impl ~ (Maybe( Ref a ) ->  IO ())) => Op (SetImage ()) Widget orig impl where-  runOp _ _ widget pix = withRef widget $ \widgetPtr -> withMaybeRef pix $ \pixPtr -> setImage' widgetPtr pixPtr-{# fun Fl_Widget_deimage as deimage' { id `Ptr ()' } -> `Ptr ()' #}-instance (impl ~ (IO (Maybe (Ref Image)))) => Op (GetDeimage ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> deimage' widgetPtr >>= toMaybeRef-{# fun Fl_Widget_set_deimage as setDeimage' { id `Ptr ()',id `Ptr ()'} -> `()' supressWarningAboutRes #}-instance (Parent a Image, impl ~ (Maybe( Ref a ) ->  IO ())) => Op (SetDeimage ()) Widget orig impl where-  runOp _ _ widget pix = withRef widget $ \widgetPtr -> withMaybeRef pix $ \pixPtr -> setDeimage' widgetPtr pixPtr-{# fun Fl_Widget_tooltip as tooltip' { id `Ptr ()' } -> `CString' #}-instance (impl ~ (IO T.Text)) => Op (GetTooltip ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> tooltip' widgetPtr >>= cStringToText-{# fun Fl_Widget_copy_tooltip as copyTooltip' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( T.Text ->  IO ())) => Op (CopyTooltip ()) Widget orig impl where-  runOp _ _ widget text = withRef widget $ \widgetPtr -> withText text (\t -> copyTooltip' widgetPtr t)-{# fun Fl_Widget_set_tooltip as setTooltip' { id `Ptr ()', `CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( T.Text ->  IO ())) => Op (SetTooltip ()) Widget orig impl where-  runOp _ _ widget text = withRef widget $ \widgetPtr -> withText text (copyTooltip' widgetPtr)-{# fun Fl_Widget_when as when' { id `Ptr ()' } -> `CInt' id #}-instance (impl ~ IO [When]) => Op (GetWhen ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr ->-      when' widgetPtr >>= return . extract allWhen-{# fun Fl_Widget_set_when as setWhen' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( [When] ->  IO ())) => Op (SetWhen ()) Widget orig impl where-  runOp _ _ widget i = withRef widget $ \widgetPtr ->-    setWhen' widgetPtr (fromIntegral . combine $ i)-{# fun Fl_Widget_do_callback as do_callback' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (DoCallback ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> do_callback' widgetPtr-{# fun Fl_Widget_visible as visible' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO Bool)) => Op (GetVisible ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> visible' widgetPtr-{# fun Fl_Widget_visible_r as visibleR' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO Bool)) => Op (GetVisibleR ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> visibleR' widgetPtr-{# fun Fl_Widget_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ShowWidgetSuper ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> showSuper' widgetPtr-{# fun Fl_Widget_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedWidget_show as show' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ (IO ())) => Op (ShowWidget ()) Widget orig impl where   runOp _ _ widget = withRef widget $ \widgetPtr -> show' widgetPtr-{# fun Fl_Widget_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (HideSuper ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> hideSuper' widgetPtr-{# fun Fl_Widget_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Hide ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> hide' widgetPtr-{# fun Fl_Widget_set_visible as setVisible' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (SetVisible ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> setVisible' widgetPtr-{# fun Fl_Widget_clear_visible as clearVisible' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ClearVisible ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> clearVisible' widgetPtr-{# fun Fl_Widget_active as active' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO (Bool))) => Op (Active ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> active' widgetPtr-{# fun Fl_Widget_active_r as activeR' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO (Bool))) => Op (ActiveR ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> activeR' widgetPtr-{# fun Fl_Widget_activate as activate' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Activate ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> activate' widgetPtr-{# fun Fl_Widget_deactivate as deactivate' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Deactivate ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> deactivate' widgetPtr-{# fun Fl_Widget_output as output' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (IO (Int))) => Op (GetOutput ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> output' widgetPtr-{# fun Fl_Widget_set_output as setOutput' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (SetOutput ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> setOutput' widgetPtr-{# fun Fl_Widget_clear_output as clearOutput' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ClearOutput ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> clearOutput' widgetPtr-{# fun Fl_Widget_takesevents as takesevents' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO (Bool))) => Op (Takesevents ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> takesevents' widgetPtr-{# fun Fl_Widget_set_active as setActive' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (SetActive ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> setActive' widgetPtr-{# fun Fl_Widget_clear_active as clearActive' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ClearActive ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> clearActive' widgetPtr-{# fun Fl_Widget_set_changed as setChanged' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (SetChanged ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> setChanged' widgetPtr-{# fun Fl_Widget_clear_changed as clearChanged' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ClearChanged ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> clearChanged' widgetPtr-{# fun Fl_Widget_changed as changed' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO (Bool))) => Op (Changed ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> changed' widgetPtr-{# fun Fl_Widget_take_focus as takeFocus' { id `Ptr ()' } -> `Int' #}-instance (impl ~ (IO (Either NoChange ()))) => Op (TakeFocus ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> takeFocus' widgetPtr >>= return . successOrNoChange-{# fun Fl_Widget_set_visible_focus as setVisibleFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (SetVisibleFocus ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> setVisibleFocus' widgetPtr-{# fun Fl_Widget_clear_visible_focus as clearVisibleFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ClearVisibleFocus ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> clearVisibleFocus' widgetPtr-{# fun Fl_Widget_modify_visible_focus as modifyVisibleFocus' { id `Ptr ()',cFromBool `Bool' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Bool ->  IO ())) => Op (ModifyVisibleFocus ()) Widget orig impl where-  runOp _ _ widget v = withRef widget $ \widgetPtr -> modifyVisibleFocus' widgetPtr v-{# fun Fl_Widget_visible_focus as visibleFocus' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ (IO (Bool))) => Op (GetVisibleFocus ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> visibleFocus' widgetPtr-{# fun Fl_Widget_contains as contains' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (Parent a Widget, impl ~  (Ref a ->  IO Bool)) => Op (Contains ()) Widget orig impl where-  runOp _ _ widget otherWidget = withRef widget $ \widgetPtr -> withRef otherWidget $ \otherWidgetPtr ->-    contains' widgetPtr otherWidgetPtr >>= return . cToBool-{# fun Fl_Widget_inside as inside' { id `Ptr ()',id `Ptr ()' } -> `Int' #}-instance (Parent a Widget, impl ~ (Ref a -> IO (Bool))) => Op (Inside ()) Widget orig impl where-  runOp _ _ widget otherWidget = withRef widget $ \widgetPtr -> withRef otherWidget $ \otherWidgetPtr ->-    inside' widgetPtr otherWidgetPtr >>= return . cToBool-{# fun Fl_Widget_redraw as redraw' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Redraw ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> redraw' widgetPtr-{# fun Fl_Widget_redraw_label as redrawLabel' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (RedrawLabel ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> redrawLabel' widgetPtr-{# fun Fl_Widget_damage as damage' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ (IO ([Damage]))) => Op (GetDamage ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> do-    d <- damage' widgetPtr-    return (extract allDamages (fromIntegral d))-{# fun Fl_Widget_clear_damage_with_bitmask as clearDamageWithBitmask' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( [Damage] ->  IO ())) => Op (ClearDamageThenSet ()) Widget orig impl where-  runOp _ _ widget damages = withRef widget $ \widgetPtr -> clearDamageWithBitmask' widgetPtr (fromIntegral (combine damages))-{# fun Fl_Widget_clear_damage as clearDamage' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ClearDamage ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> clearDamage' widgetPtr-{# fun Fl_Widget_damage_with_text as damageWithText' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( [Damage] ->  IO ())) => Op (SetDamage ()) Widget orig impl where-  runOp _ _ widget damages = withRef widget $ \widgetPtr -> damageWithText' widgetPtr (fromIntegral (combine damages))-{# fun Fl_Widget_damage_inside_widget as damageInsideWidget' { id `Ptr ()',`Word8',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( [Damage] -> Rectangle ->  IO ())) => Op (SetDamageInside ()) Widget orig impl where-  runOp _ _ widget damages rectangle = withRef widget $ \widgetPtr -> do-    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-    damageInsideWidget' widgetPtr (fromIntegral (combine damages)) x_pos y_pos w_pos h_pos-{# fun Fl_Widget_measure_label as measureLabel' {id `Ptr ()',id `Ptr CInt', id `Ptr CInt'} -> `()' #}-instance (impl ~ ( Maybe Width -> IO (Size))) => Op (MeasureLabel ()) Widget orig impl where-  runOp _ _ widget wrap =-    withRef widget-      $ \widgetPtr ->-      alloca $ \widthPtr ->-      alloca $ \heightPtr -> do-        poke widthPtr (maybe 0 (\(Width w) -> fromIntegral w) wrap)-        poke heightPtr 0-        measureLabel' widgetPtr widthPtr heightPtr-        w <- peekIntConv widthPtr-        h <- peekIntConv heightPtr-        return (Size (Width w) (Height h))-{# fun Fl_Widget_window as window' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Window)))) => Op (GetWindow ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> window' widgetPtr >>= toMaybeRef-{# fun Fl_Widget_top_window as topWindow' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Window)))) => Op (GetTopWindow ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> (topWindow' widgetPtr) >>= toMaybeRef-{# fun Fl_Widget_top_window_offset as topWindowOffset' { id `Ptr ()',alloca- `Int' peekIntConv*,alloca- `Int' peekIntConv* } -> `()' #}-instance (impl ~ ( IO (Position))) => Op (GetTopWindowOffset ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> topWindowOffset' widgetPtr >>= \(x_pos,y_pos) -> return $ Position (X x_pos) (Y y_pos)-{# fun Fl_Widget_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Rectangle ->  IO ())) => Op (ResizeSuper ()) Widget orig impl where-  runOp _ _ widget rectangle = withRef widget $ \widgetPtr -> do-    let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle-    resizeSuper' widgetPtr x_pos y_pos w_pos h_pos-{# fun Fl_Widget_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}++{# fun Fl_DerivedWidget_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) Widget orig impl where   runOp _ _ widget rectangle = withRef widget $ \widgetPtr -> do     let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle     resize' widgetPtr x_pos y_pos w_pos h_pos-{# fun Fl_Widget_set_callback as setCallback' { id `Ptr ()', id `FunPtr CallbackWithUserDataPrim'} -> `()' supressWarningAboutRes #}-instance (impl ~ ((Ref orig -> IO ()) -> IO ())) => Op (SetCallback ()) Widget orig impl where-  runOp _ _ widget callback = withRef widget $ \widgetPtr -> do-    ptr <- toCallbackPrimWithUserData callback-    setCallback' widgetPtr (castFunPtr ptr) -{# fun Fl_Widget_has_callback as hasCallback' { id `Ptr ()' } -> `CInt' #}-instance (impl ~ (IO (Bool))) => Op (HasCallback ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> do-    res <- hasCallback' widgetPtr-    return $ if (res == 0) then False else True-{# fun Fl_Widget_draw_box as widgetDrawBox' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Widget_draw_box_with_tc as widgetDrawBoxWithTC' { id `Ptr ()', cFromEnum `Boxtype', cFromColor`Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Widget_draw_box_with_txywhc as widgetDrawBoxWithTXywhC' { id `Ptr ()', cFromEnum `Boxtype', `Int',`Int',`Int',`Int', cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawBox ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> widgetDrawBox' widgetPtr-instance (impl ~ ( Boxtype -> Color -> Maybe Rectangle -> IO ())) => Op (DrawBoxWithBoxtype ()) Widget orig impl where-  runOp _ _ widget bx c Nothing =-    withRef widget $ \widgetPtr -> widgetDrawBoxWithTC' widgetPtr bx c-  runOp _ _ widget bx c (Just r) =-              withRef widget $ \widgetPtr -> do-                let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r-                widgetDrawBoxWithTXywhC' widgetPtr bx x_pos y_pos w_pos h_pos c-{# fun Fl_Widget_draw_backdrop as widgetDrawBackdrop' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawBackdrop ()) Widget orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> widgetDrawBackdrop' widgetPtr--{# fun Fl_Widget_draw_focus as widgetDrawFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Widget_draw_focus_with_txywh as widgetDrawFocusWithTXywh' { id `Ptr ()', cFromEnum `Boxtype', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Maybe (Boxtype, Rectangle) -> IO ())) => Op (DrawFocus ()) Widget orig impl where-  runOp _ _ widget Nothing =-                withRef widget $ \ widgetPtr -> widgetDrawFocus' widgetPtr-  runOp _ _ widget (Just (bx, r)) =-                withRef widget $ \widgetPtr -> do-                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r-                  widgetDrawFocusWithTXywh' widgetPtr bx x_pos y_pos w_pos h_pos--{# fun Fl_Widget_set_flag as setFlag' { id `Ptr ()', cFromEnum `WidgetFlag' } -> `()' #}-{# fun Fl_Widget_clear_flag as clearFlag' { id `Ptr ()', cFromEnum `WidgetFlag' } -> `()' #}-{# fun Fl_Widget_flags as flags' { id `Ptr ()' } -> `CUInt' #}+{# fun Fl_DerivedWidget_Destroy as widgetDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~  IO ()) => Op (Destroy ()) Widget orig impl where+  runOp _ _ win = swapRef win $ \winPtr -> do+    widgetDestroy' winPtr+    return nullPtr -instance (impl ~ (WidgetFlag -> IO ())) => Op (SetFlag ()) Widget orig impl where-  runOp _ _ widget flag = withRef widget (\widgetPtr -> setFlag' widgetPtr flag)+{# fun Fl_DerivedWidget_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (Hide ()) Widget orig impl where+  runOp _ _ widget = withRef widget $ \widgetPtr -> hide' widgetPtr -instance (impl ~ (WidgetFlag -> IO ())) => Op (ClearFlag ()) Widget orig impl where-  runOp _ _ widget flag = withRef widget (\widgetPtr -> clearFlag' widgetPtr flag)+-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Widget"+-- @ -instance (impl ~ (IO [WidgetFlag])) => Op (Flags ()) Widget orig impl where-  runOp _ _ widget = withRef widget (\widgetPtr -> do-                        flagsUInt <- flags' widgetPtr-                        return (extract allWidgetFlags (fromIntegral flagsUInt)))--- $widgetfunctions+-- $functions -- @--- activate :: 'Ref' 'Widget' -> 'IO' ()------ active :: 'Ref' 'Widget' -> 'IO' ('Bool')------ activeR :: 'Ref' 'Widget' -> 'IO' ('Bool')------ changed :: 'Ref' 'Widget' -> 'IO' ('Bool')------ clearActive :: 'Ref' 'Widget' -> 'IO' ()------ clearChanged :: 'Ref' 'Widget' -> 'IO' ()------ clearDamage :: 'Ref' 'Widget' -> 'IO' ()------ clearDamageThenSet :: 'Ref' 'Widget' -> ['Damage'] -> 'IO' ()------ clearFlag :: 'Ref' 'Widget' -> 'WidgetFlag' -> 'IO' ()------ clearOutput :: 'Ref' 'Widget' -> 'IO' ()------ clearVisible :: 'Ref' 'Widget' -> 'IO' ()------ clearVisibleFocus :: 'Ref' 'Widget' -> 'IO' ()------ contains:: ('Parent' a 'Widget') => 'Ref' 'Widget' -> 'Ref' a -> 'IO' 'Bool'------ copyTooltip :: 'Ref' 'Widget' -> 'T.Text' -> 'IO' ()------ deactivate :: 'Ref' 'Widget' -> 'IO' ()--- -- destroy :: 'Ref' 'Widget' -> 'IO' () ----- doCallback :: 'Ref' 'Widget' -> 'IO' ()------ drawBackdrop :: 'Ref' 'Widget' -> 'IO' ()------ drawBox :: 'Ref' 'Widget' -> 'IO' ()------ drawBoxWithBoxtype :: 'Ref' 'Widget' -> 'Boxtype' -> 'Color' -> 'Maybe' 'Rectangle' -> 'IO' ()------ drawFocus :: 'Ref' 'Widget' -> 'Maybe' ('Boxtype', 'Rectangle') -> 'IO' ()------ drawLabel :: 'Ref' 'Widget' -> 'Maybe' ('Rectangle,Alignments') -> 'IO' ()------ flags :: 'Ref' 'Widget' -> 'IO' ['WidgetFlag']------ getAlign :: 'Ref' 'Widget' -> 'IO' 'Alignments'------ getBox :: 'Ref' 'Widget' -> 'IO' ('Boxtype')------ getColor :: 'Ref' 'Widget' -> 'IO' ('Color')------ getDamage :: 'Ref' 'Widget' -> 'IO' (['Damage')]------ getDeimage :: 'Ref' 'Widget' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getH :: 'Ref' 'Widget' -> 'IO' ('Height')------ getImage :: 'Ref' 'Widget' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getLabel :: 'Ref' 'Widget' -> 'IO' 'T.Text'------ getLabelcolor :: 'Ref' 'Widget' -> 'IO' ('Color')------ getLabelfont :: 'Ref' 'Widget' -> 'IO' ('Font')------ getLabelsize :: 'Ref' 'Widget' -> 'IO' ('FontSize')------ getLabeltype :: 'Ref' 'Widget' -> 'IO' ('Labeltype')------ getOutput :: 'Ref' 'Widget' -> 'IO' ('Int')------ getParent :: 'Ref' 'Widget' -> 'IO' ('Maybe' ('Ref' 'Group'))------ getRectangle:: ('Match' obj ~ 'FindOp' orig orig ('GetX' ()), 'Match' obj ~ 'FindOp' orig orig ('GetY' ()), 'Match' obj ~ 'FindOp' orig orig ('GetW' ()), 'Match' obj ~ 'FindOp' orig orig ('GetH' ()), 'Op' ('GetX' ()) obj orig ('IO' 'X',) 'Op' ('GetY' ()) obj orig ('IO' 'Y',) 'Op' ('GetW' ()) obj orig ('IO' 'Width',) 'Op' ('GetH' ()) obj orig ('IO' 'Height',)) => 'Ref' 'Widget' -> 'IO' 'Rectangle'------ getSelectionColor :: 'Ref' 'Widget' -> 'IO' ('Color')------ getTooltip :: 'Ref' 'Widget' -> 'IO' 'T.Text'------ getTopWindow :: 'Ref' 'Widget' -> 'IO' ('Maybe' ('Ref' 'Window'))------ getTopWindowOffset :: 'Ref' 'Widget' -> 'IO' ('Position')------ getType_ :: 'Ref' 'Widget' -> 'IO' ('Word8')------ getVisible :: 'Ref' 'Widget' -> 'IO' 'Bool'------ getVisibleFocus :: 'Ref' 'Widget' -> 'IO' ('Bool')------ getVisibleR :: 'Ref' 'Widget' -> 'IO' 'Bool'------ getW :: 'Ref' 'Widget' -> 'IO' ('Width')------ getWhen :: 'Ref' 'Widget' -> 'IO' ['When']------ getWindow :: 'Ref' 'Widget' -> 'IO' ('Maybe' ('Ref' 'Window'))------ getX :: 'Ref' 'Widget' -> 'IO' ('X')------ getY :: 'Ref' 'Widget' -> 'IO' ('Y')+-- draw :: 'Ref' 'Widget' -> 'IO' () -- -- handle :: 'Ref' 'Widget' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- hasCallback :: 'Ref' 'Widget' -> 'IO' ('Bool')--- -- hide :: 'Ref' 'Widget' -> 'IO' () ----- hideSuper :: 'Ref' 'Widget' -> 'IO' ()------ inside:: ('Parent' a 'Widget') => 'Ref' 'Widget' -> 'Ref' a -> 'IO' ('Bool')------ measureLabel :: 'Ref' 'Widget' -> 'Maybe' 'Width' -> 'IO' ('Size')------ modifyVisibleFocus :: 'Ref' 'Widget' -> 'Bool' -> 'IO' ()------ redraw :: 'Ref' 'Widget' -> 'IO' ()------ redrawLabel :: 'Ref' 'Widget' -> 'IO' ()--- -- resize :: 'Ref' 'Widget' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Widget' -> 'Rectangle' -> 'IO' ()------ setActive :: 'Ref' 'Widget' -> 'IO' ()------ setAlign :: 'Ref' 'Widget' -> 'Alignments' -> 'IO' ()------ setBox :: 'Ref' 'Widget' -> 'Boxtype' -> 'IO' ()------ setCallback :: 'Ref' 'Widget' -> ('Ref' orig -> 'IO' ()) -> 'IO' ()------ setChanged :: 'Ref' 'Widget' -> 'IO' ()------ setColor :: 'Ref' 'Widget' -> 'Color' -> 'IO' ()------ setColorWithBgSel :: 'Ref' 'Widget' -> 'Color' -> 'Color' -> 'IO' ()------ setDamage :: 'Ref' 'Widget' -> ['Damage'] -> 'IO' ()------ setDamageInside :: 'Ref' 'Widget' -> ['Damage'] -> 'Rectangle' -> 'IO' ()------ setDeimage:: ('Parent' a 'Image') => 'Ref' 'Widget' -> 'Maybe'( 'Ref' a ) -> 'IO' ()------ setFlag :: 'Ref' 'Widget' -> 'WidgetFlag' -> 'IO' ()------ setImage:: ('Parent' a 'Image') => 'Ref' 'Widget' -> 'Maybe'( 'Ref' a ) -> 'IO' ()------ setLabel :: 'Ref' 'Widget' -> 'T.Text' -> 'IO' ()------ setLabelcolor :: 'Ref' 'Widget' -> 'Color' -> 'IO' ()------ setLabelfont :: 'Ref' 'Widget' -> 'Font' -> 'IO' ()------ setLabelsize :: 'Ref' 'Widget' -> 'FontSize' -> 'IO' ()------ setLabeltype :: 'Ref' 'Widget' -> 'Labeltype' -> 'ResolveImageLabelConflict' -> 'IO' ()------ setOutput :: 'Ref' 'Widget' -> 'IO' ()------ setParent:: ('Parent' a 'Group') => 'Ref' 'Widget' -> 'Maybe' ('Ref' a) -> 'IO' ()------ setSelectionColor :: 'Ref' 'Widget' -> 'Color' -> 'IO' ()------ setTooltip :: 'Ref' 'Widget' -> 'T.Text' -> 'IO' ()------ setType :: 'Ref' 'Widget' -> 'Word8' -> 'IO' ()------ setVisible :: 'Ref' 'Widget' -> 'IO' ()------ setVisibleFocus :: 'Ref' 'Widget' -> 'IO' ()------ setWhen :: 'Ref' 'Widget' -> ['When'] -> 'IO' ()--- -- showWidget :: 'Ref' 'Widget' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Widget' -> 'IO' ()------ takeFocus :: 'Ref' 'Widget' -> 'IO' ('Either' 'NoChange' ())------ takesevents :: 'Ref' 'Widget' -> 'IO' ('Bool')--- @----- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget" -- @
src/Graphics/UI/FLTK/LowLevel/Window.chs view
@@ -1,26 +1,15 @@ {-# LANGUAGE CPP, UndecidableInstances, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ExistentialQuantification #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Window-    (-     CustomWindowFuncs(..),-     OptionalSizeRangeArgs(..),-     PositionSpec(..),-     WindowType(..),-     defaultCustomWindowFuncs,-     fillCustomWidgetFunctionStruct,-     defaultOptionalSizeRangeArgs,-     windowCustom,-     windowNew,-     windowMaker,-     currentWindow-     -- * Hierarchy-     ---     -- $hierarchy+  (+    -- * Hierarchy+    --+    -- $hierarchy -     -- * Functions-     ---     -- $functions-    )+    -- * Functions+    --+    -- $functions+  ) where #include "Fl_C.h" #include "Fl_WindowC.h"@@ -32,558 +21,50 @@ import Graphics.UI.FLTK.LowLevel.Fl_Enumerations import Graphics.UI.FLTK.LowLevel.Utils import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T import Graphics.UI.FLTK.LowLevel.Hierarchy-import Graphics.UI.FLTK.LowLevel.Widget -#c- enum WindowType {-   SingleWindowType = FL_WINDOWC,-   DoubleWindowType = FL_DOUBLE_WINDOWC-};-#endc-{#enum WindowType {} deriving (Show, Eq) #}--data PositionSpec = ByPosition Position-                  | forall a. (Parent a Widget) => ByWidget (Ref a)--data CustomWindowFuncs a =-    CustomWindowFuncs {-      flushCustom :: Maybe (Ref a -> IO ())-    }--data OptionalSizeRangeArgs = OptionalSizeRangeArgs {-      maxw :: Maybe Int,-      maxh :: Maybe Int,-      dw :: Maybe Int,-      dh :: Maybe Int,-      aspect :: Maybe Bool-    }--optionalSizeRangeArgsToStruct :: OptionalSizeRangeArgs -> IO (Ptr ())-optionalSizeRangeArgsToStruct args = do-  p <- mallocBytes {#sizeof fl_Window_size_range_args #}-  {#set fl_Window_size_range_args->maxw #} p $ maybe 0 fromIntegral (maxw args)-  {#set fl_Window_size_range_args->maxh #} p $ maybe 0 fromIntegral (maxh args)-  {#set fl_Window_size_range_args->dw #} p $ maybe 0 fromIntegral (dw args)-  {#set fl_Window_size_range_args->dh #} p $ maybe 0 fromIntegral (dh args)-  {#set fl_Window_size_range_args->aspect #} p $ maybe 0 fromBool (aspect args)-  return p--defaultOptionalSizeRangeArgs :: OptionalSizeRangeArgs-defaultOptionalSizeRangeArgs = OptionalSizeRangeArgs Nothing Nothing Nothing Nothing Nothing--fillCustomWindowFunctionStruct :: forall a. (Parent a Window) =>-                                  Ptr () ->-                                  CustomWindowFuncs a ->-                                  IO ()-fillCustomWindowFunctionStruct structPtr (CustomWindowFuncs _flush') =-  toCallbackPrim  `orNullFunPtr` _flush' >>= {#set fl_Window_Virtual_Funcs->flush#} structPtr--defaultCustomWindowFuncs :: forall a. (Parent a Window) => CustomWindowFuncs a-defaultCustomWindowFuncs = CustomWindowFuncs Nothing--{# fun Fl_Window_default_virtual_funcs as virtualFuncs' {} -> `Ptr ()' id #}-windowMaker :: forall a b. (Parent a Window, Parent b Widget) =>-               Size ->-               Maybe Position ->-               Maybe T.Text ->-               Maybe (Ref b -> IO ()) ->-               CustomWidgetFuncs b ->-               CustomWindowFuncs a ->-               (Int -> Int -> Ptr () -> IO (Ptr ())) ->-               (Int -> Int -> CString -> Ptr () -> IO (Ptr ())) ->-               (Int -> Int -> Int -> Int -> Ptr () -> IO (Ptr ())) ->-               (Int -> Int -> Int -> Int -> CString -> Ptr () -> IO (Ptr ())) ->-               IO (Ref a)-windowMaker (Size (Width w) (Height h))-            position-            title-            draw'-            customWidgetFuncs'-            customWindowFuncs'-            custom'-            customWithLabel'-            customXY'-            customXYWithLabel' =-     do-       p <- virtualFuncs'-       fillCustomWidgetFunctionStruct p draw' customWidgetFuncs'-       fillCustomWindowFunctionStruct p customWindowFuncs'-       ref <- case (position, title) of-                (Nothing, Nothing) -> custom' w h p >>= toRef-                (Just (Position (X x) (Y y)), Nothing) -> customXY' x y w h p >>= toRef-                (Just (Position (X x) (Y y)), (Just l')) -> copyTextToCString l' >>= \l'' -> customXYWithLabel' x y w h l'' p >>= toRef-                (Nothing, (Just l')) -> copyTextToCString l' >>= \l'' -> customWithLabel' w h l'' p >>= toRef-       setFlag (safeCast ref :: Ref Window) WidgetFlagCopiedLabel-       setFlag (safeCast ref :: Ref Window) WidgetFlagCopiedTooltip-       return ref--{# fun Fl_OverriddenWindow_New as overriddenWindowNew' {`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenWindow_NewXY as overriddenWindowNewXY' {`Int',`Int', `Int', `Int', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenWindow_NewXY_WithLabel as overriddenWindowNewXYWithLabel' { `Int',`Int',`Int',`Int',`CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenWindow_New_WithLabel as overriddenWindowNewWithLabel' { `Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-windowCustom :: Size                        -- ^ Size of this window-             -> Maybe Position              -- ^ Optional position of this window-             -> Maybe T.Text                -- ^ Optional label-             -> Maybe (Ref Window -> IO ()) -- ^ Optional table drawing routine-             -> CustomWidgetFuncs Window    -- ^ Custom widget overrides-             -> CustomWindowFuncs Window    -- ^ Custom window overrides-             -> IO (Ref Window)-windowCustom size position title draw' customWidgetFuncs' customWindowFuncs' =-  windowMaker-    size-    position-    title-    draw'-    customWidgetFuncs'-    customWindowFuncs'-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'--windowNew :: Size -> Maybe Position -> Maybe T.Text -> IO (Ref Window)-windowNew size position title =-  windowMaker-    size-    position-    title-    Nothing-    (defaultCustomWidgetFuncs :: CustomWidgetFuncs Window)-    (defaultCustomWindowFuncs :: CustomWindowFuncs Window)-    overriddenWindowNew'-    overriddenWindowNewWithLabel'-    overriddenWindowNewXY'-    overriddenWindowNewXYWithLabel'--{# fun Fl_Window_Destroy as windowDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> windowDestroy' winPtr--{# fun Fl_Window_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Window orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> drawSuper' windowPtr--{# fun Fl_Window_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Window orig impl where-  runOp _ _ window event = withRef window $ \windowPtr -> handleSuper' windowPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent--{# fun Fl_Window_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Window orig impl where-  runOp _ _ window rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef window $ \windowPtr -> resizeSuper' windowPtr x_pos y_pos width height--{# fun Fl_Window_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Window orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> showSuper' windowPtr--{# fun Fl_Window_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Window orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> hideSuper' windowPtr--{# fun Fl_Window_flush_super as flushSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (FlushSuper ()) Window orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> flushSuper' windowPtr--{# fun Fl_Window_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (ShowWidget ()) Window orig impl where-  runOp _ _ window = withRef window (\p -> windowShow' p)--{#fun Fl_Window_handle as windowHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+{#fun Fl_DerivedWindow_handle as windowHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Window orig impl where   runOp _ _ window event = withRef window (\p -> windowHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent--{# fun Fl_Window_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedWindow_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Window orig impl where   runOp _ _ window rectangle = withRef window $ \windowPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' windowPtr x_pos y_pos w_pos h_pos--{# fun Fl_Window_set_callback as windowSetCallback' {id `Ptr ()' , id `FunPtr CallbackWithUserDataPrim'} -> `()' supressWarningAboutRes #}-instance (impl ~ ((Ref orig -> IO ()) -> IO ())) => Op (SetCallback ()) Window orig impl where-  runOp _ _ window callback =-   withRef window $ (\p -> do-                           callbackPtr <- toCallbackPrimWithUserData callback-                           windowSetCallback' (castPtr p) callbackPtr)+{# fun Fl_DerivedWindow_show as windowShow' {id `Ptr ()'} -> `()' supressWarningAboutRes #}+instance (impl ~ (IO ())) => Op (ShowWidget ()) Window orig impl where+  runOp _ _ window = withRef window (\p -> windowShow' p) -{# fun Fl_Window_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+{# fun Fl_DerivedWindow_hide as hide' { id `Ptr ()' } -> `()' supressWarningAboutRes #} instance (impl ~ ( IO ())) => Op (Hide ()) Window orig impl where   runOp _ _ window = withRef window $ \windowPtr -> hide' windowPtr -{# fun Fl_Window_changed as changed' { id `Ptr ()' } -> `Bool' cToBool #}-instance (impl ~ ( IO (Bool))) => Op (Changed ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> changed' winPtr--{# fun Fl_Window_fullscreen as fullscreen' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (MakeFullscreen ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> fullscreen' winPtr--{# fun Fl_Window_fullscreen_off as fullscreenOff' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_fullscreen_off_with_resize as fullscreenOffWithResize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Maybe Rectangle ->  IO ())) => Op (FullscreenOff ()) Window orig impl where-  runOp _ _ win (Just rectangle) =-    withRef win $ \winPtr ->-        let (x_pos, y_pos, width, height) = fromRectangle rectangle-        in fullscreenOffWithResize' winPtr x_pos y_pos width height-  runOp _ _ win Nothing =-    withRef win $ \winPtr -> fullscreenOff' winPtr--{# fun Fl_Window_set_border as setBorder' { id `Ptr ()', fromBool `Bool' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Bool ->  IO ())) => Op (SetBorder ()) Window orig impl where-  runOp _ _ win b = withRef win $ \winPtr -> setBorder' winPtr b--{# fun Fl_Window_clear_border as clearBorder' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ClearBorder ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> clearBorder' winPtr--{# fun Fl_Window_border as border' { id `Ptr ()' } -> `Bool' toBool#}-instance (impl ~ ( IO (Bool))) => Op (GetBorder ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> border' winPtr--{# fun Fl_Window_set_override as setOverride' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (SetOverride ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> setOverride' winPtr--{# fun Fl_Window_override as override' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (GetOverride ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> override' winPtr--{# fun Fl_Window_set_modal as setModal' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (SetModal ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> setModal' winPtr--{# fun Fl_Window_modal as modal' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (GetModal ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> modal' winPtr--{# fun Fl_Window_set_non_modal as setNonModal' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (SetNonModal ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> setNonModal' winPtr--{# fun Fl_Window_non_modal as nonModal' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (NonModal ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> nonModal' winPtr--{# fun Fl_Window_set_menu_window as setMenuWindow' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (SetMenuWindow ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> setMenuWindow' winPtr--{# fun Fl_Window_menu_window as menuWindow' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (GetMenuWindow ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> menuWindow' winPtr--{# fun Fl_Window_set_tooltip_window as setTooltipWindow' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (SetTooltipWindow ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> setTooltipWindow' winPtr--{# fun Fl_Window_tooltip_window as tooltipWindow' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (GetTooltipWindow ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> tooltipWindow' winPtr--{# fun Fl_Window_hotspot_with_x_y as hotspotWithXY' { id `Ptr ()',`Int',`Int' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_hotspot_with_x_y_with_offscreen as hotspotWithXYWithOffscreen' { id `Ptr ()',`Int',`Int', fromBool `Bool' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_hotspot_with_widget as hotspotWithWidget' { id `Ptr ()',id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_hotspot_with_widget_with_offscreen as hotspotWithWidgetWithOffscreen' { id `Ptr ()',id `Ptr ()',fromBool `Bool' } -> `()' supressWarningAboutRes #}-instance (impl ~ (PositionSpec -> Maybe Bool -> IO ())) => Op (HotSpot ()) Window orig impl where-  runOp _ _ win positionSpec offscreen =-    withRef win $ \winPtr ->-            case (positionSpec, offscreen) of-              ((ByPosition (Position (X x) (Y y))), (Just offscreen')) ->-                  hotspotWithXYWithOffscreen' winPtr x y offscreen'-              ((ByPosition (Position (X x) (Y y))), Nothing) -> hotspotWithXY' winPtr x y-              ((ByWidget templateWidget), (Just offscreen')) ->-                  withRef templateWidget $ \templatePtr ->-                      hotspotWithWidgetWithOffscreen' winPtr templatePtr offscreen'-              ((ByWidget templateWidget), Nothing) ->-                  withRef templateWidget $ \templatePtr ->-                      hotspotWithWidget' winPtr templatePtr-{# fun Fl_Window_free_position as freePosition' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (FreePosition ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> freePosition' winPtr--{# fun Fl_Window_size_range as sizeRange' { id `Ptr ()',`Int',`Int' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_size_range_with_args as sizeRangeWithArgs' { id `Ptr ()',`Int',`Int', id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Size -> IO ())) => Op (SizeRange ()) Window orig impl where-  runOp _ _ win (Size (Width minw') (Height minh')) =-    withRef win $ \winPtr -> sizeRange' winPtr minw' minh'-instance (impl ~ (Size -> OptionalSizeRangeArgs ->  IO ())) => Op (SizeRangeWithArgs ()) Window orig impl where-  runOp _ _ win (Size (Width minw') (Height minh')) args =-    withRef win $ \winPtr -> do-      structPtr <- optionalSizeRangeArgsToStruct args-      sizeRangeWithArgs' winPtr minw' minh' structPtr--{# fun Fl_Window_label as label' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetLabel ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> label' winPtr >>= cStringToText--{# fun Fl_Window_iconlabel as iconlabel' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetIconlabel ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> iconlabel' winPtr >>= cStringToText--{# fun Fl_Window_set_label as setLabel' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetLabel ()) Window orig impl where-  runOp _ _ win l' = withRef win $ \winPtr -> copyTextToCString l' >>= setLabel' winPtr--{# fun Fl_Window_set_iconlabel as setIconlabel' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetIconlabel ()) Window orig impl where-  runOp _ _ win l' = withRef win $ \winPtr -> copyTextToCString l' >>= setIconlabel' winPtr--{# fun Fl_Window_set_label_with_iconlabel as setLabelWithIconlabel' { id `Ptr ()',`CString',`CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ (T.Text -> T.Text ->  IO ())) => Op (SetLabelWithIconlabel ()) Window orig impl where-  runOp _ _ win label iconlabel = withRef win $ \winPtr -> do-    l' <- copyTextToCString label-    il' <- copyTextToCString iconlabel-    setLabelWithIconlabel' winPtr l' il'--{# fun Fl_Window_copy_label as copyLabel' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ (T.Text ->  IO ())) => Op (CopyLabel ()) Window orig impl where-  runOp _ _ win a = withRef win $ \winPtr -> withText a (copyLabel' winPtr)--{# fun Fl_Window_xclass as xclass' { id `Ptr ()' } -> `CString' #}-instance (impl ~ ( IO T.Text)) => Op (GetXclass ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> xclass' winPtr >>= cStringToText--{# fun Fl_Window_set_xclass as setXclass' { id `Ptr ()',`CString' } -> `()' supressWarningAboutRes #}-instance (impl ~ (T.Text ->  IO ())) => Op (SetXclass ()) Window orig impl where-  runOp _ _ win c = withRef win $ \winPtr -> copyTextToCString c >>= setXclass' winPtr--{# fun Fl_Window_icon as icon' { id `Ptr ()' } -> `Ptr ()' id #}-instance (impl ~ ( IO (Maybe (Ref Image)))) => Op (GetIcon ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> icon' winPtr >>= toMaybeRef--{# fun Fl_Window_set_icon as setIcon' { id `Ptr ()', id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (Parent a Image, impl ~ (Maybe( Ref a ) ->  IO ())) => Op (SetIcon ()) Window orig impl where-  runOp _ _ win bitmap = withRef win $ \winPtr -> withMaybeRef bitmap $ \bitmapPtr -> setIcon' winPtr bitmapPtr--{# fun Fl_Window_shown as shown' { id `Ptr ()' } -> `Bool' toBool #}-instance (impl ~ ( IO (Bool))) => Op (Shown ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> shown' winPtr--{# fun Fl_Window_iconize as iconize' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (Iconize ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> iconize' winPtr--{# fun Fl_Window_x_root as xRoot' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetXRoot ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> xRoot' winPtr--{# fun Fl_Window_y_root as yRoot' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetYRoot ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> yRoot' winPtr--{# fun Fl_Window_current as current' {  } -> `Ptr ()' id #}-currentWindow ::  (Parent a Window) => IO (Ref a)-currentWindow = current' >>= toRef--{# fun Fl_Window_make_current as makeCurrent' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (MakeCurrent ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> makeCurrent' winPtr--{# fun Fl_Window_set_cursor_with_bg as setCursorWithBg' { id `Ptr ()',cFromEnum `Cursor',cFromColor `Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_set_cursor_with_fg as setCursorWithFg' { id `Ptr ()',cFromEnum `Cursor',cFromColor `Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_set_cursor_with_fg_bg as setCursorWithFgBg' { id `Ptr ()',cFromEnum `Cursor',cFromColor `Color',cFromColor `Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_set_cursor as setCursor' { id `Ptr ()',cFromEnum `Cursor' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Cursor -> IO ())) => Op (SetCursor ()) Window orig impl where-  runOp _ _ win cursor =  withRef win $ \winPtr -> setCursor' winPtr cursor-instance (impl ~ (Cursor -> (Maybe Color, Maybe Color) ->  IO ())) => Op (SetCursorWithFgBg ()) Window orig impl where-  runOp _ _ win cursor fgbg =-    case fgbg of-      ((Just fg), (Just bg)) -> withRef win $ \winPtr -> setCursorWithFgBg' winPtr cursor fg bg-      (Nothing , (Just bg)) -> withRef win $ \winPtr -> setCursorWithBg' winPtr cursor bg-      ((Just fg), Nothing)  -> withRef win $ \winPtr -> setCursorWithFg' winPtr cursor fg-      (Nothing, Nothing)    -> withRef win $ \winPtr -> setCursor' winPtr cursor--{# fun Fl_Window_set_default_cursor_with_bg as setDefaultCursorWithBg' { id `Ptr ()',cFromEnum `CursorType',cFromColor `Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_set_default_cursor_with_fg as setDefaultCursorWithFg' { id `Ptr ()',cFromEnum `CursorType',cFromColor `Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_set_default_cursor_with_fg_bg as setDefaultCursorWithFgBg' { id `Ptr ()',cFromEnum `CursorType',cFromColor `Color',cFromColor `Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_set_default_cursor as setDefaultCursor' { id `Ptr ()',cFromEnum `CursorType' } -> `()' supressWarningAboutRes #}-instance (impl ~ (CursorType -> IO ())) => Op (SetDefaultCursor ()) Window orig impl where-  runOp _ _ win cursor = withRef win $ \winPtr -> setDefaultCursor' winPtr cursor-instance (impl ~ (CursorType -> (Maybe Color, Maybe Color) -> IO ())) => Op (SetDefaultCursorWithFgBg ()) Window orig impl where-  runOp _ _ win cursor fgbg =-    case fgbg of-      ((Just fg), (Just bg)) -> withRef win $ \winPtr -> setDefaultCursorWithFgBg' winPtr cursor fg bg-      (Nothing , (Just bg)) -> withRef win $ \winPtr -> setDefaultCursorWithBg' winPtr cursor bg-      ((Just fg), Nothing)  -> withRef win $ \winPtr -> setDefaultCursorWithFg' winPtr cursor fg-      (Nothing, Nothing)    -> withRef win $ \winPtr -> setDefaultCursor' winPtr cursor--{# fun Fl_Window_decorated_w as decoratedW' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetDecoratedW ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> decoratedW' winPtr--{# fun Fl_Window_decorated_h as decoratedH' { id `Ptr ()' } -> `Int' #}-instance (impl ~ ( IO (Int))) => Op (GetDecoratedH ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> decoratedH' winPtr--{# fun Fl_Window_draw_box as windowDrawBox' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_draw_box_with_tc as windowDrawBoxWithTC' { id `Ptr ()', cFromEnum `Boxtype', cFromColor`Color' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_draw_box_with_txywhc as windowDrawBoxWithTXywhC' { id `Ptr ()', cFromEnum `Boxtype', `Int',`Int',`Int',`Int', cFromColor `Color' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (DrawBox ()) Window orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> windowDrawBox' windowPtr-instance (impl ~ (Boxtype -> Color -> Maybe Rectangle -> IO ())) => Op (DrawBoxWithBoxtype ()) Window orig impl where-  runOp _ _ window bx c Nothing =-              withRef window $ \windowPtr -> windowDrawBoxWithTC' windowPtr bx c-  runOp _ _ window bx c (Just r) =-              withRef window $ \windowPtr -> do-                let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r-                windowDrawBoxWithTXywhC' windowPtr bx x_pos y_pos w_pos h_pos c-{# fun Fl_Window_draw_backdrop as windowDrawBackdrop' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (DrawBackdrop ()) Window orig impl where-  runOp _ _ window = withRef window $ \windowPtr -> windowDrawBackdrop' windowPtr--{# fun Fl_Window_draw_focus as windowDrawFocus' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-{# fun Fl_Window_draw_focus_with_txywh as windowDrawFocusWithTXywh' { id `Ptr ()', cFromEnum `Boxtype', `Int', `Int', `Int', `Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Maybe (Boxtype, Rectangle) -> IO ())) => Op (DrawFocus ()) Window orig impl where-  runOp _ _ window Nothing =-                withRef window $ \ windowPtr -> windowDrawFocus' windowPtr-  runOp _ _ window (Just (bx, r)) =-                withRef window $ \windowPtr -> do-                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle r-                  windowDrawFocusWithTXywh' windowPtr bx x_pos y_pos w_pos h_pos--{# fun Fl_Window_wait_for_expose as waitForExpose' { id `Ptr ()' } -> `()' #}-instance (impl ~ ( IO ())) => Op (WaitForExpose ()) Window orig impl where-  runOp _ _ win = withRef win $ \winPtr -> waitForExpose' winPtr--{# fun Fl_Widget_set_type as setType' { id `Ptr ()',`Word8' } -> `()' supressWarningAboutRes #}-instance (impl ~ (WindowType ->  IO ())) => Op (SetType ()) Window orig impl where-  runOp _ _ widget t = withRef widget $ \widgetPtr -> setType' widgetPtr (fromInteger $ toInteger $ fromEnum t)-{# fun Fl_Widget_type as type' { id `Ptr ()' } -> `Word8' #}-instance (impl ~ IO (WindowType)) => Op (GetType_ ()) Window orig impl where-  runOp _ _ widget = withRef widget $ \widgetPtr -> type' widgetPtr >>= return . toEnum . fromInteger . toInteger+{# fun Fl_Window_flush as flush' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (Flush ()) Window orig impl where  -- $hierarchy -- @--- "Graphics.UI.FLTK.LowLevel.Widget"+-- "Graphics.UI.FLTK.LowLevel.Base.Widget" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Group"+-- "Graphics.UI.FLTK.LowLevel.Base.Group" --  | --  v--- "Graphics.UI.FLTK.LowLevel.Window"+-- "Graphics.UI.FLTK.LowLevel.Base.Window"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Window"runOp _ _ window = withRef window $ \windowPtr -> flush' windowPtr -- @  -- $functions -- @--- changed :: 'Ref' 'Window' -> 'IO' ('Bool')------ clearBorder :: 'Ref' 'Window' -> 'IO' ()------ copyLabel :: 'Ref' 'Window' -> 'T.Text' -> 'IO' ()------ destroy :: 'Ref' 'Window' -> 'IO' ()------ drawBackdrop :: 'Ref' 'Window' -> 'IO' ()------ drawBox :: 'Ref' 'Window' -> 'IO' ()------ drawBoxWithBoxtype :: 'Ref' 'Window' -> 'Boxtype' -> 'Color' -> 'Maybe' 'Rectangle' -> 'IO' ()------ drawFocus :: 'Ref' 'Window' -> 'Maybe' ('Boxtype', 'Rectangle') -> 'IO' ()------ drawSuper :: 'Ref' 'Window' -> 'IO' ()------ flushSuper :: 'Ref' 'Window' -> 'IO' ()------ freePosition :: 'Ref' 'Window' -> 'IO' ()------ fullscreenOff :: 'Ref' 'Window' -> 'Maybe' 'Rectangle' -> 'IO' ()------ getBorder :: 'Ref' 'Window' -> 'IO' ('Bool')------ getDecoratedH :: 'Ref' 'Window' -> 'IO' ('Int')------ getDecoratedW :: 'Ref' 'Window' -> 'IO' ('Int')------ getIcon :: 'Ref' 'Window' -> 'IO' ('Maybe' ('Ref' 'Image'))------ getIconlabel :: 'Ref' 'Window' -> 'IO' 'T.Text'------ getLabel :: 'Ref' 'Window' -> 'IO' 'T.Text'------ getMenuWindow :: 'Ref' 'Window' -> 'IO' ('Bool')------ getModal :: 'Ref' 'Window' -> 'IO' ('Bool')------ getOverride :: 'Ref' 'Window' -> 'IO' ('Bool')------ getTooltipWindow :: 'Ref' 'Window' -> 'IO' ('Bool')------ getType_ :: 'Ref' 'Window' -> 'IO' ('WindowType')------ getXRoot :: 'Ref' 'Window' -> 'IO' ('Int')------ getXclass :: 'Ref' 'Window' -> 'IO' 'T.Text'------ getYRoot :: 'Ref' 'Window' -> 'IO' ('Int')+-- flush :: 'Ref' 'Window' -> 'IO' () -- -- handle :: 'Ref' 'Window' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Window' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Window' -> 'IO' () ----- hideSuper :: 'Ref' 'Window' -> 'IO' ()------ hotSpot :: 'Ref' 'Window' -> 'PositionSpec' -> 'Maybe' 'Bool' -> 'IO' ()------ iconize :: 'Ref' 'Window' -> 'IO' ()------ makeCurrent :: 'Ref' 'Window' -> 'IO' ()------ makeFullscreen :: 'Ref' 'Window' -> 'IO' ()------ nonModal :: 'Ref' 'Window' -> 'IO' ('Bool')--- -- resize :: 'Ref' 'Window' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Window' -> 'Rectangle' -> 'IO' ()------ setBorder :: 'Ref' 'Window' -> 'Bool' -> 'IO' ()------ setCallback :: 'Ref' 'Window' -> ('Ref' orig -> 'IO' ()) -> 'IO' ()------ setCursor :: 'Ref' 'Window' -> 'Cursor' -> 'IO' ()------ setCursorWithFgBg :: 'Ref' 'Window' -> 'Cursor' -> ('Maybe' 'Color', 'Maybe' 'Color') -> 'IO' ()------ setDefaultCursor :: 'Ref' 'Window' -> 'CursorType' -> 'IO' ()------ setDefaultCursorWithFgBg :: 'Ref' 'Window' -> 'CursorType' -> ('Maybe' 'Color', 'Maybe' 'Color') -> 'IO' ()------ setIcon:: ('Parent' a 'Image') => 'Ref' 'Window' -> 'Maybe'( 'Ref' a ) -> 'IO' ()------ setIconlabel :: 'Ref' 'Window' -> 'T.Text' -> 'IO' ()------ setLabel :: 'Ref' 'Window' -> 'T.Text' -> 'IO' ()------ setLabelWithIconlabel :: 'Ref' 'Window' -> 'T.Text' -> 'T.Text' -> 'IO' ()------ setMenuWindow :: 'Ref' 'Window' -> 'IO' ()------ setModal :: 'Ref' 'Window' -> 'IO' ()------ setNonModal :: 'Ref' 'Window' -> 'IO' ()------ setOverride :: 'Ref' 'Window' -> 'IO' ()------ setTooltipWindow :: 'Ref' 'Window' -> 'IO' ()------ setType :: 'Ref' 'Window' -> 'WindowType' -> 'IO' ()------ setXclass :: 'Ref' 'Window' -> 'T.Text' -> 'IO' ()--- -- showWidget :: 'Ref' 'Window' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Window' -> 'IO' ()------ shown :: 'Ref' 'Window' -> 'IO' ('Bool')------ sizeRange :: 'Ref' 'Window' -> 'Size' -> 'IO' ()------ sizeRangeWithArgs :: 'Ref' 'Window' -> 'Size' -> 'OptionalSizeRangeArgs' -> 'IO' ()------ waitForExpose :: 'Ref' 'Window' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/Wizard.chs view
@@ -1,14 +1,12 @@-{-# LANGUAGE CPP, ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables, UndecidableInstances #-}+{-# LANGUAGE CPP, RankNTypes, UndecidableInstances, GADTs, TypeSynonymInstances, FlexibleInstances, MultiParamTypeClasses, FlexibleContexts, ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Wizard     (-     wizardNew,-     wizardCustom      -- * Hierarchy      --      -- $hierarchy -     -- * Functions+     -- * Widget Functions      --      -- $functions     )@@ -18,138 +16,52 @@ #include "Fl_WizardC.h" import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum) import Graphics.UI.FLTK.LowLevel.Fl_Enumerations-import Graphics.UI.FLTK.LowLevel.Widget import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.Utils-import Graphics.UI.FLTK.LowLevel.Hierarchy import Graphics.UI.FLTK.LowLevel.Dispatch-import qualified Data.Text as T-{# fun Fl_OverriddenWizard_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', `CString', id `Ptr ()'} -> `Ptr ()' id #}-{# fun Fl_OverriddenWizard_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}-wizardCustom ::-       Rectangle                         -- ^ The bounds of this Wizard-    -> Maybe T.Text                      -- ^ The Wizard label-    -> Maybe (Ref Wizard -> IO ())           -- ^ Optional custom drawing function-    -> Maybe (CustomWidgetFuncs Wizard)      -- ^ Optional custom widget functions-    -> IO (Ref Wizard)-wizardCustom rectangle l' draw' funcs' =-  widgetMaker-    rectangle-    l'-    draw'-    funcs'-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'---{# fun Fl_Wizard_New as wizardNew' {  `Int',`Int', `Int', `Int'} -> `Ptr ()' id #}-{# fun Fl_Wizard_New_WithLabel as wizardNewWithLabel' { `Int',`Int',`Int',`Int', `CString'} -> `Ptr ()' id #}-wizardNew :: Rectangle -> Maybe T.Text -> IO (Ref Wizard)-wizardNew rectangle label' =-  widgetMaker-    rectangle-    label'-    Nothing-    Nothing-    overriddenWidgetNew'-    overriddenWidgetNewWithLabel'+import Graphics.UI.FLTK.LowLevel.Hierarchy -{# fun Fl_Wizard_Destroy as wizardDestroy' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ (IO ())) => Op (Destroy ()) Wizard orig impl where-  runOp _ _ wizard = swapRef wizard $ \wizardPtr -> do-    wizardDestroy' wizardPtr-    return nullPtr-{# fun Fl_Wizard_next as wizardNext' { id `Ptr ()' } -> `()' #}-instance (impl ~ (IO ())) => Op (Next ()) Wizard orig impl where-  runOp _ _ wizard = withRef wizard $ \wizardPtr -> wizardNext' wizardPtr-{# fun Fl_Wizard_prev as wizardPrev' { id `Ptr ()' } -> `()' #}-instance (impl ~ (IO ())) => Op (Prev ()) Wizard orig impl where-  runOp _ _ wizard = withRef wizard $ \wizardPtr -> wizardPrev' wizardPtr-{# fun Fl_Wizard_set_value as wizardSetValue' { id `Ptr ()', id `Ptr ()' } -> `()' #}-instance (Parent a Widget, impl ~ ( Maybe ( Ref a ) -> IO ())) => Op (SetValue ()) Wizard orig impl where-  runOp _ _ wizard widget =-    withRef wizard $ \wizardPtr ->-      withMaybeRef widget $ \widgetPtr ->-        wizardSetValue' wizardPtr widgetPtr-{# fun Fl_Wizard_value as wizardValue' {id `Ptr ()'} -> `Ptr ()' id #}-instance (impl ~ (IO (Maybe (Ref Widget)))) => Op (GetValue ()) Wizard orig impl where-  runOp _ _ wizard =-    withRef wizard $ \wizardPtr -> wizardValue' wizardPtr >>= toMaybeRef {# fun Fl_Wizard_draw as draw'' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Draw ()) Wizard orig impl where   runOp _ _ wizard = withRef wizard $ \wizardPtr -> draw'' wizardPtr-{# fun Fl_Wizard_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (DrawSuper ()) Wizard orig impl where-  runOp _ _ wizard = withRef wizard $ \wizardPtr -> drawSuper' wizardPtr {#fun Fl_Wizard_handle as wizardHandle' { id `Ptr ()', id `CInt' } -> `Int' #} instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Wizard orig impl where   runOp _ _ wizard event = withRef wizard (\p -> wizardHandle' p (fromIntegral . fromEnum $ event)) >>= return  . successOrUnknownEvent-{# fun Fl_Wizard_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event ->  IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Wizard orig impl where-  runOp _ _ wizard event = withRef wizard $ \wizardPtr -> handleSuper' wizardPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent {# fun Fl_Wizard_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #} instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Wizard orig impl where   runOp _ _ wizard rectangle = withRef wizard $ \wizardPtr -> do                                  let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle                                  resize' wizardPtr x_pos y_pos w_pos h_pos-{# fun Fl_Wizard_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Wizard orig impl where-  runOp _ _ wizard rectangle =-    let (x_pos, y_pos, width, height) = fromRectangle rectangle-    in withRef wizard $ \wizardPtr -> resizeSuper' wizardPtr x_pos y_pos width height {# fun Fl_Wizard_hide as hide' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (Hide ()) Wizard orig impl where   runOp _ _ wizard = withRef wizard $ \wizardPtr -> hide' wizardPtr-{# fun Fl_Wizard_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (HideSuper ()) Wizard orig impl where-  runOp _ _ wizard = withRef wizard $ \wizardPtr -> hideSuper' wizardPtr {# fun Fl_Wizard_show as show' { id `Ptr ()' } -> `()' #} instance (impl ~ (  IO ())) => Op (ShowWidget ()) Wizard orig impl where   runOp _ _ wizard = withRef wizard $ \wizardPtr -> show' wizardPtr-{# fun Fl_Wizard_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Wizard orig impl where-  runOp _ _ wizard = withRef wizard $ \wizardPtr -> showSuper' wizardPtr +-- $hierarchy+-- @+-- "Graphics.UI.FLTK.LowLevel.Base.Widget"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Group"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Base.Wizard"+--  |+--  v+-- "Graphics.UI.FLTK.LowLevel.Wizard"+-- @+ -- $functions -- @--- destroy :: 'Ref' 'Wizard' -> 'IO' ()--- -- draw :: 'Ref' 'Wizard' -> 'IO' () ----- drawSuper :: 'Ref' 'Wizard' -> 'IO' ()------ getValue :: 'Ref' 'Wizard' -> 'IO' ('Maybe' ('Ref' 'Widget'))--- -- handle :: 'Ref' 'Wizard' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'Wizard' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())--- -- hide :: 'Ref' 'Wizard' -> 'IO' () ----- hideSuper :: 'Ref' 'Wizard' -> 'IO' ()------ next :: 'Ref' 'Wizard' -> 'IO' ()------ prev :: 'Ref' 'Wizard' -> 'IO' ()--- -- resize :: 'Ref' 'Wizard' -> 'Rectangle' -> 'IO' () ----- resizeSuper :: 'Ref' 'Wizard' -> 'Rectangle' -> 'IO' ()------ setValue:: ('Parent' a 'Widget') => 'Ref' 'Wizard' -> 'Maybe' ( 'Ref' a ) -> 'IO' ()--- -- showWidget :: 'Ref' 'Wizard' -> 'IO' ()------ showWidgetSuper :: 'Ref' 'Wizard' -> 'IO' ()--- @---- $hierarchy--- @--- "Graphics.UI.FLTK.LowLevel.Widget"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Group"---  |---  v--- "Graphics.UI.FLTK.LowLevel.Wizard" -- @
src/Graphics/UI/FLTK/LowLevel/X.chs view
@@ -11,7 +11,7 @@ {# fun flc_open_display as flcOpenDisplay {} -> `()' #}  {# fun flc_xid as flcXid' {`Ptr ()'} -> `Ptr ()' #}-flcXid :: (Parent a Window) => Ref a -> IO (Maybe WindowHandle)+flcXid :: (Parent a WindowBase) => Ref a -> IO (Maybe WindowHandle) flcXid win =   withRef     win
src/TestPrograms/OpenGL.hs view
@@ -13,6 +13,7 @@ import Graphics.UI.FLTK.LowLevel.Fl_Types import Graphics.UI.FLTK.LowLevel.FLTKHS import qualified Graphics.UI.FLTK.LowLevel.FL              as FL+import qualified Graphics.UI.FLTK.LowLevel.Base.GlWindow   as FL import qualified Graphics.UI.FLTK.LowLevel.GlWindow        as FL import qualified Graphics.UI.FLTK.LowLevel.Gl              as FL import qualified Graphics.UI.FLTK.LowLevel.Fl_Enumerations as FL@@ -90,9 +91,9 @@ handleCubeWindow :: Ref GlWindow -> FL.Event -> IO (Either UnknownEvent ()) handleCubeWindow window event =   case event of-    FL.Enter -> setCursor window FL.CursorCross >> handleSuper window event-    FL.Leave -> setCursor window FL.CursorDefault >> handleSuper window event-    _ -> handleSuper window event+    FL.Enter -> setCursor window FL.CursorCross >> FL.handleGlWindowBase (safeCast window) event+    FL.Leave -> setCursor window FL.CursorDefault >> FL.handleGlWindowBase (safeCast window) event+    _ -> FL.handleGlWindowBase (safeCast window) event  drawCubeWindow :: IORef CubeState -> Ref GlWindow -> IO() drawCubeWindow stateRef window = do