Class new title: ClassPane
	subclassof: ListPane
	fields: 'systemPane organizationPane'
	declare: 'editmenu '

classInit 
	[editmenu _ Menu new string: 'filout
print
forget']

close 
	[systemPane _ nil.
	super close]

compile: t1 
	[systemPane compile: t1]

deselected 
	[organizationPane class: nil]

dirty 
	[organizationPane dirty]

from: t1 to: t2 
	[systemPane _ t1.
	organizationPane _ t2]

noCode 
	[selection = 0  [systemPane noCode]
	'']

selected 
	[organizationPane class: Smalltalk  (list  selection)]

yellowbug | t1 
	[selection = 0  [window flash]
	t1 _ editmenu bug.
	t1 = 1  [(Smalltalk  (list  selection)) filout]
	t1 = 2  [(Smalltalk  (list  selection)) printout]
	t1 = 3  [systemPane forget: list  selection]]