diff options
Diffstat (limited to 'body/fltk-tooltips.adb')
| -rw-r--r-- | body/fltk-tooltips.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/body/fltk-tooltips.adb b/body/fltk-tooltips.adb index ccdb649..9c7d9ad 100644 --- a/body/fltk-tooltips.adb +++ b/body/fltk-tooltips.adb @@ -189,7 +189,8 @@ package body FLTK.Tooltips is end if; return Actual_Widget; exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Widget returned by Fl_Tooltip::current did not have user_data reference back to Ada"; end Get_Target; |