Copyright (C) 1992, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
Last modified on Mon Jan 4 12:22:59 PST 1993 by mhb
modified on Tue Aug 4 11:40:50 PDT 1992 by meehan
modified on Tue Jun 16 12:57:47 PDT 1992 by muller
<* 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.