[squeak-dev] The Trunk: PackageInfo-Base-ar.33.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Dec 23 17:49:02 UTC 2009

Andreas Raab uploaded a new version of PackageInfo-Base to project The Trunk:

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

Name: PackageInfo-Base-ar.33
Author: ar
Time: 23 December 2009, 6:48:52 am
UUID: 97b59c2c-aaff-6049-8fa9-632da94e3c8c
Ancestors: PackageInfo-Base-nice.32

Some comments for PackageInfo.

=============== Diff against PackageInfo-Base-nice.32 ===============

Item was changed:
  ----- Method: PackageInfo>>allOverridenMethodsDo: (in category 'enumerating') -----
  allOverridenMethodsDo: aBlock
+ 	"Evaluates aBlock with all the overridden methods in the system"
- 	"search classes and meta classes"
  	^ ProtoObject withAllSubclassesDo: [:class | 
  		self overriddenMethodsInClass: class do: aBlock]

Item was changed:
  ----- Method: PackageInfo>>isOverrideOfYourMethod: (in category 'testing') -----
  isOverrideOfYourMethod: aMethodReference
+ 	"Answers true if the argument overrides a method in this package"
  	^ (self isYourClassExtension: aMethodReference category) not and:
  		[(self changeRecordForOverriddenMethod: aMethodReference) notNil]!

Item was changed:
  ----- Method: PackageInfo>>overriddenMethodsDo: (in category 'enumerating') -----
  overriddenMethodsDo: aBlock
+ 	"Answers the methods the receiver contains which have been overridden by other packages"
  	^ self allOverridenMethodsDo: [:ea |
  		(self isOverrideOfYourMethod: ea)
  			ifTrue: [aBlock value: ea]]!

Item was changed:
  ----- Method: PackageInfo>>overrideCategoriesForClass:do: (in category 'enumerating') -----
  overrideCategoriesForClass: aClass do: aBlock
+ 	"Evaluates aBlock with all the *foo-override categories in aClass"
  	^ aClass organization categories do: [:cat |
  		(self isOverrideCategory: cat) ifTrue: [aBlock value: cat]]!

Item was changed:
  ----- Method: PackageInfo>>overriddenMethodsInClass:do: (in category 'enumerating') -----
  overriddenMethodsInClass: aClass do: aBlock
+ 	"Evaluates aBlock with the overridden methods in aClass"
  	^ self overrideCategoriesForClass: aClass do: [:cat |
  		self methodsInCategory: cat ofClass: aClass do: aBlock]!

More information about the Squeak-dev mailing list