--- a/Tools__ToDoListEntry.st	Mon Nov 20 22:32:32 2006 +0100
+++ b/Tools__ToDoListEntry.st	Mon Nov 20 22:32:41 2006 +0100
@@ -20,6 +20,10 @@
     ^ message
 !
 
+message:something
+    message := something.
+!
+
 priority
     ^ priority ? 0
 
@@ -75,6 +79,17 @@
     "Created: / 21-10-2006 / 21:40:47 / cg"
 ! !
 
+!ToDoListEntry methodsFor:'initialization'!
+
+initialize
+    severity := Tools::ToDoList warningSeverity.
+    priority := Tools::ToDoList highPriority.
+    timestamp := Timestamp now.
+    message := 'Check this'
+
+    "Created: / 20-11-2006 / 15:00:39 / cg"
+! !
+
 !ToDoListEntry methodsFor:'misc'!
 
 browse
@@ -113,5 +128,5 @@
 !ToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.1 2006-10-23 08:57:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.2 2006-11-20 21:32:41 cg Exp $'
 ! !