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

(limited to 'src/fltk-widgets-groups-help_views.adb')

diff --git a/src/fltk-widgets-groups-help_views.adb b/src/fltk-widgets-groups-help_views.adb
index b5ed154..715e2ca 100644
--- a/src/fltk-widgets-groups-help_views.adb
+++ b/src/fltk-widgets-groups-help_views.adb
@@ -423,7 +423,7 @@ package body FLTK.Widgets.Groups.Help_Views is
         if Code = -1 then
             raise Load_Help_Error;
         elsif Code /= 0 then
-            raise Program_Error;
+            raise Internal_FLTK_Error;
         end if;
     end Load;
 
-- 
cgit