Class new title: NotifyWindowNT
	subclassof: NotifyWindow
	fields: '
	'
	declare: ''

close | t1  
	[for t1 from: panes do
		[t1 close].
	self erase.
	user unschedule: self.
	thisContext restart]

title: t1 processFrame: t2 | t3 
	[NotifyFlag _ false.
	t3 _ StackPaneNT new.
	self title: t1 with: t3 inVector at: smallTemplates.
	smallFrame moveto: user screenrect center - (smallFrame extent / 2).
	self frame: (self fixframe: smallFrame).
	self show.
	t3 processFrame: t2.
	NotifyFlag _ true]