Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
delete timers on widget deletion
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -3 -r1.4 -r1.5
--- etk_test.pl 8 Jun 2006 11:53:48 -0000 1.4
+++ etk_test.pl 9 Jun 2006 08:02:03 -0000 1.5
@@ -375,11 +375,23 @@
}
);
+ $pbar1->SignalConnect("destroyed",
+ sub {
+ $timer1->Delete();
+ }
+ );
+
my $timer2 = Etk::Timer->new(0.025,
sub {
$pbar2->Pulse();
}
);
+
+ $pbar2->SignalConnect("destroyed",
+ sub {
+ $timer2->Delete();
+ }
+ );
$win->Add($vbox);
$win->ShowAll();
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
