diff options
Diffstat (limited to 'src/fltk-widgets.adb')
| -rw-r--r-- | src/fltk-widgets.adb | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/fltk-widgets.adb b/src/fltk-widgets.adb index 8d6bec2..deb0213 100644 --- a/src/fltk-widgets.adb +++ b/src/fltk-widgets.adb @@ -204,6 +204,17 @@ package body FLTK.Widgets is + procedure fl_widget_redraw + (W : in System.Address); + pragma Import (C, fl_widget_redraw, "fl_widget_redraw"); + + procedure fl_widget_redraw_label + (W : in System.Address); + pragma Import (C, fl_widget_redraw_label, "fl_widget_redraw_label"); + + + + procedure Callback_Hook (W, U : in System.Address) is @@ -551,6 +562,20 @@ package body FLTK.Widgets is + procedure Redraw + (This : in out Widget) is + begin + fl_widget_redraw (This.Void_Ptr); + end Redraw; + + + procedure Redraw_Label + (This : in out Widget) is + begin + fl_widget_redraw_label (This.Void_Ptr); + end Redraw_Label; + + function Handle (This : in out Widget; Event : in Event_Kind) |