Ticket #780: ticket_14.HomonymMethods.tol

Class @ClaseA {

  Real valor;

  Real GetValor(Real void) { valor };
  Text Dime(Real void) { "ClaseA" };

  @ClaseA Copy(Real void) {
    @ClaseA new = [[
      Real valor = GetValor(?)
    ]];
    //! Se accede al método homónimo de la clase B
    //! cuando una instancia de B me llama... (véase el ejemplo)
    WriteLn(Dime(?));  // --> "ClaseB"
    //! Sin embargo así no...
    WriteLn(""<<Dime(?)); // --> "ClaseA"
    //! o asi tampoco:
    WriteLn(_this::Dime(?)); // --> "ClaseA"
    //! ¿Qué ocurre?
    new 
  };  

  Static @ClaseA New(Real uValor) {
    @ClaseA new = [[
      Real valor = uValor
    ]];
    new
  }

};

Class @ClaseB {

  @ClaseA objetoA;

  Text Dime(Real void) { "ClaseB" };
  
  Static @ClaseB New (NameBlock args) {
    @ClaseB new = [[
      @ClaseA objetoA = args::objetoA::Copy(?)
    ]]; 
    new
  }

};

// Ejemplo:

@ClaseA miObjetoA = @ClaseA::New(2);
@ClaseB miObjetoB = @ClaseB::New([[ @ClaseA objetoA = miObjetoA ]]);