[ViewVC] Diff of: cvs/kgsueme/kgsueme/room.pl

Comparing kgsueme/kgsueme/room.pl (file contents):
Revision 1.17 by pcg, Thu May 20 22:59:55 2004 UTC vs.
Revision 1.18 by pcg, Fri May 21 15:32:02 2004 UTC

 sub new {
    my ($self, %arg) = @_;
    $self = $self->Glib::Object::new;
    $self->{$_} = delete $arg{$_} for keys %arg;
-   $self->signal_connect (destroy => sub { %{$_[0]} = () });
    $self->signal_connect (delete_event => sub { $self->part; 1 });
+   $self->signal_connect (destroy => sub {
+      delete $::config->{rooms}{$self->{channel}};
+      delete $self->{app}{room}{$self->{channel}};
+      (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
+      $self->unlisten;
+      %{$_[0]} = ();
+   });
    $self->listen ($self->{conn}, qw(msg_room:));
    $self->set_title ("KGS Room $self->{name}");
    gtk::state $self, "room::window", $self->{name}, window_size => [600, 400];
 }
 sub event_part {
    my ($self) = @_;
-   delete $::config->{rooms}{$self->{channel}};
-   delete $self->{app}{room}{$self->{channel}};
-   (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
-   $self->unlisten;
    $self->SUPER::event_part;
    $self->destroy;
 }
 sub event_update_roominfo {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines