Class new title: ProjectWindow
	subclassof: Window
	fields: 'userview parent changes'
	declare: 'actionMenu '

classInit 
	[actionMenu _ Menu new string: 'enter']

close 
	[parent _ nil.
	userview _ parent]

init 
	[self userview: (user copyIn: self) changes: HashSet init parent: user projectWindow.
	self newframe.
	self show]

install 
	[Changes _ changes.
	user _ userview.
	user install.
	self putTitle.
	user restart]

putTitle 
	[[titlepara  nil  [titlepara _ 'Top View' asParagraph allBold]].
	titleframe put: titlepara centered: user screenrect extent x / 3  8.
	titleframe outline]

runParent 
	[parent install]

userview: t1 changes: t2 parent: t3 
	[userview _ t1.
	changes _ t2.
	parent _ t3]

yellowbug 
	[actionMenu bug = 1  [self install]]