with FLTK.Images.RGB.PNG; package Adapad is procedure Set_Logo (Pic : in out FLTK.Images.RGB.PNG.PNG_Image); procedure Show; procedure Hide; end Adapad;