Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there

1 files changed, 4 insertions, 10 deletions

diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads
index c0e0ed4..1d7b55b 100644
--- a/src/fltk-widgets-menus.ads
+++ b/src/fltk-widgets-menus.ads
@@ -220,20 +220,12 @@ package FLTK.Widgets.Menus is
 
 
 
-    procedure Draw
-           (This : in out Menu) is null;
-
     procedure Draw_Item
            (This       : in out Menu;
             Item       : in     Index;
             X, Y, W, H : in     Integer;
             Selected   : in     Boolean := False);
 
-    function Handle
-           (This  : in out Menu;
-            Event : in     Event_Kind)
-        return Event_Outcome;
-
 
 private
 
@@ -253,6 +245,9 @@ private
         My_Items : Item_Vectors.Vector;
     end record;
 
+    overriding procedure Initialize
+           (This : in out Menu);
+
     overriding procedure Finalize
            (This : in out Menu);
 
@@ -326,10 +321,9 @@ private
     pragma Inline (Popup);
     pragma Inline (Pulldown);
 
-    pragma Inline (Draw);
     pragma Inline (Draw_Item);
-    pragma Inline (Handle);
 
 
 end FLTK.Widgets.Menus;
 
+