summaryrefslogtreecommitdiff
path: root/src/fltk-images-bitmaps-xbm.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-images-bitmaps-xbm.ads')
-rw-r--r--src/fltk-images-bitmaps-xbm.ads3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/fltk-images-bitmaps-xbm.ads b/src/fltk-images-bitmaps-xbm.ads
index 986a192..a242538 100644
--- a/src/fltk-images-bitmaps-xbm.ads
+++ b/src/fltk-images-bitmaps-xbm.ads
@@ -5,6 +5,9 @@ package FLTK.Images.Bitmaps.XBM is
type XBM_Image is new Bitmap with private;
+ type XBM_Image_Reference (Data : not null access XBM_Image'Class) is limited null record
+ with Implicit_Dereference => Data;
+