Thanks a lot, Teo. I am not accostumized with this new feature so, I have to
test it in my apps. In fact, I override some methods from FWH' methods only,
changing to my own functions.
Best Regards,
Kleyber Derick
----- Original Message -----
From: "Teo Fonrouge" <[email protected]>
To: "Harbour Project Main Developer List." <[email protected]>
Sent: Thursday, February 26, 2009 7:03 PM
Subject: Re: [Harbour] Override / Extend functions
On Thursday 26 February 2009 11:38:38 Kleyber Derick wrote:
Hi all,
My name is Kleyber and this is my first post here. I am considering to
migrate from xHarbour to Harbour, and I would like to know if it's
possible
to have these three commands:
OVERRIDE METHOD <MethodName> ;
IN CLASS <ClassName> WITH <FunctionName>
EXTEND CLASS <ClassName> WITH DATA <MemberName> [ PERSISTENT ]
EXTEND CLASS <ClassName> WITH ;
[ MESSAGE <MessageName>] METHOD <FunctionName>
That exists in xHarbour and are useful to me. Can you considerate this? Or
there is other commands in Harbour which do the same thing?
Hello Kleyber,
I had exactly the same need time ago when I migrate some apps from xHarbour
to
Harbour (about 2 years ago).
In fact, recently a thread in this NG dealed with this regard:
[Start Message Referenced]
Re: [Harbour] TGet: setting cursor position to ::nMaxLen + 1
From:
Przemyslaw Czerpak <[email protected]>
To:
"Harbour Project Main Developer List." <[email protected]>
Date:
2009-02-20 05:22
On Fri, 20 Feb 2009, Enrico Maria Giordano wrote:
Hi,
You can subclass the GET() class and create your custom setPosMy()
method,
or maybe you can even override the original and continue to use the name.
Can I add my own method to a class without touching the class itself? If
yes, how?
Harbour has a feature which can block class modification so such
action can be forbidden by programmer.
Anyhow if class is not locked (core classes isn't) then it's possible.
But you have to be careful because it's possible to create some really
strange results, f.e. when you add some new methods to the class from
which some other classes inherited before and then in object of this
classes you will use super casting.
__clsAddMsg( <hClass>, <cMessage>, <sMthFunction> | <bMthBlock>, <nType>, ;
[xInit], <uiScope> )
f.e.:
__clsAddMsg( getNew():hClass, "MYMSG", @myMethod(), HB_OO_MSG_METHOD,, ;
HB_OO_CLSTP_EXPORTED )
best regards,
Przemek
[End Message Referenced]
Best regards
Kleyber Derick
best regards,
Teo
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
