Mercurial Mercurial > hg > stx-libbasic2 / 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.
Random.st
changeset 350 93d5932c76e6
parent 271 29e79420636f
child 517 4e47b198c9bc 
--- a/Random.st	Sat May 18 09:49:35 1996 +0200
+++ b/Random.st	Sat May 18 17:33:04 1996 +0200
@@ -90,7 +90,7 @@
 
     rnd := Random new.
     10 timesRepeat:[
-        Transcript showCr:(rnd next)
+        Transcript showCR:(rnd next)
     ]
                                                                         [exEnd]
 
@@ -100,7 +100,7 @@
 
     rnd := Random new.
     10 timesRepeat:[
-        Transcript showCr:(rnd nextIntegerBetween:1 and:6)
+        Transcript showCR:(rnd nextIntegerBetween:1 and:6)
     ]
                                                                         [exEnd]
 "
@@ -124,10 +124,10 @@
 
     "|r|
      r := Random new.
-     Transcript showCr:r next.
-     Transcript showCr:r next.
-     Transcript showCr:r next.
-     Transcript showCr:r next.
+     Transcript showCR:r next.
+     Transcript showCR:r next.
+     Transcript showCR:r next.
+     Transcript showCR:r next.
     "
 !
 
@@ -145,10 +145,10 @@
 
     "|r|
      r := Random new.
-     Transcript showCr:(r nextBetween:1 and:10).
-     Transcript showCr:(r nextBetween:1 and:10).
-     Transcript showCr:(r nextBetween:1 and:10).
-     Transcript showCr:(r nextBetween:1 and:10).
+     Transcript showCR:(r nextBetween:1 and:10).
+     Transcript showCR:(r nextBetween:1 and:10).
+     Transcript showCR:(r nextBetween:1 and:10).
+     Transcript showCR:(r nextBetween:1 and:10).
     "
 !
 
@@ -161,10 +161,10 @@
 
     "|r|
      r := Random new.
-     Transcript showCr:r nextBoolean.
-     Transcript showCr:r nextBoolean.
-     Transcript showCr:r nextBoolean.
-     Transcript showCr:r nextBoolean.
+     Transcript showCR:r nextBoolean.
+     Transcript showCR:r nextBoolean.
+     Transcript showCR:r nextBoolean.
+     Transcript showCR:r nextBoolean.
     "
 !
 
@@ -179,10 +179,10 @@
 
     "|r|
      r := Random new.
-     Transcript showCr:r nextInteger.
-     Transcript showCr:r nextInteger.
-     Transcript showCr:r nextInteger.
-     Transcript showCr:r nextInteger.
+     Transcript showCR:r nextInteger.
+     Transcript showCR:r nextInteger.
+     Transcript showCR:r nextInteger.
+     Transcript showCR:r nextInteger.
     "
 !
 
@@ -197,10 +197,10 @@
 
     "|r|
      r := Random new.
-     Transcript showCr:(r nextIntegerBetween:1 and:10).
-     Transcript showCr:(r nextIntegerBetween:1 and:10).
-     Transcript showCr:(r nextIntegerBetween:1 and:10).
-     Transcript showCr:(r nextIntegerBetween:1 and:10).
+     Transcript showCR:(r nextIntegerBetween:1 and:10).
+     Transcript showCR:(r nextIntegerBetween:1 and:10).
+     Transcript showCR:(r nextIntegerBetween:1 and:10).
+     Transcript showCR:(r nextIntegerBetween:1 and:10).
     "
 !
 
@@ -271,5 +271,5 @@
 !Random class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.16 1996-04-30 13:00:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.17 1996-05-18 15:32:41 cg Exp $'
 ! !
hg/stx-libbasic2