'From etoys4.0 of 9 October 2008 [latest update: #2229] on 23 June 2009 at 1:02:56 pm'!
"Change Set:		strtUpPjEncoding-KR
Date:			23 June 2009
Author:			Korakurider

SQ-265: Startup project name has to be decoded as VM-neutral encoding, not systemString.
"!


!ProjectLauncher methodsFor: 'running' stamp: 'KR 6/23/2009 12:38'!
startUpAfterLogin
	| scriptName loader isUrl |
	self setupMOPath.
	self setupFlaps.
	Preferences readDocumentAtStartup ifTrue: [
		HTTPClient isRunningInBrowser ifTrue:[
			self setupFromParameters.
			scriptName _ self parameterAt: 'src'.
			CodeLoader defaultBaseURL: (self parameterAt: 'Base').
		] ifFalse:[
			scriptName _ (SmalltalkImage current getSystemAttribute: 2) ifNil:[''].
			scriptName _ scriptName convertFromWithConverter: LanguageEnvironment defaultFileNameConverter.
			scriptName isEmpty ifFalse:[
				"figure out if script name is a URL by itself"
				isUrl _ (scriptName asLowercase beginsWith:'http://') or:[
						(scriptName asLowercase beginsWith:'file://') or:[
						(scriptName asLowercase beginsWith:'ftp://')]].
				isUrl ifFalse:[scriptName _ 'file:',scriptName]].
		]. ]
	ifFalse: [ scriptName := '' ].

	scriptName isEmptyOrNil
		ifTrue:[^Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]].
	loader _ CodeLoader new.
	loader loadSourceFiles: (Array with: scriptName).
	(scriptName asLowercase endsWith: '.pr') 
		ifTrue:[self installProjectFrom: loader]
		ifFalse:[loader installSourceFiles].
! !