diff options
Diffstat (limited to 'src/fltk-images-pixmaps-gif.ads')
-rw-r--r-- | src/fltk-images-pixmaps-gif.ads | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/fltk-images-pixmaps-gif.ads b/src/fltk-images-pixmaps-gif.ads new file mode 100644 index 0000000..18e31b9 --- /dev/null +++ b/src/fltk-images-pixmaps-gif.ads @@ -0,0 +1,33 @@ + + +package FLTK.Images.Pixmaps.GIF is + + + type GIF_Image is new Pixmap with private; + + type GIF_Image_Reference (Data : not null access GIF_Image'Class) is + limited null record with Implicit_Dereference => Data; + + + + + package Forge is + + function Create + (Filename : in String) + return GIF_Image; + + end Forge; + + +private + + + type GIF_Image is new Pixmap with null record; + + overriding procedure Finalize + (This : in out GIF_Image); + + +end FLTK.Images.Pixmaps.GIF; + |