Merge pull request #628 from moosetechnology/609-understands-should-b…

…e-moved Fix #609
moosetechnology · Sep 29, 2023 · 4c654ff · 4c654ff
2 parents a09e9af + 6f6484d
commit 4c654ff
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 30 deletions.
diff --git a/src/Famix-Java-Entities/FamixJavaType.class.st b/src/Famix-Java-Entities/FamixJavaType.class.st
@@ -60,12 +60,6 @@ FamixJavaType >> implementedInterfaces [
 	^ self directSuperclasses select: #isInterface
 ]
 
-{ #category : #'Famix-Implementation' }
-FamixJavaType >> implements: aString [
-	^ self methods
-		anySatisfy: [ :each | aString = each signature	 "was changed from match: for performances and because signature is case sensitive" ]
-]
-
 { #category : #testing }
 FamixJavaType >> isAnonymousClass [
 
@@ -168,15 +162,6 @@ FamixJavaType >> printOn: aStream [
 		nextPut: $)
 ]
 
-{ #category : #'Famix-Implementation' }
-FamixJavaType >> understands: signature [
-	"returns true if a class is able to respond to an invocation to aSignature on itself; false otherwise"
-
-	self withSuperclassesDo: [:each | 
-		(each implements: signature) ifTrue: [^true]].
-	^false
-]
-
 { #category : #'Famix-Implementation' }
 FamixJavaType >> withSuperclassHierarchyGroup [
 	<navigation: 'With all superclasses'>

diff --git a/src/Famix-PharoSmalltalk-Entities/FamixStClass.class.st b/src/Famix-PharoSmalltalk-Entities/FamixStClass.class.st
@@ -54,13 +54,6 @@ FamixStClass >> extendedMethods [
 	^ self methods select: #isExtension
 ]
 
-{ #category : #testing }
-FamixStClass >> implements: aString [
-	"Was changed from match: for performances and because signature is case sensitive"
-
-	^ self methods anySatisfy: [ :each | aString = each signature ]
-]
-
 { #category : #accessing }
 FamixStClass >> instanceSide [
 	^ self isClassSide
@@ -181,11 +174,3 @@ FamixStClass >> sourceText [
 		  ifNotNil: [ :aClass | TonelWriter sourceCodeOf: aClass ]
 		  ifNil: [ super sourceText ]
 ]
-
-{ #category : #testing }
-FamixStClass >> understands: signature [
-	"returns true if a class is able to respond to an invocation to aSignature on itself; false otherwise"
-
-	self withSuperclassesDo: [ :each | (each implements: signature) ifTrue: [ ^ true ] ].
-	^ false
-]
diff --git a/src/Famix-Traits/FamixTWithInheritances.trait.st b/src/Famix-Traits/FamixTWithInheritances.trait.st
@@ -205,6 +205,15 @@ FamixTWithInheritances >> superclassHierarchyGroup [
 		withDescription: 'All superclasses of ' , self mooseName
 ]
 
+{ #category : #'Famix-Implementation' }
+FamixTWithInheritances >> understands: signature [
+	"returns true if a class is able to respond to an invocation to aSignature on itself; false otherwise"
+
+	self withSuperclassesDo: [:each | 
+		(each implements: signature) ifTrue: [^true]].
+	^false
+]
+
 { #category : #enumerating }
 FamixTWithInheritances >> withSubclassHierarchy [
 	^ self subclassHierarchy 

diff --git a/src/Famix-Traits/FamixTWithMethods.trait.st b/src/Famix-Traits/FamixTWithMethods.trait.st
@@ -20,6 +20,13 @@ FamixTWithMethods >> addMethod: aMethod [
 	methods add: aMethod
 ]
 
+{ #category : #testing }
+FamixTWithMethods >> implements: aString [
+	"Was changed from match: for performances and because signature is case sensitive"
+
+	^ self methods anySatisfy: [ :each | aString = each signature ]
+]
+
 { #category : #accessing }
 FamixTWithMethods >> methods [
 	"Relation named: #methods type: #FamixTMethod opposite: #parentType"