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

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

Name: Installer-Core-DamienCassou.325
Author: DamienCassou
Time: 16 November 2009, 2:25:44 pm
UUID: 07d3fffe-63fb-4908-b583-933016b1f81f
Ancestors: Installer-Core-kph.324

- Removes obsolete references 

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

Item was changed:
  ----- Method: Installer>>installMCcs:from: (in category 'mantis') -----
  installMCcs: aFileName from: stream 
  
  	| reader |
  	
+ 	reader := Smalltalk at: #MCCsReader ifPresent: [:class | class on: stream].!
- 	reader := MCCsReader on: stream.!

Item was changed:
  ----- Method: InstallerCruft>>createRBforBug: (in category 'mantis') -----
  createRBforBug: aBugNo 
  	| aStream  fileList selFile aFileName |
  
  	self setBug: aBugNo.
  fileList := self maFiles keys asOrderedCollection.
  fileList  addLast: 'none'.
+ (Smalltalk classNamed: #ReleaseBuilderFor3dot10) clear.
- ReleaseBuilderFor3dot10 clear.
  [selFile := UIManager default chooseFrom: fileList title: 'Choose what files load '.
  selFile = fileList size ifFalse:[
  aFileName := fileList at: selFile.
  	self logCR: 'obtaining ', aFileName, '...'.
  
  	aStream := self maStreamForFile: aFileName .
+ 	(Smalltalk classNamed: #ReleaseBuilderFor3dot10) current packagesInfluenced: aStream named: aFileName.
- 	ReleaseBuilderFor3dot10 current packagesInfluenced: aStream named: aFileName.
  	
  	self installCS: aFileName from: aStream].selFile = fileList size]whileFalse.
  	
+ 	(Smalltalk classNamed: #ReleaseBuilderFor3dot10) current newUpdateFor: aBugNo
- 	ReleaseBuilderFor3dot10 current newUpdateFor: aBugNo
  	
  	
  	!

Item was removed:
- ----- Method: Installer class>>scripts (in category 'internal scripts') -----
- scripts
- 
- 	^ InstallerScripts new!

Item was removed:
- ----- Method: InstallerCruft>>user: (in category 'accessing') -----
- user: anObject
- 
- 	user := anObject!

Item was removed:
- ----- Method: InstallerCruft>>user (in category 'accessing') -----
- user
- 
- 	^ user ifNil: [ '' ]!