Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 10 Feb 2001 11:56:59 +0100
changeset 2979 439207725e33
parent 2978 028b168d6f8e
child 2980 8a4de90e7c4b
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Sat Feb 10 11:39:16 2001 +0100
+++ b/NewSystemBrowser.st	Sat Feb 10 11:56:59 2001 +0100
@@ -18258,7 +18258,7 @@
             ].
 
             outStream nextPutAll:'"/
-"/ $Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.78 2001-02-09 14:33:27 cg Exp $
+"/ $Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.79 2001-02-10 10:56:59 cg Exp $
 "/
 "/ loadAll-file to fileIn code for: ' , moduleAndPackage , '
 "/
@@ -26027,7 +26027,7 @@
 
     |sel box initialText superclass currentClass 
      methods someMethod offeredClass anyClose codeView
-     closeName|
+     closeName s|
 
     currentClass := self theSingleSelectedClass.
 
@@ -26041,6 +26041,15 @@
     ].
 
     sel notNil ifTrue:[
+        (self selectedNamespaces value ? #()) doWithExit:[:eachNs :exit |
+            s := eachNs , '::' , sel asSymbol.
+            (s knownAsSymbol
+            and:[(Smalltalk at:s asSymbol) isBehavior]) ifTrue:[
+                "/ a private class of current ...
+                sel := eachNs , '::' , sel asSymbol.
+                exit value:nil.
+            ].
+        ].
         (sel knownAsSymbol and:[currentClass notNil 
         and:[(currentClass theNonMetaclass privateClassesAt:sel asSymbol) notNil]]) ifTrue:[
             "/ a private class of current ...
@@ -47763,6 +47772,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.78 2001-02-09 14:33:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.79 2001-02-10 10:56:59 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Sat Feb 10 11:39:16 2001 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Feb 10 11:56:59 2001 +0100
@@ -18258,7 +18258,7 @@
             ].
 
             outStream nextPutAll:'"/
-"/ $Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.78 2001-02-09 14:33:27 cg Exp $
+"/ $Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.79 2001-02-10 10:56:59 cg Exp $
 "/
 "/ loadAll-file to fileIn code for: ' , moduleAndPackage , '
 "/
@@ -26027,7 +26027,7 @@
 
     |sel box initialText superclass currentClass 
      methods someMethod offeredClass anyClose codeView
-     closeName|
+     closeName s|
 
     currentClass := self theSingleSelectedClass.
 
@@ -26041,6 +26041,15 @@
     ].
 
     sel notNil ifTrue:[
+        (self selectedNamespaces value ? #()) doWithExit:[:eachNs :exit |
+            s := eachNs , '::' , sel asSymbol.
+            (s knownAsSymbol
+            and:[(Smalltalk at:s asSymbol) isBehavior]) ifTrue:[
+                "/ a private class of current ...
+                sel := eachNs , '::' , sel asSymbol.
+                exit value:nil.
+            ].
+        ].
         (sel knownAsSymbol and:[currentClass notNil 
         and:[(currentClass theNonMetaclass privateClassesAt:sel asSymbol) notNil]]) ifTrue:[
             "/ a private class of current ...
@@ -47763,6 +47772,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.78 2001-02-09 14:33:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.79 2001-02-10 10:56:59 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool