From: Enlightenment C. <no...@cv...> - 2006-07-22 15:06:40
|
Enlightenment CVS committal Author : leviathan Project : e17 Module : proto Dir : e17/proto/etk-perl/lib/Etk Modified Files: Tree.pm Log Message: - C tree sorting functions for numerical and alphabetical sorting. =================================================================== RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Tree.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -3 -r1.5 -r1.6 --- Tree.pm 20 Jul 2006 23:16:22 -0000 1.5 +++ Tree.pm 22 Jul 2006 20:06:08 -0000 1.6 @@ -193,6 +193,26 @@ return $self; } +sub SortAlphabetical +{ + my $self = shift; + my $asc = shift; + my $col = shift; + my $data = shift; + Etk::etk_tree_sort_alpha($self->{WIDGET}, $asc, $col->{WIDGET}, $data); + return $self; +} + +sub SortNumeric +{ + my $self = shift; + my $asc = shift; + my $col = shift; + my $data = shift; + Etk::etk_tree_sort_numeric($self->{WIDGET}, $asc, $col->{WIDGET}, $data); + return $self; +} + sub FirstRowGet { my $self = shift; |