A new version of Installer-Launcher was added to project Installer: http://www.squeaksource.com/Installer/Installer-Launcher-mtf.7.mcz
==================== Summary ====================
Name: Installer-Launcher-mtf.7 Author: mtf Time: 17 July 2008, 9:01:16 pm UUID: 1b8710cf-0c30-4af8-b3a0-e14a759dc997 Ancestors: Installer-Launcher-mtf.6
no more underscore assignments
=============== Diff against Installer-Launcher-mtf.6 ===============
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]. !
packages@lists.squeakfoundation.org