diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-16 12:17:46 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-16 12:17:46 +1300 |
| commit | ba1719013e5bab82a2accb4aadfd8451c3ebc931 (patch) | |
| tree | 0ce67b8257b0ed05e50704ec6a808aac0659816b /src/fltk-widgets-menus-choices.ads | |
| parent | 106316bcedec72c5380a7544c27be6a5c117e57a (diff) | |
Fixed bug in Fl_Choice binding, filled small hole in Fl_Menu_Button binding
Diffstat (limited to 'src/fltk-widgets-menus-choices.ads')
| -rw-r--r-- | src/fltk-widgets-menus-choices.ads | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/src/fltk-widgets-menus-choices.ads b/src/fltk-widgets-menus-choices.ads index 86ddd60..6d12fc9 100644 --- a/src/fltk-widgets-menus-choices.ads +++ b/src/fltk-widgets-menus-choices.ads @@ -27,21 +27,27 @@ package FLTK.Widgets.Menus.Choices is - function Get_Chosen - (This : in Choice) - return FLTK.Menu_Items.Menu_Item_Reference; - function Chosen_Index (This : in Choice) return Extended_Index; procedure Set_Chosen + (This : in out Choice; + Item : in FLTK.Menu_Items.Menu_Item); + + function Set_Chosen + (This : in out Choice; + Item : in FLTK.Menu_Items.Menu_Item) + return Boolean; + + procedure Set_Chosen (This : in out Choice; Place : in Index); - procedure Set_Chosen - (This : in out Choice; - Item : in FLTK.Menu_Items.Menu_Item); + function Set_Chosen + (This : in out Choice; + Place : in Index) + return Boolean; @@ -77,7 +83,6 @@ private with Inline; - pragma Inline (Chosen); pragma Inline (Chosen_Index); pragma Inline (Set_Chosen); |