From e93b9bbc02e2791f3a35b6f077fcbb8514c28aed Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 12 Jan 2025 01:14:58 +1300 Subject: Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there --- src/fltk-widgets-menus.ads | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'src/fltk-widgets-menus.ads') 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; + -- cgit