diff options
Diffstat (limited to 'src/fltk-widgets-menus.ads')
| -rw-r--r-- | src/fltk-widgets-menus.ads | 27 |
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#; |