… | |
… | |
278 | $self; |
278 | $self; |
279 | } |
279 | } |
280 | |
280 | |
281 | sub event_update_users { |
281 | sub event_update_users { |
282 | my ($self, $add, $update, $remove) = @_; |
282 | my ($self, $add, $update, $remove) = @_; |
|
|
283 | |
|
|
284 | return unless $self->{userlist}; |
283 | |
285 | |
284 | $self->{userlist}->update ($add, $update, $remove); |
286 | $self->{userlist}->update ($add, $update, $remove); |
285 | |
287 | |
286 | my %important; |
288 | my %important; |
287 | $important{$self->{user1}{name}}++; |
289 | $important{$self->{user1}{name}}++; |
… | |
… | |
537 | $self->{text}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge)); |
539 | $self->{text}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge)); |
538 | } |
540 | } |
539 | |
541 | |
540 | sub destroy { |
542 | sub destroy { |
541 | my ($self) = @_; |
543 | my ($self) = @_; |
|
|
544 | |
|
|
545 | delete $self->{app}{gamelist}{game}{$self->{channel}}; |
542 | $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy |
546 | $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy |
543 | for BLACK, WHITE; |
547 | for BLACK, WHITE; |
544 | $self->SUPER::destroy; |
548 | $self->SUPER::destroy; |
545 | delete $self->{app}{gamelist}{game}{$self->{channel}}; |
|
|
546 | } |
549 | } |
547 | |
550 | |
548 | 1; |
551 | 1; |
549 | |
552 | |