fltkhs 0.5.1.1 → 0.5.1.2
raw patch · 121 files changed
+9482/−1195 lines, 121 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
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: 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Adjuster: instance impl ~ 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.CheckButton: checkButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref CheckButton -> IO ()) -> Maybe (CustomWidgetFuncs CheckButton) -> IO (Ref CheckButton)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.CheckButton: instance impl ~ 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: 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Choice: instance impl ~ 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.Clock: clockCustom :: Rectangle -> Maybe Text -> Maybe (Ref Clock -> IO ()) -> Maybe (CustomWidgetFuncs Clock) -> IO (Ref Clock)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Clock: instance impl ~ 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.ColorChooser: colorChooserCustom :: Rectangle -> Maybe Text -> Maybe (Ref ColorChooser -> IO ()) -> Maybe (CustomWidgetFuncs ColorChooser) -> IO (Ref ColorChooser)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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 () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.ColorChooser orig impl
+ Graphics.UI.FLTK.LowLevel.Counter: counterCustom :: Rectangle -> Maybe Text -> Maybe (Ref Counter -> IO ()) -> Maybe (CustomWidgetFuncs Counter) -> IO (Ref Counter)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Counter: instance impl ~ 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.Dial: dialCustom :: Rectangle -> Maybe Text -> Maybe (Ref Dial -> IO ()) -> Maybe (CustomWidgetFuncs Dial) -> IO (Ref Dial)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Dial: instance impl ~ 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.FileBrowser: fileBrowserCustom :: Rectangle -> Maybe Text -> Maybe (Ref FileBrowser -> IO ()) -> Maybe (CustomWidgetFuncs FileBrowser) -> IO (Ref FileBrowser)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.FileBrowser: instance impl ~ 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.FileInput: fileInputCustom :: Rectangle -> Maybe Text -> Maybe (Ref FileInput -> IO ()) -> Maybe (CustomWidgetFuncs FileInput) -> IO (Ref FileInput)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.FileInput: instance impl ~ 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.Group: groupCustom :: Rectangle -> Maybe Text -> Maybe (Ref Group -> IO ()) -> CustomWidgetFuncs Group -> IO (Ref Group)
+ Graphics.UI.FLTK.LowLevel.Input: inputCustom :: Rectangle -> Maybe Text -> Maybe (Ref Input -> IO ()) -> Maybe (CustomWidgetFuncs Input) -> IO (Ref Input)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Input: instance impl ~ 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.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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.LightButton: instance impl ~ 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.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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.MenuBar: instance impl ~ 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.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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.MenuButton: instance impl ~ 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: menuButtonCustom :: Rectangle -> Maybe Text -> Maybe (Ref MenuButton -> IO ()) -> Maybe (CustomWidgetFuncs MenuButton) -> IO (Ref MenuButton)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Output: instance impl ~ 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: outputCustom :: Rectangle -> Maybe Text -> Maybe (Ref Output -> IO ()) -> Maybe (CustomWidgetFuncs Output) -> IO (Ref Output)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Pack: instance impl ~ 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: packCustom :: Rectangle -> Maybe Text -> Maybe (Ref Pack -> IO ()) -> Maybe (CustomWidgetFuncs Pack) -> IO (Ref Pack)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Positioner: instance impl ~ 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: positionerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Positioner -> IO ()) -> Maybe (CustomWidgetFuncs Positioner) -> IO (Ref Positioner)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Progress: instance impl ~ 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: progressCustom :: Rectangle -> Maybe Text -> Maybe (Ref Progress -> IO ()) -> Maybe (CustomWidgetFuncs Progress) -> IO (Ref Progress)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.RepeatButton: instance impl ~ 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.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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.ReturnButton: instance impl ~ 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.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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Roller: instance impl ~ 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.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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.RoundButton: instance impl ~ 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.Scrollbar: 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.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Scrollbar 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Scrollbar: instance impl ~ 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: scrollbarCustom :: Rectangle -> Maybe Text -> Maybe (Ref Scrollbar -> IO ()) -> Maybe (CustomWidgetFuncs Scrollbar) -> IO (Ref Scrollbar)
+ 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.HandleSuper ()) 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.ResizeSuper ()) 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.DrawSuper ()) 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.HideSuper ()) 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.Scrolled: instance impl ~ 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: scrolledCustom :: Rectangle -> Maybe Text -> Maybe (Ref Scrolled -> IO ()) -> Maybe (CustomWidgetFuncs Scrolled) -> IO (Ref Scrolled)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Slider: instance impl ~ 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: sliderCustom :: Rectangle -> Maybe Text -> Maybe (Ref Slider -> IO ()) -> Maybe (CustomWidgetFuncs Slider) -> IO (Ref Slider)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Spinner: instance impl ~ 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: spinnerCustom :: Rectangle -> Maybe Text -> Maybe (Ref Spinner -> IO ()) -> Maybe (CustomWidgetFuncs Spinner) -> IO (Ref Spinner)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.SysMenuBar: instance impl ~ 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.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.DrawSuper ()) 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.HideSuper ()) 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.TableRow: instance impl ~ 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.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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Tabs: instance impl ~ 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: tabsCustom :: Rectangle -> Maybe Text -> Maybe (Ref Tabs -> IO ()) -> Maybe (CustomWidgetFuncs Tabs) -> IO (Ref Tabs)
+ 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.HandleSuper ()) 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.ResizeSuper ()) 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.DrawSuper ()) 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.HideSuper ()) 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.TextDisplay: instance impl ~ 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: textDisplayCustom :: Rectangle -> Maybe Text -> Maybe (Ref TextDisplay -> IO ()) -> Maybe (CustomWidgetFuncs TextDisplay) -> IO (Ref TextDisplay)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.TextEditor: instance impl ~ 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: textEditorCustom :: Rectangle -> Maybe Text -> Maybe (Ref TextEditor -> IO ()) -> Maybe (CustomWidgetFuncs TextEditor) -> IO (Ref TextEditor)
+ 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.HandleSuper ()) 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.ResizeSuper ()) 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.DrawSuper ()) 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.HideSuper ()) 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.Tile: instance impl ~ 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.Timer: 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.HandleSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: 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.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ (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.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ GHC.Types.IO () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Draw ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ GHC.Types.IO () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.DrawSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ GHC.Types.IO () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.Hide ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ GHC.Types.IO () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.HideSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ GHC.Types.IO () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidget ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: instance impl ~ GHC.Types.IO () => Graphics.UI.FLTK.LowLevel.Dispatch.Op (Graphics.UI.FLTK.LowLevel.Hierarchy.ShowWidgetSuper ()) Graphics.UI.FLTK.LowLevel.Hierarchy.Timer orig impl
+ Graphics.UI.FLTK.LowLevel.Timer: timerCustom :: Rectangle -> Text -> Maybe (Ref Timer -> IO ()) -> Maybe (CustomWidgetFuncs Timer) -> IO (Ref Timer)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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 ~ 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.HideSuper ()) 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.Tree: instance impl ~ 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: treeCustom :: Rectangle -> Maybe Text -> Maybe (Ref Tree -> IO ()) -> Maybe (CustomWidgetFuncs Tree) -> IO (Ref Tree)
+ 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.HandleSuper ()) 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.ResizeSuper ()) 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.DrawSuper ()) 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.HideSuper ()) 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.ValueInput: instance impl ~ 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: valueInputCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueInput -> IO ()) -> Maybe (CustomWidgetFuncs ValueInput) -> IO (Ref ValueInput)
+ 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.HandleSuper ()) 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.ResizeSuper ()) 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.DrawSuper ()) 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.HideSuper ()) 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.ValueOutput: instance impl ~ 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: valueOutputCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueOutput -> IO ()) -> Maybe (CustomWidgetFuncs ValueOutput) -> IO (Ref ValueOutput)
+ 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.HandleSuper ()) 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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.ValueSlider: instance impl ~ 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: valueSliderCustom :: Rectangle -> Maybe Text -> Maybe (Ref ValueSlider -> IO ()) -> Maybe (CustomWidgetFuncs ValueSlider) -> IO (Ref ValueSlider)
+ 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_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 ~ (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 ~ (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 ~ 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.DrawSuper ()) 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.HideSuper ()) 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.Wizard: instance impl ~ 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: wizardCustom :: Rectangle -> Maybe Text -> Maybe (Ref Wizard -> IO ()) -> Maybe (CustomWidgetFuncs Wizard) -> IO (Ref Wizard)
Files
- c-src/DerivedText_Editor.cpp +85/−11
- c-src/DerivedText_Editor.h +18/−4
- c-src/Fl_AdjusterC.cpp +125/−19
- c-src/Fl_AdjusterC.h +34/−3
- c-src/Fl_CallbackC.h +1/−0
- c-src/Fl_Check_ButtonC.cpp +124/−11
- c-src/Fl_Check_ButtonC.h +33/−1
- c-src/Fl_ChoiceC.cpp +118/−23
- c-src/Fl_ChoiceC.h +38/−11
- c-src/Fl_ClockC.cpp +123/−12
- c-src/Fl_ClockC.h +33/−1
- c-src/Fl_Color_ChooserC.cpp +234/−121
- c-src/Fl_Color_ChooserC.h +36/−0
- c-src/Fl_CounterC.cpp +125/−22
- c-src/Fl_CounterC.h +32/−0
- c-src/Fl_DialC.cpp +122/−21
- c-src/Fl_DialC.h +31/−0
- c-src/Fl_File_BrowserC.cpp +105/−27
- c-src/Fl_File_BrowserC.h +32/−8
- c-src/Fl_File_InputC.cpp +121/−14
- c-src/Fl_File_InputC.h +31/−2
- c-src/Fl_GroupC.cpp +118/−6
- c-src/Fl_GroupC.h +30/−9
- c-src/Fl_InputC.cpp +122/−14
- c-src/Fl_InputC.h +34/−3
- c-src/Fl_Light_ButtonC.cpp +123/−11
- c-src/Fl_Light_ButtonC.h +32/−0
- c-src/Fl_Menu_BarC.cpp +121/−9
- c-src/Fl_Menu_BarC.h +31/−0
- c-src/Fl_Menu_ButtonC.cpp +120/−17
- c-src/Fl_Menu_ButtonC.h +31/−0
- c-src/Fl_OutputC.cpp +124/−15
- c-src/Fl_OutputC.h +35/−3
- c-src/Fl_PackC.cpp +123/−9
- c-src/Fl_PackC.h +31/−0
- c-src/Fl_PositionerC.cpp +118/−17
- c-src/Fl_PositionerC.h +31/−4
- c-src/Fl_ProgressC.cpp +121/−17
- c-src/Fl_ProgressC.h +32/−0
- c-src/Fl_Repeat_ButtonC.cpp +123/−11
- c-src/Fl_Repeat_ButtonC.h +31/−0
- c-src/Fl_Return_ButtonC.cpp +124/−11
- c-src/Fl_Return_ButtonC.h +31/−0
- c-src/Fl_RollerC.cpp +125/−21
- c-src/Fl_RollerC.h +32/−0
- c-src/Fl_Round_ButtonC.cpp +124/−11
- c-src/Fl_Round_ButtonC.h +31/−0
- c-src/Fl_ScrollC.cpp +117/−10
- c-src/Fl_ScrollC.h +31/−0
- c-src/Fl_ScrollbarC.cpp +118/−17
- c-src/Fl_ScrollbarC.h +31/−0
- c-src/Fl_SliderC.cpp +114/−25
- c-src/Fl_SliderC.h +31/−0
- c-src/Fl_SpinnerC.cpp +118/−11
- c-src/Fl_SpinnerC.h +32/−0
- c-src/Fl_Sys_Menu_BarC.cpp +118/−17
- c-src/Fl_Sys_Menu_BarC.h +31/−0
- c-src/Fl_Table_RowC.cpp +27/−28
- c-src/Fl_Table_RowC.h +8/−7
- c-src/Fl_TabsC.cpp +124/−14
- c-src/Fl_TabsC.h +32/−0
- c-src/Fl_Text_DisplayC.cpp +166/−56
- c-src/Fl_Text_DisplayC.h +31/−0
- c-src/Fl_Text_EditorC.cpp +178/−141
- c-src/Fl_Text_EditorC.h +14/−1
- c-src/Fl_TileC.cpp +122/−12
- c-src/Fl_TileC.h +32/−0
- c-src/Fl_TimerC.cpp +108/−16
- c-src/Fl_TimerC.h +30/−0
- c-src/Fl_TreeC.cpp +130/−25
- c-src/Fl_TreeC.h +31/−0
- c-src/Fl_Value_InputC.cpp +123/−14
- c-src/Fl_Value_InputC.h +32/−0
- c-src/Fl_Value_OutputC.cpp +124/−14
- c-src/Fl_Value_OutputC.h +32/−0
- c-src/Fl_Value_SliderC.cpp +121/−17
- c-src/Fl_Value_SliderC.h +33/−1
- c-src/Fl_WizardC.cpp +145/−11
- c-src/Fl_WizardC.h +33/−0
- c-src/Makefile.in +1/−1
- fltkhs.cabal +1/−1
- scripts/skeletons.el +458/−0
- src/Graphics/UI/FLTK/LowLevel/Adjuster.chs +77/−1
- src/Graphics/UI/FLTK/LowLevel/CheckButton.chs +77/−1
- src/Graphics/UI/FLTK/LowLevel/Choice.chs +70/−1
- src/Graphics/UI/FLTK/LowLevel/Clock.chs +77/−4
- src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs +78/−1
- src/Graphics/UI/FLTK/LowLevel/Counter.chs +82/−7
- src/Graphics/UI/FLTK/LowLevel/Dial.chs +80/−6
- src/Graphics/UI/FLTK/LowLevel/FileBrowser.chs +78/−0
- src/Graphics/UI/FLTK/LowLevel/FileInput.chs +76/−3
- src/Graphics/UI/FLTK/LowLevel/Group.chs +8/−0
- src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs +321/−57
- src/Graphics/UI/FLTK/LowLevel/Input.chs +72/−2
- src/Graphics/UI/FLTK/LowLevel/LightButton.chs +75/−2
- src/Graphics/UI/FLTK/LowLevel/MenuBar.chs +70/−4
- src/Graphics/UI/FLTK/LowLevel/MenuButton.chs +73/−6
- src/Graphics/UI/FLTK/LowLevel/Output.chs +77/−1
- src/Graphics/UI/FLTK/LowLevel/Pack.chs +75/−4
- src/Graphics/UI/FLTK/LowLevel/Positioner.chs +80/−13
- src/Graphics/UI/FLTK/LowLevel/Progress.chs +79/−4
- src/Graphics/UI/FLTK/LowLevel/RepeatButton.chs +73/−7
- src/Graphics/UI/FLTK/LowLevel/ReturnButton.chs +55/−4
- src/Graphics/UI/FLTK/LowLevel/Roller.chs +51/−4
- src/Graphics/UI/FLTK/LowLevel/RoundButton.chs +74/−4
- src/Graphics/UI/FLTK/LowLevel/Scrollbar.chs +76/−7
- src/Graphics/UI/FLTK/LowLevel/Scrolled.chs +76/−12
- src/Graphics/UI/FLTK/LowLevel/Slider.chs +81/−11
- src/Graphics/UI/FLTK/LowLevel/Spinner.chs +71/−5
- src/Graphics/UI/FLTK/LowLevel/SysMenuBar.chs +73/−7
- src/Graphics/UI/FLTK/LowLevel/TableRow.chs +32/−2
- src/Graphics/UI/FLTK/LowLevel/Tabs.chs +55/−5
- src/Graphics/UI/FLTK/LowLevel/TextDisplay.chs +78/−12
- src/Graphics/UI/FLTK/LowLevel/TextEditor.chs +72/−6
- src/Graphics/UI/FLTK/LowLevel/Tile.chs +68/−8
- src/Graphics/UI/FLTK/LowLevel/Timer.chs +76/−8
- src/Graphics/UI/FLTK/LowLevel/Tree.chs +72/−8
- src/Graphics/UI/FLTK/LowLevel/ValueInput.chs +75/−9
- src/Graphics/UI/FLTK/LowLevel/ValueOutput.chs +71/−9
- src/Graphics/UI/FLTK/LowLevel/ValueSlider.chs +77/−10
- src/Graphics/UI/FLTK/LowLevel/Wizard.chs +75/−2
c-src/DerivedText_Editor.cpp view
@@ -5,13 +5,24 @@ DerivedText_Editor::Key_Binding_With_Callback* DerivedText_Editor::global_key_bindings = 0; #endif +DerivedText_Editor::DerivedText_Editor(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Text_Editor(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+}+DerivedText_Editor::DerivedText_Editor(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Text_Editor(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+}+DerivedText_Editor::~DerivedText_Editor(){+ 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();- curr_callback_context = 0;- default_callback_context_ = 0;- default_key_function_ = C_to_Fl_Callback::intercept;- }+ key_bindings = 0;+ key_bindings = get_default_keybindings();+ curr_callback_context = 0;+ default_callback_context_ = 0;+ default_key_function_ = C_to_Fl_Callback::intercept;+} C_to_Fl_Callback* DerivedText_Editor::get_curr_callback_context(){ return curr_callback_context; }@@ -34,9 +45,9 @@ replace_key_bindings(&key_bindings, l); } void DerivedText_Editor::add_key_binding(int key,- int state,- C_to_Fl_Callback* callback_context,- Key_Binding_With_Callback** list){+ int state,+ C_to_Fl_Callback* callback_context,+ Key_Binding_With_Callback** list){ Key_Binding_With_Callback* curr = *list; // iterate to the last binding while(curr->next){curr = curr->next;}@@ -94,7 +105,7 @@ Key_Binding_With_Callback* curr = *list; Key_Binding_With_Callback* last = NULL; for (;curr;last = curr, curr = curr->next){- if (curr->key == key && curr->state == state) break;+ if (curr->key == key && curr->state == state) break; } if (!curr) return; if (last) last->next = curr->next;@@ -127,7 +138,7 @@ if (Fl::compose_state) { int pos = this->insert_position(); this->buffer()->select(pos - Fl::compose_state, pos);- }+ } #endif show_insert_position(); set_changed();@@ -144,4 +155,67 @@ if (f) return C_to_Fl_Callback::intercept(key, this); if (default_key_function_ && !state) return default_key_function_(c, this); return 0;+}++void DerivedText_Editor::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Text_Editor) this);+ }+ else {+ Fl_Text_Editor::draw();+ }+}++void DerivedText_Editor::draw_super(){+ Fl_Text_Editor::draw();+}++int DerivedText_Editor::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Text_Editor) this,event);+ }+ else {+ i = Fl_Text_Editor::handle(event);+ }+ return i;+}+int DerivedText_Editor::handle_super(int event){+ return Fl_Text_Editor::handle(event);+}++void DerivedText_Editor::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Text_Editor) this,x,y,w,h);+ }+ else {+ Fl_Text_Editor::resize(x,y,w,h);+ }+}++void DerivedText_Editor::resize_super(int x, int y, int w, int h){+ Fl_Text_Editor::resize(x,y,w,h);+}+void DerivedText_Editor::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Text_Editor) this);+ }+ else {+ Fl_Text_Editor::show();+ }+}+void DerivedText_Editor::show_super(){+ Fl_Text_Editor::show();+}++void DerivedText_Editor::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Text_Editor) this);+ }+ else {+ Fl_Text_Editor::hide();+ }+}+void DerivedText_Editor::hide_super(){+ Fl_Text_Editor::hide(); }
c-src/DerivedText_Editor.h view
@@ -2,12 +2,14 @@ #define __DERIVEDTEXT_EDITOR__ #include "FL/Fl.H" #include "FL/Fl_Text_Editor.H"-+#include "Fl_Types.h" class C_to_Fl_Callback; class DerivedText_Editor : public Fl_Text_Editor { private: C_to_Fl_Callback* curr_callback_context;+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data; public: typedef int (*Key_Func)(int key, DerivedText_Editor* editor); struct Key_Binding_With_Callback {@@ -32,10 +34,10 @@ // Unlike Fl_Text_Editor a new binding is appended rather than prepended void add_key_binding(int key, int state, C_to_Fl_Callback* callback_context,- Key_Binding_With_Callback** list);+ Key_Binding_With_Callback** list); void add_key_binding(Key_Binding_With_Callback* new_bindings,- Key_Binding_With_Callback** old_bindings){+ Key_Binding_With_Callback** old_bindings){ Key_Binding_With_Callback* curr = *old_bindings; // iterate to the last binding while(curr->next){curr = curr->next;}@@ -58,11 +60,23 @@ C_to_Fl_Callback* get_curr_callback_context(); C_to_Fl_Callback* get_default_callback_context(); DerivedText_Editor(int x,int y,int w,int h,const char* t=0);+ DerivedText_Editor(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);+ DerivedText_Editor(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ ~DerivedText_Editor(); protected: int handle_key(); Key_Func default_key_function_; static Key_Binding_With_Callback* global_key_bindings; C_to_Fl_Callback* default_callback_context_; };- #endif /* __DERIVEDTEXT_EDITOR__ */
c-src/Fl_AdjusterC.cpp view
@@ -1,7 +1,81 @@ #include "Fl_AdjusterC.h" #ifdef __cplusplus EXPORT {-#endif + Fl_DerivedAdjuster::Fl_DerivedAdjuster(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Adjuster(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedAdjuster::Fl_DerivedAdjuster(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Adjuster(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedAdjuster::~Fl_DerivedAdjuster(){+ free(overriddenFuncs);+ }+ void Fl_DerivedAdjuster::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Adjuster) this);+ }+ else {+ Fl_Adjuster::draw();+ }+ }++ void Fl_DerivedAdjuster::draw_super(){+ Fl_Adjuster::draw();+ }++ int Fl_DerivedAdjuster::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Adjuster) this,event);+ }+ else {+ i = Fl_Adjuster::handle(event);+ }+ return i;+ }+ int Fl_DerivedAdjuster::handle_super(int event){+ return Fl_Adjuster::handle(event);+ }++ void Fl_DerivedAdjuster::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Adjuster) this,x,y,w,h);+ }+ else {+ Fl_Adjuster::resize(x,y,w,h);+ }+ }++ void Fl_DerivedAdjuster::resize_super(int x, int y, int w, int h){+ Fl_Adjuster::resize(x,y,w,h);+ }+ void Fl_DerivedAdjuster::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Adjuster) this);+ }+ else {+ Fl_Adjuster::show();+ }+ }+ void Fl_DerivedAdjuster::show_super(){+ Fl_Adjuster::show();+ }++ void Fl_DerivedAdjuster::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Adjuster) this);+ }+ else {+ Fl_Adjuster::hide();+ }+ }+ void Fl_DerivedAdjuster::hide_super(){+ Fl_Adjuster::hide();+ }++#endif FL_EXPORT_C(fl_Group,Fl_Adjuster_parent)(fl_Adjuster adjuster){ return (static_cast<Fl_Adjuster*>(adjuster))->parent(); }@@ -152,12 +226,6 @@ FL_EXPORT_C(int,Fl_Adjuster_visible_r)(fl_Adjuster adjuster){ return (static_cast<Fl_Adjuster*>(adjuster))->visible_r(); }- FL_EXPORT_C(void,Fl_Adjuster_show)(fl_Adjuster adjuster){- (static_cast<Fl_Adjuster*>(adjuster))->show();- }- FL_EXPORT_C(void,Fl_Adjuster_hide)(fl_Adjuster adjuster){- (static_cast<Fl_Adjuster*>(adjuster))->hide();- } FL_EXPORT_C(void,Fl_Adjuster_set_visible)(fl_Adjuster adjuster){ (static_cast<Fl_Adjuster*>(adjuster))->visible(); }@@ -254,9 +322,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Adjuster_as_gl_window)(fl_Adjuster adjuster){ return (static_cast<Fl_Adjuster*>(adjuster))->as_gl_window(); }- FL_EXPORT_C(void,Fl_Adjuster_resize)(fl_Adjuster adjuster,int X,int Y,int W,int H){- (static_cast<Fl_Adjuster*>(adjuster))->resize(X,Y,W,H);- } FL_EXPORT_C(void,Fl_Adjuster_bounds)(fl_Adjuster adjuster,double a,double b){ (static_cast<Fl_Adjuster*>(adjuster))->bounds(a,b); }@@ -308,14 +373,6 @@ FL_EXPORT_C(double,Fl_Adjuster_increment)(fl_Adjuster adjuster,double v,int n){ return (static_cast<Fl_Adjuster*>(adjuster))->increment(v,n); }- FL_EXPORT_C(fl_Adjuster,Fl_Adjuster_New_WithLabel)(int x,int y,int w,int h,const char* label){- Fl_Adjuster* adjuster = new Fl_Adjuster(x,y,w,h,label);- return (fl_Adjuster) adjuster;- }- FL_EXPORT_C(fl_Adjuster,Fl_Adjuster_New)(int x,int y,int w,int h){- Fl_Adjuster* adjuster = new Fl_Adjuster(x,y,w,h);- return (fl_Adjuster) adjuster;- } FL_EXPORT_C(void,Fl_Adjuster_Destroy)(fl_Adjuster adjuster){ delete (static_cast<Fl_Adjuster*>(adjuster)); }@@ -325,6 +382,55 @@ FL_EXPORT_C(void,Fl_Adjuster_set_soft)(fl_Adjuster adjuster,int soft){ (static_cast<Fl_Adjuster*>(adjuster))->soft(soft); }+ FL_EXPORT_C(fl_Adjuster, Fl_Adjuster_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedAdjuster* w = new Fl_DerivedAdjuster(X,Y,W,H,fs);+ return (fl_Adjuster)w;+ }+ FL_EXPORT_C(fl_Adjuster, Fl_Adjuster_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedAdjuster* w = new Fl_DerivedAdjuster(X,Y,W,H,label,fs);+ return (fl_Adjuster)w;+ }+ FL_EXPORT_C(fl_Adjuster, Fl_OverriddenAdjuster_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedAdjuster* w = new Fl_DerivedAdjuster(X,Y,W,H,fs);+ return (fl_Adjuster)w;+ }+ FL_EXPORT_C(fl_Adjuster, Fl_OverriddenAdjuster_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedAdjuster* w = new Fl_DerivedAdjuster(X,Y,W,H,label,fs);+ return (fl_Adjuster)w;+ }+ FL_EXPORT_C(void, Fl_Adjuster_draw)(fl_Adjuster o){+ (static_cast<Fl_DerivedAdjuster*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Adjuster_draw_super)(fl_Adjuster o){+ (static_cast<Fl_DerivedAdjuster*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Adjuster_handle)(fl_Adjuster o, int event){+ return (static_cast<Fl_DerivedAdjuster*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Adjuster_handle_super)(fl_Adjuster o, int event){+ return (static_cast<Fl_DerivedAdjuster*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Adjuster_resize)(fl_Adjuster o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedAdjuster*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Adjuster_resize_super)(fl_Adjuster o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedAdjuster*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Adjuster_show)(fl_Adjuster o){+ (static_cast<Fl_DerivedAdjuster*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Adjuster_show_super)(fl_Adjuster o){+ (static_cast<Fl_DerivedAdjuster*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Adjuster_hide)(fl_Adjuster o){+ (static_cast<Fl_DerivedAdjuster*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Adjuster_hide_super)(fl_Adjuster o){+ (static_cast<Fl_DerivedAdjuster*>(o))->hide_super();+ }+ #ifdef __cplusplus }-#endif +#endif
c-src/Fl_AdjusterC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Adjuster.H" #include "Fl_CallbackC.h"+#include "Fl_Types.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedAdjuster : public Fl_Adjuster {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif FL_EXPORT_C(fl_Group, Fl_Adjuster_parent)(fl_Adjuster adjuster); FL_EXPORT_C(void, Fl_Adjuster_set_parent)(fl_Adjuster adjuster, fl_Group grp);@@ -57,8 +77,6 @@ FL_EXPORT_C(void, Fl_Adjuster_set_when)(fl_Adjuster adjuster, uchar i); FL_EXPORT_C(unsigned int, Fl_Adjuster_visible)(fl_Adjuster adjuster); FL_EXPORT_C(int, Fl_Adjuster_visible_r)(fl_Adjuster adjuster);- FL_EXPORT_C(void, Fl_Adjuster_show)(fl_Adjuster adjuster);- FL_EXPORT_C(void, Fl_Adjuster_hide)(fl_Adjuster adjuster); FL_EXPORT_C(void, Fl_Adjuster_set_visible)(fl_Adjuster adjuster); FL_EXPORT_C(void, Fl_Adjuster_clear_visible)(fl_Adjuster adjuster); FL_EXPORT_C(unsigned int, Fl_Adjuster_active)(fl_Adjuster adjuster);@@ -91,7 +109,6 @@ FL_EXPORT_C(fl_Window, Fl_Adjuster_top_window)(fl_Adjuster adjuster); FL_EXPORT_C(fl_Window , Fl_Adjuster_top_window_offset)(fl_Adjuster adjuster, int* xoff, int* yoff); FL_EXPORT_C(fl_Gl_Window, Fl_Adjuster_as_gl_window)(fl_Adjuster adjuster);- FL_EXPORT_C(void, Fl_Adjuster_resize)(fl_Table table,int X, int Y, int W, int H); /* Inherited from Fl_Valuator */ FL_EXPORT_C(void, Fl_Adjuster_bounds)(fl_Adjuster adjuster, double a, double b);@@ -118,6 +135,20 @@ FL_EXPORT_C(void, Fl_Adjuster_Destroy)(fl_Adjuster adjuster); FL_EXPORT_C(int, Fl_Adjuster_soft)(fl_Adjuster adjuster); FL_EXPORT_C(void, Fl_Adjuster_set_soft)(fl_Adjuster adjuster, int soft);++ FL_EXPORT_C(fl_Adjuster, Fl_OverriddenAdjuster_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Adjuster, Fl_OverriddenAdjuster_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Adjuster_draw)(fl_Adjuster o);+ FL_EXPORT_C(void, Fl_Adjuster_draw_super)(fl_Adjuster o);+ FL_EXPORT_C(int, Fl_Adjuster_handle)(fl_Adjuster o, int event);+ FL_EXPORT_C(int, Fl_Adjuster_handle_super)(fl_Adjuster o, int event);+ FL_EXPORT_C(void, Fl_Adjuster_resize)(fl_Adjuster o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Adjuster_resize_super)(fl_Adjuster o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Adjuster_show)(fl_Adjuster o);+ FL_EXPORT_C(void, Fl_Adjuster_show_super)(fl_Adjuster o);+ FL_EXPORT_C(void, Fl_Adjuster_hide)(fl_Adjuster o);+ FL_EXPORT_C(void, Fl_Adjuster_hide_super)(fl_Adjuster o);+ #ifdef __cplusplus } #endif
c-src/Fl_CallbackC.h view
@@ -15,6 +15,7 @@ #include <FL/Fl_Text_Editor.H> #include <FL/Fl_File_Chooser.H> #include <stdio.h>+ /** Pass a C callback function to an Fl_Window */
c-src/Fl_Check_ButtonC.cpp view
@@ -2,10 +2,82 @@ #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Check_Button_handle)(fl_Check_Button self, int event){- return (static_cast<Fl_Check_Button*>(self))->handle(event);+ Fl_DerivedCheck_Button::Fl_DerivedCheck_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Check_Button(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedCheck_Button::Fl_DerivedCheck_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Check_Button(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedCheck_Button::~Fl_DerivedCheck_Button(){+ free(overriddenFuncs);+ }+ void Fl_DerivedCheck_Button::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Check_Button) this);+ }+ else {+ Fl_Check_Button::draw();+ }+ }++ void Fl_DerivedCheck_Button::draw_super(){+ Fl_Check_Button::draw();+ }++ int Fl_DerivedCheck_Button::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Check_Button) this,event);+ }+ else {+ i = Fl_Check_Button::handle(event);+ }+ return i;+ }+ int Fl_DerivedCheck_Button::handle_super(int event){+ return Fl_Check_Button::handle(event);+ }++ void Fl_DerivedCheck_Button::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Check_Button) this,x,y,w,h);+ }+ else {+ Fl_Check_Button::resize(x,y,w,h);+ }+ }++ void Fl_DerivedCheck_Button::resize_super(int x, int y, int w, int h){+ Fl_Check_Button::resize(x,y,w,h);+ }+ void Fl_DerivedCheck_Button::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Check_Button) this);+ }+ else {+ Fl_Check_Button::show();+ }+ }+ void Fl_DerivedCheck_Button::show_super(){+ Fl_Check_Button::show();+ }++ void Fl_DerivedCheck_Button::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Check_Button) this);+ }+ else {+ Fl_Check_Button::hide();+ }+ }+ void Fl_DerivedCheck_Button::hide_super(){+ Fl_Check_Button::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Check_Button_parent)(fl_Check_Button b){ return (fl_Group) (static_cast<Fl_Check_Button*>(b))->parent(); }@@ -251,14 +323,6 @@ (static_cast<Fl_Check_Button*>(b))->measure_label(*ww,*hh); } - FL_EXPORT_C(fl_Check_Button, Fl_Check_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Check_Button* button = new Fl_Check_Button(x,y,w,h,label);- return (static_cast<fl_Check_Button>(button));- }- FL_EXPORT_C(fl_Check_Button, Fl_Check_Button_New)(int x, int y, int w, int h) {- Fl_Check_Button* button = new Fl_Check_Button(x,y,w,h,0);- return (fl_Check_Button)button;- } FL_EXPORT_C(void,Fl_Check_Button_Destroy)(fl_Check_Button button){ delete (static_cast<Fl_Check_Button*>(button)); }@@ -292,6 +356,55 @@ FL_EXPORT_C(void,Fl_Check_Button_set_down_color)(fl_Check_Button b,Fl_Color c){ (static_cast<Fl_Check_Button*>(b))->down_color(c); }+ FL_EXPORT_C(fl_Check_Button, Fl_Check_Button_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedCheck_Button* w = new Fl_DerivedCheck_Button(X,Y,W,H,fs);+ return (fl_Check_Button)w;+ }+ FL_EXPORT_C(fl_Check_Button, Fl_Check_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedCheck_Button* w = new Fl_DerivedCheck_Button(X,Y,W,H,label,fs);+ return (fl_Check_Button)w;+ }+ FL_EXPORT_C(fl_Check_Button, Fl_OverriddenCheck_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedCheck_Button* w = new Fl_DerivedCheck_Button(X,Y,W,H,fs);+ return (fl_Check_Button)w;+ }+ FL_EXPORT_C(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_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){+ (static_cast<Fl_DerivedCheck_Button*>(o))->draw();+ }+ 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){+ return (static_cast<Fl_DerivedCheck_Button*>(o))->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){+ (static_cast<Fl_DerivedCheck_Button*>(o))->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){+ (static_cast<Fl_DerivedCheck_Button*>(o))->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){+ (static_cast<Fl_DerivedCheck_Button*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Check_Button_hide_super)(fl_Check_Button o){+ (static_cast<Fl_DerivedCheck_Button*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_Check_ButtonC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Check_Button.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedCheck_Button : public Fl_Check_Button {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Check_Button_handle)(fl_Check_Button self, int event);@@ -93,7 +112,7 @@ FL_EXPORT_C(fl_Check_Button, Fl_Check_Button_New_WithLabel)(int x, int y, int w, int h, const char* label); FL_EXPORT_C(fl_Check_Button, Fl_Check_Button_New)(int x, int y, int w, int h); FL_EXPORT_C(void, Fl_Check_Button_Destroy)(fl_Check_Button button);- + FL_EXPORT_C(char , Fl_Check_Button_value)(fl_Check_Button b); FL_EXPORT_C(int , Fl_Check_Button_set_value)(fl_Check_Button b, int v); FL_EXPORT_C(int , Fl_Check_Button_set)(fl_Check_Button b);@@ -105,6 +124,19 @@ FL_EXPORT_C(void , Fl_Check_Button_set_down_box)(fl_Check_Button b,Fl_Boxtype boxtype); FL_EXPORT_C(Fl_Color , Fl_Check_Button_down_color )(fl_Check_Button b); FL_EXPORT_C(void , Fl_Check_Button_set_down_color)(fl_Check_Button b, Fl_Color c);+ FL_EXPORT_C(fl_Check_Button, Fl_OverriddenCheck_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(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(void, Fl_Check_Button_draw)(fl_Check_Button o);+ FL_EXPORT_C(void, Fl_Check_Button_draw_super)(fl_Check_Button o);+ FL_EXPORT_C(int, Fl_Check_Button_handle)(fl_Check_Button o, int event);+ FL_EXPORT_C(int, Fl_Check_Button_handle_super)(fl_Check_Button o, int 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_Check_Button_resize_super)(fl_Check_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Check_Button_show)(fl_Check_Button o);+ FL_EXPORT_C(void, Fl_Check_Button_show_super)(fl_Check_Button o);+ FL_EXPORT_C(void, Fl_Check_Button_hide)(fl_Check_Button o);+ FL_EXPORT_C(void, Fl_Check_Button_hide_super)(fl_Check_Button o);+ #ifdef __cplusplus } #endif
c-src/Fl_ChoiceC.cpp view
@@ -2,28 +2,82 @@ #include "UtilsC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Choice_handle )(fl_Choice choice, int event){- return (static_cast<Fl_Choice*>(choice))->handle(event);+ Fl_DerivedChoice::Fl_DerivedChoice(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Choice(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Choice_resize_super )(fl_Choice choice,int x, int y, int w, int h){- (static_cast<Fl_Choice*>(choice))->resize(x,y,w,h);+ Fl_DerivedChoice::Fl_DerivedChoice(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Choice(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Choice_resize )(fl_Choice choice,int x, int y, int w, int h){- (static_cast<Fl_Choice*>(choice))->resize(x,y,w,h);+ Fl_DerivedChoice::~Fl_DerivedChoice(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Choice_show_super)(fl_Choice choice){- (static_cast<Fl_Choice*>(choice))->show();+ void Fl_DerivedChoice::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Choice) this);+ }+ else {+ Fl_Choice::draw();+ } }- FL_EXPORT_C(void,Fl_Choice_show )(fl_Choice choice){- (static_cast<Fl_Choice*>(choice))->show();++ void Fl_DerivedChoice::draw_super(){+ Fl_Choice::draw(); }- FL_EXPORT_C(void,Fl_Choice_hide_super)(fl_Choice choice){- (static_cast<Fl_Choice*>(choice))->hide();++ int Fl_DerivedChoice::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Choice) this,event);+ }+ else {+ i = Fl_Choice::handle(event);+ }+ return i; }- FL_EXPORT_C(void,Fl_Choice_hide )(fl_Choice choice){- (static_cast<Fl_Choice*>(choice))->hide();+ int Fl_DerivedChoice::handle_super(int event){+ return Fl_Choice::handle(event); }++ void Fl_DerivedChoice::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Choice) this,x,y,w,h);+ }+ else {+ Fl_Choice::resize(x,y,w,h);+ }+ }++ void Fl_DerivedChoice::resize_super(int x, int y, int w, int h){+ Fl_Choice::resize(x,y,w,h);+ }+ void Fl_DerivedChoice::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Choice) this);+ }+ else {+ Fl_Choice::show();+ }+ }+ void Fl_DerivedChoice::show_super(){+ Fl_Choice::show();+ }++ void Fl_DerivedChoice::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Choice) this);+ }+ else {+ Fl_Choice::hide();+ }+ }+ void Fl_DerivedChoice::hide_super(){+ Fl_Choice::hide();+ }+++#endif FL_EXPORT_C(fl_Window,Fl_Choice_as_window_super)(fl_Choice choice){ return (static_cast<Fl_Choice*>(choice))->as_window(); }@@ -273,14 +327,6 @@ FL_EXPORT_C(void,Fl_Choice_measure_label)(fl_Choice choice,int* ww,int* hh){ (static_cast<Fl_Choice*>(choice))->measure_label(*ww,*hh); }- FL_EXPORT_C(fl_Choice, Fl_Choice_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Choice* choice = new Fl_Choice(x,y,w,h,label);- return (static_cast<fl_Choice>(choice));- }- FL_EXPORT_C(fl_Choice, Fl_Choice_New)(int x, int y, int w, int h) {- Fl_Choice* choice = new Fl_Choice(x,y,w,h);- return (static_cast<fl_Choice>(choice));- } FL_EXPORT_C(void, Fl_Choice_Destroy)(fl_Choice choice) { delete (static_cast<Fl_Choice*>(choice)); }@@ -439,6 +485,55 @@ FL_EXPORT_C(void,Fl_Choice_set_down_color)(fl_Choice choice,unsigned c){ (static_cast<Fl_Choice*>(choice))->down_color(c); }+ FL_EXPORT_C(fl_Choice, Fl_Choice_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedChoice* w = new Fl_DerivedChoice(X,Y,W,H,fs);+ return (fl_Choice)w;+ }+ FL_EXPORT_C(fl_Choice, Fl_Choice_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedChoice* w = new Fl_DerivedChoice(X,Y,W,H,label,fs);+ return (fl_Choice)w;+ }+ FL_EXPORT_C(fl_Choice, Fl_OverriddenChoice_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedChoice* w = new Fl_DerivedChoice(X,Y,W,H,fs);+ return (fl_Choice)w;+ }+ FL_EXPORT_C(fl_Choice, Fl_OverriddenChoice_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedChoice* w = new Fl_DerivedChoice(X,Y,W,H,label,fs);+ return (fl_Choice)w;+ }+ FL_EXPORT_C(void, Fl_Choice_draw)(fl_Choice o){+ (static_cast<Fl_DerivedChoice*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Choice_draw_super)(fl_Choice o){+ (static_cast<Fl_DerivedChoice*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Choice_handle)(fl_Choice o, int event){+ return (static_cast<Fl_DerivedChoice*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Choice_handle_super)(fl_Choice o, int event){+ return (static_cast<Fl_DerivedChoice*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Choice_resize)(fl_Choice o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedChoice*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Choice_resize_super)(fl_Choice o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedChoice*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Choice_show)(fl_Choice o){+ (static_cast<Fl_DerivedChoice*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Choice_show_super)(fl_Choice o){+ (static_cast<Fl_DerivedChoice*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Choice_hide)(fl_Choice o){+ (static_cast<Fl_DerivedChoice*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Choice_hide_super)(fl_Choice o){+ (static_cast<Fl_DerivedChoice*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_ChoiceC.h view
@@ -8,10 +8,28 @@ #include "FL/Fl_Choice.H" #include "Fl_CallbackC.h" #include "Fl_Menu_C.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedChoice : public Fl_Choice {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int, Fl_Choice_handle)(fl_Group self, int event); FL_EXPORT_C(fl_Group, Fl_Choice_parent)(fl_Choice choice); FL_EXPORT_C(void, Fl_Choice_set_parent)(fl_Choice choice, fl_Group grp); FL_EXPORT_C(uchar, Fl_Choice_type)(fl_Choice choice);@@ -60,10 +78,6 @@ FL_EXPORT_C(void, Fl_Choice_set_when)(fl_Choice choice, uchar i); FL_EXPORT_C(unsigned int, Fl_Choice_visible)(fl_Choice choice); FL_EXPORT_C(int, Fl_Choice_visible_r)(fl_Choice choice);- FL_EXPORT_C(void, Fl_Choice_show_super)(fl_Choice choice);- FL_EXPORT_C(void, Fl_Choice_show)(fl_Choice choice);- FL_EXPORT_C(void, Fl_Choice_hide_super)(fl_Choice choice);- FL_EXPORT_C(void, Fl_Choice_hide)(fl_Choice choice); FL_EXPORT_C(void, Fl_Choice_set_visible)(fl_Choice choice); FL_EXPORT_C(void, Fl_Choice_clear_visible)(fl_Choice choice); FL_EXPORT_C(unsigned int, Fl_Choice_active)(fl_Choice choice);@@ -105,7 +119,7 @@ FL_EXPORT_C(void, Fl_Choice_resize_super)(fl_Choice choice,int X, int Y, int W, int H); FL_EXPORT_C(void, Fl_Choice_resize)(fl_Choice choice,int X, int Y, int W, int H); - /* Fl_Choice specific */ + /* Fl_Choice specific */ FL_EXPORT_C(fl_Choice, Fl_Choice_New_WithLabel)(int x, int y, int w, int h, const char* label); FL_EXPORT_C(fl_Choice , Fl_Choice_New)(int x, int y, int w, int h); FL_EXPORT_C(void, Fl_Choice_Destroy)(fl_Choice choice);@@ -142,18 +156,18 @@ FL_EXPORT_C(int, Fl_Choice_add_with_shortcutname_user_data_flags)(fl_Choice choice, char* name, char* shortcut, fl_Callback* cb, void* user_data, int flags); FL_EXPORT_C(int, Fl_Choice_add_with_name)(fl_Choice choice, char* name); FL_EXPORT_C(int , Fl_Choice_size)(fl_Choice choice);- FL_EXPORT_C(void, Fl_Choice_set_size)(fl_Choice choice, int W, int H); + FL_EXPORT_C(void, Fl_Choice_set_size)(fl_Choice choice, int W, int H); FL_EXPORT_C(void, Fl_Choice_clear)(fl_Choice choice); FL_EXPORT_C(int, Fl_Choice_clear_submenu)(fl_Choice choice, int index); FL_EXPORT_C(void, Fl_Choice_replace)(fl_Choice choice, int, char* name); FL_EXPORT_C(void, Fl_Choice_remove)(fl_Choice choice, int);- FL_EXPORT_C(void, Fl_Choice_shortcut)(fl_Choice choice, int i, int s); - FL_EXPORT_C(void, Fl_Choice_set_mode)(fl_Choice choice, int i,int fl); - FL_EXPORT_C(int , Fl_Choice_mode)(fl_Choice choice, int i); + FL_EXPORT_C(void, Fl_Choice_shortcut)(fl_Choice choice, int i, int s);+ FL_EXPORT_C(void, Fl_Choice_set_mode)(fl_Choice choice, int i,int fl);+ FL_EXPORT_C(int , Fl_Choice_mode)(fl_Choice choice, int i); FL_EXPORT_C(fl_Menu_Item, Fl_Choice_mvalue)(fl_Choice choice); FL_EXPORT_C(int, Fl_Choice_value)(fl_Choice choice); FL_EXPORT_C(int, Fl_Choice_set_value_with_item)(fl_Choice choice, fl_Menu_Item item);- FL_EXPORT_C(int, Fl_Choice_set_value_with_index)(fl_Choice choice, int index); + FL_EXPORT_C(int, Fl_Choice_set_value_with_index)(fl_Choice choice, int index); FL_EXPORT_C(char*, Fl_Choice_text)(fl_Choice choice); FL_EXPORT_C(char*, Fl_Choice_text_with_index)(fl_Choice choice, int i); FL_EXPORT_C(Fl_Font, Fl_Choice_textfont)(fl_Choice choice);@@ -166,6 +180,19 @@ FL_EXPORT_C(void, Fl_Choice_set_down_box)(fl_Choice choice, Fl_Boxtype b); FL_EXPORT_C(Fl_Color, Fl_Choice_down_color)(fl_Choice choice); FL_EXPORT_C(void, Fl_Choice_set_down_color)(fl_Choice choice, unsigned c);+ FL_EXPORT_C(fl_Choice, Fl_OverriddenChoice_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Choice, Fl_OverriddenChoice_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Choice_draw)(fl_Choice o);+ FL_EXPORT_C(void, Fl_Choice_draw_super)(fl_Choice o);+ FL_EXPORT_C(int, Fl_Choice_handle)(fl_Choice o, int event);+ FL_EXPORT_C(int, Fl_Choice_handle_super)(fl_Choice o, int event);+ FL_EXPORT_C(void, Fl_Choice_resize)(fl_Choice o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Choice_resize_super)(fl_Choice o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Choice_show)(fl_Choice o);+ FL_EXPORT_C(void, Fl_Choice_show_super)(fl_Choice o);+ FL_EXPORT_C(void, Fl_Choice_hide)(fl_Choice o);+ FL_EXPORT_C(void, Fl_Choice_hide_super)(fl_Choice o);+ #ifdef __cplusplus } #endif
c-src/Fl_ClockC.cpp view
@@ -1,11 +1,82 @@ #include "Fl_ClockC.h"- #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Clock_handle)(fl_Clock self, int event){- return (static_cast<Fl_Clock*>(self))->handle(event);+ Fl_DerivedClock::Fl_DerivedClock(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Clock(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedClock::Fl_DerivedClock(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Clock(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedClock::~Fl_DerivedClock(){+ free(overriddenFuncs);+ }+ void Fl_DerivedClock::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Clock) this);+ }+ else {+ Fl_Clock::draw();+ }+ }++ void Fl_DerivedClock::draw_super(){+ Fl_Clock::draw();+ }++ int Fl_DerivedClock::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Clock) this,event);+ }+ else {+ i = Fl_Clock::handle(event);+ }+ return i;+ }+ int Fl_DerivedClock::handle_super(int event){+ return Fl_Clock::handle(event);+ }++ void Fl_DerivedClock::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Clock) this,x,y,w,h);+ }+ else {+ Fl_Clock::resize(x,y,w,h);+ }+ }++ void Fl_DerivedClock::resize_super(int x, int y, int w, int h){+ Fl_Clock::resize(x,y,w,h);+ }+ void Fl_DerivedClock::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Clock) this);+ }+ else {+ Fl_Clock::show();+ }+ }+ void Fl_DerivedClock::show_super(){+ Fl_Clock::show();+ }++ void Fl_DerivedClock::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Clock) this);+ }+ else {+ Fl_Clock::hide();+ }+ }+ void Fl_DerivedClock::hide_super(){+ Fl_Clock::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Clock_parent)(fl_Clock b){ return (fl_Group) (static_cast<Fl_Clock*>(b))->parent(); }@@ -266,14 +337,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Clock_as_gl_window)(fl_Clock clock){ return (fl_Gl_Window) (static_cast<Fl_Clock*>(clock))->as_gl_window(); }- FL_EXPORT_C(fl_Clock, Fl_Clock_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Clock* clock = new Fl_Clock(x,y,w,h,label);- return (static_cast<fl_Clock>(clock));- }- FL_EXPORT_C(fl_Clock, Fl_Clock_New)(int x, int y, int w, int h) {- Fl_Clock* clock = new Fl_Clock(x,y,w,h,0);- return (fl_Clock)clock;- } FL_EXPORT_C(fl_Clock, Fl_Clock_New_WithClockType)(uchar t, int x, int y, int w, int h, const char* label) { Fl_Clock* clock = new Fl_Clock(t,x,y,w,h,label); return (fl_Clock)clock;@@ -298,6 +361,54 @@ } FL_EXPORT_C(int,Fl_Clock_second)(fl_Clock clock){ return (static_cast<Fl_Clock*>(clock))->second();+ }+ FL_EXPORT_C(void, Fl_Clock_draw)(fl_Clock o){+ (static_cast<Fl_DerivedClock*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Clock_draw_super)(fl_Clock o){+ (static_cast<Fl_DerivedClock*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Clock_handle)(fl_Clock o, int event){+ return (static_cast<Fl_DerivedClock*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Clock_handle_super)(fl_Clock o, int event){+ return (static_cast<Fl_DerivedClock*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Clock_resize)(fl_Clock o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedClock*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Clock_resize_super)(fl_Clock o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedClock*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Clock_show)(fl_Clock o){+ (static_cast<Fl_DerivedClock*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Clock_show_super)(fl_Clock o){+ (static_cast<Fl_DerivedClock*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Clock_hide)(fl_Clock o){+ (static_cast<Fl_DerivedClock*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Clock_hide_super)(fl_Clock o){+ (static_cast<Fl_DerivedClock*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Clock, Fl_Clock_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedClock* w = new Fl_DerivedClock(X,Y,W,H,fs);+ return (fl_Clock)w;+ }+ FL_EXPORT_C(fl_Clock, Fl_Clock_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedClock* w = new Fl_DerivedClock(X,Y,W,H,label,fs);+ return (fl_Clock)w;+ }+ FL_EXPORT_C(fl_Clock, Fl_OverriddenClock_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedClock* w = new Fl_DerivedClock(X,Y,W,H,fs);+ return (fl_Clock)w;+ }+ FL_EXPORT_C(fl_Clock, Fl_OverriddenClock_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedClock* w = new Fl_DerivedClock(X,Y,W,H,label,fs);+ return (fl_Clock)w; } #ifdef __cplusplus }
c-src/Fl_ClockC.h view
@@ -7,14 +7,33 @@ #include "FL/Fl.H" #include "FL/Fl_Clock.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedClock : public Fl_Clock {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif #define FL_SQUARE_CLOCK 0 #define FL_ROUND_CLOCK 1 #define FL_ANALOG_CLOCK FL_SQUARE_CLOCK #define FL_DIGITAL_CLOCK FL_SQUARE_CLOCK /* Inherited from Fl_Widget */- FL_EXPORT_C(int,Fl_Clock_handle)(fl_Clock self, int event); FL_EXPORT_C(fl_Group, Fl_Clock_parent)(fl_Clock clock); FL_EXPORT_C(void, Fl_Clock_set_parent)(fl_Clock clock, fl_Group grp); FL_EXPORT_C(uchar, Fl_Clock_type)(fl_Clock clock);@@ -107,6 +126,19 @@ FL_EXPORT_C(int, Fl_Clock_hour)(fl_Clock clock); FL_EXPORT_C(int, Fl_Clock_minute)(fl_Clock clock); FL_EXPORT_C(int, Fl_Clock_second)(fl_Clock clock);+ FL_EXPORT_C(fl_Clock, Fl_OverriddenClock_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Clock, Fl_OverriddenClock_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Clock_draw)(fl_Clock o);+ FL_EXPORT_C(void, Fl_Clock_draw_super)(fl_Clock o);+ FL_EXPORT_C(int, Fl_Clock_handle)(fl_Clock o, int event);+ FL_EXPORT_C(int, Fl_Clock_handle_super)(fl_Clock o, int event);+ FL_EXPORT_C(void, Fl_Clock_resize)(fl_Clock o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Clock_resize_super)(fl_Clock o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Clock_show)(fl_Clock o);+ FL_EXPORT_C(void, Fl_Clock_show_super)(fl_Clock o);+ FL_EXPORT_C(void, Fl_Clock_hide)(fl_Clock o);+ FL_EXPORT_C(void, Fl_Clock_hide_super)(fl_Clock o);+ #ifdef __cplusplus } #endif
c-src/Fl_Color_ChooserC.cpp view
@@ -1,367 +1,453 @@ #include "Fl_Color_ChooserC.h" #ifdef __cplusplus EXPORT {+ Fl_DerivedColor_Chooser::Fl_DerivedColor_Chooser(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Color_Chooser(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedColor_Chooser::Fl_DerivedColor_Chooser(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Color_Chooser(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedColor_Chooser::~Fl_DerivedColor_Chooser(){+ free(overriddenFuncs);+ }+ void Fl_DerivedColor_Chooser::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Color_Chooser) this);+ }+ else {+ Fl_Color_Chooser::draw();+ }+ }++ void Fl_DerivedColor_Chooser::draw_super(){+ Fl_Color_Chooser::draw();+ }++ int Fl_DerivedColor_Chooser::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Color_Chooser) this,event);+ }+ else {+ i = Fl_Color_Chooser::handle(event);+ }+ return i;+ }+ int Fl_DerivedColor_Chooser::handle_super(int event){+ return Fl_Color_Chooser::handle(event);+ }++ void Fl_DerivedColor_Chooser::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Color_Chooser) this,x,y,w,h);+ }+ else {+ Fl_Color_Chooser::resize(x,y,w,h);+ }+ }++ void Fl_DerivedColor_Chooser::resize_super(int x, int y, int w, int h){+ Fl_Color_Chooser::resize(x,y,w,h);+ }+ void Fl_DerivedColor_Chooser::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Color_Chooser) this);+ }+ else {+ Fl_Color_Chooser::show();+ }+ }+ void Fl_DerivedColor_Chooser::show_super(){+ Fl_Color_Chooser::show();+ }++ void Fl_DerivedColor_Chooser::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Color_Chooser) this);+ }+ else {+ Fl_Color_Chooser::hide();+ }+ }+ void Fl_DerivedColor_Chooser::hide_super(){+ Fl_Color_Chooser::hide();+ }++ #endif FL_EXPORT_C(int,Fl_Color_Chooser_handle)(fl_Color_Chooser color_chooser, int event){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->handle(event);+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->handle(event); } FL_EXPORT_C(fl_Group,Fl_Color_Chooser_parent)(fl_Color_Chooser color_chooser){- return (fl_Group) (static_cast<Fl_Color_Chooser*>(color_chooser))->parent();+ return (fl_Group) (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->parent(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_parent)(fl_Color_Chooser color_chooser,fl_Group grp){- (static_cast<Fl_Color_Chooser*>(color_chooser))->parent((static_cast<Fl_Color_Chooser*>(grp)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->parent((static_cast<Fl_DerivedColor_Chooser*>(grp))); } FL_EXPORT_C(uchar,Fl_Color_Chooser_type)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->type();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->type(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_type)(fl_Color_Chooser color_chooser,uchar t){- (static_cast<Fl_Color_Chooser*>(color_chooser))->type(t);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->type(t); } FL_EXPORT_C(int,Fl_Color_Chooser_x)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->x();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->x(); } FL_EXPORT_C(int,Fl_Color_Chooser_y)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->y();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->y(); } FL_EXPORT_C(int,Fl_Color_Chooser_w)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->w();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->w(); } FL_EXPORT_C(int,Fl_Color_Chooser_h)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->h();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->h(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_align)(fl_Color_Chooser color_chooser, Fl_Align alignment){- (static_cast<Fl_Color_Chooser*>(color_chooser))->align(alignment);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->align(alignment); } FL_EXPORT_C(Fl_Align,Fl_Color_Chooser_align)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->align();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->align(); } FL_EXPORT_C(Fl_Boxtype,Fl_Color_Chooser_box)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->box();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->box(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_box)(fl_Color_Chooser color_chooser,Fl_Boxtype new_box){- (static_cast<Fl_Color_Chooser*>(color_chooser))->box((static_cast<Fl_Boxtype>(new_box)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->box((static_cast<Fl_Boxtype>(new_box))); } FL_EXPORT_C(Fl_Color,Fl_Color_Chooser_color)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->color();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->color(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_color)(fl_Color_Chooser color_chooser,Fl_Color bg){- (static_cast<Fl_Color_Chooser*>(color_chooser))->color(bg);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->color(bg); } FL_EXPORT_C(void,Fl_Color_Chooser_set_color_with_bg_sel)(fl_Color_Chooser color_chooser,Fl_Color bg,Fl_Color a){- (static_cast<Fl_Color_Chooser*>(color_chooser))->color(bg,a);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->color(bg,a); } FL_EXPORT_C(Fl_Color,Fl_Color_Chooser_selection_color)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->selection_color();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->selection_color(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_selection_color)(fl_Color_Chooser color_chooser,Fl_Color a){- (static_cast<Fl_Color_Chooser*>(color_chooser))->selection_color(a);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->selection_color(a); } FL_EXPORT_C(const char*,Fl_Color_Chooser_label)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->label();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->label(); } FL_EXPORT_C(void,Fl_Color_Chooser_copy_label)(fl_Color_Chooser color_chooser,const char* new_label){- (static_cast<Fl_Color_Chooser*>(color_chooser))->copy_label(new_label);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->copy_label(new_label); } FL_EXPORT_C(void,Fl_Color_Chooser_set_label)(fl_Color_Chooser color_chooser,const char* text){- (static_cast<Fl_Color_Chooser*>(color_chooser))->label(text);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->label(text); } FL_EXPORT_C(Fl_Labeltype,Fl_Color_Chooser_labeltype)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->labeltype();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labeltype(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_labeltype)(fl_Color_Chooser color_chooser,Fl_Labeltype a){- (static_cast<Fl_Color_Chooser*>(color_chooser))->labeltype(a);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labeltype(a); } FL_EXPORT_C(void,Fl_Color_Chooser_set_labelcolor)(fl_Color_Chooser color_chooser,Fl_Color c){- (static_cast<Fl_Color_Chooser*>(color_chooser))->labelcolor(c);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labelcolor(c); } FL_EXPORT_C(Fl_Font,Fl_Color_Chooser_labelfont)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->labelfont();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labelfont(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_labelfont)(fl_Color_Chooser color_chooser,Fl_Font c){- (static_cast<Fl_Color_Chooser*>(color_chooser))->labelfont((static_cast<Fl_Font>(c)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labelfont((static_cast<Fl_Font>(c))); } FL_EXPORT_C(Fl_Fontsize,Fl_Color_Chooser_labelsize)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->labelsize();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labelsize(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_labelsize)(fl_Color_Chooser color_chooser,Fl_Fontsize pix){- (static_cast<Fl_Color_Chooser*>(color_chooser))->labelsize((static_cast<Fl_Fontsize>(pix)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->labelsize((static_cast<Fl_Fontsize>(pix))); } FL_EXPORT_C(fl_Image,Fl_Color_Chooser_image)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->image();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->image(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_image)(fl_Color_Chooser color_chooser,fl_Image pix){- (static_cast<Fl_Color_Chooser*>(color_chooser))->image((static_cast<Fl_Image*>(pix)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->image((static_cast<Fl_Image*>(pix))); } FL_EXPORT_C(fl_Image,Fl_Color_Chooser_deimage)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->deimage();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->deimage(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_deimage)(fl_Color_Chooser color_chooser,fl_Image pix){- (static_cast<Fl_Color_Chooser*>(color_chooser))->deimage((static_cast<Fl_Image*>(pix)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->deimage((static_cast<Fl_Image*>(pix))); } FL_EXPORT_C(const char*,Fl_Color_Chooser_tooltip)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->tooltip();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->tooltip(); } FL_EXPORT_C(void,Fl_Color_Chooser_copy_tooltip)(fl_Color_Chooser color_chooser,const char* text){- (static_cast<Fl_Color_Chooser*>(color_chooser))->copy_tooltip(text);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->copy_tooltip(text); } FL_EXPORT_C(void,Fl_Color_Chooser_set_tooltip)(fl_Color_Chooser color_chooser,const char* text){- (static_cast<Fl_Color_Chooser*>(color_chooser))->tooltip(text);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->tooltip(text); } FL_EXPORT_C(void,Fl_Color_Chooser_set_callback_with_user_data)(fl_Color_Chooser color_chooser,fl_Callback* cb,void* p){- Fl_Color_Chooser* castedWindow = (static_cast<Fl_Color_Chooser*>(color_chooser));+ Fl_Color_Chooser* castedWindow = (static_cast<Fl_DerivedColor_Chooser*>(color_chooser)); new C_to_Fl_Callback(castedWindow, cb, p); } FL_EXPORT_C(void,Fl_Color_Chooser_set_callback)(fl_Color_Chooser color_chooser,fl_Callback* cb){- Fl_Color_Chooser* castedWindow = (static_cast<Fl_Color_Chooser*>(color_chooser));+ Fl_Color_Chooser* castedWindow = (static_cast<Fl_DerivedColor_Chooser*>(color_chooser)); new C_to_Fl_Callback(castedWindow, cb); } FL_EXPORT_C(void*,Fl_Color_Chooser_user_data)(fl_Color_Chooser color_chooser){- C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Color_Chooser*>(color_chooser))->user_data()));+ C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->user_data())); if(stored_cb){ return stored_cb->get_user_data(); } else {- return (static_cast<Fl_Color_Chooser*>(color_chooser))->user_data();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->user_data(); } } FL_EXPORT_C(void,Fl_Color_Chooser_set_user_data)(fl_Color_Chooser color_chooser,void* v){- C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_Color_Chooser*>(color_chooser))->user_data()));+ C_to_Fl_Callback* stored_cb = (static_cast<C_to_Fl_Callback*>((static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->user_data())); if (stored_cb) { stored_cb->set_user_data(v);- (static_cast<Fl_Color_Chooser*>(color_chooser))->user_data(stored_cb);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->user_data(stored_cb); } else {- (static_cast<Fl_Color_Chooser*>(color_chooser))->user_data(v);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->user_data(v); } } FL_EXPORT_C(long,Fl_Color_Chooser_argument)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->argument();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->argument(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_argument)(fl_Color_Chooser color_chooser,long v){- (static_cast<Fl_Color_Chooser*>(color_chooser))->argument(v);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->argument(v); } FL_EXPORT_C(Fl_When,Fl_Color_Chooser_when)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->when();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->when(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_when)(fl_Color_Chooser color_chooser,uchar i){- (static_cast<Fl_Color_Chooser*>(color_chooser))->when(i);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->when(i); } FL_EXPORT_C(unsigned int,Fl_Color_Chooser_visible)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->visible();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->visible(); } FL_EXPORT_C(int,Fl_Color_Chooser_visible_r)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->visible_r();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->visible_r(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_visible)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->visible();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->visible(); } FL_EXPORT_C(void,Fl_Color_Chooser_clear_visible)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear_visible();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear_visible(); } FL_EXPORT_C(unsigned int,Fl_Color_Chooser_active)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->active();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->active(); } FL_EXPORT_C(int,Fl_Color_Chooser_active_r)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->active_r();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->active_r(); } FL_EXPORT_C(void,Fl_Color_Chooser_activate)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->activate();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->activate(); } FL_EXPORT_C(void,Fl_Color_Chooser_deactivate)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->deactivate();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->deactivate(); } FL_EXPORT_C(unsigned int,Fl_Color_Chooser_output)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->output();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->output(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_output)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->output();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->output(); } FL_EXPORT_C(void,Fl_Color_Chooser_clear_output)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear_output();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear_output(); } FL_EXPORT_C(unsigned int,Fl_Color_Chooser_takesevents)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->takesevents();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->takesevents(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_changed)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->changed();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->changed(); } FL_EXPORT_C(void,Fl_Color_Chooser_clear_changed)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear_changed();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear_changed(); } FL_EXPORT_C(int,Fl_Color_Chooser_take_focus)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->take_focus();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->take_focus(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_visible_focus)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->set_visible_focus();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->set_visible_focus(); } FL_EXPORT_C(void,Fl_Color_Chooser_clear_visible_focus)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear_visible_focus();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear_visible_focus(); } FL_EXPORT_C(void,Fl_Color_Chooser_modify_visible_focus)(fl_Color_Chooser color_chooser,int v){- (static_cast<Fl_Color_Chooser*>(color_chooser))->visible_focus(v);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->visible_focus(v); } FL_EXPORT_C(unsigned int,Fl_Color_Chooser_visible_focus)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->visible_focus();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->visible_focus(); } FL_EXPORT_C(void,Fl_Color_Chooser_do_callback)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->do_callback();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->do_callback(); } FL_EXPORT_C(void,Fl_Color_Chooser_do_callback_with_widget_and_user_data)(fl_Color_Chooser color_chooser,fl_Widget w,long arg){- (static_cast<Fl_Color_Chooser*>(color_chooser))->do_callback((static_cast<Fl_Widget*>(w)),arg);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->do_callback((static_cast<Fl_Widget*>(w)),arg); } FL_EXPORT_C(void,Fl_Color_Chooser_do_callback_with_widget_and_default_user_data)(fl_Color_Chooser color_chooser,fl_Widget w){- (static_cast<Fl_Color_Chooser*>(color_chooser))->do_callback((static_cast<Fl_Widget*>(w)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->do_callback((static_cast<Fl_Widget*>(w))); } FL_EXPORT_C(int,Fl_Color_Chooser_contains)(fl_Color_Chooser color_chooser,fl_Widget w){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->contains((static_cast<Fl_Widget*>(w)));+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->contains((static_cast<Fl_Widget*>(w))); } FL_EXPORT_C(int,Fl_Color_Chooser_inside)(fl_Color_Chooser color_chooser,fl_Widget w){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->inside((static_cast<Fl_Widget*>(w)));+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->inside((static_cast<Fl_Widget*>(w))); } FL_EXPORT_C(void,Fl_Color_Chooser_redraw)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->redraw();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->redraw(); } FL_EXPORT_C(void,Fl_Color_Chooser_redraw_label)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->redraw_label();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->redraw_label(); } FL_EXPORT_C(uchar,Fl_Color_Chooser_damage)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->damage();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->damage(); } FL_EXPORT_C(void,Fl_Color_Chooser_clear_damage_with_bitmask)(fl_Color_Chooser color_chooser,uchar c){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear_damage(c);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear_damage(c); } FL_EXPORT_C(void,Fl_Color_Chooser_clear_damage)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear_damage();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear_damage(); } FL_EXPORT_C(void,Fl_Color_Chooser_damage_with_text)(fl_Color_Chooser color_chooser,uchar c){- (static_cast<Fl_Color_Chooser*>(color_chooser))->damage(c);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->damage(c); } FL_EXPORT_C(void,Fl_Color_Chooser_damage_inside_widget)(fl_Color_Chooser color_chooser,uchar c,int x,int y,int w,int h){- (static_cast<Fl_Color_Chooser*>(color_chooser))->damage(c,x,y,w,h);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->damage(c,x,y,w,h); } FL_EXPORT_C(void,Fl_Color_Chooser_draw_label_with_xywh_alignment)(fl_Color_Chooser color_chooser,int x,int y,int w,int h,Fl_Align alignment){- (static_cast<Fl_Color_Chooser*>(color_chooser))->draw_label(x,y,w,h,alignment);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->draw_label(x,y,w,h,alignment); } FL_EXPORT_C(void,Fl_Color_Chooser_measure_label)(fl_Color_Chooser color_chooser,int* ww,int* hh){- (static_cast<Fl_Color_Chooser*>(color_chooser))->measure_label(*ww,*hh);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->measure_label(*ww,*hh); } FL_EXPORT_C(fl_Window, Fl_Color_Chooser_window)(fl_Color_Chooser color_chooser){- return (fl_Window) (static_cast<Fl_Color_Chooser*>(color_chooser))->window();+ return (fl_Window) (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->window(); } FL_EXPORT_C(fl_Window, Fl_Color_Chooser_top_window)(fl_Color_Chooser color_chooser){- return (fl_Window) (static_cast<Fl_Color_Chooser*>(color_chooser))->top_window();+ return (fl_Window) (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->top_window(); } FL_EXPORT_C(fl_Window , Fl_Color_Chooser_top_window_offset)(fl_Color_Chooser color_chooser, int* xoff, int* yoff){- return (fl_Window) (static_cast<Fl_Color_Chooser*>(color_chooser))->top_window_offset(*xoff,*yoff);+ return (fl_Window) (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->top_window_offset(*xoff,*yoff); } FL_EXPORT_C(fl_Group,Fl_Color_Chooser_as_group)(fl_Color_Chooser color_chooser){- return (fl_Group) (static_cast<Fl_Color_Chooser*>(color_chooser))->as_group();+ return (fl_Group) (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->as_group(); } FL_EXPORT_C(fl_Gl_Window,Fl_Color_Chooser_as_gl_window)(fl_Color_Chooser color_chooser){- return (fl_Gl_Window) (static_cast<Fl_Color_Chooser*>(color_chooser))->as_gl_window();+ return (fl_Gl_Window) (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->as_gl_window(); } FL_EXPORT_C(void,Fl_Color_Chooser_begin)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->begin();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->begin(); } FL_EXPORT_C(void,Fl_Color_Chooser_end)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->end();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->end(); } FL_EXPORT_C(int,Fl_Color_Chooser_find)(fl_Color_Chooser color_chooser,fl_Widget w){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->find(static_cast<Fl_Widget*>(w));+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->find(static_cast<Fl_Widget*>(w)); } FL_EXPORT_C(void,Fl_Color_Chooser_add)(fl_Color_Chooser color_chooser,fl_Widget w){- (static_cast<Fl_Color_Chooser*>(color_chooser))->add((static_cast<Fl_Widget*>(w)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->add((static_cast<Fl_Widget*>(w))); } FL_EXPORT_C(void,Fl_Color_Chooser_insert)(fl_Color_Chooser color_chooser,fl_Widget w,int i){- (static_cast<Fl_Color_Chooser*>(color_chooser))->insert(*(static_cast<Fl_Widget*>(w)),i);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->insert(*(static_cast<Fl_Widget*>(w)),i); } FL_EXPORT_C(void,Fl_Color_Chooser_remove_index)(fl_Color_Chooser color_chooser,int index){- (static_cast<Fl_Color_Chooser*>(color_chooser))->remove(index);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->remove(index); } FL_EXPORT_C(void,Fl_Color_Chooser_remove_widget)(fl_Color_Chooser color_chooser,fl_Widget w){- (static_cast<Fl_Color_Chooser*>(color_chooser))->remove((static_cast<Fl_Widget*>(w)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->remove((static_cast<Fl_Widget*>(w))); } FL_EXPORT_C(void,Fl_Color_Chooser_clear)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->clear();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clear(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_resizable_by_reference)(fl_Color_Chooser color_chooser,fl_Widget o){- (static_cast<Fl_Color_Chooser*>(color_chooser))->resizable((static_cast<Fl_Widget*>(o)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->resizable((static_cast<Fl_Widget*>(o))); } FL_EXPORT_C(void,Fl_Color_Chooser_set_resizable)(fl_Color_Chooser color_chooser,fl_Widget o){- (static_cast<Fl_Color_Chooser*>(color_chooser))->resizable((static_cast<Fl_Widget*>(o)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->resizable((static_cast<Fl_Widget*>(o))); } FL_EXPORT_C(fl_Widget,Fl_Color_Chooser_resizable)(fl_Color_Chooser color_chooser){- return (fl_Widget)(static_cast<Fl_Color_Chooser*>(color_chooser))->resizable();+ return (fl_Widget)(static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->resizable(); } FL_EXPORT_C(void,Fl_Color_Chooser_add_resizable)(fl_Color_Chooser color_chooser,fl_Widget o){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->add_resizable(*(static_cast<Fl_Widget*>(o)));+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->add_resizable(*(static_cast<Fl_Widget*>(o))); } FL_EXPORT_C(void,Fl_Color_Chooser_init_sizes)(fl_Color_Chooser color_chooser){- (static_cast<Fl_Color_Chooser*>(color_chooser))->init_sizes();+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->init_sizes(); } FL_EXPORT_C(int,Fl_Color_Chooser_children)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->children();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->children(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_clip_children)(fl_Color_Chooser color_chooser,int c){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->clip_children(c);+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clip_children(c); } FL_EXPORT_C(unsigned int,Fl_Color_Chooser_clip_children)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->clip_children();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->clip_children(); } FL_EXPORT_C(void,Fl_Color_Chooser_focus)(fl_Color_Chooser color_chooser, fl_Widget W){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->focus((static_cast<Fl_Widget*>(W)));+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->focus((static_cast<Fl_Widget*>(W))); } FL_EXPORT_C(fl_Widget,Fl_Color_Chooser__ddfdesign_kludge)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->_ddfdesign_kludge();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->_ddfdesign_kludge(); } FL_EXPORT_C(void, Fl_Color_Chooser_insert_with_before)(fl_Color_Chooser color_chooser, fl_Widget w, fl_Widget before){- (static_cast<Fl_Color_Chooser*>(color_chooser))->insert(*(static_cast<Fl_Widget*>(w)),(static_cast<Fl_Widget*>(before)));+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->insert(*(static_cast<Fl_Widget*>(w)),(static_cast<Fl_Widget*>(before))); } FL_EXPORT_C(fl_Widget*, Fl_Color_Chooser_array)(fl_Color_Chooser color_chooser){- return (fl_Widget*)(static_cast<Fl_Color_Chooser*>(color_chooser))->array();+ return (fl_Widget*)(static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->array(); } FL_EXPORT_C(fl_Widget, Fl_Color_Chooser_child)(fl_Color_Chooser color_chooser, int n){- return (fl_Widget)(static_cast<Fl_Color_Chooser*>(color_chooser))->child(n);+ return (fl_Widget)(static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->child(n); }- FL_EXPORT_C(fl_Color_Chooser, Fl_Color_Chooser_New)(int x, int y, int w, int h){- Fl_Color_Chooser* g = new Fl_Color_Chooser(x,y,w,h);- return (fl_Color_Chooser)g;+ FL_EXPORT_C(fl_Color_Chooser, Fl_Color_Chooser_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedColor_Chooser* w = new Fl_DerivedColor_Chooser(X,Y,W,H,fs);+ return (fl_Color_Chooser)w; }- FL_EXPORT_C(fl_Color_Chooser, Fl_Color_Chooser_New_WithLabel)(int x, int y, int w, int h, const char* t){- Fl_Color_Chooser* g = new Fl_Color_Chooser(x,y,w,h,t);- return (fl_Color_Chooser)g;+ FL_EXPORT_C(fl_Color_Chooser, Fl_Color_Chooser_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedColor_Chooser* w = new Fl_DerivedColor_Chooser(X,Y,W,H,label,fs);+ return (fl_Color_Chooser)w; }+ FL_EXPORT_C(fl_Color_Chooser, Fl_OverriddenColor_Chooser_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedColor_Chooser* w = new Fl_DerivedColor_Chooser(X,Y,W,H,fs);+ return (fl_Color_Chooser)w;+ }+ FL_EXPORT_C(fl_Color_Chooser, Fl_OverriddenColor_Chooser_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedColor_Chooser* w = new Fl_DerivedColor_Chooser(X,Y,W,H,label,fs);+ return (fl_Color_Chooser)w;+ }+ FL_EXPORT_C(int,Fl_Color_Chooser_mode)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->mode();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->mode(); } FL_EXPORT_C(void,Fl_Color_Chooser_set_mode)(fl_Color_Chooser color_chooser,int newMode){- (static_cast<Fl_Color_Chooser*>(color_chooser))->mode(newMode);+ (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->mode(newMode); } FL_EXPORT_C(double,Fl_Color_Chooser_hue)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->hue();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->hue(); } FL_EXPORT_C(double,Fl_Color_Chooser_saturation)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->saturation();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->saturation(); } FL_EXPORT_C(double,Fl_Color_Chooser_value)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->value();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->value(); } FL_EXPORT_C(double,Fl_Color_Chooser_r)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->r();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->r(); } FL_EXPORT_C(double,Fl_Color_Chooser_g)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->g();+ return (static_cast<Fl_DerivedColor_Chooser*>(color_chooser))->g(); } FL_EXPORT_C(double,Fl_Color_Chooser_b)(fl_Color_Chooser color_chooser){- return (static_cast<Fl_Color_Chooser*>(color_chooser))->b();+ return (static_cast<Fl_DerivedColor_Chooser*>(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_Color_Chooser*>(color_chooser))->hsv(H,S,V);+ return (static_cast<Fl_DerivedColor_Chooser*>(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_Color_Chooser*>(color_chooser))->rgb(R,G,B);+ return (static_cast<Fl_DerivedColor_Chooser*>(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);@@ -380,6 +466,33 @@ } FL_EXPORT_C(int, flc_color_chooser_with_uchar_m)(const char* name, uchar* r, uchar* g, uchar* b, int m){ return fl_color_chooser(name,*r,*g,*b,m);+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_draw)(fl_Color_Chooser o){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_draw_super)(fl_Color_Chooser o){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Color_Chooser_handle_super)(fl_Color_Chooser o, int event){+ return (static_cast<Fl_DerivedColor_Chooser*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_resize)(fl_Color_Chooser o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_resize_super)(fl_Color_Chooser o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_show)(fl_Color_Chooser o){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_show_super)(fl_Color_Chooser o){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_hide)(fl_Color_Chooser o){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Color_Chooser_hide_super)(fl_Color_Chooser o){+ (static_cast<Fl_DerivedColor_Chooser*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_Color_ChooserC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Color_Chooser.H" #include "Fl_CallbackC.h"+#include "Fl_GroupC.h" EXPORT {+ class Fl_DerivedColor_Chooser : public Fl_Color_Chooser {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ Fl_DerivedColor_Chooser(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);+ Fl_DerivedColor_Chooser(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);+ ~Fl_DerivedColor_Chooser();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int, Fl_Color_Chooser_handle)(fl_Color_Chooser color_chooser, int event);@@ -139,9 +158,26 @@ FL_EXPORT_C(fl_Color_Chooser,Fl_Color_Chooser_New)(int x, int y, int w, int h); FL_EXPORT_C(fl_Color_Chooser,Fl_Color_Chooser_New_WithLabel)(int x, int y, int w, int h, const char* t); FL_EXPORT_C(int, flc_color_chooser)(const char* name, double* r, double* g, double* b);+ FL_EXPORT_C(fl_Color_Chooser, Fl_Color_Chooser_New)(int X, int Y, int W, int H);+ FL_EXPORT_C(fl_Color_Chooser, Fl_Color_Chooser_New_WithLabel)(int X, int Y, int W, int H, const char* label);+ FL_EXPORT_C(fl_Color_Chooser, Fl_OverriddenColor_Chooser_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Color_Chooser, Fl_OverriddenColor_Chooser_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(int, flc_color_chooser_with_m)(const char* name, double* r, double* g, double* b, int m); FL_EXPORT_C(int, flc_color_chooser_with_uchar)(const char* name, uchar* r, uchar* g, uchar* b); FL_EXPORT_C(int, flc_color_chooser_with_uchar_m)(const char* name, uchar* r, uchar* g, uchar* b, int m);+ FL_EXPORT_C(void, Fl_Color_Chooser_draw)(fl_Color_Chooser o);+ FL_EXPORT_C(void, Fl_Color_Chooser_draw_super)(fl_Color_Chooser o);+ FL_EXPORT_C(int, Fl_Color_Chooser_handle)(fl_Color_Chooser o, int event);+ FL_EXPORT_C(int, Fl_Color_Chooser_handle_super)(fl_Color_Chooser o, int event);+ FL_EXPORT_C(void, Fl_Color_Chooser_resize)(fl_Color_Chooser o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Color_Chooser_resize_super)(fl_Color_Chooser o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Color_Chooser_show)(fl_Color_Chooser o);+ FL_EXPORT_C(void, Fl_Color_Chooser_show_super)(fl_Color_Chooser o);+ FL_EXPORT_C(void, Fl_Color_Chooser_hide)(fl_Color_Chooser o);+ FL_EXPORT_C(void, Fl_Color_Chooser_hide_super)(fl_Color_Chooser o);++ #ifdef __cplusplus } #endif
c-src/Fl_CounterC.cpp view
@@ -1,7 +1,82 @@ #include "Fl_CounterC.h" #ifdef __cplusplus EXPORT {-#endif + Fl_DerivedCounter::Fl_DerivedCounter(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Counter(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedCounter::Fl_DerivedCounter(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Counter(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedCounter::~Fl_DerivedCounter(){+ free(overriddenFuncs);+ }+ void Fl_DerivedCounter::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Counter) this);+ }+ else {+ Fl_Counter::draw();+ }+ }++ void Fl_DerivedCounter::draw_super(){+ Fl_Counter::draw();+ }++ int Fl_DerivedCounter::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Counter) this,event);+ }+ else {+ i = Fl_Counter::handle(event);+ }+ return i;+ }+ int Fl_DerivedCounter::handle_super(int event){+ return Fl_Counter::handle(event);+ }++ void Fl_DerivedCounter::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Counter) this,x,y,w,h);+ }+ else {+ Fl_Counter::resize(x,y,w,h);+ }+ }++ void Fl_DerivedCounter::resize_super(int x, int y, int w, int h){+ Fl_Counter::resize(x,y,w,h);+ }+ void Fl_DerivedCounter::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Counter) this);+ }+ else {+ Fl_Counter::show();+ }+ }+ void Fl_DerivedCounter::show_super(){+ Fl_Counter::show();+ }++ void Fl_DerivedCounter::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Counter) this);+ }+ else {+ Fl_Counter::hide();+ }+ }+ void Fl_DerivedCounter::hide_super(){+ Fl_Counter::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Counter_parent)(fl_Counter counter){ return (static_cast<Fl_Counter*>(counter))->parent(); }@@ -152,12 +227,6 @@ FL_EXPORT_C(int,Fl_Counter_visible_r)(fl_Counter counter){ return (static_cast<Fl_Counter*>(counter))->visible_r(); }- FL_EXPORT_C(void,Fl_Counter_show)(fl_Counter counter){- (static_cast<Fl_Counter*>(counter))->show();- }- FL_EXPORT_C(void,Fl_Counter_hide)(fl_Counter counter){- (static_cast<Fl_Counter*>(counter))->hide();- } FL_EXPORT_C(void,Fl_Counter_set_visible)(fl_Counter counter){ (static_cast<Fl_Counter*>(counter))->visible(); }@@ -254,9 +323,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Counter_as_gl_window)(fl_Counter counter){ return (static_cast<Fl_Counter*>(counter))->as_gl_window(); }- FL_EXPORT_C(void,Fl_Counter_resize)(fl_Counter counter,int X,int Y,int W,int H){- (static_cast<Fl_Counter*>(counter))->resize(X,Y,W,H);- } FL_EXPORT_C(void,Fl_Counter_bounds)(fl_Counter counter,double a,double b){ (static_cast<Fl_Counter*>(counter))->bounds(a,b); }@@ -308,14 +374,6 @@ FL_EXPORT_C(double,Fl_Counter_increment)(fl_Counter counter,double v,int n){ return (static_cast<Fl_Counter*>(counter))->increment(v,n); }- FL_EXPORT_C(fl_Counter,Fl_Counter_New_WithLabel)(int x,int y,int w,int h,const char* label){- Fl_Counter* counter = new Fl_Counter(x,y,w,h,label);- return (fl_Counter) counter;- }- FL_EXPORT_C(fl_Counter,Fl_Counter_New)(int x,int y,int w,int h){- Fl_Counter* counter = new Fl_Counter(x,y,w,h);- return (fl_Counter) counter;- } FL_EXPORT_C(fl_Simple_Counter,Fl_Simple_Counter_New_WithLabel)(int x,int y,int w,int h,const char* label){ Fl_Simple_Counter* simple_counter = new Fl_Simple_Counter(x,y,w,h,label); return (fl_Simple_Counter) simple_counter;@@ -345,12 +403,57 @@ FL_EXPORT_C(Fl_Color,Fl_Counter_textcolor)(fl_Counter counter){ return (static_cast<Fl_Counter*>(counter))->textcolor(); }- FL_EXPORT_C(int,Fl_Counter_handle)(fl_Counter counter,int event){- return (static_cast<Fl_Counter*>(counter))->handle(event);- } FL_EXPORT_C(void,Fl_Counter_lstep)(fl_Counter counter,double lstep){ (static_cast<Fl_Counter*>(counter))->lstep(lstep); }+ FL_EXPORT_C(void, Fl_Counter_draw)(fl_Counter o){+ (static_cast<Fl_DerivedCounter*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Counter_draw_super)(fl_Counter o){+ (static_cast<Fl_DerivedCounter*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Counter_handle)(fl_Counter o, int event){+ return (static_cast<Fl_DerivedCounter*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Counter_handle_super)(fl_Counter o, int event){+ return (static_cast<Fl_DerivedCounter*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Counter_resize)(fl_Counter o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedCounter*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Counter_resize_super)(fl_Counter o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedCounter*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Counter_show)(fl_Counter o){+ (static_cast<Fl_DerivedCounter*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Counter_show_super)(fl_Counter o){+ (static_cast<Fl_DerivedCounter*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Counter_hide)(fl_Counter o){+ (static_cast<Fl_DerivedCounter*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Counter_hide_super)(fl_Counter o){+ (static_cast<Fl_DerivedCounter*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Counter, Fl_Counter_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedCounter* w = new Fl_DerivedCounter(X,Y,W,H,fs);+ return (fl_Counter)w;+ }+ FL_EXPORT_C(fl_Counter, Fl_Counter_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedCounter* w = new Fl_DerivedCounter(X,Y,W,H,label,fs);+ return (fl_Counter)w;+ }+ FL_EXPORT_C(fl_Counter, Fl_OverriddenCounter_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedCounter* w = new Fl_DerivedCounter(X,Y,W,H,fs);+ return (fl_Counter)w;+ }+ FL_EXPORT_C(fl_Counter, Fl_OverriddenCounter_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedCounter* w = new Fl_DerivedCounter(X,Y,W,H,label,fs);+ return (fl_Counter)w;+ } #ifdef __cplusplus }-#endif +#endif
c-src/Fl_CounterC.h view
@@ -8,7 +8,26 @@ #include "FL/Fl_Counter.H" #include "FL/Fl_Simple_Counter.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedCounter : public Fl_Counter {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif #ifndef INTERNAL_LINKAGE typedef enum Counter_Type {@@ -133,6 +152,19 @@ FL_EXPORT_C(Fl_Fontsize, Fl_Counter_textsize)(fl_Counter counter); FL_EXPORT_C(void, Fl_Counter_set_textcolor)(fl_Counter counter, Fl_Color text); FL_EXPORT_C(Fl_Color, Fl_Counter_textcolor)(fl_Counter counter);+ FL_EXPORT_C(fl_Counter, Fl_OverriddenCounter_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Counter, Fl_OverriddenCounter_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Counter_draw)(fl_Counter o);+ FL_EXPORT_C(void, Fl_Counter_draw_super)(fl_Counter o);+ FL_EXPORT_C(int, Fl_Counter_handle)(fl_Counter o, int event);+ FL_EXPORT_C(int, Fl_Counter_handle_super)(fl_Counter o, int event);+ FL_EXPORT_C(void, Fl_Counter_resize)(fl_Counter o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Counter_resize_super)(fl_Counter o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Counter_show)(fl_Counter o);+ FL_EXPORT_C(void, Fl_Counter_show_super)(fl_Counter o);+ FL_EXPORT_C(void, Fl_Counter_hide)(fl_Counter o);+ FL_EXPORT_C(void, Fl_Counter_hide_super)(fl_Counter o);+ #ifdef __cplusplus } #endif
c-src/Fl_DialC.cpp view
@@ -1,7 +1,80 @@ #include "Fl_DialC.h" #ifdef __cplusplus EXPORT {-#endif + Fl_DerivedDial::Fl_DerivedDial(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Dial(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedDial::Fl_DerivedDial(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Dial(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedDial::~Fl_DerivedDial(){+ free(overriddenFuncs);+ }+ void Fl_DerivedDial::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Dial) this);+ }+ else {+ Fl_Dial::draw();+ }+ }++ void Fl_DerivedDial::draw_super(){+ Fl_Dial::draw();+ }++ int Fl_DerivedDial::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Dial) this,event);+ }+ else {+ i = Fl_Dial::handle(event);+ }+ return i;+ }+ int Fl_DerivedDial::handle_super(int event){+ return Fl_Dial::handle(event);+ }++ void Fl_DerivedDial::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Dial) this,x,y,w,h);+ }+ else {+ Fl_Dial::resize(x,y,w,h);+ }+ }++ void Fl_DerivedDial::resize_super(int x, int y, int w, int h){+ Fl_Dial::resize(x,y,w,h);+ }+ void Fl_DerivedDial::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Dial) this);+ }+ else {+ Fl_Dial::show();+ }+ }+ void Fl_DerivedDial::show_super(){+ Fl_Dial::show();+ }++ void Fl_DerivedDial::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Dial) this);+ }+ else {+ Fl_Dial::hide();+ }+ }+ void Fl_DerivedDial::hide_super(){+ Fl_Dial::hide();+ }+#endif FL_EXPORT_C(fl_Group,Fl_Dial_parent)(fl_Dial dial){ return (static_cast<Fl_Dial*>(dial))->parent(); }@@ -152,12 +225,6 @@ FL_EXPORT_C(int,Fl_Dial_visible_r)(fl_Dial dial){ return (static_cast<Fl_Dial*>(dial))->visible_r(); }- FL_EXPORT_C(void,Fl_Dial_show)(fl_Dial dial){- (static_cast<Fl_Dial*>(dial))->show();- }- FL_EXPORT_C(void,Fl_Dial_hide)(fl_Dial dial){- (static_cast<Fl_Dial*>(dial))->hide();- } FL_EXPORT_C(void,Fl_Dial_set_visible)(fl_Dial dial){ (static_cast<Fl_Dial*>(dial))->visible(); }@@ -254,9 +321,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Dial_as_gl_window)(fl_Dial dial){ return (static_cast<Fl_Dial*>(dial))->as_gl_window(); }- FL_EXPORT_C(void,Fl_Dial_resize)(fl_Dial dial,int X,int Y,int W,int H){- (static_cast<Fl_Dial*>(dial))->resize(X,Y,W,H);- } FL_EXPORT_C(void,Fl_Dial_bounds)(fl_Dial dial,double a,double b){ (static_cast<Fl_Dial*>(dial))->bounds(a,b); }@@ -308,14 +372,6 @@ FL_EXPORT_C(double,Fl_Dial_increment)(fl_Dial dial,double v,int n){ return (static_cast<Fl_Dial*>(dial))->increment(v,n); }- FL_EXPORT_C(fl_Dial,Fl_Dial_New_WithLabel)(int x,int y,int w,int h,const char* label){- Fl_Dial* dial = new Fl_Dial(x,y,w,h,label);- return (fl_Dial) dial;- }- FL_EXPORT_C(fl_Dial,Fl_Dial_New)(int x,int y,int w,int h){- Fl_Dial* dial = new Fl_Dial(x,y,w,h);- return (fl_Dial) dial;- } FL_EXPORT_C(fl_Fill_Dial,Fl_Fill_Dial_New)(int x,int y,int w,int h,const char* label){ Fl_Fill_Dial* dial = new Fl_Fill_Dial(x,y,w,h,label); return (fl_Fill_Dial) dial;@@ -343,9 +399,54 @@ FL_EXPORT_C(short,Fl_Dial_angle2)(fl_Dial dial){ return (static_cast<Fl_Dial*>(dial))->angle2(); }- FL_EXPORT_C(int,Fl_Dial_handle)(fl_Dial dial,int event){- return (static_cast<Fl_Dial*>(dial))->handle(event);+ FL_EXPORT_C(void, Fl_Dial_draw)(fl_Dial o){+ (static_cast<Fl_DerivedDial*>(o))->draw(); }+ FL_EXPORT_C(void, Fl_Dial_draw_super)(fl_Dial o){+ (static_cast<Fl_DerivedDial*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Dial_handle)(fl_Dial o, int event){+ return (static_cast<Fl_DerivedDial*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Dial_handle_super)(fl_Dial o, int event){+ return (static_cast<Fl_DerivedDial*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Dial_resize)(fl_Dial o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedDial*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Dial_resize_super)(fl_Dial o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedDial*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Dial_show)(fl_Dial o){+ (static_cast<Fl_DerivedDial*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Dial_show_super)(fl_Dial o){+ (static_cast<Fl_DerivedDial*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Dial_hide)(fl_Dial o){+ (static_cast<Fl_DerivedDial*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Dial_hide_super)(fl_Dial o){+ (static_cast<Fl_DerivedDial*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Dial, Fl_Dial_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedDial* w = new Fl_DerivedDial(X,Y,W,H,fs);+ return (fl_Dial)w;+ }+ FL_EXPORT_C(fl_Dial, Fl_Dial_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedDial* w = new Fl_DerivedDial(X,Y,W,H,label,fs);+ return (fl_Dial)w;+ }+ FL_EXPORT_C(fl_Dial, Fl_OverriddenDial_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedDial* w = new Fl_DerivedDial(X,Y,W,H,fs);+ return (fl_Dial)w;+ }+ FL_EXPORT_C(fl_Dial, Fl_OverriddenDial_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedDial* w = new Fl_DerivedDial(X,Y,W,H,label,fs);+ return (fl_Dial)w;+ } #ifdef __cplusplus }-#endif +#endif
c-src/Fl_DialC.h view
@@ -9,7 +9,26 @@ #include "FL/Fl_Fill_Dial.H" #include "FL/Fl_Line_Dial.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedDial : public Fl_Dial {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif #ifndef INTERNAL_LINKAGE typedef enum Dial_Type {@@ -134,6 +153,18 @@ FL_EXPORT_C(short, Fl_Dial_angle1)(fl_Dial dial); FL_EXPORT_C(short, Fl_Dial_angle2)(fl_Dial dial); FL_EXPORT_C(int, Fl_Dial_handle)(fl_Dial dial, int event);+ FL_EXPORT_C(fl_Dial, Fl_OverriddenDial_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Dial, Fl_OverriddenDial_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Dial_draw)(fl_Dial o);+ FL_EXPORT_C(void, Fl_Dial_draw_super)(fl_Dial o);+ FL_EXPORT_C(int, Fl_Dial_handle)(fl_Dial o, int event);+ FL_EXPORT_C(int, Fl_Dial_handle_super)(fl_Dial o, int event);+ FL_EXPORT_C(void, Fl_Dial_resize)(fl_Dial o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Dial_resize_super)(fl_Dial o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Dial_show)(fl_Dial o);+ FL_EXPORT_C(void, Fl_Dial_show_super)(fl_Dial o);+ FL_EXPORT_C(void, Fl_Dial_hide)(fl_Dial o);+ FL_EXPORT_C(void, Fl_Dial_hide_super)(fl_Dial o); #ifdef __cplusplus } #endif
c-src/Fl_File_BrowserC.cpp view
@@ -1,10 +1,82 @@ #include "Fl_File_BrowserC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_File_Browser_handle)(fl_File_Browser self, int event){- return (static_cast<Fl_File_Browser*>(self))->handle(event);+ Fl_DerivedFile_Browser::Fl_DerivedFile_Browser(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_File_Browser(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedFile_Browser::Fl_DerivedFile_Browser(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_File_Browser(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedFile_Browser::~Fl_DerivedFile_Browser(){+ free(overriddenFuncs);+ }+ void Fl_DerivedFile_Browser::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_File_Browser) this);+ }+ else {+ Fl_File_Browser::draw();+ }+ }++ void Fl_DerivedFile_Browser::draw_super(){+ Fl_File_Browser::draw();+ }++ int Fl_DerivedFile_Browser::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_File_Browser) this,event);+ }+ else {+ i = Fl_File_Browser::handle(event);+ }+ return i;+ }+ int Fl_DerivedFile_Browser::handle_super(int event){+ return Fl_File_Browser::handle(event);+ }++ void Fl_DerivedFile_Browser::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_File_Browser) this,x,y,w,h);+ }+ else {+ Fl_File_Browser::resize(x,y,w,h);+ }+ }++ void Fl_DerivedFile_Browser::resize_super(int x, int y, int w, int h){+ Fl_File_Browser::resize(x,y,w,h);+ }+ void Fl_DerivedFile_Browser::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_File_Browser) this);+ }+ else {+ Fl_File_Browser::show();+ }+ }+ void Fl_DerivedFile_Browser::show_super(){+ Fl_File_Browser::show();+ }++ void Fl_DerivedFile_Browser::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_File_Browser) this);+ }+ else {+ Fl_File_Browser::hide();+ }+ }+ void Fl_DerivedFile_Browser::hide_super(){+ Fl_File_Browser::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_File_Browser_parent)(fl_File_Browser file_browser){ return (fl_Group) (static_cast<Fl_File_Browser*>(file_browser))->parent(); }@@ -153,12 +225,6 @@ FL_EXPORT_C(int,Fl_File_Browser_visible_r)(fl_File_Browser file_browser){ return (static_cast<Fl_File_Browser*>(file_browser))->visible_r(); }- FL_EXPORT_C(void,Fl_File_Browser_show_super)(fl_File_Browser file_browser){- return (static_cast<Fl_File_Browser*>(file_browser))->show();- }- FL_EXPORT_C(void,Fl_File_Browser_hide_super)(fl_File_Browser file_browser){- return (static_cast<Fl_File_Browser*>(file_browser))->hide();- } FL_EXPORT_C(void,Fl_File_Browser_clear_visible)(fl_File_Browser file_browser){ (static_cast<Fl_File_Browser*>(file_browser))->clear_visible(); }@@ -285,18 +351,6 @@ FL_EXPORT_C(fl_Widget,Fl_File_Browser__ddfdesign_kludge)(fl_File_Browser file_browser){ return (static_cast<Fl_File_Browser*>(file_browser))->_ddfdesign_kludge(); }- // FL_EXPORT_C(void,Fl_File_Browser_forms_end)(fl_File_Browser self){- // (static_cast<Fl_File_Browser*>(self))->forms_end();- // }-- FL_EXPORT_C(fl_File_Browser, Fl_File_Browser_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_File_Browser* file_browser = new Fl_File_Browser(x,y,w,h,label);- return (static_cast<fl_File_Browser>(file_browser));- }- FL_EXPORT_C(fl_File_Browser, Fl_File_Browser_New)(int x, int y, int w, int h) {- Fl_File_Browser* file_browser = new Fl_File_Browser(x,y,w,h,0);- return (fl_File_Browser)file_browser;- } FL_EXPORT_C(void,Fl_File_Browser_Destroy)(fl_File_Browser file_browser){ delete (static_cast<Fl_File_Browser*>(file_browser)); }@@ -361,15 +415,9 @@ FL_EXPORT_C(void,Fl_File_Browser_show_with_line)(fl_File_Browser file_browser,int line){ (static_cast<Fl_File_Browser*>(file_browser))->show(line); }- FL_EXPORT_C(void,Fl_File_Browser_show)(fl_File_Browser file_browser){- (static_cast<Fl_File_Browser*>(file_browser))->show();- } FL_EXPORT_C(void,Fl_File_Browser_hide_with_line)(fl_File_Browser file_browser,int line){ (static_cast<Fl_File_Browser*>(file_browser))->hide(line); }- FL_EXPORT_C(void,Fl_File_Browser_hide)(fl_File_Browser file_browser){- (static_cast<Fl_File_Browser*>(file_browser))->hide();- } FL_EXPORT_C(int,Fl_File_Browser_visible)(fl_File_Browser file_browser,int line){ return (static_cast<Fl_File_Browser*>(file_browser))->visible(line); }@@ -516,6 +564,36 @@ } FL_EXPORT_C(void,Fl_File_Browser_set_filetype)(fl_File_Browser file_browser,int t){ (static_cast<Fl_File_Browser*>(file_browser))->filetype(t);+ }+ FL_EXPORT_C(void, Fl_File_Browser_draw)(fl_File_Browser o){+ (static_cast<Fl_DerivedFile_Browser*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_File_Browser_draw_super)(fl_File_Browser o){+ (static_cast<Fl_DerivedFile_Browser*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_File_Browser_handle)(fl_File_Browser o, int event){+ return (static_cast<Fl_DerivedFile_Browser*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_File_Browser_handle_super)(fl_File_Browser o, int event){+ return (static_cast<Fl_DerivedFile_Browser*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_File_Browser_resize)(fl_File_Browser o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedFile_Browser*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_File_Browser_resize_super)(fl_File_Browser o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedFile_Browser*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_File_Browser_show)(fl_File_Browser o){+ (static_cast<Fl_DerivedFile_Browser*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_File_Browser_show_super)(fl_File_Browser o){+ (static_cast<Fl_DerivedFile_Browser*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_File_Browser_hide)(fl_File_Browser o){+ (static_cast<Fl_DerivedFile_Browser*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_File_Browser_hide_super)(fl_File_Browser o){+ (static_cast<Fl_DerivedFile_Browser*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_File_BrowserC.h view
@@ -6,7 +6,26 @@ // the callback mechanism included below to work. #include "FL/Fl.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedFile_Browser : public Fl_File_Browser {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif #include "filenameC.h" @@ -18,14 +37,6 @@ #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int , Fl_File_Browser_handle_super)(fl_File_Browser file_browser,int event);- FL_EXPORT_C(int , Fl_File_Browser_handle )(fl_File_Browser file_browser,int event);- FL_EXPORT_C(void, Fl_File_Browser_resize_super)(fl_File_Browser file_browser,int x, int y, int w, int h);- FL_EXPORT_C(void, Fl_File_Browser_resize )(fl_File_Browser file_browser,int x, int y, int w, int h);- FL_EXPORT_C(void, Fl_File_Browser_show_super)(fl_File_Browser file_browser);- FL_EXPORT_C(void, Fl_File_Browser_show )(fl_File_Browser file_browser);- FL_EXPORT_C(void, Fl_File_Browser_hide_super)(fl_File_Browser file_browser);- FL_EXPORT_C(void, Fl_File_Browser_hide )(fl_File_Browser file_browser); FL_EXPORT_C(fl_Window, Fl_File_Browser_as_window_super)(fl_File_Browser file_browser); FL_EXPORT_C(fl_Window, Fl_File_Browser_as_window )(fl_File_Browser file_browser); FL_EXPORT_C(fl_Gl_Window, Fl_File_Browser_as_gl_window_super)(fl_File_Browser file_browser);@@ -208,6 +219,19 @@ FL_EXPORT_C(int, Fl_File_Browser_load)(fl_File_Browser file_browser,const char *directory, Fl_File_Sort_F* sort); FL_EXPORT_C(int, Fl_File_Browser_filetype)(fl_File_Browser file_browser); FL_EXPORT_C(void, Fl_File_Browser_set_filetype)(fl_File_Browser file_browser,int t);+ FL_EXPORT_C(fl_File_Browser, Fl_OverriddenFile_Browser_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_File_Browser, Fl_OverriddenFile_Browser_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_File_Browser_draw)(fl_File_Browser o);+ FL_EXPORT_C(void, Fl_File_Browser_draw_super)(fl_File_Browser o);+ FL_EXPORT_C(int, Fl_File_Browser_handle)(fl_File_Browser o, int event);+ FL_EXPORT_C(int, Fl_File_Browser_handle_super)(fl_File_Browser o, int event);+ FL_EXPORT_C(void, Fl_File_Browser_resize)(fl_File_Browser o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_File_Browser_resize_super)(fl_File_Browser o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_File_Browser_show)(fl_File_Browser o);+ FL_EXPORT_C(void, Fl_File_Browser_show_super)(fl_File_Browser o);+ FL_EXPORT_C(void, Fl_File_Browser_hide)(fl_File_Browser o);+ FL_EXPORT_C(void, Fl_File_Browser_hide_super)(fl_File_Browser o);+ #ifdef __cplusplus } #endif
c-src/Fl_File_InputC.cpp view
@@ -2,11 +2,81 @@ #ifdef __cplusplus EXPORT {+ Fl_DerivedFile_Input::Fl_DerivedFile_Input(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_File_Input(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedFile_Input::Fl_DerivedFile_Input(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_File_Input(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedFile_Input::~Fl_DerivedFile_Input(){+ free(overriddenFuncs);+ }+ void Fl_DerivedFile_Input::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_File_Input) this);+ }+ else {+ Fl_File_Input::draw();+ }+ }++ void Fl_DerivedFile_Input::draw_super(){+ Fl_File_Input::draw();+ }++ int Fl_DerivedFile_Input::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_File_Input) this,event);+ }+ else {+ i = Fl_File_Input::handle(event);+ }+ return i;+ }+ int Fl_DerivedFile_Input::handle_super(int event){+ return Fl_File_Input::handle(event);+ }++ void Fl_DerivedFile_Input::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_File_Input) this,x,y,w,h);+ }+ else {+ Fl_File_Input::resize(x,y,w,h);+ }+ }++ void Fl_DerivedFile_Input::resize_super(int x, int y, int w, int h){+ Fl_File_Input::resize(x,y,w,h);+ }+ void Fl_DerivedFile_Input::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_File_Input) this);+ }+ else {+ Fl_File_Input::show();+ }+ }+ void Fl_DerivedFile_Input::show_super(){+ Fl_File_Input::show();+ }++ void Fl_DerivedFile_Input::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_File_Input) this);+ }+ else {+ Fl_File_Input::hide();+ }+ }+ void Fl_DerivedFile_Input::hide_super(){+ Fl_File_Input::hide();+ } #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int,Fl_File_Input_handle)(fl_File_Input self, int event){- return (static_cast<Fl_File_Input*>(self))->handle(event);- } FL_EXPORT_C(fl_Group,Fl_File_Input_parent)(fl_File_Input file_input){ return (fl_Group) (static_cast<Fl_File_Input*>(file_input))->parent(); }@@ -267,20 +337,9 @@ return (fl_Gl_Window) (static_cast<Fl_File_Input*>(file_input))->as_gl_window(); } /* Fl_File_Input specific functions */- FL_EXPORT_C(fl_File_Input, Fl_File_Input_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_File_Input* file_input = new Fl_File_Input(x,y,w,h,label);- return (static_cast<fl_File_Input>(file_input));- }- FL_EXPORT_C(fl_File_Input, Fl_File_Input_New)(int x, int y, int w, int h) {- Fl_File_Input* file_input = new Fl_File_Input(x,y,w,h,0);- return (static_cast<fl_File_Input>(file_input));- } FL_EXPORT_C(void,Fl_File_Input_Destroy)(fl_File_Input file_input){ delete (static_cast<Fl_File_Input*>(file_input)); }- FL_EXPORT_C(void,Fl_File_Input_resize)(fl_File_Input file_input,int X,int Y,int W,int H){- (static_cast<Fl_File_Input*>(file_input))->resize(X,Y,W,H);- } FL_EXPORT_C(int,Fl_File_Input_static_value)(fl_File_Input file_input,const char* text){ return (static_cast<Fl_File_Input*>(file_input))->static_value(text); }@@ -421,6 +480,54 @@ } FL_EXPORT_C(void,Fl_File_Input_set_down_box)(fl_File_Input file_input,Fl_Boxtype color){ (static_cast<Fl_File_Input*>(file_input))->down_box(color);+ }+ FL_EXPORT_C(void, Fl_File_Input_draw)(fl_File_Input o){+ (static_cast<Fl_DerivedFile_Input*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_File_Input_draw_super)(fl_File_Input o){+ (static_cast<Fl_DerivedFile_Input*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_File_Input_handle)(fl_File_Input o, int event){+ return (static_cast<Fl_DerivedFile_Input*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_File_Input_handle_super)(fl_File_Input o, int event){+ return (static_cast<Fl_DerivedFile_Input*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_File_Input_resize)(fl_File_Input o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedFile_Input*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_File_Input_resize_super)(fl_File_Input o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedFile_Input*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_File_Input_show)(fl_File_Input o){+ (static_cast<Fl_DerivedFile_Input*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_File_Input_show_super)(fl_File_Input o){+ (static_cast<Fl_DerivedFile_Input*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_File_Input_hide)(fl_File_Input o){+ (static_cast<Fl_DerivedFile_Input*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_File_Input_hide_super)(fl_File_Input o){+ (static_cast<Fl_DerivedFile_Input*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_File_Input, Fl_File_Input_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedFile_Input* w = new Fl_DerivedFile_Input(X,Y,W,H,fs);+ return (fl_File_Input)w;+ }+ FL_EXPORT_C(fl_File_Input, Fl_File_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedFile_Input* w = new Fl_DerivedFile_Input(X,Y,W,H,label,fs);+ return (fl_File_Input)w;+ }+ FL_EXPORT_C(fl_File_Input, Fl_OverriddenFile_Input_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedFile_Input* w = new Fl_DerivedFile_Input(X,Y,W,H,fs);+ return (fl_File_Input)w;+ }+ FL_EXPORT_C(fl_File_Input, Fl_OverriddenFile_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedFile_Input* w = new Fl_DerivedFile_Input(X,Y,W,H,label,fs);+ return (fl_File_Input)w; } #ifdef __cplusplus }
c-src/Fl_File_InputC.h view
@@ -7,10 +7,28 @@ #include "FL/Fl.H" #include "FL/Fl_File_Input.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedFile_Input : public Fl_File_Input {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int,Fl_File_Input_handle)(fl_File_Input self, int event); FL_EXPORT_C(fl_Group, Fl_File_Input_parent)(fl_File_Input file_input); FL_EXPORT_C(void, Fl_File_Input_set_parent)(fl_File_Input file_input, fl_Group grp); FL_EXPORT_C(uchar, Fl_File_Input_type)(fl_File_Input file_input);@@ -95,7 +113,6 @@ FL_EXPORT_C(fl_Gl_Window, Fl_File_Input_as_gl_window)(fl_File_Input file_input); /* Inherited from Fl_Input */ FL_EXPORT_C(int, Fl_File_Input_handle)(fl_File_Input file_input, int event);- FL_EXPORT_C(void, Fl_File_Input_resize)(fl_File_Input file_input, int X, int Y, int W, int H); FL_EXPORT_C(int, Fl_File_Input_static_value)(fl_File_Input file_input, const char* text); FL_EXPORT_C(int, Fl_File_Input_static_value_with_length)(fl_File_Input file_input, const char* text, int length); FL_EXPORT_C(Fl_Char, Fl_File_Input_index)(fl_File_Input file_input, int i);@@ -148,6 +165,18 @@ FL_EXPORT_C(void, Fl_File_Input_set_errorcolor)(fl_File_Input file_input, Fl_Color color); FL_EXPORT_C(Fl_Boxtype, Fl_File_Input_down_box)(fl_File_Input file_input); FL_EXPORT_C(void, Fl_File_Input_set_down_box)(fl_File_Input file_input, Fl_Boxtype color);+ FL_EXPORT_C(fl_File_Input, Fl_OverriddenFile_Input_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_File_Input, Fl_OverriddenFile_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_File_Input_draw)(fl_File_Input o);+ FL_EXPORT_C(void, Fl_File_Input_draw_super)(fl_File_Input o);+ FL_EXPORT_C(int, Fl_File_Input_handle)(fl_File_Input o, int event);+ FL_EXPORT_C(int, Fl_File_Input_handle_super)(fl_File_Input o, int event);+ FL_EXPORT_C(void, Fl_File_Input_resize)(fl_File_Input o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_File_Input_resize_super)(fl_File_Input o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_File_Input_show)(fl_File_Input o);+ FL_EXPORT_C(void, Fl_File_Input_show_super)(fl_File_Input o);+ FL_EXPORT_C(void, Fl_File_Input_hide)(fl_File_Input o);+ FL_EXPORT_C(void, Fl_File_Input_hide_super)(fl_File_Input o); #ifdef __cplusplus } #endif
c-src/Fl_GroupC.cpp view
@@ -1,5 +1,79 @@ #include "Fl_GroupC.h" #ifdef __cplusplus+Fl_DerivedGroup::Fl_DerivedGroup(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Group(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+}+Fl_DerivedGroup::Fl_DerivedGroup(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Group(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+}+Fl_DerivedGroup::~Fl_DerivedGroup(){+ free(overriddenFuncs);+}+void Fl_DerivedGroup::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Group) this);+ }+ else {+ Fl_Group::draw();+ }+}++void Fl_DerivedGroup::draw_super(){+ Fl_Group::draw();+}++int Fl_DerivedGroup::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Group) this,event);+ }+ else {+ i = Fl_Group::handle(event);+ }+ return i;+}+int Fl_DerivedGroup::handle_super(int event){+ return Fl_Group::handle(event);+}++void Fl_DerivedGroup::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Group) this,x,y,w,h);+ }+ else {+ Fl_Group::resize(x,y,w,h);+ }+}++void Fl_DerivedGroup::resize_super(int x, int y, int w, int h){+ Fl_Group::resize(x,y,w,h);+}+void Fl_DerivedGroup::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Group) this);+ }+ else {+ Fl_Group::show();+ }+}+void Fl_DerivedGroup::show_super(){+ Fl_Group::show();+}++void Fl_DerivedGroup::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Group) this);+ }+ else {+ Fl_Group::hide();+ }+}+void Fl_DerivedGroup::hide_super(){+ Fl_Group::hide();+}+ void Fl_DerivedGroup::draw_child(Fl_Widget* widget){ Fl_Group::draw_child(*widget); }@@ -12,11 +86,39 @@ void Fl_DerivedGroup::update_child(Fl_Widget* widget){ Fl_Group::update_child(*widget); }+ EXPORT { #endif FL_EXPORT_C(int,Fl_Group_handle)(fl_Group self, int event){ return (static_cast<Fl_DerivedGroup*>(self))->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_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){+ (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_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_DerivedGroup*>(self))->hide();+ }+ FL_EXPORT_C(void,Fl_Group_hide_super)(fl_Group self){+ (static_cast<Fl_DerivedGroup*>(self))->hide_super();+ } FL_EXPORT_C(fl_Group,Fl_Group_parent)(fl_Group win){ return (fl_Group) (static_cast<Fl_DerivedGroup*>(win))->parent(); }@@ -357,13 +459,23 @@ FL_EXPORT_C(fl_Widget, Fl_Group_child)(fl_Group self, int n){ return (fl_Widget)(static_cast<Fl_DerivedGroup*>(self))->child(n); }- FL_EXPORT_C(fl_Group, Fl_Group_New)(int x, int y, int w, int h){- Fl_DerivedGroup* g = new Fl_DerivedGroup(x,y,w,h);- return (fl_Group)g;+ FL_EXPORT_C(fl_Group, Fl_Group_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedGroup* w = new Fl_DerivedGroup(X,Y,W,H,fs);+ return (fl_Group)w; }- FL_EXPORT_C(fl_Group, Fl_Group_New_WithLabel)(int x, int y, int w, int h, const char* t){- Fl_DerivedGroup* g = new Fl_DerivedGroup(x,y,w,h,t);- return (fl_Group)g;+ FL_EXPORT_C(fl_Group, Fl_Group_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedGroup* w = new Fl_DerivedGroup(X,Y,W,H,label,fs);+ return (fl_Group)w;+ }+ FL_EXPORT_C(fl_Group, Fl_OverriddenGroup_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedGroup* w = new Fl_DerivedGroup(X,Y,W,H,fs);+ return (fl_Group)w;+ }+ FL_EXPORT_C(fl_Group, Fl_OverriddenGroup_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedGroup* w = new Fl_DerivedGroup(X,Y,W,H,label,fs);+ return (fl_Group)w; } FL_EXPORT_C(void, Fl_Group_Destroy)(fl_Group group){ delete (static_cast<Fl_DerivedGroup*>(group));
c-src/Fl_GroupC.h view
@@ -7,19 +7,35 @@ #include "FL/Fl.H" #include "FL/Fl_Group.H" #include "Fl_CallbackC.h"-class Fl_DerivedGroup : public Fl_Group {-public:- void draw_child(Fl_Widget* widget);- void draw_children();- void draw_outside_label(Fl_Widget* widget);- void update_child(Fl_Widget* widget);- Fl_DerivedGroup(int X, int Y, int W, int H, const char *l) : Fl_Group(X,Y,W,H,l){};- Fl_DerivedGroup(int X, int Y, int W, int H):Fl_Group(X,Y,W,H,0){};-};+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedGroup : public Fl_Group {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ void draw_child(Fl_Widget* widget);+ void draw_children();+ void draw_outside_label(Fl_Widget* widget);+ void update_child(Fl_Widget* widget);+ Fl_DerivedGroup(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);+ Fl_DerivedGroup(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);+ ~Fl_DerivedGroup();+ };+ #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int, Fl_Group_handle)(fl_Group self, int event);+ FL_EXPORT_C(int, Fl_Group_handle_super)(fl_Group self, int event); FL_EXPORT_C(fl_Group, Fl_Group_parent)(fl_Group group); FL_EXPORT_C(void, Fl_Group_set_parent)(fl_Group group, fl_Group grp); FL_EXPORT_C(uchar, Fl_Group_type)(fl_Group group);@@ -109,6 +125,7 @@ FL_EXPORT_C(fl_Gl_Window, Fl_Group_as_gl_window)(fl_Group group); FL_EXPORT_C(void, Fl_Group_resize_super)(fl_Group group,int X, int Y, int W, int H); FL_EXPORT_C(void, Fl_Group_resize)(fl_Group group,int X, int Y, int W, int H);+ FL_EXPORT_C(void ,Fl_Group_resize_super)(fl_Group self, int x, int y, int w, int h); /* Fl_Group static members */ FL_EXPORT_C(fl_Group,Fl_Group_current)();@@ -120,6 +137,8 @@ FL_EXPORT_C(void, Fl_Group_draw_outside_label)(fl_Group group, fl_Widget widget); FL_EXPORT_C(void, Fl_Group_update_child)(fl_Group group, fl_Widget widget); FL_EXPORT_C(void, Fl_Group_begin)(fl_Group group);+ FL_EXPORT_C(void, Fl_Group_draw)(fl_Group group);+ FL_EXPORT_C(void, Fl_Group_draw_super)(fl_Group group); FL_EXPORT_C(void, Fl_Group_end)(fl_Group group); FL_EXPORT_C(int, Fl_Group_find)(fl_Group group, fl_Widget w); FL_EXPORT_C(void, Fl_Group_add)(fl_Group group, fl_Widget w);@@ -142,6 +161,8 @@ FL_EXPORT_C(fl_Widget, Fl_Group_child)(fl_Group self, int n); FL_EXPORT_C(fl_Group, Fl_Group_New)(int x, int y, int w, int h); FL_EXPORT_C(fl_Group, Fl_Group_New_WithLabel)(int x, int y, int w, int h, const char* t);+ FL_EXPORT_C(fl_Group, Fl_OverriddenGroup_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(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(void, Fl_Group_Destroy)(fl_Group group); #ifdef __cplusplus }
c-src/Fl_InputC.cpp view
@@ -2,11 +2,81 @@ #ifdef __cplusplus EXPORT {+ Fl_DerivedInput::Fl_DerivedInput(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Input(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedInput::Fl_DerivedInput(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Input(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedInput::~Fl_DerivedInput(){+ free(overriddenFuncs);+ }+ void Fl_DerivedInput::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Input) this);+ }+ else {+ Fl_Input::draw();+ }+ }++ void Fl_DerivedInput::draw_super(){+ Fl_Input::draw();+ }++ int Fl_DerivedInput::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Input) this,event);+ }+ else {+ i = Fl_Input::handle(event);+ }+ return i;+ }+ int Fl_DerivedInput::handle_super(int event){+ return Fl_Input::handle(event);+ }++ void Fl_DerivedInput::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Input) this,x,y,w,h);+ }+ else {+ Fl_Input::resize(x,y,w,h);+ }+ }++ void Fl_DerivedInput::resize_super(int x, int y, int w, int h){+ Fl_Input::resize(x,y,w,h);+ }+ void Fl_DerivedInput::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Input) this);+ }+ else {+ Fl_Input::show();+ }+ }+ void Fl_DerivedInput::show_super(){+ Fl_Input::show();+ }++ void Fl_DerivedInput::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Input) this);+ }+ else {+ Fl_Input::hide();+ }+ }+ void Fl_DerivedInput::hide_super(){+ Fl_Input::hide();+ } #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int,Fl_Input_handle)(fl_Input self, int event){- return (static_cast<Fl_Input*>(self))->handle(event);- } FL_EXPORT_C(fl_Group,Fl_Input_parent)(fl_Input input){ return (fl_Group) (static_cast<Fl_Input*>(input))->parent(); }@@ -268,20 +338,9 @@ return (fl_Gl_Window) (static_cast<Fl_Input*>(input))->as_gl_window(); } /* Fl_Input specific functions */- FL_EXPORT_C(fl_Input, Fl_Input_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Input* input = new Fl_Input(x,y,w,h,label);- return (static_cast<fl_Input>(input));- }- FL_EXPORT_C(fl_Input, Fl_Input_New)(int x, int y, int w, int h) {- Fl_Input* input = new Fl_Input(x,y,w,h,0);- return (fl_Input)input;- } FL_EXPORT_C(void,Fl_Input_Destroy)(fl_Input input){ delete (static_cast<Fl_Input*>(input)); }- FL_EXPORT_C(void,Fl_Input_resize)(fl_Input input,int X,int Y,int W,int H){- (static_cast<Fl_Input*>(input))->resize(X,Y,W,H);- } FL_EXPORT_C(int,Fl_Input_set_value)(fl_Input input,const char* text){ return (static_cast<Fl_Input*>(input))->value(text); }@@ -411,6 +470,55 @@ FL_EXPORT_C(int,Fl_Input_set_tab_nav)(fl_Input input){ return (static_cast<Fl_Input*>(input))->tab_nav(); }+ FL_EXPORT_C(void, Fl_Input_draw)(fl_Input o){+ (static_cast<Fl_DerivedInput*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Input_draw_super)(fl_Input o){+ (static_cast<Fl_DerivedInput*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Input_handle)(fl_Input o, int event){+ return (static_cast<Fl_DerivedInput*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Input_handle_super)(fl_Input o, int event){+ return (static_cast<Fl_DerivedInput*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Input_resize)(fl_Input o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedInput*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Input_resize_super)(fl_Input o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedInput*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Input_show)(fl_Input o){+ (static_cast<Fl_DerivedInput*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Input_show_super)(fl_Input o){+ (static_cast<Fl_DerivedInput*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Input_hide)(fl_Input o){+ (static_cast<Fl_DerivedInput*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Input_hide_super)(fl_Input o){+ (static_cast<Fl_DerivedInput*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Input, Fl_Input_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedInput* w = new Fl_DerivedInput(X,Y,W,H,fs);+ return (fl_Input)w;+ }+ FL_EXPORT_C(fl_Input, Fl_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedInput* w = new Fl_DerivedInput(X,Y,W,H,label,fs);+ return (fl_Input)w;+ }+ FL_EXPORT_C(fl_Input, Fl_OverriddenInput_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedInput* w = new Fl_DerivedInput(X,Y,W,H,fs);+ return (fl_Input)w;+ }+ FL_EXPORT_C(fl_Input, Fl_OverriddenInput_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedInput* w = new Fl_DerivedInput(X,Y,W,H,label,fs);+ return (fl_Input)w;+ }+ #ifdef __cplusplus } #endif
c-src/Fl_InputC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Input.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedInput : public Fl_Input {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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);+ ~Fl_DerivedInput();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Input_handle)(fl_Input self, int event);@@ -96,10 +115,10 @@ FL_EXPORT_C(fl_Gl_Window, Fl_Input_as_gl_window)(fl_Input input); /* Fl_Input specific functions */ FL_EXPORT_C(int, Fl_Input_handle)(fl_Input input, int event);- FL_EXPORT_C(fl_Input, Fl_Input_New_WithLabel)(int x, int y, int w, int h, const char* label); - FL_EXPORT_C(fl_Input, Fl_Input_New)(int x, int y, int w, int h); + FL_EXPORT_C(fl_Input, Fl_Input_New_WithLabel)(int x, int y, int w, int h, const char* label);+ FL_EXPORT_C(fl_Input, Fl_Input_New)(int x, int y, int w, int h); FL_EXPORT_C(void, Fl_Input_Destroy)(fl_Input input);- + FL_EXPORT_C(void, Fl_Input_resize)(fl_Input input, int X, int Y, int W, int H); FL_EXPORT_C(int, Fl_Input_set_value)(fl_Input input, const char* text); FL_EXPORT_C(int, Fl_Input_set_value_with_length)(fl_Input input, const char* text, int length);@@ -144,6 +163,18 @@ FL_EXPORT_C(void, Fl_Input_set_wrap)(fl_Input input,int b); FL_EXPORT_C(void, Fl_Input_tab_nav)(fl_Input input,int val); FL_EXPORT_C(int, Fl_Input_set_tab_nav)(fl_Input input);+ FL_EXPORT_C(fl_Input, Fl_OverriddenInput_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Input, Fl_OverriddenInput_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Input_draw)(fl_Input o);+ FL_EXPORT_C(void, Fl_Input_draw_super)(fl_Input o);+ FL_EXPORT_C(int, Fl_Input_handle)(fl_Input o, int event);+ FL_EXPORT_C(int, Fl_Input_handle_super)(fl_Input o, int event);+ FL_EXPORT_C(void, Fl_Input_resize)(fl_Input o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Input_resize_super)(fl_Input o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Input_show)(fl_Input o);+ FL_EXPORT_C(void, Fl_Input_show_super)(fl_Input o);+ FL_EXPORT_C(void, Fl_Input_hide)(fl_Input o);+ FL_EXPORT_C(void, Fl_Input_hide_super)(fl_Input o); #ifdef __cplusplus } #endif
c-src/Fl_Light_ButtonC.cpp view
@@ -2,10 +2,82 @@ #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Light_Button_handle)(fl_Light_Button self, int event){- return (static_cast<Fl_Light_Button*>(self))->handle(event);+ Fl_DerivedLight_Button::Fl_DerivedLight_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Light_Button(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedLight_Button::Fl_DerivedLight_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Light_Button(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedLight_Button::~Fl_DerivedLight_Button(){+ free(overriddenFuncs);+ }+ void Fl_DerivedLight_Button::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Light_Button) this);+ }+ else {+ Fl_Light_Button::draw();+ }+ }++ void Fl_DerivedLight_Button::draw_super(){+ Fl_Light_Button::draw();+ }++ int Fl_DerivedLight_Button::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Light_Button) this,event);+ }+ else {+ i = Fl_Light_Button::handle(event);+ }+ return i;+ }+ int Fl_DerivedLight_Button::handle_super(int event){+ return Fl_Light_Button::handle(event);+ }++ void Fl_DerivedLight_Button::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Light_Button) this,x,y,w,h);+ }+ else {+ Fl_Light_Button::resize(x,y,w,h);+ }+ }++ void Fl_DerivedLight_Button::resize_super(int x, int y, int w, int h){+ Fl_Light_Button::resize(x,y,w,h);+ }+ void Fl_DerivedLight_Button::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Light_Button) this);+ }+ else {+ Fl_Light_Button::show();+ }+ }+ void Fl_DerivedLight_Button::show_super(){+ Fl_Light_Button::show();+ }++ void Fl_DerivedLight_Button::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Light_Button) this);+ }+ else {+ Fl_Light_Button::hide();+ }+ }+ void Fl_DerivedLight_Button::hide_super(){+ Fl_Light_Button::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Light_Button_parent)(fl_Light_Button b){ return (fl_Group) (static_cast<Fl_Light_Button*>(b))->parent(); }@@ -266,14 +338,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Light_Button_as_gl_window)(fl_Light_Button light_button){ return (fl_Gl_Window) (static_cast<Fl_Light_Button*>(light_button))->as_gl_window(); }- FL_EXPORT_C(fl_Light_Button, Fl_Light_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Light_Button* button = new Fl_Light_Button(x,y,w,h,label);- return (static_cast<fl_Light_Button>(button));- }- FL_EXPORT_C(fl_Light_Button, Fl_Light_Button_New)(int x, int y, int w, int h) {- Fl_Light_Button* button = new Fl_Light_Button(x,y,w,h,0);- return (fl_Light_Button)button;- } FL_EXPORT_C(void,Fl_Light_Button_Destroy)(fl_Light_Button button){ delete (static_cast<Fl_Light_Button*>(button)); }@@ -306,6 +370,54 @@ } FL_EXPORT_C(void,Fl_Light_Button_set_down_color)(fl_Light_Button b,Fl_Color c){ (static_cast<Fl_Light_Button*>(b))->down_color(c);+ }+ FL_EXPORT_C(fl_Light_Button, Fl_Light_Button_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedLight_Button* w = new Fl_DerivedLight_Button(X,Y,W,H,fs);+ return (fl_Light_Button)w;+ }+ FL_EXPORT_C(fl_Light_Button, Fl_Light_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedLight_Button* w = new Fl_DerivedLight_Button(X,Y,W,H,label,fs);+ return (fl_Light_Button)w;+ }+ FL_EXPORT_C(fl_Light_Button, Fl_OverriddenLight_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedLight_Button* w = new Fl_DerivedLight_Button(X,Y,W,H,fs);+ return (fl_Light_Button)w;+ }+ FL_EXPORT_C(fl_Light_Button, Fl_OverriddenLight_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ 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){+ (static_cast<Fl_DerivedLight_Button*>(o))->draw();+ }+ 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){+ return (static_cast<Fl_DerivedLight_Button*>(o))->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){+ (static_cast<Fl_DerivedLight_Button*>(o))->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){+ (static_cast<Fl_DerivedLight_Button*>(o))->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){+ (static_cast<Fl_DerivedLight_Button*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Light_Button_hide_super)(fl_Light_Button o){+ (static_cast<Fl_DerivedLight_Button*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_Light_ButtonC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Light_Button.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedLight_Button : public Fl_Light_Button {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Light_Button_handle)(fl_Light_Button self, int event);@@ -109,6 +128,19 @@ FL_EXPORT_C(void , Fl_Light_Button_set_down_box)(fl_Light_Button b,Fl_Boxtype boxtype); FL_EXPORT_C(Fl_Color , Fl_Light_Button_down_color )(fl_Light_Button b); FL_EXPORT_C(void , Fl_Light_Button_set_down_color)(fl_Light_Button b, Fl_Color c);+ FL_EXPORT_C(fl_Light_Button, Fl_OverriddenLight_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Light_Button, Fl_OverriddenLight_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Light_Button_draw)(fl_Light_Button o);+ FL_EXPORT_C(void, Fl_Light_Button_draw_super)(fl_Light_Button o);+ FL_EXPORT_C(int, Fl_Light_Button_handle)(fl_Light_Button o, int event);+ FL_EXPORT_C(int, Fl_Light_Button_handle_super)(fl_Light_Button o, int 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_Light_Button_resize_super)(fl_Light_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Light_Button_show)(fl_Light_Button o);+ FL_EXPORT_C(void, Fl_Light_Button_show_super)(fl_Light_Button o);+ FL_EXPORT_C(void, Fl_Light_Button_hide)(fl_Light_Button o);+ FL_EXPORT_C(void, Fl_Light_Button_hide_super)(fl_Light_Button o);+ #ifdef __cplusplus } #endif
c-src/Fl_Menu_BarC.cpp view
@@ -2,20 +2,132 @@ #include "UtilsC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Menu_Bar_handle )(fl_Menu_Bar menu_bar, int event){- return (static_cast<Fl_Menu_Bar*>(menu_bar))->handle(event);+ Fl_DerivedMenu_Bar::Fl_DerivedMenu_Bar(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Menu_Bar(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(fl_Menu_Bar, Fl_Menu_Bar_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Menu_Bar* menu_bar = new Fl_Menu_Bar(x,y,w,h,label);- return (static_cast<fl_Menu_Bar>(menu_bar));+ Fl_DerivedMenu_Bar::Fl_DerivedMenu_Bar(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Menu_Bar(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(fl_Menu_Bar, Fl_Menu_Bar_New)(int x, int y, int w, int h) {- Fl_Menu_Bar* menu_bar = new Fl_Menu_Bar(x,y,w,h,0);- return (fl_Menu_Bar)menu_bar;+ Fl_DerivedMenu_Bar::~Fl_DerivedMenu_Bar(){+ free(overriddenFuncs); }+ void Fl_DerivedMenu_Bar::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Menu_Bar) this);+ }+ else {+ Fl_Menu_Bar::draw();+ }+ }++ void Fl_DerivedMenu_Bar::draw_super(){+ Fl_Menu_Bar::draw();+ }++ int Fl_DerivedMenu_Bar::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Menu_Bar) this,event);+ }+ else {+ i = Fl_Menu_Bar::handle(event);+ }+ return i;+ }+ int Fl_DerivedMenu_Bar::handle_super(int event){+ return Fl_Menu_Bar::handle(event);+ }++ void Fl_DerivedMenu_Bar::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Menu_Bar) this,x,y,w,h);+ }+ else {+ Fl_Menu_Bar::resize(x,y,w,h);+ }+ }++ void Fl_DerivedMenu_Bar::resize_super(int x, int y, int w, int h){+ Fl_Menu_Bar::resize(x,y,w,h);+ }+ void Fl_DerivedMenu_Bar::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Menu_Bar) this);+ }+ else {+ Fl_Menu_Bar::show();+ }+ }+ void Fl_DerivedMenu_Bar::show_super(){+ Fl_Menu_Bar::show();+ }++ void Fl_DerivedMenu_Bar::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Menu_Bar) this);+ }+ else {+ Fl_Menu_Bar::hide();+ }+ }+ void Fl_DerivedMenu_Bar::hide_super(){+ Fl_Menu_Bar::hide();+ }+++#endif FL_EXPORT_C(void , Fl_Menu_Bar_Destroy)(fl_Menu_Bar menu_bar){ delete (static_cast<Fl_Menu_Bar*>(menu_bar));+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_draw)(fl_Menu_Bar o){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_draw_super)(fl_Menu_Bar o){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Menu_Bar_handle)(fl_Menu_Bar o, int event){+ return (static_cast<Fl_DerivedMenu_Bar*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Menu_Bar_handle_super)(fl_Menu_Bar o, int event){+ return (static_cast<Fl_DerivedMenu_Bar*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_resize)(fl_Menu_Bar o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_resize_super)(fl_Menu_Bar o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_show)(fl_Menu_Bar o){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_show_super)(fl_Menu_Bar o){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_hide)(fl_Menu_Bar o){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Menu_Bar_hide_super)(fl_Menu_Bar o){+ (static_cast<Fl_DerivedMenu_Bar*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Menu_Bar, Fl_Menu_Bar_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedMenu_Bar* w = new Fl_DerivedMenu_Bar(X,Y,W,H,fs);+ return (fl_Menu_Bar)w;+ }+ FL_EXPORT_C(fl_Menu_Bar, Fl_Menu_Bar_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedMenu_Bar* w = new Fl_DerivedMenu_Bar(X,Y,W,H,label,fs);+ return (fl_Menu_Bar)w;+ }+ FL_EXPORT_C(fl_Menu_Bar, Fl_OverriddenMenu_Bar_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedMenu_Bar* w = new Fl_DerivedMenu_Bar(X,Y,W,H,fs);+ return (fl_Menu_Bar)w;+ }+ FL_EXPORT_C(fl_Menu_Bar, Fl_OverriddenMenu_Bar_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedMenu_Bar* w = new Fl_DerivedMenu_Bar(X,Y,W,H,label,fs);+ return (fl_Menu_Bar)w; } #ifdef __cplusplus }
c-src/Fl_Menu_BarC.h view
@@ -7,12 +7,43 @@ #include "FL/Fl.H" #include "FL/Fl_Menu_Bar.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedMenu_Bar : public Fl_Menu_Bar {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif FL_EXPORT_C(int, Fl_Menu_Bar_handle)(fl_Group self, int event); FL_EXPORT_C(fl_Menu_Bar, Fl_Menu_Bar_New_WithLabel)(int x, int y, int w, int h, const char* label); FL_EXPORT_C(fl_Menu_Bar , Fl_Menu_Bar_New)(int x, int y, int w, int h); FL_EXPORT_C(void , Fl_Menu_Bar_Destroy)(fl_Menu_Bar menu_bar);+ FL_EXPORT_C(fl_Menu_Bar, Fl_OverriddenMenu_Bar_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Menu_Bar, Fl_OverriddenMenu_Bar_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Menu_Bar_draw)(fl_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Menu_Bar_draw_super)(fl_Menu_Bar o);+ FL_EXPORT_C(int, Fl_Menu_Bar_handle)(fl_Menu_Bar o, int event);+ FL_EXPORT_C(int, Fl_Menu_Bar_handle_super)(fl_Menu_Bar o, int event);+ FL_EXPORT_C(void, Fl_Menu_Bar_resize)(fl_Menu_Bar o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Menu_Bar_resize_super)(fl_Menu_Bar o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Menu_Bar_show)(fl_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Menu_Bar_show_super)(fl_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Menu_Bar_hide)(fl_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Menu_Bar_hide_super)(fl_Menu_Bar o); #ifdef __cplusplus } #endif
c-src/Fl_Menu_ButtonC.cpp view
@@ -2,19 +2,82 @@ #include "UtilsC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Menu_Button_handle )(fl_Menu_Button menu_button, int event){- return (static_cast<Fl_Menu_Button*>(menu_button))->handle(event);+ Fl_DerivedMenu_Button::Fl_DerivedMenu_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Menu_Button(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Menu_Button_resize )(fl_Menu_Button menu_button,int x, int y, int w, int h){- (static_cast<Fl_Menu_Button*>(menu_button))->resize(x,y,w,h);+ Fl_DerivedMenu_Button::Fl_DerivedMenu_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Menu_Button(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Menu_Button_show )(fl_Menu_Button menu_button){- (static_cast<Fl_Menu_Button*>(menu_button))->show();+ Fl_DerivedMenu_Button::~Fl_DerivedMenu_Button(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Menu_Button_hide )(fl_Menu_Button menu_button){- (static_cast<Fl_Menu_Button*>(menu_button))->hide();+ void Fl_DerivedMenu_Button::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Menu_Button) this);+ }+ else {+ Fl_Menu_Button::draw();+ } }++ void Fl_DerivedMenu_Button::draw_super(){+ Fl_Menu_Button::draw();+ }++ int Fl_DerivedMenu_Button::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Menu_Button) this,event);+ }+ else {+ i = Fl_Menu_Button::handle(event);+ }+ return i;+ }+ int Fl_DerivedMenu_Button::handle_super(int event){+ return Fl_Menu_Button::handle(event);+ }++ void Fl_DerivedMenu_Button::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Menu_Button) this,x,y,w,h);+ }+ else {+ Fl_Menu_Button::resize(x,y,w,h);+ }+ }++ void Fl_DerivedMenu_Button::resize_super(int x, int y, int w, int h){+ Fl_Menu_Button::resize(x,y,w,h);+ }+ void Fl_DerivedMenu_Button::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Menu_Button) this);+ }+ else {+ Fl_Menu_Button::show();+ }+ }+ void Fl_DerivedMenu_Button::show_super(){+ Fl_Menu_Button::show();+ }++ void Fl_DerivedMenu_Button::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Menu_Button) this);+ }+ else {+ Fl_Menu_Button::hide();+ }+ }+ void Fl_DerivedMenu_Button::hide_super(){+ Fl_Menu_Button::hide();+ }+++#endif FL_EXPORT_C(fl_Window,Fl_Menu_Button_as_window )(fl_Menu_Button menu_button){ return (static_cast<Fl_Menu_Button*>(menu_button))->as_window(); }@@ -265,14 +328,6 @@ FL_EXPORT_C(void,Fl_Menu_Button_measure_label)(fl_Menu_Button menu_button,int* ww,int* hh){ (static_cast<Fl_Menu_Button*>(menu_button))->measure_label(*ww,*hh); }- FL_EXPORT_C(fl_Menu_Button, Fl_Menu_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Menu_Button* menu_button = new Fl_Menu_Button(x,y,w,h,label);- return (static_cast<fl_Menu_Button>(menu_button));- }- FL_EXPORT_C(fl_Menu_Button, Fl_Menu_Button_New)(int x, int y, int w, int h) {- Fl_Menu_Button* menu_button = new Fl_Menu_Button(x,y,w,h,0);- return (fl_Menu_Button)menu_button;- } FL_EXPORT_C(void , Fl_Menu_Button_Destroy)(fl_Menu_Button menu_button){ delete (static_cast<Fl_Menu_Button*>(menu_button)); }@@ -434,6 +489,54 @@ } FL_EXPORT_C(fl_Menu_Item, Fl_Menu_Button_popup)(fl_Menu_Button menu_button) { return (fl_Menu_Item)(static_cast<Fl_Menu_Button*>(menu_button))->popup();+ }+ FL_EXPORT_C(fl_Menu_Button, Fl_Menu_Button_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedMenu_Button* w = new Fl_DerivedMenu_Button(X,Y,W,H,fs);+ return (fl_Menu_Button)w;+ }+ FL_EXPORT_C(fl_Menu_Button, Fl_Menu_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedMenu_Button* w = new Fl_DerivedMenu_Button(X,Y,W,H,label,fs);+ return (fl_Menu_Button)w;+ }+ FL_EXPORT_C(fl_Menu_Button, Fl_OverriddenMenu_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedMenu_Button* w = new Fl_DerivedMenu_Button(X,Y,W,H,fs);+ return (fl_Menu_Button)w;+ }+ FL_EXPORT_C(fl_Menu_Button, Fl_OverriddenMenu_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedMenu_Button* w = new Fl_DerivedMenu_Button(X,Y,W,H,label,fs);+ return (fl_Menu_Button)w;+ }+ FL_EXPORT_C(void, Fl_Menu_Button_draw)(fl_Menu_Button o){+ (static_cast<Fl_DerivedMenu_Button*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Menu_Button_draw_super)(fl_Menu_Button o){+ (static_cast<Fl_DerivedMenu_Button*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Menu_Button_handle)(fl_Menu_Button o, int event){+ return (static_cast<Fl_DerivedMenu_Button*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Menu_Button_handle_super)(fl_Menu_Button o, int event){+ return (static_cast<Fl_DerivedMenu_Button*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Menu_Button_resize)(fl_Menu_Button o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedMenu_Button*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Menu_Button_resize_super)(fl_Menu_Button o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedMenu_Button*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Menu_Button_show)(fl_Menu_Button o){+ (static_cast<Fl_DerivedMenu_Button*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Menu_Button_show_super)(fl_Menu_Button o){+ (static_cast<Fl_DerivedMenu_Button*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Menu_Button_hide)(fl_Menu_Button o){+ (static_cast<Fl_DerivedMenu_Button*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Menu_Button_hide_super)(fl_Menu_Button o){+ (static_cast<Fl_DerivedMenu_Button*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_Menu_ButtonC.h view
@@ -8,7 +8,26 @@ #include "FL/Fl_Menu_Button.H" #include "Fl_CallbackC.h" #include "Fl_Menu_C.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedMenu_Button : public Fl_Menu_Button {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif #ifndef INTERNAL_LINKAGE typedef enum Menu_Button_Type {@@ -171,6 +190,18 @@ FL_EXPORT_C(Fl_Color, Fl_Menu_Button_down_color)(fl_Menu_Button menu_button); FL_EXPORT_C(void, Fl_Menu_Button_set_down_color)(fl_Menu_Button menu_button, unsigned c); FL_EXPORT_C(fl_Menu_Item, Fl_Menu_Button_popup)(fl_Menu_Button menu_button);+ FL_EXPORT_C(fl_Menu_Button, Fl_OverriddenMenu_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Menu_Button, Fl_OverriddenMenu_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Menu_Button_draw)(fl_Menu_Button o);+ FL_EXPORT_C(void, Fl_Menu_Button_draw_super)(fl_Menu_Button o);+ FL_EXPORT_C(int, Fl_Menu_Button_handle)(fl_Menu_Button o, int event);+ FL_EXPORT_C(int, Fl_Menu_Button_handle_super)(fl_Menu_Button o, int event);+ FL_EXPORT_C(void, Fl_Menu_Button_resize)(fl_Menu_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Menu_Button_resize_super)(fl_Menu_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Menu_Button_show)(fl_Menu_Button o);+ FL_EXPORT_C(void, Fl_Menu_Button_show_super)(fl_Menu_Button o);+ FL_EXPORT_C(void, Fl_Menu_Button_hide)(fl_Menu_Button o);+ FL_EXPORT_C(void, Fl_Menu_Button_hide_super)(fl_Menu_Button o); #ifdef __cplusplus } #endif
c-src/Fl_OutputC.cpp view
@@ -2,11 +2,83 @@ #ifdef __cplusplus EXPORT {+ Fl_DerivedOutput::Fl_DerivedOutput(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Output(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedOutput::Fl_DerivedOutput(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Output(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedOutput::~Fl_DerivedOutput(){+ free(overriddenFuncs);+ }+ void Fl_DerivedOutput::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Output) this);+ }+ else {+ Fl_Output::draw();+ }+ }++ void Fl_DerivedOutput::draw_super(){+ Fl_Output::draw();+ }++ int Fl_DerivedOutput::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Output) this,event);+ }+ else {+ i = Fl_Output::handle(event);+ }+ return i;+ }+ int Fl_DerivedOutput::handle_super(int event){+ return Fl_Output::handle(event);+ }++ void Fl_DerivedOutput::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Output) this,x,y,w,h);+ }+ else {+ Fl_Output::resize(x,y,w,h);+ }+ }++ void Fl_DerivedOutput::resize_super(int x, int y, int w, int h){+ Fl_Output::resize(x,y,w,h);+ }+ void Fl_DerivedOutput::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Output) this);+ }+ else {+ Fl_Output::show();+ }+ }+ void Fl_DerivedOutput::show_super(){+ Fl_Output::show();+ }++ void Fl_DerivedOutput::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Output) this);+ }+ else {+ Fl_Output::hide();+ }+ }+ void Fl_DerivedOutput::hide_super(){+ Fl_Output::hide();+ }++ #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int,Fl_Output_handle)(fl_Output self, int event){- return (static_cast<Fl_Output*>(self))->handle(event);- } FL_EXPORT_C(fl_Group,Fl_Output_parent)(fl_Output output){ return (fl_Group) (static_cast<Fl_Output*>(output))->parent(); }@@ -267,21 +339,9 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Output_as_gl_window)(fl_Output output){ return (fl_Gl_Window) (static_cast<Fl_Output*>(output))->as_gl_window(); }- /* Fl_Output specific functions */- FL_EXPORT_C(fl_Output, Fl_Output_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Output* output = new Fl_Output(x,y,w,h,label);- return (static_cast<fl_Output>(output));- }- FL_EXPORT_C(fl_Output, Fl_Output_New)(int x, int y, int w, int h) {- Fl_Output* output = new Fl_Output(x,y,w,h,0);- return (fl_Output)output;- } FL_EXPORT_C(void,Fl_Output_Destroy)(fl_Output output){ delete (static_cast<Fl_Output*>(output)); }- FL_EXPORT_C(void,Fl_Output_resize)(fl_Output output,int X,int Y,int W,int H){- (static_cast<Fl_Output*>(output))->resize(X,Y,W,H);- } FL_EXPORT_C(int,Fl_Output_set_value)(fl_Output output,const char* text){ return (static_cast<Fl_Output*>(output))->value(text); }@@ -411,6 +471,55 @@ FL_EXPORT_C(int,Fl_Output_set_tab_nav)(fl_Output output){ return (static_cast<Fl_Output*>(output))->tab_nav(); }+ FL_EXPORT_C(fl_Output, Fl_Output_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedOutput* w = new Fl_DerivedOutput(X,Y,W,H,fs);+ return (fl_Output)w;+ }+ FL_EXPORT_C(fl_Output, Fl_Output_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedOutput* w = new Fl_DerivedOutput(X,Y,W,H,label,fs);+ return (fl_Output)w;+ }+ FL_EXPORT_C(fl_Output, Fl_OverriddenOutput_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedOutput* w = new Fl_DerivedOutput(X,Y,W,H,fs);+ return (fl_Output)w;+ }+ FL_EXPORT_C(fl_Output, Fl_OverriddenOutput_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedOutput* w = new Fl_DerivedOutput(X,Y,W,H,label,fs);+ return (fl_Output)w;+ }+ FL_EXPORT_C(void, Fl_Output_draw)(fl_Output o){+ (static_cast<Fl_DerivedOutput*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Output_draw_super)(fl_Output o){+ (static_cast<Fl_DerivedOutput*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Output_handle)(fl_Output o, int event){+ return (static_cast<Fl_DerivedOutput*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Output_handle_super)(fl_Output o, int event){+ return (static_cast<Fl_DerivedOutput*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Output_resize)(fl_Output o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedOutput*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Output_resize_super)(fl_Output o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedOutput*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Output_show)(fl_Output o){+ (static_cast<Fl_DerivedOutput*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Output_show_super)(fl_Output o){+ (static_cast<Fl_DerivedOutput*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Output_hide)(fl_Output o){+ (static_cast<Fl_DerivedOutput*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Output_hide_super)(fl_Output o){+ (static_cast<Fl_DerivedOutput*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_OutputC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Output.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedOutput : public Fl_Output {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ 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);+ ~Fl_DerivedOutput();+ };+ #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Output_handle)(fl_Output self, int event);@@ -96,10 +116,10 @@ FL_EXPORT_C(fl_Gl_Window, Fl_Output_as_gl_window)(fl_Output output); /* Fl_Output specific functions */ FL_EXPORT_C(int, Fl_Output_handle)(fl_Output output, int event);- FL_EXPORT_C(fl_Output, Fl_Output_New_WithLabel)(int x, int y, int w, int h, const char* label); - FL_EXPORT_C(fl_Output, Fl_Output_New)(int x, int y, int w, int h); + FL_EXPORT_C(fl_Output, Fl_Output_New_WithLabel)(int x, int y, int w, int h, const char* label);+ FL_EXPORT_C(fl_Output, Fl_Output_New)(int x, int y, int w, int h); FL_EXPORT_C(void, Fl_Output_Destroy)(fl_Output output);- + FL_EXPORT_C(void, Fl_Output_resize)(fl_Output output, int X, int Y, int W, int H); FL_EXPORT_C(int, Fl_Output_set_value)(fl_Output output, const char*); FL_EXPORT_C(int, Fl_Output_set_value_with_length)(fl_Output output, const char* text, int length);@@ -144,6 +164,18 @@ FL_EXPORT_C(void, Fl_Output_set_wrap)(fl_Output output,int b); FL_EXPORT_C(void, Fl_Output_tab_nav)(fl_Output output,int val); FL_EXPORT_C(int, Fl_Output_set_tab_nav)(fl_Output output);+ FL_EXPORT_C(fl_Output, Fl_OverriddenOutput_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Output, Fl_OverriddenOutput_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Output_draw)(fl_Output o);+ FL_EXPORT_C(void, Fl_Output_draw_super)(fl_Output o);+ FL_EXPORT_C(int, Fl_Output_handle)(fl_Output o, int event);+ FL_EXPORT_C(int, Fl_Output_handle_super)(fl_Output o, int event);+ FL_EXPORT_C(void, Fl_Output_resize)(fl_Output o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Output_resize_super)(fl_Output o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Output_show)(fl_Output o);+ FL_EXPORT_C(void, Fl_Output_show_super)(fl_Output o);+ FL_EXPORT_C(void, Fl_Output_hide)(fl_Output o);+ FL_EXPORT_C(void, Fl_Output_hide_super)(fl_Output o); #ifdef __cplusplus } #endif
c-src/Fl_PackC.cpp view
@@ -1,6 +1,81 @@ #include "Fl_PackC.h" #ifdef __cplusplus EXPORT {+ Fl_DerivedPack::Fl_DerivedPack(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Pack(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedPack::Fl_DerivedPack(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Pack(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedPack::~Fl_DerivedPack(){+ free(overriddenFuncs);+ }+ void Fl_DerivedPack::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Pack) this);+ }+ else {+ Fl_Pack::draw();+ }+ }++ void Fl_DerivedPack::draw_super(){+ Fl_Pack::draw();+ }++ int Fl_DerivedPack::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Pack) this,event);+ }+ else {+ i = Fl_Pack::handle(event);+ }+ return i;+ }+ int Fl_DerivedPack::handle_super(int event){+ return Fl_Pack::handle(event);+ }++ void Fl_DerivedPack::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Pack) this,x,y,w,h);+ }+ else {+ Fl_Pack::resize(x,y,w,h);+ }+ }++ void Fl_DerivedPack::resize_super(int x, int y, int w, int h){+ Fl_Pack::resize(x,y,w,h);+ }+ void Fl_DerivedPack::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Pack) this);+ }+ else {+ Fl_Pack::show();+ }+ }+ void Fl_DerivedPack::show_super(){+ Fl_Pack::show();+ }++ void Fl_DerivedPack::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Pack) this);+ }+ else {+ Fl_Pack::hide();+ }+ }+ void Fl_DerivedPack::hide_super(){+ Fl_Pack::hide();+ }++ #endif FL_EXPORT_C(void ,Fl_Pack_set_spacing)(fl_Pack self, int pixels){ (static_cast<Fl_Pack*>(self))->spacing(pixels);@@ -11,21 +86,60 @@ FL_EXPORT_C(uchar, Fl_Pack_horizontal)(fl_Pack self){ return (static_cast<Fl_Pack*>(self))->horizontal(); }- FL_EXPORT_C(fl_Pack, Fl_Pack_New)(int x, int y, int w, int h){- Fl_Pack* g = new Fl_Pack(x,y,w,h);- return (fl_Pack)g;- }- FL_EXPORT_C(fl_Pack, Fl_Pack_New_WithLabel)(int x, int y, int w, int h, const char* t){- Fl_Pack* g = new Fl_Pack(x,y,w,h,t);- return (fl_Pack)g;- } FL_EXPORT_C(uchar,Fl_Pack_type)(fl_Pack win){ return (static_cast<Fl_Pack*>(win))->type(); } FL_EXPORT_C(void,Fl_Pack_set_type)(fl_Pack win,uchar t){ (static_cast<Fl_Pack*>(win))->type(t); }-+ FL_EXPORT_C(fl_Pack, Fl_Pack_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedPack* w = new Fl_DerivedPack(X,Y,W,H,fs);+ return (fl_Pack)w;+ }+ FL_EXPORT_C(fl_Pack, Fl_Pack_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedPack* w = new Fl_DerivedPack(X,Y,W,H,label,fs);+ return (fl_Pack)w;+ }+ FL_EXPORT_C(fl_Pack, Fl_OverriddenPack_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedPack* w = new Fl_DerivedPack(X,Y,W,H,fs);+ return (fl_Pack)w;+ }+ FL_EXPORT_C(fl_Pack, Fl_OverriddenPack_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedPack* w = new Fl_DerivedPack(X,Y,W,H,label,fs);+ return (fl_Pack)w;+ }+ FL_EXPORT_C(void, Fl_Pack_draw)(fl_Pack o){+ (static_cast<Fl_DerivedPack*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Pack_draw_super)(fl_Pack o){+ (static_cast<Fl_DerivedPack*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Pack_handle)(fl_Pack o, int event){+ return (static_cast<Fl_DerivedPack*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Pack_handle_super)(fl_Pack o, int event){+ return (static_cast<Fl_DerivedPack*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Pack_resize)(fl_Pack o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedPack*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Pack_resize_super)(fl_Pack o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedPack*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Pack_show)(fl_Pack o){+ (static_cast<Fl_DerivedPack*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Pack_show_super)(fl_Pack o){+ (static_cast<Fl_DerivedPack*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Pack_hide)(fl_Pack o){+ (static_cast<Fl_DerivedPack*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Pack_hide_super)(fl_Pack o){+ (static_cast<Fl_DerivedPack*>(o))->hide_super();+ } #ifdef __cplusplus } #endif
c-src/Fl_PackC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Pack.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedPack : public Fl_Pack {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif FL_EXPORT_C(uchar, Fl_Pack_type)(fl_Pack pack); FL_EXPORT_C(void, Fl_Pack_set_type)(fl_Pack pack, uchar);@@ -16,6 +35,18 @@ FL_EXPORT_C(uchar, Fl_Pack_horizontal)(fl_Pack p); FL_EXPORT_C(fl_Pack, Fl_Pack_New)(int x, int y, int w, int h); FL_EXPORT_C(fl_Pack, Fl_Pack_New_WithLabel)(int x, int y, int w, int h, const char* t);+ FL_EXPORT_C(fl_Pack, Fl_OverriddenPack_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Pack, Fl_OverriddenPack_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Pack_draw)(fl_Pack o);+ FL_EXPORT_C(void, Fl_Pack_draw_super)(fl_Pack o);+ FL_EXPORT_C(int, Fl_Pack_handle)(fl_Pack o, int event);+ FL_EXPORT_C(int, Fl_Pack_handle_super)(fl_Pack o, int event);+ FL_EXPORT_C(void, Fl_Pack_resize)(fl_Pack o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Pack_resize_super)(fl_Pack o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Pack_show)(fl_Pack o);+ FL_EXPORT_C(void, Fl_Pack_show_super)(fl_Pack o);+ FL_EXPORT_C(void, Fl_Pack_hide)(fl_Pack o);+ FL_EXPORT_C(void, Fl_Pack_hide_super)(fl_Pack o); #ifdef __cplusplus } #endif
c-src/Fl_PositionerC.cpp view
@@ -1,19 +1,80 @@ #include "Fl_PositionerC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Positioner_handle )(fl_Positioner positioner, int event){- return (static_cast<Fl_Positioner*>(positioner))->handle(event);+ Fl_DerivedPositioner::Fl_DerivedPositioner(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Positioner(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Positioner_resize )(fl_Positioner positioner,int x, int y, int w, int h){- (static_cast<Fl_Positioner*>(positioner))->resize(x,y,w,h);+ Fl_DerivedPositioner::Fl_DerivedPositioner(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Positioner(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Positioner_show )(fl_Positioner positioner){- (static_cast<Fl_Positioner*>(positioner))->show();+ Fl_DerivedPositioner::~Fl_DerivedPositioner(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Positioner_hide )(fl_Positioner positioner){- (static_cast<Fl_Positioner*>(positioner))->hide();+ void Fl_DerivedPositioner::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Positioner) this);+ }+ else {+ Fl_Positioner::draw();+ } }++ void Fl_DerivedPositioner::draw_super(){+ Fl_Positioner::draw();+ }++ int Fl_DerivedPositioner::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Positioner) this,event);+ }+ else {+ i = Fl_Positioner::handle(event);+ }+ return i;+ }+ int Fl_DerivedPositioner::handle_super(int event){+ return Fl_Positioner::handle(event);+ }++ void Fl_DerivedPositioner::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Positioner) this,x,y,w,h);+ }+ else {+ Fl_Positioner::resize(x,y,w,h);+ }+ }++ void Fl_DerivedPositioner::resize_super(int x, int y, int w, int h){+ Fl_Positioner::resize(x,y,w,h);+ }+ void Fl_DerivedPositioner::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Positioner) this);+ }+ else {+ Fl_Positioner::show();+ }+ }+ void Fl_DerivedPositioner::show_super(){+ Fl_Positioner::show();+ }++ void Fl_DerivedPositioner::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Positioner) this);+ }+ else {+ Fl_Positioner::hide();+ }+ }+ void Fl_DerivedPositioner::hide_super(){+ Fl_Positioner::hide();+ }+#endif FL_EXPORT_C(fl_Window,Fl_Positioner_as_window )(fl_Positioner positioner){ return (static_cast<Fl_Positioner*>(positioner))->as_window(); }@@ -276,14 +337,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Positioner_as_gl_window)(fl_Positioner positioner){ return (fl_Gl_Window) (static_cast<Fl_Positioner*>(positioner))->as_gl_window(); }- FL_EXPORT_C(fl_Positioner, Fl_Positioner_New)(int x, int y, int w, int h){- Fl_Positioner* p = new Fl_Positioner(x,y,w,h);- return (fl_Positioner)p;- }- FL_EXPORT_C(fl_Positioner, Fl_Positioner_New_WithLabel)(int x, int y, int w, int h,const char *l){- Fl_Positioner* p = new Fl_Positioner(x,y,w,h,l);- return (fl_Positioner)p;- } FL_EXPORT_C(void , Fl_Positioner_Destroy)(fl_Positioner positioner){ delete (static_cast<Fl_Positioner*>(positioner)); }@@ -334,6 +387,54 @@ } FL_EXPORT_C(void,Fl_Positioner_ystep)(fl_Positioner positioner,double x){ (static_cast<Fl_Positioner*>(positioner))->ystep(x);+ }+ FL_EXPORT_C(fl_Positioner, Fl_Positioner_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedPositioner* w = new Fl_DerivedPositioner(X,Y,W,H,fs);+ return (fl_Positioner)w;+ }+ FL_EXPORT_C(fl_Positioner, Fl_Positioner_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedPositioner* w = new Fl_DerivedPositioner(X,Y,W,H,label,fs);+ return (fl_Positioner)w;+ }+ FL_EXPORT_C(fl_Positioner, Fl_OverriddenPositioner_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedPositioner* w = new Fl_DerivedPositioner(X,Y,W,H,fs);+ return (fl_Positioner)w;+ }+ FL_EXPORT_C(fl_Positioner, Fl_OverriddenPositioner_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedPositioner* w = new Fl_DerivedPositioner(X,Y,W,H,label,fs);+ return (fl_Positioner)w;+ }+ FL_EXPORT_C(void, Fl_Positioner_draw)(fl_Positioner o){+ (static_cast<Fl_DerivedPositioner*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Positioner_draw_super)(fl_Positioner o){+ (static_cast<Fl_DerivedPositioner*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Positioner_handle)(fl_Positioner o, int event){+ return (static_cast<Fl_DerivedPositioner*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Positioner_handle_super)(fl_Positioner o, int event){+ return (static_cast<Fl_DerivedPositioner*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Positioner_resize)(fl_Positioner o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedPositioner*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Positioner_resize_super)(fl_Positioner o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedPositioner*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Positioner_show)(fl_Positioner o){+ (static_cast<Fl_DerivedPositioner*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Positioner_show_super)(fl_Positioner o){+ (static_cast<Fl_DerivedPositioner*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Positioner_hide)(fl_Positioner o){+ (static_cast<Fl_DerivedPositioner*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Positioner_hide_super)(fl_Positioner o){+ (static_cast<Fl_DerivedPositioner*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_PositionerC.h view
@@ -7,13 +7,28 @@ #include "FL/Fl.H" #include "FL/Fl_Positioner.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedPositioner : public Fl_Positioner {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ 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);+ ~Fl_DerivedPositioner();+ }; #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int , Fl_Positioner_handle )(fl_Positioner positioner,int event);- FL_EXPORT_C(void, Fl_Positioner_resize )(fl_Positioner positioner,int x, int y, int w, int h);- FL_EXPORT_C(void, Fl_Positioner_show )(fl_Positioner positioner);- FL_EXPORT_C(void, Fl_Positioner_hide )(fl_Positioner positioner); FL_EXPORT_C(fl_Window, Fl_Positioner_as_window )(fl_Positioner positioner); FL_EXPORT_C(fl_Gl_Window, Fl_Positioner_as_gl_window)(fl_Positioner positioner); FL_EXPORT_C(fl_Group, Fl_Positioner_parent)(fl_Positioner positioner);@@ -119,6 +134,18 @@ FL_EXPORT_C(void, Fl_Positioner_ybounds)(fl_Positioner positioner, double ystart, double yend); FL_EXPORT_C(void, Fl_Positioner_xstep)(fl_Positioner positioner, double xstep); FL_EXPORT_C(void, Fl_Positioner_ystep)(fl_Positioner positioner, double ystep);+ FL_EXPORT_C(fl_Positioner, Fl_OverriddenPositioner_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Positioner, Fl_OverriddenPositioner_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Positioner_draw)(fl_Positioner o);+ FL_EXPORT_C(void, Fl_Positioner_draw_super)(fl_Positioner o);+ FL_EXPORT_C(int, Fl_Positioner_handle)(fl_Positioner o, int event);+ FL_EXPORT_C(int, Fl_Positioner_handle_super)(fl_Positioner o, int event);+ FL_EXPORT_C(void, Fl_Positioner_resize)(fl_Positioner o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Positioner_resize_super)(fl_Positioner o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Positioner_show)(fl_Positioner o);+ FL_EXPORT_C(void, Fl_Positioner_show_super)(fl_Positioner o);+ FL_EXPORT_C(void, Fl_Positioner_hide)(fl_Positioner o);+ FL_EXPORT_C(void, Fl_Positioner_hide_super)(fl_Positioner o); #ifdef __cplusplus } #endif
c-src/Fl_ProgressC.cpp view
@@ -1,19 +1,82 @@ #include "Fl_ProgressC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Progress_handle )(fl_Progress progress, int event){- return (static_cast<Fl_Progress*>(progress))->handle(event);+ Fl_DerivedProgress::Fl_DerivedProgress(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Progress(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Progress_resize )(fl_Progress progress,int x, int y, int w, int h){- (static_cast<Fl_Progress*>(progress))->resize(x,y,w,h);+ Fl_DerivedProgress::Fl_DerivedProgress(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Progress(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Progress_show )(fl_Progress progress){- (static_cast<Fl_Progress*>(progress))->show();+ Fl_DerivedProgress::~Fl_DerivedProgress(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Progress_hide )(fl_Progress progress){- (static_cast<Fl_Progress*>(progress))->hide();+ void Fl_DerivedProgress::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Progress) this);+ }+ else {+ Fl_Progress::draw();+ } }++ void Fl_DerivedProgress::draw_super(){+ Fl_Progress::draw();+ }++ int Fl_DerivedProgress::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Progress) this,event);+ }+ else {+ i = Fl_Progress::handle(event);+ }+ return i;+ }+ int Fl_DerivedProgress::handle_super(int event){+ return Fl_Progress::handle(event);+ }++ void Fl_DerivedProgress::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Progress) this,x,y,w,h);+ }+ else {+ Fl_Progress::resize(x,y,w,h);+ }+ }++ void Fl_DerivedProgress::resize_super(int x, int y, int w, int h){+ Fl_Progress::resize(x,y,w,h);+ }+ void Fl_DerivedProgress::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Progress) this);+ }+ else {+ Fl_Progress::show();+ }+ }+ void Fl_DerivedProgress::show_super(){+ Fl_Progress::show();+ }++ void Fl_DerivedProgress::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Progress) this);+ }+ else {+ Fl_Progress::hide();+ }+ }+ void Fl_DerivedProgress::hide_super(){+ Fl_Progress::hide();+ }+++#endif FL_EXPORT_C(fl_Window,Fl_Progress_as_window )(fl_Progress progress){ return (static_cast<Fl_Progress*>(progress))->as_window(); }@@ -276,14 +339,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Progress_as_gl_window)(fl_Progress progress){ return (fl_Gl_Window) (static_cast<Fl_Progress*>(progress))->as_gl_window(); }- FL_EXPORT_C(fl_Progress, Fl_Progress_New)(int x, int y, int w, int h){- Fl_Progress* p = new Fl_Progress(x,y,w,h);- return (fl_Progress)p;- }- FL_EXPORT_C(fl_Progress, Fl_Progress_New_WithLabel)(int x, int y, int w, int h,const char *l){- Fl_Progress* p = new Fl_Progress(x,y,w,h,l);- return (fl_Progress)p;- } FL_EXPORT_C(void , Fl_Progress_Destroy)(fl_Progress progress){ delete (static_cast<Fl_Progress*>(progress)); }@@ -305,6 +360,55 @@ FL_EXPORT_C(float,Fl_Progress_value)(fl_Progress progress){ return (static_cast<Fl_Progress*>(progress))->value(); }+ FL_EXPORT_C(fl_Progress, Fl_Progress_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedProgress* w = new Fl_DerivedProgress(X,Y,W,H,fs);+ return (fl_Progress)w;+ }+ FL_EXPORT_C(fl_Progress, Fl_Progress_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedProgress* w = new Fl_DerivedProgress(X,Y,W,H,label,fs);+ return (fl_Progress)w;+ }+ FL_EXPORT_C(fl_Progress, Fl_OverriddenProgress_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedProgress* w = new Fl_DerivedProgress(X,Y,W,H,fs);+ return (fl_Progress)w;+ }+ FL_EXPORT_C(fl_Progress, Fl_OverriddenProgress_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedProgress* w = new Fl_DerivedProgress(X,Y,W,H,label,fs);+ return (fl_Progress)w;+ }+ FL_EXPORT_C(void, Fl_Progress_draw)(fl_Progress o){+ (static_cast<Fl_DerivedProgress*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Progress_draw_super)(fl_Progress o){+ (static_cast<Fl_DerivedProgress*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Progress_handle)(fl_Progress o, int event){+ return (static_cast<Fl_DerivedProgress*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Progress_handle_super)(fl_Progress o, int event){+ return (static_cast<Fl_DerivedProgress*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Progress_resize)(fl_Progress o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedProgress*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Progress_resize_super)(fl_Progress o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedProgress*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Progress_show)(fl_Progress o){+ (static_cast<Fl_DerivedProgress*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Progress_show_super)(fl_Progress o){+ (static_cast<Fl_DerivedProgress*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Progress_hide)(fl_Progress o){+ (static_cast<Fl_DerivedProgress*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Progress_hide_super)(fl_Progress o){+ (static_cast<Fl_DerivedProgress*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_ProgressC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Progress.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedProgress : public Fl_Progress {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ 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);+ ~Fl_DerivedProgress();+ };+ #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int , Fl_Progress_handle )(fl_Progress progress,int event);@@ -109,6 +129,18 @@ FL_EXPORT_C(float, Fl_Progress_minimum)(fl_Progress progress); FL_EXPORT_C(void , Fl_Progress_set_value )(fl_Progress progress,float v); FL_EXPORT_C(float, Fl_Progress_value )(fl_Progress progress);+ FL_EXPORT_C(fl_Progress, Fl_OverriddenProgress_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Progress, Fl_OverriddenProgress_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Progress_draw)(fl_Progress o);+ FL_EXPORT_C(void, Fl_Progress_draw_super)(fl_Progress o);+ FL_EXPORT_C(int, Fl_Progress_handle)(fl_Progress o, int event);+ FL_EXPORT_C(int, Fl_Progress_handle_super)(fl_Progress o, int event);+ FL_EXPORT_C(void, Fl_Progress_resize)(fl_Progress o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Progress_resize_super)(fl_Progress o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Progress_show)(fl_Progress o);+ FL_EXPORT_C(void, Fl_Progress_show_super)(fl_Progress o);+ FL_EXPORT_C(void, Fl_Progress_hide)(fl_Progress o);+ FL_EXPORT_C(void, Fl_Progress_hide_super)(fl_Progress o); #ifdef __cplusplus } #endif
c-src/Fl_Repeat_ButtonC.cpp view
@@ -2,10 +2,82 @@ #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Repeat_Button_handle)(fl_Repeat_Button self, int event){- return (static_cast<Fl_Repeat_Button*>(self))->handle(event);+ Fl_DerivedRepeat_Button::Fl_DerivedRepeat_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Repeat_Button(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedRepeat_Button::Fl_DerivedRepeat_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Repeat_Button(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedRepeat_Button::~Fl_DerivedRepeat_Button(){+ free(overriddenFuncs);+ }+ void Fl_DerivedRepeat_Button::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Repeat_Button) this);+ }+ else {+ Fl_Repeat_Button::draw();+ }+ }++ void Fl_DerivedRepeat_Button::draw_super(){+ Fl_Repeat_Button::draw();+ }++ int Fl_DerivedRepeat_Button::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Repeat_Button) this,event);+ }+ else {+ i = Fl_Repeat_Button::handle(event);+ }+ return i;+ }+ int Fl_DerivedRepeat_Button::handle_super(int event){+ return Fl_Repeat_Button::handle(event);+ }++ void Fl_DerivedRepeat_Button::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Repeat_Button) this,x,y,w,h);+ }+ else {+ Fl_Repeat_Button::resize(x,y,w,h);+ }+ }++ void Fl_DerivedRepeat_Button::resize_super(int x, int y, int w, int h){+ Fl_Repeat_Button::resize(x,y,w,h);+ }+ void Fl_DerivedRepeat_Button::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Repeat_Button) this);+ }+ else {+ Fl_Repeat_Button::show();+ }+ }+ void Fl_DerivedRepeat_Button::show_super(){+ Fl_Repeat_Button::show();+ }++ void Fl_DerivedRepeat_Button::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Repeat_Button) this);+ }+ else {+ Fl_Repeat_Button::hide();+ }+ }+ void Fl_DerivedRepeat_Button::hide_super(){+ Fl_Repeat_Button::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Repeat_Button_parent)(fl_Repeat_Button b){ return (fl_Group) (static_cast<Fl_Repeat_Button*>(b))->parent(); }@@ -266,14 +338,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Repeat_Button_as_gl_window)(fl_Repeat_Button repeat_button){ return (fl_Gl_Window) (static_cast<Fl_Repeat_Button*>(repeat_button))->as_gl_window(); }- FL_EXPORT_C(fl_Repeat_Button, Fl_Repeat_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Repeat_Button* button = new Fl_Repeat_Button(x,y,w,h,label);- return (static_cast<fl_Repeat_Button>(button));- }- FL_EXPORT_C(fl_Repeat_Button, Fl_Repeat_Button_New)(int x, int y, int w, int h) {- Fl_Repeat_Button* button = new Fl_Repeat_Button(x,y,w,h,0);- return (fl_Repeat_Button)button;- } FL_EXPORT_C(void,Fl_Repeat_Button_Destroy)(fl_Repeat_Button button){ delete (static_cast<Fl_Repeat_Button*>(button)); }@@ -306,6 +370,54 @@ } FL_EXPORT_C(void,Fl_Repeat_Button_set_down_color)(fl_Repeat_Button b,Fl_Color c){ (static_cast<Fl_Repeat_Button*>(b))->down_color(c);+ }+ FL_EXPORT_C(fl_Repeat_Button, Fl_Repeat_Button_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedRepeat_Button* w = new Fl_DerivedRepeat_Button(X,Y,W,H,fs);+ return (fl_Repeat_Button)w;+ }+ FL_EXPORT_C(fl_Repeat_Button, Fl_Repeat_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedRepeat_Button* w = new Fl_DerivedRepeat_Button(X,Y,W,H,label,fs);+ return (fl_Repeat_Button)w;+ }+ FL_EXPORT_C(fl_Repeat_Button, Fl_OverriddenRepeat_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedRepeat_Button* w = new Fl_DerivedRepeat_Button(X,Y,W,H,fs);+ return (fl_Repeat_Button)w;+ }+ FL_EXPORT_C(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_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){+ (static_cast<Fl_DerivedRepeat_Button*>(o))->draw();+ }+ 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){+ return (static_cast<Fl_DerivedRepeat_Button*>(o))->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){+ (static_cast<Fl_DerivedRepeat_Button*>(o))->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){+ (static_cast<Fl_DerivedRepeat_Button*>(o))->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){+ (static_cast<Fl_DerivedRepeat_Button*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Repeat_Button_hide_super)(fl_Repeat_Button o){+ (static_cast<Fl_DerivedRepeat_Button*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_Repeat_ButtonC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Repeat_Button.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedRepeat_Button : public Fl_Repeat_Button {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Repeat_Button_handle)(fl_Repeat_Button self, int event);@@ -109,6 +128,18 @@ FL_EXPORT_C(void , Fl_Repeat_Button_set_down_box)(fl_Repeat_Button b,Fl_Boxtype boxtype); FL_EXPORT_C(Fl_Color , Fl_Repeat_Button_down_color )(fl_Repeat_Button b); FL_EXPORT_C(void , Fl_Repeat_Button_set_down_color)(fl_Repeat_Button b, Fl_Color c);+ FL_EXPORT_C(fl_Repeat_Button, Fl_OverriddenRepeat_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(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(void, Fl_Repeat_Button_draw)(fl_Repeat_Button o);+ FL_EXPORT_C(void, Fl_Repeat_Button_draw_super)(fl_Repeat_Button o);+ FL_EXPORT_C(int, Fl_Repeat_Button_handle)(fl_Repeat_Button o, int event);+ FL_EXPORT_C(int, Fl_Repeat_Button_handle_super)(fl_Repeat_Button o, int 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_Repeat_Button_resize_super)(fl_Repeat_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Repeat_Button_show)(fl_Repeat_Button o);+ FL_EXPORT_C(void, Fl_Repeat_Button_show_super)(fl_Repeat_Button o);+ FL_EXPORT_C(void, Fl_Repeat_Button_hide)(fl_Repeat_Button o);+ FL_EXPORT_C(void, Fl_Repeat_Button_hide_super)(fl_Repeat_Button o); #ifdef __cplusplus } #endif
c-src/Fl_Return_ButtonC.cpp view
@@ -2,10 +2,82 @@ #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Return_Button_handle)(fl_Return_Button self, int event){- return (static_cast<Fl_Return_Button*>(self))->handle(event);+ Fl_DerivedReturn_Button::Fl_DerivedReturn_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Return_Button(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedReturn_Button::Fl_DerivedReturn_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Return_Button(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedReturn_Button::~Fl_DerivedReturn_Button(){+ free(overriddenFuncs);+ }+ void Fl_DerivedReturn_Button::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Return_Button) this);+ }+ else {+ Fl_Return_Button::draw();+ }+ }++ void Fl_DerivedReturn_Button::draw_super(){+ Fl_Return_Button::draw();+ }++ int Fl_DerivedReturn_Button::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Return_Button) this,event);+ }+ else {+ i = Fl_Return_Button::handle(event);+ }+ return i;+ }+ int Fl_DerivedReturn_Button::handle_super(int event){+ return Fl_Return_Button::handle(event);+ }++ void Fl_DerivedReturn_Button::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Return_Button) this,x,y,w,h);+ }+ else {+ Fl_Return_Button::resize(x,y,w,h);+ }+ }++ void Fl_DerivedReturn_Button::resize_super(int x, int y, int w, int h){+ Fl_Return_Button::resize(x,y,w,h);+ }+ void Fl_DerivedReturn_Button::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Return_Button) this);+ }+ else {+ Fl_Return_Button::show();+ }+ }+ void Fl_DerivedReturn_Button::show_super(){+ Fl_Return_Button::show();+ }++ void Fl_DerivedReturn_Button::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Return_Button) this);+ }+ else {+ Fl_Return_Button::hide();+ }+ }+ void Fl_DerivedReturn_Button::hide_super(){+ Fl_Return_Button::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Return_Button_parent)(fl_Return_Button b){ return (fl_Group) (static_cast<Fl_Return_Button*>(b))->parent(); }@@ -266,14 +338,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Return_Button_as_gl_window)(fl_Return_Button return_button){ return (fl_Gl_Window) (static_cast<Fl_Return_Button*>(return_button))->as_gl_window(); }- FL_EXPORT_C(fl_Return_Button, Fl_Return_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Return_Button* button = new Fl_Return_Button(x,y,w,h,label);- return (static_cast<fl_Return_Button>(button));- }- FL_EXPORT_C(fl_Return_Button, Fl_Return_Button_New)(int x, int y, int w, int h) {- Fl_Return_Button* button = new Fl_Return_Button(x,y,w,h,0);- return (fl_Return_Button)button;- } FL_EXPORT_C(void,Fl_Return_Button_Destroy)(fl_Return_Button button){ delete (static_cast<Fl_Return_Button*>(button)); }@@ -307,6 +371,55 @@ 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){+ (static_cast<Fl_DerivedReturn_Button*>(o))->draw();+ }+ 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){+ return (static_cast<Fl_DerivedReturn_Button*>(o))->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){+ (static_cast<Fl_DerivedReturn_Button*>(o))->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){+ (static_cast<Fl_DerivedReturn_Button*>(o))->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){+ (static_cast<Fl_DerivedReturn_Button*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Return_Button_hide_super)(fl_Return_Button o){+ (static_cast<Fl_DerivedReturn_Button*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Return_Button, Fl_Return_Button_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedReturn_Button* w = new Fl_DerivedReturn_Button(X,Y,W,H,fs);+ return (fl_Return_Button)w;+ }+ FL_EXPORT_C(fl_Return_Button, Fl_Return_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedReturn_Button* w = new Fl_DerivedReturn_Button(X,Y,W,H,label,fs);+ return (fl_Return_Button)w;+ }+ FL_EXPORT_C(fl_Return_Button, Fl_OverriddenReturn_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedReturn_Button* w = new Fl_DerivedReturn_Button(X,Y,W,H,fs);+ return (fl_Return_Button)w;+ }+ FL_EXPORT_C(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_DerivedReturn_Button* w = new Fl_DerivedReturn_Button(X,Y,W,H,label,fs);+ return (fl_Return_Button)w;+ }+ #ifdef __cplusplus } #endif
c-src/Fl_Return_ButtonC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Return_Button.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedReturn_Button : public Fl_Return_Button {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Return_Button_handle)(fl_Return_Button self, int event);@@ -109,6 +128,18 @@ FL_EXPORT_C(void , Fl_Return_Button_set_down_box)(fl_Return_Button b,Fl_Boxtype boxtype); FL_EXPORT_C(Fl_Color , Fl_Return_Button_down_color )(fl_Return_Button b); FL_EXPORT_C(void , Fl_Return_Button_set_down_color)(fl_Return_Button b, Fl_Color c);+ FL_EXPORT_C(fl_Return_Button, Fl_OverriddenReturn_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(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(void, Fl_Return_Button_draw)(fl_Return_Button o);+ FL_EXPORT_C(void, Fl_Return_Button_draw_super)(fl_Return_Button o);+ FL_EXPORT_C(int, Fl_Return_Button_handle)(fl_Return_Button o, int event);+ FL_EXPORT_C(int, Fl_Return_Button_handle_super)(fl_Return_Button o, int 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_Return_Button_resize_super)(fl_Return_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Return_Button_show)(fl_Return_Button o);+ FL_EXPORT_C(void, Fl_Return_Button_show_super)(fl_Return_Button o);+ FL_EXPORT_C(void, Fl_Return_Button_hide)(fl_Return_Button o);+ FL_EXPORT_C(void, Fl_Return_Button_hide_super)(fl_Return_Button o); #ifdef __cplusplus } #endif
c-src/Fl_RollerC.cpp view
@@ -1,7 +1,82 @@ #include "Fl_RollerC.h" #ifdef __cplusplus EXPORT {-#endif + Fl_DerivedRoller::Fl_DerivedRoller(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Roller(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedRoller::Fl_DerivedRoller(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Roller(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedRoller::~Fl_DerivedRoller(){+ free(overriddenFuncs);+ }+ void Fl_DerivedRoller::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Roller) this);+ }+ else {+ Fl_Roller::draw();+ }+ }++ void Fl_DerivedRoller::draw_super(){+ Fl_Roller::draw();+ }++ int Fl_DerivedRoller::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Roller) this,event);+ }+ else {+ i = Fl_Roller::handle(event);+ }+ return i;+ }+ int Fl_DerivedRoller::handle_super(int event){+ return Fl_Roller::handle(event);+ }++ void Fl_DerivedRoller::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Roller) this,x,y,w,h);+ }+ else {+ Fl_Roller::resize(x,y,w,h);+ }+ }++ void Fl_DerivedRoller::resize_super(int x, int y, int w, int h){+ Fl_Roller::resize(x,y,w,h);+ }+ void Fl_DerivedRoller::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Roller) this);+ }+ else {+ Fl_Roller::show();+ }+ }+ void Fl_DerivedRoller::show_super(){+ Fl_Roller::show();+ }++ void Fl_DerivedRoller::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Roller) this);+ }+ else {+ Fl_Roller::hide();+ }+ }+ void Fl_DerivedRoller::hide_super(){+ Fl_Roller::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Roller_parent)(fl_Roller roller){ return (static_cast<Fl_Roller*>(roller))->parent(); }@@ -152,12 +227,6 @@ FL_EXPORT_C(int,Fl_Roller_visible_r)(fl_Roller roller){ return (static_cast<Fl_Roller*>(roller))->visible_r(); }- FL_EXPORT_C(void,Fl_Roller_show)(fl_Roller roller){- (static_cast<Fl_Roller*>(roller))->show();- }- FL_EXPORT_C(void,Fl_Roller_hide)(fl_Roller roller){- (static_cast<Fl_Roller*>(roller))->hide();- } FL_EXPORT_C(void,Fl_Roller_set_visible)(fl_Roller roller){ (static_cast<Fl_Roller*>(roller))->visible(); }@@ -254,9 +323,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Roller_as_gl_window)(fl_Roller roller){ return (static_cast<Fl_Roller*>(roller))->as_gl_window(); }- FL_EXPORT_C(void,Fl_Roller_resize)(fl_Roller roller,int X,int Y,int W,int H){- (static_cast<Fl_Roller*>(roller))->resize(X,Y,W,H);- } FL_EXPORT_C(void,Fl_Roller_bounds)(fl_Roller roller,double a,double b){ (static_cast<Fl_Roller*>(roller))->bounds(a,b); }@@ -308,20 +374,58 @@ FL_EXPORT_C(double,Fl_Roller_increment)(fl_Roller roller,double v,int n){ return (static_cast<Fl_Roller*>(roller))->increment(v,n); }- FL_EXPORT_C(fl_Roller,Fl_Roller_New_WithLabel)(int x,int y,int w,int h,const char* label){- Fl_Roller* roller = new Fl_Roller(x,y,w,h,label);- return (fl_Roller) roller;- }- FL_EXPORT_C(fl_Roller,Fl_Roller_New)(int x,int y,int w,int h){- Fl_Roller* roller = new Fl_Roller(x,y,w,h);- return (fl_Roller) roller;- } FL_EXPORT_C(void,Fl_Roller_Destroy)(fl_Roller roller){ delete (static_cast<Fl_Roller*>(roller)); }- FL_EXPORT_C(int,Fl_Roller_handle)(fl_Roller roller,int event){- return (static_cast<Fl_Roller*>(roller))->handle(event);+ FL_EXPORT_C(fl_Roller, Fl_Roller_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedRoller* w = new Fl_DerivedRoller(X,Y,W,H,fs);+ return (fl_Roller)w; }+ FL_EXPORT_C(fl_Roller, Fl_Roller_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedRoller* w = new Fl_DerivedRoller(X,Y,W,H,label,fs);+ return (fl_Roller)w;+ }+ FL_EXPORT_C(fl_Roller, Fl_OverriddenRoller_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedRoller* w = new Fl_DerivedRoller(X,Y,W,H,fs);+ return (fl_Roller)w;+ }+ FL_EXPORT_C(fl_Roller, Fl_OverriddenRoller_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedRoller* w = new Fl_DerivedRoller(X,Y,W,H,label,fs);+ return (fl_Roller)w;+ }+ FL_EXPORT_C(void, Fl_Roller_draw)(fl_Roller o){+ (static_cast<Fl_DerivedRoller*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Roller_draw_super)(fl_Roller o){+ (static_cast<Fl_DerivedRoller*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Roller_handle)(fl_Roller o, int event){+ return (static_cast<Fl_DerivedRoller*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Roller_handle_super)(fl_Roller o, int event){+ return (static_cast<Fl_DerivedRoller*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Roller_resize)(fl_Roller o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedRoller*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Roller_resize_super)(fl_Roller o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedRoller*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Roller_show)(fl_Roller o){+ (static_cast<Fl_DerivedRoller*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Roller_show_super)(fl_Roller o){+ (static_cast<Fl_DerivedRoller*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Roller_hide)(fl_Roller o){+ (static_cast<Fl_DerivedRoller*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Roller_hide_super)(fl_Roller o){+ (static_cast<Fl_DerivedRoller*>(o))->hide_super();+ }+ #ifdef __cplusplus }-#endif +#endif
c-src/Fl_RollerC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Roller.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedRoller : public Fl_Roller {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif FL_EXPORT_C(fl_Group, Fl_Roller_parent)(fl_Roller roller); FL_EXPORT_C(void, Fl_Roller_set_parent)(fl_Roller roller, fl_Group grp);@@ -117,6 +137,18 @@ FL_EXPORT_C(fl_Roller , Fl_Roller_New)(int x, int y, int w, int h); FL_EXPORT_C(void, Fl_Roller_Destroy)(fl_Roller roller); FL_EXPORT_C(int, Fl_Roller_handle)(fl_Roller roller, int event);+ FL_EXPORT_C(fl_Roller, Fl_OverriddenRoller_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Roller, Fl_OverriddenRoller_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Roller_draw)(fl_Roller o);+ FL_EXPORT_C(void, Fl_Roller_draw_super)(fl_Roller o);+ FL_EXPORT_C(int, Fl_Roller_handle)(fl_Roller o, int event);+ FL_EXPORT_C(int, Fl_Roller_handle_super)(fl_Roller o, int event);+ FL_EXPORT_C(void, Fl_Roller_resize)(fl_Roller o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Roller_resize_super)(fl_Roller o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Roller_show)(fl_Roller o);+ FL_EXPORT_C(void, Fl_Roller_show_super)(fl_Roller o);+ FL_EXPORT_C(void, Fl_Roller_hide)(fl_Roller o);+ FL_EXPORT_C(void, Fl_Roller_hide_super)(fl_Roller o); #ifdef __cplusplus } #endif
c-src/Fl_Round_ButtonC.cpp view
@@ -2,10 +2,82 @@ #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Round_Button_handle)(fl_Round_Button self, int event){- return (static_cast<Fl_Round_Button*>(self))->handle(event);+ Fl_DerivedRound_Button::Fl_DerivedRound_Button(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Round_Button(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedRound_Button::Fl_DerivedRound_Button(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Round_Button(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedRound_Button::~Fl_DerivedRound_Button(){+ free(overriddenFuncs);+ }+ void Fl_DerivedRound_Button::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Round_Button) this);+ }+ else {+ Fl_Round_Button::draw();+ }+ }++ void Fl_DerivedRound_Button::draw_super(){+ Fl_Round_Button::draw();+ }++ int Fl_DerivedRound_Button::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Round_Button) this,event);+ }+ else {+ i = Fl_Round_Button::handle(event);+ }+ return i;+ }+ int Fl_DerivedRound_Button::handle_super(int event){+ return Fl_Round_Button::handle(event);+ }++ void Fl_DerivedRound_Button::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Round_Button) this,x,y,w,h);+ }+ else {+ Fl_Round_Button::resize(x,y,w,h);+ }+ }++ void Fl_DerivedRound_Button::resize_super(int x, int y, int w, int h){+ Fl_Round_Button::resize(x,y,w,h);+ }+ void Fl_DerivedRound_Button::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Round_Button) this);+ }+ else {+ Fl_Round_Button::show();+ }+ }+ void Fl_DerivedRound_Button::show_super(){+ Fl_Round_Button::show();+ }++ void Fl_DerivedRound_Button::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Round_Button) this);+ }+ else {+ Fl_Round_Button::hide();+ }+ }+ void Fl_DerivedRound_Button::hide_super(){+ Fl_Round_Button::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Round_Button_parent)(fl_Round_Button b){ return (fl_Group) (static_cast<Fl_Round_Button*>(b))->parent(); }@@ -266,14 +338,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Round_Button_as_gl_window)(fl_Round_Button round_button){ return (fl_Gl_Window) (static_cast<Fl_Round_Button*>(round_button))->as_gl_window(); }- FL_EXPORT_C(fl_Round_Button, Fl_Round_Button_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Round_Button* button = new Fl_Round_Button(x,y,w,h,label);- return (static_cast<fl_Round_Button>(button));- }- FL_EXPORT_C(fl_Round_Button, Fl_Round_Button_New)(int x, int y, int w, int h) {- Fl_Round_Button* button = new Fl_Round_Button(x,y,w,h,0);- return (fl_Round_Button)button;- } FL_EXPORT_C(void,Fl_Round_Button_Destroy)(fl_Round_Button button){ delete (static_cast<Fl_Round_Button*>(button)); }@@ -307,6 +371,55 @@ FL_EXPORT_C(void,Fl_Round_Button_set_down_color)(fl_Round_Button b,Fl_Color c){ (static_cast<Fl_Round_Button*>(b))->down_color(c); }+ FL_EXPORT_C(fl_Round_Button, Fl_Round_Button_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedRound_Button* w = new Fl_DerivedRound_Button(X,Y,W,H,fs);+ return (fl_Round_Button)w;+ }+ FL_EXPORT_C(fl_Round_Button, Fl_Round_Button_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedRound_Button* w = new Fl_DerivedRound_Button(X,Y,W,H,label,fs);+ return (fl_Round_Button)w;+ }+ FL_EXPORT_C(fl_Round_Button, Fl_OverriddenRound_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedRound_Button* w = new Fl_DerivedRound_Button(X,Y,W,H,fs);+ return (fl_Round_Button)w;+ }+ FL_EXPORT_C(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_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){+ (static_cast<Fl_DerivedRound_Button*>(o))->draw();+ }+ 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){+ return (static_cast<Fl_DerivedRound_Button*>(o))->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){+ (static_cast<Fl_DerivedRound_Button*>(o))->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){+ (static_cast<Fl_DerivedRound_Button*>(o))->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){+ (static_cast<Fl_DerivedRound_Button*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Round_Button_hide_super)(fl_Round_Button o){+ (static_cast<Fl_DerivedRound_Button*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_Round_ButtonC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Round_Button.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedRound_Button : public Fl_Round_Button {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Round_Button_handle)(fl_Round_Button self, int event);@@ -109,6 +128,18 @@ FL_EXPORT_C(void , Fl_Round_Button_set_down_box)(fl_Round_Button b,Fl_Boxtype boxtype); FL_EXPORT_C(Fl_Color , Fl_Round_Button_down_color )(fl_Round_Button b); FL_EXPORT_C(void , Fl_Round_Button_set_down_color)(fl_Round_Button b, Fl_Color c);+ FL_EXPORT_C(fl_Round_Button, Fl_OverriddenRound_Button_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(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(void, Fl_Round_Button_draw)(fl_Round_Button o);+ FL_EXPORT_C(void, Fl_Round_Button_draw_super)(fl_Round_Button o);+ FL_EXPORT_C(int, Fl_Round_Button_handle)(fl_Round_Button o, int event);+ FL_EXPORT_C(int, Fl_Round_Button_handle_super)(fl_Round_Button o, int 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_Round_Button_resize_super)(fl_Round_Button o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Round_Button_show)(fl_Round_Button o);+ FL_EXPORT_C(void, Fl_Round_Button_show_super)(fl_Round_Button o);+ FL_EXPORT_C(void, Fl_Round_Button_hide)(fl_Round_Button o);+ FL_EXPORT_C(void, Fl_Round_Button_hide_super)(fl_Round_Button o); #ifdef __cplusplus } #endif
c-src/Fl_ScrollC.cpp view
@@ -1,6 +1,79 @@ #include "Fl_ScrollC.h" #ifdef __cplusplus EXPORT {+ Fl_DerivedScroll::Fl_DerivedScroll(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Scroll(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedScroll::Fl_DerivedScroll(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Scroll(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedScroll::~Fl_DerivedScroll(){+ free(overriddenFuncs);+ }+ void Fl_DerivedScroll::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Scroll) this);+ }+ else {+ Fl_Scroll::draw();+ }+ }++ void Fl_DerivedScroll::draw_super(){+ Fl_Scroll::draw();+ }++ int Fl_DerivedScroll::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Scroll) this,event);+ }+ else {+ i = Fl_Scroll::handle(event);+ }+ return i;+ }+ int Fl_DerivedScroll::handle_super(int event){+ return Fl_Scroll::handle(event);+ }++ void Fl_DerivedScroll::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Scroll) this,x,y,w,h);+ }+ else {+ Fl_Scroll::resize(x,y,w,h);+ }+ }++ void Fl_DerivedScroll::resize_super(int x, int y, int w, int h){+ Fl_Scroll::resize(x,y,w,h);+ }+ void Fl_DerivedScroll::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Scroll) this);+ }+ else {+ Fl_Scroll::show();+ }+ }+ void Fl_DerivedScroll::show_super(){+ Fl_Scroll::show();+ }++ void Fl_DerivedScroll::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Scroll) this);+ }+ else {+ Fl_Scroll::hide();+ }+ }+ void Fl_DerivedScroll::hide_super(){+ Fl_Scroll::hide();+ } #endif FL_EXPORT_C(void,Fl_Scroll_set_scrollbar_size)(fl_Scroll widget,int size){ (static_cast<Fl_Scroll*>(widget))->scrollbar_size(size);@@ -26,19 +99,53 @@ FL_EXPORT_C(void,Fl_Scroll_set_type)(fl_Scroll widget,uchar t){ (static_cast<Fl_Scroll*>(widget))->type(t); }- FL_EXPORT_C(void,Fl_Scroll_resize)(fl_Scroll scroll,int X,int Y,int W,int H){- (static_cast<Fl_Scroll*>(scroll))->resize(X,Y,W,H);+ FL_EXPORT_C(fl_Scroll, Fl_Scroll_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedScroll* w = new Fl_DerivedScroll(X,Y,W,H,fs);+ return (fl_Scroll)w; }- FL_EXPORT_C(int,Fl_Scroll_handle)(fl_Scroll self,int event){- return (static_cast<Fl_Scroll*>(self))->handle(event);+ FL_EXPORT_C(fl_Scroll, Fl_Scroll_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedScroll* w = new Fl_DerivedScroll(X,Y,W,H,label,fs);+ return (fl_Scroll)w; }- FL_EXPORT_C(fl_Scroll,Fl_Scroll_New_WithLabel)(int x,int y,int w,int h,const char* label){- Fl_Scroll* scroll = new Fl_Scroll(x,y,w,h,label);- return (static_cast<fl_Scroll>(scroll));+ FL_EXPORT_C(fl_Scroll, Fl_OverriddenScroll_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedScroll* w = new Fl_DerivedScroll(X,Y,W,H,fs);+ return (fl_Scroll)w; }- FL_EXPORT_C(fl_Scroll,Fl_Scroll_New)(int x,int y,int w,int h){- Fl_Scroll* scroll = new Fl_Scroll(x,y,w,h);- return (static_cast<fl_Scroll>(scroll));+ FL_EXPORT_C(fl_Scroll, Fl_OverriddenScroll_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedScroll* w = new Fl_DerivedScroll(X,Y,W,H,label,fs);+ return (fl_Scroll)w;+ }+ FL_EXPORT_C(void, Fl_Scroll_draw)(fl_Scroll o){+ (static_cast<Fl_DerivedScroll*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Scroll_draw_super)(fl_Scroll o){+ (static_cast<Fl_DerivedScroll*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Scroll_handle)(fl_Scroll o, int event){+ return (static_cast<Fl_DerivedScroll*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Scroll_handle_super)(fl_Scroll o, int event){+ return (static_cast<Fl_DerivedScroll*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Scroll_resize)(fl_Scroll o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedScroll*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Scroll_resize_super)(fl_Scroll o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedScroll*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Scroll_show)(fl_Scroll o){+ (static_cast<Fl_DerivedScroll*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Scroll_show_super)(fl_Scroll o){+ (static_cast<Fl_DerivedScroll*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Scroll_hide)(fl_Scroll o){+ (static_cast<Fl_DerivedScroll*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Scroll_hide_super)(fl_Scroll o){+ (static_cast<Fl_DerivedScroll*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_ScrollC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Scroll.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedScroll : public Fl_Scroll {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif FL_EXPORT_C(void, Fl_Scroll_set_scrollbar_size)(fl_Scroll widget, int size); FL_EXPORT_C(int, Fl_Scroll_get_scrollbar_size)(fl_Scroll widget);@@ -21,6 +40,18 @@ FL_EXPORT_C(int,Fl_Scroll_handle)(fl_Scroll scroll, int event); FL_EXPORT_C(fl_Scroll, Fl_Scroll_New_WithLabel)(int x, int y, int w, int h, const char* label); FL_EXPORT_C(fl_Scroll, Fl_Scroll_New)(int x, int y, int w, int h);+ FL_EXPORT_C(fl_Scroll, Fl_OverriddenScroll_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Scroll, Fl_OverriddenScroll_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Scroll_draw)(fl_Scroll o);+ FL_EXPORT_C(void, Fl_Scroll_draw_super)(fl_Scroll o);+ FL_EXPORT_C(int, Fl_Scroll_handle)(fl_Scroll o, int event);+ FL_EXPORT_C(int, Fl_Scroll_handle_super)(fl_Scroll o, int event);+ FL_EXPORT_C(void, Fl_Scroll_resize)(fl_Scroll o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Scroll_resize_super)(fl_Scroll o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Scroll_show)(fl_Scroll o);+ FL_EXPORT_C(void, Fl_Scroll_show_super)(fl_Scroll o);+ FL_EXPORT_C(void, Fl_Scroll_hide)(fl_Scroll o);+ FL_EXPORT_C(void, Fl_Scroll_hide_super)(fl_Scroll o); #ifdef __cplusplus } #endif
c-src/Fl_ScrollbarC.cpp view
@@ -1,19 +1,80 @@ #include "Fl_ScrollbarC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Scrollbar_handle )(fl_Scrollbar slider, int event){- return (static_cast<Fl_Scrollbar*>(slider))->handle(event);+ Fl_DerivedScrollbar::Fl_DerivedScrollbar(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Scrollbar(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Scrollbar_resize )(fl_Scrollbar slider,int x, int y, int w, int h){- (static_cast<Fl_Scrollbar*>(slider))->resize(x,y,w,h);+ Fl_DerivedScrollbar::Fl_DerivedScrollbar(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Scrollbar(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Scrollbar_show )(fl_Scrollbar slider){- (static_cast<Fl_Scrollbar*>(slider))->show();+ Fl_DerivedScrollbar::~Fl_DerivedScrollbar(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Scrollbar_hide )(fl_Scrollbar slider){- (static_cast<Fl_Scrollbar*>(slider))->hide();+ void Fl_DerivedScrollbar::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Scrollbar) this);+ }+ else {+ Fl_Scrollbar::draw();+ } }++ void Fl_DerivedScrollbar::draw_super(){+ Fl_Scrollbar::draw();+ }++ int Fl_DerivedScrollbar::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Scrollbar) this,event);+ }+ else {+ i = Fl_Scrollbar::handle(event);+ }+ return i;+ }+ int Fl_DerivedScrollbar::handle_super(int event){+ return Fl_Scrollbar::handle(event);+ }++ void Fl_DerivedScrollbar::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Scrollbar) this,x,y,w,h);+ }+ else {+ Fl_Scrollbar::resize(x,y,w,h);+ }+ }++ void Fl_DerivedScrollbar::resize_super(int x, int y, int w, int h){+ Fl_Scrollbar::resize(x,y,w,h);+ }+ void Fl_DerivedScrollbar::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Scrollbar) this);+ }+ else {+ Fl_Scrollbar::show();+ }+ }+ void Fl_DerivedScrollbar::show_super(){+ Fl_Scrollbar::show();+ }++ void Fl_DerivedScrollbar::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Scrollbar) this);+ }+ else {+ Fl_Scrollbar::hide();+ }+ }+ void Fl_DerivedScrollbar::hide_super(){+ Fl_Scrollbar::hide();+ }+#endif FL_EXPORT_C(fl_Window,Fl_Scrollbar_as_window )(fl_Scrollbar slider){ return (static_cast<Fl_Scrollbar*>(slider))->as_window(); }@@ -327,14 +388,6 @@ FL_EXPORT_C(double,Fl_Scrollbar_increment)(fl_Scrollbar slider,double v,int n){ return (static_cast<Fl_Scrollbar*>(slider))->increment(v,n); }- FL_EXPORT_C(fl_Scrollbar, Fl_Scrollbar_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Scrollbar* slider = new Fl_Scrollbar(x,y,w,h,label);- return (static_cast<fl_Scrollbar>(slider));- }- FL_EXPORT_C(fl_Scrollbar, Fl_Scrollbar_New)(int x, int y, int w, int h) {- Fl_Scrollbar* slider = new Fl_Scrollbar(x,y,w,h,0);- return (fl_Scrollbar)slider;- } FL_EXPORT_C(void, Fl_Scrollbar_Destroy)(fl_Scrollbar slider){ delete (static_cast<Fl_Scrollbar*>(slider)); }@@ -358,6 +411,54 @@ } FL_EXPORT_C(int , Fl_Scrollbar_linesize)(fl_Scrollbar slider){ return (static_cast<Fl_Scrollbar*>(slider))->linesize();+ }+ FL_EXPORT_C(void, Fl_Scrollbar_draw)(fl_Scrollbar o){+ (static_cast<Fl_DerivedScrollbar*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Scrollbar_draw_super)(fl_Scrollbar o){+ (static_cast<Fl_DerivedScrollbar*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Scrollbar_handle)(fl_Scrollbar o, int event){+ return (static_cast<Fl_DerivedScrollbar*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Scrollbar_handle_super)(fl_Scrollbar o, int event){+ return (static_cast<Fl_DerivedScrollbar*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Scrollbar_resize)(fl_Scrollbar o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedScrollbar*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Scrollbar_resize_super)(fl_Scrollbar o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedScrollbar*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Scrollbar_show)(fl_Scrollbar o){+ (static_cast<Fl_DerivedScrollbar*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Scrollbar_show_super)(fl_Scrollbar o){+ (static_cast<Fl_DerivedScrollbar*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Scrollbar_hide)(fl_Scrollbar o){+ (static_cast<Fl_DerivedScrollbar*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Scrollbar_hide_super)(fl_Scrollbar o){+ (static_cast<Fl_DerivedScrollbar*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Scrollbar, Fl_Scrollbar_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedScrollbar* w = new Fl_DerivedScrollbar(X,Y,W,H,fs);+ return (fl_Scrollbar)w;+ }+ FL_EXPORT_C(fl_Scrollbar, Fl_Scrollbar_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedScrollbar* w = new Fl_DerivedScrollbar(X,Y,W,H,label,fs);+ return (fl_Scrollbar)w;+ }+ FL_EXPORT_C(fl_Scrollbar, Fl_OverriddenScrollbar_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedScrollbar* w = new Fl_DerivedScrollbar(X,Y,W,H,fs);+ return (fl_Scrollbar)w;+ }+ FL_EXPORT_C(fl_Scrollbar, Fl_OverriddenScrollbar_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedScrollbar* w = new Fl_DerivedScrollbar(X,Y,W,H,label,fs);+ return (fl_Scrollbar)w; } #ifdef __cplusplus }
c-src/Fl_ScrollbarC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Scrollbar.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedScrollbar : public Fl_Scrollbar {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif FL_EXPORT_C(int,Fl_Scrollbar_handle)(fl_Widget self, int event); FL_EXPORT_C(fl_Group, Fl_Scrollbar_parent)(fl_Scrollbar slider);@@ -124,6 +143,18 @@ FL_EXPORT_C(void, Fl_Scrollbar_set_slider)(fl_Scrollbar slider, Fl_Boxtype c); FL_EXPORT_C(void, Fl_Scrollbar_set_linesize)(fl_Scrollbar slider, int i); FL_EXPORT_C(int , Fl_Scrollbar_linesize)(fl_Scrollbar slider);+ FL_EXPORT_C(fl_Scrollbar, Fl_OverriddenScrollbar_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Scrollbar, Fl_OverriddenScrollbar_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Scrollbar_draw)(fl_Scrollbar o);+ FL_EXPORT_C(void, Fl_Scrollbar_draw_super)(fl_Scrollbar o);+ FL_EXPORT_C(int, Fl_Scrollbar_handle)(fl_Scrollbar o, int event);+ FL_EXPORT_C(int, Fl_Scrollbar_handle_super)(fl_Scrollbar o, int event);+ FL_EXPORT_C(void, Fl_Scrollbar_resize)(fl_Scrollbar o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Scrollbar_resize_super)(fl_Scrollbar o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Scrollbar_show)(fl_Scrollbar o);+ FL_EXPORT_C(void, Fl_Scrollbar_show_super)(fl_Scrollbar o);+ FL_EXPORT_C(void, Fl_Scrollbar_hide)(fl_Scrollbar o);+ FL_EXPORT_C(void, Fl_Scrollbar_hide_super)(fl_Scrollbar o); #ifdef __cplusplus } #endif
c-src/Fl_SliderC.cpp view
@@ -1,31 +1,80 @@ #include "Fl_SliderC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Slider_handle_super)(fl_Slider slider,int event){- return (static_cast<Fl_Slider*>(slider))->Fl_Slider::handle(event);+ Fl_DerivedSlider::Fl_DerivedSlider(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Slider(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(int,Fl_Slider_handle )(fl_Slider slider, int event){- return (static_cast<Fl_Slider*>(slider))->handle(event);+ Fl_DerivedSlider::Fl_DerivedSlider(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Slider(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Slider_resize_super )(fl_Slider slider,int x, int y, int w, int h){- (static_cast<Fl_Slider*>(slider))->Fl_Slider::resize(x,y,w,h);+ Fl_DerivedSlider::~Fl_DerivedSlider(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Slider_resize )(fl_Slider slider,int x, int y, int w, int h){- (static_cast<Fl_Slider*>(slider))->resize(x,y,w,h);+ void Fl_DerivedSlider::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Slider) this);+ }+ else {+ Fl_Slider::draw();+ } }- FL_EXPORT_C(void,Fl_Slider_show_super)(fl_Slider slider){- (static_cast<Fl_Slider*>(slider))->Fl_Slider::show();++ void Fl_DerivedSlider::draw_super(){+ Fl_Slider::draw(); }- FL_EXPORT_C(void,Fl_Slider_show )(fl_Slider slider){- (static_cast<Fl_Slider*>(slider))->show();++ int Fl_DerivedSlider::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Slider) this,event);+ }+ else {+ i = Fl_Slider::handle(event);+ }+ return i; }- FL_EXPORT_C(void,Fl_Slider_hide_super)(fl_Slider slider){- (static_cast<Fl_Slider*>(slider))->Fl_Slider::hide();+ int Fl_DerivedSlider::handle_super(int event){+ return Fl_Slider::handle(event); }- FL_EXPORT_C(void,Fl_Slider_hide )(fl_Slider slider){- (static_cast<Fl_Slider*>(slider))->hide();++ void Fl_DerivedSlider::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Slider) this,x,y,w,h);+ }+ else {+ Fl_Slider::resize(x,y,w,h);+ } }++ void Fl_DerivedSlider::resize_super(int x, int y, int w, int h){+ Fl_Slider::resize(x,y,w,h);+ }+ void Fl_DerivedSlider::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Slider) this);+ }+ else {+ Fl_Slider::show();+ }+ }+ void Fl_DerivedSlider::show_super(){+ Fl_Slider::show();+ }++ void Fl_DerivedSlider::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Slider) this);+ }+ else {+ Fl_Slider::hide();+ }+ }+ void Fl_DerivedSlider::hide_super(){+ Fl_Slider::hide();+ }+#endif FL_EXPORT_C(fl_Window,Fl_Slider_as_window_super)(fl_Slider slider){ return (static_cast<Fl_Slider*>(slider))->Fl_Slider::as_window(); }@@ -345,14 +394,6 @@ FL_EXPORT_C(double,Fl_Slider_increment)(fl_Slider slider,double v,int n){ return (static_cast<Fl_Slider*>(slider))->increment(v,n); }- FL_EXPORT_C(fl_Slider, Fl_Slider_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Slider* slider = new Fl_Slider(x,y,w,h,label);- return (static_cast<fl_Slider>(slider));- }- FL_EXPORT_C(fl_Slider, Fl_Slider_New)(int x, int y, int w, int h) {- Fl_Slider* slider = new Fl_Slider(x,y,w,h,0);- return (fl_Slider)slider;- } FL_EXPORT_C(fl_Slider, Fl_Slider_New_WithT)(uchar t, int x, int y, int w, int h, const char* label){ Fl_Slider* slider = new Fl_Slider(t,x,y,w,h,label); return (fl_Slider)slider;@@ -414,6 +455,54 @@ } FL_EXPORT_C(void,Fl_Slider_set_slider)(fl_Slider slider,Fl_Boxtype c){ (static_cast<Fl_Slider*>(slider))->slider(c);+ }+ FL_EXPORT_C(fl_Slider, Fl_Slider_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedSlider* w = new Fl_DerivedSlider(X,Y,W,H,fs);+ return (fl_Slider)w;+ }+ FL_EXPORT_C(fl_Slider, Fl_Slider_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedSlider* w = new Fl_DerivedSlider(X,Y,W,H,label,fs);+ return (fl_Slider)w;+ }+ FL_EXPORT_C(fl_Slider, Fl_OverriddenSlider_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedSlider* w = new Fl_DerivedSlider(X,Y,W,H,fs);+ return (fl_Slider)w;+ }+ FL_EXPORT_C(fl_Slider, Fl_OverriddenSlider_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ 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){+ (static_cast<Fl_DerivedSlider*>(o))->draw();+ }+ 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){+ return (static_cast<Fl_DerivedSlider*>(o))->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){+ (static_cast<Fl_DerivedSlider*>(o))->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){+ (static_cast<Fl_DerivedSlider*>(o))->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){+ (static_cast<Fl_DerivedSlider*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Slider_hide_super)(fl_Slider o){+ (static_cast<Fl_DerivedSlider*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_SliderC.h view
@@ -12,7 +12,26 @@ #include "FL/Fl_Hor_Nice_Slider.H" #include "FL/Fl_Nice_Slider.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedSlider : public Fl_Slider {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif FL_EXPORT_C(int,Fl_Slider_handle)(fl_Widget self, int event); FL_EXPORT_C(int,Fl_Slider_handle_super)(fl_Widget self, int event);@@ -143,6 +162,18 @@ FL_EXPORT_C(void, Fl_Slider_slider_size)(fl_Slider slider, double v); FL_EXPORT_C(Fl_Boxtype, Fl_Slider_slider)(fl_Slider slider); FL_EXPORT_C(void, Fl_Slider_set_slider)(fl_Slider slider, Fl_Boxtype c);+ FL_EXPORT_C(fl_Slider, Fl_OverriddenSlider_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(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(void, Fl_Slider_draw)(fl_Slider o);+ FL_EXPORT_C(void, Fl_Slider_draw_super)(fl_Slider o);+ FL_EXPORT_C(int, Fl_Slider_handle)(fl_Slider o, int event);+ FL_EXPORT_C(int, Fl_Slider_handle_super)(fl_Slider o, int event);+ FL_EXPORT_C(void, Fl_Slider_resize)(fl_Slider o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Slider_resize_super)(fl_Slider o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Slider_show)(fl_Slider o);+ FL_EXPORT_C(void, Fl_Slider_show_super)(fl_Slider o);+ FL_EXPORT_C(void, Fl_Slider_hide)(fl_Slider o);+ FL_EXPORT_C(void, Fl_Slider_hide_super)(fl_Slider o); #ifdef __cplusplus } #endif
c-src/Fl_SpinnerC.cpp view
@@ -1,6 +1,79 @@ #include "Fl_SpinnerC.h" #ifdef __cplusplus EXPORT {+ Fl_DerivedSpinner::Fl_DerivedSpinner(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Spinner(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedSpinner::Fl_DerivedSpinner(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Spinner(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedSpinner::~Fl_DerivedSpinner(){+ free(overriddenFuncs);+ }+ void Fl_DerivedSpinner::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Spinner) this);+ }+ else {+ Fl_Spinner::draw();+ }+ }++ void Fl_DerivedSpinner::draw_super(){+ Fl_Spinner::draw();+ }++ int Fl_DerivedSpinner::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Spinner) this,event);+ }+ else {+ i = Fl_Spinner::handle(event);+ }+ return i;+ }+ int Fl_DerivedSpinner::handle_super(int event){+ return Fl_Spinner::handle(event);+ }++ void Fl_DerivedSpinner::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Spinner) this,x,y,w,h);+ }+ else {+ Fl_Spinner::resize(x,y,w,h);+ }+ }++ void Fl_DerivedSpinner::resize_super(int x, int y, int w, int h){+ Fl_Spinner::resize(x,y,w,h);+ }+ void Fl_DerivedSpinner::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Spinner) this);+ }+ else {+ Fl_Spinner::show();+ }+ }+ void Fl_DerivedSpinner::show_super(){+ Fl_Spinner::show();+ }++ void Fl_DerivedSpinner::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Spinner) this);+ }+ else {+ Fl_Spinner::hide();+ }+ }+ void Fl_DerivedSpinner::hide_super(){+ Fl_Spinner::hide();+ } #endif FL_EXPORT_C(Fl_Color,Fl_Spinner_color)(fl_Spinner spinner){ return (static_cast<Fl_Spinner*>(spinner))->color();@@ -20,9 +93,6 @@ FL_EXPORT_C(void,Fl_Spinner_set_type)(fl_Spinner spinner,uchar t){ (static_cast<Fl_Spinner*>(spinner))->type(t); }- FL_EXPORT_C(void,Fl_Spinner_resize)(fl_Spinner spinner,int X,int Y,int W,int H){- (static_cast<Fl_Spinner*>(spinner))->resize(X,Y,W,H);- } FL_EXPORT_C(double,Fl_Spinner_minimum)(fl_Spinner spinner){ return (static_cast<Fl_Spinner*>(spinner))->minimum(); }@@ -74,16 +144,53 @@ FL_EXPORT_C(Fl_Color,Fl_Spinner_textcolor)(fl_Spinner spinner){ return (static_cast<Fl_Spinner*>(spinner))->textcolor(); }- FL_EXPORT_C(int,Fl_Spinner_handle)(fl_Spinner spinner,int event){- return (static_cast<Fl_Spinner*>(spinner))->handle(event);+ FL_EXPORT_C(fl_Spinner, Fl_Spinner_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedSpinner* w = new Fl_DerivedSpinner(X,Y,W,H,fs);+ return (fl_Spinner)w; }- FL_EXPORT_C(fl_Spinner,Fl_Spinner_New_WithLabel)(int x,int y,int w,int h,const char* label){- Fl_Spinner* counter = new Fl_Spinner(x,y,w,h,label);- return (fl_Spinner) counter;+ FL_EXPORT_C(fl_Spinner, Fl_Spinner_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedSpinner* w = new Fl_DerivedSpinner(X,Y,W,H,label,fs);+ return (fl_Spinner)w; }- FL_EXPORT_C(fl_Spinner,Fl_Spinner_New)(int x,int y,int w,int h){- Fl_Spinner* counter = new Fl_Spinner(x,y,w,h);- return (fl_Spinner) counter;+ FL_EXPORT_C(fl_Spinner, Fl_OverriddenSpinner_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedSpinner* w = new Fl_DerivedSpinner(X,Y,W,H,fs);+ return (fl_Spinner)w;+ }+ FL_EXPORT_C(fl_Spinner, Fl_OverriddenSpinner_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedSpinner* w = new Fl_DerivedSpinner(X,Y,W,H,label,fs);+ return (fl_Spinner)w;+ }+ FL_EXPORT_C(void, Fl_Spinner_draw)(fl_Spinner o){+ (static_cast<Fl_DerivedSpinner*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Spinner_draw_super)(fl_Spinner o){+ (static_cast<Fl_DerivedSpinner*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Spinner_handle)(fl_Spinner o, int event){+ return (static_cast<Fl_DerivedSpinner*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Spinner_handle_super)(fl_Spinner o, int event){+ return (static_cast<Fl_DerivedSpinner*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Spinner_resize)(fl_Spinner o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedSpinner*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Spinner_resize_super)(fl_Spinner o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedSpinner*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Spinner_show)(fl_Spinner o){+ (static_cast<Fl_DerivedSpinner*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Spinner_show_super)(fl_Spinner o){+ (static_cast<Fl_DerivedSpinner*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Spinner_hide)(fl_Spinner o){+ (static_cast<Fl_DerivedSpinner*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Spinner_hide_super)(fl_Spinner o){+ (static_cast<Fl_DerivedSpinner*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_SpinnerC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Spinner.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedSpinner : public Fl_Spinner {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif #ifndef INTERNAL_LINKAGE typedef enum Spinner_Type {@@ -42,6 +62,18 @@ FL_EXPORT_C(Fl_Color, Fl_Spinner_textcolor)(fl_Spinner spinner); FL_EXPORT_C(fl_Spinner, Fl_Spinner_New_WithLabel)(int x, int y, int w, int h, const char* label); FL_EXPORT_C(fl_Spinner , Fl_Spinner_New)(int x, int y, int w, int h);+ FL_EXPORT_C(fl_Spinner, Fl_OverriddenSpinner_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Spinner, Fl_OverriddenSpinner_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Spinner_draw)(fl_Spinner o);+ FL_EXPORT_C(void, Fl_Spinner_draw_super)(fl_Spinner o);+ FL_EXPORT_C(int, Fl_Spinner_handle)(fl_Spinner o, int event);+ FL_EXPORT_C(int, Fl_Spinner_handle_super)(fl_Spinner o, int event);+ FL_EXPORT_C(void, Fl_Spinner_resize)(fl_Spinner o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Spinner_resize_super)(fl_Spinner o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Spinner_show)(fl_Spinner o);+ FL_EXPORT_C(void, Fl_Spinner_show_super)(fl_Spinner o);+ FL_EXPORT_C(void, Fl_Spinner_hide)(fl_Spinner o);+ FL_EXPORT_C(void, Fl_Spinner_hide_super)(fl_Spinner o); #ifdef __cplusplus } #endif
c-src/Fl_Sys_Menu_BarC.cpp view
@@ -2,19 +2,80 @@ #include "UtilsC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Sys_Menu_Bar_handle )(fl_Sys_Menu_Bar sys_menu_bar, int event){- return (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->handle(event);+ Fl_DerivedSys_Menu_Bar::Fl_DerivedSys_Menu_Bar(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Sys_Menu_Bar(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Sys_Menu_Bar_resize )(fl_Sys_Menu_Bar sys_menu_bar,int x, int y, int w, int h){- (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->resize(x,y,w,h);+ Fl_DerivedSys_Menu_Bar::Fl_DerivedSys_Menu_Bar(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Sys_Menu_Bar(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Sys_Menu_Bar_show )(fl_Sys_Menu_Bar sys_menu_bar){- (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->show();+ Fl_DerivedSys_Menu_Bar::~Fl_DerivedSys_Menu_Bar(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Sys_Menu_Bar_hide )(fl_Sys_Menu_Bar sys_menu_bar){- (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->hide();+ void Fl_DerivedSys_Menu_Bar::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Sys_Menu_Bar) this);+ }+ else {+ Fl_Sys_Menu_Bar::draw();+ } }++ void Fl_DerivedSys_Menu_Bar::draw_super(){+ Fl_Sys_Menu_Bar::draw();+ }++ int Fl_DerivedSys_Menu_Bar::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Sys_Menu_Bar) this,event);+ }+ else {+ i = Fl_Sys_Menu_Bar::handle(event);+ }+ return i;+ }+ int Fl_DerivedSys_Menu_Bar::handle_super(int event){+ return Fl_Sys_Menu_Bar::handle(event);+ }++ void Fl_DerivedSys_Menu_Bar::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Sys_Menu_Bar) this,x,y,w,h);+ }+ else {+ Fl_Sys_Menu_Bar::resize(x,y,w,h);+ }+ }++ void Fl_DerivedSys_Menu_Bar::resize_super(int x, int y, int w, int h){+ Fl_Sys_Menu_Bar::resize(x,y,w,h);+ }+ void Fl_DerivedSys_Menu_Bar::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Sys_Menu_Bar) this);+ }+ else {+ Fl_Sys_Menu_Bar::show();+ }+ }+ void Fl_DerivedSys_Menu_Bar::show_super(){+ Fl_Sys_Menu_Bar::show();+ }++ void Fl_DerivedSys_Menu_Bar::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Sys_Menu_Bar) this);+ }+ else {+ Fl_Sys_Menu_Bar::hide();+ }+ }+ void Fl_DerivedSys_Menu_Bar::hide_super(){+ Fl_Sys_Menu_Bar::hide();+ }+#endif FL_EXPORT_C(fl_Window,Fl_Sys_Menu_Bar_as_window )(fl_Sys_Menu_Bar sys_menu_bar){ return (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->as_window(); }@@ -265,14 +326,6 @@ FL_EXPORT_C(void,Fl_Sys_Menu_Bar_measure_label)(fl_Sys_Menu_Bar sys_menu_bar,int* ww,int* hh){ (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->measure_label(*ww,*hh); }- FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_Sys_Menu_Bar_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Sys_Menu_Bar* sys_menu_bar = new Fl_Sys_Menu_Bar(x,y,w,h,label);- return (static_cast<fl_Sys_Menu_Bar>(sys_menu_bar));- }- FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_Sys_Menu_Bar_New)(int x, int y, int w, int h) {- Fl_Sys_Menu_Bar* sys_menu_bar = new Fl_Sys_Menu_Bar(x,y,w,h,0);- return (fl_Sys_Menu_Bar)sys_menu_bar;- } FL_EXPORT_C(void , Fl_Sys_Menu_Bar_Destroy)(fl_Sys_Menu_Bar sys_menu_bar){ delete (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar)); }@@ -438,6 +491,54 @@ } FL_EXPORT_C(void,Fl_Sys_Menu_Bar_set_down_color)(fl_Sys_Menu_Bar sys_menu_bar,unsigned c){ (static_cast<Fl_Sys_Menu_Bar*>(sys_menu_bar))->down_color(c);+ }+ FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_Sys_Menu_Bar_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedSys_Menu_Bar* w = new Fl_DerivedSys_Menu_Bar(X,Y,W,H,fs);+ return (fl_Sys_Menu_Bar)w;+ }+ FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_Sys_Menu_Bar_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedSys_Menu_Bar* w = new Fl_DerivedSys_Menu_Bar(X,Y,W,H,label,fs);+ return (fl_Sys_Menu_Bar)w;+ }+ FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_OverriddenSys_Menu_Bar_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedSys_Menu_Bar* w = new Fl_DerivedSys_Menu_Bar(X,Y,W,H,fs);+ return (fl_Sys_Menu_Bar)w;+ }+ FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_OverriddenSys_Menu_Bar_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedSys_Menu_Bar* w = new Fl_DerivedSys_Menu_Bar(X,Y,W,H,label,fs);+ return (fl_Sys_Menu_Bar)w;+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_draw)(fl_Sys_Menu_Bar o){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_draw_super)(fl_Sys_Menu_Bar o){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Sys_Menu_Bar_handle)(fl_Sys_Menu_Bar o, int event){+ return (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Sys_Menu_Bar_handle_super)(fl_Sys_Menu_Bar o, int event){+ return (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_resize)(fl_Sys_Menu_Bar o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_resize_super)(fl_Sys_Menu_Bar o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_show)(fl_Sys_Menu_Bar o){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_show_super)(fl_Sys_Menu_Bar o){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_hide)(fl_Sys_Menu_Bar o){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_hide_super)(fl_Sys_Menu_Bar o){+ (static_cast<Fl_DerivedSys_Menu_Bar*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_Sys_Menu_BarC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Sys_Menu_Bar.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedSys_Menu_Bar : public Fl_Sys_Menu_Bar {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int, Fl_Sys_Menu_Bar_handle)(fl_Group self, int event);@@ -157,6 +176,18 @@ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_set_down_box)(fl_Sys_Menu_Bar sys_menu_bar, Fl_Boxtype b); FL_EXPORT_C(Fl_Color, Fl_Sys_Menu_Bar_down_color)(fl_Sys_Menu_Bar sys_menu_bar); FL_EXPORT_C(void, Fl_Sys_Menu_Bar_set_down_color)(fl_Sys_Menu_Bar sys_menu_bar, unsigned c);+ FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_OverriddenSys_Menu_Bar_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Sys_Menu_Bar, Fl_OverriddenSys_Menu_Bar_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_draw)(fl_Sys_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_draw_super)(fl_Sys_Menu_Bar o);+ FL_EXPORT_C(int, Fl_Sys_Menu_Bar_handle)(fl_Sys_Menu_Bar o, int event);+ FL_EXPORT_C(int, Fl_Sys_Menu_Bar_handle_super)(fl_Sys_Menu_Bar o, int event);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_resize)(fl_Sys_Menu_Bar o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_resize_super)(fl_Sys_Menu_Bar o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_show)(fl_Sys_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_show_super)(fl_Sys_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_hide)(fl_Sys_Menu_Bar o);+ FL_EXPORT_C(void, Fl_Sys_Menu_Bar_hide_super)(fl_Sys_Menu_Bar o); #ifdef __cplusplus } #endif
c-src/Fl_Table_RowC.cpp view
@@ -1,13 +1,13 @@ #include "Fl_Table_RowC.h" #ifdef __cplusplus Fl_DerivedTable_Row::Fl_DerivedTable_Row(int X, int Y, int W, int H, const char *l, fl_Table_Virtual_Funcs* funcs) : Fl_Table_Row(X,Y,W,H,l){- overriddenFuncs = funcs;- other_data = (void*)"INIT";- }+ overriddenFuncs = funcs;+ other_data = (void*)"INIT";+} Fl_DerivedTable_Row::Fl_DerivedTable_Row(int X, int Y, int W, int H, fl_Table_Virtual_Funcs* funcs):Fl_Table_Row(X,Y,W,H,0){- overriddenFuncs = funcs;- other_data = (void*)"INIT";- }+ overriddenFuncs = funcs;+ other_data = (void*)"INIT";+} Fl_DerivedTable_Row::~Fl_DerivedTable_Row(){ destroy_data(); free(overriddenFuncs);@@ -199,28 +199,27 @@ FL_EXPORT_C(void,Fl_Table_Row_set_parent)(fl_Table_Row table_row,fl_Group grp){ (static_cast<Fl_DerivedTable_Row*>(table_row))->parent((static_cast<Fl_Group*>(grp))); }--FL_EXPORT_C(void, Fl_Table_Row_draw_box)(fl_Table_Row Table_Row){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_box();-}-FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_tc)(fl_Table_Row Table_Row,Fl_Boxtype t, Fl_Color c){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_box(t,c);-}-FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_txywhc)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h, Fl_Color c){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_box(t,x,y,w,h,c);-}-FL_EXPORT_C(void, Fl_Table_Row_draw_backdrop)(fl_Table_Row Table_Row){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_backdrop();-}-FL_EXPORT_C(void, Fl_Table_Row_draw_focus)(fl_Table_Row Table_Row){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_focus();-}-FL_EXPORT_C(void, Fl_Table_Row_draw_focus_with_txywh)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_focus(t,x,y,w,h);-}-FL_EXPORT_C(void, Fl_Table_Row_draw_label)(fl_Table_Row Table_Row){- (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_label();-}+ FL_EXPORT_C(void, Fl_Table_Row_draw_box)(fl_Table_Row Table_Row){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_box();+ }+ FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_tc)(fl_Table_Row Table_Row,Fl_Boxtype t, Fl_Color c){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_box(t,c);+ }+ FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_txywhc)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h, Fl_Color c){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_box(t,x,y,w,h,c);+ }+ FL_EXPORT_C(void, Fl_Table_Row_draw_backdrop)(fl_Table_Row Table_Row){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_backdrop();+ }+ FL_EXPORT_C(void, Fl_Table_Row_draw_focus)(fl_Table_Row Table_Row){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_focus();+ }+ FL_EXPORT_C(void, Fl_Table_Row_draw_focus_with_txywh)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_focus(t,x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Table_Row_draw_label)(fl_Table_Row Table_Row){+ (static_cast<Fl_DerivedTable_Row*>(Table_Row))->draw_label();+ } FL_EXPORT_C(int,Fl_Table_Row_x)(fl_Table_Row table_row){ return (static_cast<Fl_DerivedTable_Row*>(table_row))->x(); }
c-src/Fl_Table_RowC.h view
@@ -14,14 +14,14 @@ FL_EXPORT_C(int,Fl_Table_Row_handle)(fl_Table_Row self, int event); FL_EXPORT_C(fl_Group, Fl_Table_Row_parent)(fl_Table_Row table); FL_EXPORT_C(void, Fl_Table_Row_set_parent)(fl_Table_Row table, fl_Group grp);+ FL_EXPORT_C(void, Fl_Table_Row_draw_box)(fl_Table_Row Table_Row);+ FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_tc)(fl_Table_Row Table_Row,Fl_Boxtype t, Fl_Color c);+ FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_txywhc)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h, Fl_Color c);+ FL_EXPORT_C(void, Fl_Table_Row_draw_backdrop)(fl_Table_Row Table_Row);+ FL_EXPORT_C(void, Fl_Table_Row_draw_focus)(fl_Table_Row Table_Row);+ FL_EXPORT_C(void, Fl_Table_Row_draw_focus_with_txywh)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h);+ FL_EXPORT_C(void, Fl_Table_Row_draw_label)(fl_Table_Row Table_Row); -FL_EXPORT_C(void, Fl_Table_Row_draw_box)(fl_Table_Row Table_Row);-FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_tc)(fl_Table_Row Table_Row,Fl_Boxtype t, Fl_Color c);-FL_EXPORT_C(void, Fl_Table_Row_draw_box_with_txywhc)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h, Fl_Color c);-FL_EXPORT_C(void, Fl_Table_Row_draw_backdrop)(fl_Table_Row Table_Row);-FL_EXPORT_C(void, Fl_Table_Row_draw_focus)(fl_Table_Row Table_Row);-FL_EXPORT_C(void, Fl_Table_Row_draw_focus_with_txywh)(fl_Table_Row Table_Row,Fl_Boxtype t, int x,int y,int w,int h);-FL_EXPORT_C(void, Fl_Table_Row_draw_label)(fl_Table_Row Table_Row); FL_EXPORT_C(int, Fl_Table_Row_x)(fl_Table_Row table); FL_EXPORT_C(int, Fl_Table_Row_y)(fl_Table_Row table); FL_EXPORT_C(int, Fl_Table_Row_w)(fl_Table_Row table);@@ -118,6 +118,7 @@ FL_EXPORT_C(unsigned int, Fl_Table_Row_clip_children)(fl_Table_Row table); FL_EXPORT_C(void, Fl_Table_Row_focus)(fl_Table_Row table,fl_Widget W); FL_EXPORT_C(fl_Widget, Fl_Table_Row__ddfdesign_kludge)(fl_Table_Row table);+ FL_EXPORT_C(void,Fl_Table_Row_draw_super)(fl_Table_Row table_row); FL_EXPORT_C(void, Fl_Table_Row_insert_with_before)(fl_Table_Row self, fl_Widget w, fl_Widget before); FL_EXPORT_C(fl_Widget*, Fl_Table_Row_array)(fl_Table_Row self);
c-src/Fl_TabsC.cpp view
@@ -1,10 +1,82 @@ #include "Fl_TabsC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Tabs_handle)(fl_Tabs self, int event){- return (static_cast<Fl_Tabs*>(self))->handle(event);+ Fl_DerivedTabs::Fl_DerivedTabs(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Tabs(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedTabs::Fl_DerivedTabs(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Tabs(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedTabs::~Fl_DerivedTabs(){+ free(overriddenFuncs);+ }+ void Fl_DerivedTabs::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Tabs) this);+ }+ else {+ Fl_Tabs::draw();+ }+ }++ void Fl_DerivedTabs::draw_super(){+ Fl_Tabs::draw();+ }++ int Fl_DerivedTabs::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Tabs) this,event);+ }+ else {+ i = Fl_Tabs::handle(event);+ }+ return i;+ }+ int Fl_DerivedTabs::handle_super(int event){+ return Fl_Tabs::handle(event);+ }++ void Fl_DerivedTabs::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Tabs) this,x,y,w,h);+ }+ else {+ Fl_Tabs::resize(x,y,w,h);+ }+ }++ void Fl_DerivedTabs::resize_super(int x, int y, int w, int h){+ Fl_Tabs::resize(x,y,w,h);+ }+ void Fl_DerivedTabs::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Tabs) this);+ }+ else {+ Fl_Tabs::show();+ }+ }+ void Fl_DerivedTabs::show_super(){+ Fl_Tabs::show();+ }++ void Fl_DerivedTabs::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Tabs) this);+ }+ else {+ Fl_Tabs::hide();+ }+ }+ void Fl_DerivedTabs::hide_super(){+ Fl_Tabs::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Tabs_parent)(fl_Tabs tabs){ return (fl_Group) (static_cast<Fl_Tabs*>(tabs))->parent(); }@@ -297,17 +369,6 @@ FL_EXPORT_C(fl_Widget, Fl_Tabs_child)(fl_Tabs self, int n){ return (fl_Widget)(static_cast<Fl_Tabs*>(self))->child(n); }- // FL_EXPORT_C(void , Fl_Tabs_forms_end)(fl_Tabs self){- // (static_cast<Fl_Tabs*>(self))->forms_end();- // }- FL_EXPORT_C(fl_Tabs, Fl_Tabs_New)(int x, int y, int w, int h){- Fl_Tabs* t = new Fl_Tabs(x,y,w,h);- return (fl_Tabs)t;- }- FL_EXPORT_C(fl_Tabs, Fl_Tabs_New_WithLabel)(int x, int y, int w, int h, const char* l){- Fl_Tabs* t = new Fl_Tabs(x,y,w,h,l);- return (fl_Tabs)t;- } FL_EXPORT_C(fl_Widget,Fl_Tabs_value)(fl_Tabs tabs){ return (fl_Widget)(static_cast<Fl_Tabs*>(tabs))->value(); }@@ -329,6 +390,55 @@ FL_EXPORT_C(void,Fl_Tabs_client_area_with_tabh)(fl_Tabs tabs,int* rx,int* ry,int* rw,int* rh,int tabh){ (static_cast<Fl_Tabs*>(tabs))->client_area(*rx,*ry,*rw,*rh,tabh); }+ FL_EXPORT_C(void, Fl_Tabs_draw)(fl_Tabs o){+ (static_cast<Fl_DerivedTabs*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Tabs_draw_super)(fl_Tabs o){+ (static_cast<Fl_DerivedTabs*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Tabs_handle)(fl_Tabs o, int event){+ return (static_cast<Fl_DerivedTabs*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Tabs_handle_super)(fl_Tabs o, int event){+ return (static_cast<Fl_DerivedTabs*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Tabs_resize)(fl_Tabs o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTabs*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Tabs_resize_super)(fl_Tabs o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTabs*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Tabs_show)(fl_Tabs o){+ (static_cast<Fl_DerivedTabs*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Tabs_show_super)(fl_Tabs o){+ (static_cast<Fl_DerivedTabs*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Tabs_hide)(fl_Tabs o){+ (static_cast<Fl_DerivedTabs*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Tabs_hide_super)(fl_Tabs o){+ (static_cast<Fl_DerivedTabs*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Tabs, Fl_Tabs_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTabs* w = new Fl_DerivedTabs(X,Y,W,H,fs);+ return (fl_Tabs)w;+ }+ FL_EXPORT_C(fl_Tabs, Fl_Tabs_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTabs* w = new Fl_DerivedTabs(X,Y,W,H,label,fs);+ return (fl_Tabs)w;+ }+ FL_EXPORT_C(fl_Tabs, Fl_OverriddenTabs_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTabs* w = new Fl_DerivedTabs(X,Y,W,H,fs);+ return (fl_Tabs)w;+ }+ FL_EXPORT_C(fl_Tabs, Fl_OverriddenTabs_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTabs* w = new Fl_DerivedTabs(X,Y,W,H,label,fs);+ return (fl_Tabs)w;+ }+ #ifdef __cplusplus } #endif
c-src/Fl_TabsC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Tabs.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedTabs : public Fl_Tabs {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ Fl_DerivedTabs(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);+ Fl_DerivedTabs(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);+ ~Fl_DerivedTabs();+ };+ #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Tabs_handle)(fl_Tabs self, int event);@@ -124,6 +144,18 @@ FL_EXPORT_C(fl_Widget, Fl_Tabs_which)(fl_Tabs tabs, int event_x, int event_y); FL_EXPORT_C(void, Fl_Tabs_client_area)(fl_Tabs tabs, int* rx, int* ry, int* rw, int* rh); FL_EXPORT_C(void, Fl_Tabs_client_area_with_tabh)(fl_Tabs tabs, int* rx, int* ry, int* rw, int* rh, int tabh);+ FL_EXPORT_C(fl_Tabs, Fl_OverriddenTabs_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Tabs, Fl_OverriddenTabs_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Tabs_draw)(fl_Tabs o);+ FL_EXPORT_C(void, Fl_Tabs_draw_super)(fl_Tabs o);+ FL_EXPORT_C(int, Fl_Tabs_handle)(fl_Tabs o, int event);+ FL_EXPORT_C(int, Fl_Tabs_handle_super)(fl_Tabs o, int event);+ FL_EXPORT_C(void, Fl_Tabs_resize)(fl_Tabs o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Tabs_resize_super)(fl_Tabs o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Tabs_show)(fl_Tabs o);+ FL_EXPORT_C(void, Fl_Tabs_show_super)(fl_Tabs o);+ FL_EXPORT_C(void, Fl_Tabs_hide)(fl_Tabs o);+ FL_EXPORT_C(void, Fl_Tabs_hide_super)(fl_Tabs o); #ifdef __cplusplus } #endif
c-src/Fl_Text_DisplayC.cpp view
@@ -1,10 +1,82 @@ #include "Fl_Text_DisplayC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Text_Display_handle)(fl_Text_Display self, int event){- return (static_cast<Fl_Text_Display*>(self))->handle(event);+ Fl_DerivedText_Display::Fl_DerivedText_Display(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Text_Display(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedText_Display::Fl_DerivedText_Display(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Text_Display(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedText_Display::~Fl_DerivedText_Display(){+ free(overriddenFuncs);+ }+ void Fl_DerivedText_Display::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Text_Display) this);+ }+ else {+ Fl_Text_Display::draw();+ }+ }++ void Fl_DerivedText_Display::draw_super(){+ Fl_Text_Display::draw();+ }++ int Fl_DerivedText_Display::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Text_Display) this,event);+ }+ else {+ i = Fl_Text_Display::handle(event);+ }+ return i;+ }+ int Fl_DerivedText_Display::handle_super(int event){+ return Fl_Text_Display::handle(event);+ }++ void Fl_DerivedText_Display::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Text_Display) this,x,y,w,h);+ }+ else {+ Fl_Text_Display::resize(x,y,w,h);+ }+ }++ void Fl_DerivedText_Display::resize_super(int x, int y, int w, int h){+ Fl_Text_Display::resize(x,y,w,h);+ }+ void Fl_DerivedText_Display::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Text_Display) this);+ }+ else {+ Fl_Text_Display::show();+ }+ }+ void Fl_DerivedText_Display::show_super(){+ Fl_Text_Display::show();+ }++ void Fl_DerivedText_Display::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Text_Display) this);+ }+ else {+ Fl_Text_Display::hide();+ }+ }+ void Fl_DerivedText_Display::hide_super(){+ Fl_Text_Display::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Text_Display_parent)(fl_Text_Display text_display){ return (fl_Group) (static_cast<Fl_Text_Display*>(text_display))->parent(); }@@ -301,9 +373,6 @@ FL_EXPORT_C(void,Fl_Text_Display_init_sizes)(fl_Text_Display text_display){ (static_cast<Fl_Text_Display*>(text_display))->init_sizes(); }- FL_EXPORT_C(void,Fl_Text_Display_resize)(fl_Text_Display text_display, int X, int Y, int W, int H){- (static_cast<Fl_Text_Display*>(text_display))->resize(X,Y,W,H);- } FL_EXPORT_C(int,Fl_Text_Display_children)(fl_Text_Display self){ return (static_cast<Fl_Text_Display*>(self))->children(); }@@ -325,14 +394,6 @@ FL_EXPORT_C(fl_Widget, Fl_Text_Display_child)(fl_Text_Display self, int n){ return (fl_Widget)(static_cast<Fl_Text_Display*>(self))->child(n); }- FL_EXPORT_C(fl_Text_Display, Fl_Text_Display_New)(int x, int y, int w, int h){- Fl_Text_Display* g = new Fl_Text_Display(x,y,w,h);- return (fl_Text_Display)g;- }- FL_EXPORT_C(fl_Text_Display, Fl_Text_Display_New_WithLabel)(int x, int y, int w, int h, const char* t){- Fl_Text_Display* g = new Fl_Text_Display(x,y,w,h,t);- return (fl_Text_Display)g;- } FL_EXPORT_C(void, Fl_Text_Display_Destroy)(fl_Text_Display text_display){ delete (static_cast<Fl_Text_Display*>(text_display)); }@@ -496,48 +557,97 @@ FL_EXPORT_C(double,Fl_Text_Display_col_to_x)(fl_Text_Display text_display,double col){ return (static_cast<Fl_Text_Display*>(text_display))->col_to_x(col); }- FL_EXPORT_C(void,set_linenumber_width)(fl_Text_Display text_display,int width){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_width(width);- }- FL_EXPORT_C(int ,linenumber_width)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_width();- }- FL_EXPORT_C(void ,set_linenumber_font)(fl_Text_Display text_display,Fl_Font val){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_font(val);- }- FL_EXPORT_C(Fl_Font ,linenumber_font)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_font();- }- FL_EXPORT_C(void ,set_linenumber_size)(fl_Text_Display text_display,Fl_Fontsize val){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_size(val);- }- FL_EXPORT_C(Fl_Fontsize ,linenumber_size)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_size();- }- FL_EXPORT_C(void ,set_linenumber_fgcolor)(fl_Text_Display text_display,Fl_Color val){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_fgcolor(val);- }- FL_EXPORT_C(Fl_Color ,linenumber_fgcolor)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_fgcolor();- }- FL_EXPORT_C(void ,set_linenumber_bgcolor)(fl_Text_Display text_display,Fl_Color val){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_bgcolor(val);- }- FL_EXPORT_C(Fl_Color ,linenumber_bgcolor)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_bgcolor();- }- FL_EXPORT_C(void ,set_linenumber_align)(fl_Text_Display text_display,Fl_Align val){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_align(val);- }- FL_EXPORT_C(Fl_Align ,linenumber_align)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_align();- }- FL_EXPORT_C(void ,set_linenumber_format)(fl_Text_Display text_display,const char* val){- (static_cast<Fl_Text_Display*>(text_display))->linenumber_format(val);- }- FL_EXPORT_C(const char* ,linenumber_format)(fl_Text_Display text_display){- return (static_cast<Fl_Text_Display*>(text_display))->linenumber_format();- }+ FL_EXPORT_C(void,set_linenumber_width)(fl_Text_Display text_display,int width){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_width(width);+ }+ FL_EXPORT_C(int ,linenumber_width)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_width();+ }+ FL_EXPORT_C(void ,set_linenumber_font)(fl_Text_Display text_display,Fl_Font val){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_font(val);+ }+ FL_EXPORT_C(Fl_Font ,linenumber_font)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_font();+ }+ FL_EXPORT_C(void ,set_linenumber_size)(fl_Text_Display text_display,Fl_Fontsize val){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_size(val);+ }+ FL_EXPORT_C(Fl_Fontsize ,linenumber_size)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_size();+ }+ FL_EXPORT_C(void ,set_linenumber_fgcolor)(fl_Text_Display text_display,Fl_Color val){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_fgcolor(val);+ }+ FL_EXPORT_C(Fl_Color ,linenumber_fgcolor)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_fgcolor();+ }+ FL_EXPORT_C(void ,set_linenumber_bgcolor)(fl_Text_Display text_display,Fl_Color val){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_bgcolor(val);+ }+ FL_EXPORT_C(Fl_Color ,linenumber_bgcolor)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_bgcolor();+ }+ FL_EXPORT_C(void ,set_linenumber_align)(fl_Text_Display text_display,Fl_Align val){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_align(val);+ }+ FL_EXPORT_C(Fl_Align ,linenumber_align)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_align();+ }+ FL_EXPORT_C(void ,set_linenumber_format)(fl_Text_Display text_display,const char* val){+ (static_cast<Fl_Text_Display*>(text_display))->linenumber_format(val);+ }+ FL_EXPORT_C(const char* ,linenumber_format)(fl_Text_Display text_display){+ return (static_cast<Fl_Text_Display*>(text_display))->linenumber_format();+ }+ FL_EXPORT_C(fl_Text_Display, Fl_Text_Display_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedText_Display* w = new Fl_DerivedText_Display(X,Y,W,H,fs);+ return (fl_Text_Display)w;+ }+ FL_EXPORT_C(fl_Text_Display, Fl_Text_Display_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedText_Display* w = new Fl_DerivedText_Display(X,Y,W,H,label,fs);+ return (fl_Text_Display)w;+ }+ FL_EXPORT_C(fl_Text_Display, Fl_OverriddenText_Display_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedText_Display* w = new Fl_DerivedText_Display(X,Y,W,H,fs);+ return (fl_Text_Display)w;+ }+ FL_EXPORT_C(fl_Text_Display, Fl_OverriddenText_Display_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedText_Display* w = new Fl_DerivedText_Display(X,Y,W,H,label,fs);+ return (fl_Text_Display)w;+ }+ FL_EXPORT_C(void, Fl_Text_Display_draw)(fl_Text_Display o){+ (static_cast<Fl_DerivedText_Display*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Text_Display_draw_super)(fl_Text_Display o){+ (static_cast<Fl_DerivedText_Display*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Text_Display_handle)(fl_Text_Display o, int event){+ return (static_cast<Fl_DerivedText_Display*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Text_Display_handle_super)(fl_Text_Display o, int event){+ return (static_cast<Fl_DerivedText_Display*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Text_Display_resize)(fl_Text_Display o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedText_Display*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Text_Display_resize_super)(fl_Text_Display o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedText_Display*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Text_Display_show)(fl_Text_Display o){+ (static_cast<Fl_DerivedText_Display*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Text_Display_show_super)(fl_Text_Display o){+ (static_cast<Fl_DerivedText_Display*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Text_Display_hide)(fl_Text_Display o){+ (static_cast<Fl_DerivedText_Display*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Text_Display_hide_super)(fl_Text_Display o){+ (static_cast<Fl_DerivedText_Display*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_Text_DisplayC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Text_Display.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedText_Display : public Fl_Text_Display {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int, Fl_Text_Display_handle)(fl_Text_Display self, int event);@@ -193,6 +212,18 @@ FL_EXPORT_C(Fl_Align ,linenumber_align)(fl_Text_Display text_display); FL_EXPORT_C(void ,set_linenumber_format)(fl_Text_Display text_display,const char* val); FL_EXPORT_C(const char* ,linenumber_format)(fl_Text_Display text_display);+ FL_EXPORT_C(fl_Text_Display, Fl_OverriddenText_Display_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Text_Display, Fl_OverriddenText_Display_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Text_Display_draw)(fl_Text_Display o);+ FL_EXPORT_C(void, Fl_Text_Display_draw_super)(fl_Text_Display o);+ FL_EXPORT_C(int, Fl_Text_Display_handle)(fl_Text_Display o, int event);+ FL_EXPORT_C(int, Fl_Text_Display_handle_super)(fl_Text_Display o, int event);+ FL_EXPORT_C(void, Fl_Text_Display_resize)(fl_Text_Display o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Text_Display_resize_super)(fl_Text_Display o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Text_Display_show)(fl_Text_Display o);+ FL_EXPORT_C(void, Fl_Text_Display_show_super)(fl_Text_Display o);+ FL_EXPORT_C(void, Fl_Text_Display_hide)(fl_Text_Display o);+ FL_EXPORT_C(void, Fl_Text_Display_hide_super)(fl_Text_Display o); #ifdef __cplusplus } #endif
c-src/Fl_Text_EditorC.cpp view
@@ -35,9 +35,6 @@ } EXPORT { #endif- FL_EXPORT_C(int,Fl_Text_Editor_handle)(fl_Text_Editor self, int event){- return (static_cast<DerivedText_Editor*>(self))->handle(event);- } FL_EXPORT_C(fl_Group,Fl_Text_Editor_parent)(fl_Text_Editor win){ return (fl_Group) (static_cast<DerivedText_Editor*>(win))->parent(); }@@ -355,14 +352,6 @@ FL_EXPORT_C(fl_Widget, Fl_Text_Editor_child)(fl_Text_Editor self, int n){ return (fl_Widget)(static_cast<DerivedText_Editor*>(self))->child(n); }- FL_EXPORT_C(fl_Text_Editor, Fl_Text_Editor_New)(int x, int y, int w, int h){- DerivedText_Editor* g = new DerivedText_Editor(x,y,w,h);- return (fl_Text_Editor)g;- }- FL_EXPORT_C(fl_Text_Editor, Fl_Text_Editor_New_WithLabel)(int x, int y, int w, int h, const char* t){- DerivedText_Editor* g = new DerivedText_Editor(x,y,w,h,t);- return (fl_Text_Editor)g;- } FL_EXPORT_C(void, Fl_Text_Editor_Destroy)(fl_Text_Editor text_editor){ delete (static_cast<DerivedText_Editor*>(text_editor)); }@@ -523,136 +512,184 @@ FL_EXPORT_C(double,Fl_Text_Editor_col_to_x)(fl_Text_Editor text_editor,double col){ return (static_cast<DerivedText_Editor*>(text_editor))->col_to_x(col); }- FL_EXPORT_C(void,Fl_Text_Editor_set_insert_mode)(fl_Text_Editor text_editor,int b){- (static_cast<DerivedText_Editor*>(text_editor))->insert_mode(b);- }- FL_EXPORT_C(int,Fl_Text_Editor_insert_mode)(fl_Text_Editor text_editor){- return (static_cast<DerivedText_Editor*>(text_editor))->insert_mode();- }- FL_EXPORT_C(int, Fl_Text_Editor_num_key_bindings)(Key_BindingC* bindings){- int count = 0;- Key_BindingC* curr = bindings;- for (;curr;curr = curr->next){- if (curr) {- count++;- }- }- return count;- }- FL_EXPORT_C(void,Fl_Text_Editor_add_key_binding_with_list)(fl_Text_Editor text_editor,int key,int state,fl_Key_Func f,Key_BindingC* list){- DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);- DerivedText_Editor* e = (static_cast<DerivedText_Editor*>(text_editor));- C_to_Fl_Callback* context = new C_to_Fl_Callback(f);- e->add_key_binding(key,state,context,&bs);- }- FL_EXPORT_C(void,Fl_Text_Editor_add_key_binding)(fl_Text_Editor text_editor,int key,int state,fl_Key_Func f){- C_to_Fl_Callback* context = new C_to_Fl_Callback(f);- (static_cast<DerivedText_Editor*>(text_editor))->add_key_binding(key,state,context);- }- FL_EXPORT_C(void,Fl_Text_Editor_remove_key_binding_with_list)(fl_Text_Editor text_editor,int key,int state,Key_BindingC* list){- DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);- (static_cast<DerivedText_Editor*>(text_editor))->remove_key_binding(key,state,&bs);- }- FL_EXPORT_C(void,Fl_Text_Editor_remove_key_binding)(fl_Text_Editor text_editor,int key,int state){- (static_cast<DerivedText_Editor*>(text_editor))->remove_key_binding(key,state);- }- FL_EXPORT_C(void,Fl_Text_Editor_remove_all_key_bindings_with_list)(fl_Text_Editor text_editor,Key_BindingC* list){- DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);- (static_cast<DerivedText_Editor*>(text_editor))->remove_all_key_bindings(&bs);- }- FL_EXPORT_C(void,Fl_Text_Editor_remove_all_key_bindings)(fl_Text_Editor text_editor){- (static_cast<DerivedText_Editor*>(text_editor))->remove_all_key_bindings();- }- FL_EXPORT_C(void,Fl_Text_Editor_replace_key_bindings)(fl_Text_Editor text_editor, Key_BindingC* list){- DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);- (static_cast<DerivedText_Editor*>(text_editor))->replace_key_bindings(&bs);- }- FL_EXPORT_C(void,Fl_Text_Editor_replace_key_bindings_with_list)(fl_Text_Editor text_editor, Key_BindingC* list1, Key_BindingC* list2){- DerivedText_Editor::Key_Binding_With_Callback* bs1 = convertKeyBindings(list1);- DerivedText_Editor::Key_Binding_With_Callback* bs2 = convertKeyBindings(list2);- (static_cast<DerivedText_Editor*>(text_editor))->replace_key_bindings(&bs1,&bs2);- }- FL_EXPORT_C(Key_BindingC* ,Fl_Text_Editor_add_default_key_bindings)(fl_Text_Editor text_editor,Key_BindingC* list){- DerivedText_Editor::Key_Binding_With_Callback* bs_ = new DerivedText_Editor::Key_Binding_With_Callback();- (static_cast<DerivedText_Editor*>(text_editor))->add_default_key_bindings(&bs_);- list = convertKeyBindings(bs_);- return list;- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_undo)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_undo(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_ignore)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_ignore(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_backspace)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_backspace(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_enter)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_enter(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_move)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_move(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_shift_move)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_shift_move(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_ctrl_move)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_ctrl_move(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_c_s_move)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_c_s_move(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_meta_move)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_meta_move(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_m_s_move)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_m_s_move(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_home)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_home(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_end)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_end(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_left)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_left(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_up)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_up(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_right)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_right(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_down)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_down(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_page_up)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_page_up(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_page_down)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_page_down(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_insert)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_insert(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_delete)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_delete(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_copy)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_copy(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_cut)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_cut(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_paste)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_paste(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_select_all)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_select_all(c,(static_cast<DerivedText_Editor*>(e)));- }- FL_EXPORT_C(int,Fl_Text_Editor_kf_default)(int c,fl_Text_Editor e){- return Fl_Text_Editor::kf_default(c,(static_cast<DerivedText_Editor*>(e)));- }+ FL_EXPORT_C(void,Fl_Text_Editor_set_insert_mode)(fl_Text_Editor text_editor,int b){+ (static_cast<DerivedText_Editor*>(text_editor))->insert_mode(b);+ }+ FL_EXPORT_C(int,Fl_Text_Editor_insert_mode)(fl_Text_Editor text_editor){+ return (static_cast<DerivedText_Editor*>(text_editor))->insert_mode();+ }+ FL_EXPORT_C(int, Fl_Text_Editor_num_key_bindings)(Key_BindingC* bindings){+ int count = 0;+ Key_BindingC* curr = bindings;+ for (;curr;curr = curr->next){+ if (curr) {+ count++;+ }+ }+ return count;+ }+ FL_EXPORT_C(void,Fl_Text_Editor_add_key_binding_with_list)(fl_Text_Editor text_editor,int key,int state,fl_Key_Func f,Key_BindingC* list){+ DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);+ DerivedText_Editor* e = (static_cast<DerivedText_Editor*>(text_editor));+ C_to_Fl_Callback* context = new C_to_Fl_Callback(f);+ e->add_key_binding(key,state,context,&bs);+ }+ FL_EXPORT_C(void,Fl_Text_Editor_add_key_binding)(fl_Text_Editor text_editor,int key,int state,fl_Key_Func f){+ C_to_Fl_Callback* context = new C_to_Fl_Callback(f);+ (static_cast<DerivedText_Editor*>(text_editor))->add_key_binding(key,state,context);+ }+ FL_EXPORT_C(void,Fl_Text_Editor_remove_key_binding_with_list)(fl_Text_Editor text_editor,int key,int state,Key_BindingC* list){+ DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);+ (static_cast<DerivedText_Editor*>(text_editor))->remove_key_binding(key,state,&bs);+ }+ FL_EXPORT_C(void,Fl_Text_Editor_remove_key_binding)(fl_Text_Editor text_editor,int key,int state){+ (static_cast<DerivedText_Editor*>(text_editor))->remove_key_binding(key,state);+ }+ FL_EXPORT_C(void,Fl_Text_Editor_remove_all_key_bindings_with_list)(fl_Text_Editor text_editor,Key_BindingC* list){+ DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);+ (static_cast<DerivedText_Editor*>(text_editor))->remove_all_key_bindings(&bs);+ }+ FL_EXPORT_C(void,Fl_Text_Editor_remove_all_key_bindings)(fl_Text_Editor text_editor){+ (static_cast<DerivedText_Editor*>(text_editor))->remove_all_key_bindings();+ }+ FL_EXPORT_C(void,Fl_Text_Editor_replace_key_bindings)(fl_Text_Editor text_editor, Key_BindingC* list){+ DerivedText_Editor::Key_Binding_With_Callback* bs = convertKeyBindings(list);+ (static_cast<DerivedText_Editor*>(text_editor))->replace_key_bindings(&bs);+ }+ FL_EXPORT_C(void,Fl_Text_Editor_replace_key_bindings_with_list)(fl_Text_Editor text_editor, Key_BindingC* list1, Key_BindingC* list2){+ DerivedText_Editor::Key_Binding_With_Callback* bs1 = convertKeyBindings(list1);+ DerivedText_Editor::Key_Binding_With_Callback* bs2 = convertKeyBindings(list2);+ (static_cast<DerivedText_Editor*>(text_editor))->replace_key_bindings(&bs1,&bs2);+ }+ FL_EXPORT_C(Key_BindingC* ,Fl_Text_Editor_add_default_key_bindings)(fl_Text_Editor text_editor,Key_BindingC* list){+ DerivedText_Editor::Key_Binding_With_Callback* bs_ = new DerivedText_Editor::Key_Binding_With_Callback();+ (static_cast<DerivedText_Editor*>(text_editor))->add_default_key_bindings(&bs_);+ list = convertKeyBindings(bs_);+ return list;+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_undo)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_undo(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_ignore)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_ignore(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_backspace)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_backspace(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_enter)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_enter(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_move)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_move(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_shift_move)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_shift_move(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_ctrl_move)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_ctrl_move(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_c_s_move)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_c_s_move(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_meta_move)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_meta_move(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_m_s_move)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_m_s_move(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_home)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_home(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_end)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_end(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_left)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_left(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_up)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_up(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_right)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_right(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_down)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_down(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_page_up)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_page_up(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_page_down)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_page_down(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_insert)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_insert(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_delete)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_delete(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_copy)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_copy(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_cut)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_cut(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_paste)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_paste(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_select_all)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_select_all(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(int,Fl_Text_Editor_kf_default)(int c,fl_Text_Editor e){+ return Fl_Text_Editor::kf_default(c,(static_cast<DerivedText_Editor*>(e)));+ }+ FL_EXPORT_C(void, Fl_Text_Editor_draw)(fl_Text_Editor o){+ (static_cast<DerivedText_Editor*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Text_Editor_draw_super)(fl_Text_Editor o){+ (static_cast<DerivedText_Editor*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Text_Editor_handle)(fl_Text_Editor o, int event){+ return (static_cast<DerivedText_Editor*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Text_Editor_handle_super)(fl_Text_Editor o, int event){+ return (static_cast<DerivedText_Editor*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Text_Editor_resize)(fl_Text_Editor o, int x, int y, int w, int h){+ (static_cast<DerivedText_Editor*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Text_Editor_resize_super)(fl_Text_Editor o, int x, int y, int w, int h){+ (static_cast<DerivedText_Editor*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Text_Editor_show)(fl_Text_Editor o){+ (static_cast<DerivedText_Editor*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Text_Editor_show_super)(fl_Text_Editor o){+ (static_cast<DerivedText_Editor*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Text_Editor_hide)(fl_Text_Editor o){+ (static_cast<DerivedText_Editor*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Text_Editor_hide_super)(fl_Text_Editor o){+ (static_cast<DerivedText_Editor*>(o))->hide_super();+ }+ FL_EXPORT_C(fl_Text_Editor, Fl_Text_Editor_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ DerivedText_Editor* w = new DerivedText_Editor(X,Y,W,H,fs);+ return (fl_Text_Editor)w;+ }+ FL_EXPORT_C(fl_Text_Editor, Fl_Text_Editor_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ DerivedText_Editor* w = new DerivedText_Editor(X,Y,W,H,label,fs);+ return (fl_Text_Editor)w;+ }+ FL_EXPORT_C(fl_Text_Editor, Fl_OverriddenText_Editor_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ DerivedText_Editor* w = new DerivedText_Editor(X,Y,W,H,fs);+ return (fl_Text_Editor)w;+ }+ FL_EXPORT_C(fl_Text_Editor, Fl_OverriddenText_Editor_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ DerivedText_Editor* w = new DerivedText_Editor(X,Y,W,H,label,fs);+ return (fl_Text_Editor)w;+ } #ifdef __cplusplus } #endif
c-src/Fl_Text_EditorC.h view
@@ -7,6 +7,7 @@ #include "FL/Fl.H" #include "FL/Fl_Text_Editor.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT { #endif /* Inherited from Fl_Widget */@@ -190,7 +191,7 @@ FL_EXPORT_C(void, Fl_Text_Editor_remove_all_key_bindings)(fl_Text_Editor text_editor); FL_EXPORT_C(Key_BindingC*, Fl_Text_Editor_add_default_key_bindings)(fl_Text_Editor text_editor, Key_BindingC* list); - // functions for the built in default bindings+ // functions for the built in default bindings FL_EXPORT_C(int, Fl_Text_Editor_kf_default)(int c, fl_Text_Editor e); FL_EXPORT_C(int, Fl_Text_Editor_kf_ignore)(int c, fl_Text_Editor e); FL_EXPORT_C(int, Fl_Text_Editor_kf_backspace)(int c, fl_Text_Editor e);@@ -218,6 +219,18 @@ FL_EXPORT_C(int, Fl_Text_Editor_kf_undo)(int c, fl_Text_Editor e); FL_EXPORT_C(void,Fl_Text_Editor_replace_key_bindings)(fl_Text_Editor text_editor, Key_BindingC* list); FL_EXPORT_C(void,Fl_Text_Editor_replace_key_bindings_with_list)(fl_Text_Editor text_editor, Key_BindingC* list1, Key_BindingC* list2);+ FL_EXPORT_C(fl_Text_Editor, Fl_OverriddenText_Editor_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Text_Editor, Fl_OverriddenText_Editor_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Text_Editor_draw)(fl_Text_Editor o);+ FL_EXPORT_C(void, Fl_Text_Editor_draw_super)(fl_Text_Editor o);+ FL_EXPORT_C(int, Fl_Text_Editor_handle)(fl_Text_Editor o, int event);+ FL_EXPORT_C(int, Fl_Text_Editor_handle_super)(fl_Text_Editor o, int event);+ FL_EXPORT_C(void, Fl_Text_Editor_resize)(fl_Text_Editor o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Text_Editor_resize_super)(fl_Text_Editor o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Text_Editor_show)(fl_Text_Editor o);+ FL_EXPORT_C(void, Fl_Text_Editor_show_super)(fl_Text_Editor o);+ FL_EXPORT_C(void, Fl_Text_Editor_hide)(fl_Text_Editor o);+ FL_EXPORT_C(void, Fl_Text_Editor_hide_super)(fl_Text_Editor o); #ifdef __cplusplus } #endif
c-src/Fl_TileC.cpp view
@@ -1,10 +1,82 @@ #include "Fl_TileC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Tile_handle)(fl_Tile tile, int event){- return (static_cast<Fl_Tile*>(tile))->handle(event);+ Fl_DerivedTile::Fl_DerivedTile(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Tile(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedTile::Fl_DerivedTile(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Tile(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedTile::~Fl_DerivedTile(){+ free(overriddenFuncs);+ }+ void Fl_DerivedTile::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Tile) this);+ }+ else {+ Fl_Tile::draw();+ }+ }++ void Fl_DerivedTile::draw_super(){+ Fl_Tile::draw();+ }++ int Fl_DerivedTile::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Tile) this,event);+ }+ else {+ i = Fl_Tile::handle(event);+ }+ return i;+ }+ int Fl_DerivedTile::handle_super(int event){+ return Fl_Tile::handle(event);+ }++ void Fl_DerivedTile::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Tile) this,x,y,w,h);+ }+ else {+ Fl_Tile::resize(x,y,w,h);+ }+ }++ void Fl_DerivedTile::resize_super(int x, int y, int w, int h){+ Fl_Tile::resize(x,y,w,h);+ }+ void Fl_DerivedTile::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Tile) this);+ }+ else {+ Fl_Tile::show();+ }+ }+ void Fl_DerivedTile::show_super(){+ Fl_Tile::show();+ }++ void Fl_DerivedTile::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Tile) this);+ }+ else {+ Fl_Tile::hide();+ }+ }+ void Fl_DerivedTile::hide_super(){+ Fl_Tile::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Tile_parent)(fl_Tile tile){ return (fl_Group) (static_cast<Fl_Tile*>(tile))->parent(); }@@ -303,9 +375,6 @@ FL_EXPORT_C(void,Fl_Tile_add_resizable)(fl_Tile tile,fl_Widget o){ return (static_cast<Fl_Tile*>(tile))->add_resizable(*(static_cast<Fl_Widget*>(o))); }- FL_EXPORT_C(void,Fl_Tile_resize)(fl_Tile tile, int x, int y, int w, int h){- return (static_cast<Fl_Tile*>(tile))->resize(x, y, w, h);- } FL_EXPORT_C(void,Fl_Tile_init_sizes)(fl_Tile tile){ (static_cast<Fl_Tile*>(tile))->init_sizes(); }@@ -333,14 +402,55 @@ FL_EXPORT_C(fl_Widget, Fl_Tile_child)(fl_Tile tile, int n){ return (fl_Widget)(static_cast<Fl_Tile*>(tile))->child(n); }- FL_EXPORT_C(fl_Tile, Fl_Tile_New)(int x, int y, int w, int h){- Fl_Tile* g = new Fl_Tile(x,y,w,h);- return (fl_Tile)g;+ FL_EXPORT_C(fl_Tile, Fl_Tile_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTile* w = new Fl_DerivedTile(X,Y,W,H,fs);+ return (fl_Tile)w; }- FL_EXPORT_C(fl_Tile, Fl_Tile_New_WithLabel)(int x, int y, int w, int h, const char* t){- Fl_Tile* g = new Fl_Tile(x,y,w,h,t);- return (fl_Tile)g;+ FL_EXPORT_C(fl_Tile, Fl_Tile_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTile* w = new Fl_DerivedTile(X,Y,W,H,label,fs);+ return (fl_Tile)w; }+ FL_EXPORT_C(fl_Tile, Fl_OverriddenTile_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTile* w = new Fl_DerivedTile(X,Y,W,H,fs);+ return (fl_Tile)w;+ }+ FL_EXPORT_C(fl_Tile, Fl_OverriddenTile_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTile* w = new Fl_DerivedTile(X,Y,W,H,label,fs);+ return (fl_Tile)w;+ }+ FL_EXPORT_C(void, Fl_Tile_draw)(fl_Tile o){+ (static_cast<Fl_DerivedTile*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Tile_draw_super)(fl_Tile o){+ (static_cast<Fl_DerivedTile*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Tile_handle)(fl_Tile o, int event){+ return (static_cast<Fl_DerivedTile*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Tile_handle_super)(fl_Tile o, int event){+ return (static_cast<Fl_DerivedTile*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Tile_resize)(fl_Tile o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTile*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Tile_resize_super)(fl_Tile o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTile*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Tile_show)(fl_Tile o){+ (static_cast<Fl_DerivedTile*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Tile_show_super)(fl_Tile o){+ (static_cast<Fl_DerivedTile*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Tile_hide)(fl_Tile o){+ (static_cast<Fl_DerivedTile*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Tile_hide_super)(fl_Tile o){+ (static_cast<Fl_DerivedTile*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_TileC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Tile.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedTile : public Fl_Tile {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ 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);+ ~Fl_DerivedTile();+ };+ #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int, Fl_Tile_handle)(fl_Tile tile, int event);@@ -126,6 +146,18 @@ FL_EXPORT_C(fl_Group, Fl_Tile_New)(int x, int y, int w, int h); FL_EXPORT_C(fl_Group, Fl_Tile_New_WithLabel)(int x, int y, int w, int h, const char* t); FL_EXPORT_C(void, Fl_Tile_position)(fl_Tile tile, int x, int y, int w, int h);+ FL_EXPORT_C(fl_Tile, Fl_OverriddenTile_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Tile, Fl_OverriddenTile_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Tile_draw)(fl_Tile o);+ FL_EXPORT_C(void, Fl_Tile_draw_super)(fl_Tile o);+ FL_EXPORT_C(int, Fl_Tile_handle)(fl_Tile o, int event);+ FL_EXPORT_C(int, Fl_Tile_handle_super)(fl_Tile o, int event);+ FL_EXPORT_C(void, Fl_Tile_resize)(fl_Tile o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Tile_resize_super)(fl_Tile o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Tile_show)(fl_Tile o);+ FL_EXPORT_C(void, Fl_Tile_show_super)(fl_Tile o);+ FL_EXPORT_C(void, Fl_Tile_hide)(fl_Tile o);+ FL_EXPORT_C(void, Fl_Tile_hide_super)(fl_Tile o); #ifdef __cplusplus } #endif
c-src/Fl_TimerC.cpp view
@@ -1,10 +1,76 @@ #include "Fl_TimerC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int , Fl_Timer_handle )(fl_Timer timer,int event) {- return (static_cast<Fl_Timer*>(timer))->handle(event);+ Fl_DerivedTimer::Fl_DerivedTimer(uchar t,int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Timer(t,X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedTimer::~Fl_DerivedTimer(){+ free(overriddenFuncs);+ }+ void Fl_DerivedTimer::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Timer) this);+ }+ else {+ Fl_Timer::draw();+ }+ }++ void Fl_DerivedTimer::draw_super(){+ Fl_Timer::draw();+ }++ int Fl_DerivedTimer::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Timer) this,event);+ }+ else {+ i = Fl_Timer::handle(event);+ }+ return i;+ }+ int Fl_DerivedTimer::handle_super(int event){+ return Fl_Timer::handle(event);+ }++ void Fl_DerivedTimer::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Timer) this,x,y,w,h);+ }+ else {+ Fl_Timer::resize(x,y,w,h);+ }+ }++ void Fl_DerivedTimer::resize_super(int x, int y, int w, int h){+ Fl_Timer::resize(x,y,w,h);+ }+ void Fl_DerivedTimer::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Timer) this);+ }+ else {+ Fl_Timer::show();+ }+ }+ void Fl_DerivedTimer::show_super(){+ Fl_Timer::show();+ }++ void Fl_DerivedTimer::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Timer) this);+ }+ else {+ Fl_Timer::hide();+ }+ }+ void Fl_DerivedTimer::hide_super(){+ Fl_Timer::hide();+ }+#endif FL_EXPORT_C(fl_Group,Fl_Timer_parent)(fl_Timer adjuster){ return (static_cast<Fl_Timer*>(adjuster))->parent(); }@@ -155,12 +221,6 @@ FL_EXPORT_C(int,Fl_Timer_visible_r)(fl_Timer adjuster){ return (static_cast<Fl_Timer*>(adjuster))->visible_r(); }- FL_EXPORT_C(void,Fl_Timer_show)(fl_Timer adjuster){- (static_cast<Fl_Timer*>(adjuster))->show();- }- FL_EXPORT_C(void,Fl_Timer_hide)(fl_Timer adjuster){- (static_cast<Fl_Timer*>(adjuster))->hide();- } FL_EXPORT_C(void,Fl_Timer_set_visible)(fl_Timer adjuster){ (static_cast<Fl_Timer*>(adjuster))->visible(); }@@ -257,13 +317,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Timer_as_gl_window)(fl_Timer adjuster){ return (static_cast<Fl_Timer*>(adjuster))->as_gl_window(); }- FL_EXPORT_C(void,Fl_Timer_resize)(fl_Timer adjuster,int X,int Y,int W,int H){- (static_cast<Fl_Timer*>(adjuster))->resize(X,Y,W,H);- }- FL_EXPORT_C(fl_Timer,Fl_Timer_New)(int x,int y,int w,int h,const char* label){- Fl_Timer* adjuster = new Fl_Timer(FL_NORMAL_TIMER,x,y,w,h,label);- return (fl_Timer) adjuster;- } FL_EXPORT_C(fl_Timer,Fl_Value_Timer_New)(int x,int y,int w,int h,const char* label){ Fl_Timer* adjuster = new Fl_Timer(FL_VALUE_TIMER,x,y,w,h,label); return (fl_Timer) adjuster;@@ -292,6 +345,45 @@ } FL_EXPORT_C(void,Fl_Timer_set_suspended)(fl_Timer timer,char s){ (static_cast<Fl_Timer*>(timer))->suspended(s);+ }+ FL_EXPORT_C(fl_Timer, Fl_Timer_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTimer* w = new Fl_DerivedTimer(FL_NORMAL_TIMER,X,Y,W,H,label,fs);+ return (fl_Timer)w;+ }+ FL_EXPORT_C(fl_Timer, Fl_OverriddenTimer_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTimer* w = new Fl_DerivedTimer(FL_NORMAL_TIMER,X,Y,W,H,label,fs);+ return (fl_Timer)w;+ }+ FL_EXPORT_C(void, Fl_Timer_draw)(fl_Timer o){+ (static_cast<Fl_DerivedTimer*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Timer_draw_super)(fl_Timer o){+ (static_cast<Fl_DerivedTimer*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Timer_handle)(fl_Timer o, int event){+ return (static_cast<Fl_DerivedTimer*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Timer_handle_super)(fl_Timer o, int event){+ return (static_cast<Fl_DerivedTimer*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Timer_resize)(fl_Timer o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTimer*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Timer_resize_super)(fl_Timer o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTimer*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Timer_show)(fl_Timer o){+ (static_cast<Fl_DerivedTimer*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Timer_show_super)(fl_Timer o){+ (static_cast<Fl_DerivedTimer*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Timer_hide)(fl_Timer o){+ (static_cast<Fl_DerivedTimer*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Timer_hide_super)(fl_Timer o){+ (static_cast<Fl_DerivedTimer*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_TimerC.h view
@@ -7,7 +7,25 @@ #include "FL/Fl.H" #include "FL/Fl_Timer.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedTimer : public Fl_Timer {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ Fl_DerivedTimer(uchar t, int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);+ ~Fl_DerivedTimer();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int , Fl_Timer_handle )(fl_Timer timer,int event);@@ -111,6 +129,18 @@ FL_EXPORT_C(void, Fl_Timer_set_value)(fl_Timer timer, double value); FL_EXPORT_C(char, Fl_Timer_suspended)(fl_Timer timer); FL_EXPORT_C(void, Fl_Timer_set_suspended)(fl_Timer timer, char s);+ FL_EXPORT_C(fl_Timer, Fl_OverriddenTimer_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Timer, Fl_OverriddenTimer_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Timer_draw)(fl_Timer o);+ FL_EXPORT_C(void, Fl_Timer_draw_super)(fl_Timer o);+ FL_EXPORT_C(int, Fl_Timer_handle)(fl_Timer o, int event);+ FL_EXPORT_C(int, Fl_Timer_handle_super)(fl_Timer o, int event);+ FL_EXPORT_C(void, Fl_Timer_resize)(fl_Timer o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Timer_resize_super)(fl_Timer o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Timer_show)(fl_Timer o);+ FL_EXPORT_C(void, Fl_Timer_show_super)(fl_Timer o);+ FL_EXPORT_C(void, Fl_Timer_hide)(fl_Timer o);+ FL_EXPORT_C(void, Fl_Timer_hide_super)(fl_Timer o); #ifdef __cplusplus } #endif
c-src/Fl_TreeC.cpp view
@@ -1,10 +1,82 @@ #include "Fl_TreeC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Tree_handle)(fl_Tree self, int event){- return (static_cast<Fl_Tree*>(self))->handle(event);+ Fl_DerivedTree::Fl_DerivedTree(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Tree(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedTree::Fl_DerivedTree(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Tree(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedTree::~Fl_DerivedTree(){+ free(overriddenFuncs);+ }+ void Fl_DerivedTree::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Tree) this);+ }+ else {+ Fl_Tree::draw();+ }+ }++ void Fl_DerivedTree::draw_super(){+ Fl_Tree::draw();+ }++ int Fl_DerivedTree::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Tree) this,event);+ }+ else {+ i = Fl_Tree::handle(event);+ }+ return i;+ }+ int Fl_DerivedTree::handle_super(int event){+ return Fl_Tree::handle(event);+ }++ void Fl_DerivedTree::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Tree) this,x,y,w,h);+ }+ else {+ Fl_Tree::resize(x,y,w,h);+ }+ }++ void Fl_DerivedTree::resize_super(int x, int y, int w, int h){+ Fl_Tree::resize(x,y,w,h);+ }+ void Fl_DerivedTree::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Tree) this);+ }+ else {+ Fl_Tree::show();+ }+ }+ void Fl_DerivedTree::show_super(){+ Fl_Tree::show();+ }++ void Fl_DerivedTree::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Tree) this);+ }+ else {+ Fl_Tree::hide();+ }+ }+ void Fl_DerivedTree::hide_super(){+ Fl_Tree::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Tree_parent)(fl_Tree tree){ return (fl_Group) (static_cast<Fl_Tree*>(tree))->parent(); }@@ -252,10 +324,6 @@ FL_EXPORT_C(fl_Gl_Window,Fl_Tree_as_gl_window)(fl_Tree tree){ return (fl_Gl_Window) (static_cast<Fl_Tree*>(tree))->as_gl_window(); }- FL_EXPORT_C(void,Fl_Tree_draw)(fl_Tree tree){- return (static_cast<Fl_Tree*>(tree))->draw();- }- FL_EXPORT_C(void,Fl_Tree_begin)(fl_Tree tree){ (static_cast<Fl_Tree*>(tree))->begin(); }@@ -301,18 +369,6 @@ FL_EXPORT_C(fl_Widget, Fl_Tree_child)(fl_Tree self, int n){ return (fl_Widget)(static_cast<Fl_Tree*>(self))->child(n); }- // FL_EXPORT_C(void , Fl_Tree_forms_end)(fl_Tree self){- // (static_cast<Fl_Tree*>(self))->forms_end();- // }-- FL_EXPORT_C(fl_Tree, Fl_Tree_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Tree* tree = new Fl_Tree(x,y,w,h,label);- return (static_cast<Fl_Tree*>(tree));- }- FL_EXPORT_C(fl_Tree, Fl_Tree_New)(int x, int y, int w, int h) {- Fl_Tree* tree = new Fl_Tree(x,y,w,h,0);- return (fl_Tree)tree;- } FL_EXPORT_C(void,Fl_Tree_Destroy)(fl_Tree tree){ delete (static_cast<Fl_Tree*>(tree)); }@@ -479,19 +535,19 @@ return (static_cast<Fl_Tree*>(tree))->deselect_all((static_cast<Fl_Tree_Item*>(item)),docallback); } FL_EXPORT_C(void,Fl_Tree_select_only)(fl_Tree tree,fl_Tree_Item item){- (static_cast<Fl_Tree*>(tree))->select_only((static_cast<Fl_Tree_Item*>(item)));+ (static_cast<Fl_Tree*>(tree))->select_only((static_cast<Fl_Tree_Item*>(item))); } FL_EXPORT_C(void,Fl_Tree_select_only_with_docallback)(fl_Tree tree,fl_Tree_Item item,int docallback){- (static_cast<Fl_Tree*>(tree))->select_only((static_cast<Fl_Tree_Item*>(item)),docallback);+ (static_cast<Fl_Tree*>(tree))->select_only((static_cast<Fl_Tree_Item*>(item)),docallback); } FL_EXPORT_C(void,Fl_Tree_select_all)(fl_Tree tree,fl_Tree_Item item){- (static_cast<Fl_Tree*>(tree))->select_all((static_cast<Fl_Tree_Item*>(item)));+ (static_cast<Fl_Tree*>(tree))->select_all((static_cast<Fl_Tree_Item*>(item))); } FL_EXPORT_C(void,Fl_Tree_select_all_with_docallback)(fl_Tree tree,fl_Tree_Item item,int docallback){- (static_cast<Fl_Tree*>(tree))->select_all((static_cast<Fl_Tree_Item*>(item)),docallback);+ (static_cast<Fl_Tree*>(tree))->select_all((static_cast<Fl_Tree_Item*>(item)),docallback); } FL_EXPORT_C(void,Fl_Tree_set_item_focus)(fl_Tree tree,fl_Tree_Item item){- (static_cast<Fl_Tree*>(tree))->set_item_focus((static_cast<Fl_Tree_Item*>(item)));+ (static_cast<Fl_Tree*>(tree))->set_item_focus((static_cast<Fl_Tree_Item*>(item))); } FL_EXPORT_C(fl_Tree_Item,Fl_Tree_get_item_focus)(fl_Tree tree){ return (static_cast<Fl_Tree*>(tree))->get_item_focus();@@ -672,7 +728,7 @@ (static_cast<Fl_Tree*>(tree))->show_item((static_cast<Fl_Tree_Item*>(item))); } FL_EXPORT_C(void,Fl_Tree_show_item_top)(fl_Tree tree,fl_Tree_Item item){- (static_cast<Fl_Tree*>(tree))->show_item_top((static_cast<Fl_Tree_Item*>(item)));+ (static_cast<Fl_Tree*>(tree))->show_item_top((static_cast<Fl_Tree_Item*>(item))); } FL_EXPORT_C(void,Fl_Tree_show_item_middle)(fl_Tree tree,fl_Tree_Item item){ (static_cast<Fl_Tree*>(tree))->show_item_middle((static_cast<Fl_Tree_Item*>(item)));@@ -716,6 +772,55 @@ FL_EXPORT_C(Fl_Tree_Reason,Fl_Tree_callback_reason)(fl_Tree tree){ return (static_cast<Fl_Tree*>(tree))->callback_reason(); }+ FL_EXPORT_C(fl_Tree, Fl_Tree_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTree* w = new Fl_DerivedTree(X,Y,W,H,fs);+ return (fl_Tree)w;+ }+ FL_EXPORT_C(fl_Tree, Fl_Tree_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedTree* w = new Fl_DerivedTree(X,Y,W,H,label,fs);+ return (fl_Tree)w;+ }+ FL_EXPORT_C(fl_Tree, Fl_OverriddenTree_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTree* w = new Fl_DerivedTree(X,Y,W,H,fs);+ return (fl_Tree)w;+ }+ FL_EXPORT_C(fl_Tree, Fl_OverriddenTree_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedTree* w = new Fl_DerivedTree(X,Y,W,H,label,fs);+ return (fl_Tree)w;+ }+ FL_EXPORT_C(void, Fl_Tree_draw)(fl_Tree o){+ (static_cast<Fl_DerivedTree*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Tree_draw_super)(fl_Tree o){+ (static_cast<Fl_DerivedTree*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Tree_handle)(fl_Tree o, int event){+ return (static_cast<Fl_DerivedTree*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Tree_handle_super)(fl_Tree o, int event){+ return (static_cast<Fl_DerivedTree*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Tree_resize)(fl_Tree o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTree*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Tree_resize_super)(fl_Tree o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedTree*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Tree_show)(fl_Tree o){+ (static_cast<Fl_DerivedTree*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Tree_show_super)(fl_Tree o){+ (static_cast<Fl_DerivedTree*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Tree_hide)(fl_Tree o){+ (static_cast<Fl_DerivedTree*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Tree_hide_super)(fl_Tree o){+ (static_cast<Fl_DerivedTree*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_TreeC.h view
@@ -7,7 +7,26 @@ #include "FL/Fl.H" #include "FL/Fl_Tree.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedTree : public Fl_Tree {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ }; #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int,Fl_Tree_handle)(fl_Tree self, int event);@@ -253,6 +272,18 @@ FL_EXPORT_C(void, Fl_Tree_set_callback_reason)(fl_Tree tree,Fl_Tree_Reason reason); FL_EXPORT_C(Fl_Tree_Reason, Fl_Tree_callback_reason)(fl_Tree tree); FL_EXPORT_C(void, Fl_Tree_load)(fl_Tree tree,fl_Preferences preferences);+ FL_EXPORT_C(fl_Tree, Fl_OverriddenTree_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Tree, Fl_OverriddenTree_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Tree_draw)(fl_Tree o);+ FL_EXPORT_C(void, Fl_Tree_draw_super)(fl_Tree o);+ FL_EXPORT_C(int, Fl_Tree_handle)(fl_Tree o, int event);+ FL_EXPORT_C(int, Fl_Tree_handle_super)(fl_Tree o, int event);+ FL_EXPORT_C(void, Fl_Tree_resize)(fl_Tree o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Tree_resize_super)(fl_Tree o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Tree_show)(fl_Tree o);+ FL_EXPORT_C(void, Fl_Tree_show_super)(fl_Tree o);+ FL_EXPORT_C(void, Fl_Tree_hide)(fl_Tree o);+ FL_EXPORT_C(void, Fl_Tree_hide_super)(fl_Tree o); #ifdef __cplusplus } #endif
c-src/Fl_Value_InputC.cpp view
@@ -2,11 +2,83 @@ #ifdef __cplusplus EXPORT {+ Fl_DerivedValue_Input::Fl_DerivedValue_Input(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Value_Input(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedValue_Input::Fl_DerivedValue_Input(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Value_Input(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedValue_Input::~Fl_DerivedValue_Input(){+ free(overriddenFuncs);+ }+ void Fl_DerivedValue_Input::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Value_Input) this);+ }+ else {+ Fl_Value_Input::draw();+ }+ }++ void Fl_DerivedValue_Input::draw_super(){+ Fl_Value_Input::draw();+ }++ int Fl_DerivedValue_Input::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Value_Input) this,event);+ }+ else {+ i = Fl_Value_Input::handle(event);+ }+ return i;+ }+ int Fl_DerivedValue_Input::handle_super(int event){+ return Fl_Value_Input::handle(event);+ }++ void Fl_DerivedValue_Input::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Value_Input) this,x,y,w,h);+ }+ else {+ Fl_Value_Input::resize(x,y,w,h);+ }+ }++ void Fl_DerivedValue_Input::resize_super(int x, int y, int w, int h){+ Fl_Value_Input::resize(x,y,w,h);+ }+ void Fl_DerivedValue_Input::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Value_Input) this);+ }+ else {+ Fl_Value_Input::show();+ }+ }+ void Fl_DerivedValue_Input::show_super(){+ Fl_Value_Input::show();+ }++ void Fl_DerivedValue_Input::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Value_Input) this);+ }+ else {+ Fl_Value_Input::hide();+ }+ }+ void Fl_DerivedValue_Input::hide_super(){+ Fl_Value_Input::hide();+ }++ #endif /* Inherited from Fl_Widget */- FL_EXPORT_C(int,Fl_Value_Input_handle)(fl_Value_Input self, int event){- return (static_cast<Fl_Value_Input*>(self))->handle(event);- } FL_EXPORT_C(fl_Group,Fl_Value_Input_parent)(fl_Value_Input value_input){ return (fl_Group) (static_cast<Fl_Value_Input*>(value_input))->parent(); }@@ -314,23 +386,12 @@ FL_EXPORT_C(double,Fl_Value_Input_increment)(fl_Value_Input value_input,double v,int n){ return (static_cast<Fl_Value_Input*>(value_input))->increment(v,n); }- FL_EXPORT_C(fl_Value_Input, Fl_Value_Input_New_WithLabel)(int x, int y, int w, int h, const char* label){- Fl_Value_Input* value_input = new Fl_Value_Input(x,y,w,h,label);- return (static_cast<fl_Value_Input>(value_input));- }- FL_EXPORT_C(fl_Value_Input, Fl_Value_Input_New)(int x, int y, int w, int h){- Fl_Value_Input* value_input = new Fl_Value_Input(x,y,w,h,0);- return (static_cast<fl_Value_Input>(value_input));- } FL_EXPORT_C(void,Fl_Value_Input_Destroy)(fl_Value_Input value_input){ delete (static_cast<Fl_Value_Input*>(value_input)); } FL_EXPORT_C(char,Fl_Value_Input_soft)(fl_Value_Input value_input){ return (static_cast<Fl_Value_Input*>(value_input))->soft(); }- FL_EXPORT_C(void,Fl_Value_Input_resize)(fl_Value_Input value_input,int X,int Y,int W,int H){- (static_cast<Fl_Value_Input*>(value_input))->resize(X,Y,W,H);- } FL_EXPORT_C(void,Fl_Value_Input_set_soft)(fl_Value_Input value_input,char s){ (static_cast<Fl_Value_Input*>(value_input))->soft(s); }@@ -357,6 +418,54 @@ } FL_EXPORT_C(void,Fl_Value_Input_set_textcolor)(fl_Value_Input value_input,int v){ (static_cast<Fl_Value_Input*>(value_input))->textcolor(v);+ }+ FL_EXPORT_C(fl_Value_Input, Fl_Value_Input_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedValue_Input* w = new Fl_DerivedValue_Input(X,Y,W,H,fs);+ return (fl_Value_Input)w;+ }+ FL_EXPORT_C(fl_Value_Input, Fl_Value_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedValue_Input* w = new Fl_DerivedValue_Input(X,Y,W,H,label,fs);+ return (fl_Value_Input)w;+ }+ FL_EXPORT_C(fl_Value_Input, Fl_OverriddenValue_Input_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedValue_Input* w = new Fl_DerivedValue_Input(X,Y,W,H,fs);+ return (fl_Value_Input)w;+ }+ FL_EXPORT_C(fl_Value_Input, Fl_OverriddenValue_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedValue_Input* w = new Fl_DerivedValue_Input(X,Y,W,H,label,fs);+ return (fl_Value_Input)w;+ }+ FL_EXPORT_C(void, Fl_Value_Input_draw)(fl_Value_Input o){+ (static_cast<Fl_DerivedValue_Input*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Value_Input_draw_super)(fl_Value_Input o){+ (static_cast<Fl_DerivedValue_Input*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Value_Input_handle)(fl_Value_Input o, int event){+ return (static_cast<Fl_DerivedValue_Input*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Value_Input_handle_super)(fl_Value_Input o, int event){+ return (static_cast<Fl_DerivedValue_Input*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Value_Input_resize)(fl_Value_Input o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedValue_Input*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Value_Input_resize_super)(fl_Value_Input o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedValue_Input*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Value_Input_show)(fl_Value_Input o){+ (static_cast<Fl_DerivedValue_Input*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Value_Input_show_super)(fl_Value_Input o){+ (static_cast<Fl_DerivedValue_Input*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Value_Input_hide)(fl_Value_Input o){+ (static_cast<Fl_DerivedValue_Input*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Value_Input_hide_super)(fl_Value_Input o){+ (static_cast<Fl_DerivedValue_Input*>(o))->hide_super(); } #ifdef __cplusplus }
c-src/Fl_Value_InputC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Value_Input.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedValue_Input : public Fl_Value_Input {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif FL_EXPORT_C(int,Fl_Value_Input_handle)(fl_Value_Input self, int event); FL_EXPORT_C(fl_Group, Fl_Value_Input_parent)(fl_Value_Input value_input);@@ -127,6 +147,18 @@ FL_EXPORT_C(void, Fl_Value_Input_set_textsize)(fl_Value_Input value_input,int v); FL_EXPORT_C(Fl_Color, Fl_Value_Input_textcolor)(fl_Value_Input value_input); FL_EXPORT_C(void, Fl_Value_Input_set_textcolor)(fl_Value_Input value_input,int v);+ FL_EXPORT_C(fl_Value_Input, Fl_OverriddenValue_Input_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Value_Input, Fl_OverriddenValue_Input_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Value_Input_draw)(fl_Value_Input o);+ FL_EXPORT_C(void, Fl_Value_Input_draw_super)(fl_Value_Input o);+ FL_EXPORT_C(int, Fl_Value_Input_handle)(fl_Value_Input o, int event);+ FL_EXPORT_C(int, Fl_Value_Input_handle_super)(fl_Value_Input o, int event);+ FL_EXPORT_C(void, Fl_Value_Input_resize)(fl_Value_Input o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Value_Input_resize_super)(fl_Value_Input o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Value_Input_show)(fl_Value_Input o);+ FL_EXPORT_C(void, Fl_Value_Input_show_super)(fl_Value_Input o);+ FL_EXPORT_C(void, Fl_Value_Input_hide)(fl_Value_Input o);+ FL_EXPORT_C(void, Fl_Value_Input_hide_super)(fl_Value_Input o); #ifdef __cplusplus } #endif
c-src/Fl_Value_OutputC.cpp view
@@ -2,14 +2,83 @@ #ifdef __cplusplus EXPORT {-#endif- /* Inherited from Fl_Widget */- FL_EXPORT_C(void,Fl_Value_Output_resize)(fl_Value_Output value_output,int X,int Y,int W,int H) {- (static_cast<Fl_Value_Output*>(value_output)->resize(X,Y,W,H));+ Fl_DerivedValue_Output::Fl_DerivedValue_Output(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Value_Output(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(int,Fl_Value_Output_handle)(fl_Value_Output self, int event){- return (static_cast<Fl_Value_Output*>(self))->handle(event);+ Fl_DerivedValue_Output::Fl_DerivedValue_Output(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Value_Output(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedValue_Output::~Fl_DerivedValue_Output(){+ free(overriddenFuncs);+ }+ void Fl_DerivedValue_Output::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Value_Output) this);+ }+ else {+ Fl_Value_Output::draw();+ }+ }++ void Fl_DerivedValue_Output::draw_super(){+ Fl_Value_Output::draw();+ }++ int Fl_DerivedValue_Output::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Value_Output) this,event);+ }+ else {+ i = Fl_Value_Output::handle(event);+ }+ return i;+ }+ int Fl_DerivedValue_Output::handle_super(int event){+ return Fl_Value_Output::handle(event);+ }++ void Fl_DerivedValue_Output::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Value_Output) this,x,y,w,h);+ }+ else {+ Fl_Value_Output::resize(x,y,w,h);+ }+ }++ void Fl_DerivedValue_Output::resize_super(int x, int y, int w, int h){+ Fl_Value_Output::resize(x,y,w,h);+ }+ void Fl_DerivedValue_Output::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Value_Output) this);+ }+ else {+ Fl_Value_Output::show();+ }+ }+ void Fl_DerivedValue_Output::show_super(){+ Fl_Value_Output::show();+ }++ void Fl_DerivedValue_Output::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Value_Output) this);+ }+ else {+ Fl_Value_Output::hide();+ }+ }+ void Fl_DerivedValue_Output::hide_super(){+ Fl_Value_Output::hide();+ }+++#endif+ /* Inherited from Fl_Widget */ FL_EXPORT_C(fl_Group,Fl_Value_Output_parent)(fl_Value_Output value_output){ return (fl_Group) (static_cast<Fl_Value_Output*>(value_output))->parent(); }@@ -317,14 +386,6 @@ FL_EXPORT_C(double,Fl_Value_Output_increment)(fl_Value_Output value_output,double v,int n){ return (static_cast<Fl_Value_Output*>(value_output))->increment(v,n); }- FL_EXPORT_C(fl_Value_Output, Fl_Value_Output_New_WithLabel)(int x, int y, int w, int h, const char* label){- Fl_Value_Output* value_output = new Fl_Value_Output(x,y,w,h,label);- return (static_cast<fl_Value_Output>(value_output));- }- FL_EXPORT_C(fl_Value_Output, Fl_Value_Output_New)(int x, int y, int w, int h){- Fl_Value_Output* value_output = new Fl_Value_Output(x,y,w,h,0);- return (static_cast<fl_Value_Output>(value_output));- } FL_EXPORT_C(void,Fl_Value_Output_Destroy)(fl_Value_Output value_output){ delete (static_cast<Fl_Value_Output*>(value_output)); }@@ -352,6 +413,55 @@ FL_EXPORT_C(void,Fl_Value_Output_set_textcolor)(fl_Value_Output value_output,int v){ (static_cast<Fl_Value_Output*>(value_output))->textcolor(v); }+ FL_EXPORT_C(fl_Value_Output, Fl_Value_Output_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedValue_Output* w = new Fl_DerivedValue_Output(X,Y,W,H,fs);+ return (fl_Value_Output)w;+ }+ FL_EXPORT_C(fl_Value_Output, Fl_Value_Output_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedValue_Output* w = new Fl_DerivedValue_Output(X,Y,W,H,label,fs);+ return (fl_Value_Output)w;+ }+ FL_EXPORT_C(fl_Value_Output, Fl_OverriddenValue_Output_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedValue_Output* w = new Fl_DerivedValue_Output(X,Y,W,H,fs);+ return (fl_Value_Output)w;+ }+ FL_EXPORT_C(fl_Value_Output, Fl_OverriddenValue_Output_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedValue_Output* w = new Fl_DerivedValue_Output(X,Y,W,H,label,fs);+ return (fl_Value_Output)w;+ }+ FL_EXPORT_C(void, Fl_Value_Output_draw)(fl_Value_Output o){+ (static_cast<Fl_DerivedValue_Output*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Value_Output_draw_super)(fl_Value_Output o){+ (static_cast<Fl_DerivedValue_Output*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Value_Output_handle)(fl_Value_Output o, int event){+ return (static_cast<Fl_DerivedValue_Output*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Value_Output_handle_super)(fl_Value_Output o, int event){+ return (static_cast<Fl_DerivedValue_Output*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Value_Output_resize)(fl_Value_Output o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedValue_Output*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Value_Output_resize_super)(fl_Value_Output o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedValue_Output*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Value_Output_show)(fl_Value_Output o){+ (static_cast<Fl_DerivedValue_Output*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Value_Output_show_super)(fl_Value_Output o){+ (static_cast<Fl_DerivedValue_Output*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Value_Output_hide)(fl_Value_Output o){+ (static_cast<Fl_DerivedValue_Output*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Value_Output_hide_super)(fl_Value_Output o){+ (static_cast<Fl_DerivedValue_Output*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_Value_OutputC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Value_Output.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedValue_Output : public Fl_Value_Output {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif FL_EXPORT_C(int,Fl_Value_Output_handle)(fl_Value_Output self, int event); FL_EXPORT_C(fl_Group, Fl_Value_Output_parent)(fl_Value_Output value_output);@@ -125,6 +145,18 @@ FL_EXPORT_C(void, Fl_Value_Output_set_textsize)(fl_Value_Output value_output,int v); FL_EXPORT_C(Fl_Color, Fl_Value_Output_textcolor)(fl_Value_Output value_output); FL_EXPORT_C(void, Fl_Value_Output_set_textcolor)(fl_Value_Output value_output,int v);+ FL_EXPORT_C(fl_Value_Output, Fl_OverriddenValue_Output_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Value_Output, Fl_OverriddenValue_Output_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Value_Output_draw)(fl_Value_Output o);+ FL_EXPORT_C(void, Fl_Value_Output_draw_super)(fl_Value_Output o);+ FL_EXPORT_C(int, Fl_Value_Output_handle)(fl_Value_Output o, int event);+ FL_EXPORT_C(int, Fl_Value_Output_handle_super)(fl_Value_Output o, int event);+ FL_EXPORT_C(void, Fl_Value_Output_resize)(fl_Value_Output o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Value_Output_resize_super)(fl_Value_Output o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Value_Output_show)(fl_Value_Output o);+ FL_EXPORT_C(void, Fl_Value_Output_show_super)(fl_Value_Output o);+ FL_EXPORT_C(void, Fl_Value_Output_hide)(fl_Value_Output o);+ FL_EXPORT_C(void, Fl_Value_Output_hide_super)(fl_Value_Output o); #ifdef __cplusplus } #endif
c-src/Fl_Value_SliderC.cpp view
@@ -1,19 +1,82 @@ #include "Fl_Value_SliderC.h" #ifdef __cplusplus EXPORT {-#endif- FL_EXPORT_C(int,Fl_Value_Slider_handle )(fl_Value_Slider value_slider, int event){- return (static_cast<Fl_Value_Slider*>(value_slider))->handle(event);+ Fl_DerivedValue_Slider::Fl_DerivedValue_Slider(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Value_Slider(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Value_Slider_resize )(fl_Value_Slider value_slider,int x, int y, int w, int h){- (static_cast<Fl_Value_Slider*>(value_slider))->resize(x,y,w,h);+ Fl_DerivedValue_Slider::Fl_DerivedValue_Slider(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Value_Slider(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0; }- FL_EXPORT_C(void,Fl_Value_Slider_show )(fl_Value_Slider value_slider){- (static_cast<Fl_Value_Slider*>(value_slider))->show();+ Fl_DerivedValue_Slider::~Fl_DerivedValue_Slider(){+ free(overriddenFuncs); }- FL_EXPORT_C(void,Fl_Value_Slider_hide )(fl_Value_Slider value_slider){- (static_cast<Fl_Value_Slider*>(value_slider))->hide();+ void Fl_DerivedValue_Slider::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Value_Slider) this);+ }+ else {+ Fl_Value_Slider::draw();+ } }++ void Fl_DerivedValue_Slider::draw_super(){+ Fl_Value_Slider::draw();+ }++ int Fl_DerivedValue_Slider::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Value_Slider) this,event);+ }+ else {+ i = Fl_Value_Slider::handle(event);+ }+ return i;+ }+ int Fl_DerivedValue_Slider::handle_super(int event){+ return Fl_Value_Slider::handle(event);+ }++ void Fl_DerivedValue_Slider::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Value_Slider) this,x,y,w,h);+ }+ else {+ Fl_Value_Slider::resize(x,y,w,h);+ }+ }++ void Fl_DerivedValue_Slider::resize_super(int x, int y, int w, int h){+ Fl_Value_Slider::resize(x,y,w,h);+ }+ void Fl_DerivedValue_Slider::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Value_Slider) this);+ }+ else {+ Fl_Value_Slider::show();+ }+ }+ void Fl_DerivedValue_Slider::show_super(){+ Fl_Value_Slider::show();+ }++ void Fl_DerivedValue_Slider::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Value_Slider) this);+ }+ else {+ Fl_Value_Slider::hide();+ }+ }+ void Fl_DerivedValue_Slider::hide_super(){+ Fl_Value_Slider::hide();+ }+++#endif FL_EXPORT_C(fl_Window,Fl_Value_Slider_as_window )(fl_Value_Slider value_slider){ return (static_cast<Fl_Value_Slider*>(value_slider))->as_window(); }@@ -330,14 +393,6 @@ FL_EXPORT_C(void,Fl_Value_Slider_set_value_slider)(fl_Value_Slider value_slider,Fl_Boxtype c){ (static_cast<Fl_Value_Slider*>(value_slider))->slider(c); }- FL_EXPORT_C(fl_Value_Slider, Fl_Value_Slider_New_WithLabel)(int x, int y, int w, int h, const char* label) {- Fl_Value_Slider* value_slider = new Fl_Value_Slider(x,y,w,h,label);- return (static_cast<fl_Value_Slider>(value_slider));- }- FL_EXPORT_C(fl_Value_Slider, Fl_Value_Slider_New)(int x, int y, int w, int h) {- Fl_Value_Slider* value_slider = new Fl_Value_Slider(x,y,w,h,0);- return (fl_Value_Slider)value_slider;- } FL_EXPORT_C(fl_Hor_Value_Slider, Fl_Hor_Value_Slider_New_WithLabel)(int x, int y, int w, int h, const char* label) { Fl_Hor_Value_Slider* hor_value_slider = new Fl_Hor_Value_Slider(x,y,w,h,label); return (static_cast<fl_Hor_Value_Slider>(hor_value_slider));@@ -367,6 +422,55 @@ FL_EXPORT_C(void,Fl_Value_Slider_set_textcolor)(fl_Value_Slider value_slider,Fl_Color s){ return (static_cast<Fl_Value_Slider*>(value_slider))->textcolor(s); }+ FL_EXPORT_C(fl_Value_Slider, Fl_Value_Slider_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedValue_Slider* w = new Fl_DerivedValue_Slider(X,Y,W,H,fs);+ return (fl_Value_Slider)w;+ }+ FL_EXPORT_C(fl_Value_Slider, Fl_Value_Slider_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedValue_Slider* w = new Fl_DerivedValue_Slider(X,Y,W,H,label,fs);+ return (fl_Value_Slider)w;+ }+ FL_EXPORT_C(fl_Value_Slider, Fl_OverriddenValue_Slider_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedValue_Slider* w = new Fl_DerivedValue_Slider(X,Y,W,H,fs);+ return (fl_Value_Slider)w;+ }+ FL_EXPORT_C(fl_Value_Slider, Fl_OverriddenValue_Slider_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedValue_Slider* w = new Fl_DerivedValue_Slider(X,Y,W,H,label,fs);+ return (fl_Value_Slider)w;+ }+ FL_EXPORT_C(void, Fl_Value_Slider_draw)(fl_Value_Slider o){+ (static_cast<Fl_DerivedValue_Slider*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Value_Slider_draw_super)(fl_Value_Slider o){+ (static_cast<Fl_DerivedValue_Slider*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Value_Slider_handle)(fl_Value_Slider o, int event){+ return (static_cast<Fl_DerivedValue_Slider*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Value_Slider_handle_super)(fl_Value_Slider o, int event){+ return (static_cast<Fl_DerivedValue_Slider*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Value_Slider_resize)(fl_Value_Slider o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedValue_Slider*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Value_Slider_resize_super)(fl_Value_Slider o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedValue_Slider*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Value_Slider_show)(fl_Value_Slider o){+ (static_cast<Fl_DerivedValue_Slider*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Value_Slider_show_super)(fl_Value_Slider o){+ (static_cast<Fl_DerivedValue_Slider*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Value_Slider_hide)(fl_Value_Slider o){+ (static_cast<Fl_DerivedValue_Slider*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Value_Slider_hide_super)(fl_Value_Slider o){+ (static_cast<Fl_DerivedValue_Slider*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_Value_SliderC.h view
@@ -8,7 +8,27 @@ #include "FL/Fl_Value_Slider.H" #include "FL/Fl_Hor_Value_Slider.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedValue_Slider : public Fl_Value_Slider {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif FL_EXPORT_C(fl_Group, Fl_Value_Slider_parent)(fl_Value_Slider value_slider); FL_EXPORT_C(void, Fl_Value_Slider_set_parent)(fl_Value_Slider value_slider, fl_Group grp);@@ -119,8 +139,8 @@ FL_EXPORT_C(void, Fl_Value_Slider_value_slider_size)(fl_Value_Slider value_slider, double v); FL_EXPORT_C(Fl_Boxtype, Fl_Value_Slider_value_slider)(fl_Value_Slider value_slider); FL_EXPORT_C(void, Fl_Value_Slider_set_value_slider)(fl_Value_Slider value_slider, Fl_Boxtype c);- + /* Fl_Value_Slider specific */ FL_EXPORT_C(fl_Value_Slider, Fl_Value_Slider_New_WithLabel)(int x, int y, int w, int h, const char* label); FL_EXPORT_C(fl_Value_Slider , Fl_Value_Slider_New)(int x, int y, int w, int h);@@ -134,6 +154,18 @@ FL_EXPORT_C(Fl_Color, Fl_Value_Slider_textcolor)(fl_Value_Slider value_slider); FL_EXPORT_C(void, Fl_Value_Slider_set_textcolor)(fl_Value_Slider value_slider, Fl_Color s); FL_EXPORT_C(int,Fl_Value_Slider_handle)(fl_Widget self, int event);+ FL_EXPORT_C(fl_Value_Slider, Fl_OverriddenValue_Slider_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Value_Slider, Fl_OverriddenValue_Slider_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Value_Slider_draw)(fl_Value_Slider o);+ FL_EXPORT_C(void, Fl_Value_Slider_draw_super)(fl_Value_Slider o);+ FL_EXPORT_C(int, Fl_Value_Slider_handle)(fl_Value_Slider o, int event);+ FL_EXPORT_C(int, Fl_Value_Slider_handle_super)(fl_Value_Slider o, int event);+ FL_EXPORT_C(void, Fl_Value_Slider_resize)(fl_Value_Slider o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Value_Slider_resize_super)(fl_Value_Slider o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Value_Slider_show)(fl_Value_Slider o);+ FL_EXPORT_C(void, Fl_Value_Slider_show_super)(fl_Value_Slider o);+ FL_EXPORT_C(void, Fl_Value_Slider_hide)(fl_Value_Slider o);+ FL_EXPORT_C(void, Fl_Value_Slider_hide_super)(fl_Value_Slider o); #ifdef __cplusplus } #endif
c-src/Fl_WizardC.cpp view
@@ -1,10 +1,103 @@ #include "Fl_WizardC.h" #ifdef __cplusplus+#include <FL/Fl_Wizard.H>+#include <FL/Fl_Window.H>+#include <FL/fl_draw.H> EXPORT {-#endif- FL_EXPORT_C(int,Fl_Wizard_handle)(fl_Wizard wizard, int event){- return (static_cast<Fl_Wizard*>(wizard))->handle(event);+ Fl_DerivedWizard::Fl_DerivedWizard(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_Wizard(X,Y,W,H,l){+ overriddenFuncs = funcs;+ other_data = (void*)0; }+ Fl_DerivedWizard::Fl_DerivedWizard(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_Wizard(X,Y,W,H){+ overriddenFuncs = funcs;+ other_data = (void*)0;+ }+ Fl_DerivedWizard::~Fl_DerivedWizard(){+ free(overriddenFuncs);+ }+ void Fl_DerivedWizard::draw(){+ if (this->overriddenFuncs->draw != NULL) {+ this->overriddenFuncs->draw((fl_Wizard) this);+ }+ else {+ draw_super();+ }+ }++ void Fl_DerivedWizard::draw_super(){+ Fl_Widget *kid; // Visible child+++ kid = value();++ if (damage() & FL_DAMAGE_ALL)+ {+ // Redraw everything...+ if (kid)+ {+ draw_box(box(), x(), y(), w(), h(), kid->color());+ draw_child(*kid);+ }+ else+ draw_box(box(), x(), y(), w(), h(), color());++ }+ else if (kid)+ update_child(*kid);+ }++ int Fl_DerivedWizard::handle(int event){+ int i;+ if (this->overriddenFuncs->handle != NULL) {+ i = this->overriddenFuncs->handle((fl_Wizard) this,event);+ }+ else {+ i = Fl_Wizard::handle(event);+ }+ return i;+ }+ int Fl_DerivedWizard::handle_super(int event){+ return Fl_Wizard::handle(event);+ }++ void Fl_DerivedWizard::resize(int x, int y, int w, int h){+ if (this->overriddenFuncs->resize != NULL) {+ this->overriddenFuncs->resize((fl_Wizard) this,x,y,w,h);+ }+ else {+ Fl_Wizard::resize(x,y,w,h);+ }+ }++ void Fl_DerivedWizard::resize_super(int x, int y, int w, int h){+ Fl_Wizard::resize(x,y,w,h);+ }+ void Fl_DerivedWizard::show(){+ if (this->overriddenFuncs->show != NULL) {+ this->overriddenFuncs->show((fl_Wizard) this);+ }+ else {+ Fl_Wizard::show();+ }+ }+ void Fl_DerivedWizard::show_super(){+ Fl_Wizard::show();+ }++ void Fl_DerivedWizard::hide(){+ if (this->overriddenFuncs->hide != NULL) {+ this->overriddenFuncs->hide((fl_Wizard) this);+ }+ else {+ Fl_Wizard::hide();+ }+ }+ void Fl_DerivedWizard::hide_super(){+ Fl_Wizard::hide();+ }+++#endif FL_EXPORT_C(fl_Group,Fl_Wizard_parent)(fl_Wizard wizard){ return (fl_Group) (fl_Group)(static_cast<Fl_Wizard*>(wizard))->parent(); }@@ -328,14 +421,6 @@ FL_EXPORT_C(fl_Widget, Fl_Wizard_child)(fl_Wizard wizard, int n){ return (fl_Widget)(static_cast<Fl_Wizard*>(wizard))->child(n); }- FL_EXPORT_C(fl_Group, Fl_Wizard_New)(int x, int y, int w, int h){- Fl_Wizard* wizard = new Fl_Wizard(x,y,w,h);- return (fl_Wizard)wizard;- }- FL_EXPORT_C(fl_Wizard, Fl_Wizard_New_WithLabel)(int x, int y, int w, int h, const char* t){- Fl_Wizard* wizard = new Fl_Wizard(x,y,w,h,t);- return (fl_Wizard)wizard;- } FL_EXPORT_C(void, Fl_Wizard_Destroy)(fl_Wizard wizard){ delete (static_cast<Fl_Wizard*>(wizard)); }@@ -351,6 +436,55 @@ FL_EXPORT_C(void,Fl_Wizard_set_value)(fl_Wizard wizard,fl_Widget w){ (static_cast<Fl_Wizard*>(wizard))->value((static_cast<Fl_Widget*>(w))); }+ FL_EXPORT_C(fl_Wizard, Fl_Wizard_New)(int X, int Y, int W, int H){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedWizard* w = new Fl_DerivedWizard(X,Y,W,H,fs);+ return (fl_Wizard)w;+ }+ FL_EXPORT_C(fl_Wizard, Fl_Wizard_New_WithLabel)(int X, int Y, int W, int H, const char* label){+ fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();+ Fl_DerivedWizard* w = new Fl_DerivedWizard(X,Y,W,H,label,fs);+ return (fl_Wizard)w;+ }+ FL_EXPORT_C(fl_Wizard, Fl_OverriddenWizard_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedWizard* w = new Fl_DerivedWizard(X,Y,W,H,fs);+ return (fl_Wizard)w;+ }+ FL_EXPORT_C(fl_Wizard, Fl_OverriddenWizard_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){+ Fl_DerivedWizard* w = new Fl_DerivedWizard(X,Y,W,H,label,fs);+ return (fl_Wizard)w;+ }+ FL_EXPORT_C(void, Fl_Wizard_draw)(fl_Wizard o){+ (static_cast<Fl_DerivedWizard*>(o))->draw();+ }+ FL_EXPORT_C(void, Fl_Wizard_draw_super)(fl_Wizard o){+ (static_cast<Fl_DerivedWizard*>(o))->draw_super();+ }+ FL_EXPORT_C(int, Fl_Wizard_handle)(fl_Wizard o, int event){+ return (static_cast<Fl_DerivedWizard*>(o))->handle(event);+ }+ FL_EXPORT_C(int, Fl_Wizard_handle_super)(fl_Wizard o, int event){+ return (static_cast<Fl_DerivedWizard*>(o))->handle_super(event);+ }+ FL_EXPORT_C(void, Fl_Wizard_resize)(fl_Wizard o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedWizard*>(o))->resize(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Wizard_resize_super)(fl_Wizard o, int x, int y, int w, int h){+ (static_cast<Fl_DerivedWizard*>(o))->resize_super(x,y,w,h);+ }+ FL_EXPORT_C(void, Fl_Wizard_show)(fl_Wizard o){+ (static_cast<Fl_DerivedWizard*>(o))->show();+ }+ FL_EXPORT_C(void, Fl_Wizard_show_super)(fl_Wizard o){+ (static_cast<Fl_DerivedWizard*>(o))->show_super();+ }+ FL_EXPORT_C(void, Fl_Wizard_hide)(fl_Wizard o){+ (static_cast<Fl_DerivedWizard*>(o))->hide();+ }+ FL_EXPORT_C(void, Fl_Wizard_hide_super)(fl_Wizard o){+ (static_cast<Fl_DerivedWizard*>(o))->hide_super();+ }+ #ifdef __cplusplus } #endif
c-src/Fl_WizardC.h view
@@ -7,7 +7,27 @@ #include "FL/Fl.H" #include "FL/Fl_Wizard.H" #include "Fl_CallbackC.h"+#include "Fl_WidgetC.h" EXPORT {+ class Fl_DerivedWizard : public Fl_Wizard {+ fl_Widget_Virtual_Funcs* overriddenFuncs;+ void* other_data;+ public:+ virtual void draw();+ void draw_super();+ virtual int handle(int event);+ int handle_super(int event);+ virtual void resize(int x, int y, int w, int h);+ void resize_super(int x, int y, int w, int h);+ virtual void show();+ void show_super();+ virtual void hide();+ void hide_super();+ 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();+ };+ #endif /* Inherited from Fl_Widget */ FL_EXPORT_C(int, Fl_Wizard_handle)(fl_Wizard wizard, int event);@@ -133,6 +153,19 @@ FL_EXPORT_C(fl_Wizard, Fl_Wizard_New)(int x, int y, int w, int h); FL_EXPORT_C(fl_Wizard, Fl_Wizard_New_WithLabel)(int x, int y, int w, int h, const char* t); FL_EXPORT_C(void, Fl_Wizard_Destroy)(fl_Wizard wizard);+ FL_EXPORT_C(fl_Wizard, Fl_OverriddenWizard_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(fl_Wizard, Fl_OverriddenWizard_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);+ FL_EXPORT_C(void, Fl_Wizard_draw)(fl_Wizard o);+ FL_EXPORT_C(void, Fl_Wizard_draw_super)(fl_Wizard o);+ FL_EXPORT_C(int, Fl_Wizard_handle)(fl_Wizard o, int event);+ FL_EXPORT_C(int, Fl_Wizard_handle_super)(fl_Wizard o, int event);+ FL_EXPORT_C(void, Fl_Wizard_resize)(fl_Wizard o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Wizard_resize_super)(fl_Wizard o, int x, int y, int w, int h);+ FL_EXPORT_C(void, Fl_Wizard_show)(fl_Wizard o);+ FL_EXPORT_C(void, Fl_Wizard_show_super)(fl_Wizard o);+ FL_EXPORT_C(void, Fl_Wizard_hide)(fl_Wizard o);+ FL_EXPORT_C(void, Fl_Wizard_hide_super)(fl_Wizard o);+ #ifdef __cplusplus } #endif
c-src/Makefile.in view
@@ -20,6 +20,7 @@ fl_utf8C.cpp \ glC.cpp \ glutC.cpp \+ Fl_CallbackC.cpp \ DerivedText_Editor.cpp \ DerivedShared_Image.cpp \ filenameC.cpp \@@ -28,7 +29,6 @@ Fl_BoxC.cpp \ Fl_BrowserC.cpp \ Fl_ButtonC.cpp \- Fl_CallbackC.cpp \ Fl_C.cpp \ Fl_Check_ButtonC.cpp \ Fl_ChoiceC.cpp \
fltkhs.cabal view
@@ -1,5 +1,5 @@ name : fltkhs-version : 0.5.1.1+version : 0.5.1.2 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.
+ scripts/skeletons.el view
@@ -0,0 +1,458 @@+(define-skeleton widget-subclass+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > "class Fl_Derived" v1 " : public Fl_" v1 " {"+ ?\n+ > " fl_Widget_Virtual_Funcs* overriddenFuncs;"+ ?\n+ > " void* other_data;"+ ?\n+ > "public:"+ ?\n+ > " virtual void draw();"+ ?\n+ > " void draw_super();"+ ?\n+ > " virtual int handle(int event);"+ ?\n+ > " int handle_super(int event);"+ ?\n+ > " virtual void resize(int x, int y, int w, int h);"+ ?\n+ > " void resize_super(int x, int y, int w, int h);"+ ?\n+ > " virtual void show();"+ ?\n+ > " void show_super();"+ ?\n+ > " virtual void hide();"+ ?\n+ > " void hide_super();"+ ?\n+ > " Fl_Derived" v1 "(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);"+ ?\n+ > " Fl_Derived" v1 "(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);"+ ?\n+ > " ~Fl_Derived" v1 "();"+ ?\n+ > "};"+ ?\n+ )++(define-skeleton widget-methods+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > "Fl_Derived" v1 "::Fl_Derived" v1 "(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_" v1 "(X,Y,W,H,l){" ?\n+ > " overriddenFuncs = funcs;" ?\n+ > " other_data = (void*)0;" ?\n+ > "}" ?\n+ > "Fl_Derived" v1 "::Fl_Derived" v1 "(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_" v1 "(X,Y,W,H){" ?\n+ > " overriddenFuncs = funcs;" ?\n+ > " other_data = (void*)0;" ?\n+ > "}" ?\n+ > "Fl_Derived" v1 "::~Fl_Derived" v1 "(){" ?\n+ > " free(overriddenFuncs);" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::draw(){" ?\n+ > " if (this->overriddenFuncs->draw != NULL) {" ?\n+ > " this->overriddenFuncs->draw((fl_" v1 ") this);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::draw();" ?\n+ > " }" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::draw_super(){" ?\n+ > " Fl_" v1 "::draw();" ?\n+ > "}" ?\n+ > "" ?\n+ > "int Fl_Derived" v1 "::handle(int event){" ?\n+ > " int i;" ?\n+ > " if (this->overriddenFuncs->handle != NULL) {" ?\n+ > " i = this->overriddenFuncs->handle((fl_" v1 ") this,event);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " i = Fl_" v1 "::handle(event);" ?\n+ > " }" ?\n+ > " return i;" ?\n+ > "}" ?\n+ > "int Fl_Derived" v1 "::handle_super(int event){" ?\n+ > " return Fl_" v1 "::handle(event);" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::resize(int x, int y, int w, int h){" ?\n+ > " if (this->overriddenFuncs->resize != NULL) {" ?\n+ > " this->overriddenFuncs->resize((fl_" v1 ") this,x,y,w,h);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::resize(x,y,w,h);" ?\n+ > " }" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::resize_super(int x, int y, int w, int h){" ?\n+ > " Fl_" v1 "::resize(x,y,w,h);" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::show(){" ?\n+ > " if (this->overriddenFuncs->show != NULL) {" ?\n+ > " this->overriddenFuncs->show((fl_" v1 ") this);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::show();" ?\n+ > " }" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::show_super(){" ?\n+ > " Fl_" v1 "::show();" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::hide(){" ?\n+ > " if (this->overriddenFuncs->hide != NULL) {" ?\n+ > " this->overriddenFuncs->hide((fl_" v1 ") this);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::hide();" ?\n+ > " }" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::hide_super(){" ?\n+ > " Fl_" v1 "::hide();" ?\n+ > "}" ?\n+ > "" ?\n+ )++(define-skeleton group-subclass+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > "class Fl_Derived" v1 " : public Fl_" v1 " {"+ ?\n+ > " fl_Widget_Virtual_Funcs* overriddenFuncs;"+ ?\n+ > " void* other_data;"+ ?\n+ > "public:"+ ?\n+ > " virtual void draw();"+ ?\n+ > " void draw_super();"+ ?\n+ > " virtual int handle(int event);"+ ?\n+ > " int handle_super(int event);"+ ?\n+ > " virtual void resize(int x, int y, int w, int h);"+ ?\n+ > " void resize_super(int x, int y, int w, int h);"+ ?\n+ > " virtual void show();"+ ?\n+ > " void show_super();"+ ?\n+ > " virtual void hide();"+ ?\n+ > " void hide_super();"+ ?\n+ > " void draw_child(Fl_Widget* widget);"+ ?\n+ > " void draw_children();"+ ?\n+ > " void draw_outside_label(Fl_Widget* widget);"+ ?\n+ > " void update_child(Fl_Widget* widget);"+ ?\n+ > " Fl_Derived" v1 "(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs);"+ ?\n+ > " Fl_Derived" v1 "(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs);"+ ?\n+ > " ~Fl_Derived" v1 "();"+ ?\n+ > "};"+ ?\n+ )++(define-skeleton group-methods+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > "Fl_Derived" v1 "::Fl_Derived" v1 "(int X, int Y, int W, int H, const char *l, fl_Widget_Virtual_Funcs* funcs) : Fl_" v1 "(X,Y,W,H,l){" ?\n+ > " overriddenFuncs = funcs;" ?\n+ > " other_data = (void*)0;" ?\n+ > "}" ?\n+ > "Fl_Derived" v1 "::Fl_Derived" v1 "(int X, int Y, int W, int H, fl_Widget_Virtual_Funcs* funcs):Fl_" v1 "(X,Y,W,H){" ?\n+ > " overriddenFuncs = funcs;" ?\n+ > " other_data = (void*)0;" ?\n+ > "}" ?\n+ > "Fl_Derived" v1 "::~Fl_Derived" v1 "(){" ?\n+ > " free(overriddenFuncs);" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::draw(){" ?\n+ > " if (this->overriddenFuncs->draw != NULL) {" ?\n+ > " this->overriddenFuncs->draw((fl_" v1 ") this);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::draw();" ?\n+ > " }" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::draw_super(){" ?\n+ > " Fl_" v1 "::draw();" ?\n+ > "}" ?\n+ > "" ?\n+ > "int Fl_Derived" v1 "::handle(int event){" ?\n+ > " int i;" ?\n+ > " if (this->overriddenFuncs->handle != NULL) {" ?\n+ > " i = this->overriddenFuncs->handle((fl_" v1 ") this,event);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " i = Fl_" v1 "::handle(event);" ?\n+ > " }" ?\n+ > " return i;" ?\n+ > "}" ?\n+ > "int Fl_Derived" v1 "::handle_super(int event){" ?\n+ > " return Fl_" v1 "::handle(event);" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::resize(int x, int y, int w, int h){" ?\n+ > " if (this->overriddenFuncs->resize != NULL) {" ?\n+ > " this->overriddenFuncs->resize((fl_" v1 ") this,x,y,w,h);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::resize(x,y,w,h);" ?\n+ > " }" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::resize_super(int x, int y, int w, int h){" ?\n+ > " Fl_" v1 "::resize(x,y,w,h);" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::show(){" ?\n+ > " if (this->overriddenFuncs->show != NULL) {" ?\n+ > " this->overriddenFuncs->show((fl_" v1 ") this);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::show();" ?\n+ > " }" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::show_super(){" ?\n+ > " Fl_" v1 "::show();" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::hide(){" ?\n+ > " if (this->overriddenFuncs->hide != NULL) {" ?\n+ > " this->overriddenFuncs->hide((fl_" v1 ") this);" ?\n+ > " }" ?\n+ > " else {" ?\n+ > " Fl_" v1 "::hide();" ?\n+ > " }" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::hide_super(){" ?\n+ > " Fl_" v1 "::hide();" ?\n+ > "}" ?\n+ > "" ?\n+ > "void Fl_Derived" v1 "::draw_child(Fl_Widget* widget){" ?\n+ > " Fl_" v1 "::draw_child(*widget);" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::draw_children(){" ?\n+ > " Fl_" v1 "::draw_children();" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::draw_outside_label(Fl_Widget* widget){" ?\n+ > " Fl_" v1 "::draw_outside_label(*widget);" ?\n+ > "}" ?\n+ > "void Fl_Derived" v1 "::update_child(Fl_Widget* widget){" ?\n+ > " Fl_" v1 "::update_child(*widget);" ?\n+ > "}" ?\n+ )++(define-skeleton new-subclass+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > " FL_EXPORT_C(fl_" v1 ", Fl_" v1 "_New)(int X, int Y, int W, int H){" ?\n+ > " fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();" ?\n+ > " Fl_Derived" v1 "* w = new Fl_Derived" v1 "(X,Y,W,H,fs);" ?\n+ > " return (fl_" v1 ")w;" ?\n+ > " }" ?\n+ > " FL_EXPORT_C(fl_" v1 ", Fl_" v1 "_New_WithLabel)(int X, int Y, int W, int H, const char* label){" ?\n+ > " fl_Widget_Virtual_Funcs* fs = Fl_Widget_default_virtual_funcs();" ?\n+ > " Fl_Derived" v1 "* w = new Fl_Derived" v1 "(X,Y,W,H,label,fs);" ?\n+ > " return (fl_" v1 ")w;" ?\n+ > " }" ?\n+ > " FL_EXPORT_C(fl_" v1 ", Fl_Overridden" v1 "_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs){" ?\n+ > " Fl_Derived" v1 "* w = new Fl_Derived" v1 "(X,Y,W,H,fs);" ?\n+ > " return (fl_" v1 ")w;" ?\n+ > " }" ?\n+ > " FL_EXPORT_C(fl_" v1 ", Fl_Overridden" v1 "_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs){" ?\n+ > " Fl_Derived" v1 "* w = new Fl_Derived" v1 "(X,Y,W,H,label,fs);" ?\n+ > " return (fl_" v1 ")w;" ?\n+ > " }" ?\n+ )++(define-skeleton widget-methods-c+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > (format "FL_EXPORT_C(void, Fl_%s_draw)(fl_%s o){+ (static_cast<Fl_Derived%s*>(o))->draw();+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_draw_super)(fl_%s o){+ (static_cast<Fl_Derived%s*>(o))->draw_super();+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(int, Fl_%s_handle)(fl_%s o, int event){+ return (static_cast<Fl_Derived%s*>(o))->handle(event);+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(int, Fl_%s_handle_super)(fl_%s o, int event){+ return (static_cast<Fl_Derived%s*>(o))->handle_super(event);+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_resize)(fl_%s o, int x, int y, int w, int h){+ (static_cast<Fl_Derived%s*>(o))->resize(x,y,w,h);+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_resize_super)(fl_%s o, int x, int y, int w, int h){+ (static_cast<Fl_Derived%s*>(o))->resize_super(x,y,w,h);+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_show)(fl_%s o){+ (static_cast<Fl_Derived%s*>(o))->show();+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_show_super)(fl_%s o){+ (static_cast<Fl_Derived%s*>(o))->show_super();+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_hide)(fl_%s o){+ (static_cast<Fl_Derived%s*>(o))->hide();+ }" v1 v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_hide_super)(fl_%s o){+ (static_cast<Fl_Derived%s*>(o))->hide_super();+ }" v1 v1 v1)+ ?\n+ )++(define-skeleton widget-methods-c-sigs+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > (format "FL_EXPORT_C(fl_%s, Fl_Overridden%s_New)(int X, int Y, int W, int H,fl_Widget_Virtual_Funcs* fs);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(fl_%s, Fl_Overridden%s_New_WithLabel)(int X, int Y, int W, int H, const char* label, fl_Widget_Virtual_Funcs* fs);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_draw)(fl_%s o);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_draw_super)(fl_%s o);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(int, Fl_%s_handle)(fl_%s o, int event);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(int, Fl_%s_handle_super)(fl_%s o, int event);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_resize)(fl_%s o, int x, int y, int w, int h);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_resize_super)(fl_%s o, int x, int y, int w, int h);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_show)(fl_%s o);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_show_super)(fl_%s o);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_hide)(fl_%s o);" v1 v1)+ ?\n+ > (format "FL_EXPORT_C(void, Fl_%s_hide_super)(fl_%s o);" v1 v1)+ ?\n+ )++(define-skeleton haskell-custom+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ > (format "{# fun Fl_Overridden%s_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', id `Ptr ()'} -> `Ptr ()' id #}" (capitalize v1))+ ?\n+ > (format "{# fun Fl_Overridden%s_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}" (capitalize v1))+ ?\n+ > (format "%sCustom ::+ Rectangle -- ^ The bounds of this %s+ -> Maybe T.Text -- ^ The %s label+ -> Maybe (Ref %s -> IO ()) -- ^ Optional custom drawing function+ -> Maybe (CustomWidgetFuncs %s) -- ^ Optional custom widget functions+ -> IO (Ref %s)+%sCustom rectangle l' draw' funcs' =+ widgetMaker+ rectangle+ l'+ draw'+ funcs'+ overriddenWidgetNew'+ overriddenWidgetNewWithLabel'+" (s-lower-camel-case v1) (s-upper-camel-case v1) (s-upper-camel-case v1) (s-upper-camel-case v1) (s-upper-camel-case v1) (s-upper-camel-case v1) (s-lower-camel-case v1))+ ?\n+ )+++(defun custom-instances-list (class)+ (let (+ (draw (format "{# fun Fl_%s_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Draw ()) %s orig impl where+ runOp _ _ %s = withRef %s $ \\%sPtr -> draw'' %sPtr" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (draw-super (format "{# fun Fl_%s_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (DrawSuper ()) %s orig impl where+ runOp _ _ %s = withRef %s $ \\%sPtr -> drawSuper' %sPtr" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (handle (format "{#fun Fl_%s_handle as %sHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) %s orig impl where+ runOp _ _ %s event = withRef %s (\\p -> %sHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent" class (s-lower-camel-case class) (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (handle-super (format "{# fun Fl_%s_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (HandleSuper ()) %s orig impl where+ runOp _ _ %s event = withRef %s $ \\%sPtr -> handleSuper' %sPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (resize (format "{# fun Fl_%s_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) %s orig impl where+ runOp _ _ %s rectangle = withRef %s $ \\%sPtr -> do+ let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+ resize' %sPtr x_pos y_pos w_pos h_pos" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (resize-super (format "{# fun Fl_%s_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) %s orig impl where+ runOp _ _ %s rectangle =+ let (x_pos, y_pos, width, height) = fromRectangle rectangle+ in withRef %s $ \\%sPtr -> resizeSuper' %sPtr x_pos y_pos width height" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (hide (format "{# fun Fl_%s_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Hide ()) %s orig impl where+ runOp _ _ %s = withRef %s $ \\%sPtr -> hide' %sPtr" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (hide-super (format "{# fun Fl_%s_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (HideSuper ()) %s orig impl where+ runOp _ _ %s = withRef %s $ \\%sPtr -> hideSuper' %sPtr" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (show (format "{# fun Fl_%s_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (ShowWidget ()) %s orig impl where+ runOp _ _ %s = withRef %s $ \\%sPtr -> show' %sPtr" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ (show-super (format "{# fun Fl_%s_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) %s orig impl where+ runOp _ _ %s = withRef %s $ \\%sPtr -> showSuper' %sPtr" class (s-upper-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class) (s-lower-camel-case class)))+ )+ (list draw draw-super handle handle-super resize resize-super hide hide-super show show-super))+ )++(define-skeleton custom-instances+ ""+ nil+ '(setq v1 (skeleton-read "class:"))+ '(setq v2 (custom-instances-list v1))+ > (format "%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n" (nth 0 v2) (nth 1 v2) (nth 2 v2) (nth 3 v2) (nth 4 v2) (nth 5 v2) (nth 6 v2) (nth 7 v2) (nth 8 v2) (nth 9 v2))+ )++(define-skeleton custom-datatype+ ""+ nil+ > (format "%s" "(Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper")+ )++(define-skeleton imports+ ""+ nil+ > (format "%s" "import Graphics.UI.FLTK.LowLevel.Fl_Enumerations+import Graphics.UI.FLTK.LowLevel.Widget+"))
src/Graphics/UI/FLTK/LowLevel/Adjuster.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor adjusterNew,+ adjusterCustom, -- * Hierarchy -- -- $hierarchy@@ -22,7 +23,27 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} adjusterNew :: Rectangle -> Maybe T.Text -> IO (Ref Adjuster)@@ -48,6 +69,41 @@ instance (impl ~ (Int -> IO ())) => Op (SetSoft ()) Adjuster orig impl where runOp _ _ adjuster soft = withRef adjuster $ \adjusterPtr -> setSoft' adjusterPtr soft +{# 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"@@ -64,7 +120,27 @@ -- @ -- destroy :: 'Ref' 'Adjuster' -> 'IO' () ----- getSoft :: 'Ref' 'Adjuster' -> 'IO' 'Int'+-- draw :: 'Ref' 'Adjuster' -> 'IO' () --+-- drawSuper :: 'Ref' 'Adjuster' -> 'IO' ()+--+-- getSoft :: 'Ref' 'Adjuster' -> 'IO' ('Int')+--+-- 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' -> 'Int' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Adjuster' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Adjuster' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/CheckButton.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.CheckButton (- checkButtonNew+ checkButtonNew,+ checkButtonCustom, -- * Hierarchy -- -- $hierarchy@@ -21,7 +22,27 @@ 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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} checkButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref CheckButton)@@ -37,11 +58,66 @@ \buttonPtr -> widgetDestroy' buttonPtr >> return nullPtr+{# fun Fl_Check_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' #}+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 #}+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 ()' } -> `()' #}+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 -- $CheckButtonfunctions -- -- @ -- destroy :: 'Ref' 'CheckButton' -> 'IO' ()+--+-- 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 -- @
src/Graphics/UI/FLTK/LowLevel/Choice.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.Choice ( -- * Constructor- choiceNew+ choiceNew,+ choiceCustom -- * Hierarchy -- -- $hierarchy@@ -25,7 +26,26 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} choiceNew :: Rectangle -> Maybe T.Text -> IO (Ref Choice)@@ -58,17 +78,66 @@ {#fun Fl_Choice_handle as menu_Handle' { 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+{# 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 -- -- @ -- destroy :: 'Ref' 'Choice' -> 'IO' () --+-- draw :: 'Ref' 'Choice' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'Choice' -> 'IO' ()+-- -- getValue :: 'Ref' 'Choice' -> 'IO' ('MenuItemIndex') -- -- 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' ('Int')+--+-- showWidget :: 'Ref' 'Choice' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Choice' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/Clock.chs view
@@ -5,6 +5,7 @@ ClockType(..), clockNew, clockNewWithType,+ clockCustom, Hour(..), Minute(..), Second(..),@@ -31,6 +32,8 @@ 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,@@ -46,6 +49,26 @@ data ClockByTime = ClockByTime Hour Minute Second data ClockSinceEpoch = ClockSinceEpoch Second data ClockSetTimeType = ClockSetByTime ClockByTime | ClockSetSinceEpoch ClockSinceEpoch++{# fun Fl_OverriddenClock_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} {# fun Fl_Clock_New_WithClockType as clockNewWithClockType' { id `CUChar', `Int',`Int',`Int',`Int', unsafeToCString `T.Text'} -> `Ptr ()' id #}@@ -86,10 +109,6 @@ second' <- clockSecond' clockPtr return $ ClockByTime (Hour hour') (Minute minute') (Second second') -{#fun Fl_Clock_handle as menu_Handle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Clock orig impl where- runOp _ _ menu_ event = withRef menu_ (\p -> menu_Handle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent- {# 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''))@@ -97,6 +116,40 @@ {# 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_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 -- $Clockfunctions --@@ -109,6 +162,26 @@ -- handle :: 'Ref' 'Clock' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ())) -- -- setValue :: 'Ref' 'Clock' -> 'ClockSetTimeType' -> 'IO' ()+--+-- draw :: 'Ref' 'Clock' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'Clock' -> 'IO' ()+--+-- 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' ()+--+-- showWidget :: 'Ref' 'Clock' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Clock' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/ColorChooser.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor colorChooserNew,+ colorChooserCustom, rgb2Hsv, hsv2Rgb, flcColorChooser@@ -20,6 +21,7 @@ #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_Types import Graphics.UI.FLTK.LowLevel.Utils@@ -27,7 +29,26 @@ import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T import Data.List+import Graphics.UI.FLTK.LowLevel.Fl_Enumerations +{# fun Fl_OverriddenColor_Chooser_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenColor_Chooser_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', 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 (CustomWidgetFuncs ColorChooser) -- ^ Optional custom widget functions+ -> IO (Ref ColorChooser)+colorChooserCustom rectangle l' draw' funcs' =+ widgetMaker+ rectangle+ l'+ draw'+ funcs'+ overriddenWidgetNew'+ overriddenWidgetNewWithLabel'++ {# 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} colorChooserNew :: Rectangle -> Maybe T.Text -> IO (Ref ColorChooser)@@ -110,6 +131,42 @@ 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 ()) 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'') =@@ -195,6 +252,10 @@ -- $functions -- @+-- draw :: 'Ref' 'ColorChooser' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'ColorChooser' -> 'IO' ()+-- -- getB :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1') -- -- getG :: 'Ref' 'ColorChooser' -> 'IO' ('Either' 'OutOfRange' 'Between0And1')@@ -209,10 +270,26 @@ -- -- 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' () -- -- setRgb :: 'Ref' 'ColorChooser' -> ('Between0And1', 'Between0And1', 'Between0And1') -> 'IO' ('Either' 'NoChange' ())--- @ --+-- showWidget :: 'Ref' 'ColorChooser' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'ColorChooser' -> 'IO' ()+--+-- @
src/Graphics/UI/FLTK/LowLevel/Counter.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor counterNew,+ counterCustom, CounterType(..) -- * Hierarchy --@@ -26,6 +27,8 @@ 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,@@ -33,6 +36,25 @@ }; #endc {#enum CounterType {} deriving (Show, Eq) #}++{# fun Fl_OverriddenCounter_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} counterNew :: Rectangle -> Maybe T.Text -> IO (Ref Counter)@@ -50,9 +72,6 @@ counterDestroy' winPtr return nullPtr -{#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_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@@ -80,20 +99,70 @@ {# 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 -- -- @ -- destroy :: 'Ref' 'Counter' -> 'IO' () ----- getTextcolor :: 'Ref' 'Counter' -> 'IO' 'Color'+-- draw :: 'Ref' 'Counter' -> 'IO' () ----- getTextfont :: 'Ref' 'Counter' -> 'IO' 'Font'+-- drawSuper :: 'Ref' 'Counter' -> 'IO' () ----- getTextsize :: 'Ref' 'Counter' -> 'IO' 'FontSize'+-- getTextcolor :: 'Ref' 'Counter' -> 'IO' ('Color') ----- handle :: 'Ref' 'Counter' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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' ()@@ -101,6 +170,12 @@ -- setTextfont :: 'Ref' 'Counter' -> 'Font' -> 'IO' () -- -- setTextsize :: 'Ref' 'Counter' -> 'FontSize' -> 'IO' ()+--+-- setType :: 'Ref' 'Counter' -> 'CounterType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Counter' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Counter' -> 'IO' () -- -- @
src/Graphics/UI/FLTK/LowLevel/Dial.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor dialNew,+ dialCustom, DialType(..) -- * Hierarchy --@@ -25,6 +26,8 @@ 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,@@ -33,6 +36,24 @@ }; #endc {#enum DialType {} deriving (Show, Eq) #}++{# fun Fl_OverriddenDial_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} dialNew :: Rectangle -> Maybe T.Text -> IO (Ref Dial)@@ -62,9 +83,6 @@ {# 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-{#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 instance (impl ~ ( Angle -> Angle -> IO ())) => Op (SetAngles ()) Dial orig impl where runOp _ _ dial a1' a2' = do setAngle1 dial a1'@@ -75,23 +93,79 @@ {# 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 -- $Dialfunctions -- -- @ -- destroy :: 'Ref' 'Dial' -> 'IO' () ----- getAngle1 :: 'Ref' 'Dial' -> 'IO' 'Angle'+-- draw :: 'Ref' 'Dial' -> 'IO' () ----- getAngle2 :: 'Ref' 'Dial' -> 'IO' 'Angle'+-- drawSuper :: 'Ref' 'Dial' -> 'IO' () ----- handle :: 'Ref' 'Dial' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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
src/Graphics/UI/FLTK/LowLevel/FileBrowser.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor fileBrowserNew,+ fileBrowserCustom, FileBrowserType(..), FileSortF, numericSort,@@ -32,7 +33,28 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} fileBrowserNew :: Rectangle -> Maybe T.Text -> IO (Ref FileBrowser)@@ -74,6 +96,42 @@ status <- load' widgetPtr dir sortF return (if (status == 0) then (Left UnknownError) else (Right ())) +{# 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' #}@@ -95,6 +153,10 @@ -- $FileBrowserFunctions -- @+-- draw :: 'Ref' 'FileBrowser' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'FileBrowser' -> 'IO' ()+-- -- getFiletype :: 'Ref' 'FileBrowser' -> 'IO' ('FileBrowserType') -- -- getFilter :: 'Ref' 'FileBrowser' -> 'IO' 'T.Text'@@ -103,8 +165,20 @@ -- -- 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' ()@@ -112,4 +186,8 @@ -- 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
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.FileInput (- fileInputNew+ fileInputNew,+ fileInputCustom -- * Hierarchy -- -- $hierarchy@@ -22,7 +23,26 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} fileInputNew :: Rectangle -> Maybe T.Text -> IO (Ref FileInput)@@ -52,7 +72,40 @@ {# fun Fl_File_Input_value as getValue' { id `Ptr ()' } -> `T.Text' unsafeFromCString #} instance (impl ~ (IO T.Text)) => Op (GetValue ()) FileInput orig impl where runOp _ _ fileInput = withRef fileInput $ \fileInputPtr -> getValue' fileInputPtr-+{# 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 -- $hierarchy -- @ -- "Graphics.UI.FLTK.LowLevel.Widget"@@ -66,15 +119,35 @@ -- $functions -- @+-- 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/Group.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor groupNew,+ groupCustom, groupSetCurrent, groupCurrent, -- * Hierarchy@@ -25,6 +26,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 {# fun Fl_Group_set_current as groupSetCurrent' { id `Ptr ()' } -> `()' #} {# fun Fl_Group_current as groupCurrent' {} -> `Ptr ()' id #}@@ -43,6 +45,12 @@ in case label' of (Just l') -> groupNewWithLabel' x_pos y_pos width height l' >>= toRef Nothing -> groupNew' x_pos y_pos width height >>= toRef++{# fun Fl_OverriddenGroup_New_WithLabel as overriddenGroupNewWithLabel' { `Int',`Int',`Int',`Int',unsafeToCString `T.Text', 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
src/Graphics/UI/FLTK/LowLevel/Hierarchy.hs view
@@ -2018,7 +2018,17 @@ data CLightButton parent type LightButtonFuncs =- (Destroy ())+ (Destroy+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))+ type LightButton = CLightButton Button type instance Functions LightButton = LightButtonFuncs@@ -2030,7 +2040,15 @@ data CCheckButton parent type CheckButtonFuncs =- (Destroy ())+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ (Destroy ()))))))))) type CheckButton = CCheckButton Button type instance Functions CheckButton = CheckButtonFuncs@@ -2039,14 +2057,31 @@ type ReturnButton = CReturnButton Button type ReturnButtonFuncs = (Destroy- (Handle ()))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))) type instance Functions ReturnButton = ReturnButtonFuncs data CRoundButton parent type RoundButton = CRoundButton Button type RoundButtonFuncs =- (Destroy ())+ (Destroy+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))) type instance Functions RoundButton = RoundButtonFuncs @@ -2054,9 +2089,16 @@ type RepeatButton = CRepeatButton Button type RepeatButtonFuncs = (Destroy- (Handle (Deactivate- ())))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))) type instance Functions RepeatButton = RepeatButtonFuncs @@ -2117,7 +2159,6 @@ type Slider = CSlider Valuator type SliderFuncs = (Destroy- (Handle (Bounds (Scrollvalue (SetSliderSize@@ -2125,7 +2166,16 @@ (GetSlider (SetSlider (SetType- (GetType_ ()))))))))))+ (GetType_+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))) type instance Functions Slider = SliderFuncs @@ -2325,8 +2375,15 @@ type MenuBar = CMenuBar MenuPrim type MenuBarFuncs = (Destroy+ (Draw+ (DrawSuper (Handle- ()))+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))) type instance Functions MenuBar = MenuBarFuncs @@ -2344,11 +2401,18 @@ (SetMode (GetMode (SetShortcut- (Handle (Add (AddName (Insert- ())))))))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))))))))))) type instance Functions SysMenuBar = SysMenuBarFuncs @@ -2359,7 +2423,14 @@ (Handle (GetValue (SetValue- ()))))+ (Draw+ (DrawSuper+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))) type instance Functions Choice = ChoiceFuncs @@ -2368,9 +2439,16 @@ type MenuButton = CMenuButton MenuPrim type MenuButtonFuncs = (Destroy+ (Draw+ (DrawSuper (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper (Popup- ())))+ ())))))))))) type instance Functions MenuButton = MenuButtonFuncs @@ -2484,7 +2562,15 @@ (Destroy (SetSoft (GetSoft- ())))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))) type instance Functions Adjuster = AdjusterFuncs @@ -2496,14 +2582,22 @@ type Dial = CDial Valuator type DialFuncs = (Destroy- (GetAngle1- (SetAngle1- (GetAngle2- (SetAngle2- (SetAngles- (SetType- (GetType_- ()))))))))+ (GetAngle1+ (SetAngle1+ (GetAngle2+ (SetAngle2+ (SetAngles+ (SetType+ (GetType_+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))))) type instance Functions Dial = DialFuncs @@ -2527,8 +2621,15 @@ type Roller = CRoller Valuator type RollerFuncs = (Destroy+ (Draw+ (DrawSuper (Handle- ()))+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))) type instance Functions Roller = RollerFuncs @@ -2546,7 +2647,14 @@ (GetTextcolor (SetType (GetType_- ())))))))))))+ (Draw+ (DrawSuper+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))))))) type instance Functions Counter = CounterFuncs @@ -2560,13 +2668,21 @@ data CScrollbar parent type Scrollbar = CScrollbar Slider type ScrollbarFuncs =- (Destroy+ (Destroy (SetScrollValue- (Handle (SetLinesize (GetLinesize (SetType- (GetType_ ())))))))+ (GetType_+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))) type instance Functions Scrollbar = ScrollbarFuncs @@ -2578,14 +2694,21 @@ type ValueSlider = CValueSlider Slider type ValueSliderFuncs = (Destroy- (Handle (GetTextfont (SetTextfont (GetTextsize (SetTextsize (GetTextcolor (SetTextcolor- ()))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))) type instance Functions ValueSlider = ValueSliderFuncs @@ -2598,7 +2721,6 @@ type Input = CInput Widget type InputFuncs = (Destroy- (Handle (SetType (SetValue (StaticValue@@ -2639,7 +2761,15 @@ (SetWrap (GetTabNav (SetTabNav- ()))))))))))))))))))))))))))))))))))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))))))))))))))))))))))))))))))))))) type instance Functions Input = InputFuncs @@ -2671,7 +2801,16 @@ data COutput parent type Output = COutput Input type OutputFuncs =- (SetType ())+ (SetType+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))) type instance Functions Output = OutputFuncs @@ -2679,7 +2818,6 @@ type ValueInput = CValueInput Valuator type ValueInputFuncs = (Destroy- (Handle (GetSoft (SetSoft (GetShortcut@@ -2690,7 +2828,15 @@ (GetTextsize (SetTextcolor (GetTextcolor- ()))))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))))) type instance Functions ValueInput = ValueInputFuncs @@ -2698,7 +2844,6 @@ type ValueOutput = CValueOutput Valuator type ValueOutputFuncs = (Destroy- (Handle (GetSoft (SetSoft (SetTextfont@@ -2707,7 +2852,15 @@ (GetTextsize (SetTextcolor (GetTextcolor- ()))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))) type instance Functions ValueOutput = ValueOutputFuncs @@ -2715,14 +2868,21 @@ type Timer = CTimer Widget type TimerFuncs = (Destroy- (Handle (GetDirection (SetDirection (GetValue (SetValue (GetSuspended (SetSuspended- ()))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))) type instance Functions Timer = TimerFuncs @@ -2751,7 +2911,15 @@ (GetMinimum (SetValue (GetValue- ())))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))) type instance Functions Progress = ProgressFuncs @@ -2759,7 +2927,6 @@ type Positioner = CPositioner Widget type PositionerFuncs = (Destroy- (Handle (SetXvalue (GetXvalue (SetYvalue@@ -2776,7 +2943,15 @@ (SetYbounds (SetXstep (SetYstep- ()))))))))))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))))))))))) type instance Functions Positioner = PositionerFuncs @@ -2805,7 +2980,15 @@ (Prev (SetValue (GetValue- ())))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))) type instance Functions Wizard = WizardFuncs @@ -3147,7 +3330,14 @@ (SetValue (SetType (GetType_- ()))))))+ (Draw+ (DrawSuper+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))) type instance Functions Clock = ClockFuncs@@ -3389,8 +3579,6 @@ type Tree = CTree Group type TreeFuncs = (Destroy- (Handle- (Draw (ShowSelf (RootLabel (Root@@ -3498,7 +3686,15 @@ (GetCallbackItem (SetCallbackReason (GetCallbackReason- ()))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) type instance Functions Tree = TreeFuncs@@ -3825,7 +4021,15 @@ (GetInsertMode (GetDefaultKeyBindings (ReplaceKeyBindings- ())))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))) type instance Functions TextEditor = TextEditorFuncs @@ -3883,9 +4087,16 @@ type Tile = CTile Group type TileFuncs = (SetPosition+ (Draw+ (DrawSuper (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper (Resize- ())))+ ())))))))))) type instance Functions Tile = TileFuncs @@ -3897,7 +4108,15 @@ (SetSpacing (GetSpacing (IsHorizontal- ())))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))) type instance Functions Pack = PackFuncs @@ -3917,7 +4136,15 @@ (GetType_ (SetType (Resize- (Handle ()))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))) type instance Functions Scrolled = ScrolledFuncs @@ -3928,14 +4155,20 @@ data CTabs parent type Tabs = CTabs Group type TabsFuncs =+ (Draw+ (DrawSuper (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper (GetValue (SetValue (GetPush (SetPush (Which- (ClientArea ())))))))-+ (ClientArea ())))))))))))))) type instance Functions Tabs = TabsFuncs @@ -3947,7 +4180,6 @@ data CSpinner parent type Spinner = CSpinner Group type SpinnerFuncs =- (Handle (GetValue (SetValue (Handle@@ -3968,7 +4200,15 @@ (SetStep (GetStep (Resize- ())))))))))))))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))))))))))))))))) type instance Functions Spinner = SpinnerFuncs@@ -3987,7 +4227,15 @@ (GetB (SetHsv (SetRgb- ()))))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))))))) type instance Functions ColorChooser = ColorChooserFuncs @@ -4011,7 +4259,15 @@ (GetFiletype (SetFiletype (Load- ())))))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ()))))))))))))))))) type instance Functions FileBrowser = FileBrowserFuncs MAKE_METHOD(SetIconsize, setIconsize)@@ -4076,7 +4332,15 @@ (GetErrorColor (GetValue (SetValue- ()))))))+ (Draw+ (DrawSuper+ (Handle+ (HandleSuper+ (ShowWidget+ (ShowWidgetSuper+ (Hide+ (HideSuper+ ())))))))))))))) type instance Functions FileInput = FileInputFuncs MAKE_METHOD(SetErrorColor, setErrorColor)
src/Graphics/UI/FLTK/LowLevel/Input.chs view
@@ -4,7 +4,8 @@ ( FlInputType(..), -- * Constructor- inputNew+ inputNew,+ inputCustom -- * Hierarchy -- -- $hierarchy@@ -32,6 +33,8 @@ 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,@@ -42,6 +45,23 @@ }; #endc {#enum FlInputType {}#}+{# fun Fl_OverriddenInput_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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 (Ref Input -> IO ()) -- ^ Optional custom drawing function+ -> Maybe (CustomWidgetFuncs Input) -- ^ Optional custom widget functions+ -> IO (Ref Input)+inputCustom rectangle l' draw' funcs' =+ widgetMaker+ rectangle+ l'+ draw'+ funcs'+ overriddenWidgetNew'+ overriddenWidgetNewWithLabel'+ {# fun Fl_Input_New as inputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #} {# fun Fl_Input_New_WithLabel as inputNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text'} -> `Ptr ()' id #} {# fun Fl_Multiline_Input_New as multilineInputNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #}@@ -225,7 +245,39 @@ {# fun Fl_Input_set_tab_nav as setTabNav' { id `Ptr ()' } -> `Int' #} instance (impl ~ ( IO (Int))) => Op (SetTabNav ()) Input orig impl where runOp _ _ input = withRef input $ \inputPtr -> setTabNav' inputPtr+{# 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 + -- $Input -- @ -- copy :: 'Ref' 'Input' -> 'Clipboard' -> 'IO' ('Either' 'NoChange' ())@@ -240,6 +292,10 @@ -- -- destroy :: 'Ref' 'Input' -> 'IO' () --+-- draw :: 'Ref' 'Input' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'Input' -> 'IO' ()+-- -- getCursorColor :: 'Ref' 'Input' -> 'IO' ('Color') -- -- getInputType :: 'Ref' 'Input' -> 'IO' ('Int')@@ -268,8 +324,14 @@ -- -- getWrap :: 'Ref' 'Input' -> 'IO' ('Int') ----- handle :: 'Ref' 'Input' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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' -> 'Int' -> 'IO' ('Char') -- -- insert :: 'Ref' 'Input' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ())@@ -278,6 +340,10 @@ -- -- replace :: 'Ref' 'Input' -> 'Int' -> 'Int' -> 'T.Text' -> 'IO' ('Either' 'NoChange' ()) --+-- resize :: 'Ref' 'Input' -> 'Rectangle' -> 'IO' ()+--+-- resizeSuper :: 'Ref' 'Input' -> 'Rectangle' -> 'IO' ()+-- -- setCursorColor :: 'Ref' 'Input' -> 'Color' -> 'IO' () -- -- setInputType :: 'Ref' 'Input' -> 'Int' -> 'IO' ()@@ -307,6 +373,10 @@ -- setValue :: 'Ref' 'Input' -> 'T.Text' -> 'Maybe' 'Int' -> 'IO' ('Int') -- -- setWrap :: 'Ref' 'Input' -> 'Int' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Input' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Input' -> 'IO' () -- -- staticValue :: 'Ref' 'Input' -> 'T.Text' -> 'Maybe' 'Int' -> 'IO' ('Either' 'NoChange' ()) --
src/Graphics/UI/FLTK/LowLevel/LightButton.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.LightButton (- lightButtonNew+ lightButtonNew,+ lightButtonCustom -- * Hierarchy -- -- $hierarchy@@ -22,6 +23,24 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #}@@ -38,10 +57,64 @@ \buttonPtr -> widgetDestroy' buttonPtr >> return nullPtr+{# 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
src/Graphics/UI/FLTK/LowLevel/MenuBar.chs view
@@ -3,6 +3,7 @@ module Graphics.UI.FLTK.LowLevel.MenuBar ( menuBarNew,+ menuBarCustom -- * Hierarchy -- -- $hierarchy@@ -16,14 +17,32 @@ #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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} menuBarNew :: Rectangle -> Maybe T.Text -> IO (Ref MenuBar)@@ -41,10 +60,40 @@ \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 -- $functions --@@ -52,8 +101,25 @@ -- -- destroy :: 'Ref' 'MenuBar' -> 'IO' () ----- handle :: 'Ref' 'MenuBar' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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
src/Graphics/UI/FLTK/LowLevel/MenuButton.chs view
@@ -4,7 +4,8 @@ ( -- * Constructor menuButtonNew,- MenuButtonType(..)+ MenuButtonType(..),+ menuButtonCustom -- * Hierarchy -- -- $hierarchy@@ -25,6 +26,7 @@ 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 {@@ -38,7 +40,24 @@ }; #endc {#enum MenuButtonType {} deriving (Show, Eq) #}+{# fun Fl_OverriddenMenu_Button_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} menuButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref MenuButton)@@ -55,22 +74,70 @@ runOp _ _ win = swapRef win $ \winPtr -> do menuButtonDestroy' winPtr return nullPtr-{#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 _ _ menu_bar event = withRef menu_bar (\p -> menuButtonHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent {#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+ -- $functions -- @--- -- destroy :: 'Ref' 'MenuButton' -> 'IO' () ----- handle :: 'Ref' 'MenuButton' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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
src/Graphics/UI/FLTK/LowLevel/Output.chs view
@@ -4,7 +4,8 @@ ( FlOutputType(..), -- * Constructor- outputNew+ outputNew,+ outputCustom -- * Hierarchy -- -- $hierarchy@@ -26,12 +27,33 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #}@@ -50,6 +72,40 @@ {# 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 -- @@@ -64,5 +120,25 @@ -- $Input -- @+-- 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/Pack.chs view
@@ -4,6 +4,7 @@ ( PackType(..), packNew,+ packCustom -- * Hierarchy -- -- $hierarchy@@ -17,12 +18,29 @@ #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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #}@@ -54,7 +72,40 @@ {# 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_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"@@ -68,13 +119,33 @@ -- $functions -- @--- getSpacing :: 'Ref' 'Pack' -> 'IO' 'Int'+-- draw :: 'Ref' 'Pack' -> 'IO' () ----- getType :: 'Ref' 'Pack' -> 'IO' 'PackType'+-- 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/Positioner.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.Positioner ( -- * Constructor- positionerNew+ positionerNew,+ positionerCustom -- * Hierarchy -- -- $hierarchy@@ -17,7 +18,7 @@ #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@@ -25,6 +26,24 @@ import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T +{# fun Fl_OverriddenPositioner_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} positionerNew :: Rectangle -> Maybe T.Text -> IO (Ref Positioner)@@ -42,9 +61,6 @@ positionerDestroy' winPtr return nullPtr -{#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_set_xvalue as setXvalue' { id `Ptr ()',`Double' } -> `()' #} instance (impl ~ (Double -> IO ())) => Op (SetXvalue ()) Positioner orig impl where runOp _ _ positioner xvalue = withRef positioner $ \positionerPtr -> setXvalue' positionerPtr xvalue@@ -93,26 +109,73 @@ {# 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 -- $functions -- @--- -- destroy :: 'Ref' 'Positioner' -> 'IO' () ----- getXmaximum :: 'Ref' 'Positioner' -> 'IO' 'Double'+-- draw :: 'Ref' 'Positioner' -> 'IO' () ----- getXminimum :: 'Ref' 'Positioner' -> 'IO' 'Double'+-- drawSuper :: 'Ref' 'Positioner' -> 'IO' () ----- getXvalue :: 'Ref' 'Positioner' -> 'IO' 'Double'+-- getXmaximum :: 'Ref' 'Positioner' -> 'IO' ('Double') ----- getYmaximum :: 'Ref' 'Positioner' -> 'IO' 'Double'+-- getXminimum :: 'Ref' 'Positioner' -> 'IO' ('Double') ----- getYminimum :: 'Ref' 'Positioner' -> 'IO' 'Double'+-- getXvalue :: 'Ref' 'Positioner' -> 'IO' ('Double') ----- getYvalue :: 'Ref' 'Positioner' -> 'IO' 'Double'+-- getYmaximum :: 'Ref' 'Positioner' -> 'IO' ('Double') ----- handle :: 'Ref' 'Positioner' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- getYminimum :: 'Ref' 'Positioner' -> 'IO' ('Double') --+-- getYvalue :: 'Ref' 'Positioner' -> 'IO' ('Double')+--+-- 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' -> 'Double' -> 'Double' -> 'IO' () -- -- setXmaximum :: 'Ref' 'Positioner' -> 'Double' -> 'IO' ()@@ -132,6 +195,10 @@ -- setYstep :: 'Ref' 'Positioner' -> 'Double' -> 'IO' () -- -- setYvalue :: 'Ref' 'Positioner' -> 'Double' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Positioner' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Positioner' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/Progress.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.Progress ( -- * Constructor- progressNew+ progressNew,+ progressCustom -- * Hierarchy -- -- $hierarchy@@ -23,7 +24,27 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} progressNew :: Rectangle -> Maybe T.Text -> IO (Ref Progress)@@ -58,23 +79,77 @@ {# 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 -- $functions -- @ -- -- destroy :: 'Ref' 'Progress' -> 'IO' () ----- getMaximum :: 'Ref' 'Progress' -> 'IO' 'Float'+-- draw :: 'Ref' 'Progress' -> 'IO' () ----- getMinimum :: 'Ref' 'Progress' -> 'IO' 'Float'+-- drawSuper :: 'Ref' 'Progress' -> 'IO' () ----- getValue :: 'Ref' 'Progress' -> 'IO' 'Float'+-- 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
src/Graphics/UI/FLTK/LowLevel/RepeatButton.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.RepeatButton (- repeatButtonNew+ repeatButtonNew,+ repeatButtonCustom -- * Hierarchy -- -- $hierarchy@@ -24,7 +25,26 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} repeatButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RepeatButton)@@ -41,23 +61,69 @@ widgetDestroy' buttonPtr >> return nullPtr -{#fun Fl_Repeat_Button_handle as handle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ ( Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) RepeatButton orig impl where- runOp _ _ button event = withRef button (\p -> handle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent- {#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 ()' } -> `()' #}+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' #}+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 #}+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 ()' } -> `()' #}+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 -- $functions -- @--- -- deactivate :: 'Ref' 'RepeatButton' -> 'IO' () -- -- destroy :: 'Ref' 'RepeatButton' -> 'IO' () ----- handle :: 'Ref' 'RepeatButton' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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
src/Graphics/UI/FLTK/LowLevel/ReturnButton.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.ReturnButton (- returnButtonNew+ returnButtonNew,+ returnButtonCustom -- * Hierarchy -- -- $hierarchy@@ -24,7 +25,25 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} returnButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref ReturnButton)@@ -41,9 +60,41 @@ widgetDestroy' buttonPtr >> return nullPtr -{#fun Fl_Return_Button_handle as handle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ ( Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) ReturnButton orig impl where- runOp _ _ button event = withRef button (\p -> handle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent+{# fun Fl_Return_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' #}+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 #}+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 ()' } -> `()' #}+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+ -- $functions -- @ --
src/Graphics/UI/FLTK/LowLevel/Roller.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.Roller ( -- * Constructor- rollerNew+ rollerNew,+ rollerCustom -- * Hierarchy -- -- $hierarchy@@ -17,14 +18,31 @@ #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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} rollerNew :: Rectangle -> Maybe T.Text -> IO (Ref Roller)@@ -41,11 +59,40 @@ 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 -- $functions -- @ --
src/Graphics/UI/FLTK/LowLevel/RoundButton.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.RoundButton (- roundButtonNew+ roundButtonNew,+ roundButtonCustom -- * Hierarchy -- -- $hierarchy@@ -17,13 +18,29 @@ #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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} roundButtonNew :: Rectangle -> Maybe T.Text -> IO (Ref RoundButton)@@ -39,11 +56,64 @@ \buttonPtr -> widgetDestroy' buttonPtr >> return nullPtr+{# fun Fl_Round_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' #}+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 #}+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 ()' } -> `()' #}+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 -- $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
src/Graphics/UI/FLTK/LowLevel/Scrollbar.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor scrollbarNew,+ scrollbarCustom -- * Hierarchy -- -- $hierarchy@@ -18,7 +19,7 @@ #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@@ -26,6 +27,24 @@ import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T +{# fun Fl_OverriddenScrollbar_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} scrollbarNew :: Rectangle -> Maybe T.Text -> IO (Ref Scrollbar)@@ -55,11 +74,6 @@ instance (impl ~ ( IO LineSize)) => Op (GetLinesize ()) Scrollbar orig impl where runOp _ _ slider = withRef slider $ \sliderPtr -> linesize' sliderPtr >>= return . LineSize -{#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_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)@@ -67,21 +81,76 @@ 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' ()))+-- handle :: 'Ref' 'Scrollbar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) --+-- 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' ()+-- -- setLinesize :: 'Ref' 'Scrollbar' -> 'LineSize' -> 'IO' () -- -- setScrollValue :: 'Ref' 'Scrollbar' -> 'Int' -> 'Int' -> 'Int' -> 'Int' -> 'IO' ('Int') -- -- setType :: 'Ref' 'Scrollbar' -> 'ScrollbarType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Scrollbar' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Scrollbar' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/Scrolled.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor scrolledNew,+ scrolledCustom -- * Hierarchy -- -- $hierarchy@@ -17,14 +18,31 @@ #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_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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} scrolledNew :: Rectangle -> Maybe T.Text -> IO (Ref Scrolled)@@ -59,12 +77,40 @@ {# 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_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Scrolled orig impl where- runOp _ _ widget rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef widget $ \scrollPtr -> resize' scrollPtr x_pos' y_pos' width' height'-{# fun Fl_Scroll_handle as handle' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event -> IO(Either UnknownEvent ()))) => Op (Handle ()) Scrolled orig impl where- runOp _ _ widget event = withRef widget $ \scrollPtr -> handle' scrollPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# 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 -- @@@ -82,21 +128,39 @@ -- @ -- clear :: 'Ref' 'Scrolled' -> 'IO' () ----- getScrollbarSize :: 'Ref' 'Scrolled' -> 'IO' 'Int'+-- draw :: 'Ref' 'Scrolled' -> 'IO' () ----- getType :: 'Ref' 'Scrolled' -> 'IO' 'ScrollbarMode'+-- drawSuper :: 'Ref' 'Scrolled' -> 'IO' () ----- handle :: 'Ref' 'Scrolled' -> 'Int' -> 'IO' 'Int'+-- 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' () --+-- 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' () ----- xposition :: 'Ref' 'Scrolled' -> 'IO' 'Int'+-- showWidget :: 'Ref' 'Scrolled' -> 'IO' () ----- yposition :: 'Ref' 'Scrolled' -> 'IO' 'Int'+-- showWidgetSuper :: 'Ref' 'Scrolled' -> 'IO' ()+--+-- xposition :: 'Ref' 'Scrolled' -> 'IO' ('Int')+--+-- yposition :: 'Ref' 'Scrolled' -> 'IO' ('Int') -- @
src/Graphics/UI/FLTK/LowLevel/Slider.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Slider (- sliderNew+ sliderNew,+ sliderCustom -- * Hierarchy -- -- $hierarchy@@ -17,14 +18,29 @@ #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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} sliderNew :: Rectangle -> Maybe T.Text -> IO (Ref Slider)@@ -41,9 +57,6 @@ runOp _ _ win = swapRef win $ \winPtr -> do sliderDestroy' winPtr return nullPtr-{#fun Fl_Slider_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_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@@ -68,24 +81,81 @@ {# 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 ()' } -> `()' #}+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' #}+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+ 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+ 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+ -- $functions -- @--- -- bounds :: 'Ref' 'Slider' -> 'Double' -> 'Double' -> 'IO' () -- -- destroy :: 'Ref' 'Slider' -> 'IO' () ----- getSlider :: 'Ref' 'Slider' -> 'IO' 'Boxtype'+-- draw :: 'Ref' 'Slider' -> 'IO' () --+-- drawSuper :: 'Ref' 'Slider' -> 'IO' ()+--+-- getSlider :: 'Ref' 'Slider' -> 'IO' ('Boxtype')+-- -- getSliderSize :: 'Ref' 'Slider' -> 'Double' -> 'IO' () ----- handle :: 'Ref' 'Slider' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- getType_ :: 'Ref' 'Slider' -> 'IO' ('SliderType') ----- scrollvalue :: 'Ref' 'Slider' -> 'Int' -> 'Int' -> 'Int' -> 'Int' -> 'IO' 'Int'+-- 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' -> 'Int' -> 'Int' -> 'Int' -> 'Int' -> 'IO' ('Int')+-- -- setSlider :: 'Ref' 'Slider' -> 'Boxtype' -> 'IO' () ----- setSliderSize :: 'Ref' 'Slider' -> 'IO' 'Float'+-- setSliderSize :: 'Ref' 'Slider' -> 'IO' ('Float')+--+-- setType :: 'Ref' 'Slider' -> 'SliderType' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Slider' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Slider' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/Spinner.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor spinnerNew,+ spinnerCustom, SpinnerType(..) -- * Hierarchy --@@ -20,7 +21,7 @@ #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@@ -34,6 +35,23 @@ }; #endc {#enum SpinnerType {} deriving (Show, Eq) #}+{# fun Fl_OverriddenSpinner_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} spinnerNew :: Rectangle -> Maybe T.Text -> IO (Ref Spinner)@@ -45,9 +63,6 @@ Just l -> spinnerNewWithLabel' x_pos y_pos width height l >>= toRef -{#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_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@@ -106,6 +121,40 @@ {# 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 -- $hierarchy -- @@@ -122,6 +171,10 @@ -- $functions -- @+-- draw :: 'Ref' 'Spinner' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'Spinner' -> 'IO' ()+-- -- getFormat :: 'Ref' 'Spinner' -> 'IO' ('Maybe' 'T.Text') -- -- getMaximum :: 'Ref' 'Spinner' -> 'IO' ('Double')@@ -140,10 +193,20 @@ -- -- getValue :: 'Ref' 'Spinner' -> 'IO' ('Double') ----- handle :: 'Ref' 'Spinner' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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' ()@@ -162,4 +225,7 @@ -- -- setValue :: 'Ref' 'Spinner' -> 'Double' -> 'IO' () --+-- showWidget :: 'Ref' 'Spinner' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Spinner' -> 'IO' () -- @
src/Graphics/UI/FLTK/LowLevel/SysMenuBar.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.SysMenuBar (- sysMenuBarNew+ sysMenuBarNew,+ sysMenuBarCustom -- * Hierarchy -- -- $hierarchy@@ -17,7 +18,7 @@ #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@@ -27,6 +28,22 @@ 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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} sysMenuBarNew :: Rectangle -> Maybe T.Text -> IO (Ref SysMenuBar)@@ -42,9 +59,6 @@ runOp _ _ win = swapRef win $ \winPtr -> do sysMenuBarDestroy' winPtr return nullPtr-{#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 _ _ menu_bar event = withRef menu_bar (\p -> sysMenuBarHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent {# 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'@@ -92,10 +106,43 @@ {# fun Fl_Sys_Menu_Bar_insert_with_shortcutname_flags as insertWithShortcutnameFlags' { id `Ptr ()',`Int',unsafeToCString `T.Text', unsafeToCString `T.Text',id `FunPtr CallbackWithUserDataPrim',`Int' } -> `Int' #} instance (Parent a MenuPrim, impl ~ ( Int -> T.Text -> Maybe Shortcut -> (Ref a -> IO ()) -> MenuItemFlags -> IO (MenuItemIndex))) => Op (Insert ()) SysMenuBar orig impl where runOp _ _ menu_ 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 -- $functions -- @--- -- add:: ('Parent' a 'MenuItem') => 'Ref' 'SysMenuBar' -> 'T.Text' -> 'Maybe' 'Shortcut' -> 'Maybe' ('Ref' a-> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('MenuItemIndex') -- -- addName :: 'Ref' 'SysMenuBar' -> 'T.Text' -> 'IO' ()@@ -106,24 +153,43 @@ -- -- destroy :: 'Ref' 'SysMenuBar' -> 'IO' () --+-- draw :: 'Ref' 'SysMenuBar' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'SysMenuBar' -> 'IO' ()+-- -- getMode :: 'Ref' 'SysMenuBar' -> 'Int' -> 'IO' ('Maybe' 'MenuItemFlags') -- -- global :: 'Ref' 'SysMenuBar' -> 'IO' () ----- handle :: 'Ref' 'SysMenuBar' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- handle :: 'Ref' 'SysMenuBar' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ()) --+-- 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' -> 'Int' -> 'T.Text' -> 'Maybe' 'Shortcut' -> ('Ref' a -> 'IO' ()) -> 'MenuItemFlags' -> 'IO' ('MenuItemIndex') -- -- remove :: 'Ref' 'SysMenuBar' -> 'Int' -> 'IO' () -- -- replace :: 'Ref' 'SysMenuBar' -> 'Int' -> 'T.Text' -> 'IO' () --+-- resize :: 'Ref' 'SysMenuBar' -> 'Rectangle' -> 'IO' ()+--+-- resizeSuper :: 'Ref' 'SysMenuBar' -> 'Rectangle' -> 'IO' ()+-- -- setMenu :: 'Ref' 'SysMenuBar' -> ['Ref' 'MenuItem'] -> 'IO' () -- -- setMode :: 'Ref' 'SysMenuBar' -> 'Int' -> 'MenuItemFlags' -> 'IO' () -- -- setShortcut :: 'Ref' 'SysMenuBar' -> 'Int' -> 'ShortcutKeySequence' -> 'IO' () --+-- showWidget :: 'Ref' 'SysMenuBar' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'SysMenuBar' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/TableRow.chs view
@@ -95,6 +95,24 @@ TableRowSelect -> selectAllRows' tablePtr 1 TableRowDeselect -> selectAllRows' tablePtr 0 TableRowToggle -> selectAllRows' tablePtr 2+{# 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 -- $functions -- @@@ -104,16 +122,24 @@ -- -- destroy :: 'Ref' 'TableRow' -> 'IO' () --+-- draw :: 'Ref' 'TableRow' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'TableRow' -> 'IO' ()+-- -- getRowSelected :: 'Ref' 'TableRow' -> 'Int' -> 'IO' ('Either' 'OutOfRange' 'Bool') -- -- getRows :: 'Ref' 'TableRow' -> 'IO' ('Int') -- -- getType_ :: 'Ref' 'TableRow' -> 'IO' 'TableRowSelectMode' ----- handle :: 'Ref' 'TableRow' -> 'Event' -> 'IO' ('Int')+-- handle :: 'Ref' 'TableRow' -> 'Event' -> 'IO(Either' 'UnknownEvent' ()) ----- handleSuper :: 'Ref' 'TableRow' -> 'Event' -> 'IO' ('Int')+-- 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' ()@@ -129,6 +155,10 @@ -- setRowsSuper :: 'Ref' 'TableRow' -> 'Int' -> 'IO' () -- -- setType :: 'Ref' 'TableRow' -> 'TableRowSelectMode' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TableRow' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'TableRow' -> 'IO' () -- -- @
src/Graphics/UI/FLTK/LowLevel/Tabs.chs view
@@ -3,6 +3,7 @@ module Graphics.UI.FLTK.LowLevel.Tabs ( tabsNew,+ tabsCustom, TabsHeightOffset(..) -- * Hierarchy --@@ -18,7 +19,7 @@ #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@@ -28,6 +29,24 @@ data TabsHeightOffset = TabsAtTop (Maybe Int) | TabsAtBottom (Maybe Int) +{# fun Fl_OverriddenTabs_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenTabs_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+tabsCustom ::+ Rectangle -- ^ The bounds of this Tabs+ -> Maybe T.Text -- ^ The Tabs label+ -> Maybe (Ref Tabs -> IO ()) -- ^ Optional custom drawing function+ -> Maybe (CustomWidgetFuncs Tabs) -- ^ Optional custom widget functions+ -> IO (Ref Tabs)+tabsCustom rectangle l' draw' funcs' =+ widgetMaker+ rectangle+ l'+ draw'+ funcs'+ overriddenWidgetNew'+ overriddenWidgetNewWithLabel'++ {# fun Fl_Tabs_New as tabsNew' { `Int',`Int',`Int',`Int' } -> `Ptr ()' id #} {# fun Fl_Tabs_New_WithLabel as tabsNewWithLabel' { `Int',`Int',`Int',`Int',unsafeToCString `T.Text'} -> `Ptr ()' id #} tabsNew :: Rectangle -> Maybe T.Text -> IO (Ref Tabs)@@ -37,10 +56,6 @@ Nothing -> tabsNew' x_pos y_pos width height >>= toRef Just l -> tabsNewWithLabel' x_pos y_pos width height l >>= toRef -{# fun Fl_Tabs_handle as handle' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Tabs orig impl where- runOp _ _ tabs event = withRef tabs (\p -> handle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent- {# 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@@ -70,6 +85,41 @@ TabsAtTop (Just o) -> clientAreaWithTabh' tabsPtr o >>= return . toRectangle TabsAtBottom Nothing -> clientAreaWithTabh' tabsPtr (-1) >>= return . toRectangle TabsAtBottom (Just o) -> clientAreaWithTabh' tabsPtr (0 - o) >>= 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 -- $hierarchy -- @
src/Graphics/UI/FLTK/LowLevel/TextDisplay.chs view
@@ -4,7 +4,8 @@ ( mkStyleTableEntriesPtr, indexStyleTableEntries,- textDisplayNew+ textDisplayNew,+ textDisplayCustom -- * Hierarchy -- -- $hierarchy@@ -18,7 +19,7 @@ #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@@ -52,6 +53,23 @@ indexStyleTableEntries :: [StyleTableEntry] -> [(Char, StyleTableEntry)] indexStyleTableEntries = zip ['A'..] +{# fun Fl_OverriddenText_Display_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} textDisplayNew :: Rectangle -> Maybe T.Text -> IO (Ref TextDisplay)@@ -66,15 +84,6 @@ {# 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_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}-instance (impl ~ ( Rectangle -> IO ())) => Op (Resize ()) TextDisplay orig impl where- runOp _ _ text_display rectangle = withRef text_display $ \text_displayPtr -> do- let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle- resize' text_displayPtr x_pos y_pos w_pos h_pos-{# fun Fl_Text_Display_handle as handle' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event -> IO(Either UnknownEvent ()))) => Op (Handle ()) TextDisplay orig impl where- runOp _ _ text_display e = withRef text_display $ \text_displayPtr -> handle' text_displayPtr (fromEnum e) >>= return . successOrUnknownEvent {# 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@@ -276,10 +285,51 @@ {# fun linenumber_format as linenumberFormat' { id `Ptr ()' } -> `T.Text' unsafeFromCString #} instance (impl ~ ( IO T.Text)) => Op (GetLinenumberFormat ()) TextDisplay orig impl where runOp _ _ text_display = withRef text_display $ \text_displayPtr -> linenumberFormat' text_displayPtr+{# 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_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_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 -- $hierarchy -- @+-- "Graphics.UI.FLTK.LowLevel.Widget"+-- |+-- v+-- "Graphics.UI.FLTK.LowLevel.Group"+-- |+-- v -- "Graphics.UI.FLTK.LowLevel.TextDisplay"+ -- @ -- $functions@@ -290,6 +340,10 @@ -- -- destroy :: 'Ref' 'TextDisplay' -> 'IO' () --+-- draw :: 'Ref' 'TextDisplay' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'TextDisplay' -> 'IO' ()+-- -- getBuffer :: 'Ref' 'TextDisplay' -> 'IO' ('Maybe' ('Ref' 'TextBuffer')) -- -- getCursorColor :: 'Ref' 'TextDisplay' -> 'IO' ('Color')@@ -322,8 +376,14 @@ -- -- getTextsize :: 'Ref' 'TextDisplay' -> 'IO' ('FontSize') ----- handle :: 'Ref' 'TextDisplay' -> 'Event' -> 'IO' ('Int')+-- 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')@@ -354,6 +414,8 @@ -- -- resize :: 'Ref' 'TextDisplay' -> 'Rectangle' -> 'IO' () --+-- resizeSuper :: 'Ref' 'TextDisplay' -> 'Rectangle' -> 'IO' ()+-- -- rewindLines :: 'Ref' 'TextDisplay' -> 'BufferOffset' -> 'Int' -> 'IO' ('BufferOffset') -- -- scroll :: 'Ref' 'TextDisplay' -> 'Int' -> 'BufferOffset' -> 'IO' ()@@ -395,6 +457,10 @@ -- showCursor :: 'Ref' 'TextDisplay' -> 'Bool' -> 'IO' () -- -- showInsertPosition :: 'Ref' 'TextDisplay' -> 'IO' ()+--+-- showWidget :: 'Ref' 'TextDisplay' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'TextDisplay' -> 'IO' () -- -- skipLines :: 'Ref' 'TextDisplay' -> 'BufferOffset' -> 'Int' -> 'Bool' -> 'IO' ('BufferOffset') --
src/Graphics/UI/FLTK/LowLevel/TextEditor.chs view
@@ -3,6 +3,7 @@ module Graphics.UI.FLTK.LowLevel.TextEditor ( textEditorNew,+ textEditorCustom, KeyBinding(..), KeyFunc(..), KeyFuncPrim,@@ -23,7 +24,7 @@ #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@@ -104,6 +105,23 @@ let currKb = KeyBinding (KeyBindingKeySequence evs keyType) (toFunRef function') go (accum ++ [currKb]) next' +{# fun Fl_OverriddenText_Editor_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} textEditorNew :: Rectangle -> Maybe T.Text -> IO (Ref TextEditor)@@ -113,9 +131,6 @@ Nothing -> textEditorNew' x_pos y_pos width height >>= toRef Just l -> textEditorNewWithLabel' x_pos y_pos width height l >>= toRef -{# fun Fl_Text_Editor_handle as handle' { id `Ptr ()',`Int' } -> `Int' #}-instance (impl ~ (Event -> IO(Either UnknownEvent ()))) => Op (Handle ()) TextEditor orig impl where- runOp _ _ text_editor e = withRef text_editor $ \text_editorPtr -> handle' text_editorPtr (fromEnum e) >>= return . successOrUnknownEvent {# 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@@ -138,6 +153,40 @@ 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_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 -- $hierarchy -- @@@ -158,14 +207,31 @@ -- @ -- destroy :: 'Ref' 'TextEditor' -> 'IO' () --+-- draw :: 'Ref' 'TextEditor' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'TextEditor' -> 'IO' ()+-- -- getDefaultKeyBindings :: 'Ref' 'TextEditor' -> 'IO' ['KeyBinding'] ----- getInsertMode :: 'Ref' 'TextEditor' -> 'IO' 'Bool'+-- getInsertMode :: 'Ref' 'TextEditor' -> 'IO' ('Bool') ----- handle :: 'Ref' 'TextEditor' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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/Tile.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor tileNew,+ tileCustom -- * Hierarchy -- -- $hierarchy@@ -18,7 +19,7 @@ #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@@ -26,6 +27,24 @@ import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T +{# fun Fl_OverriddenTile_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} tileNew :: Rectangle -> Maybe T.Text -> IO (Ref Tile)@@ -37,29 +56,70 @@ Just l -> tileNewWithLabel' x_pos y_pos width height l >>= toRef -{# 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_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 +{# 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_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 -- $functions -- @--- handle :: 'Ref' 'Tile' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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
src/Graphics/UI/FLTK/LowLevel/Timer.chs view
@@ -4,6 +4,7 @@ ( -- * Constructor timerNew,+ timerCustom, -- * Hierarchy -- -- $hierarchy@@ -19,7 +20,7 @@ #include "Fl_Types.h" #include "Fl_TimerC.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@@ -27,6 +28,24 @@ import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T +{# fun Fl_OverriddenTimer_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', id `Ptr ()'} -> `Ptr ()' id #}+{# fun Fl_OverriddenTimer_New as overriddenWidgetNew' { `Int',`Int',`Int',`Int', id `Ptr ()'} -> `Ptr ()' id #}+timerCustom ::+ Rectangle -- ^ The bounds of this Timer+ -> T.Text -- ^ The Timer label+ -> Maybe (Ref Timer -> IO ()) -- ^ Optional custom drawing function+ -> Maybe (CustomWidgetFuncs Timer) -- ^ Optional custom widget functions+ -> IO (Ref Timer)+timerCustom rectangle l' draw' funcs' =+ widgetMaker+ rectangle+ (Just l')+ draw'+ funcs'+ overriddenWidgetNew'+ overriddenWidgetNewWithLabel'++ {# fun Fl_Timer_New as timerNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text'} -> `Ptr ()' id #} timerNew :: Rectangle -> T.Text -> IO (Ref Timer) timerNew rectangle l'=@@ -51,9 +70,6 @@ runOp _ _ win = swapRef win $ \winPtr -> do timerDestroy' winPtr return nullPtr-{#fun Fl_Timer_handle as timerHandle' { id `Ptr ()', id `CInt' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Timer orig impl where- runOp _ _ timer event = withRef timer (\p -> timerHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent {# fun Fl_Timer_direction as direction' { id `Ptr ()' } -> `CChar' id #} instance (impl ~ ( IO (CountDirection))) => Op (GetDirection ()) Timer orig impl where runOp _ _ adjuster = withRef adjuster $ \adjusterPtr -> direction' adjusterPtr >>= return . ccharToCountDirection@@ -72,25 +88,77 @@ {# fun Fl_Timer_set_suspended as setSuspended' { id `Ptr ()', cFromBool `Bool' } -> `()' #} instance (impl ~ (Bool -> IO ())) => Op (SetSuspended ()) Timer orig impl where runOp _ _ adjuster s = withRef adjuster $ \adjusterPtr -> setSuspended' adjusterPtr s+{# fun Fl_Timer_draw as draw'' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Draw ()) Timer orig impl where+ runOp _ _ timer = withRef timer $ \timerPtr -> draw'' timerPtr+{# fun Fl_Timer_draw_super as drawSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (DrawSuper ()) Timer orig impl where+ runOp _ _ timer = withRef timer $ \timerPtr -> drawSuper' timerPtr+{#fun Fl_Timer_handle as timerHandle' { id `Ptr ()', id `CInt' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (Handle ()) Timer orig impl where+ runOp _ _ timer event = withRef timer (\p -> timerHandle' p (fromIntegral . fromEnum $ event)) >>= return . successOrUnknownEvent+{# fun Fl_Timer_handle_super as handleSuper' { id `Ptr ()',`Int' } -> `Int' #}+instance (impl ~ (Event -> IO (Either UnknownEvent ()))) => Op (HandleSuper ()) Timer orig impl where+ runOp _ _ timer event = withRef timer $ \timerPtr -> handleSuper' timerPtr (fromIntegral (fromEnum event)) >>= return . successOrUnknownEvent+{# fun Fl_Timer_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) Timer orig impl where+ runOp _ _ timer rectangle = withRef timer $ \timerPtr -> do+ let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle+ resize' timerPtr x_pos y_pos w_pos h_pos+{# fun Fl_Timer_resize_super as resizeSuper' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}+instance (impl ~ (Rectangle -> IO ())) => Op (ResizeSuper ()) Timer orig impl where+ runOp _ _ timer rectangle =+ let (x_pos, y_pos, width, height) = fromRectangle rectangle+ in withRef timer $ \timerPtr -> resizeSuper' timerPtr x_pos y_pos width height+{# fun Fl_Timer_hide as hide' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (Hide ()) Timer orig impl where+ runOp _ _ timer = withRef timer $ \timerPtr -> hide' timerPtr+{# fun Fl_Timer_hide_super as hideSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (HideSuper ()) Timer orig impl where+ runOp _ _ timer = withRef timer $ \timerPtr -> hideSuper' timerPtr+{# fun Fl_Timer_show as show' { id `Ptr ()' } -> `()' #}+instance (impl ~ ( IO ())) => Op (ShowWidget ()) Timer orig impl where+ runOp _ _ timer = withRef timer $ \timerPtr -> show' timerPtr+{# fun Fl_Timer_show_super as showSuper' { id `Ptr ()' } -> `()' supressWarningAboutRes #}+instance (impl ~ ( IO ())) => Op (ShowWidgetSuper ()) Timer orig impl where+ runOp _ _ timer = withRef timer $ \timerPtr -> showSuper' timerPtr -- $functions -- @ -- -- destroy :: 'Ref' 'Timer' -> 'IO' () ----- getDirection :: 'Ref' 'Timer' -> 'IO' 'CountDirection'+-- draw :: 'Ref' 'Timer' -> 'IO' () ----- getSuspended :: 'Ref' 'Timer' -> 'IO' 'Bool'+-- drawSuper :: 'Ref' 'Timer' -> 'IO' () ----- getValue :: 'Ref' 'Timer' -> 'IO' 'Double'+-- getDirection :: 'Ref' 'Timer' -> 'IO' ('CountDirection') ----- handle :: 'Ref' 'Timer' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- getSuspended :: 'Ref' 'Timer' -> 'IO' ('Bool') --+-- getValue :: 'Ref' 'Timer' -> 'IO' ('Double')+--+-- handle :: 'Ref' 'Timer' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- handleSuper :: 'Ref' 'Timer' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())+--+-- hide :: 'Ref' 'Timer' -> 'IO' ()+--+-- hideSuper :: 'Ref' 'Timer' -> 'IO' ()+--+-- resize :: 'Ref' 'Timer' -> 'Rectangle' -> 'IO' ()+--+-- resizeSuper :: 'Ref' 'Timer' -> 'Rectangle' -> 'IO' ()+-- -- setDirection :: 'Ref' 'Timer' -> 'CountDirection' -> 'IO' () -- -- setSuspended :: 'Ref' 'Timer' -> 'Bool' -> 'IO' () -- -- setValue :: 'Ref' 'Timer' -> 'Double' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Timer' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Timer' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/Tree.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Tree (- treeNew+ treeNew,+ treeCustom -- * Hierarchy -- -- $hierarchy@@ -23,7 +24,26 @@ 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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} treeNew :: Rectangle -> Maybe T.Text -> IO (Ref Tree)@@ -40,12 +60,6 @@ treeDestroy' treePtr return nullPtr -{# fun Fl_Tree_handle as handle' { id `Ptr ()', cFromEnum `Event' } -> `Int' #}-instance (impl ~ (Event -> IO (Either UnknownEvent ())) ) => Op (Handle ()) Tree orig impl where- runOp _ _ tree e = withRef tree $ \treePtr -> handle' treePtr e >>= return . successOrUnknownEvent-{# 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_show_self as showSelf' { id `Ptr ()' } -> `()' #} instance (impl ~ ( IO ()) ) => Op (ShowSelf ()) Tree orig impl where runOp _ _ tree = withRef tree $ \treePtr -> showSelf' treePtr@@ -442,6 +456,40 @@ {# 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_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 -- $functions -- @@@ -473,6 +521,8 @@ -- -- draw :: 'Ref' 'Tree' -> 'IO' () --+-- drawSuper :: 'Ref' 'Tree' -> 'IO' ()+-- -- findItem :: 'Ref' 'Tree' -> 'T.Text' -> 'IO' ('Maybe' ('Ref' 'TreeItem')) -- -- firstSelectedItem :: 'Ref' 'Tree' -> 'IO' ('Maybe' ('Ref' 'TreeItem'))@@ -533,8 +583,14 @@ -- -- getVposition :: 'Ref' 'Tree' -> 'IO' ('Int') ----- handle :: 'Ref' 'Tree' -> 'Event' -> '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' -> 'Int' -> 'IO' ('Maybe' ('Ref' a)) -- -- insertAbove:: ('Parent' a 'TreeItem') => 'Ref' 'Tree' -> 'Ref' a -> 'T.Text' -> 'IO' ('Maybe' ('Ref' a))@@ -581,6 +637,10 @@ -- -- 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' ()@@ -664,6 +724,10 @@ -- showItemWithYoff :: 'Ref' 'Tree' -> 'Ref' 'TreeItem' -> 'Maybe' 'Int' -> 'IO' () -- -- showSelf :: 'Ref' 'Tree' -> 'IO' ()+--+-- showWidget :: 'Ref' 'Tree' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'Tree' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/ValueInput.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.ValueInput ( -- * Constructor- valueInputNew+ valueInputNew,+ valueInputCustom -- * Hierarchy -- -- $hierarchy@@ -17,13 +18,29 @@ #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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #}@@ -41,15 +58,9 @@ runOp _ _ win = swapRef win $ \winPtr -> do valueInputDestroy' winPtr return nullPtr-{#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_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_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueInput orig impl where- runOp _ _ value_input rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef value_input $ \value_inputPtr -> resize' value_inputPtr x_pos' y_pos' width' height' {# 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@@ -79,10 +90,49 @@ 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) +{# 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+ -- $functions -- @ -- destroy :: 'Ref' 'ValueInput' -> 'IO' () --+-- draw :: 'Ref' 'ValueInput' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'ValueInput' -> 'IO' ()+-- -- getShortcut :: 'Ref' 'ValueInput' -> 'IO' ('Maybe' 'ShortcutKeySequence') -- -- getSoft :: 'Ref' 'ValueInput' -> 'IO' ('Bool')@@ -93,10 +143,18 @@ -- -- getTextsize :: 'Ref' 'ValueInput' -> 'IO' ('FontSize') ----- handle :: 'Ref' 'ValueInput' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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' ()@@ -106,6 +164,14 @@ -- setTextfont :: 'Ref' 'ValueInput' -> 'Font' -> 'IO' () -- -- setTextsize :: 'Ref' 'ValueInput' -> 'FontSize' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ValueInput' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'ValueInput' -> 'IO' ()++-- Available in FLTK 1.3.4 only:++ -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/ValueOutput.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.ValueOutput ( -- * Constructor- valueOutputNew+ valueOutputNew,+ valueOutputCustom -- * Hierarchy -- -- $hierarchy@@ -17,14 +18,31 @@ #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', unsafeToCString `T.Text', 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',unsafeToCString `T.Text'} -> `Ptr ()' id #} valueOutputNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueOutput)@@ -42,15 +60,9 @@ valueOutputDestroy' winPtr return nullPtr -{#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_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_resize as resize' { id `Ptr ()',`Int',`Int',`Int',`Int' } -> `()' #}-instance (impl ~ (Rectangle -> IO ())) => Op (Resize ()) ValueOutput orig impl where- runOp _ _ value_input rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef value_input $ \value_inputPtr -> resize' value_inputPtr x_pos' y_pos' width' height' {# 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@@ -72,11 +84,49 @@ {# 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 -- $functions -- @ -- destroy :: 'Ref' 'ValueOutput' -> 'IO' () --+-- draw :: 'Ref' 'ValueOutput' -> 'IO' ()+--+-- drawSuper :: 'Ref' 'ValueOutput' -> 'IO' ()+-- -- getSoft :: 'Ref' 'ValueOutput' -> 'IO' ('Bool') -- -- getTextcolor :: 'Ref' 'ValueOutput' -> 'IO' ('Color')@@ -85,10 +135,18 @@ -- -- getTextsize :: 'Ref' 'ValueOutput' -> 'IO' ('FontSize') ----- handle :: 'Ref' 'ValueOutput' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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' ()@@ -96,6 +154,10 @@ -- setTextfont :: 'Ref' 'ValueOutput' -> 'Font' -> 'IO' () -- -- setTextsize :: 'Ref' 'ValueOutput' -> 'FontSize' -> 'IO' ()+--+-- showWidget :: 'Ref' 'ValueOutput' -> 'IO' ()+--+-- showWidgetSuper :: 'Ref' 'ValueOutput' -> 'IO' () -- @ -- $hierarchy
src/Graphics/UI/FLTK/LowLevel/ValueSlider.chs view
@@ -3,7 +3,8 @@ module Graphics.UI.FLTK.LowLevel.ValueSlider ( -- * Constructor- valueSliderNew+ valueSliderNew,+ valueSliderCustom -- * Hierarchy -- -- $hierarchy@@ -17,7 +18,7 @@ #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@@ -25,6 +26,24 @@ import Graphics.UI.FLTK.LowLevel.Dispatch import qualified Data.Text as T +{# fun Fl_OverriddenValue_Slider_New_WithLabel as overriddenWidgetNewWithLabel' { `Int',`Int',`Int',`Int', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} valueSliderNew :: Rectangle -> Maybe T.Text -> IO (Ref ValueSlider)@@ -48,9 +67,6 @@ runOp _ _ win = swapRef win $ \winPtr -> do valueSliderDestroy' winPtr return nullPtr-{#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_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@@ -69,25 +85,76 @@ {# 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 -- $functions -- @--- -- destroy :: 'Ref' 'ValueSlider' -> 'IO' () ----- getTextcolor :: 'Ref' 'ValueSlider' -> 'IO' 'Color'+-- draw :: 'Ref' 'ValueSlider' -> 'IO' () ----- getTextfont :: 'Ref' 'ValueSlider' -> 'IO' 'Font'+-- drawSuper :: 'Ref' 'ValueSlider' -> 'IO' () ----- getTextsize :: 'Ref' 'ValueSlider' -> 'IO' 'FontSize'+-- getTextcolor :: 'Ref' 'ValueSlider' -> 'IO' ('Color') ----- handle :: 'Ref' 'ValueSlider' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))+-- 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
src/Graphics/UI/FLTK/LowLevel/Wizard.chs view
@@ -2,7 +2,8 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} module Graphics.UI.FLTK.LowLevel.Wizard (- wizardNew+ wizardNew,+ wizardCustom -- * Hierarchy -- -- $hierarchy@@ -16,13 +17,31 @@ #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.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', unsafeToCString `T.Text', 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', unsafeToCString `T.Text'} -> `Ptr ()' id #} wizardNew :: Rectangle -> Maybe T.Text -> IO (Ref Wizard)@@ -53,19 +72,73 @@ 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 -- $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