Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Combobox
Modified Files:
Item.pm
Log Message:
- work on combobox .pm
- implement wrappers for combo in xs, we have a 10 item compromise for now on
co
mbobox models (10 items per entry)
- general fixes
- formatting
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Combobox/Item.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Item.pm 7 Jun 2006 11:58:34 -0000 1.1
+++ Item.pm 11 Jun 2006 18:13:54 -0000 1.2
@@ -11,4 +11,17 @@
return $self;
}
+sub DataSet
+{
+ my $self = shift;
+ my $data = shift;
+ Etk::etk_combobox_item_data_set($self->{WIDGET}, $data);
+}
+
+sub DataGet
+{
+ my $self = shift;
+ return Etk::etk_combobox_item_data_get($self->{WIDGET});
+}
+
1;
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
