Ticket #730: ticket_7.DerivedClassAsMainClassInstances.tol

//////////////////////////////////////////////////////////////////////////////

Class CPrincipal {
  Real a;
  Real GetA(Real void){ a }
};

Class CDerivada : CPrincipal {
  Real b;
  Real GetB(Real void){ b }
};

CPrincipal ej1 = [[Real a = 1]];

CDerivada ej2 = [[Real a = 1; Real b = 2]];

//////////////////////////////////////////////////////////////////////////////

CDerivada CDerivada.New(NameBlock args) {
  CDerivada new = args
};

CDerivada ej3 = CDerivada.New([[Real a = 1; Real b = 2]]);

// Si asignamos una referencia a un objeto de CPrincipal con una
// instancia de una clase derivada (CDerivada) perdemos
// los métodos (o atributos tipo Code) de la clase derivada.

CPrincipal ej4 = CDerivada.New([[Real a = 1; Real b = 2]]);
// ej4 no posee los métodos propios de CDerivada

//////////////////////////////////////////////////////////////////////////////