Add #displayFullString to have an equivalent of #mooseName also usefu…

…l for associations

src/Famix-Traits/FamixTAssociation.trait.st

@@ -92,6 +92,14 @@ FamixTAssociation >> asAssociationTo: anEntity [
 	^ self
 ]
 
+{ #category : #printing }
+FamixTAssociation >> displayFullStringOn: aStream [
+
+	self source displayFullStringOn: aStream.
+	aStream nextPutAll: ' -> '.
+	self target displayFullStringOn: aStream
+]
+
 { #category : #printing }
 FamixTAssociation >> displayStringOn: aStream [
 

src/Famix-Traits/FamixTInvocation.trait.st

@@ -96,6 +96,23 @@ FamixTInvocation >> candidates: anObject [
 	candidates value: anObject
 ]
 
+{ #category : #printing }
+FamixTInvocation >> displayFullStringOn: aStream [
+
+	self sender
+		ifNotNil: [ self sender displayFullStringOn: aStream ]
+		ifNil: [ aStream nextPut: $? ].
+	aStream nextPutAll: ' -> '.
+	self receiver
+		ifNotNil: [ :rcvr | self receiver displayFullStringOn: aStream ]
+		ifNil: [ aStream nextPut: $? ].
+	aStream nextPutAll: '.'.
+
+	self signature
+		ifNotNil: [ aStream nextPutAll: (self signature truncateWithElipsisTo: 40) ]
+		ifNil: [ aStream nextPutAll: ' ? ' ]
+]
+
 { #category : #printing }
 FamixTInvocation >> displayStringOn: aStream [
 

src/Moose-Core/MooseObject.class.st

@@ -288,6 +288,18 @@ MooseObject >> description: text [
 	self attributeAt: #privateDescription put: text
 ]
 
+{ #category : #printing }
+MooseObject >> displayFullString [
+	"Return a name corresponding to the moose name but also for the associations instead of returning #noname"
+
+	^ String streamContents: [ :stream | self displayFullStringOn: stream ]
+]
+
+{ #category : #printing }
+MooseObject >> displayFullStringOn: aStream [
+	self mooseNameOn: aStream
+]
+
 { #category : #printing }
 MooseObject >> displayStringOn: aStream [
 	self mooseNameOn: aStream