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