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

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

Name: Installer-Core-mtf.327
Author: mtf
Time: 3 February 2010, 11:46:07 pm
UUID: 9c705285-c4ec-413f-b43b-ed192fdf36ab
Ancestors: Installer-Core-mtf.326, Installer-Core-edc.85

merged Installer-Core-edc.85 from trunk:

Name: Installer-Core-edc.85
Author: edc
Time: 10 May 2007, 4:28:46 pm
UUID: cae66ab9-e663-488e-b87e-a35548dd719d
Ancestors: Installer-Core-edc.84

Now manage all kinds of original Mantis code as gz, mcz, sar

=============== Diff against Installer-Core-mtf.326 ===============

Item was changed:
  ----- Method: InstallerCruft>>createRBforBug: (in category 'mantis') -----
  createRBforBug: aBugNo 
+ 	| aStream  fileList selFile aFileName suffix |
- 	| aStream  fileList selFile aFileName |
  
  	self setBug: aBugNo.
  fileList := self maFiles keys asOrderedCollection.
  fileList  addLast: 'none'.
  (Smalltalk classNamed: #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 .suffix := (FileDirectory extensionFor: aFileName) asLowercase.
+ 	
+ 	suffix caseOf:
+ 	{
+ ['gz'] -> [self installGZ: aFileName from: aStream ].
+ ['cs' ] -> [self installCS: aFileName from: aStream].
+ ['mcz' ] -> [self installMCZ: aFileName from: aStream ].
+ ['sar'] -> [self installSAR: aFileName from: aStream ].
+ }otherwise: [Error].
+ ].selFile = fileList size]whileFalse.
- 	aStream := self maStreamForFile: aFileName .
- 	(Smalltalk classNamed: #ReleaseBuilderFor3dot10) current packagesInfluenced: aStream named: aFileName.
- 	
- 	self installCS: aFileName from: aStream].selFile = fileList size]whileFalse.
  	
- 	(Smalltalk classNamed: #ReleaseBuilderFor3dot10) current newUpdateFor: aBugNo
  	
  	
+ 	(Smalltalk classNamed: #ReleaseBuilderFor3dot10) current newUpdateFor: aBugNo
+ 	
+ 	
  	!

Item was added:
+ ----- Method: InstallerCruft>>preambleCsForRB: (in category 'mantis') -----
+ preambleCsForRB: aBugNo
+ "
+ Installer mantis preambleCsForRB: 5936.
+ "
+ 	| page text   | 
+ 
+ 	self setBug: aBugNo.
+ 	
+ 	page := self maPage.
+  
+ 	text := String streamContents: [ :str |	
+ 			
+ 		#('Reporter'  'Summary' 'Description' 'Additional Information' ) 
+ 				do: [ :field |
+ 						| f |
+ 						f := self maRead: page field: field.
+ 			str nextPutAll: f key; nextPutAll: ': '; nextPutAll: f value; cr.
+ 		]
+ 	].
+  	
+ ^ text	!