Mercurial Mercurial > hg > stx-libview2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Plug.st
changeset 268 1998023f12dc
parent 232 b898f5762952
child 360 c5e6039033e7 
--- a/Plug.st	Sat May 18 15:56:05 1996 +0200
+++ b/Plug.st	Sat May 18 17:37:16 1996 +0200
@@ -62,8 +62,8 @@
     |plug|
 
     plug := Plug new.
-    plug respondTo:#foo  with:[Transcript showCr:'received foo'].
-    plug respondTo:#foo: with:[:arg | Transcript showCr:'received foo: ', arg printString].
+    plug respondTo:#foo  with:[Transcript showCR:'received foo'].
+    plug respondTo:#foo: with:[:arg | Transcript showCR:'received foo: ', arg printString].
 
     plug foo.
     plug foo:'some argument'
@@ -84,14 +84,14 @@
     plug2 respondTo:#get  with:[local2].
     plug2 respondTo:#set: with:[:arg | local2 := arg].
 
-    Transcript show:'plug1''s value: '; showCr:plug1 get.
-    Transcript show:'plug2''s value: '; showCr:plug2 get.
+    Transcript show:'plug1''s value: '; showCR:plug1 get.
+    Transcript show:'plug2''s value: '; showCR:plug2 get.
 
     plug1 set:5.
     plug2 set:17.
 
-    Transcript show:'plug1''s value: '; showCr:plug1 get.
-    Transcript show:'plug2''s value: '; showCr:plug2 get.
+    Transcript show:'plug1''s value: '; showCR:plug1 get.
+    Transcript show:'plug2''s value: '; showCR:plug2 get.
                                                                         [exEnd]
 "
 ! !
@@ -145,8 +145,8 @@
      |p|
 
      p := Plug new.
-     p respondTo:#foo  with:[Transcript showCr:'foo'].
-     p respondTo:#foo: with:[:arg | Transcript show:'foo:'; showCr:arg].
+     p respondTo:#foo  with:[Transcript showCR:'foo'].
+     p respondTo:#foo: with:[:arg | Transcript show:'foo:'; showCR:arg].
 
      p foo.
      p foo:'hello'.
@@ -173,8 +173,8 @@
      |p|
 
      p := Plug new.
-     p respondTo:#foo  with:[Transcript showCr:'foo'].
-     p respondTo:#foo: with:[:arg | Transcript show:'foo:'; showCr:arg].
+     p respondTo:#foo  with:[Transcript showCR:'foo'].
+     p respondTo:#foo: with:[:arg | Transcript show:'foo:'; showCR:arg].
 
      p foo.
      p foo:'hello'
@@ -197,5 +197,5 @@
 !Plug class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.12 1996-04-27 17:59:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.13 1996-05-18 15:37:08 cg Exp $'
 ! !
hg/stx-libview2