Initial data commit

Task/Delegates/Io/delegates.io

@@ -0,0 +1,22 @@
+Delegator := Object clone do(
+    delegate ::= nil
+    operation := method(
+        if((delegate != nil) and (delegate hasSlot("thing")),
+            delegate thing,
+            "default implementation"
+        )
+    )
+)
+
+Delegate := Object clone do(
+    thing := method("delegate implementation")
+)
+
+a := clone Delegator
+a operation println
+
+a setDelegate("A delegate may be any object")
+a operation println
+
+a setDelegate(Delegate clone)
+a operation println