'From etoys3.1 of 21 November 2008 [latest update: #2176] on 8 December 2008 at 11:19:40 am'!
"Change Set:		dismissProjView-sw
Date:			8 December 2008
Author:			Scott Wallace

Fix for TRAC 9058.  Cannot delete a ProjectViewMorph that represents a remote project."!


!ProjectViewMorph methodsFor: 'as yet unclassified' stamp: 'sw 12/8/2008 11:18'!
expungeProject
	"Remove the icon representing the project."

	| top itsOwner |
	project okToChange ifFalse: [^ self].
	top := self topRendererOrSelf.
	itsOwner := top owner.
	itsOwner isSystemWindow
		ifTrue:
			[itsOwner model: nil;
				 delete]
		ifFalse:
			[top delete]
! !