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