'From Cuis 2.6 of 10 August 2010 [latest update: #540] on 29 August 2010 at 9:04:16 am'!

!ChangeRecord methodsFor: 'access' stamp: 'jmv 8/28/2010 14:13'!
methodClass
	| methodClassName methodClass |
	(#(method #classComment) includes: type) ifFalse: [ ^ nil ].
	methodClassName _ class substrings
		ifEmpty: [ ^ nil ]
		ifNotEmpty:
			[ : parts | parts first asSymbol ].
	(Smalltalk includesKey: methodClassName) ifFalse: [ ^ nil ].
	methodClass _ Smalltalk at: methodClassName.
	^ meta
		ifTrue: [ methodClass class ]
		ifFalse: [ methodClass ]! !


!MethodReference methodsFor: 'queries' stamp: 'eem 5/25/2010 17:56'!
selector

	^methodSymbol! !

