--- a/Workspace.st Tue Oct 02 16:38:49 2012 +0200
+++ b/Workspace.st Tue Oct 16 14:00:08 2012 +0200
@@ -1772,12 +1772,17 @@
sub disableAll:#(browseImplementorsOfIt browseSendersOfIt).
].
"/ a global or namespace-var selected ?
- (s notNil
- and:[s asSymbolIfInterned notNil
- and:[ (Smalltalk includesKey:s asSymbol)
- or:[ (NameSpace allNameSpaces contains:[:ns | ns includesKey:s asSymbol]) ]]])
- ifFalse:[
+ s isNil ifTrue:[
sub disable:#browseReferencesToIt.
+ ] ifFalse:[
+ (s asSymbolIfInterned notNil
+ and:[ (Smalltalk includesKey:s asSymbol)
+ or:[ (NameSpace allNameSpaces contains:[:ns | ns includesKey:s asSymbol]) ]])
+ ifTrue:[
+ ] ifFalse:[
+ "/ todo: an instvar selected?
+ sub disable:#browseReferencesToIt.
+ ].
].
(s notNil
and:[ s asSymbolIfInterned notNil
@@ -2031,9 +2036,9 @@
!Workspace class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.253 2012-09-26 12:49:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.254 2012-10-16 12:00:08 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.253 2012-09-26 12:49:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.254 2012-10-16 12:00:08 cg Exp $'
! !