'From etoys4.0 of 9 October 2008 [latest update: #2247] on 27 August 2009 at 12:26:51 pm'!
"Change Set:		cloudsFix-sw
Date:			27 August 2009
Author:			Scott Wallace

Reconsiders the logic introduced in 2250backToClouds-sw."!


!Project class methodsFor: 'utilities' stamp: 'sw 8/27/2009 11:39'!
returnToPreviousProject
	"Return to the project that sent me here, if any.  If appropriate, go to the 'clouds' project, if available, if eToyFriendly is turned on."

	| possible clouds |
	possible := CurrentProject previousProject.
	(possible isNil or: [possible isTopProject and: [Preferences eToyFriendly]])
		ifTrue:
			[clouds := self named: 'Etoys Activity'.
			clouds ifNotNil: [possible := clouds]].

	(possible notNil and: [possible ~~ CurrentProject])
		ifTrue:
			[possible enter: true revert: false saveForRevert: false]! !