Moved Menu_Item code to separate FLTK child package

1 files changed, 3 insertions, 24 deletions

diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads
index ec2c979..706d188 100644
--- a/src/fltk-widgets-menus.ads
+++ b/src/fltk-widgets-menus.ads
@@ -2,6 +2,7 @@
 
 private with Interfaces;
 private with System;
+with FLTK.Menu_Items;
 
 
 package FLTK.Widgets.Menus is
@@ -14,9 +15,6 @@ package FLTK.Widgets.Menus is
         with Implicit_Dereference => Data;
 
 
-    type Menu_Item is tagged limited private;
-
-
     type Index is new Positive;
 
 
@@ -49,25 +47,12 @@ package FLTK.Widgets.Menus is
     function Find_Item
            (This : in Menu'Class;
             Name : in String)
-        return Menu_Item;
+        return FLTK.Menu_Items.Menu_Item;
 
 
     function Chosen
            (This : in Menu'Class)
-        return Menu_Item;
-
-
-    function Value
-           (Item : in Menu_Item)
-        return Boolean;
-
-
-    procedure Activate
-           (Item : in Menu_Item);
-
-
-    procedure Deactivate
-           (Item : in Menu_Item);
+        return FLTK.Menu_Items.Menu_Item;
 
 
     procedure Draw
@@ -94,12 +79,6 @@ private
            (This : in out Menu);
 
 
-    type Menu_Item is tagged limited
-        record
-            Void_Ptr : System.Address;
-        end record;
-
-
     type Menu_Flag is new Interfaces.Unsigned_8;
     Flag_Normal    : constant Menu_Flag := 2#00000000#;
     Flag_Inactive  : constant Menu_Flag := 2#00000001#;