28 ^ priority ? 0 |
28 ^ priority ? 0 |
29 |
29 |
30 "Modified: / 22-10-2006 / 11:09:36 / cg" |
30 "Modified: / 22-10-2006 / 11:09:36 / cg" |
31 ! |
31 ! |
32 |
32 |
|
33 priority:priorityOrPrioritySymbol |
|
34 priorityOrPrioritySymbol isSymbol ifTrue:[ |
|
35 priorityOrPrioritySymbol == #low ifTrue:[ |
|
36 priority := ToDoList lowPriority. |
|
37 ^ self. |
|
38 ]. |
|
39 priorityOrPrioritySymbol == #medium ifTrue:[ |
|
40 priority := ToDoList mediumPriority. |
|
41 ^ self. |
|
42 ]. |
|
43 priorityOrPrioritySymbol == #high ifTrue:[ |
|
44 priority := ToDoList highPriority. |
|
45 ^ self. |
|
46 ]. |
|
47 self error:'bad argument' |
|
48 ]. |
|
49 priority := priorityOrPrioritySymbol. |
|
50 ! |
|
51 |
33 severity |
52 severity |
34 ^ severity ? 0 |
53 ^ severity ? 0 |
35 |
54 |
36 "Modified: / 22-10-2006 / 11:09:42 / cg" |
55 "Modified: / 22-10-2006 / 11:09:42 / cg" |
37 ! |
56 ! |
38 |
57 |
|
58 severity:severityOrSeveritySymbol |
|
59 severityOrSeveritySymbol isSymbol ifTrue:[ |
|
60 severityOrSeveritySymbol == #info ifTrue:[ |
|
61 severity := ToDoList infoSeverity. |
|
62 ^ self. |
|
63 ]. |
|
64 severityOrSeveritySymbol == #warning ifTrue:[ |
|
65 severity := ToDoList warningSeverity. |
|
66 ^ self. |
|
67 ]. |
|
68 severityOrSeveritySymbol == #error ifTrue:[ |
|
69 severity := ToDoList errorSeverity. |
|
70 ^ self. |
|
71 ]. |
|
72 self error:'bad argument' |
|
73 ]. |
|
74 severity := severityOrSeveritySymbol. |
|
75 ! |
|
76 |
39 severity:severityArg priority:priorityArg timestamp:timestampArg message:messageArg |
77 severity:severityArg priority:priorityArg timestamp:timestampArg message:messageArg |
40 severity := severityArg. |
78 self severity:severityArg. |
41 priority := priorityArg. |
79 self priority:priorityArg. |
42 timestamp := timestampArg. |
80 timestamp := timestampArg. |
43 message := messageArg. |
81 message := messageArg. |
44 ! |
82 ! |
45 |
83 |
46 stillValid |
84 stillValid |