with Xv_Base_Package,Xv_Frame_Package,Xv_Font_Package; with Xv_Panel_Package,Xv_Menu_Package,Xv_Textsw_Package; with Xv_Ttysw_Package; use Xv_Base_Package,Xv_Frame_Package,Xv_Font_Package; use Xv_Panel_Package,Xv_Menu_Package,Xv_Textsw_Package; use Xv_Ttysw_Package; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; package Demo5_Frame_Package is type Demo5_Frame is new Xv_Frame with private; type Demo5_Frame_Ptr is access all Demo5_Frame; private type Demo5_Frame is new Xv_Frame with record Some_Data : Integer; end record; procedure Initialize (V : in out Demo5_Frame); procedure Finalize (V : in out Demo5_Frame); procedure Quit_Func(Item : Panel_Item; Event : Integer); end Demo5_Frame_Package;