[Pkg] Monticello Public: PackageInfo-Base-kph.57.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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!