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;
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
