# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1171124034 -3600
# Node ID ff0bb7053eaea859e496f22a0d9e92d8aa114338
# Parent  73446048b7a68f7a04236960c50ba3fde17c5fa7
*** empty log message ***

diff -r 73446048b7a6 -r ff0bb7053eae Tools__ToDoListEntry.st
--- a/Tools__ToDoListEntry.st	Sat Feb 10 17:13:33 2007 +0100
+++ b/Tools__ToDoListEntry.st	Sat Feb 10 17:13:54 2007 +0100
@@ -30,15 +30,53 @@
     "Modified: / 22-10-2006 / 11:09:36 / cg"
 !
 
+priority:priorityOrPrioritySymbol 
+    priorityOrPrioritySymbol isSymbol ifTrue:[
+        priorityOrPrioritySymbol == #low ifTrue:[
+            priority := ToDoList lowPriority.
+            ^ self.
+        ].
+        priorityOrPrioritySymbol == #medium ifTrue:[
+            priority := ToDoList mediumPriority.
+            ^ self.
+        ].
+        priorityOrPrioritySymbol == #high ifTrue:[
+            priority := ToDoList highPriority.
+            ^ self.
+        ].
+        self error:'bad argument'
+    ].
+    priority := priorityOrPrioritySymbol.
+!
+
 severity
     ^ severity ? 0
 
     "Modified: / 22-10-2006 / 11:09:42 / cg"
 !
 
+severity:severityOrSeveritySymbol
+    severityOrSeveritySymbol isSymbol ifTrue:[
+        severityOrSeveritySymbol == #info ifTrue:[
+            severity := ToDoList infoSeverity.
+            ^ self.
+        ].
+        severityOrSeveritySymbol == #warning ifTrue:[
+            severity := ToDoList warningSeverity.
+            ^ self.
+        ].
+        severityOrSeveritySymbol == #error ifTrue:[
+            severity := ToDoList errorSeverity.
+            ^ self.
+        ].
+        self error:'bad argument'
+    ].
+    severity := severityOrSeveritySymbol.
+!
+
 severity:severityArg priority:priorityArg timestamp:timestampArg message:messageArg 
-    severity := severityArg.
-    priority := priorityArg.
+    self severity:severityArg.
+    self priority:priorityArg.
     timestamp := timestampArg.
     message := messageArg.
 !
@@ -128,5 +166,5 @@
 !ToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.2 2006-11-20 21:32:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.3 2007-02-10 16:13:54 cg Exp $'
 ! !