Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Tree
Modified Files:
Col.pm Row.pm
Log Message:
- add tree fiield get functions
- more tree work
- more tree test work
- add tree compare cb C / XS code
- reformat / rename data structs
- some docs
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Col.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Col.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Col.pm 10 Jun 2006 16:42:26 -0000 1.2
@@ -114,7 +114,8 @@
sub SortFuncSet
{
my $self = shift;
- # TODO: where do we store the sort callbacks?
+ # shift in callback and data
+ Etk::etk_tree_col_sort_func_set($self->{WIDGET}, shift, shift || undef);
}
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Row.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Row.pm 8 Jun 2006 11:53:48 -0000 1.2
+++ Row.pm 10 Jun 2006 16:42:26 -0000 1.3
@@ -140,6 +140,99 @@
$fraction, $text);
}
+sub FieldIntGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURNS
+ # int
+ return Etk::etk_tree_row_field_int_get($self->{WIDGET}, $col->{WIDGET});
+}
+
+sub FieldTextGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURNS
+ # text
+ return Etk::etk_tree_row_field_text_get($self->{WIDGET}, $col->{WIDGET});
+}
+
+sub FieldDoubleGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURNS
+ # double
+ return Etk::etk_tree_row_field_double_get($self->{WIDGET}, $col->{WIDGET});
+}
+
+sub FieldImageFileGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURNS
+ # icon
+ # text
+ return Etk::etk_tree_row_field_image_file_get($self->{WIDGET},
+ $col->{WIDGET});
+}
+
+sub FieldImageEdjeGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURN
+ # edje
+ # group
+ return Etk::etk_tree_row_field_image_edje_get($self->{WIDGET},
+ $col->{WIDGET});
+}
+
+sub FieldIconFileTextGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURNS
+ # icon
+ # text
+ return Etk::etk_tree_row_field_icon_file_text_get($self->{WIDGET},
+ $col->{WIDGET});
+}
+
+sub FieldIconEdjeTextGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURN
+ # edje
+ # group
+ # text
+ return Etk::etk_tree_row_field_icon_edje_text_get($self->{WIDGET},
+ $col->{WIDGET});
+}
+
+sub FieldCheckboxGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURN
+ # checked
+ return Etk::etk_tree_row_field_checkbox_get($self->{WIDGET},
+ $col->{WIDGET});
+}
+
+sub FieldProgressBarGet
+{
+ my $self = shift;
+ my $col = shift;
+ # RETURN
+ # fraction
+ # text
+ return Etk::etk_tree_row_field_progress_bar_get($self->{WIDGET},
+ $col->{WIDGET});
+}
+
sub FieldsSet
{
my $self = shift;
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
