equal
deleted
inserted
replaced
2881 bold; |
2881 bold; |
2882 nextPutAll:aContext selector; |
2882 nextPutAll:aContext selector; |
2883 normal; |
2883 normal; |
2884 nextPutAll:' rec=['. |
2884 nextPutAll:' rec=['. |
2885 |
2885 |
2886 aContext receiver printOn:aStream. |
2886 self printObject:aContext receiver on:aStream. |
2887 aStream nextPutAll:'] return: ['. |
2887 aStream nextPutAll:'] return: ['. |
2888 retVal printOn:aStream. |
2888 retVal printOn:aStream. |
2889 aStream nextPutAll:']'; cr; flush. |
2889 aStream nextPutAll:']'; cr; flush. |
2890 ! |
2890 ! |
2891 |
2891 |
2935 |
2935 |
2936 printObject:anObject on:aStream |
2936 printObject:anObject on:aStream |
2937 |s| |
2937 |s| |
2938 |
2938 |
2939 s := anObject printString. |
2939 s := anObject printString. |
2940 s size > 20 ifTrue:[ |
2940 s size > 30 ifTrue:[ |
2941 s := anObject classNameWithArticle |
2941 s := anObject classNameWithArticle |
2942 ]. |
2942 ]. |
2943 aStream nextPutAll:s |
2943 aStream nextPutAll:s |
2944 ! |
2944 ! |
2945 |
2945 |
3148 ! ! |
3148 ! ! |
3149 |
3149 |
3150 !MessageTracer class methodsFor:'documentation'! |
3150 !MessageTracer class methodsFor:'documentation'! |
3151 |
3151 |
3152 version |
3152 version |
3153 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.103 2006-03-10 09:48:59 cg Exp $' |
3153 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.104 2006-04-07 07:28:35 stefan Exp $' |
3154 ! ! |
3154 ! ! |
3155 |
3155 |
3156 MessageTracer initialize! |
3156 MessageTracer initialize! |