Imports System

Namespace Codice.Common.Rep
    <Serializable()> _
    Public Class ObjectInfo
        Public FIdOwner As Long
        Public Owner As SEID

        Public Overrides Function Equals(obj As Object) As Boolean
            If Not (TypeOf obj Is ObjectInfo) Then
                Return False
            End If

            If Owner Is Nothing Then
                Return True
            End If

            Return Owner.Equals(DirectCast(obj, ObjectInfo).Owner)
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return MyBase.GetHashCode()
        End Function

    End Class

    <Serializable()> _
    Public Class ObjectInRepInfo
        Inherits ObjectInfo
        Public RepId As Long = -1
        Public Id As Long = -1

        Public Sub New()
        End Sub

        Public Sub New(id__1 As Long)
            Id = id__1
        End Sub

        Public Overrides Function Equals(obj As Object) As Boolean
            If Not (TypeOf obj Is ObjectInRepInfo) Then
                Return False
            End If

            Dim repObj As ObjectInRepInfo = TryCast(obj, ObjectInRepInfo)

            If RepId <> repObj.RepId Then
                Return False
            End If

            If Id <> repObj.Id Then
                Return False
            End If

            Return MyBase.Equals(obj)
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return MyBase.GetHashCode()
        End Function
    End Class
End Namespace