| window model list1 list2 list3 list4 button1 button2 text1 |
model _ Browser new.
window _ (SystemWindow labelled: 'My SystemBrowser') model: model.
list1 _ PluggableListMorph
	on: model
	list: #systemCategoryList
	selected: #systemCategoryListIndex
	changeSelected: #systemCategoryListIndex:
	menu: #systemCategoryMenu:
	keystroke: #systemCatListKey:from:.
window 
	addMorph: list1
	frame: ((7/298)@(4/95) corner: (42/149)@(97/190)).
list2 _ PluggableListMorph
	on: model
	list: #classList
	selected: #classListIndex
	changeSelected: #classListIndex:
	menu: #classListMenu:shifted:
	keystroke: #classListKey:from:.
window 
	addMorph: list2
	frame: ((43/149)@(9/190) corner: (77/149)@(31/76)).
list3 _ PluggableListMorph
	on: model
	list: #messageCategoryList
	selected: #messageCategoryListIndex
	changeSelected: #messageCategoryListIndex:
	menu: #messageCategoryMenu:
	keystroke: #arrowKey:from:.
window 
	addMorph: list3
	frame: ((78/149)@(6/95) corner: (233/298)@(10/19)).
list4 _ PluggableListMorph
	on: model
	list: #messageList
	selected: #messageListIndex
	changeSelected: #messageListIndex:
	menu: #listMenu:
	keystroke: #messageListMenu:shifted:.
window 
	addMorph: list4
	frame: ((473/596)@(5/76) corner: (283/298)@(10/19)).
button1 _ PluggableButtonMorph new
	on: model
	getState: #instanceMessagesIndicated
	action: #indicateInstanceMessages
	label: nil
	menu: nil;
	label: 'instance'.
window 
	addMorph: button1
	frame: ((87/298)@(81/190) corner: (117/298)@(49/95)).
button2 _ PluggableButtonMorph new
	on: model
	getState: #classMessagesIndicated
	action: #indicateClassMessages
	label: nil
	menu: nil;
	label: 'class'.
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