'From etoys3.0 of 7 March 2008 [latest update: #2059] on 26 July 2008 at 8:10:37 pm'!
"Change Set:		welcome-bf
Date:			26 July 2008
Author:			Bert Freudenberg

Do not enter welcome project if SRC parameter given"!


!SugarLauncher methodsFor: 'commands' stamp: 'bf 7/26/2008 20:09'!
welcome: aUrl
	"Sent either when running from Sugar, or at regular startUp otherwise"

	aUrl isEmpty ifFalse: [
		| url |
		url := (aUrl includes: $/)
			ifTrue: [aUrl]
			ifFalse: ['file:', (parameters at: 'BUNDLE_PATH'), '/', aUrl].
		^(url endsWith: '.pr')
			ifTrue: [Project fromUrl: url]
			ifFalse: [WorldState addDeferredUIMessage: [FileStream fileIn: (url copyAfter: $:)]]].

	"only enter launcher if no script given on cmd line"
	(((SmalltalkImage current getSystemAttribute: 2) ifNil: ['']) notEmpty or: [self includesParameter: 'SRC'])
		ifTrue: [^self].

	Preferences eToyFriendly ifTrue: [
		(Project named: 'Etoys Activity') ifNotNilDo: [:p | p enter]].! !