Finished up FLTK.Images and partially complete derivatives

1 files changed, 22 insertions, 0 deletions

diff --git a/src/fltk-images.ads b/src/fltk-images.ads
index 51f8443..3e47ee6 100644
--- a/src/fltk-images.ads
+++ b/src/fltk-images.ads
@@ -7,6 +7,8 @@ package FLTK.Images is
 
     type Blend is new Float range 0.0 .. 1.0;
 
+    No_Image_Error, File_Access_Error, Format_Error : exception;
+
 
 
 
@@ -40,6 +42,10 @@ package FLTK.Images is
     procedure Inactive
            (This : in out Image);
 
+    function Is_Empty
+           (This : in Image)
+        return Boolean;
+
 
 
 
@@ -56,6 +62,22 @@ package FLTK.Images is
         return Natural;
 
 
+
+
+    procedure Draw
+           (This : in Image;
+            X, Y : in Integer);
+
+    procedure Draw
+           (This       : in Image;
+            X, Y, W, H : in Integer;
+            CX, CY     : in Integer := 0);
+
+    procedure Draw_Empty
+           (This : in Image;
+            X, Y : in Integer);
+
+
 private