Workspace.st
changeset 4459 2b9b54d95778
parent 4453 c0cee00a50f6
child 4471 6b403ca6c388
--- 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 $'
 ! !