Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
- dont use (shift || foo) (fixes chady's packing problem)
- fix timers now that they have their own structs
- formatting
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -3 -r1.8 -r1.9
--- etk_test.pl 10 Jun 2006 17:59:30 -0000 1.8
+++ etk_test.pl 11 Jun 2006 00:26:31 -0000 1.9
@@ -628,24 +628,22 @@
$menu_item->SubmenuSet($menu);
_menu_test_stock_item_new("Open", Etk::Stock::DocumentOpen, $menu,
$statusbar);
_menu_test_stock_item_new("Save", Etk::Stock::DocumentSave, $menu,
$statusbar);
-
+
$menu_item = _menu_test_item_new("Edit", $menubar, $statusbar);
$menu = Etk::Menu->new();
$menu_item->SubmenuSet($menu);
_menu_test_stock_item_new("Cut", Etk::Stock::EditCut, $menu, $statusbar);
_menu_test_stock_item_new("Copy", Etk::Stock::EditCopy, $menu, $statusbar);
_menu_test_stock_item_new("Paste", Etk::Stock::EditPaste, $menu,
$statusbar);
-
+
$menu_item = _menu_test_item_new("Help", $menubar, $statusbar);
$menu = Etk::Menu->new();
$menu_item->SubmenuSet($menu);
_menu_test_item_new("About", $menu, $statusbar);
-
-
- $menu = Etk::Menu->new();
- $win->SignalConnect("mouse_down", sub { $menu->Popup() });
-
+ $menu = Etk::Menu->new();
+ $win->SignalConnect("mouse_down", sub { $menu->Popup() });
+
_menu_test_stock_item_new("Open", Etk::Stock::DocumentOpen, $menu,
$statusbar);
_menu_test_stock_item_new("Save", Etk::Stock::DocumentSave, $menu,
$statusbar);
_menu_seperator_new($menu);
@@ -691,7 +689,7 @@
sub { $statusbar->Push($menu_item->LabelGet(), 0) });
$menu_item->SignalConnect("deselected",
sub { $statusbar->Pop(0) });
-
+
return $menu_item;
}
@@ -724,7 +722,6 @@
sub { $statusbar->Pop(0) });
return $menu_item;
-
}
sub _menu_test_radio_item_new
@@ -739,7 +736,6 @@
sub { $statusbar->Pop(0) });
return $menu_item;
-
}
sub _menu_seperator_new
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
