On Mon, 26 Nov 2018 15:22:28 +0100 Jörg <joerg.straube@iaeth.ch> wrote:
Dialog Texts .. will overwrite some (or all) of the procedure with the own ones.
Yes, I realised that to overwrite a procedure with another one, both must have the same (signature) parameter types. Inheritance Dialog.Objects -> Dialog.Text.Items. This one from `Objects': Draw*: PROCEDURE(o: Object; x, y: INTEGER; f: Display.Frame); and the one from `Texts': Draw*: PROCEDURE(t: Item; x, y: INTEGER; f: Display.Frame)(*override*) Must be recoded to: Draw*: PROCEDURE((*t: Item;*)o: Dialogs.Objects; x, y: INTEGER; f: Display.Frame)(*override*) VAR t: Item; (*added*) BEGIN t := o(Item); (*added*) ... END Draw; Correct, is there a better way? -- Tomas Kral <thomas.kral@email.cz>