--- a/PluggableAdaptor.st	Sat May 18 15:56:05 1996 +0200
+++ b/PluggableAdaptor.st	Sat May 18 17:37:16 1996 +0200
@@ -63,8 +63,8 @@
 
         m := (PluggableAdaptor new)
                 getBlock:[:m | x]
-                putBlock:[:m :newValue | x := newValue. Transcript showCr:x]
-                updateBlock:[:m :aspect :param | Transcript showCr:'changed'].
+                putBlock:[:m :newValue | x := newValue. Transcript showCR:x]
+                updateBlock:[:m :aspect :param | Transcript showCR:'changed'].
         t := Toggle new.
         t model:m.
         t label:'toggle me'.
@@ -129,10 +129,10 @@
         dialog open.
 
         dialog accept value ifTrue:[
-            Transcript showCr:'accepted.'.
+            Transcript showCR:'accepted.'.
         ].
-        Transcript showCr:'  Name: ' , model name.
-        Transcript showCr:'  ID  : ' , model passportId printString.
+        Transcript showCR:'  Name: ' , model name.
+        Transcript showCR:'  ID  : ' , model passportId printString.
                                                                         [exEnd]
 
 
@@ -310,5 +310,5 @@
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.11 1996-04-27 17:59:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.12 1996-05-18 15:37:11 cg Exp $'
 ! !