equal
deleted
inserted
replaced
76 ! |
76 ! |
77 |
77 |
78 propertyAt: aKey put: anObject |
78 propertyAt: aKey put: anObject |
79 "Set the property at aKey to be anObject. If aKey is not found, create a new entry for aKey and set is value to anObject. Answer anObject." |
79 "Set the property at aKey to be anObject. If aKey is not found, create a new entry for aKey and set is value to anObject. Answer anObject." |
80 |
80 |
81 ^ (properties ifNil: [ properties := Dictionary new: 1 ]) |
81 ^ (properties isNil ifTrue: [ properties := Dictionary new: 1 ]) |
82 at: aKey put: anObject |
82 at: aKey put: anObject |
83 ! |
83 ! |
84 |
84 |
85 removeProperty: aKey |
85 removeProperty: aKey |
86 "Remove the property with aKey. Answer the property or raise an error if aKey isn't found." |
86 "Remove the property with aKey. Answer the property or raise an error if aKey isn't found." |