oops - should not need to know about ToDoList
authorClaus Gittinger <cg@exept.de>
Thu, 15 Mar 2007 22:46:43 +0100
changeset 7751 3883a5a494f0
parent 7750 b7a995d53e6a
child 7752 f5d194e7eec3
oops - should not need to know about ToDoList
Tools__ToDoListEntry.st
--- a/Tools__ToDoListEntry.st	Thu Mar 15 20:29:31 2007 +0100
+++ b/Tools__ToDoListEntry.st	Thu Mar 15 22:46:43 2007 +0100
@@ -10,38 +10,6 @@
 !
 
 
-!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
@@ -210,5 +178,5 @@
 !ToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.5 2007-03-15 17:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.6 2007-03-15 21:46:43 cg Exp $'
 ! !