summaryrefslogtreecommitdiff
path: root/src/fltk-errors.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-errors.ads')
-rw-r--r--src/fltk-errors.ads39
1 files changed, 0 insertions, 39 deletions
diff --git a/src/fltk-errors.ads b/src/fltk-errors.ads
deleted file mode 100644
index 6cdea54..0000000
--- a/src/fltk-errors.ads
+++ /dev/null
@@ -1,39 +0,0 @@
-
-
--- 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;
-
-