Fehler beim Öffnen eine DialogWindow

[Kohle]

Hier ist der Code der Klasse DlgWerkNeu, die diesen Dialog anzeigen soll:

CLASS DlgWerkNeu INHERIT wDlgWerk
//PROTECT oWerk AS objWerk

CONSTRUCTOR (oOwner)
SUPER(oOwner)
//oWerk := objWerk{SELF}
SELF:Caption := "Neues Kunstwerk"
RETURN SELF

METHOD PB_Cancel( )
SELF:EndDialog( )
WarningBox{,"Neues Kunstwerk","Das Kunstwerk wurde nicht gespeichert!"}:Show()
RETURN SELF

END CLASS

objWerk ist ein Objekt zur Datenpufferung zwischen Dialog und Datenbank, d.h. die im Dialog eingegebenen Daten werden in das Objekt objWerk übertragen, auf logische und inhaltliche Fehler geprüft und bei Fehlerfreiheit in die Datenbank geschrieben.

Die Klasse DlgWerkNeu muss noch wesentlich erweitert werden. Der jetzige Code sollte nur genutzt werden, um das Fenster anzuzeigen und um zu sehen, ob noch Änderungen an der Gestaltung notwendig sind.

Genutzt wird zur Zeit die X-Version 2.21.

Frank