--- a/Tools__CompilerWarningToDoListEntry.st	Thu Mar 15 22:46:43 2007 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Thu Mar 15 22:46:46 2007 +0100
@@ -18,6 +18,38 @@
     "Created: / 20-11-2006 / 14:58:52 / cg"
 ! !
 
+!CompilerWarningToDoListEntry 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"
+! !
+
 !CompilerWarningToDoListEntry methodsFor:'accessing'!
 
 className
@@ -102,6 +134,7 @@
         message:msgArg className:classNameArg selector:selectorArg 
         checkAction:checkActionArg equalityParameter:equalityParameterArg
         position:positionArg
+
     self
         severity:severityArg 
         priority:priorityArg 
@@ -216,5 +249,5 @@
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.6 2007-03-13 17:18:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.7 2007-03-15 21:46:46 cg Exp $'
 ! !