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

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.24 by pcg, Sun Jun 1 10:13:28 2003 UTC vs.
Revision 1.25 by pcg, Sun Jun 1 11:02:41 2003 UTC

    $self->{window}->set_title("KGS Game $title");
    gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];
    $self->{window}->signal_connect(delete_event => sub {
       $self->part;
+      $self->destroy;
       1;
    });
    $self->{window}->add($self->{hpane} = new Gtk2::HPaned);
    gtk::state $self->{hpane}, "game::hpane", undef, position => 500;
 }
 sub event_part {
    my ($self) = @_;
    $self->SUPER::event_part;
-   delete $appwin::gamelist->{game}{$self->{channel}};
-   $self->destroy;
 }
 sub event_move {
    my ($self, $pass) = @_;
    sound::play 1, $pass ? "pass" : "move";
 }
+sub event_update_game {
+   my ($self) = @_;
+   $self->SUPER::event_update_game;
+   warn "UPDATE GAME";#d#
+}
+sub destroy {
+   my ($self) = @_;
+   $self->SUPER::destroy;
+   delete $appwin::gamelist->{game}{$self->{channel}};
+}
 1;

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