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.ads | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/fltk.ads')

diff --git a/src/fltk.ads b/src/fltk.ads
index e0ebf1c..3a0e332 100644
--- a/src/fltk.ads
+++ b/src/fltk.ads
@@ -21,12 +21,15 @@ package FLTK is
     --  This is necessary so things like Text_Buffers and
     --  Widgets can talk to each other behind the binding.
     type Wrapper is new Ada.Finalization.Limited_Controlled with private;
-        --  with Type_Invariant => Is_Valid (Wrapper);
 
     function Is_Valid
            (Object : in Wrapper)
         return Boolean;
 
+    --  If this is ever raised it means FLTK has returned a value or otherwise
+    --  acted in a way that the binding really did not expect.
+    Internal_FLTK_Error : exception;
+
 
 
 
-- 
cgit