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-asks.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/fltk-asks.adb') diff --git a/src/fltk-asks.adb b/src/fltk-asks.adb index 2a70358..eba4dbb 100644 --- a/src/fltk-asks.adb +++ b/src/fltk-asks.adb @@ -396,7 +396,7 @@ package body FLTK.Asks is case Result is when -3 .. -1 => return Extended_Choice_Result'Val (Result + 6); when 0 .. 2 => return Extended_Choice_Result'Val (Result); - when others => raise Program_Error; + when others => raise Internal_FLTK_Error; end case; end Extended_Choice; @@ -415,7 +415,7 @@ package body FLTK.Asks is case Result is when -3 .. -1 => return Extended_Choice_Result'Val (Result + 6); when 0 .. 2 => return Extended_Choice_Result'Val (Result); - when others => raise Program_Error; + when others => raise Internal_FLTK_Error; end case; end Extended_Choice; @@ -435,7 +435,7 @@ package body FLTK.Asks is case Result is when -3 .. -1 => return Extended_Choice_Result'Val (Result + 6); when 0 .. 2 => return Extended_Choice_Result'Val (Result); - when others => raise Program_Error; + when others => raise Internal_FLTK_Error; end case; end Extended_Choice; @@ -507,7 +507,7 @@ package body FLTK.Asks is elsif Result = 0 then return Cancel; else - raise Program_Error; + raise Internal_FLTK_Error; end if; end Color_Chooser; @@ -534,7 +534,7 @@ package body FLTK.Asks is elsif Result = 0 then return Cancel; else - raise Program_Error; + raise Internal_FLTK_Error; end if; end Color_Chooser; -- cgit