VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "c_NmBinding"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'Generated by IDL2VB v120. Copyright (c) 1999 Martin.Both
'Source File Name: ../naming/CosNaming.idl
'Target File Name: c_NmBinding.cls

Option Explicit

'struct ::CosNaming::Binding
Const sTypeId As String = "IDL:omg.org/CosNaming/Binding:1.0"

'Member
Public binding_name As c_NmNameComponentSeq
Public binding_type As Long

'Helper
Public Sub initByRead(ByVal oIn As cOrbStream)
    On Error GoTo ErrHandler
    Set binding_name = New c_NmNameComponentSeq
    Call binding_name.initByRead(oIn, 0)
    binding_type = oIn.readUlong()
    Exit Sub
ErrHandler:
    Call VBOrb.ErrReraise(Err, "Binding.read")
End Sub

'Helper
Public Sub writeMe(ByVal oOut As cOrbStream)
    On Error GoTo ErrHandler
    Call binding_name.writeMe(oOut, 0)
    Call oOut.writeUlong(binding_type)
    Exit Sub
ErrHandler:
    Call VBOrb.ErrReraise(Err, "Binding.write")
End Sub

'Helper
Public Sub initByAny(ByVal oAny As cOrbAny)
    On Error GoTo ErrHandler
    Set binding_name = New c_NmNameComponentSeq
    Call binding_name.initByAny(oAny.currentComponent())
    Call oAny.nextPos
    binding_type = oAny.getUlong()
    Call oAny.nextPos
    Exit Sub
ErrHandler:
    Call VBOrb.ErrReraise(Err, "initByAny")
End Sub

'Helper
Public Sub insertIntoAny(ByVal oAny As cOrbAny)
    On Error GoTo ErrHandler
    Call binding_name.insertIntoAny(oAny.currentComponent())
    Call oAny.nextPos
    Call oAny.insertUlong(binding_type)
    Call oAny.nextPos
    Exit Sub
ErrHandler:
    Call VBOrb.ErrReraise(Err, "insertIntoAny")
End Sub
