[Pkg] Installer: Installer-Core-mtf.333.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Feb 4 15:09:22 UTC 2010
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-mtf.333.mcz
==================== Summary ====================
Name: Installer-Core-mtf.333
Author: mtf
Time: 4 February 2010, 10:09:08 am
UUID: dd7464e4-f7eb-4446-97ad-11dbd882882c
Ancestors: Installer-Core-mtf.332, Installer-Core-ul.91
merged Installer-Core-ul.91 from trunk. I additionally found all senders of #ifNotNilDo: and made sure they used only zero-argument blocks, for portability. Passing a one-argument block to #ifNotNil: and friends is not portable
Name: Installer-Core-ul.91
Author: ul
Time: 12 December 2009, 2:23:15 am
UUID: 51e9f361-7e14-ba4a-aa96-5cf37ba5820b
Ancestors: Installer-Core-nice.90
- replace sends of #ifNotNilDo: to #ifNotNil:, #ifNil:ifNotNilDo: to #ifNil:ifNotNil:, #ifNotNilDo:ifNil: to #ifNotNil:ifNil:
=============== Diff against Installer-Core-mtf.332 ===============
Item was changed:
----- Method: InstallerMantis>>date: (in category 'accessing') -----
date: anObject
+ date := anObject ifNotNil: [anObject asDate ]!
- date := anObject ifNotNilDo: [ :d | d asDate ]!
Item was changed:
----- Method: Installer>>installMCZBasic:from: (in category 'mantis') -----
installMCZBasic: aFileName from: stream
| source |
+ self classMczInstaller ifNotNil: [^ self classMczInstaller install: aFileName stream: stream].
- self classMczInstaller ifNotNilDo: [ :reader | ^ reader install: aFileName stream: stream].
source := ((ZipArchive new readFrom:stream) memberNamed: 'snapshot/source.st') contents.
[
SystemChangeNotifier uniqueInstance doSilently: [
source readStream fileInAnnouncing: 'Booting ' , aFileName.
]
] on: Warning do: [ :ex | ex resume: true ].!
Item was changed:
----- Method: Installer>>installMCZ:from: (in category 'mantis') -----
installMCZ: aFileName from: stream
| source pkg wc |
pkg := aFileName copyUpToLast: $-.
wc := Smalltalk at: #MCWorkingCopy ifAbsent: [ nil ].
wc ifNotNil: [
(wc allManagers select: [:each | each packageName = pkg ]) do: [ :ea | ea unregister ]
].
+ self classMczInstaller ifNotNil: [^ self classMczInstaller install: aFileName stream: stream].
- self classMczInstaller ifNotNilDo: [ :reader | ^ reader install: aFileName stream: stream].
source := ((ZipArchive new readFrom:stream) memberNamed: 'snapshot/source.st') contents.
[
SystemChangeNotifier uniqueInstance doSilently: [
source readStream fileInAnnouncing: 'Booting ' , aFileName.
]
] on: Warning do: [ :ex | ex resume: true ].!
More information about the Packages
mailing list