diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-04 12:59:16 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-04 12:59:16 +1300 |
| commit | d9b29d2242b7384f4a9a0e7b424dd54fd9fcb740 (patch) | |
| tree | 65b86e10ab8cf6abbc20cddfc5100a505f17c2dd /body/fltk-widgets-groups-tables.adb | |
| parent | 2bc98da4d5b964de2d0d5e40927aa777704f2f29 (diff) | |
Filled holes in Fl_Widget binding
Diffstat (limited to 'body/fltk-widgets-groups-tables.adb')
| -rw-r--r-- | body/fltk-widgets-groups-tables.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/body/fltk-widgets-groups-tables.adb b/body/fltk-widgets-groups-tables.adb index 30cc642..061deb4 100644 --- a/body/fltk-widgets-groups-tables.adb +++ b/body/fltk-widgets-groups-tables.adb @@ -192,7 +192,7 @@ package body FLTK.Widgets.Groups.Tables is procedure fl_table_when (T : in Storage.Integer_Address; - W : in Interfaces.C.unsigned); + W : in Interfaces.C.unsigned_char); pragma Import (C, fl_table_when, "fl_table_when"); pragma Inline (fl_table_when); @@ -1109,7 +1109,7 @@ package body FLTK.Widgets.Groups.Tables is (This : in out Table; Value : in Callback_Flag) is begin - fl_table_when (This.Void_Ptr, Interfaces.C.unsigned (Value)); + fl_table_when (This.Void_Ptr, Flag_To_UChar (Value)); end Set_When; |