Design
oberon.asc
Associated article: Oberon System 3
Tags: Design
_OBERSON SYSTEM 3_ by Johannes Marais Listing One MODULE Skeleton; 1 IMPORT Files, Display, Display3, Printer3, Effects, Objects, Gadgets, Oberon; 2 TYPE 3 Frame* = POINTER TO FrameDesc; 4 FrameDesc* = RECORD (Gadgets.FrameDesc) 5 mycol*: INTEGER; 6 END; 7 PROCEDURE FrameAttr(F: Frame; VAR M: Objects.AttrMsg); 8 BEGIN 9 IF ...


