[Pkg] The Trunk: Kernel-fbs.790.mcz

[commits at source.squeak.org]

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})!