[squeak-dev] The Trunk: System-mt.887.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 14 08:18:40 UTC 2016


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

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

Name: System-mt.887
Author: mt
Time: 14 August 2016, 10:18:16.049039 am
UUID: 519906f0-8966-024f-b0b1-1959ff0af042
Ancestors: System-mt.886

Fix redundant World installing. Make image start-up faster. Fix resetting of author name on image start-up.

=============== Diff against System-mt.886 ===============

Item was changed:
  Object subclass: #AbstractLauncher
  	instanceVariableNames: 'parameters'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'System-Support'!
  
+ !AbstractLauncher commentStamp: 'mt 8/14/2016 10:08' prior: 0!
- !AbstractLauncher commentStamp: '<historical>' prior: 0!
  The class AutoStart in combination with the Launcher classes provides a mechanism for starting Squeak from the command line or a web page. Parameters on the command line or in the embed tag in the web page a parsed and stored in the lauchner's parameter dictionary.
  Subclasses can access these parameters to determine what to do.
  
  CommandLineLauncherExample provides an example for a command line application. if you start squeak with a command line 'class Integer' it will launch a class browser on class Integer.
  To enable this execute
  CommandLineLauncherExample activate
  before you save the image.
  To disable execute
  CommandLineLauncherExample deactivate
  
+ The PluginLauncher is an example how to use this framework to start Squeak as a browser plugin. It looks for a parameter 'src' which should point to a file containing a squeak script.!
- The PluginLauchner is an example how to use this framework to start Squeak as a browser plugin. It looks for a parameter 'src' which should point to a file containing a squeak script.!

Item was changed:
  ----- Method: AutoStart class>>checkForPluginUpdate (in category 'updating') -----
  checkForPluginUpdate
  	| pluginVersion updateURL |
- 	World 
- 		ifNotNil: [
- 			World install.
- 			ActiveHand position: 100 at 100].
  	HTTPClient isRunningInBrowser
  		ifFalse: [^false].
  	pluginVersion := Smalltalk namedArguments
  		at: (Smalltalk platformName copyWithout: Character space) asUppercase
  		ifAbsent: [^false].
  	updateURL := Smalltalk namedArguments
  		at: 'UPDATE_URL'
  		ifAbsent: [^false].
  	^SystemVersion check: pluginVersion andRequestPluginUpdate: updateURL!

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]].
+ 
+ 	World ifNotNil: [:w | w install. w firstHand position: 100 @ 100 ].
+ 			
  	"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]]!

Item was changed:
  ----- Method: ProjectLauncher>>startUp (in category 'running') -----
  startUp
+ 
- 	World ifNotNil: [World install].
- 	Utilities authorName: ''.
  	Preferences eToyLoginEnabled
+ 		ifTrue: [self doEtoyLogin]
+ 		ifFalse:[self startUpAfterLogin].!
- 		ifFalse:[^self startUpAfterLogin].
- 	self doEtoyLogin.!



More information about the Squeak-dev mailing list