Added FM3Property >> #isGenerated

moosetechnology · Sep 27, 2024 · ffe868c · ffe868c
1 parent a88af06
commit ffe868c
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/Fame-Core/FM3Property.class.st b/src/Fame-Core/FM3Property.class.st
@@ -213,6 +213,16 @@ FM3Property >> isFM3Property [
 	^ true
 ]
 
+{ #category : #accessing }
+FM3Property >> isGenerated [
+	"Note: we do not meta describe this 'property' because it is not fully implemented
+	 (no associated instance variable, no setter).
+	 Actually this method was introduced to be able to identify this kind of 'property' which are
+	 not 'real properties' "
+
+	^self compiledMethod pragmas anySatisfy: [ :p | p selector = #generated ]
+]
+
 { #category : #accessing }
 FM3Property >> isMultivalued [
 	<FMProperty: #multivalued type: #Boolean defaultValue: false>