Closed a few gaps in the APIs of Window derivatives

1 files changed, 20 insertions, 1 deletions

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;