From e324057cbd9b02704172bb5db4163f4a0c276288 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 12 Jan 2025 15:11:40 +1300 Subject: Closed a few gaps in the APIs of Window derivatives --- src/fltk-widgets-groups-windows-single-menu.adb | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) (limited to 'src/fltk-widgets-groups-windows-single-menu.adb') diff --git a/src/fltk-widgets-groups-windows-single-menu.adb b/src/fltk-widgets-groups-windows-single-menu.adb index 7448c3b..480f89e 100644 --- a/src/fltk-widgets-groups-windows-single-menu.adb +++ b/src/fltk-widgets-groups-windows-single-menu.adb @@ -57,6 +57,11 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is pragma Import (C, fl_menu_window_flush, "fl_menu_window_flush"); pragma Inline (fl_menu_window_flush); + procedure fl_menu_window_erase + (M : in Storage.Integer_Address); + pragma Import (C, fl_menu_window_erase, "fl_menu_window_erase"); + pragma Inline (fl_menu_window_erase); + @@ -202,6 +207,13 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is end Flush; + procedure Erase + (This : in out Menu_Window) is + begin + fl_menu_window_erase (This.Void_Ptr); + end Erase; + + function Is_Overlay @@ -214,7 +226,7 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is procedure Set_Overlay (This : in out Menu_Window; - Value : in Boolean) is + Value : in Boolean := True) is begin if Value then fl_menu_window_set_overlay (This.Void_Ptr); @@ -224,6 +236,13 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is end Set_Overlay; + procedure Clear_Overlay + (This : in out Menu_Window) is + begin + fl_menu_window_clear_overlay (This.Void_Ptr); + end Clear_Overlay; + + end FLTK.Widgets.Groups.Windows.Single.Menu; -- cgit