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.70 by pcg, Tue Jul 22 21:44:00 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}}++;
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
540sub destroy { 542sub 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
5481; 5511;
549 552

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines