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:
Theme API changes
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -3 -r1.50 -r1.51
--- etk_test.pl 8 Mar 2007 19:12:32 -0000 1.50
+++ etk_test.pl 21 Mar 2007 19:53:30 -0000 1.51
@@ -504,7 +504,7 @@
{
my $row = $tree->RowAppend();
- $row->ModelFieldsSet(0, $mod1, Etk::Theme::IconGet(),
+ $row->ModelFieldsSet(0, $mod1, Etk::Theme::IconPathGet(),
Etk::Stock::KeyGet(PlacesUserHome, SizeSmall));
$row->ModelFieldsSet(0, $mod2, "Row " . (($i*3)+1));
$row->FieldsSet(0, $col2, 10.0);
@@ -513,7 +513,7 @@
my $row2 = $tree->RowAppend($row);
- $row2->ModelFieldsSet(0, $mod1, Etk::Theme::IconGet(),
+ $row2->ModelFieldsSet(0, $mod1, Etk::Theme::IconPathGet(),
Etk::Stock::KeyGet(PlacesUserHome, SizeSmall));
$row2->ModelFieldsSet(0, $mod2, "Row " . (($i*3)+2));
@@ -522,7 +522,7 @@
$row2->FieldsSet(0, $col4, 1);
my $row3 = $tree->RowAppend($row2);
- $row3->ModelFieldsSet(0, $mod1, Etk::Theme::IconGet(),
+ $row3->ModelFieldsSet(0, $mod1, Etk::Theme::IconPathGet(),
Etk::Stock::KeyGet(PlacesUserHome, SizeSmall));
$row3->ModelFieldsSet(0, $mod2, "Row " . (($i*3)+3));
$row3->FieldsSet(0, $col2, 30.0);
@@ -803,7 +803,7 @@
return if($folder eq "");
$iconbox->Clear();
- $iconbox->Append(Etk::Theme::IconGet(), "actions/go-up_48", "..");
+ $iconbox->Append(Etk::Theme::IconPathGet(), "actions/go-up_48", "..");
# Add directories
opendir(DIR, $_iconbox_folder."/".$folder) or
@@ -811,7 +811,7 @@
while (defined($file = readdir(DIR))) {
if (-d "$_iconbox_folder/$folder/$file" && $file !~ /^\./)
{
- $iconbox->Append(Etk::Theme::IconGet(),
+ $iconbox->Append(Etk::Theme::IconPathGet(),
"places/folder_48", $file);
}
}
@@ -827,12 +827,12 @@
$parts[-1] =~ tr [A-Z] [a-z];
if($_iconbox_types{$parts[-1]})
{
- $iconbox->Append(Etk::Theme::IconGet(),
+ $iconbox->Append(Etk::Theme::IconPathGet(),
$_iconbox_types{$parts[-1]}, $file);
}
else
{
- $iconbox->Append(Etk::Theme::IconGet(),
+ $iconbox->Append(Etk::Theme::IconPathGet(),
"mimetypes/text-x-generic_48", $file);
}
}
@@ -1239,7 +1239,7 @@
$win->TitleSet("Etk-Perl Filechooser Test");
my $fc = Etk::Filechooser->new();
- $win->PackInMainArea($fc, 1, 1, 0, 0);
+ $win->PackInMainArea($fc, BoxStart, BoxExpandFill, 0);
$win->ButtonAdd("Open", 1);
$win->ButtonAdd("Close", 2);
-------------------------------------------------------------------------
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
