Override Method

[Natter]

In my program, I replace the class method with my function.
Override Method AAA In Class BBB With MyFnc
Sometimes as the program progresses, I need to restore the standard implementation of the method. Can this be done ?

[cnavarro]

I think in this case it is better to use an EXTEND CLASS and not an OVERRIDE

[Natter]

Thanks. But I think it's about the same thing

[AntoninoP]

If you extend the class, you still call the base method using super operator

Code: Select all

#include <hbclass.ch>

class Base
   Method Func1() INLINE QOut("func1 of Base")
endclass

class Derived INHERIT Base
   Method Func1() INLINE QOut("func1 of Derived")
endclass

proc main()
   LOCAL obj := Derived():New()
   obj:Func1()
   obj:Super:Func1()
 

Result:

Code: Select all

func1 of Derived
func1 of Base