" Smalltalk/Association.st						-*- Smalltalk -*- "

Association : Object ( key value )

Association key: keyObject value: valueObject
[
    self := self _clone.
    key := keyObject.
    value := valueObject.
]

Association key
[
    ^key
]

Association value
[
    ^value
]

Association key: keyObject
[
    key := keyObject
]

Association value: valueObject
[
    value := valueObject
]

Association hash
[
    ^key hash
]

Association = anObject
[
    ^key = anObject
]