'From Cuis 2.0 of 24 February 2010 [latest update: #440] on 16 March 2010 at 7:15:48 pm'!

!CodeHolder methodsFor: 'misc' stamp: 'kph 1/30/2010 02:57'!
isThereAnOverride
	"Answer whether any subclass of my selected class implements my 
	selected selector"
	| aName aClass |
	aName := self selectedMessageName
				ifNil: [^ false].
	aClass := self selectedClassOrMetaClass ifNil: [ ^ false ].
	aClass allSubclassesDo: [ :cls | (cls includesSelector: aName) ifTrue: [ ^true ]].
	^ false! !

