XProfan

Class MeineKlasse = X%, Y%, MeineKlasse@

Proc MeineKlasse.MeineKlasse

    Parameters A%, B%
    .X% = A%
    .Y% = B%

EndProc

Class NeueKlasse = MeineKlasse,
getX@

Proc NeueKlasse,getX

    Return .X%

EndProc

Declare MeinObjekt#
MeinObjekt# = @New(NeueKlasse,5,10)
MeinObjekt# = @New(MeineKlasse,5,10)funktioniert auch nicht
print MeinObjekt#.getX()
waitinput

!

Proc NeueKlasse.NeueKlasse

    Parameters A%, B%
    .MeineKlasse(A%, B%)

EndP

!

Proc NeueKlasse.NeueKlasse

    Parameters A%, B%
    .MeineKlasse(A%, B%)

EndP

Proc Neueklasse.TueEtwas

    .super.TueEtwas()  hiermit wird nun der Vorfahr aufgerufen
    und kann dann um weitere Dinge ergänzt werden.

EndPr