Enlightenment CVS committal
Author : leviathan
Project : e17
Module : libs/etk-perl
Dir : e17/libs/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
fix the tree sorting, and fix signal names
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -3 -r1.52 -r1.53
--- etk_test.pl 23 Mar 2007 08:08:27 -0000 1.52
+++ etk_test.pl 29 Jun 2007 19:23:50 -0000 1.53
@@ -457,6 +457,7 @@
my $status = Etk::StatusBar->new();
$vbox->Append($status, BoxStart, BoxFill, 0);
+
$tree->SignalConnect("row-clicked", sub {
my $self = shift;
my $row = shift;
@@ -470,6 +471,7 @@
});
+
$col4->SignalConnect("cell-value-changed",
sub {
my $self = shift;
@@ -532,6 +534,13 @@
}
$tree->Thaw();
+
+ $col1->SortSet( sub {
+ my ($col, $row1, $row2) = @_;
+ my $a = $row1->ModelFieldsGet($mod2);
+ my $b = $row2->ModelFieldsGet($mod2);
+ return $a cmp $b;
+ }, undef);
$win->ShowAll();
}
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
