[squeak-dev] The Trunk: System-nice.192.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 7 08:09:14 UTC 2009


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!




More information about the Squeak-dev mailing list