Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib
Modified Files:
Etk.pm
Log Message:
- better handling of tree fields
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -3 -r1.18 -r1.19
--- Etk.pm 16 Aug 2006 20:21:56 -0000 1.18
+++ Etk.pm 19 Aug 2006 10:42:19 -0000 1.19
@@ -17,6 +17,23 @@
Etk::Shutdown();
}
+
+package Etk::Tree;
+
+sub ColNew {
+ my ($tree, $title, $model, $width) = @_;
+ my $col = col_new($tree, $title, $model, $width);
+ push @{$tree->{_COLS}}, $col;
+ return $col;
+}
+
+sub NthColGet {
+ my $self = shift;
+ my $nth = shift || 0;
+ return $self->{_COLS}->[$nth];
+}
+
+
1;
__END__
-------------------------------------------------------------------------
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
