--- a/OrdColl.st Sat May 18 16:51:33 1996 +0200
+++ b/OrdColl.st Sat May 18 17:32:43 1996 +0200
@@ -91,7 +91,7 @@
10 timesRepeat:[
top := stack removeLast.
- Transcript showCr:top
+ Transcript showCR:top
]
[exEnd]
using OC as a queue (you should use Queue right away ..):
@@ -106,7 +106,7 @@
10 timesRepeat:[
dequeued := queue removeFirst.
- Transcript showCr:dequeued
+ Transcript showCR:dequeued
]
[exEnd]
@@ -122,7 +122,7 @@
time := Time millisecondsToRun:[
coll removeAllSuchThat:[:el | el even]
].
- Transcript show:'time is '; show:time; showCr:' ms'.
+ Transcript show:'time is '; show:time; showCR:' ms'.
[exEnd]
tuning the removal by doing it reverse
@@ -138,7 +138,7 @@
]
]
].
- Transcript show:'time is '; show:time; showCr:' ms'.
+ Transcript show:'time is '; show:time; showCR:' ms'.
[exEnd]
rebuilding a new collection:
@@ -150,7 +150,7 @@
time := Time millisecondsToRun:[
coll := coll select:[:el | el odd]
].
- Transcript show:'time is '; show:time; showCr:' ms'.
+ Transcript show:'time is '; show:time; showCR:' ms'.
[exEnd]
"
! !
@@ -480,8 +480,8 @@
|coll|
coll := OrderedCollection withAll:(1 to:10).
- Transcript showCr:(coll removeAllSuchThat:[:el | el even]).
- Transcript showCr:coll
+ Transcript showCR:(coll removeAllSuchThat:[:el | el even]).
+ Transcript showCR:coll
"
"Modified: 12.4.1996 / 13:37:01 / cg"
@@ -819,7 +819,7 @@
"
#(10 20 30 40) asOrderedCollection keysAndValuesDo:[:index :value |
- Transcript show:index; show:' '; showCr:value
+ Transcript show:index; show:' '; showCR:value
]
"
"
@@ -828,7 +828,7 @@
oc := #(10 20 30 40 50 60 70 80) asOrderedCollection.
oc removeFirst; removeFirst.
oc keysAndValuesDo:[:index :value |
- Transcript show:index; show:' '; showCr:value
+ Transcript show:index; show:' '; showCR:value
]
"
@@ -852,7 +852,7 @@
"
#(10 20 30 40) asOrderedCollection keysAndValuesReverseDo:[:index :value |
- Transcript show:index; show:' '; showCr:value
+ Transcript show:index; show:' '; showCR:value
]
"
@@ -862,7 +862,7 @@
oc := #(10 20 30 40 50 60 70 80) asOrderedCollection.
oc removeFirst; removeFirst.
oc keysAndValuesReverseDo:[:index :value |
- Transcript show:index; show:' '; showCr:value
+ Transcript show:index; show:' '; showCR:value
]
"
!
@@ -1393,5 +1393,5 @@
!OrderedCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.51 1996-05-12 17:00:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.52 1996-05-18 15:29:31 cg Exp $'
! !