[Seaside] onAnswer: problems

[C. David Shaffer]

Avi Bryant wrote:

>   By default, this says "oh, an unhandled answer from a child, better 
> ignore it".  But that's incorrect - the answer originates from the 
> outer component, and should get to travel further up the stack.
>
How about this then?

David

-------------- next part --------------
'From Squeak3.6 of ''6 October 2003'' [latest update: #5429] on 2 June 2004 at 10:44:10 am'!
Notification subclass: #WAAnswerNotification
	instanceVariableNames: 'value view '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Seaside-Component'!
!WAAnswerNotification methodsFor: 'accessing' stamp: 'cds 6/2/2004 10:39'!
view
	^view! !
!WAAnswerNotification methodsFor: 'accessing' stamp: 'cds 6/2/2004 10:39'!
view: anObject
	view := anObject! !
!WAComponent methodsFor: 'convenience' stamp: 'cds 6/2/2004 10:39'!
answer: anObject 
	WAAnswerNotification answer: anObject view: self! !
!WAAnswerNotification class methodsFor: 'as yet unclassified' stamp: 'cds 6/2/2004 10:40'!
answer: anObject view: view
	(self new value: anObject; view: view) raiseSignal! !
!WAComponent methodsFor: 'as yet unclassified' stamp: 'cds 6/2/2004 10:40'!
processRequest: aRequest do: aBlock 
	aBlock
		on: WAAnswerNotification
		do: [:n | n view = self ifTrue: [n pass]]! !