'From etoys4.0 of 9 October 2008 [latest update: #2280] on 11 September 2009 at 3:07:10 am'!
"Change Set:		prevProject-bf
Date:			11 September 2009
Author:			Bert Freudenberg

Simplify prevButton logic: if there is no proper previous project, set the current project's parent  to the welcome screen (cloudy launcher), and exit to that."!


!Project class methodsFor: 'utilities' stamp: 'tk 10/26/1999 14:25'!
returnToPreviousProject
	"Return to the project from which this project was entered. Do nothing if the current project has no link to its previous project."

	| prevProj |
	prevProj _ CurrentProject previousProject.
	prevProj ifNotNil: [prevProj enter: true revert: false saveForRevert: false].
! !


!SugarNavigatorBar methodsFor: 'the actions' stamp: 'bf 9/11/2009 02:33'!
previousProject
	| prev welcome |
	Preferences eToyFriendly ifTrue: [
		prev := Project current previousProject.
		(prev isNil or: [prev isTopProject]) ifTrue: [
			welcome := Project named: SugarLauncher welcomeProjectName.
			welcome ifNotNil: [Project current setParent: welcome]]].
	super previousProject! !