diff options
Diffstat (limited to 'body/fltk-widgets-groups-wizards.adb')
| -rw-r--r-- | body/fltk-widgets-groups-wizards.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/body/fltk-widgets-groups-wizards.adb b/body/fltk-widgets-groups-wizards.adb index eb604a1..06aa1e9 100644 --- a/body/fltk-widgets-groups-wizards.adb +++ b/body/fltk-widgets-groups-wizards.adb @@ -193,7 +193,8 @@ package body FLTK.Widgets.Groups.Wizards is end if; return Actual_Widget; exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Fl_Wizard::value returned Widget with no user_data reference back to Ada"; end Get_Visible; |