Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
add toolbar support
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -3 -r1.38 -r1.39
--- etk_test.pl 26 Aug 2006 17:54:09 -0000 1.38
+++ etk_test.pl 1 Sep 2006 18:34:36 -0000 1.39
@@ -616,12 +616,28 @@
{
my $win = Etk::Window->new();
$win->TitleSet("Etk-Perl Menu Test");
- $win->SizeRequestSet(300, 200);
+ $win->SizeRequestSet(325, 240);
my $box = Etk::VBox->new(0, 0);
my $menubar = Etk::Menu::Bar->new();
$box->Append($menubar);
+
+ my $toolbar = Etk::Toolbar->new();
+ $box->Append($toolbar);
+
+ $toolbar->Append(Etk::Button::new_from_stock(EditCopy));
+ $toolbar->Append(Etk::Button::new_from_stock(EditCut));
+ $toolbar->Append(Etk::Button::new_from_stock(EditPaste));
+
+ $toolbar->Append(Etk::VSeparator->new());
+
+ $toolbar->Append(Etk::Button::new_from_stock(EditUndo));
+ $toolbar->Append(Etk::Button::new_from_stock(EditRedo));
+
+ $toolbar->Append(Etk::VSeparator->new());
+
+ $toolbar->Append(Etk::Button::new_from_stock(EditFind));
my $label = Etk::Label->new("Click me :)");
$label->AlignmentSet(0.5, 0.5);
-------------------------------------------------------------------------
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
