Snippet Library

Option Explicit

Private m_Val As Variant
Private m_Tag As Variant
Private m_Nodes As CNodes
Private m_Key As String
Private WithEvents oSink  As CNodeSink
Private oParentSink As CNodeSink

Friend Property Let Key(ByVal sKey As String)
    m_Key = sKey
End Property

Public Property Get Key() As String
    Key = m_Key
End Property

Public Property Get Parent() As CNode
    If oParentSink Is Nothing Then
        Set Parent = Nothing
    Else
        Set Parent = oParentSink.RequestParent()
    End If
End Property

Public Property Get Nodes() As CNodes
    Set Nodes = m_Nodes
End Property

Friend Property Set ParentSink(Sink As CNodeSink)
    Set oParentSink = Sink
End Property

Public Property Get Tag() As Variant
    If IsObject(m_Tag) Then
        Set Value = m_Tag
    Else
        Value = m_Tag
    End If
End Property

Public Property Let Tag(ByVal vTag As Variant)
    m_Tag = vTag
End Property

Public Property Set Tag(ByVal vTag As Variant)
    Set m_Tag = vTag
End Property

Public Property Get Value() As Variant
    If IsObject(m_Val) Then
        Set Value = m_Val
    Else
        Value = m_Val
    End If
End Property

Public Property Let Value(ByVal Value As Variant)
    m_Val = Value
End Property

Public Property Set Value(ByVal Value As Variant)
    Set m_Val = Value
End Property

Private Sub Class_Initialize()
    Set m_Nodes = New CNodes
    Set oSink = New CNodeSink

    Set m_Nodes.ParentSink = oSink
End Sub

Private Sub Class_Terminate()
    Set m_Nodes = Nothing
    Set oSink = Nothing
    Set oParentSink = Nothing
End Sub

Private Sub oSink_IDRequest(oParent As CNode)
    Set oParent = Me
End Sub

none;