Stéphane Ducasse pravi:
>> Well, I needed to add some 'isPharo ifTrue:' sentences already.
> Can you give us some examples why you need that?
For the stack contexts, see this "climbing on the stack" method:
Object>>firstRequestFromStack
"try to find a first sender up in calling stack, who is AIDASite and
get request of that call"
"Squeak specific! "
| stContext isBlock |
stContext := thisContext.
[stContext notNil] whileTrue: [
isBlock := AIDASite onPharo
ifTrue: *[stContext outerContext notNil]*
ifFalse: *[stContext isBlock]*.
(isBlock not
and: [(stContext receiver isKindOf: AIDASite)
and: [(stContext at: 2) isKindOf: HTTPRequest]])
ifTrue: [^stContext at: 2].
stContext := stContext sender].
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
