The Trunk: Kernel-fbs.790.mcz

Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.790.mcz

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

Name: Kernel-fbs.790
Author: fbs
Time: 10 July 2013, 11:41:48.781 am
UUID: 46c1f00e-cb0c-4a4f-b1e1-6d7753a78b22
Ancestors: Kernel-fbs.789

#requirement, #isRequired, etc. are Trait things, so belong in the Trait package.

=============== Diff against Kernel-fbs.789 ===============

Item was removed:
- ----- Method: CompiledMethod class>>conflictMarker (in category 'constants') -----
- conflictMarker
- ^ #traitConflict!

Item was removed:
- ----- Method: CompiledMethod class>>explicitRequirementMarker (in category 'constants') -----
- explicitRequirementMarker
- ^ #explicitRequirement!

Item was removed:
- ----- Method: CompiledMethod class>>implicitRequirementMarker (in category 'constants') -----
- implicitRequirementMarker
- ^ #requirement!

Item was removed:
- ----- Method: CompiledMethod>>isConflict (in category 'testing') -----
- isConflict
- ^ self markerOrNil == self class conflictMarker!

Item was removed:
- ----- Method: CompiledMethod>>isExplicitlyRequired (in category 'testing') -----
- isExplicitlyRequired
- ^ self isExplicitlyRequired: self markerOrNil!

Item was removed:
- ----- Method: CompiledMethod>>isExplicitlyRequired: (in category 'testing') -----
- isExplicitlyRequired: marker
- ^ marker == self class explicitRequirementMarker!

Item was removed:
- ----- Method: CompiledMethod>>isImplicitlyRequired: (in category 'testing') -----
- isImplicitlyRequired: marker
- ^ marker == self class implicitRequirementMarker!

Item was removed:
- ----- Method: CompiledMethod>>isProvided (in category 'testing') -----
- isProvided
- ^ self isProvided: self markerOrNil!

Item was removed:
- ----- Method: CompiledMethod>>isProvided: (in category 'testing') -----
- isProvided: marker
- marker ifNil: [^ true].
- ^ (self isRequired: marker) not and: [(self isDisabled: marker) not]!

Item was removed:
- ----- Method: CompiledMethod>>isRequired (in category 'testing') -----
- isRequired
- ^ self isRequired: self markerOrNil!

Item was removed:
- ----- Method: CompiledMethod>>isRequired: (in category 'testing') -----
- isRequired: marker
- marker ifNil: [^ false].
- (self isImplicitlyRequired: marker) ifTrue: [^ true].
- (self isExplicitlyRequired: marker) ifTrue: [^ true].
- (self isSubclassResponsibility: marker) ifTrue: [^ true].
- ^ false!

Item was removed:
- ----- Method: Object>>explicitRequirement (in category 'error handling') -----
- explicitRequirement
- self error: 'Explicitly required method'!

Item was removed:
- ----- Method: Object>>requirement (in category 'error handling') -----
- requirement
- | sender |
- sender := thisContext sender.
- ^ NotImplemented signal: ('{1} or a superclass should implement {2} from trait {3}' format: {self className. sender selector. sender method originalTraitMethod methodClass})!