From 26c270964941639d75d7a4dead0903116e5b62b0 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 16 May 2017 22:52:02 +1000 Subject: Bitmap images added --- src/fltk-images-bitmaps.ads | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 src/fltk-images-bitmaps.ads (limited to 'src/fltk-images-bitmaps.ads') 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; + -- cgit