equal
deleted
inserted
replaced
110 ] |
110 ] |
111 ]. |
111 ]. |
112 ] ifFalse:[ |
112 ] ifFalse:[ |
113 label := klass nameWithoutNameSpacePrefix. |
113 label := klass nameWithoutNameSpacePrefix. |
114 ]. |
114 ]. |
|
115 (ChangeSet current includesChangeForClass: klass) ifTrue:[ |
|
116 label := label asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode) |
|
117 ]. |
115 ]. |
118 ]. |
116 |
119 |
117 ^label |
120 ^label |
118 |
121 |
119 "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
122 "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120 "Modified: / 07-08-2014 / 16:19:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
123 "Modified: / 03-11-2015 / 07:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
121 ! |
124 ! |
122 |
125 |
123 showPrefix |
126 showPrefix |
124 ^ showPrefix |
127 ^ showPrefix |
125 ! |
128 ! |