diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-13 14:41:26 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-13 14:41:26 +1100 |
commit | 0f9b0b9259ada50de7f8866f9591ce4ad3e7eadc (patch) | |
tree | cfcafa0c09eb9f9543e40dfe15a17d384d5e12ef /fltk-widgets-menus.ads | |
parent | fa22b74c2e6528b4315909377f277ef193e19d11 (diff) |
Added word wrap feature
Diffstat (limited to 'fltk-widgets-menus.ads')
-rw-r--r-- | fltk-widgets-menus.ads | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/fltk-widgets-menus.ads b/fltk-widgets-menus.ads index 27b9d4a..cf6fcf7 100644 --- a/fltk-widgets-menus.ads +++ b/fltk-widgets-menus.ads @@ -12,9 +12,7 @@ package FLTK.Widgets.Menus is with Implicit_Dereference => Data; - type Menu_Item is private; - type Menu_Item_Cursor (Data : access Menu_Item) is limited null record - with Implicit_Dereference => Data; + type Menu_Item is tagged limited private; type Index is new Positive; @@ -62,13 +60,26 @@ package FLTK.Widgets.Menus is Flags : in Menu_Flag := Flag_Normal); + function Chosen + (This : in Menu'Class) + return Menu_Item; + + + function Value + (Item : in Menu_Item) + return Boolean; + + private type Menu is abstract new Widget with null record; - type Menu_Item is new System.Address; + type Menu_Item is tagged limited + record + Void_Ptr : System.Address; + end record; -- these values designed to align with FLTK enumeration types |