Fix #650

Add $ separator for inner class mooseName.
moosetechnology · Mar 29, 2024 · a676978 · a676978
1 parent 555efc6
commit a676978
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Famix-Java-Entities/FamixJavaClass.class.st b/src/Famix-Java-Entities/FamixJavaClass.class.st
@@ -173,6 +173,18 @@ FamixJavaClass >> methodsWithoutSutbsAndConstructors [
 		each isStub not and: [each isConstructor not]]) asSet
 ]
 
+{ #category : #'as yet unclassified' }
+FamixJavaClass >> mooseNameOn: aStream [
+
+	self typeContainer ifNotNil: [ :parent |
+		| separator |
+		parent mooseNameOn: aStream.
+		separator := '::'.
+		self isInnerClass ifTrue: [ separator := '$' ].
+		aStream nextPutAll: separator ].
+	self name ifNotNil: [ :n | aStream nextPutAll: n ]
+]
+
 { #category : #'Famix-Extensions' }
 FamixJavaClass >> structuralChildren [
 	^ (OrderedCollection withAll: self methods), self attributes