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].