Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
- decrement perl version
- work on progress bar test
- fixes in ProgressBar.pm
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- etk_test.pl 7 Jun 2006 11:58:33 -0000 1.1
+++ etk_test.pl 7 Jun 2006 17:37:20 -0000 1.2
@@ -16,6 +16,7 @@
use Etk::FillPolicy;
use Etk::HSlider;
use Etk::VSlider;
+use Etk::ProgressBar;
Etk::Init();
@@ -342,7 +343,16 @@
sub progbar_window_show
{
- print "progbar_window_show\n";
+ my $win = Etk::Window->new("Etk-Perl Progress Bar Test");
+ my $vbox = Etk::VBox->new(1, 5);
+ my $pbar1 = Etk::ProgressBar->new("0% done");
+ my $pbar2 = Etk::ProgressBar->new("Loading...");
+
+ $vbox->PackStart($pbar1);
+ $vbox->PackStart($pbar2);
+
+ $win->Add($vbox);
+ $win->ShowAll();
}
sub canvas_window_show
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
