equal
deleted
inserted
replaced
3758 "Created: / 10-07-1997 / 14:57:51 / stefan" |
3758 "Created: / 10-07-1997 / 14:57:51 / stefan" |
3759 "Modified: / 26-09-2012 / 15:08:21 / cg" |
3759 "Modified: / 26-09-2012 / 15:08:21 / cg" |
3760 ! |
3760 ! |
3761 |
3761 |
3762 setLabelFor:aMessage in:aProcess |
3762 setLabelFor:aMessage in:aProcess |
3763 |l lines processNameOrNil pidOrNil osPidString| |
3763 |l lines processNameOrNil pidOrNil osPidString colorUsed| |
3764 |
3764 |
3765 lines := aMessage asStringCollection. |
3765 lines := aMessage asStringCollection. |
3766 lines size > 1 ifTrue:[ |
3766 lines size > 1 ifTrue:[ |
3767 l := lines first |
3767 l := lines first |
3768 ] ifFalse:[ |
3768 ] ifFalse:[ |
3786 ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[ |
3786 ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[ |
3787 osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'. |
3787 osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'. |
3788 ]. |
3788 ]. |
3789 |
3789 |
3790 exceptionInfoLabel notNil ifTrue:[ |
3790 exceptionInfoLabel notNil ifTrue:[ |
|
3791 colorUsed := isStoppedAtHaltOrBreakPoint |
|
3792 ifTrue:[ Color orange ] |
|
3793 ifFalse:[ Color red ]. |
|
3794 |
|
3795 (exceptionInfoLabel backgroundColor brightness dist:colorUsed brightness) < 0.5 |
|
3796 ifTrue:[ |
|
3797 exceptionInfoLabel backgroundColor brightness > 0.5 ifTrue:[ |
|
3798 colorUsed := colorUsed slightlyDarkened. |
|
3799 ] ifFalse:[ |
|
3800 colorUsed := colorUsed slightlyLigntened. |
|
3801 ]. |
|
3802 ]. |
|
3803 |
3791 exceptionInfoLabel |
3804 exceptionInfoLabel |
3792 label:(resources |
3805 label:(resources |
3793 string:'%1 in process %2 [%3]%4' |
3806 string:'%1 in process %2 [%3]%4' |
3794 with:(lines first withColor:#red) |
3807 with:(lines first withColor:colorUsed) |
3795 with:(processNameOrNil ? '') |
3808 with:(processNameOrNil ? '') |
3796 with:(pidOrNil ? '') |
3809 with:(pidOrNil ? '') |
3797 with:(osPidString ? '')) |
3810 with:(osPidString ? '')) |
3798 ]. |
3811 ]. |
3799 |
3812 |