--- a/BrowserView.st	Sat Jan 04 20:00:32 1997 +0100
+++ b/BrowserView.st	Sat Jan 04 21:11:45 1997 +0100
@@ -1516,7 +1516,14 @@
         |m s aStream isComment|
 
         aStream := WriteStream on:(String new:200).
-        currentClass fileOutDefinitionOn:aStream.
+
+        "/
+        "/ here, show it with a nameSpace pragma
+        "/ and prefer short names.
+        "/
+        currentClass 
+            basicFileOutDefinitionOn:aStream 
+            withNameSpace:true.
 
         currentClass isLoaded ifTrue:[
             "
@@ -1577,7 +1584,7 @@
         self normalLabel
     ]
 
-    "Modified: 8.11.1996 / 23:53:00 / cg"
+    "Modified: 4.1.1997 / 21:10:14 / cg"
 !
 
 classDocumentation
@@ -8991,6 +8998,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.241 1997-01-04 19:00:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.242 1997-01-04 20:11:45 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Sat Jan 04 20:00:32 1997 +0100
+++ b/BrwsrView.st	Sat Jan 04 21:11:45 1997 +0100
@@ -1516,7 +1516,14 @@
         |m s aStream isComment|
 
         aStream := WriteStream on:(String new:200).
-        currentClass fileOutDefinitionOn:aStream.
+
+        "/
+        "/ here, show it with a nameSpace pragma
+        "/ and prefer short names.
+        "/
+        currentClass 
+            basicFileOutDefinitionOn:aStream 
+            withNameSpace:true.
 
         currentClass isLoaded ifTrue:[
             "
@@ -1577,7 +1584,7 @@
         self normalLabel
     ]
 
-    "Modified: 8.11.1996 / 23:53:00 / cg"
+    "Modified: 4.1.1997 / 21:10:14 / cg"
 !
 
 classDocumentation
@@ -8991,6 +8998,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.241 1997-01-04 19:00:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.242 1997-01-04 20:11:45 cg Exp $'
 ! !
 BrowserView initialize!