vbtkit/src/vbtkitutils/VBTColors.m3


 Copyright (C) 1992, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 Last modified on Tue Dec 15 10:22:05 PST 1992 by mhb      
      modified on Tue Jun 16 12:58:06 PDT 1992 by muller   

MODULE VBTColors;

IMPORT PaintOp, VBT;

TYPE
  Colors = BRANDED REF PaintOp.ColorScheme;

PROCEDURE Put (v: VBT.T; colors: PaintOp.ColorScheme) =
  VAR c := NEW(Colors);
  BEGIN
    c^ := colors;
    VBT.PutProp(v, c)
  END Put;

PROCEDURE Get (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.