E CVS: proto leviathan

[Enlightenment C. <no...@cv...>]

Enlightenment CVS committal

Author  : leviathan
Project : e17
Module  : proto

Dir     : e17/proto/etk-perl/etk_test


Modified Files:
	etk_test.pl 


Log Message:
more etk_test work: added paned, scrolled view, and colorpicker

===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -3 -r1.9 -r1.10
--- etk_test.pl	11 Jun 2006 00:26:31 -0000	1.9
+++ etk_test.pl	11 Jun 2006 08:04:19 -0000	1.10
@@ -36,6 +36,11 @@
 use Etk::Menu::Item::Separator;
 use Etk::StatusBar;
 use Etk::Stock;
+use Etk::Colorpicker;
+use Etk::ScrolledView;
+use Etk::VPaned;
+use Etk::HPaned;
+use Etk::HSeparator;
 
 
 Etk::Init();
@@ -769,12 +774,79 @@
 
 sub paned_window_show
 {
-    print "paned_window_show\n";
+    my $win = Etk::Window->new("Etk-Perl Paned Test");
+    $win->SizeRequestSet(300,300);
+    my $vbox = Etk::VBox->new(0,0);
+
+    # Paned Area
+    my $vpaned = Etk::VPaned->new();
+    $vbox->PackStart($vpaned);
+
+    my $hpaned = Etk::HPaned->new();
+    $vpaned->Child1Set($hpaned, 0);
+
+    my $label = Etk::Label->new("HPaned Child 1");
+    $label->AlignmentSet(0.5, 0.5);
+    $hpaned->Child1Set($label, 0);
+
+    $label = Etk::Label->new("HPaned Child 2");
+    $label->AlignmentSet(0.5, 0.5);
+    $hpaned->Child2Set($label, 0);
+
+    $label = Etk::Label->new("VPaned Child 2");
+    $label->AlignmentSet(0.5, 0.5);
+    $vpaned->Child2Set($label, 1);
+
+    my $hseparator = Etk::HSeparator->new();
+    $vbox->PackStart($hseparator, 0, 0, 6);
+
+    # Properties Area
+
+    my $hbox = Etk::HBox->new(1, 0);
+    $vbox->PackStart($hbox, 0, 1, 0);
+
+    my $frame = Etk::Frame->new("HPaned Properties");
+    $hbox->PackStart($frame, 1, 1, 0);
+
+    my $vbox2 = Etk::VBox->new(1, 0);
+    $frame->Add($vbox2);
+    
+    my $check_button = Etk::CheckButton->new("Child 1 Expand");
+    $check_button->ActiveSet(1);
+    $vbox2->PackStart($check_button, 1, 1, 0);
+
+    $check_button = Etk::CheckButton->new("Child 2 Expand");
+    $vbox2->PackStart($check_button, 1, 1, 0);
+
+    $frame = Etk::Frame->new("VPaned Properties");
+    $hbox->PackStart($frame, 1, 1, 0);
+
+    $vbox2 = Etk::VBox->new(1, 0);
+    $frame->Add($vbox2);
+    $check_button = Etk::CheckButton->new("Child 1 Expand");
+    $vbox2->PackStart($check_button, 1, 1, 0);
+    $check_button = Etk::CheckButton->new("Child 2 Expand");
+    $check_button->ActiveSet(1);
+    $vbox2->PackStart($check_button, 1, 1, 0);
+
+    $win->Add($vbox);
+    $win->ShowAll();
+   
 }
 
 sub scrolledview_window_show
 {
-    print "scrolledview_window_show\n";
+    my $win = Etk::Window->new("Etk-Perl Scrolled View Test");
+    $win->SizeRequestSet(180,180);
+
+    my $scrolledview = Etk::ScrolledView->new();
+    my $button = Etk::Button->new("Scrolled View Test");
+    $button->SizeRequestSet(300,300);
+
+    $scrolledview->AddWithViewport($button);
+
+    $win->Add($scrolledview);
+    $win->ShowAll();
 }
 
 sub notebook_window_show
@@ -789,7 +861,10 @@
 
 sub colorpicker_window_show
 {
-    print "colorpicker_window_show\n";
+    my $win = Etk::Window->new("Etk-Perl Color Picker Test");
+    my $cp = Etk::Colorpicker->new();
+    $win->Add($cp);
+    $win->ShowAll();
 }
 
 sub filechooser_window_show