Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
fix etk_test
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -3 -r1.40 -r1.41
--- etk_test.pl 4 Sep 2006 19:39:26 -0000 1.40
+++ etk_test.pl 14 Oct 2006 09:47:28 -0000 1.41
@@ -445,17 +445,17 @@
for(my $i = 0; $i < 1000; $i++)
{
my $row = $tree->Append();
- $row->FieldsSet($col1, Etk::Theme::IconThemeGet(),
"places/user-home_16", "Row1");
+ $row->FieldsSet($col1, Etk::Theme::IconGet(), "places/user-home_16",
"Row1");
$row->FieldsSet($col2, 10);
$row->FieldsSet($col3, "images/1star.png");
my $row2 = $row->AppendToRow();
- $row2->FieldsSet($col1, Etk::Theme::IconThemeGet(), "places/folder_16",
"Row2");
+ $row2->FieldsSet($col1, Etk::Theme::IconGet(), "places/folder_16",
"Row2");
$row2->FieldsSet($col2, 20);
$row2->FieldsSet($col3, "images/2stars.png");
my $row3 = $row2->AppendToRow();
- $row3->FieldsSet($col1, Etk::Theme::IconThemeGet(),
"mimetypes/text-x-generic_16", "Row3");
+ $row3->FieldsSet($col1, Etk::Theme::IconGet(),
"mimetypes/text-x-generic_16", "Row3");
$row3->FieldsSet($col2, 30);
$row3->FieldsSet($col3, "images/3stars.png");
}
@@ -713,9 +713,9 @@
my $menu_item = Etk::Menu::Item::new_with_label($label);
$menubar->Append($menu_item);
$menu_item->SignalConnect("selected",
- sub { $statusbar->Push($menu_item->LabelGet(), 0) });
+ sub { $statusbar->MessagePush($menu_item->LabelGet(), 0) });
$menu_item->SignalConnect("deselected",
- sub { $statusbar->Pop(0) });
+ sub { $statusbar->MessagePop(0) });
return $menu_item;
}
@@ -729,9 +729,9 @@
$menu_item->Set($image);
$menubar->Append($menu_item);
$menu_item->SignalConnect("selected",
- sub { $statusbar->Push($menu_item->LabelGet(), 0) });
+ sub { $statusbar->MessagePush($menu_item->LabelGet(), 0) });
$menu_item->SignalConnect("deselected",
- sub { $statusbar->Pop(0) });
+ sub { $statusbar->MessagePop(0) });
return $menu_item;
@@ -744,9 +744,9 @@
my $menu_item = Etk::Menu::Item::Check::new_with_label($label);
$menubar->Append($menu_item);
$menu_item->SignalConnect("selected",
- sub { $statusbar->Push($menu_item->LabelGet(), 0) });
+ sub { $statusbar->MessagePush($menu_item->LabelGet(), 0) });
$menu_item->SignalConnect("deselected",
- sub { $statusbar->Pop(0) });
+ sub { $statusbar->MessagePop(0) });
return $menu_item;
}
@@ -766,9 +766,9 @@
}
$menubar->Append($menu_item);
$menu_item->SignalConnect("selected",
- sub { $statusbar->Push($menu_item->LabelGet(), 0) });
+ sub { $statusbar->MessagePush($menu_item->LabelGet(), 0) });
$menu_item->SignalConnect("deselected",
- sub { $statusbar->Pop(0) });
+ sub { $statusbar->MessagePop(0) });
return $menu_item;
}
@@ -879,7 +879,7 @@
return if($folder eq "");
$iconbox->Clear();
- $iconbox->Append(Etk::Theme::icon_theme_get(), "actions/go-up_48", "..");
+ $iconbox->Append(Etk::Theme::IconGet(), "actions/go-up_48", "..");
# Add directories
opendir(DIR, $_iconbox_folder."/".$folder) or
@@ -887,7 +887,7 @@
while (defined($file = readdir(DIR))) {
if (-d "$_iconbox_folder/$folder/$file" && $file !~ /^\./)
{
- $iconbox->Append(Etk::Theme::icon_theme_get(),
+ $iconbox->Append(Etk::Theme::IconGet(),
"places/folder_48", $file);
}
}
@@ -903,12 +903,12 @@
$parts[-1] =~ tr [A-Z] [a-z];
if($_iconbox_types{$parts[-1]})
{
- $iconbox->Append(Etk::Theme::icon_theme_get(),
+ $iconbox->Append(Etk::Theme::IconGet(),
$_iconbox_types{$parts[-1]}, $file);
}
else
{
- $iconbox->Append(Etk::Theme::icon_theme_get(),
+ $iconbox->Append(Etk::Theme::IconGet(),
"mimetypes/text-x-generic_48", $file);
}
}
-------------------------------------------------------------------------
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
