[Pkg] Installer: Installer-Core-mtf.333.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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