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.
namespaces have no package
authorClaus Gittinger <cg@exept.de>
Sat, 04 Jan 1997 16:51:37 +0100
changeset 2055 fe4e60ded02a
parent 2054 1601ad49cf59
child 2056 1beb5756e9e9
namespaces have no package
NameSpace.st file | annotate | diff | comparison | revisions
Namespace.st file | annotate | diff | comparison | revisions 
--- a/NameSpace.st	Sat Jan 04 15:42:26 1997 +0100
+++ b/NameSpace.st	Sat Jan 04 16:51:37 1997 +0100
@@ -119,7 +119,10 @@
                        instanceVariableNames:''
                        classVariableNames:''
                        poolDictionaries:''
-                       privateIn:thisNamespace
+                       privateIn:thisNamespace.
+
+                "/ nameSpaces are not in any package
+                thisNamespace setPackage:nil.
             ]    
         ]
     ].
@@ -127,7 +130,7 @@
     ^ thisNamespace
 
     "Created: 8.11.1996 / 13:41:59 / cg"
-    "Modified: 20.12.1996 / 15:17:07 / cg"
+    "Modified: 4.1.1997 / 16:50:59 / cg"
 !
 
 name:aStringOrSymbol
@@ -159,7 +162,8 @@
                          classVariableNames:''
                          poolDictionaries:''
                          category:'uncategorized namespace'.
-
+    "/ nameSpaces are not in any package
+    newNamespace setPackage:nil.
     ^ newNamespace
 
     "
@@ -168,7 +172,7 @@
      foo at:#bar put:(Metaclass new new)
     "
 
-    "Modified: 2.1.1997 / 18:41:22 / cg"
+    "Modified: 4.1.1997 / 16:50:02 / cg"
 !
 
 new
@@ -264,16 +268,6 @@
 
 !Namespace class methodsFor:'queries'!
 
-isNamespace
-    "return true - I am a namespace"
-
-    self == Namespace ifTrue:[^ false].
-    ^ true
-
-    "Created: 26.10.1996 / 11:13:36 / cg"
-    "Modified: 20.12.1996 / 15:11:45 / cg"
-!
-
 allNamespaces
     "return a list of all namespaces"
 
@@ -290,10 +284,20 @@
     ^ set
 
     "Created: 2.1.1997 / 20:17:40 / cg"
+!
+
+isNamespace
+    "return true - I am a namespace"
+
+    self == Namespace ifTrue:[^ false].
+    ^ true
+
+    "Created: 26.10.1996 / 11:13:36 / cg"
+    "Modified: 20.12.1996 / 15:11:45 / cg"
 ! !
 
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.16 1997-01-02 19:19:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.17 1997-01-04 15:51:37 cg Exp $'
 ! !
--- a/Namespace.st	Sat Jan 04 15:42:26 1997 +0100
+++ b/Namespace.st	Sat Jan 04 16:51:37 1997 +0100
@@ -119,7 +119,10 @@
                        instanceVariableNames:''
                        classVariableNames:''
                        poolDictionaries:''
-                       privateIn:thisNamespace
+                       privateIn:thisNamespace.
+
+                "/ nameSpaces are not in any package
+                thisNamespace setPackage:nil.
             ]    
         ]
     ].
@@ -127,7 +130,7 @@
     ^ thisNamespace
 
     "Created: 8.11.1996 / 13:41:59 / cg"
-    "Modified: 20.12.1996 / 15:17:07 / cg"
+    "Modified: 4.1.1997 / 16:50:59 / cg"
 !
 
 name:aStringOrSymbol
@@ -159,7 +162,8 @@
                          classVariableNames:''
                          poolDictionaries:''
                          category:'uncategorized namespace'.
-
+    "/ nameSpaces are not in any package
+    newNamespace setPackage:nil.
     ^ newNamespace
 
     "
@@ -168,7 +172,7 @@
      foo at:#bar put:(Metaclass new new)
     "
 
-    "Modified: 2.1.1997 / 18:41:22 / cg"
+    "Modified: 4.1.1997 / 16:50:02 / cg"
 !
 
 new
@@ -264,16 +268,6 @@
 
 !Namespace class methodsFor:'queries'!
 
-isNamespace
-    "return true - I am a namespace"
-
-    self == Namespace ifTrue:[^ false].
-    ^ true
-
-    "Created: 26.10.1996 / 11:13:36 / cg"
-    "Modified: 20.12.1996 / 15:11:45 / cg"
-!
-
 allNamespaces
     "return a list of all namespaces"
 
@@ -290,10 +284,20 @@
     ^ set
 
     "Created: 2.1.1997 / 20:17:40 / cg"
+!
+
+isNamespace
+    "return true - I am a namespace"
+
+    self == Namespace ifTrue:[^ false].
+    ^ true
+
+    "Created: 26.10.1996 / 11:13:36 / cg"
+    "Modified: 20.12.1996 / 15:11:45 / cg"
 ! !
 
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.16 1997-01-02 19:19:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.17 1997-01-04 15:51:37 cg Exp $'
 ! !
hg/stx-libbasic