equal
deleted
inserted
replaced
1034 |
1034 |
1035 "Modified: / 20-04-2005 / 12:11:55 / cg" |
1035 "Modified: / 20-04-2005 / 12:11:55 / cg" |
1036 ! |
1036 ! |
1037 |
1037 |
1038 evaluateIn:anEnvironment forCascade:forCascade |
1038 evaluateIn:anEnvironment forCascade:forCascade |
1039 |retVal r a1 a2 a3 nargs argValueArray class sel| |
1039 |retVal defClass r a1 a2 a3 nargs argValueArray class sel| |
1040 |
1040 |
1041 sel := self evaluationSelector. |
1041 sel := self evaluationSelector. |
1042 receiver isSuper ifTrue:[ |
1042 receiver isSuper ifTrue:[ |
1043 r := receiver value. |
1043 r := receiver value. |
|
1044 |
|
1045 defClass := receiver definingClass. |
1044 receiver isHere ifTrue:[ |
1046 receiver isHere ifTrue:[ |
1045 class := receiver definingClass. |
1047 class := defClass. |
1046 ] ifFalse:[ |
1048 ] ifFalse:[ |
1047 class := receiver definingClass superclass. |
1049 class := defClass superclass. |
1048 ]. |
1050 ]. |
1049 argArray notNil ifTrue:[ |
1051 argArray notNil ifTrue:[ |
1050 argValueArray := argArray collect:[:arg | arg evaluateIn:anEnvironment]. |
1052 argValueArray := argArray collect:[:arg | arg evaluateIn:anEnvironment]. |
1051 ] ifFalse:[ |
1053 ] ifFalse:[ |
1052 argValueArray := #() |
1054 argValueArray := #() |
2981 ! ! |
2983 ! ! |
2982 |
2984 |
2983 !MessageNode class methodsFor:'documentation'! |
2985 !MessageNode class methodsFor:'documentation'! |
2984 |
2986 |
2985 version |
2987 version |
2986 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.169 2010-01-18 16:01:23 cg Exp $' |
2988 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.170 2010-01-25 11:35:04 cg Exp $' |
2987 ! |
2989 ! |
2988 |
2990 |
2989 version_CVS |
2991 version_CVS |
2990 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.169 2010-01-18 16:01:23 cg Exp $' |
2992 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.170 2010-01-25 11:35:04 cg Exp $' |
2991 ! ! |
2993 ! ! |