要らない音が鳴るようになりました

Object subclass: #Janken
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'My-Games'

Janken class>>play
"Janken play"
| table player computer result |
table _ #((TIE WIN LOSE) (LOSE TIE WIN) (WIN LOSE TIE)).
player _ (PopUpMenu labelArray: #(GU CHOKI PAR) lines: #())
startUpWithCaption: 'What is your choice?'.
computer _ 3 atRandom.
result _ (table at: player) at: computer.
"Transcript show: result; cr."
[:each ||sound|
sound _ (Dictionary new)
at: #TIE put: 'clink';
at: #LOSE put: 'peaks';
at: #WIN put: (AbstractSound stereoBachFugue);
at: each.
(each == #WIN)
ifTrue: [sound play]
ifFalse: [Smalltalk beep: sound]] value: result.
PopUpMenu inform: result, '.
computer''s choice is ', (#(GU CHOKI PAR) at: computer)