1 2 3 4 5 6 7 8 9 10 11 12 13 14
package body FLTK.Images.RGB is overriding procedure Finalize (This : in out RGB_Image) is begin Finalize (Image (This)); end Finalize; end FLTK.Images.RGB;