--- 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 $'
! !