Tools__NewSystemBrowser.st
changeset 12086 95013d4cc1a9
parent 12083 5a0c97fc2031
child 12096 f9a6618f99c7
--- a/Tools__NewSystemBrowser.st	Thu Dec 13 11:07:34 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Dec 13 15:16:31 2012 +0100
@@ -53608,10 +53608,13 @@
         interval := crsrPos to:crsrPos.
     ].
 
-    node := self findNodeForInterval:interval.
+    navigationState codeAspect == #classDefinition ifFalse:[
+        node := self findNodeForInterval:interval.
+    ].
     node notNil ifTrue: [
-        Error
-            ignoreIn:[ explanation := Explainer explainNode:node in:code forClass:cls short:short interval:interval]
+        Error ignoreIn:[ 
+            explanation := Explainer explainNode:node in:code forClass:cls short:short interval:interval
+        ]
     ].
     explanation isNil ifTrue:[
         codeView hasSelection ifTrue:[
@@ -58049,11 +58052,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1826 2012-12-12 23:07:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1827 2012-12-13 14:16:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1826 2012-12-12 23:07:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1827 2012-12-13 14:16:31 cg Exp $'
 !
 
 version_SVN