changed: #globalReferencesMenu (fix for private classes)
authorvrany
Fri, 25 Nov 2011 22:02:25 +0100
changeset 10909 adde6d40d804
parent 10908 35399b3b2c15
child 10910 0d207c02ed40
changed: #globalReferencesMenu (fix for private classes)
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Fri Nov 25 17:55:31 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Nov 25 22:02:25 2011 +0100
@@ -16783,6 +16783,7 @@
     "Created: / 24.2.2000 / 23:28:06 / cg"
 ! !
 
+
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -20090,6 +20091,7 @@
     ^ UserPreferences current useSearchBarInBrowser or:[self codeView searchBarActionBlock notNil]
 ! !
 
+
 !NewSystemBrowser methodsFor:'change & update'!
 
 categorySelectionChanged
@@ -42395,6 +42397,7 @@
     "Modified: / 25-06-2010 / 10:08:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-variables'!
 
 browseVarRefsOrModsWithTitle:browserTitle boxTitle:boxTitle variables:varType access:accessType all:browseAll
@@ -44232,9 +44235,12 @@
 
             lit isSymbol ifTrue:[
                 (((cls := Smalltalk at:lit) notNil and:[ cls isBehavior ])
-                or:[ (ns := m mclass nameSpace) notNil
+                "JV@2011-11-25: Added check if the nameSpace is really a namespace, it may be
+                 a class if m mclass is a privateClass...
+                 ---------------------------------------------v"
+                or:[ (ns := m mclass nameSpace) notNil and:[ns isNameSpace 
                      and:[ ns ~= Smalltalk
-                     and:[ (cls := ns at:lit) notNil  and:[ cls isBehavior ]]]])
+                     and:[ (cls := ns at:lit) notNil  and:[ cls isBehavior ]]]]])
                 ifTrue:[
                     classes add:cls
                 ]
@@ -44259,6 +44265,7 @@
     ^ m
 
     "Created: / 26-10-2011 / 18:15:01 / cg"
+    "Modified (comment): / 25-11-2011 / 21:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 goBackInGlobalHistoryMenu
@@ -49335,6 +49342,7 @@
     ^ navigationState projectListApplication
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-history'!
 
 lastSearchPatterns
@@ -54482,11 +54490,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1656 2011-11-25 13:48:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1657 2011-11-25 21:02:25 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1656 2011-11-25 13:48:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1657 2011-11-25 21:02:25 vrany Exp $'
 !
 
 version_SVN