Class new title: OrganizationPane
	subclassof: ListPane
	fields: 'classPane selectorPane class'
	declare: 'editmenu '

class: t1 
	[class _ t1.
	self of: (self listFor: class)]

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

close 
	[classPane _ nil.
	super close]

code: t1 
	[class code: t1]

compile: t1 | t2 t3 
	[class  nil or selection = 1  [classPane compile: t1]
	selection = 2 
		[class organization fromParagraph: t1.
		self class: class]
	t3 _ [selection = 0  ['As yet unclassified']
			list  selection].
	t2 _ selectorPane compile: t1 in: class under: t3.
	t2 
		[self revise: (self listFor: class) with: t3.
		selection  0  [selectorPane revise: (class organization category: t3) with: t2]]
	false]

deselected 
	[selectorPane of: (Vector new: 0)]

dirty 
	[selectorPane dirty]

execute: t1 
	[class  t1]

forget: t1 | t2 
	[class derstands: t1.
	t2 _ list  selection.
	self revise: (self listFor: class) with: t2.
	selection > 0  [selectorPane revise: (class organization category: t2) with: t1]]

from: t1 to: t2 
	[classPane _ t1.
	selectorPane _ t2]

listFor: t1 
	[class _ t1.
	[class  nil  [Vector new: 0]
	(ClassDefinition ClassOrganization ) concat: class organization categories]]

noCode 
	[class  nil  [classPane noCode]
	selection = 0  ['']
	selection = 1  [class definition]
	selection = 2  [class organization]
	'Message name and Arguments | Temporary variables "short comment"
	["long comment if necessary"
	Smalltalk
	Statements]']

selected 
	[selectorPane of: [selection 
 2  [Vector new: 0]
	class organization category: list  selection]]

spawn: t1 with: t2 formerly: t3 
	[selectorPane compselection.
	selectorPane select: 0.
	class edit: t1 para: t2 formerly: t3]

yellowbug | t1 
	[selection 
 1  [window flash]
	t1 _ editmenu bug.
	t1 = 1 
		[selection = 2  [class filoutOrganization]
		class filoutCategory: list  selection]
	t1 = 2 
		[selection = 2  [window flash]
		class printoutCategory: list  selection]]