equal
deleted
inserted
replaced
207 ]. |
207 ]. |
208 ]. |
208 ]. |
209 mthd := codeView methodHolder value. |
209 mthd := codeView methodHolder value. |
210 |
210 |
211 "textView" modified ifFalse:[ |
211 "textView" modified ifFalse:[ |
212 oldCodeList := textView list copy. |
212 "/ bad bad bad: textView's list may change, while we copy!!!!!!!!!! |
|
213 [ |
|
214 oldCodeList := textView list copy. |
|
215 ] valueUninterruptably. |
|
216 |
213 "textView" modified ifFalse:[ |
217 "textView" modified ifFalse:[ |
214 oldCodeList isNil ifFalse:[ |
218 oldCodeList isNil ifFalse:[ |
215 oldCode := oldCodeList asStringWithoutEmphasis. |
219 oldCode := oldCodeList asStringWithoutEmphasis. |
216 "textView" modified ifFalse:[ |
220 "textView" modified ifFalse:[ |
217 Screen currentScreenQuerySignal answer:codeView device |
221 Screen currentScreenQuerySignal answer:codeView device |
375 ! ! |
379 ! ! |
376 |
380 |
377 !CodeHighlightingService class methodsFor:'documentation'! |
381 !CodeHighlightingService class methodsFor:'documentation'! |
378 |
382 |
379 version |
383 version |
380 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.44 2013-07-30 17:35:09 cg Exp $' |
384 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.45 2013-09-16 10:40:45 cg Exp $' |
381 ! |
385 ! |
382 |
386 |
383 version_CVS |
387 version_CVS |
384 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.44 2013-07-30 17:35:09 cg Exp $' |
388 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.45 2013-09-16 10:40:45 cg Exp $' |
385 ! |
389 ! |
386 |
390 |
387 version_HG |
391 version_HG |
388 |
392 |
389 ^ '$Changeset: <not expanded> $' |
393 ^ '$Changeset: <not expanded> $' |
390 ! |
394 ! |
391 |
395 |
392 version_SVN |
396 version_SVN |
393 ^ '$Id: Tools__CodeHighlightingService.st,v 1.44 2013-07-30 17:35:09 cg Exp $' |
397 ^ '$Id: Tools__CodeHighlightingService.st,v 1.45 2013-09-16 10:40:45 cg Exp $' |
394 ! ! |
398 ! ! |
395 |
399 |