--- 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 $'
! !