The Trunk: System-mt.887.mcz

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@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.!