diff options
Diffstat (limited to 'src/fltk-widgets-groups-windows-double.adb')
| -rw-r--r-- | src/fltk-widgets-groups-windows-double.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups-windows-double.adb b/src/fltk-widgets-groups-windows-double.adb index 3864a1a..044bf38 100644 --- a/src/fltk-widgets-groups-windows-double.adb +++ b/src/fltk-widgets-groups-windows-double.adb @@ -60,6 +60,12 @@ package body FLTK.Widgets.Groups.Windows.Double is pragma Import (C, fl_double_window_flush, "fl_double_window_flush"); pragma Inline (fl_double_window_flush); + procedure fl_double_window_flush2 + (W : in Storage.Integer_Address; + E : in Interfaces.C.int); + pragma Import (C, fl_double_window_flush2, "fl_double_window_flush2"); + pragma Inline (fl_double_window_flush2); + @@ -202,6 +208,13 @@ package body FLTK.Widgets.Groups.Windows.Double is end Flush; + procedure Flush_All + (This : in out Double_Window) is + begin + fl_double_window_flush2 (This.Void_Ptr, 1); + end Flush_All; + + procedure Resize |