--- a/AbstractFileBrowser.st	Mon Feb 10 15:53:29 2003 +0100
+++ b/AbstractFileBrowser.st	Mon Feb 10 17:38:16 2003 +0100
@@ -2007,8 +2007,7 @@
     fileList := self application:#DirectoryContentsBrowser do:#descriptions.
     stream := WriteStream on:''.
     fileList do:[: item |
-        stream nextPutAll:(item fileName asString).
-        stream cr.
+        stream nextPutLine:(item fileName asString).
     ].
     self window setTextSelection:stream contents.
     stream close.
@@ -2021,8 +2020,7 @@
     fileList isEmpty ifTrue:[^ self].
     stream := WriteStream on:''.
     fileList do:[: file |
-        stream nextPutAll:(file asString).
-        stream cr.
+        stream nextPutLine:(file asString).
     ].
     self window setTextSelection:stream contents.
     stream close.
@@ -2450,7 +2448,7 @@
             filenames := holder value.
             newFilenames := Set new.
             filenames do:[ : filename |  | fn |
-                fn := filename.
+                fn := filename.                              
                 [fn exists not] whileTrue:[
                     fn := fn directory.
                 ].
@@ -4142,8 +4140,7 @@
 
     stream := WriteStream on:''.
     info do:[:el|
-        stream nextPutAll:el.
-        stream cr.
+        stream nextPutLine:el.
     ].
     textBox := TextBox new.
     textBox initialText:(stream contents).
@@ -4268,24 +4265,21 @@
     ].
     stream := WriteStream on:''.
     info do:[:el|
-        stream nextPutAll:el.
-        stream cr.
+        stream nextPutLine:el.
     ].
     titleStream := WriteStream on:''.
     titleStream nextPutAll:'File dublicates in director'.
     directories size == 1 ifTrue:[
         titleStream nextPutAll:'y: ', directories first asString.
     ] ifFalse:[
-        titleStream nextPutAll:'ies: '.
-        titleStream cr.
+        titleStream nextPutLine:'ies: '.
         directories do:[:dir|
             size > 1 ifTrue:[
                 titleStream nextPutAll:'..'.
-                titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
+                titleStream nextPutLine:((dir asString) copyFrom:(size + 1)).
             ] ifFalse:[
-                titleStream nextPutAll:(dir asString).
+                titleStream nextPutLine:(dir asString).
             ].
-            titleStream cr.
         ]
     ].
     
@@ -5750,5 +5744,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.90 2003-02-10 14:53:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.91 2003-02-10 16:37:28 penk Exp $'
 ! !

--- a/BrowserView.st	Mon Feb 10 15:53:29 2003 +0100
+++ b/BrowserView.st	Mon Feb 10 17:38:16 2003 +0100
@@ -6219,8 +6219,8 @@
     s := TextStream on:''.
 
     isNameSpace ifTrue:[
-        s nextPutAll:'NameSpace name:''NewNameSpace'''.
-        s cr; cr.
+        s nextPutLine:'NameSpace name:''NewNameSpace'''.
+        s cr.
         s emphasis:(UserPreferences current commentEmphasisAndColor).
         s nextPutAll:'"
  Replace ''NewNameSpace'' by the desired name.
@@ -6239,8 +6239,8 @@
 
     withNameSpaceDirective ifTrue:[
         className := aSuperClass nameWithoutNameSpacePrefix.
-        s nextPutAll:('"{ NameSpace: ''' , currentNamespace name , ''' }"').
-        s cr; cr.
+        s nextPutLine:('"{ NameSpace: ''' , currentNamespace name , ''' }"').
+        s cr.
     ] ifFalse:[    
         className := aSuperClass name.
     ].
@@ -6340,10 +6340,10 @@
     self setAcceptActionForNewJavaClass.
 
     s := TextStream on:''.
-    s nextPutAll:('package ' , categoryString , ';').
-    s cr; cr.
-
-    s nextPutAll:('public '); cr.
+    s nextPutLine:('package ' , categoryString , ';').
+    s cr.
+
+    s nextPutLine:('public ').
     s nextPutAll:('class ').
 
     i := 1.
@@ -6363,11 +6363,11 @@
     ].
 
     s nextPutAll:'extends '; nextPutAll:className.
-    s nextPutAll:' {'; cr.
-    s nextPutAll:'    // { private } { static } { final } type varName;'; cr.
-    s nextPutAll:'    // int var1;'; cr.
-    s nextPutAll:'    // int var2;'; cr.
-    s nextPutAll:'}'; cr.
+    s nextPutLine:' {'.
+    s nextPutLine:'    // { private } { static } { final } type varName;'.
+    s nextPutLine:'    // int var1;'.
+    s nextPutLine:'    // int var2;'.
+    s nextPutLine:'}'.
 
     s cr; cr.
     s emphasis:(UserPreferences current commentEmphasisAndColor).
@@ -14660,7 +14660,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.746 2003-01-28 11:27:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.747 2003-02-10 16:38:16 penk Exp $'
 ! !
 
 BrowserView initialize!