From 82ec0d8c8d1ba164aa2d29c8f1203730aa51988c Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 29 Jan 2025 13:38:11 +1300
Subject: Raises of Internal_FLTK_Error now come with error messages

---
 body/fltk-tooltips.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'body/fltk-tooltips.adb')

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;
 
 
-- 
cgit