--- a/Tools__LintHighlighter.st Mon Dec 15 21:28:45 2014 +0100
+++ b/Tools__LintHighlighter.st Mon Dec 15 21:53:50 2014 +0100
@@ -76,10 +76,10 @@
emphasisError isNil ifTrue:[
warnColor := Color red.
- emphasisError := Array
- "/with: #backgroundColor -> warnColor lightened lightened
- with: #underwave
- with: #underlineColor -> warnColor
+ emphasisError := Array
+ "/with: #backgroundColor -> warnColor lightened lightened
+ with: #underwave
+ with: #underlineColor -> warnColor
].
^emphasisError
@@ -93,10 +93,10 @@
emphasisInformation isNil ifTrue:[
warnColor := Color blue lighter.
- emphasisInformation := Array
+ emphasisInformation := Array
"/with: #backgroundColor -> warnColor lightened lightened
- with: #underwave
- with: #underlineColor -> warnColor
+ with: #underwave
+ with: #underlineColor -> warnColor
].
^emphasisInformation
@@ -120,10 +120,10 @@
emphasisWarning isNil ifTrue:[
warnColor := (Color redByte: 224 greenByte: 200 blueByte: 45).
- emphasisWarning := Array
+ emphasisWarning := Array
"/with: #backgroundColor -> warnColor lightened lightened
- with: #underwave
- with: #underlineColor -> warnColor
+ with: #underwave
+ with: #underlineColor -> warnColor
].
^emphasisWarning
@@ -246,14 +246,14 @@
searches do:[:search|
| i |
i := 1.
- [
+ [
i := string findString: search startingAt: i.
i ~~ 0
] whileTrue:[
self mark: text from: i to: (i + search size - 1) for: rule.
i := i + search size + 1.
]
-
+
]
]
@@ -287,9 +287,9 @@
| emphasis |
emphasis := self emphasisForSeverity: rule severity.
- text emphasisFrom: start to: end add: emphasis.
- (rulesToIntervalsMap at: rule ifAbsentPut: Set new)
- add (start to: end)
+ text emphasisFrom: start to: end add: emphasis.
+ (rulesToIntervalsMap at: rule ifAbsentPut: [ Set new ])
+ add: (start to: end)
"Created: / 30-01-2012 / 15:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-12-2014 / 15:52:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -298,10 +298,10 @@
!LintHighlighter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.10 2014-12-15 20:27:28 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.11 2014-12-15 20:53:50 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.10 2014-12-15 20:27:28 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.11 2014-12-15 20:53:50 vrany Exp $'
! !