equal
deleted
inserted
replaced
108 label := selector. |
108 label := selector. |
109 someClass programmingLanguage isSmalltalk ifFalse:[ |
109 someClass programmingLanguage isSmalltalk ifFalse:[ |
110 label := (someClass compiledMethodAt: selector) printStringForBrowserWithSelector: selector. |
110 label := (someClass compiledMethodAt: selector) printStringForBrowserWithSelector: selector. |
111 ] |
111 ] |
112 ]. |
112 ]. |
|
113 (classes size == 1 and:[ChangeSet current includesChangeForClass: classes anElement selector: selector]) ifTrue:[ |
|
114 label := label asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode) |
|
115 ] ifFalse:[ |
|
116 label isText ifTrue:[ |
|
117 label := label string. |
|
118 ]. |
|
119 ]. |
113 ^ label |
120 ^ label |
114 |
121 |
115 "Created: / 07-04-2011 / 09:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
122 "Created: / 07-04-2011 / 09:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
116 "Modified: / 20-05-2014 / 10:28:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
123 "Modified: / 16-01-2019 / 23:54:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
117 ! |
124 ! |
118 |
125 |
119 selector |
126 selector |
120 ^ selector |
127 ^ selector |
121 ! |
128 ! |