source: Include/system/enum.sbp@ 97

Class EnumBase
Protected
    m_Value As Long
Public
    Sub EnumBase(value As Long)
        m_Value=value
    End Sub
    Sub ~EnumBase()
    End Sub

    'Abstract Function ToString() As String

    Sub Copy(ByRef obj As EnumBase)
        m_Value=obj.m_Value
    End Sub

    Function Operator() As Long
        Return m_Value
    End Function

    Function Operator == (Value As Long) As Long
        If m_Value = Value Then
            Return _System_TRUE
        Else
            Return _System_FALSE
        End If
    End Function
End Class