Class new title: SelectorPane
	subclassof: ListPane
	fields: 'organizationPane codePane'
	declare: 'editmenu '

classInit 
	[editmenu _ Menu new string: 'spawn
forget']

close 
	[organizationPane _ nil.
	super close]

compile: t1 
	[organizationPane compile: t1]

compile: t1 in: t2 under: t3 
	[codePane compile: t1 in: t2 under: t3]

deselected 
	[codePane showing: organizationPane noCode]

dirty 
	[codePane dirty]

execute: t1 for: t2 
	[codePane _ t2.
	codePane execute: t1 in: false to: nil]

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

selected 
	[codePane showing: (organizationPane code: list  selection)]

yellowbug | t1 
	[selection = 0  [window flash]
	scrollBar hidewhile 
		[t1 _ editmenu bug.
		[t1 = 1  [organizationPane spawn: list  selection with: codePane contents formerly: codePane oldContents]
		t1 = 2  [organizationPane forget: list  selection]
		nil]]]