The Trunk: System-nice.192.mcz

Nicolas Cellier uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-nice.192.mcz

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

Name: System-nice.192
Author: nice
Time: 7 December 2009, 9:08:57 am
UUID: 97d4afca-6397-284d-9b0f-008afa52b5ee
Ancestors: System-dtl.191

Avoid two fixTemps and an overwritten block argument

=============== Diff against System-dtl.191 ===============

Item was changed:
  ----- Method: MczInstaller>>associate: (in category 'utilities') -----
  associate: tokens
  | result |
  result := Dictionary new.
  tokens pairsDo: [:key :value |
+ | overwrittenValue |
+ overwrittenValue := value.
+ value isString ifFalse: [overwrittenValue := value collect: [:ea | self associate: ea]].
+ value == 'nil' ifTrue: [overwrittenValue := ''].
+ result at: key put: overwrittenValue].
- value isString ifFalse: [value := value collect: [:ea | self associate: ea]].
- value = 'nil' ifTrue: [value := ''].
- result at: key put: value].
  ^ result!

Item was changed:
+ ----- Method: AutoStart class>>startUp: (in category 'initialization') -----
- ----- Method: AutoStart class>>startUp: (in category 'class 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 := AbstractLauncher extractParameters.
  (startupParameters includesKey: 'apiSupported' asUppercase )
  ifTrue: [
  HTTPClient browserSupportsAPI: ((startupParameters at: 'apiSupported' asUppercase) asUppercase = 'TRUE').
  HTTPClient isRunningInBrowser
  ifFalse: [HTTPClient isRunningInBrowser: true]].
  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]]]!
- Smalltalk at: #WorldState ifPresent: [ :ws | ws addDeferredUIMessage: [launcher startUp] fixTemps]]!

Item was changed:
  ----- Method: ExternalDropHandler class>>defaultImageHandler (in category 'private') -----
  defaultImageHandler
- | image sketch |
  ^ExternalDropHandler
  type: 'image/'
  extension: nil
  action: [:stream :pasteUp :event |
+ | image sketch |
  stream binary.
  image := Form fromBinaryStream: ((RWBinaryOrTextStream with: stream contents) reset).
  Project current resourceManager
  addResource: image
  url: (FileDirectory urlForFileNamed: stream name) asString.
  sketch := World drawingClass withForm: image.
  pasteUp addMorph: sketch centeredNear: event position.
+ image := sketch := nil]!
- image := sketch := nil] fixTemps!