Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
- Fixes to list stuff which now work.
- more tests
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -3 -r1.28 -r1.29
--- etk_test.pl 30 Jul 2006 19:22:31 -0000 1.28
+++ etk_test.pl 4 Aug 2006 14:50:37 -0000 1.29
@@ -274,24 +274,35 @@
sub entry_window_show
{
- my $win = Etk::Window->new("Etk-Perl Entry Test");
- my $vbox = $win->AddVBox(0, 0);
- my $hbox = $vbox->AddHBox(0, 0)->PackStart();
- my $label = $vbox->AddLabel("")->PackStart();
+ my $win = Etk::Window->new();
+ $win->TitleSet("Etk-Perl Entry Test");
+ my $vbox = Etk::VBox->new(0, 0);
+ $win->Add($vbox);
+ my $hbox = Etk::HBox->new(0, 0);
+ $vbox->PackStart($hbox);
+ my $label = Etk::Label->new("");
+ $vbox->PackStart($label);
- my $entry = $hbox->AddEntry()->PackStart();
+ my $entry = Etk::Entry->new();
+ $hbox->PackStart($entry);
- $hbox->AddButton("Print text")->SignalConnect("clicked",
+ my $button = Etk::Button->new();
+ $button->LabelSet("Print text");
+ $button->SignalConnect("clicked",
sub {
$label->Set($entry->TextGet());
}
- )->PackStart();
+ );
+ $hbox->PackStart($button);
- $hbox->AddToggleButton("Toggle password")->SignalConnect("clicked",
+ my $button2 = Etk::ToggleButton->new();
+ $button2->LabelSet("Toggle password");
+ $button2->SignalConnect("clicked",
sub {
$entry->PasswordSet(!$entry->PasswordGet());
}
- )->PackStart();
+ );
+ $hbox->PackStart($button2);
$win->ShowAll();
}
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
