Class new title: NotifyWindow
	subclassof: PanedWindow
	fields: 'enoughpanes'
	declare: 'smallFrame smallTemplates bigTemplates '

aboutToFrame 
	[enoughpanes _ panes length = 6.
	super aboutToFrame]

classInit 
	[smallTemplates _ (0  0 rect: 36  36) inVector.
	bigTemplates _ (0  0 rect: 12  18) , (12  0 rect: 36  18) , (0  18 rect: 12  27) , (12  18 rect: 36  27) , (0  27 rect: 12  36) , (12  27 rect: 36  36).
	smallFrame _ 204  366 rect: 404  402]

enter | t1 t2 t3 t4 t5 t6 
	[enoughpanes  [super enter]
	NotifyFlag _ false.
	t1 _ panes  1.
	t2 _ CodePane new.
	t3 _ VariablePane new.
	t4 _ CodePane new.
	t5 _ VariablePane new.
	t6 _ CodePane new.
	self title: title with: t1 , t2 , t3 , t4 , t5 , t6 at: bigTemplates.
	self frame: frame.
	self show.
	t1 context: t3 instance: t5 code: t2.
	t2 from: t1.
	t3 to: t4.
	t4 from: t3.
	t5 to: t6.
	t6 from: t5.
	t1 select: 0.
	t1 deselected.
	t1 makeParagraph.
	t1 fill.
	t1 displayall.
	NotifyFlag _ true.
	enoughpanes _ NotifyFlag]

of: t1 level: t2 interrupt: t3 | t4 
	[NotifyFlag _ false.
	t4 _ StackPane new.
	self title: t1 with: t4 inVector at: smallTemplates.
	smallFrame moveto: [t2 > 1  [300  50]
	user screenrect center - (smallFrame extent / 2)].
	self frame: (self fixframe: smallFrame).
	self show.
	t4 context: false at: t2 instance: false code: false.
	t4 interrupt: t3.
	t4 of: (Top  t2) inVector.
	NotifyFlag _ true]

of: t1 stack: t2 interrupt: t3 | t4 
	[NotifyFlag _ false.
	t4 _ StackPane new.
	self title: t1 with: t4 inVector at: smallTemplates.
	smallFrame moveto: [Top currentPriority > 1  [300  50]
	user screenrect center - (smallFrame extent / 2)].
	self frame: (self fixframe: smallFrame).
	self show.
	t4 context: false instance: false code: false.
	t4 interrupt: t3.
	t4 of: t2 inVector.
	NotifyFlag _ true]