DoWhatIMeanSupport.st
changeset 4356 e0baa28be88f
parent 4353 b04d3b1d44ac
child 4358 d9978bce6853
--- a/DoWhatIMeanSupport.st	Sat Aug 31 11:10:43 2013 +0200
+++ b/DoWhatIMeanSupport.st	Sat Aug 31 15:02:12 2013 +0200
@@ -2841,7 +2841,7 @@
     "/ TODO: do it vice-versa, in that the parser does a callOut for every node generated
     "/ as it parses the code. Stop, when the interval is hit.
     "/ that will also work for syntactic incorrect source code.
-    classOrNil notNil ifTrue:[
+    (methodOrNil notNil or:[classOrNil notNil]) ifTrue:[
         node := self findNodeForInterval:interval in:source allowErrors:true mustBeMethod:true.   
     ].
     node isNil ifTrue:[
@@ -3666,10 +3666,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.130 2013-08-31 01:10:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.131 2013-08-31 13:02:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.130 2013-08-31 01:10:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.131 2013-08-31 13:02:12 cg Exp $'
 ! !