4 Persistable = 0 'NotPersistable
5 DataBindingBehavior = 0 'vbNone
6 DataSourceBehavior = 0 'vbNone
7 MTSTransactionMode = 0 'NotAnMTSObject
9 Attribute VB_Name = "CRbt"
10 Attribute VB_GlobalNameSpace = False
11 Attribute VB_Creatable = True
12 Attribute VB_PredeclaredId = False
13 Attribute VB_Exposed = False
16 ' red-black tree node, object method
18 ' housekeeping for node
24 Public Left As CRbt ' pointer to left child
25 Public Right As CRbt ' pointer to right child
26 Public Parent As CRbt ' pointer to parent
27 Public Color As EColor ' Black, Red
29 ' user's data -- note that user-defined types are
30 ' not allowed in classes, so specify field-by-field