12 lines
294 B
Smalltalk
12 lines
294 B
Smalltalk
|
accessing
|
||
|
|
uiDiceFor: aView
|
||
|
|
<gtView>
|
||
|
|
| response currentRoll |
|
||
|
|
response := '' writeStream.
|
||
|
|
currentRoll := self roll.
|
||
|
|
response
|
||
|
|
nextPutAll: 'Rolls: ', currentRoll printString; cr;
|
||
|
|
nextPutAll: 'Sums: ', currentRoll sum asString.
|
||
|
|
^ aView text
|
||
|
|
title: 'Dice';
|
||
|
|
text: [ response contents ]
|