--- a/Tools__ToDoListEntry.st	Wed Mar 14 13:13:51 2007 +0100
+++ b/Tools__ToDoListEntry.st	Wed Mar 14 13:14:33 2007 +0100
@@ -81,6 +81,18 @@
     message := messageArg.
 !
 
+severityString
+    |sev|
+
+    sev := self severity.
+    sev == (Tools::ToDoList errorSeverity) ifTrue:[ ^ 'E' ].
+    sev == (Tools::ToDoList warningSeverity) ifTrue:[ ^ 'W' ].
+    sev == (Tools::ToDoList infoSeverity) ifTrue:[ ^ 'i' ].
+    ^ sev printString
+
+    "Modified: / 22-10-2006 / 11:09:42 / cg"
+!
+
 stillValid
     ^ stillValid ? true
 
@@ -166,5 +178,5 @@
 !ToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.3 2007-02-10 16:13:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.4 2007-03-14 12:14:33 cg Exp $'
 ! !