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-environment.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/body/fltk-environment.adb b/body/fltk-environment.adb
index 22cf676..58c13d6 100644
--- a/body/fltk-environment.adb
+++ b/body/fltk-environment.adb
@@ -392,7 +392,7 @@ package body FLTK.Environment is
             return User;
         end if;
     exception
-    when Chk.Assertion_Error => raise Internal_FLTK_Error;
+    when Chk.Assertion_Error => raise Constraint_Error;
     end To_Scope;
 
 
-- 
cgit