34 lines
781 B
OpenEdge ABL
34 lines
781 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "CDS_NodeSH"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
' =============== Static hierarchy Node =====================
|
|
' Shared module version: 20210430
|
|
' Tested in: TestCommons
|
|
' Depends on:
|
|
' Required reference:
|
|
Option Explicit
|
|
|
|
Public id_ As Long
|
|
Public rank_ As Long
|
|
Public parent_ As CDS_NodeSH
|
|
Public children_ As Collection ' of CDS_NodeSH
|
|
Public descendantsCount_ As Long
|
|
|
|
Public data_ As Object ' Payload should be filled in by the caller
|
|
|
|
Private Sub Class_Initialize()
|
|
Set children_ = New Collection
|
|
descendantsCount_ = 0
|
|
End Sub
|
|
|
|
Public Function Init(nID&, nRank&)
|
|
id_ = nID
|
|
rank_ = nRank
|
|
End Function
|