--- 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 $'
! !