Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
- better handling of tree fields
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -3 -r1.36 -r1.37
--- etk_test.pl 19 Aug 2006 08:27:35 -0000 1.36
+++ etk_test.pl 19 Aug 2006 10:42:19 -0000 1.37
@@ -485,20 +485,24 @@
sub {
my $self = shift;
my $row = shift;
- # XXX moo
- my @fields = $row->FieldsGet($tree->NthColGet(0));
+ my $col = $tree->NthColGet(0);
+ my @fields = $row->FieldsGet($col);
print "Row selected: ", join " ", @fields, "\n";
}
);
- $tree->SignalConnect("row_unselected",
- sub {
- }
- );
+ $tree->SignalConnect("row_unselected", sub { print "Row unselected\n" } );
$tree->SignalConnect("row_activated",
sub {
+ my $self = shift;
+ my $row = shift;
+
+ print "Row activated: ",
+ $row->FieldsGet($tree->NthColGet(0)), " ",
+ $row->FieldsGet($tree->NthColGet(1)), " ",
+ $row->FieldsGet($tree->NthColGet(2)), "\n";
}
);
@@ -510,11 +514,7 @@
my $button;
$button = Etk::Button::new_with_label("Clear");
- $button->SignalConnect("clicked",
- sub {
- $tree->Clear();
- }
- );
+ $button->SignalConnect("clicked", sub { $tree->Clear() });
$hbox->Append($button, BoxStart, BoxExpandFill);
$button = Etk::Button::new_with_label("Add 5 rows");
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
