Mercurial Mercurial > hg > stx-libbasic / 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>
Mon, 24 Mar 1997 11:18:28 +0100
changeset 2494 38ca7fd49ab4
parent 2493 ba34c6aac597
child 2495 0e6c781fd370
*** empty log message ***
NameSpace.st file | annotate | diff | comparison | revisions
Namespace.st file | annotate | diff | comparison | revisions 
--- a/NameSpace.st	Mon Mar 24 11:13:02 1997 +0100
+++ b/NameSpace.st	Mon Mar 24 11:18:28 1997 +0100
@@ -255,11 +255,14 @@
         |nm owner|
 
         aClass isBehavior ifTrue:[
+	    aClass nameSpace == self ifTrue:[
+		aBlock value:aClass
+	    ].
 
-            nm := aClass name.
-            (nm startsWith:myNamePrefix) ifTrue:[
-                aBlock value:aClass
-            ]
+"/            nm := aClass name.
+"/            (nm startsWith:myNamePrefix) ifTrue:[
+"/                aBlock value:aClass
+"/            ]
         ]
     ].
 ! !
@@ -327,5 +330,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.21 1997-03-24 10:08:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.22 1997-03-24 10:18:28 cg Exp $'
 ! !
--- a/Namespace.st	Mon Mar 24 11:13:02 1997 +0100
+++ b/Namespace.st	Mon Mar 24 11:18:28 1997 +0100
@@ -255,11 +255,14 @@
         |nm owner|
 
         aClass isBehavior ifTrue:[
+	    aClass nameSpace == self ifTrue:[
+		aBlock value:aClass
+	    ].
 
-            nm := aClass name.
-            (nm startsWith:myNamePrefix) ifTrue:[
-                aBlock value:aClass
-            ]
+"/            nm := aClass name.
+"/            (nm startsWith:myNamePrefix) ifTrue:[
+"/                aBlock value:aClass
+"/            ]
         ]
     ].
 ! !
@@ -327,5 +330,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.21 1997-03-24 10:08:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.22 1997-03-24 10:18:28 cg Exp $'
 ! !
hg/stx-libbasic