Ticket #722: ticket_2.ClassCommonMembers.tol

//////////////////////////////////////////////////////////////////////////////
// Creación clases
// No hay miembros comunes a la clase. 
// Incluso los métodos se copian con las instancias.
// Eso supone un aumento innecesario de la memoria que ocupa cada objeto.

Class CPrueba {
  Real _.valor;
  Real GetValor(Real unused) { Copy(_.valor) };
  Real SetValor(Real val) { Real _.valor := val }
};

CPrueba CPrueba.New(Real val) { 
  CPrueba newPrueba = [[ Real _.valor = val ]]
};

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

CPrueba a = CPrueba.New(0);
CPrueba b = CPrueba.New(1);

// [1]: Usamos el método 'GetValor'
Real a::GetValor(?); //--> 0
Real b::GetValor(?); //--> 1

// [2]: Si redefinimos un método lo hacemos sólo para una instancia.
Code a::GetValor := {Real (Real unused){ 8 }};
Real a::GetValor(?); //--> 8
Real b::GetValor(?); //--> 1

// [3]: Si intentamos redefinir un método accediendo a sus atributos
//      no lo conseguiremos.
Code a::GetValor := {Real (Real unused) { Copy(_.valor) }};
/*
Real a::GetValor(?); //--> ERROR
// ERROR: _.valor no es un objeto valido para el tipo Real
*/

// [4]: Si se nos ocurre "copiar" el método de otro objeto,
//      accederemos a sus miembros.
Code a::GetValor := b::GetValor;
Real a::GetValor(?); //--> 1

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