1 files changed, 39 insertions, 0 deletions
diff --git a/src/fltk-errors.ads b/src/fltk-errors.ads
new file mode 100644
index 0000000..6cdea54
--- /dev/null
+++ b/src/fltk-errors.ads
@@ -0,0 +1,39 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+package FLTK.Errors is
+
+
+    type Error_Function is not null access procedure
+           (Message : in String);
+
+
+    procedure Default_Warning
+           (Message : in String);
+
+    procedure Default_Error
+           (Message : in String);
+
+    procedure Default_Fatal
+           (Message : in String);
+
+
+    Current_Warning : Error_Function := Default_Warning'Access;
+    Current_Error   : Error_Function := Default_Error'Access;
+    Current_Fatal   : Error_Function := Default_Fatal'Access;
+
+
+private
+
+
+    pragma Inline (Default_Warning);
+    pragma Inline (Default_Error);
+    pragma Inline (Default_Fatal);
+
+
+end FLTK.Errors;
+
+