[Pkg] Monticello Public: PackageInfo-Base-mtf.65.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Fri Dec 12 02:11:33 UTC 2008


A new version of PackageInfo-Base was added to project Monticello Public:
http://www.squeaksource.com/mc/PackageInfo-Base-mtf.65.mcz

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

Name: PackageInfo-Base-mtf.65
Author: mtf
Time: 11 December 2008, 7:11:25 pm
UUID: 2393eb3e-4db6-4063-a2c7-95b992ca60e5
Ancestors: PackageInfo-Base-kph.64

added 5 methods from pharo, necessary to use the pharo method viewer

=============== Diff against PackageInfo-Base-kph.64 ===============

Item was added:
+ ----- Method: PackageOrganizer>>mostSpecificPackageOfClass: (in category 'searching') -----
+ mostSpecificPackageOfClass: aClass
+ 	^ self mostSpecificPackageOfClass: aClass ifNone: [self noPackageFound]!

Item was added:
+ ----- Method: PackageOrganizer>>mostSpecificPackageOfClass:ifNone: (in category 'searching') -----
+ mostSpecificPackageOfClass: aClass ifNone: aBlock
+ 	
+ 	^ self 
+ 		mostSpecificPackageIn: (self packages select: [ :each | each includesClass: aClass ])
+ 		ifNone: aBlock!

Item was added:
+ ----- Method: PackageOrganizer>>mostSpecificPackageOfMethod:ifNone: (in category 'searching') -----
+ mostSpecificPackageOfMethod: aMethodReference ifNone: aBlock
+ 
+ 	^ self  
+ 		mostSpecificPackageIn: (self packages select: [ :each | each includesMethodReference: aMethodReference ])
+ 		ifNone: aBlock!

Item was added:
+ ----- Method: PackageOrganizer>>mostSpecificPackageIn:ifNone: (in category 'private') -----
+ mostSpecificPackageIn: aCollection ifNone: aBlock
+ 	aCollection isEmpty
+ 		ifTrue: [ ^ aBlock value ].
+ 	^ (aCollection asArray
+ 		sort: [ :a :b | a packageName size > b packageName size ])
+ 		first!

Item was added:
+ ----- Method: PackageOrganizer>>mostSpecificPackageOfMethod: (in category 'searching') -----
+ mostSpecificPackageOfMethod: aMethodReference
+ 	^ self mostSpecificPackageOfMethod: aMethodReference ifNone: [self noPackageFound]!



More information about the Packages mailing list