--- a/Parser.st	Tue Mar 13 16:37:58 2007 +0100
+++ b/Parser.st	Tue Mar 13 18:16:44 2007 +0100
@@ -3192,7 +3192,7 @@
                     self 
                         notifyTodo:('"%1" is nowhere implemented' bindWith:aSelectorString) position:posVector first
                         className:(self classToCompileFor name) selector:selector
-                        severity:#warning priority:#high 
+                        severity:#warning priority:(Tools::ToDoList highPriority) 
                         equalityParameter:aSelectorString
                         checkAction:[:e |
                             e problemMethod notNil
@@ -3236,7 +3236,7 @@
                             self
                                 notifyTodo:(selectorSymbol ,' ',err) position:posVector first
                                 className:(self classToCompileFor name) selector:selector
-                                severity:#warning priority:#high 
+                                severity:#warning priority:(Tools::ToDoList highPriority) 
                                 equalityParameter:selectorSymbol
                                 checkAction:[:e |
                                     |selClass|
@@ -3666,7 +3666,7 @@
                 self
                     notifyTodo:errMsg position:pos1
                     className:(self classToCompileFor name) selector:selector
-                    severity:#warning priority:#high 
+                    severity:#warning priority:(Tools::ToDoList highPriority) 
                     equalityParameter:aName
                     checkAction:[:e |
                         e problemMethod notNil
@@ -3748,6 +3748,17 @@
                 RestartCompilationSignal raise
             ].
         ].
+
+        Tools::ToDoListBrowser notNil ifTrue:[
+            "/ experimental
+            self
+                notifyTodo:msg position:(localVarDefPosition first)
+                className:(self classToCompileFor name) selector:selector
+                severity:#warning priority:(Tools::ToDoList mediumPriority) 
+                equalityParameter:nil
+                checkAction:nil. 
+        ].
+
     ].
 
     "Modified: / 17.11.2001 / 10:30:47 / cg"
@@ -4401,7 +4412,7 @@
                 self
                     notifyTodo:'stc will not compile empty statements' position:tokenPosition
                     className:(self classToCompileFor name) selector:selector
-                    severity:#warning priority:#high 
+                    severity:#warning priority:(Tools::ToDoList highPriority) 
                     equalityParameter:nil
                     checkAction:nil. 
             ].
@@ -8993,7 +9004,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.544 2007-03-13 14:37:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.545 2007-03-13 17:16:44 cg Exp $'
 ! !
 
 Parser initialize!