[Pkg] Installer: Installer-Launcher-mtf.7.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Wed Jul 23 12:09:18 UTC 2008
Matthew Fulmer uploaded a new version of Installer-Launcher 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].
!
More information about the Packages
mailing list