[Pkg] Installer: Installer-Core-edc.85.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Feb 4 04:18:18 UTC 2010
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-edc.85.mcz
==================== Summary ====================
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-edc.84 ===============
Item was changed:
----- Method: Installer>>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'.
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 .
- ReleaseBuilderFor3dot10 current packagesInfluenced: aStream named: aFileName.
-
- self installCS: aFileName from: aStream].selFile = fileList size]whileFalse.
- ReleaseBuilderFor3dot10 current newUpdateFor: aBugNo
+ ReleaseBuilderFor3dot10 current newUpdateFor: aBugNo
+
+
!
Item was added:
+ ----- Method: Installer>>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 !
More information about the Packages
mailing list