package FLTK.Menu_Items is type Menu_Item is new Wrapper with private; function Value (Item : in Menu_Item) return Boolean; procedure Activate (Item : in Menu_Item); procedure Deactivate (Item : in Menu_Item); private type Menu_Item is new Wrapper with null record; end FLTK.Menu_Items;