Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
- todo--
- some more simplifactions and cleanups
- start of test suite
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -3 -r1.22 -r1.23
--- etk_test.pl 5 Jul 2006 04:03:38 -0000 1.22
+++ etk_test.pl 17 Jul 2006 23:26:17 -0000 1.23
@@ -744,7 +744,7 @@
my ($label, $stockid, $menubar, $statusbar) = @_;
my $menu_item = Etk::Menu::Item::Image->new($label);
- my $image = Etk::Image->new_from_stock($stockid, Etk::Stock::SizeSmall);
+ my $image = Etk::Image->new($stockid, Etk::Stock::SizeSmall);
$menu_item->ImageSet($image);
$menubar->Append($menu_item);
$menu_item->SignalConnect("selected",
@@ -821,7 +821,7 @@
my $vbox2 = Etk::VBox->new(0, 3);
$frame->Add($vbox2);
- my $image = Etk::Image->new_from_stock(Etk::Stock::DocumentNew,
+ my $image = Etk::Image->new(Etk::Stock::DocumentNew,
Etk::Stock::SizeBig);
$vbox2->PackStart($image, 0, 0, 0);
@@ -835,7 +835,7 @@
for( my $i = Etk::Stock::DocumentNew;
$i <= Etk::Stock::FormatTextUnderline; $i++)
{
- my $image2 = Etk::Image->new_from_stock($i, Etk::Stock::SizeSmall);
+ my $image2 = Etk::Image->new($i, Etk::Stock::SizeSmall);
my $item = $combobox->ItemAppend($image2, Etk::Stock::LabelGet($i));
$item->DataSet($i);
}
-------------------------------------------------------------------------
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
