--- 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