--- a/Tools__CodeHighlightingService.st	Fri Jul 08 08:50:25 2011 +0200
+++ b/Tools__CodeHighlightingService.st	Fri Jul 08 08:51:52 2011 +0200
@@ -28,10 +28,10 @@
 "{ NameSpace: Tools }"
 
 CodeViewService subclass:#CodeHighlightingService
-        instanceVariableNames:'worker workerRunning'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-CodeView'
+	instanceVariableNames:'worker workerRunning'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-CodeView'
 !
 
 !CodeHighlightingService class methodsFor:'documentation'!
@@ -257,7 +257,7 @@
                                             "/ Transcript topView raiseDeiconified.
                                             "/ Transcript showCR:'ParseError: ', ex description.
 "/ self halt.
-                                            self showInfo:(errMsg colorizeAllWith:Color red).
+                                            "/ self showInfo:(errMsg colorizeAllWith:Color red).
                                             newCode := nil.
                                         ] do:[
                                             elements := SortedCollection new.
@@ -303,8 +303,8 @@
             ] forkAt:prio
 
     "Modified: / 10-04-2011 / 18:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-07-2011 / 11:09:15 / cg"
     "Modified: / 07-07-2011 / 12:26:12 / Jan Vrany <jan.vrant@fit.cvut,cz>"
+    "Modified: / 08-07-2011 / 08:35:49 / cg"
 !
 
 stopSyntaxHighlightProcess
@@ -350,7 +350,7 @@
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.7 2011-07-07 16:37:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.8 2011-07-08 06:51:52 cg Exp $'
 !
 
 version_SVN