[Pkg] Installer: Installer-Core-mtf.326.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Feb 4 04:41:57 UTC 2010
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-mtf.326.mcz
==================== Summary ====================
Name: Installer-Core-mtf.326
Author: mtf
Time: 3 February 2010, 11:41:41 pm
UUID: dc784d97-aead-42aa-a7cf-b8df06e2f548
Ancestors: Installer-Core-kph.325, Installer-Core-DamienCassou.325
merged latest two versions
=============== Diff against Installer-Core-kph.325 ===============
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: InstallerCruft>>user: (in category 'accessing') -----
- user: anObject
-
- user := anObject!
Item was removed:
- ----- Method: InstallerCruft>>user (in category 'accessing') -----
- user
-
- ^ user ifNil: [ '' ]!
More information about the Packages
mailing list