A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-kph.57.mcz
==================== Summary ====================
Name: PackageInfo-Base-kph.57 Author: kph Time: 26 October 2008, 1:01:25 am UUID: 600b8741-d0d6-491f-a2b9-b1264e23eba4 Ancestors: PackageInfo-Base-mtf.56
+ PackageInfo organizer + PackageInfo unload + PackageOrganizer unregisterPackageInfoClass: aPackageInfoClass
=============== Diff against PackageInfo-Base-mtf.56 ===============
Item was added: + ----- Method: PackageInfo class>>unload (in category 'packages access') ----- + unload + + self organizer unregisterPackageInfoClass: self + !
Item was added: + ----- Method: PackageOrganizer>>unregisterPackageInfoClass: (in category 'registering') ----- + unregisterPackageInfoClass: aClass + + self packages copy keysAndValuesDo: [ :k :v | v class = aClass ifTrue: [ self packages removeKey: k ] ]!
Item was changed: ----- Method: PackageOrganizer>>clearCacheButPreservePreambles (in category 'initializing') ----- clearCacheButPreservePreambles "Remove every PI from the cache which does not have either a preamble or postscript"
| keep | + keep := self packageInfos select: [:package | (((package hasPreamble + or: [package hasPostscript]) + or: [package hasPreambleOfRemoval]) - keep := self packageInfos select: [:package | (package hasPreamble - or: [package hasPostscript] - or: [package hasPreambleOfRemoval] or: [package hasPostscriptOfRemoval]) ]. packages := Dictionary new. keep do: [ :p | self registerPackage: p ]!
Item was added: + ----- Method: PackageInfo class>>organizer (in category 'packages access') ----- + organizer + ^PackageOrganizer default!
Item was changed: ----- Method: PackageOrganizer class>>cleanUp (in category 'as yet unclassified') ----- cleanUp + + self default packages copy keysAndValuesDo: [ :k :v | v class isObsolete ifTrue: [ self default packages removeKey: k ] ].
self default packageInfos do: [ :pi |
| resp | resp := PackageInfo classResponsibleForName: pi packageName. (((resp = PackageInfo) not and: [ pi class ~= resp ]) or: [ pi class isObsolete ]) ifTrue: [ PackageOrganizer default unregisterPackageNamed: pi packageName. ]. ].!
Item was changed: ----- Method: PackageInfo class>>allPackages (in category 'packages access') ----- allPackages + ^ self organizer packages! - ^PackageOrganizer default packages!
packages@lists.squeakfoundation.org