Offray/RoloLudo
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Improved printing.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-11-26 11:21:51 -05:00
parent 1be8c6ba58
commit 5feee250e4
3 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
RoloLudo.package/DeckOfCards.class/instance/printOn..st
View File

@ -1,4 +1,9 @@
accessing accessing
printOn: aStream printOn: aStream
super initialize. super initialize.
^ aStream nextPutAll: self cards printString self class suits keysDo: [ :suit |
aStream
nextPutAll: (self stockCardsInSuit: suit);
nextPutAll: String cr.
].
^ aStream contents.

7
RoloLudo.package/DeckOfCards.class/instance/stockCardsInSuit..st Normal file
View File

@ -0,0 +1,7 @@
accessing
stockCardsInSuit: aString
| response suitCards |
response := '' writeStream.
suitCards := self stock select: [ :card | card endsWith: aString ].
suitCards do: [ :card | response nextPutAll: card ].
^ response contents

6
RoloLudo.package/DeckOfCards.class/instance/uiCardsFor..st Normal file
View File

@ -0,0 +1,6 @@
accessing
uiCardsFor: aView
<gtView>
^ aView text
title: 'Cards';
text: [ self printString ]