From 0f9b0b9259ada50de7f8866f9591ce4ad3e7eadc Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Nov 2016 14:41:26 +1100 Subject: Added word wrap feature --- fltk-widgets-menus.ads | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) (limited to 'fltk-widgets-menus.ads') 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 -- cgit