equal
deleted
inserted
replaced
2526 |
2526 |
2527 |clr| |
2527 |clr| |
2528 |
2528 |
2529 clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil. |
2529 clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil. |
2530 clr isNil ifTrue:[ |
2530 clr isNil ifTrue:[ |
2531 clr := Color green slightlyDarkened "darkened". "/ slightlyDarkened. |
2531 clr := Color green "slightlyDarkened" "darkened". |
2532 "/ self at:#colorForInstrumentedFullyCoveredCode put:clr. |
2532 "/ self at:#colorForInstrumentedFullyCoveredCode put:clr. |
2533 ]. |
2533 ]. |
2534 ^ clr |
2534 ^ clr |
2535 |
2535 |
2536 " |
2536 " |
2561 |
2561 |
2562 |clr| |
2562 |clr| |
2563 |
2563 |
2564 clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil. |
2564 clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil. |
2565 clr isNil ifTrue:[ |
2565 clr isNil ifTrue:[ |
2566 clr := Color red slightlyDarkened "darkened". "/ slightlyDarkened. |
2566 clr := Color red "slightlyDarkened" "darkened". |
2567 "/ self at:#colorForInstrumentedNeverCalledCode put:clr. |
2567 "/ self at:#colorForInstrumentedNeverCalledCode put:clr. |
2568 ]. |
2568 ]. |
2569 ^ clr |
2569 ^ clr |
2570 |
2570 |
2571 " |
2571 " |
2596 |
2596 |
2597 |clr| |
2597 |clr| |
2598 |
2598 |
2599 clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil. |
2599 clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil. |
2600 clr isNil ifTrue:[ |
2600 clr isNil ifTrue:[ |
2601 clr := Color orange slightlyDarkened. |
2601 clr := Color orange "slightlyDarkened". |
2602 "/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr. |
2602 "/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr. |
2603 ]. |
2603 ]. |
2604 ^ clr |
2604 ^ clr |
2605 |
2605 |
2606 " |
2606 " |
5195 ! ! |
5195 ! ! |
5196 |
5196 |
5197 !UserPreferences class methodsFor:'documentation'! |
5197 !UserPreferences class methodsFor:'documentation'! |
5198 |
5198 |
5199 version |
5199 version |
5200 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.392 2015-02-01 21:54:34 cg Exp $' |
5200 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.393 2015-02-03 16:39:34 cg Exp $' |
5201 ! |
5201 ! |
5202 |
5202 |
5203 version_CVS |
5203 version_CVS |
5204 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.392 2015-02-01 21:54:34 cg Exp $' |
5204 ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.393 2015-02-03 16:39:34 cg Exp $' |
5205 ! |
5205 ! |
5206 |
5206 |
5207 version_SVN |
5207 version_SVN |
5208 ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
5208 ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
5209 ! ! |
5209 ! ! |