class: Tools::NewSystemBrowser
authorStefan Vogel <sv@exept.de>
Thu, 25 Apr 2013 09:39:08 +0200
changeset 12698 6a74a4f7ff0a
parent 12697 817c14942d65
child 12699 a9d7394a503e
class: Tools::NewSystemBrowser changed: #browseMenuReferencesToGlobal When searching for class references do not ask for PrevClass also
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Wed Apr 24 16:41:22 2013 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Apr 25 09:39:08 2013 +0200
@@ -24994,7 +24994,7 @@
                                 (val := Smalltalk at:sym) isBehavior ifTrue:[
                                     otherKeysReferringToValue := OrderedCollection new.
                                     Smalltalk keysAndValuesDo:[:k :v | v == val ifTrue:[
-                                                                           k ~~ sym ifTrue:[
+                                                                           (k ~~ sym and:[k ~~ #'Parser:PrevClass']) ifTrue:[
                                                                                otherKeysReferringToValue add:k
                                                                            ]
                                                                        ]
@@ -58383,11 +58383,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1869 2013-04-22 10:27:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1870 2013-04-25 07:39:08 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1869 2013-04-22 10:27:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1870 2013-04-25 07:39:08 stefan Exp $'
 !
 
 version_SVN