--- a/FileSelectionBox.st	Sat May 18 16:25:16 1996 +0200
+++ b/FileSelectionBox.st	Sat May 18 17:42:59 1996 +0200
@@ -81,7 +81,7 @@
         |name|
 
         name := FileSelectionBox requestFileName.
-        Transcript showCr:name
+        Transcript showCR:name
                                                                         [exEnd]
 
 
@@ -90,7 +90,7 @@
         |name|
 
         name := FileSelectionBox requestFileName:'which file ?'.
-        Transcript showCr:name
+        Transcript showCR:name
                                                                         [exEnd]
 
 
@@ -99,7 +99,7 @@
         |name|
 
         name := FileSelectionBox requestFileName:'which file ?' default:'Make.proto'.
-        Transcript showCr:name
+        Transcript showCR:name
                                                                         [exEnd]
 
 
@@ -113,7 +113,7 @@
         box title:'Which file ?'.
         box open.
         box accepted ifTrue:[
-            Transcript showCr:'you selected: ' , box
+            Transcript showCR:'you selected: ' , box
         ]
                                                                         [exEnd]
 
@@ -154,7 +154,7 @@
         box selectingDirectory:true.
         box pattern:'l*'.
         box matchBlock:[:name | OperatingSystem isDirectory:name].
-        box action:[:fn | Transcript showCr:fn].
+        box action:[:fn | Transcript showCR:fn].
         box open
                                                                         [exEnd]
 
@@ -196,7 +196,7 @@
         box enterField beInvisible.
         box open.
         box accepted ifTrue:[
-            Transcript showCr:'path is ' , box pathName
+            Transcript showCR:'path is ' , box pathName
         ].
                                                                         [exEnd]
 
@@ -210,7 +210,7 @@
         box listView ignoreDirectories:true.
         box open.
         box accepted ifTrue:[
-            Transcript showCr:'path is ' , box pathName
+            Transcript showCR:'path is ' , box pathName
         ].
                                                                         [exEnd]
 
@@ -221,7 +221,7 @@
         box title:'Which directory ?'.
         box pattern:'l*'.
         box matchBlock:[:name | OperatingSystem isDirectory:name].
-        box action:[:name | Transcript showCr:name].
+        box action:[:name | Transcript showCR:name].
         box open
                                                                         [exEnd]
 
@@ -240,9 +240,9 @@
                        ].
         box open.
         box accepted ifTrue:[
-            Transcript showCr:'full path:  ' , box pathName.
-            Transcript showCr:'files name: ' , box fileName.
-            Transcript showCr:'directory : ' , box directory.
+            Transcript showCR:'full path:  ' , box pathName.
+            Transcript showCR:'files name: ' , box fileName.
+            Transcript showCR:'directory : ' , box directory.
         ]
                                                                         [exEnd]
 "
@@ -597,5 +597,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.33 1996-05-16 10:24:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.34 1996-05-18 15:40:21 cg Exp $'
 ! !