--- a/ListSelectionBox.st	Sat May 18 16:25:16 1996 +0200
+++ b/ListSelectionBox.st	Sat May 18 17:42:59 1996 +0200
@@ -57,7 +57,7 @@
         box := ListSelectionBox new.
         box title:'select something:'.
         box list:#('foo' 'bar' 'baz').
-        box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
+        box okAction:[:sel | Transcript showCR:'the selection was:' , sel].
         box showAtPointer
                                                                         [exEnd]
 
@@ -69,7 +69,7 @@
         box := ListSelectionBox new.
         box title:'select something:'.
         box list:#('foo' 'bar' 'baz').
-        box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
+        box okAction:[:sel | Transcript showCR:'the selection was:' , sel].
         box initialText:'foo'.
         box showAtPointer
                                                                         [exEnd]
@@ -86,7 +86,7 @@
         box list:#('foo' 'bar' 'baz').
         box abortText:'close'.
         box okText:'apply'.
-        box okAction:[:sel | Transcript showCr:'the selection was:' , sel].
+        box okAction:[:sel | Transcript showCR:'the selection was:' , sel].
         box abortAction:[:dummy | box hide].
         box openModeless
                                                                         [exEnd]
@@ -331,5 +331,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.29 1996-05-12 19:51:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.30 1996-05-18 15:40:42 cg Exp $'
 ! !