13 lines
331 B
Smalltalk
13 lines
331 B
Smalltalk
|
accessing
|
||
|
|
uiGameFor: aView
|
||
|
|
<gtView>
|
||
|
|
| response |
|
||
|
|
response := '' writeStream.
|
||
|
|
response
|
||
|
|
nextPutAll: '❭❭❭ Main Character'; cr; cr;
|
||
|
|
nextPutAll: self characters first printString; cr;
|
||
|
|
nextPutAll: '❭❭❭ Deck'; cr; cr;
|
||
|
|
nextPutAll: self deck printString.
|
||
|
|
^ aView text
|
||
|
|
title: 'Game';
|
||
|
|
text: [ response contents ]
|