On Fri, 20 Feb 2009, Francesco Saverio Giudice wrote:
Hi,
> I added below pieces of code to emulate OVERRIDE command from xharbour and
> I use it successfully.
> I don't know if harbour developers are interested to add, if yes I can add
> to SVN.
> Use it, for your case, as:
> OVERRIDE METHOD SetPos IN CLASS TGet WITH MySetPos
This code does not need external function and you can use:
#xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> WITH [METHOD] ;
<!Method!> [SCOPE <Scope>] => ;
__clsModMsg( <Class>():classH, #<Message>, @<Method>(), ;
IIF( <.Scope.>, <Scope>, HB_OO_CLSTP_EXPORTED ) )
Such version will work even if class function has different name then
the class.
best regards,
Przemek
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
