-- demo2.adb with Text_Io,Xv_Base_Package,Demo2_Frame_Package; use Text_Io,Xv_Base_Package,Demo2_Frame_Package; procedure demo2 is -- Pointers to dynamically allocated objects Xview_Base : Xv_Base; Frame_Ptr : Demo2_Frame_Ptr; -- Create a couple of strings -- Put them in the list of strings begin -- Create the frame window frame_ptr := new Demo2_Frame; -- Here some exceptions are taken care of... exception when QUIT_PROGRAM => null; when STORAGE_ERROR => put ("demo2: No more memory... Terminating..."); new_line; when NO_OBJECT_CREATED => put ("demo2: object not created, maybe invalid data..."); new_line; end demo2;