Enlightenment CVS committal
Author : leviathan
Project : e17
Module : libs/etk-perl
Dir : e17/libs/etk-perl/lib
Modified Files:
Etk.pm
Log Message:
Move to the new Etk_Tree
NOTE: Currently you can only set one model per column, and the fields_get and
events do not work
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/lib/Etk.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -3 -r1.21 -r1.22
--- Etk.pm 6 Oct 2006 21:01:49 -0000 1.21
+++ Etk.pm 21 Jan 2007 01:12:44 -0000 1.22
@@ -18,19 +18,14 @@
}
-package Etk::Tree;
+package Etk::Tree::Col;
-sub ColNew {
- my ($tree, $title, $model, $width) = @_;
- my $col = col_new($tree, $title, $model, $width);
- push @{$tree->{_COLS}}, $col;
- return $col;
-}
+sub model_add { &ModelAdd; }
-sub NthColGet {
- my $self = shift;
- my $nth = shift || 0;
- return $self->{_COLS}->[$nth];
+sub ModelAdd {
+ my ($col, $model) = @_;
+ XS_etk_tree_col_model_add($col, $model);
+ push @{$col->{_models}}, $model->{_model};
}
-------------------------------------------------------------------------
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
