diff options
Diffstat (limited to 'src/fltk-widgets-menus.ads')
-rw-r--r-- | src/fltk-widgets-menus.ads | 30 |
1 files changed, 19 insertions, 11 deletions
diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 706d188..ddd8c51 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -1,8 +1,13 @@ -private with Interfaces; -private with System; -with FLTK.Menu_Items; +with + + FLTK.Menu_Items; + +private with + + Interfaces, + System; package FLTK.Widgets.Menus is @@ -10,14 +15,11 @@ package FLTK.Widgets.Menus is type Menu is new Widget with private; - type Menu_Cursor (Data : access Menu'Class) is limited null record with Implicit_Dereference => Data; - type Index is new Positive; - type Menu_Flag is private; function "+" (Left, Right : in Menu_Flag) return Menu_Flag; Flag_Normal : constant Menu_Flag; @@ -30,12 +32,16 @@ package FLTK.Widgets.Menus is Flag_Divider : constant Menu_Flag; + + function Create (X, Y, W, H : in Integer; Text : in String) return Menu; + + procedure Add (This : in out Menu; Text : in String; @@ -43,22 +49,21 @@ package FLTK.Widgets.Menus is Shortcut : in Shortcut_Key := No_Key; Flags : in Menu_Flag := Flag_Normal); - function Find_Item (This : in Menu'Class; Name : in String) return FLTK.Menu_Items.Menu_Item; - function Chosen (This : in Menu'Class) return FLTK.Menu_Items.Menu_Item; + + procedure Draw (This : in out Menu) is null; - function Handle (This : in out Menu; Event : in Event_Kind) @@ -70,13 +75,16 @@ private type Menu is new Widget with null record; + overriding procedure Finalize + (This : in out Menu); + + + procedure Item_Hook (M, U : in System.Address); pragma Convention (C, Item_Hook); - overriding procedure Finalize - (This : in out Menu); type Menu_Flag is new Interfaces.Unsigned_8; |