equal
deleted
inserted
replaced
1671 |
1671 |
1672 currentChangeSet := ChangeSet current. |
1672 currentChangeSet := ChangeSet current. |
1673 isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector. |
1673 isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector. |
1674 |
1674 |
1675 isInChangeSet ifTrue:[ |
1675 isInChangeSet ifTrue:[ |
1676 s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode) |
1676 s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode) |
1677 ]. |
1677 ]. |
1678 |
1678 |
1679 (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[ |
1679 (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[ |
1680 suppressPackage := false. |
1680 suppressPackage := false. |
1681 mthdPackage = PackageId noProjectID ifTrue:[ |
1681 mthdPackage = PackageId noProjectID ifTrue:[ |
1703 |
1703 |
1704 "Modified: / 23-01-1998 / 13:15:15 / stefan" |
1704 "Modified: / 23-01-1998 / 13:15:15 / stefan" |
1705 "Created: / 05-02-2000 / 22:55:56 / cg" |
1705 "Created: / 05-02-2000 / 22:55:56 / cg" |
1706 "Modified: / 05-03-2007 / 16:18:53 / cg" |
1706 "Modified: / 05-03-2007 / 16:18:53 / cg" |
1707 "Modified: / 20-07-2010 / 15:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1707 "Modified: / 20-07-2010 / 15:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1708 "Modified: / 15-09-2021 / 13:30:38 / Jan Vrany <jan.vrany@labware.com>" |
1708 ! ! |
1709 ! ! |
1709 |
1710 |
1710 !Method methodsFor:'printing & storing'! |
1711 !Method methodsFor:'printing & storing'! |
1711 |
1712 |
1712 selectorPrintStringInBrowserFor:selector |
1713 selectorPrintStringInBrowserFor:selector |