|
|
1.1 misha 1: @USE
2: 191_a.p
3: 191_b.p
4:
5: @main[]
6:
7: $oA1[^A::create[]]
8: $oA2[^A::create[]]
9:
10: $oB1[^B::create[]]
11: $oB2[^B::create[]]
12:
13:
14: <table width="100%" border="1" cellpadding="4">
15: <tr>
16: <th colspan="2">Dynamic</th>
17: <th colspan="2">Static</th>
18: </tr>
19:
20: <tr valign="top">
21:
22:
23: <td width="25%">
24: ^^class[^$oA1]: ^class[$oA1]
25: ^^class[^^oA1.class_v[]]: ^class[^oA1.class_v[]]
26: ^^class[^^oA1.class_a[]]: ^class[^oA1.class_a[]]
27:
28: <br />
29: ^^class_name[^$oA1]: ^class_name[$oA1]
30: ^oA1.class_name_v[]
31: ^oA1.class_name_a[]
32:
33: ^oA1.print_v[]
34: ^oA1.print_a[]
35:
36: ^print[^$oA1.;$oA1]
37: </td>
38:
39:
40: <td width="25%">
41: ^^class[^$oB1]: ^class[$oB1]
42: ^^class[^^oB1.class_v[]]: ^class[^oB1.class_v[]]
43: ^^class[^^oB1.class_a[]]: ^class[^oB1.class_a[]]
44: ^^class[^^oB1.class_b[]]: ^class[^oB1.class_b[]]
45:
46: <br />
47: ^^class_name[^$oB1]: ^class_name[$oB1]
48: ^oB1.class_name_v[]
49: ^oB1.class_name_a[]
50: ^oB1.class_name_b[]
51:
52: ^oB1.print_v[]
53: ^oB1.print_a[]
54: ^oB1.print_b[]
55:
56: ^print[^$oB1.;$oB1]
57: </td>
58:
59:
60: <td width="25%">
61: ^^class[^$A:CLASS]: ^class[$A:CLASS]
62: ^^class[^^A:class_v[]]: ^class[^A:class_v[]]
63: ^^class[^^A:class_a[]]: ^class[^A:class_a[]]
64:
65: <br />
66: ^^class_name[^$A:CLASS]: ^class_name[$A:CLASS]
67: ^A:class_name_v[]
68: ^A:class_name_a[]
69:
70: ^A:print_v[]
71: ^A:print_a[]
72:
73: ^print[^$A:;$A:CLASS]
74: </td>
75:
76:
77:
78: <td width="25%">
79: ^^class[^$B:CLASS]: ^class[$B:CLASS]
80: ^^class[^^B:class_v[]]: ^class[^B:class_v[]]
81: ^^class[^^B:class_a[]]: ^class[^B:class_a[]]
82: ^^class[^^B:class_b[]]: ^class[^B:class_b[]]
83:
84: <br />
85: ^^class_name[^$B:CLASS]: ^class_name[$B:CLASS]
86: ^B:class_name_v[]
87: ^B:class_name_a[]
88: ^B:class_name_b[]
89:
90: ^B:print_v[]
91: ^B:print_a[]
92: ^B:print_b[]
93:
94: ^print[^$B:;$B:CLASS]
95: </td>
96:
97:
98: </tr>
99: </table>
100:
101:
102:
103: @class[uObject]
104: ^if(!def $tClass){
105: $tClass[^table::create{sName
106: A
107: B
108: }]
109: }
110:
111: $result[^tClass.menu{^if($uObject is $tClass.sName){$tClass.sName}}[, ]<br />]
112:
113:
114: @class_name[uObject]
115: $result[$uObject.CLASS_NAME<br />]
116:
117:
118:
119: @print[sName;uObject]
120: <br />
121: ^^print[]:<br />
122: ${sName}sa: '$uObject.sa'<br />
123: ${sName}sb: '$uObject.sb'<br />
124: ${sName}sv: '$uObject.sv'<br />
125:
126: ${sName}da: '$uObject.da'<br />
127: ${sName}db: '$uObject.db'<br />
128: ${sName}dv: '$uObject.dv'<br />
129:
130:
131: