diff options
Diffstat (limited to 'src/fltk-widgets-menus-choices.ads')
| -rw-r--r-- | src/fltk-widgets-menus-choices.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/fltk-widgets-menus-choices.ads b/src/fltk-widgets-menus-choices.ads index ec73836..86ddd60 100644 --- a/src/fltk-widgets-menus-choices.ads +++ b/src/fltk-widgets-menus-choices.ads @@ -27,7 +27,7 @@ package FLTK.Widgets.Menus.Choices is - function Chosen + function Get_Chosen (This : in Choice) return FLTK.Menu_Items.Menu_Item_Reference; @@ -60,6 +60,9 @@ private type Choice is new Menu with null record; + overriding procedure Initialize + (This : in out Choice); + overriding procedure Finalize (This : in out Choice); @@ -84,3 +87,4 @@ private end FLTK.Widgets.Menus.Choices; + |