[Pkg] Installer: Installer-Core-kph.311.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-kph.311.mcz

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

Name: Installer-Core-kph.311
Author: kph
Time: 24 February 2009, 8:11:07 am
UUID: b0839942-024a-11de-a647-000a95edb42a
Ancestors: Installer-Core-kph.309

isBootstrap initialize

load silently when isBootstrap is true.

=============== Diff against Installer-Core-kph.309 ===============

Item was added:
+ ----- Method: Installer>>install:from:using: (in category 'mantis') -----
+ install: aFileName from: stream using: installSelector
+ 
+ 		(self respondsTo: installSelector)
+ 			ifTrue: [ self perform: installSelector with: aFileName with: stream ]
+ 			ifFalse: [ self installDefault: aFileName from: stream ].
+ !

Item was added:
+ ----- Method: Installer>>installMCZBasic:from: (in category 'mantis') -----
+ installMCZBasic: aFileName from: stream 
+ 
+ 	| source |
+ 	
+  
+ 	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>>install:from: (in category 'mantis') -----
  install: aFileName from: stream
  
  | ext installSelector mcThing |
  	 
  	self log: ' installing...'.
   
  	self withAnswersDo:	[
  		
  		mcThing := self classMCReader ifNotNil: [ self mcThing: aFileName from: stream ].
  		
  		mcThing 
  			ifNotNil: [ (mcThing respondsTo: #install) 
  						ifTrue: [ mcThing install ]
  				        	ifFalse: [ (mcThing respondsTo: #load) ifTrue: [ mcThing load ] ]
  			]
  			ifNil: [ 
  		
  				ext := (aFileName copyAfterLast: $/) in: [ :path | path isEmpty ifTrue: [ aFileName ] ifFalse: [ path ] ].
  				ext :=  ext copyAfterLast: $..
  				ext = '' ifTrue: [ ext := 'st' ].
  				installSelector := ('install', ext asUppercase, ':from:') asSymbol.
  	
+ 				isBootstrap ifTrue: [ 
+ 				[
+ 					SystemChangeNotifier uniqueInstance doSilently: [self install: aFileName from: stream using: installSelector ]] 
+ 						on: Warning do: [ :ex | ex resume: true ].
+ 				] ifFalse: [
+ 					self install: aFileName from: stream using: installSelector. 
+ 				]
- 				(self respondsTo: installSelector)
- 					ifTrue: [ self perform: installSelector with: aFileName with: stream ]
- 					ifFalse: [ self installDefault: aFileName from: stream ].
  			]
  	]. 
  
  	self log: ' done.'
  !

Item was added:
+ ----- Method: Installer>>initialize (in category 'public interface') -----
+ initialize
+ 
+ 	isBootstrap := false.!

Item was added:
+ ----- Method: Installer>>inizialize (in category 'public interface') -----
+ inizialize
+ 
+ 	isBootstrap := false.!