[Pkg] The Trunk: System-fbs.658.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jan 6 11:52:19 UTC 2014

Frank Shearar uploaded a new version of System to project The Trunk:

==================== 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]]]!

More information about the Packages mailing list