--- a/Tools__ToDoListEntry.st	Thu Mar 15 16:30:01 2007 +0100
+++ b/Tools__ToDoListEntry.st	Thu Mar 15 18:08:05 2007 +0100
@@ -10,6 +10,38 @@
 !
 
 
+!ToDoListEntry class methodsFor:'notification'!
+
+notifyTodo:msg position:position
+     className:className selector:selector
+     severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol
+     equalityParameter:equalityParameter checkAction:checkAction
+
+    |entry brwsr|
+
+    (brwsr := Tools::ToDoListBrowser current) isNil ifTrue:[^ self ].
+
+    entry := self new.
+    entry
+        severity:severityOrSeveritySymbol
+        priority:priorityOrPrioritySymbol
+        timestamp:(Timestamp now)
+        message:msg
+        className:className
+        selector:selector
+        checkAction:checkAction
+        equalityParameter:equalityParameter
+        position:position.
+
+    (Tools::ToDoNotification notNil and:[Tools::ToDoNotification isHandled]) ifTrue:[
+        Tools::ToDoNotification raiseRequestWith:entry
+    ] ifFalse:[
+        brwsr addEntry:entry
+    ].
+
+    "Created: / 15-03-2007 / 18:08:06 / cg"
+! !
+
 !ToDoListEntry methodsFor:'accessing'!
 
 list:something
@@ -178,5 +210,5 @@
 !ToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.4 2007-03-14 12:14:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.5 2007-03-15 17:08:05 cg Exp $'
 ! !