--- kgsueme/kgsueme/game.pl	2003/06/01 10:10:21	1.23
+++ kgsueme/kgsueme/game.pl	2003/06/01 10:13:28	1.24
@@ -77,7 +77,6 @@
    my $timer = $self->{time} + $self->{start} - $timestamp;
    $self->{widget}->set_text ($self->{format}->($timer));
 
-   warn "Timer $timer\n";
    $timer - int $timer;
 }
 
@@ -97,7 +96,6 @@
 
    my $timeout; $timeout = sub {
       my $next = int ($self->refresh (Time::HiRes::time) * 1000);
-      warn "next $next\n";
       $self->{timeout} = add Glib::Timeout $next, $timeout;
       0;
    };
@@ -111,6 +109,12 @@
    remove Glib::Source delete $self->{timeout} if $self->{timeout};
 }
 
+sub destroy {
+   my ($self) = @_;
+   $self->stop;
+   $self->SUPER::destroy;
+}
+
 package game::userpanel;
 
 use base gtk::widget;