From ba1719013e5bab82a2accb4aadfd8451c3ebc931 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 16 Jan 2025 12:17:46 +1300 Subject: Fixed bug in Fl_Choice binding, filled small hole in Fl_Menu_Button binding --- src/fltk-widgets.ads | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'src/fltk-widgets.ads') diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 5765196..03c3a59 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -433,6 +433,19 @@ private pragma Inline (fl_widget_set_label); + function fl_widget_get_type + (W : in Storage.Integer_Address) + return Interfaces.C.unsigned_char; + pragma Import (C, fl_widget_get_type, "fl_widget_get_type"); + pragma Inline (fl_widget_get_type); + + procedure fl_widget_set_type + (W : in Storage.Integer_Address; + T : in Interfaces.C.unsigned_char); + pragma Import (C, fl_widget_set_type, "fl_widget_set_type"); + pragma Inline (fl_widget_set_type); + + pragma Inline (Activate); pragma Inline (Deactivate); pragma Inline (Is_Active); -- cgit