… | |
… | |
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}}++; |
… | |
… | |
415 | |
417 | |
416 | sub event_update_game { |
418 | sub event_update_game { |
417 | my ($self) = @_; |
419 | my ($self) = @_; |
418 | $self->SUPER::event_update_game; |
420 | $self->SUPER::event_update_game; |
419 | |
421 | |
|
|
422 | return unless $self->{window}; |
|
|
423 | |
420 | my $title = defined $self->{channel} |
424 | my $title = defined $self->{channel} |
421 | ? $self->owner->as_string . " " . $self->opponent_string |
425 | ? $self->owner->as_string . " " . $self->opponent_string |
422 | : "Game Window"; |
426 | : "Game Window"; |
423 | $self->{window}->set_title("KGS Game $title"); |
427 | $self->{window}->set_title("KGS Game $title"); |
424 | $self->{title}->set_text ($title); |
428 | $self->{title}->set_text ($title); |
… | |
… | |
537 | $self->{text}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge)); |
541 | $self->{text}->append_text ("\n".KGS::Listener::Debug::dumpval($challenge)); |
538 | } |
542 | } |
539 | |
543 | |
540 | sub destroy { |
544 | sub destroy { |
541 | my ($self) = @_; |
545 | my ($self) = @_; |
|
|
546 | |
|
|
547 | delete $self->{app}{gamelist}{game}{$self->{channel}}; |
542 | $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy |
548 | $self->{userpanel}[$_] && (delete $self->{userpanel}[$_])->destroy |
543 | for BLACK, WHITE; |
549 | for BLACK, WHITE; |
544 | $self->SUPER::destroy; |
550 | $self->SUPER::destroy; |
545 | delete $self->{app}{gamelist}{game}{$self->{channel}}; |
|
|
546 | } |
551 | } |
547 | |
552 | |
548 | 1; |
553 | 1; |
549 | |
554 | |