--- a/Launcher.st	Thu Jan 02 20:21:42 1997 +0100
+++ b/Launcher.st	Thu Jan 02 20:29:13 1997 +0100
@@ -2898,7 +2898,7 @@
 !Launcher methodsFor:'infoview update'!
 
 info
-    |project projectName projectDir packageName defNameSpace|
+    |project projectName projectDir packageName defNameSpace msg args|
 
     (Project isNil or:[(project := Project current) isNil]) ifTrue:[
         projectName := '* none *'.
@@ -2914,15 +2914,24 @@
         defNameSpace := Smalltalk.
     ].
 
-    ^ resources
-        string:'project: ''%1''  fileOut to: ''%3''  package: ''%2''  nameSpace: ''%4'''
-        withArgs:(Array 
+    defNameSpace == Smalltalk ifTrue:[
+        msg := 'project: ''%1''  fileOut to: ''%3''  package: ''%2'''.
+        args := Array 
+                    with:projectName
+                    with:packageName 
+                    with:(projectDir contractTo:30).
+    ] ifFalse:[
+        msg := 'project: ''%1''  fileOut to: ''%3''  package: ''%2''  nameSpace: %4'.
+        args := Array 
                         with:projectName
                         with:packageName 
                         with:(projectDir contractTo:30)
-                        with:defNameSpace name)
-
-    "Modified: 2.1.1997 / 20:08:10 / cg"
+                        with:defNameSpace name.
+    ].
+        
+    ^ resources string:msg withArgs:args
+
+    "Modified: 2.1.1997 / 20:26:44 / cg"
 !
 
 showActivity:someMessage
@@ -3975,5 +3984,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.218 1997-01-02 19:08:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.219 1997-01-02 19:29:13 cg Exp $'
 ! !

--- a/ProjectV.st	Thu Jan 02 20:21:42 1997 +0100
+++ b/ProjectV.st	Thu Jan 02 20:29:13 1997 +0100
@@ -127,6 +127,7 @@
                     'repository module ...'
                     'repository directory ...'
                     'package name ...'
+                    'default nameSpace ...'
 "/                        '-'
 "/                        'save project code'
 "/                        'build'
@@ -151,6 +152,7 @@
                     projectModule
                     projectRepository
                     projectPackage
+                    projectNameSpace
 "/                        nil
 "/                        saveProjectFiles
 "/                        buildProject
@@ -346,6 +348,27 @@
     "Modified: 10.12.1995 / 00:01:25 / cg"
 !
 
+projectNameSpace
+    self topView withWaitCursorDo:[
+        |box allNameSpaces|
+
+        allNameSpaces := Namespace allNamespaces collect:[:ns | ns name].
+
+        box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs.
+        box list:(allNameSpaces asOrderedCollection sort).
+        box action:[:nsName |
+            |ns|
+
+            ns := Namespace name:nsName.
+            myProject defaultNameSpace:ns
+        ].
+        box showAtPointer
+    ]
+
+    "Created: 9.12.1995 / 16:50:45 / cg"
+    "Modified: 16.8.1996 / 14:56:42 / cg"
+!
+
 projectPackage
     self topView withWaitCursorDo:[
         |box p existingPackages allClasses|
@@ -611,5 +634,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.32 1996-10-22 22:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.33 1997-01-02 19:28:46 cg Exp $'
 ! !

--- a/ProjectView.st	Thu Jan 02 20:21:42 1997 +0100
+++ b/ProjectView.st	Thu Jan 02 20:29:13 1997 +0100
@@ -127,6 +127,7 @@
                     'repository module ...'
                     'repository directory ...'
                     'package name ...'
+                    'default nameSpace ...'
 "/                        '-'
 "/                        'save project code'
 "/                        'build'
@@ -151,6 +152,7 @@
                     projectModule
                     projectRepository
                     projectPackage
+                    projectNameSpace
 "/                        nil
 "/                        saveProjectFiles
 "/                        buildProject
@@ -346,6 +348,27 @@
     "Modified: 10.12.1995 / 00:01:25 / cg"
 !
 
+projectNameSpace
+    self topView withWaitCursorDo:[
+        |box allNameSpaces|
+
+        allNameSpaces := Namespace allNamespaces collect:[:ns | ns name].
+
+        box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs.
+        box list:(allNameSpaces asOrderedCollection sort).
+        box action:[:nsName |
+            |ns|
+
+            ns := Namespace name:nsName.
+            myProject defaultNameSpace:ns
+        ].
+        box showAtPointer
+    ]
+
+    "Created: 9.12.1995 / 16:50:45 / cg"
+    "Modified: 16.8.1996 / 14:56:42 / cg"
+!
+
 projectPackage
     self topView withWaitCursorDo:[
         |box p existingPackages allClasses|
@@ -611,5 +634,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.32 1996-10-22 22:22:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.33 1997-01-02 19:28:46 cg Exp $'
 ! !