cfad47cfa3/t3compiler/tads3/test/data/lclprop.t

4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#include "tads.h"
2
3
obj1: object
4
    prop1 = 100
5
    prop2 = 200
6
    prop3 = 300
7
    m1()
8
    {
9
        local prop2 = '--lcl--';
10
11
        "This is m1.  prop1 = <<prop1>>, prop2 = <<prop2>>,
12
        prop3 = <<prop3>>\n";
13
14
        "self.prop1 = <<self.prop1>>, self.prop2 = <<self.prop2>>,
15
        self.prop3 = <<self.prop3>>\n";
16
17
        prop2 = '--new/lcl--';
18
        self.prop2 = 400;
19
        "prop2 = <<prop2>>, self.prop2 = <<self.prop2>>\n";
20
21
        local prop1 = &prop3;
22
        "self.prop1 = <<self.prop1>>, self.(prop1) = <<self.(prop1)>>\n";
23
    }
24
;
25
26
main(args)
27
{
28
    obj1.m1();
29
}
30