#Load in previous chapter, chapter 2.

	in ApplicationShell
		push file_menu

	in popup_fm_menu
		push fm_menu.fm_open

	in open_dialog_popup
		push Text	
	
		doubleclick Text
		type ./ch2_45.xd
		push open_dialog.OK


	in ApplicationShell
		doubleclick tree_da(label1,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Topping 1:
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(label2,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Topping 2:
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(label3,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Topping 3:
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(toggle3,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Vanilla
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(toggle4,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Chocolate
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(toggle5,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Strawberry
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(toggle1,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Large
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(toggle2,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Small
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(procedure_cascade,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Procedures
		push apply_button
		push cancel_button
	in ApplicationShell
		doubleclick tree_da(help_cascade,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Help
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(button1,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Cone
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(button2,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Dish
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(button3,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Cancel
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(button4,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Wash Dishes...
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(button5,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		key space
		type Count Money
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(exit_button,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type Exit
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(help_button,center)

	in label_dialog_popup
		option options_b::display_b
		doubleclick xd_xmstring_t
		type About This Layout
		push apply_button
		push cancel_button


	in ApplicationShell
		doubleclick tree_da(help_cascade,center)



	in label_dialog_popup
		option options_b::keyboard_b
		doubleclick label_mnemonic_t
		type H
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(help_button,center)

	in label_dialog_popup
		doubleclick label_mnemonic_t
		type A
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(exit_button,center)

	in label_dialog_popup
		doubleclick label_accel_t
		type Ctrl<Key>E
		push apply_button
		doubleclick xd_smstring_t
		type control+E
		push apply_button
		push cancel_button


	in ApplicationShell
		doubleclick tree_da(main_menu,center)

	in rowcol_dialog_popup
		option options_b::display_b
		doubleclick rc_help_t
		type help_cascade
		push apply_button
		push cancel_button

	in ApplicationShell
		push tree_da(text3,center)

		push tree_da(text2,center) with shift-button1

		push tree_da(text1,center) with shift-button1

		push wm_attr

	in text_dialog_popup
		push display_b
		doubleclick columns_t
		type 8
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(rowcol1,center)

	in rowcol_dialog_popup
		option options_b::settings_b
		option rc_orientation::rc_orientation_hor
		option rc_packing::rc_packing_column
		push apply_button
		option options_b::display_b
		doubleclick rc_columns_t
		type 3
		push apply_button
		push cancel_button

	in ApplicationShell
		doubleclick tree_da(myFirstShell,center)

	in dialog_dialog_popup
		push type_box.application_t
		option options_b::display_b
		doubleclick prmi_fc_t
		type Ice Cream Shop
		push apply_button
		push cancel_button

	in ApplicationShell
		push root_w(help_window,center)
		doubleclick tree_da(help_window,center)

	in dialog_dialog_popup
		push type_box.dialog_t
		option options_b::display_b
		doubleclick prmi_fc_t
		type Help
		push apply_button
		push cancel_button

	in ApplicationShell
		push tree_da(help_window,center)
		push wm_prim

	in core_dialog_popup
		option options_b::dimensions_b
		option options_b::settings_b
		option options_b::code_gen_b
		option options_b::prim_drop_site_b
		option options_b::display_b
		push cancel_button

	in ApplicationShell
		push root_w(myFirstShell,center)

	in ApplicationShell
		push tree_da(rowcol1,center)
		cascade wm_button
			select wm_menu.wm_constraint

	in form_constr_dialog_popup
		push cancel_button

