--- a/extensions.st	Thu Mar 15 22:53:24 2007 +0100
+++ b/extensions.st	Thu Mar 15 22:53:27 2007 +0100
@@ -0,0 +1,25 @@
+"{ Package: 'stx:libcomp' }"
+!
+
+!Object methodsFor:'user interaction & notifications'!
+
+notifyTodo:msg position:position
+         className:className selector:selector
+         severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol
+         equalityParameter:equalityParameter checkAction:checkAction
+
+    "this is a message from the compiler system, to allow for a hook to remember
+     things to do. Can aslo used by other subsystems to add entries to the toDoList"
+
+    (Tools::CompilerWarningToDoListEntry notNil
+    and:[Tools::CompilerWarningToDoListEntry isLoaded]) ifFalse:[^ self ].
+
+    Tools::CompilerWarningToDoListEntry
+        notifyTodo:msg position:position
+        className:className selector:selector
+        severity:severityOrSeveritySymbol priority:priorityOrPrioritySymbol
+        equalityParameter:equalityParameter checkAction:checkAction
+
+    "Modified: / 15-03-2007 / 20:29:23 / cg"
+! !
+