From: Enlightenment C. <no...@cv...> - 2006-07-22 15:06:13
|
Enlightenment CVS committal Author : leviathan Project : e17 Module : proto Dir : e17/proto/etk-perl/lib/Etk/Tree Modified Files: Col.pm Log Message: - C tree sorting functions for numerical and alphabetical sorting. =================================================================== RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree/Col.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -3 -r1.4 -r1.5 --- Col.pm 20 Jul 2006 23:16:22 -0000 1.4 +++ Col.pm 22 Jul 2006 20:06:09 -0000 1.5 @@ -127,5 +127,21 @@ return $self; } +sub SortFuncAlphabeticalSet +{ + my $self = shift; + my $data = shift; + Etk::etk_tree_col_sort_func_alpha_set($self->{WIDGET}, $data); + return $self; +} + +sub SortFuncNumericSet +{ + my $self = shift; + my $data = shift; + Etk::etk_tree_col_sort_func_numeric_set($self->{WIDGET}, $data); + return $self; +} + 1; |