Sync

Task/Add-a-variable-to-a-class-instance-at-runtime/Elena/add-a-variable-to-a-class-instance-at-runtime.elena

@@ -1,27 +1,35 @@
-#subject foo.
+#define system.
 
-#class FieldContainer
+#class Extender
 {
-    #field theValue.
+    #field theObject.
+    #field theField.
 
-    #method foo'set : anObject
+    #constructor new : anObject
     [
-        theValue := anObject.
+        theObject := anObject.
     ]
 
-    #method foo'get = theValue.
+    #method foo = theField.
+
+    #method set &foo : aValue
+    [
+        theField := aValue.
+    ]
+
+    #method => theObject.
 }
 
-#symbol Program =
+#symbol program =
 [
     #var anObject := 234.
 
     // adding a field
-    anObject := anObject &= FieldContainer.
+    anObject := Extender new:anObject.
 
-    anObject foo'set:"bar".
+    anObject set &foo:"bar".
 
-    'program'Output << anObject << ".foo=" << anObject foo.
+    console << anObject << ".foo=" << anObject foo.
 
-    'program'input get.
+    console readChar.
 ].