--- a/Tools__CodeHighlightingService.st	Wed Jul 20 14:54:28 2011 +0200
+++ b/Tools__CodeHighlightingService.st	Wed Jul 20 15:24:30 2011 +0200
@@ -276,6 +276,7 @@
                                     ].
                                     newCode notNil ifTrue:[
                                         textView modified ifFalse:[
+newCode ~= oldCodeList ifTrue:[
                                             newCode := newCode asStringCollection.
                                             textView modified ifFalse:[
                                                 worker := nil.
@@ -283,6 +284,7 @@
                                                     "/ must add this event - and not been interrupted
                                                     "/ by any arriving key-event.
                                                     "/ self showInfo:nil.
+
                                                     codeView sensor
                                                         pushUserEvent:#setHighlightedCode:elements:
                                                         for:self
@@ -290,6 +292,7 @@
                                                     "/self delayedUpdateBufferLabelWithCheckIfModified
                                                 ]
                                             ]
+].
                                         ]
                                     ]
                                 ]
@@ -304,7 +307,7 @@
 
     "Modified: / 10-04-2011 / 18:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-07-2011 / 12:26:12 / Jan Vrany <jan.vrant@fit.cvut,cz>"
-    "Modified: / 08-07-2011 / 08:35:49 / cg"
+    "Modified: / 20-07-2011 / 15:14:14 / cg"
 !
 
 stopSyntaxHighlightProcess
@@ -350,7 +353,7 @@
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.8 2011-07-08 06:51:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.9 2011-07-20 13:24:30 cg Exp $'
 !
 
 version_SVN