'From etoys3.0 of 24 February 2008 [latest update: #2099] on 26 August 2008 at 9:32:38 am'!
"Change Set:		notUCQuit-sw
Date:			26 August 2008
Author:			Scott Wallace

Remove an infelicitous capitalization."!


!PasteUpMorph methodsFor: '*green' stamp: 'sw 8/26/2008 09:31'!
quitSqueak
	"Obtain a confirmation from the user, and if the answer is true, quite Squeak summarily.  If running under Sugar, quit wiithout the confirmation dialog.  Not current in the flow-of-control, but useful to call if one were to implement a ctl-q shortcut for quitting (currently done by Sugar if running under sugar.)"

	SugarLauncher isRunningInSugar
		ifTrue: [^ SugarLauncher current quit].

	(self confirm: 'Are you sure you want to quit Etoys?' translated) ifFalse: [^ self].
	
	SmalltalkImage current snapshot: false andQuit: true
! !


!ProjectNavigationMorph methodsFor: 'the actions' stamp: 'sw 8/26/2008 09:32'!
quitSqueak
	"Obtain a confirmation from the user, and if the answer is true, quit Squeak summarily"

	(self confirm: 'Are you sure you want to quit Etoys?' translated) ifFalse: [^ self].
	
	SmalltalkImage current snapshot: false andQuit: true
! !