--- a/Button.st	Sat May 18 16:25:16 1996 +0200
+++ b/Button.st	Sat May 18 17:42:59 1996 +0200
@@ -589,11 +589,11 @@
 
           adaptor1 := PluggableAdaptor new 
                             getBlock:[:m | false] 
-                            putBlock:[:m :v | Transcript showCr:'eat']
+                            putBlock:[:m :v | Transcript showCR:'eat']
                             updateBlock:nil.
           adaptor2 := PluggableAdaptor new 
                             getBlock:[:m | false] 
-                            putBlock:[:m :v | Transcript showCr:'drink']
+                            putBlock:[:m :v | Transcript showCR:'drink']
                             updateBlock:nil.
 
           top := StandardSystemView new.
@@ -623,10 +623,10 @@
                     origin:0.0 @ 0.0 corner:1.0 @ 50 in:top.
 
           b1 := Button label:'eat me' in:panel.
-          b1 action:[Transcript showCr:'eat'].
+          b1 action:[Transcript showCR:'eat'].
 
           b2 := Button label:'drink me' in:panel.
-          b2 action:[Transcript showCr:'drink'].
+          b2 action:[Transcript showCR:'drink'].
 
           top open.
                                                                         [exEnd]
@@ -715,7 +715,7 @@
           panel := HorizontalPanelView origin:0.0 @ 0.0 corner:1.0 @ 50 in:top.
 
           b1 := Button label:'press me' in:panel.
-          b1 model:myModel; action:[Transcript showCr:'pressed']; 
+          b1 model:myModel; action:[Transcript showCR:'pressed']; 
              labelMessage:#getLabel; aspect:#labelAspect; change:nil.
 
           b2 := Button label:'press for bar' in:panel.
@@ -741,7 +741,7 @@
 
           b1 := Button label:'none yet ' in:panel.
           b1 labelChannel:labelHolder.
-          b1 action:[Transcript showCr:'pressed'].
+          b1 action:[Transcript showCR:'pressed'].
           b1 sizeFixed:true.
 
           b2 := Button label:'press for bar' in:panel.
@@ -1984,5 +1984,5 @@
 !Button class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.57 1996-05-02 09:57:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.58 1996-05-18 15:38:12 cg Exp $'
 ! !