Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Tree
Modified Files:
Col.pm Model.pm Row.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/Tree/Col.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Col.pm 11 Jun 2006 00:26:32 -0000 1.3
+++ Col.pm 20 Jul 2006 23:16:22 -0000 1.4
@@ -31,6 +31,7 @@
my $self = shift;
my $title = shift;
Etk::etk_tree_col_title_set($self->{WIDGET}, $title);
+ return $self;
}
sub TitleGet
@@ -44,6 +45,7 @@
my $self = shift;
my $width = shift;
Etk::etk_tree_col_width_set($self->{WIDGET}, $width);
+ return $self;
}
sub WidthGet
@@ -57,6 +59,7 @@
my $self = shift;
my $min_width = shift;
Etk::etk_tree_col_min_width_set($self->{WIDGET}, $min_width);
+ return $self;
}
sub MinWidthGet
@@ -70,6 +73,7 @@
my $self = shift;
my $resizable = shift;
Etk::etk_tree_col_resizable_set($self->{WIDGET}, $resizable);
+ return $self;
}
sub ResizableGet
@@ -83,6 +87,7 @@
my $self = shift;
my $expand = shift;
Etk::etk_tree_col_expand_set($self->{WIDGET}, $expand);
+ return $self;
}
sub ExpandGet
@@ -96,6 +101,7 @@
my $self = shift;
my $visible = shift;
Etk::etk_tree_col_visible_set($self->{WIDGET}, $visible);
+ return $self;
}
sub VisibleGet
@@ -109,16 +115,16 @@
my $self = shift;
my $new_place = shift;
Etk::etk_tree_col_redorder($self->{WIDGET}, $new_place);
+ return $self;
}
sub SortFuncSet
{
my $self = shift;
my $callback = shift;
- my $data = undef;
- $data = shift if (@_ > 0);
- # shift in callback and data
+ my $data = shift;
Etk::etk_tree_col_sort_func_set($self->{WIDGET}, $callback, $data);
+ return $self;
}
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Model.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -3 -r1.3 -r1.4
--- Model.pm 18 Jul 2006 22:14:34 -0000 1.3
+++ Model.pm 20 Jul 2006 23:16:22 -0000 1.4
@@ -24,6 +24,7 @@
my $xalign = shift;
my $yalign = shift;
Etk::etk_tree_model_alignment_set($self->{WIDGET}, $xalign, $yalign);
+ return $self;
}
sub AlignmentGet
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Row.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -3 -r1.5 -r1.6
--- Row.pm 15 Jul 2006 19:19:06 -0000 1.5
+++ Row.pm 20 Jul 2006 23:16:22 -0000 1.6
@@ -62,6 +62,7 @@
my $col = shift;
my $int = shift;
Etk::etk_tree_row_field_int_set($self->{WIDGET}, $col->{WIDGET}, $int);
+ return $self;
}
sub FieldTextSet
@@ -70,6 +71,7 @@
my $col = shift;
my $text = shift;
Etk::etk_tree_row_field_text_set($self->{WIDGET}, $col->{WIDGET}, $text);
+ return $self;
}
sub FieldDoubleSet
@@ -78,6 +80,7 @@
my $col = shift;
my $double = shift;
Etk::etk_tree_row_field_double_set($self->{WIDGET}, $col->{WIDGET},
$double);
+ return $self;
}
sub FieldImageFileSet
@@ -88,6 +91,7 @@
my $text = shift;
Etk::etk_tree_row_field_image_file_set($self->{WIDGET}, $col->{WIDGET},
$icon);
+ return $self;
}
sub FieldImageEdjeSet
@@ -98,6 +102,7 @@
my $group = shift;
Etk::etk_tree_row_field_image_edje_set($self->{WIDGET}, $col->{WIDGET},
$edje, $group);
+ return $self;
}
sub FieldIconFileTextSet
@@ -108,6 +113,7 @@
my $text = shift;
Etk::etk_tree_row_field_icon_file_text_set($self->{WIDGET}, $col->{WIDGET},
$icon, $text);
+ return $self;
}
sub FieldIconEdjeTextSet
@@ -119,6 +125,7 @@
my $text = shift;
Etk::etk_tree_row_field_icon_edje_text_set($self->{WIDGET}, $col->{WIDGET},
$edje, $group, $text);
+ return $self;
}
sub FieldCheckboxSet
@@ -128,6 +135,7 @@
my $checked = shift;
Etk::etk_tree_row_field_checkbox_set($self->{WIDGET}, $col->{WIDGET},
$checked);
+ return $self;
}
sub FieldProgressBarSet
@@ -138,6 +146,7 @@
my $text = shift;
Etk::etk_tree_row_field_progress_bar_set($self->{WIDGET}, $col->{WIDGET},
$fraction, $text);
+ return $self;
}
sub FieldIntGet
@@ -250,6 +259,7 @@
my $data = shift;
Etk::etk_tree_row_data_set($self->{WIDGET}, $data);
+ return $self;
}
sub DataGet
@@ -263,30 +273,35 @@
my $self = shift;
my $center_the_row = shift;
Etk::etk_tree_row_scroll_to($self->{WIDGET}, $center_the_row);
+ return $self;
}
sub Select
{
my $self = shift;
Etk::etk_tree_row_select($self->{WIDGET});
+ return $self;
}
sub Unselect
{
my $self = shift;
Etk::etk_tree_row_unselect($self->{WIDGET});
+ return $self;
}
sub Expand
{
my $self = shift;
Etk::etk_tree_row_expand($self->{WIDGET});
+ return $self;
}
sub Collapse
{
my $self = shift;
Etk::etk_tree_row_collapse($self->{WIDGET});
+ return $self;
}
1;
-------------------------------------------------------------------------
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
