close Warning: Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.

Ticket #828: ticket_15.TheThisIsLost2.tol

File ticket_15.TheThisIsLost2.tol, 674 bytes (added by pgea@…, 16 years ago)
Line 
1//////////////////////////////////////////////////////////////////////////////
2
3Class @CElement {
4  Real value;
5  Real GetClass(Real void) {
6    // Método para usar el _this
7    WriteLn("Soy un @CElement pero digo que mi clase es "<<ClassOf(_this));
8  0}
9};
10
11
12Class @CContainer {
13  @CElement _.element;
14  Real GetClass2(Real void) {
15    _.element::GetClass(?)
16  }
17};
18
19//////////////////////////////////////////////////////////////////////////////
20
21@CContainer contenedor = [[
22  @CElement _.element = [[
23    Real value = 1
24  ]]
25]];
26
27//////////////////////////////////////////////////////////////////////////////
28
29Real contenedor::GetClass2(?);
30