Merge pull request #779 from moosetechnology/display-full

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

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

src/Moose-SmalltalkImporter-Core-Tests/FamixReferenceModelImporterTest.class.st

@@ -392,6 +392,15 @@ FamixReferenceModelImporterTest >> testConstantMethodAnnotation [
 	self assert: method isConstant
 ]
 
+{ #category : #tests }
+FamixReferenceModelImporterTest >> testDisplayFullString [
+	"Smoke test for #displayFullString"
+
+	self shouldnt: [ self model entities do: [ :entity | entity displayFullString ] ] raise: Error.
+
+	self assertEmpty: ((self model entities select: [ :entity | entity isAssociation ]) select: [ :asso | asso displayFullString = #noname ])
+]
+
 { #category : #tests }
 FamixReferenceModelImporterTest >> testExtendedClasses [
 	| subRootModelTwo p1 p2 subRootModelThree extensionMethod |