equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2003 by eXept Software AG |
4 COPYRIGHT (c) 2003 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3667 ^ self. |
3669 ^ self. |
3668 ]. |
3670 ]. |
3669 group := self getGroupStringFor:aProcess. |
3671 group := self getGroupStringFor:aProcess. |
3670 |
3672 |
3671 state := aProcess state. |
3673 state := aProcess state. |
3672 running := (state == #run and:[aProcess == Processor interruptedProcess]). |
3674 running := (aProcess isRunning and:[aProcess == Processor interruptedProcess]). |
3673 stateColor := (state == #run) |
3675 stateColor := aProcess isRunning |
3674 ifTrue:[ Color darkGreen ] |
3676 ifTrue:[ Color darkGreen ] |
3675 ifFalse:[ |
3677 ifFalse:[ |
3676 (state == #debug or:[state == #stopped]) |
3678 (aProcess isDebuggedOrStopped) |
3677 ifTrue:[ Color red ] |
3679 ifTrue:[ Color red ] |
3678 ifFalse:[ Color black ]]. |
3680 ifFalse:[ Color black ]]. |
3679 stateString := state asString withColor:stateColor. |
3681 stateString := state asString withColor:stateColor. |
3680 |
3682 |
3681 processItem |
3683 processItem |
3727 showInstrumentation value ifTrue:[ |
3729 showInstrumentation value ifTrue:[ |
3728 processItem processInstrumentation:(self getInstrumentationStringFor:aProcess) |
3730 processItem processInstrumentation:(self getInstrumentationStringFor:aProcess) |
3729 ]. |
3731 ]. |
3730 |
3732 |
3731 "Modified: / 17-08-2011 / 11:04:32 / cg" |
3733 "Modified: / 17-08-2011 / 11:04:32 / cg" |
3732 "Modified: / 13-03-2019 / 21:13:08 / Claus Gittinger" |
3734 "Modified: / 29-05-2019 / 01:01:34 / Claus Gittinger" |
3733 ! |
3735 ! |
3734 |
3736 |
3735 fillItemInformationIn:processItem with:aProcess inArray:weakArrayWithProcesses atIndex:processInstanceIndexInWeakArray |
3737 fillItemInformationIn:processItem with:aProcess inArray:weakArrayWithProcesses atIndex:processInstanceIndexInWeakArray |
3736 |
3738 |
3737 processItem weakArrayWithProcesses:weakArrayWithProcesses. |
3739 processItem weakArrayWithProcesses:weakArrayWithProcesses. |