Data commit

Task/Classes/Visual-FoxPro/classes.fvp

@@ -0,0 +1,28 @@
+LOCAL o1 As MyClass, o2 As MyClass
+*!* Instantiate o1
+o1 = NEWOBJECT("MyClass")
+o1.ShowInstance()
+*!* Instantiate o2
+o2 = CREATEOBJECT("MyClass", 2)
+o2.ShowInstance()
+
+
+DEFINE CLASS MyClass As Session
+*!* Custom property (protected)
+PROTECTED nInstance
+nInstance = 0
+
+*!* Constructor
+PROCEDURE Init(tnInstance As Integer)
+IF VARTYPE(tnInstance) = "N"
+    THIS.nInstance = tnInstance
+ELSE
+    THIS.nInstance = THIS.nInstance + 1
+ENDIF
+ENDPROC
+
+*!* Custom Method
+PROCEDURE ShowInstance
+? "Instance", THIS.nInstance
+ENDPROC
+ENDDEFINE