equal
deleted
inserted
replaced
502 aContext receiverPrintString lowLevelErrorPrint. ' ' lowLevelErrorPrint. |
502 aContext receiverPrintString lowLevelErrorPrint. ' ' lowLevelErrorPrint. |
503 aContext selector lowLevelErrorPrint. |
503 aContext selector lowLevelErrorPrint. |
504 aContext argumentCount ~~ 0 ifTrue: [ |
504 aContext argumentCount ~~ 0 ifTrue: [ |
505 ' ' lowLevelErrorPrint. aContext argsDisplayString lowLevelErrorPrint |
505 ' ' lowLevelErrorPrint. aContext argsDisplayString lowLevelErrorPrint |
506 ]. |
506 ]. |
507 ' [' lowLevelErrorPrint. aContext lineNumber lowLevelErrorPrint. ']' lowLevelErrorPrintCR |
507 ' [' lowLevelErrorPrint. aContext lineNumber printString lowLevelErrorPrint. ']' lowLevelErrorPrintCR |
508 ! |
508 ! |
509 |
509 |
510 printDot |
510 printDot |
511 self printContext:dot. |
511 self printContext:dot. |
512 ' receiver: ' lowLevelErrorPrint. dot receiver lowLevelErrorPrintCR. |
512 ' receiver: ' lowLevelErrorPrint. dot receiver lowLevelErrorPrintCR. |
1049 |
1049 |
1050 showProcesses:how |
1050 showProcesses:how |
1051 |active| |
1051 |active| |
1052 |
1052 |
1053 active := Processor activeProcess. |
1053 active := Processor activeProcess. |
1054 'current id=' lowLevelErrorPrint. active id lowLevelErrorPrint. ' name=''' lowLevelErrorPrint. active name lowLevelErrorPrint. '''' lowLevelErrorPrintCR. |
1054 'current id=' lowLevelErrorPrint. |
|
1055 active id printString lowLevelErrorPrint. |
|
1056 ' name=''' lowLevelErrorPrint. active name lowLevelErrorPrint. '''' lowLevelErrorPrintCR. |
1055 |
1057 |
1056 (Process allSubInstances sort:[:a :b | (a id ? -1)<(b id ? -1)]) do:[:p | |
1058 (Process allSubInstances sort:[:a :b | (a id ? -1)<(b id ? -1)]) do:[:p | |
1057 |doShow| |
1059 |doShow| |
1058 |
1060 |
1059 doShow := (how == #all). |
1061 doShow := (how == #all). |