OOPTree Function |
Namespace: XSharp.RT
1CLASS Thing_1 2 EXPORT x1 3CONSTRUCTOR() CLASS Thing_1 4 x1 := 1 5METHOD Meth_1() CLASS Thing_1 6METHOD Meth_1x() CLASS Thing_1 7CLASS Thing_2 INHERIT Thing_1 8 EXPORT x2 9METHOD Meth_2 CLASS Thing_2 10METHOD Meth_2x CLASS Thing_2 11CLASS Thing_3 INHERIT Thing_2 12 EXPORT x3 13METHOD Meth_3 CLASS Thing_3 14METHOD Meth_3x CLASS Thing_3 15Function Start() 16 LOCAL o AS OBJECT, aTree AS ARRAY 17 o := Thing_3{} 18 aTree := OOPTree(o)
1/*************************** 2Thing-1 3 x1 4 Meth_1x 5 Meth_1 6 Init 7Thing-2 8 x2 9 x1 10 Meth_2x 11 Meth_2 12 Meth_1x 13 Meth_1 14 Init 15Thing-3 16 x2 17 x1 18 x3 19 Meth_3x 20 Meth_3 21 Meth_2x 22 Meth_2 23 Meth_1x 24 Meth_1 25 Init 26***************************/