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