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.
provide Smalltalk as homeNameSpace, when defining the projects
authorClaus Gittinger <cg@exept.de>
Thu, 16 Jan 1997 11:08:16 +0100
changeset 963 3d9083fde09f
parent 962 55c72d957f50
child 964 8fe72552b476
provide Smalltalk as homeNameSpace, when defining the projects nameSpace
ProjectV.st file | annotate | diff | comparison | revisions
ProjectView.st file | annotate | diff | comparison | revisions 
--- a/ProjectV.st	Thu Jan 16 11:03:08 1997 +0100
+++ b/ProjectV.st	Thu Jan 16 11:08:16 1997 +0100
@@ -405,14 +405,20 @@
         box action:[:nsName |
             |ns|
 
-            ns := Namespace name:nsName.
+            "/ only create topLevel nameSpaces here
+
+            Class nameSpaceQuerySignal 
+            answer:Smalltalk
+            do:[
+                ns := Namespace name:nsName.
+            ].    
             myProject defaultNameSpace:ns
         ].
         box showAtPointer
     ]
 
     "Created: 9.12.1995 / 16:50:45 / cg"
-    "Modified: 14.2.1997 / 13:43:52 / cg"
+    "Modified: 16.1.1997 / 01:00:06 / cg"
 !
 
 projectPackage
@@ -719,5 +725,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.35 1997-01-14 12:46:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.36 1997-01-16 10:08:16 cg Exp $'
 ! !
--- a/ProjectView.st	Thu Jan 16 11:03:08 1997 +0100
+++ b/ProjectView.st	Thu Jan 16 11:08:16 1997 +0100
@@ -405,14 +405,20 @@
         box action:[:nsName |
             |ns|
 
-            ns := Namespace name:nsName.
+            "/ only create topLevel nameSpaces here
+
+            Class nameSpaceQuerySignal 
+            answer:Smalltalk
+            do:[
+                ns := Namespace name:nsName.
+            ].    
             myProject defaultNameSpace:ns
         ].
         box showAtPointer
     ]
 
     "Created: 9.12.1995 / 16:50:45 / cg"
-    "Modified: 14.2.1997 / 13:43:52 / cg"
+    "Modified: 16.1.1997 / 01:00:06 / cg"
 !
 
 projectPackage
@@ -719,5 +725,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.35 1997-01-14 12:46:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.36 1997-01-16 10:08:16 cg Exp $'
 ! !
hg/stx-libtool