Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk/Tree
Modified Files:
Col.pm
Log Message:
- dont use (shift || foo) (fixes chady's packing problem)
- fix timers now that they have their own structs
- formatting
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Col.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- Col.pm 10 Jun 2006 16:42:26 -0000 1.2
+++ Col.pm 11 Jun 2006 00:26:32 -0000 1.3
@@ -114,8 +114,11 @@
sub SortFuncSet
{
my $self = shift;
+ my $callback = shift;
+ my $data = undef;
+ $data = shift if (@_ > 0);
# shift in callback and data
- Etk::etk_tree_col_sort_func_set($self->{WIDGET}, shift, shift || undef);
+ Etk::etk_tree_col_sort_func_set($self->{WIDGET}, $callback, $data);
}
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
