Harbour. Methods Init y InitClass

En en lenguaje Harbour, podemos declarar los métodos Init() y InitClass(), 

que serán llamadas implícitamente a la hora de la creación del objeto.

Es decir, partiendo de una clase llamada TPrueba;

CLASS TPRUEBA

      DATA ValueInit

      DATA Value

      METHOD initClass
      METHOD init
ENDCLASS

METHOD initClass( x ) CLASS TPRUEBA
      ::ValueIni := x
RETURN self

METHOD init( x ) CLASS TPRUEBA
      ::value := x
RETURN self

Ejemplo:

objeto  := TPrueba( "ValueInit" ):new( "Value" )

?objeto:ValueInit ,objeto:Value

Ahora, mira los valores de la variable de instancia ValueInit y Value.