Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.658.mcz==================== Summary ====================
Name: System-fbs.658
Author: fbs
Time: 6 January 2014, 11:50:41.694 am
UUID: a25d3acd-a82d-6a4f-aa8e-30e1a024cce7
Ancestors: System-dtl.657
Now that we've separated the update stream logic into its own package, we need to handle the case where an image doesn't have UdpateStream installed.
=============== Diff against System-dtl.657 ===============
Item was changed:
----- Method: AutoStart class>>startUp: (in category 'initialization') -----
startUp: resuming
"The image is either being newly started (resuming is true), or it's just been snapshotted.
If this has just been a snapshot, skip all the startup stuff."
| startupParameters launchers |
self active ifTrue: [^self].
self active: true.
resuming ifFalse: [^self].
HTTPClient determineIfRunningInBrowser.
startupParameters := Smalltalk namedArguments.
(startupParameters includesKey: 'apiSupported' asUppercase )
ifTrue: [
HTTPClient browserSupportsAPI: ((startupParameters at: 'apiSupported' asUppercase) asUppercase = 'TRUE').
HTTPClient isRunningInBrowser
ifFalse: [HTTPClient isRunningInBrowser: true]].
+ "Some images might not have the UpdateStream package."
+ ((self respondsTo: #checkForUpdates) and: [self checkForUpdates]) ifTrue: [^self].
- self checkForUpdates
- ifTrue: [^self].
self checkForPluginUpdate.
launchers := self installedLaunchers collect: [:launcher |
launcher new].
launchers do: [:launcher |
launcher parameters: startupParameters].
launchers do: [:launcher |
Smalltalk at: #WorldState ifPresent: [ :ws | ws addDeferredUIMessage: [launcher startUp]]]!