ich habe folgendes Problem (auch bereits Alaska mitgeteilt):
Ich habe von einem Drittanbieter eine Klasse mit
Hidden-Variablen und Inline-Access-Methoden (im Folgenden
in CLASS TestHidden() nachgebildet).
Davon möchte ich eine Klasse ableiten: CLASS TestHidden3()
Leider kommt es dabei zur Fehlermeldung, daß in (!) TestHidden()
auf FMask nicht zugegriffen werden kann. Ein Compilerfehler?
Ich habe mir bereits mit TestHidden2() helfen können.
Was meint Ihr? Compilerfehler oder übersehe ich etwas?
Uli
Code: Alles auswählen
/*#include 'common.ch'
#include 'font.ch'
#include 'gra.ch'
#include 'xbp.ch'*/
PROCEDURE APPSYS
RETURN
PROCEDURE main()
LOCAL oTestHidden := TestHidden():new():create()
LOCAL oTestHidden2 := TestHidden2():new():create()
LOCAL oTestHidden3 := TestHidden3():new():create()
SetAppWindow( XbpCrt():new():create() )
SetColor("N*/W")
CLS
oTestHidden:Mask := "Maske 1 alles Ok!"
@ 3,3 say oTestHidden:Mask
INKEY(5)
oTestHidden2:Mask := "Maske 2 auch Ok!"
@ 3,6 say oTestHidden2:Mask
INKEY(5)
oTestHidden3:Mask := "Maske 3 nichts Ok!"
@ 3,6 say oTestHidden3:Mask
INKEY(5)
RETURN
CLASS TestHidden
HIDDEN:
VAR FMask
EXPORTED:
INLINE METHOD create
RETURN self
INLINE ASSIGN METHOD SetMask(cMask) VAR MASK
::FMask := cMask
RETURN
INLINE ACCESS METHOD GetMask VAR MASK
RETURN ::FMask
ENDCLASS
CLASS TestHidden2 FROM TestHidden
EXPORTED:
INLINE ASSIGN METHOD SetMask(cMask)
::TestHidden:SetMask(cMask)
RETURN
INLINE ACCESS METHOD GetMask
RETURN ::TestHidden:GetMask()
ENDCLASS
CLASS TestHidden3 FROM TestHidden
ENDCLASS
