diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 15:11:40 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 15:11:40 +1300 |
| commit | e324057cbd9b02704172bb5db4163f4a0c276288 (patch) | |
| tree | 35afdc681d278049acc62ae61366b6da46122128 /src/fltk-widgets-groups-windows-double.adb | |
| parent | f8b638b57cc1318ef3536efae662b54b3d14a3bb (diff) | |
Closed a few gaps in the APIs of Window derivatives
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 |