with Xv_Base_Package,Xv_Frame_Package,Xv_Font_Package;
with Xv_Panel_Package,Xv_Menu_Package,Xv_Notice_Package;
use  Xv_Base_Package,Xv_Frame_Package,Xv_Font_Package;
use  Xv_Panel_Package,Xv_Menu_Package,Xv_Notice_Package;

package Demo4_Frame_Package is
  type Demo4_Frame is new Xv_Frame with private;
  type Demo4_Frame_Ptr is access all Demo4_Frame;

  Line1 : aliased String := "do you really want to quit?";
  Line2 : aliased String := "Press Yes to quit, or No to cancel";

  private
    type Demo4_Frame is new Xv_Frame with
    record
       Some_Data : Integer;
    end record;

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