changed:
authorClaus Gittinger <cg@exept.de>
Thu, 08 Mar 2012 04:16:18 +0100
changeset 11394 67ceb823b09f
parent 11393 fb1c9eb2aab7
child 11395 4294f923ecd3
changed: #emphasisForError #emphasisForInformation #emphasisForWarning
Tools__LintHighlighter.st
--- a/Tools__LintHighlighter.st	Thu Mar 08 03:48:16 2012 +0100
+++ b/Tools__LintHighlighter.st	Thu Mar 08 04:16:18 2012 +0100
@@ -26,27 +26,35 @@
 !LintHighlighter methodsFor:'accessing-emphasis'!
 
 emphasisForError
+    |warnColor|
 
     emphasisError isNil ifTrue:[
+        warnColor := Color red.
         emphasisError := Array 
+            with: #backgroundColor -> warnColor lightened lightened 
             with: #underwave 
-            with: #underlineColor -> Color red                    
+            with: #underlineColor -> warnColor                    
     ].
     ^emphasisError
 
     "Created: / 05-08-2011 / 09:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-03-2012 / 03:00:51 / cg"
 !
 
 emphasisForInformation
+    |warnColor|
 
     emphasisInformation isNil ifTrue:[
+        warnColor := Color blue lighter.
         emphasisInformation := Array 
+            with: #backgroundColor -> warnColor lightened lightened
             with: #underwave 
-            with: #underlineColor -> Color blue lighter                    
+            with: #underlineColor -> warnColor                    
     ].
     ^emphasisInformation
 
     "Created: / 05-08-2011 / 09:31:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-03-2012 / 03:01:22 / cg"
 !
 
 emphasisForSeverity: severity
@@ -60,15 +68,19 @@
 !
 
 emphasisForWarning
+    |warnColor|
 
     emphasisWarning isNil ifTrue:[
+        warnColor := (Color redByte: 224 greenByte: 200 blueByte: 45).
         emphasisWarning := Array 
+            with: #backgroundColor -> warnColor lightened lightened
             with: #underwave 
-            with: #underlineColor -> (Color redByte: 224 greenByte: 200 blueByte: 45)                  
+            with: #underlineColor -> warnColor                  
     ].
     ^emphasisWarning
 
     "Created: / 05-08-2011 / 09:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-03-2012 / 03:00:19 / cg"
 ! !
 
 !LintHighlighter methodsFor:'formatting'!
@@ -185,9 +197,9 @@
 !LintHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.4 2012-03-07 17:18:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.5 2012-03-08 03:16:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.4 2012-03-07 17:18:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.5 2012-03-08 03:16:18 cg Exp $'
 ! !