[Oberon] FPGA - OberonV4 Dialogs

[Tomas Kral]

On Mon, 26 Nov 2018 15:22:28 +0100
Jörg <joerg.straube at 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 at email.cz>