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:
Oops.. missing one function
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -3 -r1.49 -r1.50
--- etk_test.pl 8 Mar 2007 18:58:35 -0000 1.49
+++ etk_test.pl 8 Mar 2007 19:12:32 -0000 1.50
@@ -746,13 +746,13 @@
$item->DataSet($i);
}
- #$combobox->ActiveItemSet($combobox->ActiveItemGet());
+ $combobox->ActiveItemSet($combobox->ActiveItemGet());
$combobox->SignalConnect("active_item_changed",
sub {
-# my $item = $combobox->ActiveItemGet();
-# my $stock_id = $item->DataGet();
-# $image->SetFromStock($stock_id, SizeBig);
+ my $item = $combobox->ActiveItemGet();
+ my $stock_id = $item->DataGet();
+ $image->SetFromStock($stock_id, SizeBig);
}
);
-------------------------------------------------------------------------
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
