… | |
… | |
527 | . "\nBlack Score " . (util::toxml $msg->{blackscore}->as_string) |
527 | . "\nBlack Score " . (util::toxml $msg->{blackscore}->as_string) |
528 | . "</infoblock>" |
528 | . "</infoblock>" |
529 | ); |
529 | ); |
530 | } |
530 | } |
531 | |
531 | |
|
|
532 | sub event_challenge { |
|
|
533 | my ($self, $challenge) = @_; |
|
|
534 | |
|
|
535 | use KGS::Listener::Debug; |
|
|
536 | $self->{text}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge)); |
|
|
537 | } |
|
|
538 | |
532 | sub destroy { |
539 | sub destroy { |
533 | my ($self) = @_; |
540 | my ($self) = @_; |
534 | $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy |
541 | $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy |
535 | for BLACK, WHITE; |
542 | for BLACK, WHITE; |
536 | $self->SUPER::destroy; |
543 | $self->SUPER::destroy; |