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.ads | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src/fltk-widgets-groups-windows-single-menu.ads') diff --git a/src/fltk-widgets-groups-windows-single-menu.ads b/src/fltk-widgets-groups-windows-single-menu.ads index 1908d72..7f6fd59 100644 --- a/src/fltk-widgets-groups-windows-single-menu.ads +++ b/src/fltk-widgets-groups-windows-single-menu.ads @@ -41,6 +41,9 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is procedure Flush (This : in out Menu_Window); + procedure Erase + (This : in out Menu_Window); + @@ -50,7 +53,10 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is procedure Set_Overlay (This : in out Menu_Window; - Value : in Boolean); + Value : in Boolean := True); + + procedure Clear_Overlay + (This : in out Menu_Window); private @@ -78,9 +84,11 @@ private pragma Inline (Show); pragma Inline (Hide); pragma Inline (Flush); + pragma Inline (Erase); pragma Inline (Is_Overlay); pragma Inline (Set_Overlay); + pragma Inline (Clear_Overlay); end FLTK.Widgets.Groups.Windows.Single.Menu; -- cgit