Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
Huge changes.
- todo--
Note: some things are still not complete and some still need testing.
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -3 -r1.19 -r1.20
--- etk_test.pl 28 Jun 2006 00:19:48 -0000 1.19
+++ etk_test.pl 1 Jul 2006 20:20:22 -0000 1.20
@@ -9,6 +9,8 @@
use Etk::Combobox::Item;
use Etk::Entry;
use Etk::FillPolicy;
+use Etk::Dialog;
+use Etk::Filechooser;
use Etk::Frame;
use Etk::HBox;
use Etk::HPaned;
@@ -1182,17 +1184,22 @@
{
my $win = Etk::Window->new("Etk-Perl Color Picker Test");
my $cp = Etk::Colorpicker->new();
+
$win->Add($cp);
$win->ShowAll();
}
sub filechooser_window_show
{
- my $win = Etk::Window->new("Etk-Perl Filechooser Test");
- my $label = Etk::Label->new("<b>Etk::Filechooser test is not implemented
yet.</b>");
+ my $win = Etk::Dialog->new();
+ $win->TitleSet("Etk-Perl Filechooser Test");
- $win->Add($label);
- $win->BorderWidthSet(10);
+ my $fc = Etk::Filechooser->new();
+ $win->PackInMainArea($fc, 1, 1, 0, 0);
+ $win->ButtonAdd("Open", 1);
+ $win->ButtonAdd("Close", 2);
+
+
$win->ShowAll();
}
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
