All pastes #564686 Raw Edit

Untitled

public text v1 · immutable
·published 2007-06-13 18:09 UTC
rendered paste body
doesNotUnderstand: aMessage 
	| position |
	position := [:selector | self class properties
				indexOf: selector
				ifAbsent: [^ super doesNotUnderstand: aMessage]].
	aMessage selector last = $:
		ifTrue: [values
				at: (position value: aMessage selector allButLast)
				put: aMessage argument]
		ifFalse: [^ values
				at: (position value: aMessage selector)]