Fixe problem when calling from different path

diff --git a/snom.pl b/snom.pl
index 34d61a2fbc1dceb3e1ae54c3b82cf309012be58d..93b1eee690a6e581d842b2c0974d4366cb161513 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -11,6 +11,8 @@ use Glib qw/TRUE FALSE/;
 use Gtk2 '-init';
 use Gtk2::Gdk::Keysyms;
 use LWP::UserAgent;
 use Gtk2 '-init';
 use Gtk2::Gdk::Keysyms;
 use LWP::UserAgent;

+use FindBin qw($Bin);
+

 
 my %g_key = ();
 my %g_arrows;
 
 my %g_key = ();
 my %g_arrows;


@@ -234,21 +236,21 @@ sub activate_icon_cb {
        }
 }
 
        }
 }
 

-my $status_icon = Gtk2::StatusIcon->new_from_file('snom.ico');
+my $status_icon = Gtk2::StatusIcon->new_from_file($Bin.'/snom.ico');

 my $menu = Gtk2::Menu->new();
 
 my $menuItem = Gtk2::ImageMenuItem->new_from_stock('gtk-quit');
 $menuItem->signal_connect('activate', \&quit_cb, $status_icon);
 $menu->append($menuItem);
 
 my $menu = Gtk2::Menu->new();
 
 my $menuItem = Gtk2::ImageMenuItem->new_from_stock('gtk-quit');
 $menuItem->signal_connect('activate', \&quit_cb, $status_icon);
 $menu->append($menuItem);
 

-$status_icon->set_tooltip(" Snom Tray ");
+$status_icon->set_tooltip('Snom Tray');

 $status_icon->signal_connect('activate', \&activate_icon_cb);
 $status_icon->signal_connect('popup-menu', \&popup_menu_cb, $menu);
 $status_icon->set_visible(1);
 ########################################################################333
 
 $window->add($mainbox);
 $status_icon->signal_connect('activate', \&activate_icon_cb);
 $status_icon->signal_connect('popup-menu', \&popup_menu_cb, $menu);
 $status_icon->set_visible(1);
 ########################################################################333
 
 $window->add($mainbox);

-$window->set_icon_from_file('snom.ico');
+$window->set_icon_from_file($Bin.'/snom.ico');

 $window->show();
 
 $g_key{OK}->grab_focus();
 $window->show();
 
 $g_key{OK}->grab_focus();