[Oberon] FPGA - DIY Dialogs

Tomas Kral thomas.kral at email.cz
Sun Jan 13 10:17:51 CET 2019


Hi,

In support of `System.Grow', `System.Copy', it seems basically only
this statement is needed in response to `CopyMsg'.

PROCEDURE Handle*(F: Display.Frame; VAR M: Display.FrameMsg);
...
  CASE F OF Frame:
    CASE M OF
    | Oberon.CopyMsg: M.F := F
...

It does not seem so obvious from Chapters 3-4.

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list