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-single-menu.ads | |
| parent | f8b638b57cc1318ef3536efae662b54b3d14a3bb (diff) | |
Closed a few gaps in the APIs of Window derivatives
Diffstat (limited to 'src/fltk-widgets-groups-windows-single-menu.ads')
| -rw-r--r-- | src/fltk-widgets-groups-windows-single-menu.ads | 10 |
1 files changed, 9 insertions, 1 deletions
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; |