[Pkg] Installer: Installer-Launcher-mtf.5.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of Installer-Launcher was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Launcher-mtf.5.mcz

==================== Summary ====================

Name: Installer-Launcher-mtf.5
Author: mtf
Time: 10 June 2008, 8:20:26 pm
UUID: 62ebf200-ad98-470e-b1ea-93cc2403cd5a
Ancestors: Installer-Launcher-kph.4

no more underscore assignments

=============== Diff against Installer-Launcher-kph.4 ===============

Item was changed:
  ----- Method: ProjectLauncher>>startUpAfterLogin (in category '*installer-launcher') -----
  startUpAfterLogin
  	| scriptName loader isUrl |
  	self setupFlaps.
  	Preferences readDocumentAtStartup ifTrue: [
  		HTTPClient isRunningInBrowser ifTrue:[
  			self setupFromParameters.
+ 			scriptName := self parameterAt: 'src'.
- 			scriptName _ self parameterAt: 'src'.
  			CodeLoader defaultBaseURL: (self parameterAt: 'Base').
  		] ifFalse:[
+ 			scriptName := (SmalltalkImage current getSystemAttribute: 2) ifNil:[''].
+ 			scriptName := [ scriptName convertFromSystemString ] ifError: [ scriptName asString ].
- 			scriptName _ (SmalltalkImage current getSystemAttribute: 2) ifNil:[''].
- 			scriptName _ [ scriptName convertFromSystemString ] ifError: [ scriptName asString ].
  			scriptName isEmpty ifFalse:[
  				"figure out if script name is a URL by itself"
+ 				isUrl := (scriptName asLowercase beginsWith:'http://') or:[
- 				isUrl _ (scriptName asLowercase beginsWith:'http://') or:[
  						(scriptName asLowercase beginsWith:'file://') or:[
  						(scriptName asLowercase beginsWith:'ftp://')]].
  				isUrl ifFalse:[
  					Smalltalk at: scriptName asSymbol
  					ifPresent: [:launchClass | ^ Launcher newLaunchWith: SmalltalkImage current ].
  					
+ 					scriptName := 'file:', (FileDirectory default fullNameFor: scriptName) ]
- 					scriptName _ 'file:', (FileDirectory default fullNameFor: scriptName) ]
  				].
  		]. ]
  	ifFalse: [ scriptName := '' ].
  
  	scriptName isEmptyOrNil
  		ifTrue:[^Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]].
+ 	loader := CodeLoader new.
- 	loader _ CodeLoader new.
  	loader loadSourceFiles: (Array with: scriptName).
  	(scriptName asLowercase endsWith: '.pr') 
  		ifTrue:[self installProjectFrom: loader]
  		ifFalse:[loader installSourceFiles].
  !