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  ]