Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT PaintOp, VBT; TYPE Colors = BRANDED REF PaintOp.ColorScheme; PROCEDURE VBTColors Put (v: VBT.T; colors: PaintOp.ColorScheme) = VAR c := NEW(Colors); BEGIN c^ := colors; VBT.PutProp(v, c) END Put; PROCEDUREGet (v: VBT.T): PaintOp.ColorScheme = VAR c: Colors := VBT.GetProp(v, TYPECODE(Colors)); BEGIN IF c = NIL THEN RETURN PaintOp.bgFg ELSE RETURN c^ END END Get; BEGIN END VBTColors.