--- 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