Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Tree
Modified Files:
Row.pm
Log Message:
- Etk::Tree::* work
- etk_test tree work
- typemap fixes
- casting / blessing fixes
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Row.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Row.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Row.pm 8 Jun 2006 11:53:48 -0000 1.2
@@ -77,7 +77,27 @@
my $self = shift;
my $col = shift;
my $double = shift;
- Etk::etk_tree_row_field_text_set($self->{WIDGET}, $col->{WIDGET}, $double);
+ Etk::etk_tree_row_field_double_set($self->{WIDGET}, $col->{WIDGET},
$double);
+}
+
+sub FieldImageFileSet
+{
+ my $self = shift;
+ my $col = shift;
+ my $icon = shift;
+ my $text = shift;
+ Etk::etk_tree_row_field_image_file_set($self->{WIDGET}, $col->{WIDGET},
+ $icon);
+}
+
+sub FieldImageEdjeSet
+{
+ my $self = shift;
+ my $col = shift;
+ my $edje = shift;
+ my $group = shift;
+ Etk::etk_tree_row_field_image_edje_set($self->{WIDGET}, $col->{WIDGET},
+ $edje, $group);
}
sub FieldIconFileTextSet
@@ -94,11 +114,11 @@
{
my $self = shift;
my $col = shift;
- my $icon = shift;
+ my $edje = shift;
my $group = shift;
my $text = shift;
Etk::etk_tree_row_field_icon_edje_text_set($self->{WIDGET}, $col->{WIDGET},
- $icon, $group, $text);
+ $edje, $group, $text);
}
sub FieldCheckboxSet
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
