CDE

2013-04-10 16:57:12 -07:00 · 2013-04-10 16:57:12 -07:00 · 764da6cbbb
commit 764da6cbbb
parent 518da4a923
6144 changed files with 83610 additions and 11 deletions
--- a/Task/Add-a-variable-to-a-class-instance-at-runtime/Elena/add-a-variable-to-a-class-instance-at-runtime.elena
+++ b/Task/Add-a-variable-to-a-class-instance-at-runtime/Elena/add-a-variable-to-a-class-instance-at-runtime.elena
@ -0,0 +1,27 @@
+#subject foo.
+
+#class FieldContainer
+{
+    #field theValue.
+
+    #method foo'set : anObject
+    [
+        theValue := anObject.
+    ]
+
+    #method foo'get = theValue.
+}
+
+#symbol Program =
+[
+    #var anObject := 234.
+
+    // adding a field
+    anObject := anObject &= FieldContainer.
+
+    anObject foo'set:"bar".
+
+    'program'Output << anObject << ".foo=" << anObject foo.
+
+    'program'input get.
+].