Type TTest
	Field id1% = 0
	
	Method Copy:TTest()
		Local t:TTest = TTest.Create()
		t.id1 = id1
		Return t
	End Method
	
	Function Create:TTest()
		Local t:TTest = New TTest
		Return t
	End Function
End Type

Global t1:TTest = TTest.Create()
t1.id1 = 1

Global t2:TTest = t1.Copy()
DebugLog "t1 id : "+t1.id1+" t2 id : "+t2.id1

t2.id1 = 2
DebugLog "t1 id : "+t1.id1+" t2 id : "+t2.id1

End