equal
deleted
inserted
replaced
2961 "/ only a few messages are checked: |
2961 "/ only a few messages are checked: |
2962 recVal isNumber ifTrue:[ |
2962 recVal isNumber ifTrue:[ |
2963 (#(positive negative abs negated + - * == = ~= ~~) includes:selector) ifFalse:[ |
2963 (#(positive negative abs negated + - * == = ~= ~~) includes:selector) ifFalse:[ |
2964 ^ false |
2964 ^ false |
2965 ]. |
2965 ]. |
2966 ]. |
2966 ] ifFalse:[ |
2967 recVal isBoolean ifTrue:[ |
2967 recVal isBoolean ifTrue:[ |
2968 (#(not && || ) includes:selector) ifFalse:[ |
2968 (#(not && || ) includes:selector) ifFalse:[ |
2969 ^ false |
2969 ^ false |
2970 ]. |
2970 ]. |
|
2971 ] ifFalse:[ |
|
2972 recVal isString ifTrue:[ |
|
2973 (#(size) includes:selector) ifFalse:[ |
|
2974 ^ false |
|
2975 ]. |
|
2976 ]. |
|
2977 ] |
2971 ]. |
2978 ]. |
2972 aBlock value:(recVal perform:selector withArguments:argValues). |
2979 aBlock value:(recVal perform:selector withArguments:argValues). |
2973 ^ true |
2980 ^ true |
2974 ]. |
2981 ]. |
2975 ]. |
2982 ]. |
2983 ! ! |
2990 ! ! |
2984 |
2991 |
2985 !MessageNode class methodsFor:'documentation'! |
2992 !MessageNode class methodsFor:'documentation'! |
2986 |
2993 |
2987 version |
2994 version |
2988 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.170 2010-01-25 11:35:04 cg Exp $' |
2995 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.171 2010-02-01 16:20:44 cg Exp $' |
2989 ! |
2996 ! |
2990 |
2997 |
2991 version_CVS |
2998 version_CVS |
2992 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.170 2010-01-25 11:35:04 cg Exp $' |
2999 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.171 2010-02-01 16:20:44 cg Exp $' |
2993 ! ! |
3000 ! ! |