Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
+ remove compiler warnings by casting to correct types
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -3 -r1.16 -r1.17
--- etk_test.pl 18 Jun 2006 10:47:41 -0000 1.16
+++ etk_test.pl 18 Jun 2006 15:29:50 -0000 1.17
@@ -405,6 +405,7 @@
$vbox->PackStart($pbar1);
$vbox->PackStart($pbar2);
+use Data::Dumper;
my $timer1 = Etk::Timer->new(0.05,
sub {
my $fraction = $pbar1->FractionGet();
@@ -414,6 +415,7 @@
$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
