--- a/DoWhatIMeanSupport.st Tue Dec 18 12:08:55 2007 +0100
+++ b/DoWhatIMeanSupport.st Tue Dec 18 13:50:29 2007 +0100
@@ -589,6 +589,30 @@
"Modified: / 16-11-2006 / 14:15:59 / cg"
!
+findNodeForInterval:interval in:source
+ |tree node|
+
+ interval isEmpty ifTrue: [^ nil].
+ RBParser isNil ifTrue: [^ nil].
+
+ tree := RBParser
+ parseMethod:source
+ onError: [:str :err ":nodesSoFar" | ^ nil].
+
+ tree isNil ifTrue:[^ nil].
+
+ node := tree whichNodeIsContainedBy:interval.
+ node isNil ifTrue: [
+ node := tree bestNodeFor: interval
+ ].
+ node isNil ifTrue: [
+ node := DoWhatIMeanSupport findNodeIn:tree forInterval:interval
+ ].
+ ^ node
+
+ "Modified: / 16-11-2006 / 19:04:03 / cg"
+!
+
findNodeForInterval:interval in:source allowErrors:allowErrors
|tree node "errCount"|
@@ -1457,5 +1481,5 @@
!DoWhatIMeanSupport class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.23 2007-12-18 11:08:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.24 2007-12-18 12:50:29 cg Exp $'
! !