[Pkg] 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 Packages
mailing list