2408 nextPutAll:mClassName; |
2408 nextPutAll:mClassName; |
2409 space; |
2409 space; |
2410 bold; |
2410 bold; |
2411 nextPutAll:aContext selector; |
2411 nextPutAll:aContext selector; |
2412 normal; |
2412 normal; |
2413 nextPutAll:' rcvr='. |
2413 nextPutAll:' rec=['. |
2414 |
2414 |
2415 aContext receiver printOn:aStream. |
2415 aContext receiver printOn:aStream. |
2416 aStream nextPutAll:' args='. |
2416 aStream nextPutAll:'] '. |
2417 (aContext args) printOn:aStream. |
2417 (aContext args) keysAndValuesDo:[:idx :arg | |
2418 aStream nextPutAll:' from:'. |
2418 |s| |
|
2419 |
|
2420 s := arg printString. |
|
2421 s > 20 ifTrue:[ |
|
2422 s := arg classNameWithArticle |
|
2423 ]. |
|
2424 aStream nextPutAll:'arg'. idx printOn:aStream. aStream nextPutAll:'=['. |
|
2425 s printOn:aStream. |
|
2426 aStream nextPutAll:'] '. |
|
2427 ]. |
2419 |
2428 |
2420 sender := aContext sender. |
2429 sender := aContext sender. |
2421 sender notNil ifTrue:[ |
2430 sender notNil ifTrue:[ |
2422 (sender selector startsWith:'perform:') ifTrue:[ |
2431 (sender selector startsWith:'perform:') ifTrue:[ |
2423 sender := sender sender. |
2432 sender := sender sender. |
2424 ]. |
2433 ]. |
2425 ]. |
2434 ]. |
|
2435 |
|
2436 aStream nextPutAll:'from:'. |
2426 sender printOn:aStream. |
2437 sender printOn:aStream. |
2427 aStream cr. aStream flush. |
2438 aStream cr; flush. |
2428 |
2439 |
2429 "Modified: 5.3.1997 / 12:40:55 / cg" |
2440 "Modified: 5.3.1997 / 12:40:55 / cg" |
2430 ! |
2441 ! |
2431 |
2442 |
2432 printEntryFull:aContext on:aStream |
2443 printEntryFull:aContext on:aStream |
2485 nextPutAll:mClassName; |
2496 nextPutAll:mClassName; |
2486 space; |
2497 space; |
2487 bold; |
2498 bold; |
2488 nextPutAll:aContext selector; |
2499 nextPutAll:aContext selector; |
2489 normal; |
2500 normal; |
2490 nextPutAll:' rcvr='. |
2501 nextPutAll:' rec=['. |
2491 |
2502 |
2492 aContext receiver printOn:aStream. |
2503 aContext receiver printOn:aStream. |
2493 aStream nextPutAll:' return:'. |
2504 aStream nextPutAll:'] return: ['. |
2494 retVal printOn:aStream. |
2505 retVal printOn:aStream. |
2495 aStream cr. |
2506 aStream nextPutAll:']'; cr; flush. |
2496 ! |
2507 ! |
2497 |
2508 |
2498 printExit:aContext with:retVal on:aStream |
2509 printExit:aContext with:retVal on:aStream |
2499 self printExit:aContext with:retVal level:0 on:aStream |
2510 self printExit:aContext with:retVal level:0 on:aStream |
2500 ! |
2511 ! |