--- a/Tools__ToDoListEntry.st	Mon Mar 03 10:39:33 2008 +0100
+++ b/Tools__ToDoListEntry.st	Mon Mar 03 10:39:36 2008 +0100
@@ -12,11 +12,23 @@
 
 !ToDoListEntry methodsFor:'accessing'!
 
+errorColor
+    ^ Color rgbValue:16rCF0000
+!
+
+hasHighSeverity
+    ^ (severity ? 0) >= (Tools::ToDoList errorSeverity)
+!
+
 list:something
     list := something.
 !
 
 message
+    self hasHighSeverity ifTrue:[ 
+        ^ message colorizeAllWith:self errorColor
+    ].
+
     ^ message
 !
 
@@ -49,6 +61,18 @@
     priority := priorityOrPrioritySymbol.
 !
 
+priorityString
+    |s|
+
+    s := (priority ? 0) printString.
+    self hasHighSeverity ifTrue:[ 
+        ^ s colorizeAllWith:self errorColor
+    ].
+    ^ s
+
+    "Modified: / 22-10-2006 / 11:09:36 / cg"
+!
+
 severity
     ^ severity ? 0
 
@@ -85,10 +109,10 @@
     |sev|
 
     sev := self severity.
-    sev == (Tools::ToDoList errorSeverity) ifTrue:[ ^ 'E' ].
-    sev == (Tools::ToDoList warningSeverity) ifTrue:[ ^ 'W' ].
-    sev == (Tools::ToDoList infoSeverity) ifTrue:[ ^ 'i' ].
-    ^ sev printString
+    sev >= (Tools::ToDoList errorSeverity) ifTrue:[ ^ 'E' allBold colorizeAllWith:self errorColor].
+    sev >= (Tools::ToDoList warningSeverity) ifTrue:[ ^ 'W' ].
+    sev >= (Tools::ToDoList infoSeverity) ifTrue:[ ^ 'i' ].
+    ^ ' '
 
     "Modified: / 22-10-2006 / 11:09:42 / cg"
 !
@@ -178,5 +202,5 @@
 !ToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.6 2007-03-15 21:46:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.7 2008-03-03 09:39:36 cg Exp $'
 ! !