Merge 1a94bd0

moosetechnology · Aug 5, 2024 · 07ee09e · 07ee09e
2 parents 9e5d905 + 1a94bd0
commit 07ee09e
Show file tree

Hide file tree

Showing 6 changed files with 164 additions and 177 deletions.
diff --git a/src/Famix-Value-Entities/FamixValueEntity.class.st b/src/Famix-Value-Entities/FamixValueEntity.class.st
@@ -28,6 +28,20 @@ FamixValueEntity class >> metamodel [
 	^ FamixValueModel metamodel
 ]
 
+{ #category : #testing }
+FamixValueEntity >> isOfClassReference [
+
+	<generated>
+	^ false
+]
+
+{ #category : #testing }
+FamixValueEntity >> isOfClosure [
+
+	<generated>
+	^ false
+]
+
 { #category : #testing }
 FamixValueEntity >> isOfCollection [
 

diff --git a/src/Famix-Value-Entities/FamixValueOfClassReference.class.st b/src/Famix-Value-Entities/FamixValueOfClassReference.class.st
@@ -27,6 +27,13 @@ FamixValueOfClassReference class >> annotation [
 	^ self
 ]
 
+{ #category : #testing }
+FamixValueOfClassReference >> isOfClassReference [
+
+	<generated>
+	^ true
+]
+
 { #category : #accessing }
 FamixValueOfClassReference >> value [
 	"Relation named: #value type: #FamixTClass opposite: #valueReferences"

diff --git a/src/Famix-Value-Entities/FamixValueOfClosure.class.st b/src/Famix-Value-Entities/FamixValueOfClosure.class.st
@@ -43,6 +43,13 @@ FamixValueOfClosure >> addVariable: anObject [
 	^ self variables add: anObject
 ]
 
+{ #category : #testing }
+FamixValueOfClosure >> isOfClosure [
+
+	<generated>
+	^ true
+]
+
 { #category : #accessing }
 FamixValueOfClosure >> sourceCode [
 

diff --git a/src/Famix-Value-Entities/FamixValueOfCollection.class.st b/src/Famix-Value-Entities/FamixValueOfCollection.class.st
@@ -36,6 +36,14 @@ FamixValueOfCollection >> addValue: anObject [
 	^ self value add: anObject
 ]
 
+{ #category : #converting }
+FamixValueOfCollection >> asPharoInitializationAST [
+
+	^ RBMessageNode
+		  receiver: (RBVariableNode named: self type name)
+		  selector: #basicNew
+]
+
 { #category : #testing }
 FamixValueOfCollection >> isOfCollection [