From df63542510b6912405f3709b204ad3a59548c917 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber 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-browsers.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/fltk-widgets-groups-browsers.adb') diff --git a/src/fltk-widgets-groups-browsers.adb b/src/fltk-widgets-groups-browsers.adb index 9798c89..bdf79e2 100644 --- a/src/fltk-widgets-groups-browsers.adb +++ b/src/fltk-widgets-groups-browsers.adb @@ -750,7 +750,7 @@ package body FLTK.Widgets.Groups.Browsers is Boolean'Pos (Do_Callbacks)); begin if Code not in 0 .. 1 then - raise Program_Error; + raise Internal_FLTK_Error; end if; return Boolean'Val (Code); end Set_Select; @@ -768,7 +768,7 @@ package body FLTK.Widgets.Groups.Browsers is Boolean'Pos (Do_Callbacks)); begin if Code not in 0 .. 1 then - raise Program_Error; + raise Internal_FLTK_Error; end if; return Boolean'Val (Code); end Select_Only; @@ -792,7 +792,7 @@ package body FLTK.Widgets.Groups.Browsers is Boolean'Pos (Do_Callbacks)); begin if Code not in 0 .. 1 then - raise Program_Error; + raise Internal_FLTK_Error; end if; return Boolean'Val (Code); end Deselect; @@ -816,7 +816,7 @@ package body FLTK.Widgets.Groups.Browsers is Cursor_To_Address (Item)); begin if Code not in 0 .. 1 then - raise Program_Error; + raise Internal_FLTK_Error; end if; return Boolean'Val (Code); end Is_Displayed; -- cgit