--- a/CascadeNode.st Tue Nov 26 10:08:11 2002 +0100
+++ b/CascadeNode.st Tue Nov 26 10:08:56 2002 +0100
@@ -105,8 +105,8 @@
t := receiver evaluateForCascade.
argArray isNil ifTrue:[
- t perform:selector.
- ^ t
+ ^ t perform:selector.
+ "/ t perform:selector. ^ t
].
argValueArray := argArray collect:[:arg | arg evaluate].
^ t perform:selector withArguments:argValueArray
@@ -188,5 +188,5 @@
!CascadeNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.22 2000-08-31 10:00:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.23 2002-11-26 09:08:56 cg Exp $'
! !