| window model list1 list2 list3 list4 button1 button2 text1 |
model _ SimpleGuiBuilder new.
window _ (SystemWindow labelled: 'UnnamedWindow') model: model.
list1 _ PluggableListMorph
	on: model
	list: #list
	selected: #index
	changeSelected: #index:
	menu: #listMenu:
	keystroke: #listKey:from:.
window 
	addMorph: list1
	frame: ((7/298)@(4/95) corner: (42/149)@(97/190)).
list2 _ PluggableListMorph
	on: model
	list: #list
	selected: #index
	changeSelected: #index:
	menu: #listMenu:
	keystroke: #listKey:from:.
window 
	addMorph: list2
	frame: ((43/149)@(9/190) corner: (77/149)@(31/76)).
list3 _ PluggableListMorph
	on: model
	list: #list
	selected: #index
	changeSelected: #index:
	menu: #listMenu:
	keystroke: #listKey:from:.
window 
	addMorph: list3
	frame: ((78/149)@(6/95) corner: (233/298)@(10/19)).
list4 _ PluggableListMorph
	on: model
	list: #list
	selected: #index
	changeSelected: #index:
	menu: #listMenu:
	keystroke: #listKey:from:.
window 
	addMorph: list4
	frame: ((473/596)@(5/76) corner: (283/298)@(10/19)).
button1 _ PluggableButtonMorph new
	on: model
	getState: #indicated
	action: #indicate
	label: nil
	menu: nil;
	label: 'unnamed'.
window 
	addMorph: button1
	frame: ((87/298)@(81/190) corner: (117/298)@(49/95)).
button2 _ PluggableButtonMorph new
	on: model
	getState: #indicated
	action: #indicate
	label: nil
	menu: nil;
	label: 'unnamed'.
window 
	addMorph: button2
	frame: ((60/149)@(81/190) corner: (309/596)@(49/95)).
text1 _ PluggableTextMorph 
	on: model 
	text: #contents 
	accept: #contents:notifying:
	readSelection: #contentsSelection
	menu: #codePaneMenu:shifted:.
window 
	addMorph: text1
	frame: ((3/149)@(10/19) corner: (146/149)@(37/38)).
window openInWorld