Tools__LintHighlighter.st
branchjv
changeset 12123 4bde08cebd48
parent 11226 601cb4e6c1f9
child 12125 0c49a3b13e43
--- a/Tools__LintHighlighter.st	Fri Jan 27 22:18:53 2012 +0100
+++ b/Tools__LintHighlighter.st	Sun Jan 29 12:53:39 2012 +0000
@@ -62,7 +62,7 @@
     emphasisWarning isNil ifTrue:[
         emphasisWarning := Array 
             with: #underwave 
-            with: #underlineColor -> (Color redByte: 224 greenByte: 200 blueByte: 45)                  
+            with: #underlineColor -> Color yellow darker                  
     ].
     ^emphasisWarning
 
@@ -141,11 +141,7 @@
     rule result isParseTreeEnvironment ifTrue:[
         formattingMethod ifTrue:[
             | interval |
-            [
-                interval := rule result selectionIntervalFor: string.
-            ] on: Error do:[
-                interval := nil.
-            ].
+            interval := rule result selectionIntervalFor: string.
             interval notNil ifTrue:[
                 text emphasisFrom: interval first to: interval last 
                          add: emphasis.            
@@ -178,9 +174,9 @@
 !LintHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.3 2012-01-27 21:18:06 vrany Exp $'
+    ^ '$Id: Tools__LintHighlighter.st 7810 2011-08-12 14:54:02Z vranyj1 $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.3 2012-01-27 21:18:06 vrany Exp $'
-! !
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.2 2011/08/05 13:06:38 vrany Exp §'
+! !
\ No newline at end of file