diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-04-28 18:21:25 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-04-28 18:21:25 +1000 |
commit | ecdb8876ea6bdd333386aa7014cc5a8e0abe4c91 (patch) | |
tree | 0dc76811c26d32b3d920d85d0a2c22b6ec7d0298 /src/fltk_binding/fltk-widgets-menus.ads | |
parent | 73d263cf2bc1d0cfee840df5e6a698eff8b2bd4e (diff) |
Moved fltk binding to separate repo
Diffstat (limited to 'src/fltk_binding/fltk-widgets-menus.ads')
-rw-r--r-- | src/fltk_binding/fltk-widgets-menus.ads | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/src/fltk_binding/fltk-widgets-menus.ads b/src/fltk_binding/fltk-widgets-menus.ads deleted file mode 100644 index d01f02e..0000000 --- a/src/fltk_binding/fltk-widgets-menus.ads +++ /dev/null @@ -1,97 +0,0 @@ - - -with FLTK.Enums; use FLTK.Enums; -private with Interfaces; -private with System; - - -package FLTK.Widgets.Menus is - - - type Menu is abstract new Widget with private; - type Menu_Cursor (Data : access Menu'Class) is limited null record - with Implicit_Dereference => Data; - - - type Menu_Item is tagged limited private; - - - type Index is new Positive; - - - type Menu_Flag is private; - function "+" (Left, Right : in Menu_Flag) return Menu_Flag; - Flag_Normal : constant Menu_Flag; - Flag_Inactive : constant Menu_Flag; - Flag_Toggle : constant Menu_Flag; - Flag_Value : constant Menu_Flag; - Flag_Radio : constant Menu_Flag; - Flag_Invisible : constant Menu_Flag; - Flag_Submenu : constant Menu_Flag; - Flag_Divider : constant Menu_Flag; - - - function Create - (X, Y, W, H : in Integer; - Text : in String) - return Menu is abstract; - - - procedure Add - (This : in out Menu; - Text : in String; - Action : in Widget_Callback := null; - Shortcut : in Shortcut_Key := No_Key; - Flags : in Menu_Flag := Flag_Normal); - - - function Find_Item - (This : in Menu'Class; - Name : in String) - return 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); - - -private - - - type Menu is abstract new Widget with null record; - - - 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#; - Flag_Toggle : constant Menu_Flag := 2#00000010#; - Flag_Value : constant Menu_Flag := 2#00000100#; - Flag_Radio : constant Menu_Flag := 2#00001000#; - Flag_Invisible : constant Menu_Flag := 2#00010000#; - -- Flag_Submenu_Pointer unlikely to be used - Flag_Submenu : constant Menu_Flag := 2#01000000#; - Flag_Divider : constant Menu_Flag := 2#10000000#; - - -end FLTK.Widgets.Menus; - |