Just another update

Task/Polymorphism/AutoHotkey/polymorphism.ahk

@@ -0,0 +1,73 @@
+MyPoint := new Point(1, 8)
+MyPoint.Print()
+MyCircle := new Circle(4, 7, 9)
+MyCircle2 := MyCircle.Copy()
+MyCircle.SetX(2)	;Assignment method
+MyCircle.y := 3		;Direct assignment
+MyCircle.Print()
+MyCircle2.Print()
+MyCircle.SetX(100), MyCircle.SetY(1000), MyCircle.r := 10000
+MsgBox, % MyCircle.__Class
+	. "`n`nx:`t" MyCircle.GetX()
+	. "`ny:`t" MyCircle.y
+	. "`nr:`t" MyCircle.GetR()
+return
+
+class Point
+{
+	Copy()
+	{
+		return this.Clone()
+	}
+	GetX()
+	{
+		return this.x
+	}
+	GetY()
+	{
+		return this.y
+	}
+	__New(x, y)
+	{
+		this.x := x
+		this.y := y
+	}
+	Print()
+	{
+		MsgBox, % this.__Class
+			. "`n`nx:`t" this.x
+			. "`ny:`t" this.y
+	}
+	SetX(aValue)
+	{
+		this.x := aValue
+	}
+	SetY(aValue)
+	{
+		this.y := aValue
+	}
+}
+
+class Circle extends Point
+{
+	GetR()
+	{
+		return this.r
+	}
+	__New(x, y, r)
+	{
+		this.r := r
+		base.__New(x, y)
+	}
+	Print()
+	{
+		MsgBox, % this.__Class
+			. "`n`nx:`t" this.x
+			. "`ny:`t" this.y
+			. "`nr:`t" this.r
+	}
+	SetR(aValue)
+	{
+		this.r := aValue
+	}
+}