| | 1 | #include <tads.h> |
| | 2 | |
| | 3 | myObj: object |
| | 4 | p1 = 'hello' |
| | 5 | |
| | 6 | propertyset 'test1*' (x,,y) |
| | 7 | { |
| | 8 | p2() { return 'foo'; } |
| | 9 | } |
| | 10 | propertyset 'test2*' (x*y) |
| | 11 | { |
| | 12 | p3() { return 'bar'; } |
| | 13 | } |
| | 14 | propertyset 'test3*' (x,) |
| | 15 | { |
| | 16 | p4() { return 'blah'; } |
| | 17 | } |
| | 18 | propertyset 'test4*' (,x) |
| | 19 | { |
| | 20 | p5() { return 'blech'; } |
| | 21 | } |
| | 22 | ; |
| | 23 | |
| | 24 | main(args) |
| | 25 | { |
| | 26 | "myObj.p1 = <<myObj.p1>>\n"; |
| | 27 | "myObj.p2DobjTake = <<myObj.p2DobjTake>>\n"; |
| | 28 | "myObj.p3DobjTake = <<myObj.p3DobjTake>>\n"; |
| | 29 | "myObj.p4 = <<myObj.p4>>\n"; |
| | 30 | |
| | 31 | myObj.verDobjTake(123); |
| | 32 | myObj.verDobjDrop(987); |
| | 33 | myObj.verDobjPutIn(45, 67); |
| | 34 | myObj.verDobjPutOn(78, 89, 91); |
| | 35 | |
| | 36 | myObj.verIobjTake(1, 2); |
| | 37 | myObj.verIobjDrop(3, 4); |
| | 38 | myObj.verIobjPutIn(5, 6, 7); |
| | 39 | myObj.verIobjPutOn(8, 9, 10, 11); |
| | 40 | |
| | 41 | myObj.dobjTake(111); |
| | 42 | myObj.dobjDrop(222); |
| | 43 | myObj.dobjPutIn(333, 444); |
| | 44 | myObj.dobjPutOn(555, 666, 777); |
| | 45 | } |