ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/game.pl
(Generate patch)

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.69 by pcg, Tue Jul 22 21:24:50 2003 UTC vs.
Revision 1.71 by pcg, Wed Jul 23 02:03:37 2003 UTC

278 $self; 278 $self;
279} 279}
280 280
281sub event_update_users { 281sub 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
416sub event_update_game { 418sub 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
540sub destroy { 544sub 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
5481; 5531;
549 554

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines