1487 " |
1487 " |
1488 ! ! |
1488 ! ! |
1489 |
1489 |
1490 !UserPreferences methodsFor:'accessing-prefs-browser-colors'! |
1490 !UserPreferences methodsFor:'accessing-prefs-browser-colors'! |
1491 |
1491 |
|
1492 colorForInstrumentedFullyCoveredCode |
|
1493 "the color for code in the browser which is instrumented |
|
1494 and where all branches have been executed (also code, which has been executed)" |
|
1495 |
|
1496 |clr| |
|
1497 |
|
1498 clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil. |
|
1499 clr isNil ifTrue:[ |
|
1500 clr := Color green slightlyDarkened. |
|
1501 self at:#colorForInstrumentedFullyCoveredCode put:clr. |
|
1502 ]. |
|
1503 ^ clr |
|
1504 |
|
1505 " |
|
1506 UserPreferences current |
|
1507 at:#emphasisForInstrumentedFullyCoveredCode |
|
1508 put:(Color green slightlyDarkened). |
|
1509 " |
|
1510 |
|
1511 "Created: / 28-04-2010 / 13:58:52 / cg" |
|
1512 ! |
|
1513 |
|
1514 colorForInstrumentedNeverCalledCode |
|
1515 "the color for code in the browser which is instrumented but has never been called" |
|
1516 |
|
1517 |clr| |
|
1518 |
|
1519 clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil. |
|
1520 clr isNil ifTrue:[ |
|
1521 clr := Color red slightlyDarkened. |
|
1522 self at:#colorForInstrumentedNeverCalledCode put:clr. |
|
1523 ]. |
|
1524 ^ clr |
|
1525 |
|
1526 " |
|
1527 UserPreferences current |
|
1528 at:#colorForInstrumentedNeverCalledCode |
|
1529 put:(Color red slightlyDarkened). |
|
1530 " |
|
1531 |
|
1532 "Created: / 28-04-2010 / 13:59:43 / cg" |
|
1533 ! |
|
1534 |
|
1535 colorForInstrumentedPartiallyCoveredCode |
|
1536 "color for code in the browser which is instrumented and where some branches have been |
|
1537 executed" |
|
1538 |
|
1539 |clr| |
|
1540 |
|
1541 clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil. |
|
1542 clr isNil ifTrue:[ |
|
1543 clr := Color orange. |
|
1544 self at:#colorForInstrumentedPartiallyCoveredCode put:clr. |
|
1545 ]. |
|
1546 ^ clr |
|
1547 |
|
1548 " |
|
1549 UserPreferences current |
|
1550 at:#colorForInstrumentedPartiallyCoveredCode |
|
1551 put:(Color orange slightlyLightened). |
|
1552 " |
|
1553 |
|
1554 "Created: / 28-04-2010 / 14:00:56 / cg" |
|
1555 ! |
|
1556 |
1492 emphasisForChangedCode |
1557 emphasisForChangedCode |
1493 "the emphasis for changed code (in changeSet) in the browser" |
1558 "the emphasis for changed code (in changeSet) in the browser" |
1494 |
1559 |
1495 |emp| |
1560 |emp| |
1496 |
1561 |
1547 ^ emp |
1612 ^ emp |
1548 |
1613 |
1549 " |
1614 " |
1550 self allInstancesDo:[:pref |pref at:#emphasisForDifferentPackage put:nil]. |
1615 self allInstancesDo:[:pref |pref at:#emphasisForDifferentPackage put:nil]. |
1551 " |
1616 " |
|
1617 ! |
|
1618 |
|
1619 emphasisForInstrumentedFullyCoveredCode |
|
1620 "the emphasis for code in the browser which is instrumented and where all branches have been |
|
1621 executed" |
|
1622 |
|
1623 |emp| |
|
1624 |
|
1625 emp := self at:#emphasisForInstrumentedFullyCoveredCode ifAbsent:nil. |
|
1626 emp isNil ifTrue:[ |
|
1627 emp := #color->Color green slightlyDarkened. |
|
1628 emp := Array with:#bold with:emp. |
|
1629 "/ emp := #color->Color blue darkened. |
|
1630 self at:#emphasisForInstrumentedFullyCoveredCode put:emp. |
|
1631 ]. |
|
1632 ^ emp |
|
1633 |
|
1634 " |
|
1635 UserPreferences current |
|
1636 at:#emphasisForInstrumentedFullyCoveredCode |
|
1637 put:(Array with:#bold with:(#color->Color green slightlyDarkened)). |
|
1638 " |
|
1639 |
|
1640 "Created: / 27-04-2010 / 13:01:01 / cg" |
|
1641 "Modified: / 27-04-2010 / 14:48:11 / cg" |
|
1642 ! |
|
1643 |
|
1644 emphasisForInstrumentedNeverCalledCode |
|
1645 "the emphasis for code in the browser which is instrumented but has never been called" |
|
1646 |
|
1647 |emp| |
|
1648 |
|
1649 emp := self at:#emphasisForInstrumentedNeverCalledCode ifAbsent:nil. |
|
1650 emp isNil ifTrue:[ |
|
1651 emp := #color->Color red slightlyDarkened. |
|
1652 emp := Array with:#bold with:emp. |
|
1653 "/ emp := #color->Color blue darkened. |
|
1654 self at:#emphasisForInstrumentedNeverCalledCode put:emp. |
|
1655 ]. |
|
1656 ^ emp |
|
1657 |
|
1658 " |
|
1659 UserPreferences current |
|
1660 at:#emphasisForInstrumentedNeverCalledCode |
|
1661 put:(Array with:#bold with:(#color->Color red slightlyDarkened)). |
|
1662 " |
|
1663 |
|
1664 "Created: / 27-04-2010 / 12:59:47 / cg" |
|
1665 "Modified: / 27-04-2010 / 14:48:39 / cg" |
|
1666 ! |
|
1667 |
|
1668 emphasisForInstrumentedPartiallyCoveredCode |
|
1669 "the emphasis for code in the browser which is instrumented and where some branches have been |
|
1670 executed" |
|
1671 |
|
1672 |emp| |
|
1673 |
|
1674 emp := self at:#emphasisForInstrumentedPartiallyCoveredCode ifAbsent:nil. |
|
1675 emp isNil ifTrue:[ |
|
1676 emp := #color->Color orange. |
|
1677 emp := Array with:#bold with:emp. |
|
1678 "/ emp := #color->Color blue darkened. |
|
1679 self at:#emphasisForInstrumentedPartiallyCoveredCode put:emp. |
|
1680 ]. |
|
1681 ^ emp |
|
1682 |
|
1683 " |
|
1684 UserPreferences current |
|
1685 at:#emphasisForInstrumentedPartiallyCoveredCode |
|
1686 put:(Array with:#bold with:(#color->Color orange slightlyLightened)). |
|
1687 " |
|
1688 |
|
1689 "Created: / 27-04-2010 / 13:01:20 / cg" |
|
1690 "Modified: / 27-04-2010 / 18:50:43 / cg" |
1552 ! |
1691 ! |
1553 |
1692 |
1554 emphasisForModifiedBuffer |
1693 emphasisForModifiedBuffer |
1555 |emp| |
1694 |emp| |
1556 |
1695 |
3103 ! ! |
3242 ! ! |
3104 |
3243 |
3105 !UserPreferences class methodsFor:'documentation'! |
3244 !UserPreferences class methodsFor:'documentation'! |
3106 |
3245 |
3107 version |
3246 version |
3108 ^ '$Id: UserPreferences.st 10517 2010-04-26 18:26:38Z vranyj1 $' |
3247 ^ '$Id: UserPreferences.st 10520 2010-05-04 11:50:05Z vranyj1 $' |
3109 ! |
3248 ! |
3110 |
3249 |
3111 version_CVS |
3250 version_CVS |
3112 ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.245 2010/03/15 11:49:20 cg Exp §' |
3251 ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.248 2010/04/30 09:52:43 cg Exp §' |
3113 ! |
3252 ! |
3114 |
3253 |
3115 version_SVN |
3254 version_SVN |
3116 ^ '$Id: UserPreferences.st 10517 2010-04-26 18:26:38Z vranyj1 $' |
3255 ^ '$Id: UserPreferences.st 10520 2010-05-04 11:50:05Z vranyj1 $' |
3117 ! ! |
3256 ! ! |
|
3257 |