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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 11 Sep 2001 12:25:23 +0200
changeset 3152 9a751eb3f863
parent 3151 910fd5bcfb6e
child 3153 9ee01c93e441
checkin from browser
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Tue Sep 11 12:20:29 2001 +0200
+++ b/NewSystemBrowser.st	Tue Sep 11 12:25:23 2001 +0200
@@ -24348,7 +24348,11 @@
         "/ if the name is already a good one, avoid the expensive search
         className := aMatchString asSymbolIfInterned.
         className notNil ifTrue:[
-            cls := env at:className ifAbsent:nil.
+            env isNamespace ifTrue:[
+                cls := env at:className ifAbsent:nil.
+            ] ifFalse:[
+                cls := env privateClassesAt:className.
+            ].    
             (cls notNil and:[cls isBehavior]) ifTrue:[
                 needSearch := false.
             ]
@@ -49252,6 +49256,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.149 2001-09-10 20:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.150 2001-09-11 10:25:23 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Tue Sep 11 12:20:29 2001 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Sep 11 12:25:23 2001 +0200
@@ -24348,7 +24348,11 @@
         "/ if the name is already a good one, avoid the expensive search
         className := aMatchString asSymbolIfInterned.
         className notNil ifTrue:[
-            cls := env at:className ifAbsent:nil.
+            env isNamespace ifTrue:[
+                cls := env at:className ifAbsent:nil.
+            ] ifFalse:[
+                cls := env privateClassesAt:className.
+            ].    
             (cls notNil and:[cls isBehavior]) ifTrue:[
                 needSearch := false.
             ]
@@ -49252,6 +49256,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.149 2001-09-10 20:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.150 2001-09-11 10:25:23 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool