langs a-z

Task/Classes/Objeck/classes.objeck

@@ -0,0 +1,33 @@
+bundle Default {
+  class MyClass {
+    @var : Int;
+
+    New() {
+    }
+
+    method : public : SomeMethod() ~ Nil {
+    	@var := 1;
+    }
+
+    method : public : SetVar(var : Int) ~ Nil {
+      @var := var;
+    }
+
+    method : public : GetVar() ~ Int {
+      return @var;
+    }
+  }
+
+  class Test {
+    function : Main(args : String[]) ~ Nil {
+      inst := MyClass->New();
+      inst->GetVar()->PrintLine();
+
+      inst->SomeMethod();
+      inst->GetVar()->PrintLine();
+
+      inst->SetVar(15);
+      inst->GetVar()->PrintLine();
+    }
+  }
+}