E CVS: proto leviathan

[Enlightenment CVS]

Enlightenment CVS committal

Author  : leviathan
Project : e17
Module  : proto

Dir     : e17/proto/etk-perl/lib/Etk/Menu


Modified Files:
        Item.pm Shell.pm 


Log Message:
- back to stable again.
- new Constants for all consts
- Stock can export its constants too
- more simplifications in etk_test.pl

===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Menu/Item.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Item.pm     17 Jul 2006 23:26:17 -0000      1.2
+++ Item.pm     20 Jul 2006 23:16:22 -0000      1.3
@@ -9,9 +9,9 @@
     my $self = $class->SUPER::new();
     if(@_ == 1) {      
        my $arg = shift;
-        $self->{WIDGET} = $arg + 0 eq $arg ?
-               Etk::etk_menu_item_new_from_stock($arg) :
-               Etk::etk_menu_item_new_with_label($arg);
+        $self->{WIDGET} = $arg =~ /\D/ ?
+               Etk::etk_menu_item_new_with_label($arg) :
+               Etk::etk_menu_item_new_from_stock($arg);
     } else {
        $self->{WIDGET} = Etk::etk_menu_item_new();
     }
@@ -24,6 +24,7 @@
     my $self = shift;
     my $label = shift;
     Etk::etk_menu_item_label_set($self->{WIDGET}, $label);
+    return $self;
 }
 
 sub LabelGet
@@ -37,24 +38,28 @@
     my $self = shift;
     my $submenu = shift;
     Etk::etk_menu_item_submenu_set($self->{WIDGET}, $submenu->{WIDGET});
+    return $self;
 }
 
 sub Select
 {
     my $self = shift;
     Etk::etk_menu_item_select($self->{WIDGET});
+    return $self;
 }
 
 sub Deselect
 {
     my $self = shift;
     Etk::etk_menu_item_deselect($self->{WIDGET});
+    return $self;
 }
 
 sub Activate
 {
     my $self = shift;
     Etk::etk_menu_item_activate($self->{WIDGET});
+    return $self;
 }
 
 sub SetFromStock
@@ -62,6 +67,7 @@
     my $self = shift;
     my $stock_id = shift;
     Etk::etk_menu_item_set_from_stock($self->{WIDGET}, $stock_id);
+    return $self;
 }
 
 1;
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Menu/Shell.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Shell.pm    1 Jul 2006 20:20:22 -0000       1.3
+++ Shell.pm    20 Jul 2006 23:16:22 -0000      1.4
@@ -16,6 +16,7 @@
     my $self = shift;
     my $item = shift;
     Etk::etk_menu_shell_prepend($self->{WIDGET}, $item->{WIDGET});
+    return $self;
 }
 
 sub Append
@@ -23,6 +24,7 @@
     my $self = shift;
     my $item = shift;
     Etk::etk_menu_shell_append($self->{WIDGET}, $item->{WIDGET});
+    return $self;
 }    
 
 sub PrependRelative
@@ -32,6 +34,7 @@
     my $relative = shift;
     Etk::etk_menu_shell_prepend_relative($self->{WIDGET}, $item->{WIDGET}, 
        $relative->{WIDGET});
+    return $self;
 }
 
 sub AppendRelative
@@ -41,6 +44,7 @@
     my $relative = shift;
     Etk::etk_menu_shell_append_relative($self->{WIDGET}, $item->{WIDGET}, 
        $relative->{WIDGET});
+    return $self;
 }
 
 sub Insert
@@ -49,6 +53,7 @@
     my $item = shift;
     my $position = shift;
     Etk::etk_menu_shell_insert($self->{WIDGET}, $item->{WIDGET}, $position);
+    return $self;
 }
 
 sub Remove
@@ -56,6 +61,7 @@
     my $self = shift;
     my $item = shift;
     Etk::etk_menu_shell_remove($self->{WIDGET}, $item->{WIDGET});
+    return $self;
 }
 
 sub ItemsGet



-------------------------------------------------------------------------
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