Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Iconbox
Modified Files:
Model.pm
Log Message:
- implement first event structure, "mouse_up"
- fixes to Etk::Iconbox
- finish iconbox test
- misc cleanups
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Iconbox/Model.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Model.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Model.pm 13 Jun 2006 00:13:45 -0000 1.2
@@ -5,8 +5,8 @@
{
my $class = shift;
my $self = {};
- my $model = shift;
- $self->{WIDGET} = Etk::etk_iconbox_model_new($model);
+ my $iconbox = shift;
+ $self->{WIDGET} = Etk::etk_iconbox_model_new($iconbox->{WIDGET});
bless($self, $class);
return $self;
}
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
