Enlightenment CVS committal

Author  : leviathan
Project : e17
Module  : proto

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


Modified Files:
        Shell.pm 


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/lib/Etk/Menu/Shell.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Shell.pm    28 Jun 2006 00:18:37 -0000      1.2
+++ Shell.pm    1 Jul 2006 20:20:22 -0000       1.3
@@ -60,9 +60,12 @@
 
 sub ItemsGet
 {
-    # TODO: pending list implementation
     my $self = shift;
-    return Etk::etk_menu_shell_items_get($self->{WIDGET});
+    return map {
+       my $widget = Etk::Widget->new();
+       $widget->{WIDGET} = $_;
+       $_ = $widget;
+    } Etk::etk_menu_shell_items_get($self->{WIDGET});
 }
 
 1;



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

Reply via email to