From 82ec0d8c8d1ba164aa2d29c8f1203730aa51988c Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Wed, 29 Jan 2025 13:38:11 +1300 Subject: Raises of Internal_FLTK_Error now come with error messages --- body/fltk-event.adb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'body/fltk-event.adb') diff --git a/body/fltk-event.adb b/body/fltk-event.adb index 4521fc2..186df71 100644 --- a/body/fltk-event.adb +++ b/body/fltk-event.adb @@ -364,7 +364,8 @@ package body FLTK.Event is end if; return Actual_Grab; exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Widget returned by Fl::grab did not have user_data reference back to Ada"; end Get_Grab; @@ -394,7 +395,8 @@ package body FLTK.Event is end if; return Actual_Pushed; exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Widget returned by Fl::pushed did not have user_data reference back to Ada"; end Get_Pushed; @@ -418,7 +420,8 @@ package body FLTK.Event is end if; return Actual_Below; exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Widget returned by Fl::belowmouse did not have user_data reference back to Ada"; end Get_Below_Mouse; @@ -442,7 +445,8 @@ package body FLTK.Event is end if; return Actual_Focus; exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Widget returned by Fl::focus did not have user_data reference back to Ada"; end Get_Focus; -- cgit