with Xv_Base_Package,Xv_Frame_Package,Xv_Panel_Package;
use  Xv_Base_Package,Xv_Frame_Package,Xv_Panel_Package;

package Demo1_Frame_Package is
  type Demo1_Frame is new Xv_Frame with private;
  type Demo1_Frame_Ptr is access all Demo1_Frame;

  private
    type Demo1_Frame is new Xv_Frame with
    record
       Panel_Ptr  : Xv_Panel_Ptr;
       Button_Ptr : Xv_Panel_Button_Ptr;
       Some_Data  : Integer;
    end record;

    procedure Initialize (V : in out Demo1_Frame);
    procedure Finalize (V : in out Demo1_Frame);
    procedure Quit_Func(Item : Panel_Item;  Event : Integer);
end Demo1_Frame_Package;