Merge pull request #1097 from moosetechnology/46-accessedAttributes-and-possibly-other-properties-are-manually-defined

46 accessed attributes and possibly other properties are manually defined

Author: anneetien

src/Famix-Java-Entities/FamixJavaClass.class.st

@@ -77,16 +77,6 @@ FamixJavaClass >> accept: aVisitor [
 	^ aVisitor visitFamixJavaClass: self
 ]
 
-{ #category : 'Famix-Extensions-metrics-support' }
-FamixJavaClass >> accessedAttributes [
-	
-	"Returns my attributes accessed by my methods. If the same attribute is accessed 
-	by two different methods it is counted twice.
-	Used to support the calculation of LCOM"
-	
-	^ self methodsWithoutSutbsAndConstructors asOrderedCollection flatCollect: [ :method | method accessedAttributes ]
-]
-
 { #category : 'enumerating' }
 FamixJavaClass >> allImplementedInterfacesHierarchy [
 

src/Famix-Java-Entities/FamixJavaMethod.class.st

@@ -80,14 +80,6 @@ FamixJavaMethod >> accept: aVisitor [
 	^ aVisitor visitFamixJavaMethod: self
 ]
 
-{ #category : 'Famix-Extensions-metrics-support' }
-FamixJavaMethod >> accessedAttributes [
-	"Returns the set of attributes of my class accessed by me (method). 
-	Used to support the calculation of LCOM"
-
-	^ ((self queryOutgoing: FamixTAccess) opposites withinContainerUsing: FamixTClass) asSet select: #isAttribute
-]
-
 { #category : 'Famix-Extensions' }
 FamixJavaMethod >> clientBehaviours [
 	<FMProperty: #clientBehaviours type: #FamixJavaMethod> <multivalued> <derived>
@@ -124,12 +116,6 @@ FamixJavaMethod >> innerClassesImplementingMethods [
 	^ self types select: [ :el | el methods anySatisfy: [ :m | m isStub not ] ]
 ]
 
-{ #category : 'Famix-Extensions' }
-FamixJavaMethod >> invokedBehaviours [
-
-	^ (self queryOutgoing: FamixTInvocation) opposites
-]
-
 { #category : 'Famix-Extensions' }
 FamixJavaMethod >> invokedMethods [
 	<FMProperty: #invokedMethods type: #FamixJavaMethod> <derived> <multivalued>

src/Famix-PharoSmalltalk-Entities/FamixStClass.class.st

@@ -63,16 +63,6 @@ FamixStClass class >> annotation [
 	^ self
 ]
 
-{ #category : 'Famix-Extensions-metrics-support' }
-FamixStClass >> accessedAttributes [
-	
-	"Returns my attributes accessed by my methods. If the same attribute is accessed 
-	by two different methods it is counted twice.
-	Used to support the calculation of LCOM"
-	
-	^ self methodsWithoutSutbsAndConstructors asOrderedCollection flatCollect: [ :method | method accessedAttributes ]
-]
-
 { #category : 'accessing' }
 FamixStClass >> allRecursiveTypes [
 	"We cannot have children types in Smalltalk but this method is useful to compute some metrics."

src/Famix-PharoSmalltalk-Entities/FamixStMethod.class.st

@@ -73,14 +73,6 @@ FamixStMethod class >> annotation [
 	^ self
 ]
 
-{ #category : 'Famix-Extensions-metrics-support' }
-FamixStMethod >> accessedAttributes [
-	"Returns the set of attributes of my class accessed by me (method). 
-	Used to support the calculation of LCOM"
-
-	^ ((self queryOutgoing: FamixTAccess) opposites withinContainerUsing: FamixTClass) asSet select: #isAttribute
-]
-
 { #category : 'accessing' }
 FamixStMethod >> category [
 	<FMProperty: #category type: #String>
@@ -148,12 +140,6 @@ FamixStMethod >> hasEmptyBody [
 	^ self numberOfAccesses = 0 and: [ self numberOfOutgoingInvocations = 0 ]
 ]
 
-{ #category : 'Famix-Extensions' }
-FamixStMethod >> invokedBehaviours [
-
-	^ (self queryOutgoing: FamixTInvocation) opposites
-]
-
 { #category : 'Famix-Extensions' }
 FamixStMethod >> invokedMethods [
 	<FMProperty: #invokedMethods type: #FamixStMethod> <derived> <multivalued>

src/Famix-Traits/FamixTClass.trait.st

@@ -80,6 +80,16 @@ FamixTClass >> accept: aVisitor [
 	^ aVisitor visitFamixTClass: self
 ]
 
+{ #category : 'Famix-Extensions-metrics-support' }
+FamixTClass >> accessedAttributes [
+	
+	"Returns my attributes accessed by my methods. If the same attribute is accessed 
+	by two different methods it is counted twice.
+	Used to support the calculation of LCOM"
+	
+	^ self methodsWithoutSutbsAndConstructors asOrderedCollection flatCollect: [ :method | method accessedAttributes ]
+]
+
 { #category : 'adding' }
 FamixTClass >> addFirstMethodsOverriding: aMethod in: aCollection [
 

src/Famix-Traits/FamixTMethod.trait.st

@@ -82,6 +82,14 @@ FamixTMethod >> accept: aVisitor [
 	^ aVisitor visitFamixTMethod: self
 ]
 
+{ #category : 'Famix-Extensions-metrics-support' }
+FamixTMethod >> accessedAttributes [
+	"Returns the set of attributes of my class accessed by me (method). 
+	Used to support the calculation of LCOM"
+
+	^ ((self queryOutgoing: FamixTAccess) opposites withinContainerUsing: FamixTClass) asSet select: #isAttribute
+]
+
 { #category : 'accessing' }
 FamixTMethod >> firstOverridingMethods [
 
@@ -92,6 +100,12 @@ FamixTMethod >> firstOverridingMethods [
 	^ overridingMethods
 ]
 
+{ #category : 'Famix-Extensions' }
+FamixTMethod >> invokedBehaviours [
+
+	^ (self queryOutgoing: FamixTInvocation) opposites
+]
+
 { #category : 'asserting' }
 FamixTMethod >> isAccessor [
 	^ self isSetter or: [ self isGetter ]