1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
package FLTK.Images.RGB is type RGB_Image is new Image with private; private type RGB_Image is new Image with null record; overriding procedure Finalize (This : in out RGB_Image); end FLTK.Images.RGB;