From df63542510b6912405f3709b204ad3a59548c917 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 1 Dec 2024 13:34:58 +1300
Subject: Improved specificity of exceptions with Internal_FLTK_Error and
 Storage_Error

---
 src/fltk-draw.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/fltk-draw.adb')

diff --git a/src/fltk-draw.adb b/src/fltk-draw.adb
index 1a87285..42b3d26 100644
--- a/src/fltk-draw.adb
+++ b/src/fltk-draw.adb
@@ -673,7 +673,7 @@ package body FLTK.Draw is
         elsif Result = 0 then
             return False;
         else
-            raise Program_Error;
+            raise Internal_FLTK_Error;
         end if;
     end Can_Do_Alpha_Blending;
 
@@ -1215,7 +1215,7 @@ package body FLTK.Draw is
             Interfaces.C.int (H),
             Interfaces.C.int (Alpha));
         if Buffer /= Storage.To_Integer (Result (Result'First)'Address) then
-            raise Program_Error;
+            raise Internal_FLTK_Error;
         end if;
         return Result;
     end Read_Image;
@@ -1240,7 +1240,7 @@ package body FLTK.Draw is
         if Ret_Val = 0 then
             raise Draw_Error;
         elsif Ret_Val /= 1 then
-            raise Program_Error;
+            raise Internal_FLTK_Error;
         end if;
     end Add_Symbol;
 
@@ -1407,7 +1407,7 @@ package body FLTK.Draw is
         if Ret_Val = 0 then
             raise Draw_Error;
         elsif Ret_Val /= 1 then
-            raise Program_Error;
+            raise Internal_FLTK_Error;
         end if;
     end Draw_Symbol;
 
-- 
cgit