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

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.86 by pcg, Fri May 21 03:18:15 2004 UTC vs.
Revision 1.87 by pcg, Fri May 21 15:32:02 2004 UTC

    $self->listen ($self->{conn});
    gtk::state $self, "game::window", undef, window_size => [600, 500];
    $self->signal_connect (delete_event => sub { $self->part; 1 });
-   $self->signal_connect (destroy => sub { %{$_[0]} = () });
+   $self->signal_connect (destroy => sub {
+      $self->unlisten;
+      delete $self->{app}{game}{$self->{channel}};
+      %{$_[0]} = ();
+   });#d#
    $self->add (my $hpane = new Gtk2::HPaned);
    gtk::state $hpane, "game::hpane", undef, position => 500;
    # LEFT PANE
    $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_)
       for COLOUR_WHITE, COLOUR_BLACK;
    $vbox->pack_start (($self->{chat} = new superchat), 1, 1, 0);
-   weaken $self->{chat};
    $self->{rules_inlay} = $self->{chat}->new_switchable_inlay ("Game Rules", sub { $self->draw_rules (@_) }, 1);
    $self->{chat}->signal_connect (command => sub {
       my ($chat, $cmd, $arg) = @_;
 sub join {
    my ($self) = @_;
    return if $self->{joined};
    $self->SUPER::join;
-   $self->show_all;
 }
 sub update_board {
    my ($self) = @_;
    return unless $self->{path};
 sub event_join {
    my ($self) = @_;
    $self->SUPER::event_join (@_);
    $self->event_update_game;
+   $self->show_all;
 }
 sub event_part {
    my ($self) = @_;

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