Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
Oops! stray debugging code.
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -3 -r1.17 -r1.18
--- etk_test.pl 18 Jun 2006 15:29:50 -0000 1.17
+++ etk_test.pl 18 Jun 2006 15:33:44 -0000 1.18
@@ -405,7 +405,6 @@
$vbox->PackStart($pbar1);
$vbox->PackStart($pbar2);
-use Data::Dumper;
my $timer1 = Etk::Timer->new(0.05,
sub {
my $fraction = $pbar1->FractionGet();
@@ -415,7 +414,6 @@
$pbar1->TextSet(sprintf("%.0f%% done", $fraction * 100.0));
$pbar1->FractionSet($fraction);
-
return 1;
}
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
