equal
deleted
inserted
replaced
290 "/ when the text is converted. This detects the |
290 "/ when the text is converted. This detects the |
291 "/ resulting error. |
291 "/ resulting error. |
292 "/ Certainly a kludge. |
292 "/ Certainly a kludge. |
293 |
293 |
294 oldLine string = line string ifTrue:[ |
294 oldLine string = line string ifTrue:[ |
|
295 | i | |
|
296 |
|
297 "JV@2012-02-01: Remove any emphasis on leading whitespace" |
|
298 "(presumably created by LintHighlighter)" |
|
299 i := line string indexOfNonSeparator. |
|
300 i > 1 ifTrue:[ |
|
301 | e | |
|
302 |
|
303 (e := (line emphasisAt: i - 1)) notNil ifTrue:[ |
|
304 line emphasisFrom: 1 to: i - 1 remove: e. |
|
305 ] |
|
306 ]. |
|
307 |
295 oldLine emphasis ~= line emphasis ifTrue:[ |
308 oldLine emphasis ~= line emphasis ifTrue:[ |
296 textView modifiedChannel removeDependent:self. |
309 textView modifiedChannel removeDependent:self. |
297 list at:lNr put:line. |
310 list at:lNr put:line. |
298 textView modifiedChannel addDependent:self. |
311 textView modifiedChannel addDependent:self. |
299 (lNr between:firstShown and:lastShown) ifTrue:[ |
312 (lNr between:firstShown and:lastShown) ifTrue:[ |
333 |
346 |
334 "Modified: / 09-10-2006 / 11:50:17 / cg" |
347 "Modified: / 09-10-2006 / 11:50:17 / cg" |
335 "Created: / 14-02-2010 / 16:10:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
348 "Created: / 14-02-2010 / 16:10:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
336 "Modified (format): / 21-08-2011 / 09:38:22 / cg" |
349 "Modified (format): / 21-08-2011 / 09:38:22 / cg" |
337 "Modified: / 30-01-2012 / 16:49:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
350 "Modified: / 30-01-2012 / 16:49:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
351 "Modified: / 01-02-2012 / 19:18:00 / jv" |
338 ! ! |
352 ! ! |
339 |
353 |
340 !CodeHighlightingService class methodsFor:'documentation'! |
354 !CodeHighlightingService class methodsFor:'documentation'! |
341 |
355 |
342 version |
356 version |
343 ^ '$Id: Tools__CodeHighlightingService.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
357 ^ '$Id: Tools__CodeHighlightingService.st 7865 2012-02-01 19:44:39Z vranyj1 $' |
344 ! |
358 ! |
345 |
359 |
346 version_CVS |
360 version_CVS |
347 ^ '§Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.30 2012/01/24 12:56:13 vrany Exp §' |
361 ^ '§Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.30 2012/01/24 12:56:13 vrany Exp §' |
348 ! |
362 ! |
349 |
363 |
350 version_SVN |
364 version_SVN |
351 ^ '$Id: Tools__CodeHighlightingService.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
365 ^ '$Id: Tools__CodeHighlightingService.st 7865 2012-02-01 19:44:39Z vranyj1 $' |
352 ! ! |
366 ! ! |