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

Show revision log
 
4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#include <tads.h>



2



3
modify TadsObject



4
{



5
    myMethod()



6
    {



7
        "This is TadsObject.myMethod - inheriting...\n";



8
        inherited();



9
        "... back from inheriting in TadsObject.myMethod\n";



10
    }



11
}



12



13
modify TadsObject



14
{



15
    myMethod()



16
    {



17
        "This is the MODIFIED TadsObject.myMethod - inheriting...\n";



18
        inherited();



19
        "... back from inheriting in MODIFIED TadsObject.myMethod\n";



20
    }



21
}



22



23
modify Object



24
{



25
    myMethod() { "This is Object.myMethod\n"; }



26
}



27



28
modify Object



29
{



30
    myMethod()



31
    {



32
        "This is the MODIFIED Object.myMethod - inheriting...\n";



33
        inherited();



34
        "... back from inheriting in MODIFIED Object.myMethod\n";



35
    }



36
}



37



38
obj1: object



39
    desc = "This is obj1"



40
    myMethod()



41
    {



42
        "This is obj1.myMethod - inheriting...\n";



43
        inherited();



44
        "... back from inheriting in obj1.myMethod\n";



45
    }



46
;



47



48
main(args)



49
{



50
    "obj1.desc: <<obj1.desc>>\n";



51
    "calling obj1.myMethod...\n";



52
    obj1.myMethod();



53
    "back from calling obj1.myMethod\n";



54
}