Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Tree/Model
Modified Files:
IconText.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/Model/IconText.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- IconText.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ IconText.pm 8 Jun 2006 11:53:48 -0000 1.2
@@ -15,7 +15,8 @@
my $self = {};
my $tree = shift;
my $icon_type = shift;
- $self->{WIDGET} = Etk::etk_tree_model_icon_text_new($tree->{WIDGET});
+ $self->{WIDGET} = Etk::etk_tree_model_icon_text_new($tree->{WIDGET},
+ $icon_type);
bless($self, $class);
return $self;
}
@@ -24,7 +25,7 @@
{
my $self = shift;
my $icon_width = shift;
- Etk::etk_tree_model_icon_text_icon_width_set($self->{WIDGET}, icon_width);
+ Etk::etk_tree_model_icon_text_icon_width_set($self->{WIDGET}, $icon_width);
}
sub IconWidthGet
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
