The Trunk: PackageInfo-Base-ar.33.mcz

Andreas Raab uploaded a new version of PackageInfo-Base to project The Trunk:
http://source.squeak.org/trunk/PackageInfo-Base-ar.33.mcz

==================== 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]!