Bitmap images added

1 files changed, 31 insertions, 0 deletions

diff --git a/src/fltk-images-bitmaps.ads b/src/fltk-images-bitmaps.ads
new file mode 100644
index 0000000..d209b4a
--- /dev/null
+++ b/src/fltk-images-bitmaps.ads
@@ -0,0 +1,31 @@
+
+
+package FLTK.Images.Bitmaps is
+
+
+    type Bitmap is new Image with private;
+
+
+    function Copy
+           (This          : in Bitmap;
+            Width, Height : in Natural)
+        return Bitmap;
+
+
+    function Copy
+           (This : in Bitmap)
+        return Bitmap;
+
+
+private
+
+
+    type Bitmap is new Image with null record;
+
+
+    overriding procedure Finalize
+           (This : in out Bitmap);
+
+
+end FLTK.Images.Bitmaps;
+