Copyright (C) 1994, Digital Equipment Corp.
<* PRAGMA LL *>
The VBTColors
interface provides a way to associate a
VBT
's background and foreground colors with the VBT
. This
information can be retrieved by some other VBT
to compute a
related color.
INTERFACE VBTColors;
IMPORT PaintOp, VBT;
PROCEDURE Put (v: VBT.T; colors: PaintOp.ColorScheme);
<* LL.sup < v *>
Store colors
with v
.
PROCEDURE Get (v: VBT.T): PaintOp.ColorScheme;
<* LL.sup < v *>
Return the colors stored by the most recent call to Put
. If
Put
has never been called on v
, return PaintOp.bgFg
.
END VBTColors.