--- a/FileBrowser.st	Fri Jun 20 15:29:17 1997 +0200
+++ b/FileBrowser.st	Fri Jun 20 16:36:15 1997 +0200
@@ -283,6 +283,7 @@
 
     "Created: 28.1.1997 / 14:03:20 / stefan"
     "Modified: 28.1.1997 / 15:03:30 / stefan"
+    "Modified: 20.6.1997 / 16:35:01 / cg"
 !
 
 keyPress:key x:x y:y view:view
@@ -322,6 +323,7 @@
 
     "Created: 28.1.1997 / 14:03:56 / stefan"
     "Modified: 28.1.1997 / 15:03:56 / stefan"
+    "Modified: 20.6.1997 / 16:35:08 / cg"
 !
 
 mapped 
@@ -605,7 +607,7 @@
 
     <resource: #menu>
 
-    |labels shorties selectors m sel|
+    |labels shorties selectors m sel ns|
 
     labels := #(
                  'spawn'                   
@@ -613,9 +615,17 @@
                  'get contents'                    
                  'insert contents'                    
                  'show info'             
-                 'show full info'          
-                 'fileIn'                 
-                 'quick fileIn (lazy)'                 
+                 'show full info'
+               ).
+
+    ((ns := Project current defaultNameSpace) notNil 
+    and:[ns ~~ Smalltalk]) ifTrue:[
+        labels := labels copyWith:'fileIn (into ''' , Project current defaultNameSpace name , ''')'
+    ] ifFalse:[
+        labels := labels copyWith:'fileIn'
+    ].
+
+    labels := labels , #(
                  '-'                               
                  'update'                 
                  '-'                               
@@ -641,7 +651,6 @@
                  fileGetInfo
                  fileGetLongInfo
                  fileFileIn
-                 fileFileInLazy
                  nil
                  updateCurrentDirectory
                  nil
@@ -666,7 +675,7 @@
                  nil
                  InspectIt
                  CmdI
-                 Accept
+                 Cmdf
                  nil
                  nil
                  Cmdu
@@ -733,7 +742,7 @@
     ^m
 
     "Modified: 28.1.1997 / 15:04:42 / stefan"
-    "Modified: 25.2.1997 / 20:15:06 / cg"
+    "Modified: 20.6.1997 / 16:33:45 / cg"
 !
 
 filePrint
@@ -3518,5 +3527,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.159 1997-06-19 14:05:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.160 1997-06-20 14:36:15 cg Exp $'
 ! !