CLASS ClassA:
METHOD PUBLIC VOID MethodA: MESSAGE "A method has been called." VIEW-AS ALERT-BOX. END METHOD. END CLASS. CLASS ClassB INHERITS ClassA: END CLASS. CLASS ClassC INHERITS ClassB: METHOD PUBLIC OVERRIDE VOID MethodA: MESSAGE "An overriden method has been called." VIEW-AS ALERT-BOX. END METHOD. END CLASS. |
Progress.Lang.Class instance
|
Class indicated by the DeclaringClass property
|
ClassA
|
ClassA
|
ClassB
|
ClassA
|
ClassC
|
ClassC
|