[Pkg] The Trunk: System-mt.811.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 6 09:16:41 UTC 2016


Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.811.mcz

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

Name: System-mt.811
Author: mt
Time: 6 April 2016, 11:16:15.706625 am
UUID: 582451db-f36b-ca41-8510-d3b5505f8e8d
Ancestors: System-mt.810

Make start-up scripts work also in othere GUIs.

=============== Diff against System-mt.810 ===============

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 checkForPluginUpdate.
  	launchers := self installedLaunchers collect: [:launcher |
  		launcher new].
  	launchers do: [:launcher |
  		launcher parameters: startupParameters].
  	launchers do: [:launcher |
+ 		Project current addDeferredUIMessage: [launcher startUp]]!
- 		Smalltalk at: #WorldState ifPresent: [ :ws | ws addDeferredUIMessage: [launcher startUp]]]!



More information about the Packages mailing list