Saludos....

Sigo practicando... y llego a un punto donde no entiendo lo que pasa o al menos, desconosco si se debe seguir algunas precauciones al trabajar con herencia....

Tengo un clase padre: Padre
//-------------------------------------
Class Padre From TWinControl
Public:
.....
Method Create Constructor
Method Uno
EndClass

//-------------------------------------
Method Create( oParente) Class Padre
.......
Return Self

//-------------------------------------
Method Uno() Class Padre
Return Nil



De lo anterior creo un hijo.... modifico un metodo, agrego un simple dato... apenas solo coloco un dato....

//--------------------------------------------------
Class Hijo From Padre
Public:
Data nVeces <------- aqui

Method Create Constructor
Method Uno
EndClass

//---------------------------------------------------
Method Create Class Hijo
::nVeces := 0 <----- Aqui
Return Self

//-------------------------------------
Method Uno() Class Padre
::nVeces := ::nVeces + 1 <--------- Aqui
Return Nil


y me da el siguiente error
Error BASE/1081 Error de argumento: +
Y aquello es solo por la linea
::nVeces := ::nVeces + 1

Si quito aquella linea el problema desaparece....
¿Pero que tiene de raro aquella linea?

Luego hice lo siguiente:

//-------------------------------------
Method Uno() Class Padre
Qout("Estoy por aca y no entiendo nada...")
Return Nil

y cuando lanzo la aplicacion el mensaje SALE DOS VECES y ¿por que si solo debe salir una sola vez....???


Bueo eso...
Saludos
Rodrigo Soto
Santiago Chile

-------------------------------------------------------------------


mmmmm....
debo reconocer que en esto de clases, tengo poco dominio...

Te dire... que no tenia idea para que era aquello de "Super:". Como aquella "palabra", salia en forma reiterativa en la antigua GUI, solo me dedique a copiar sin saber el sentido de dicha sentencia... En ausencia de documentacion... solo queda.. "prueba y error"...


Pues bien, te planteo mi objetivo...
- Deseo heredar desde TPadre, un nuevo objeto que se llamara THijo...
- THijo debe sobreescribir totalmente, varios metodos de TPadre.
- Entre lo metodos a sobreescribir, esta el metodo "Create".
- No deseo hacerme lios, con el asunto de "subir o bajar" en aquello de la jerarquia...


Luego la pregunta...
¿Como THijo, sobrescribe el metodo Create() de TPadre?
--------------------------------------------------------------------

Mira, te aconsejo que SIEMPRE llames al create de TPadre, ya que se puede dar el caso (MUYYYY PROBABLE), que no conozcas toda la información de lo que inicializa el método constructor, por lo que, AUNQUE tu añadas o modifiques datas LLAMA SIEMPRE PRIMERO al create del padre y despues modifica lo que quieras ¿Ok?


Pues bien, deduzco de tus palabras, que culpa de la situacion que describo, esta en el incorporar, en THijo, la siguiente linea que destaco...

//----------------------------------------------------
Method Create( oParent ) Class THijo
Super:Create( oParent ) <--- ESTA LINEA....

// Configuracion general del control ---.
::SetSize( 500, 350)
::TabStop := .T.
::Brush:Color := clWhite

// Metodo solo de prueba ---------------
::Metodo01()
Return Self

Luego...
- ¿Debo quitar dicha linea, asi evito el subir en la jerarquia?

Si quito la linea en cuestion.... me arroja error....
"Error de Proteccion General
- Llamado desde THIJO:BRUSH( 0)....."

Este error SEGURO que es porque no inicializas correctamente el padre. Llama a Super:Create().

De hecho... NO QUIERO subir en la jerarquia, quiero reemplazar o sobreescribir completamente el metodo create de TPadre...

mmmmm.... a ver... lo coloco mas facil...

INSISTO INICIALIZA el padre.


Pregunta....
- ¿THijo, puede sobreescribir el metodo Create de TPadre?

Claro, el create de THijo es el METODO QUE SE EJECUTA, y de ti depende lo que hagas en él.

Si asi fuese....
- ¿Como es que... THijo debe sobreescribr dicho metodo ?

Si como dices añades o quieres modificar datas, este es el lugar.

Ahora ¿Por que deseo sobreescribir el metodo Create de TPadre?
Por que el THijo, incorporara otras datas, otros caculos, en fin... varias otras cosas que no tiene TPadre dentro del metodo en cuestion...

Ya te conteste.

Bueno eso...
Saludos
Rodrigo Soto
Santiago - Chile