Changeset 131
 Timestamp:
 Mar 4, 2007, 10:38:23 PM (17 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Include/system/enum.sbp
r26 r131 15 15 End Sub 16 16 17 Sub Operator = (ByRef value As EnumBase) As EnumBase 18 m_Value = value.m_Value 19 End Sub 20 17 21 Function Operator() As Long 18 22 Return m_Value … … 26 30 End If 27 31 End Function 32 33 Function Operator or (ByRef value As EnumBase) As EnumBase 34 Dim returnValue As EnumBase 35 returnValue.m_Value = m_Value Or value.m_Value 36 Return returnValue 37 End Function 38 39 40 Function Operator and (ByRef value As EnumBase) As EnumBase 41 Dim returnValue As EnumBase 42 returnValue.m_Value = m_Value And value.m_Value 43 Return returnValue 44 End Function 45 46 Function Operator not (ByRef value As EnumBase) As EnumBase 47 Dim returnValue As EnumBase 48 returnValue.m_Value = Not m_Value 49 Return returnValue 50 End Function 51 52 Function Operator xor (ByRef value As EnumBase) As EnumBase 53 Dim returnValue As EnumBase 54 returnValue.m_Value = m_Value Xor value.m_Value 55 Return returnValue 56 End Function 28 57 End Class
Note:
See TracChangeset
for help on using the changeset viewer.