2023-11-14 16:21:21 +00:00
|
|
|
accessing
|
|
|
|
|
printOn: aStream
|
|
|
|
|
super initialize.
|
2023-11-26 18:06:04 +00:00
|
|
|
aStream nextPutAll: 'Stock: ', String cr.
|
2023-11-26 16:21:51 +00:00
|
|
|
self class suits keysDo: [ :suit |
|
|
|
|
|
aStream
|
|
|
|
|
nextPutAll: (self stockCardsInSuit: suit);
|
|
|
|
|
nextPutAll: String cr.
|
|
|
|
|
].
|
2023-11-26 18:06:04 +00:00
|
|
|
aStream nextPutAll: 'Drawn: ', String cr.
|
|
|
|
|
self drawn do: [:card | aStream nextPutAll: card, ' ' ].
|
2023-11-26 16:21:51 +00:00
|
|
|
^ aStream contents.
|
