--- a/Tools__CompilerWarningToDoListEntry.st Tue Mar 13 18:13:02 2007 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st Tue Mar 13 18:13:43 2007 +0100
@@ -156,6 +156,25 @@
!CompilerWarningToDoListEntry methodsFor:'validation'!
+checkByReparsing
+ |stillValid|
+
+ stillValid := false.
+ Tools::ToDoNotification handle:[:ex |
+ stillValid := (ex parameter sameAs:self).
+ ex proceed.
+ ] do:[
+ Compiler
+ compile:(self problemClass compiledMethodAt:selector) source
+ forClass:(self problemClass)
+ install:false.
+ ].
+ ^ stillValid.
+
+ "Created: / 21-10-2006 / 21:31:27 / cg"
+ "Modified: / 20-11-2006 / 15:34:29 / cg"
+!
+
checkIfClassIsStillValid
className notNil ifTrue:[
(Smalltalk classNamed:className) isNil ifTrue:[^ false].
@@ -179,8 +198,9 @@
checkIfStillValid
self checkIfClassIsStillValid ifFalse:[^ false].
self checkIfSelectorIsStillValid ifFalse:[^ false].
+
checkAction isNil ifTrue:[
- self halt.
+ ^ self checkByReparsing
].
^ (checkAction value:self)
@@ -192,5 +212,5 @@
!CompilerWarningToDoListEntry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.4 2007-02-10 16:14:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.5 2007-03-13 17:13:43 cg Exp $'
! !