mentor/src/searchtree/BSTView.i3


 Copyright (C) 1992, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 Last modified on Tue May  3 12:54:49 PDT 1994 by najork                   
      modified on Wed Aug  5 10:48:08 PDT 1992 by heydon                   

INTERFACE BSTView;
Views for binary search trees.

IMPORT STView, BinaryTree, PaintOp, RefList;

TYPE
  T <: TPublic;
  TPublic = STView.T OBJECT
    current: BinaryTree.T;		 (* current node *)
    comp_list: RefList.T;		 (* list of CompareElem's *)
    del_node_color: PaintOp.ColorScheme; (* orig color of deleted node *)
  END;

VAR (* READONLY *)
  red, black: PaintOp.ColorScheme;	 (* red, black node colors *)
  redBg, blackBg: PaintOp.ColorScheme;	 (* red, black edge colors *)
  whiteRed, whiteBlack: PaintOp.ColorScheme;

END BSTView.