Class new title: CodeWindow
	subclassof: PanedWindow
	fields: ''
	declare: 'stdTemplates '

class: t1 selector: t2 para: t3 formerly: t4 | t5 
	[t5 _ CodePane new class: t1 selector: t2 para: nil.
	self title: t1 title + ' ' + t2 with: t5 inVector at: stdTemplates.
	self newframe.
	self show.
	t5 showing: t3.
	t5 formerly: t4.
	t5 from: t5]

classInit 
	[stdTemplates _ (0  0 rect: 36  36) inVector]

editTitle 
	[titleframe window flash]

file: t1 | t2 
	[t2 _ FilePane new file: t1.
	self title: t1 name with: t2 inVector at: stdTemplates.
	self newframe.
	self show.
	t2 showing: t1 contents asParagraph.
	t2 from: t2]