From 7315a4c5466cfe644a7243c8714eeae24858e83d Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Mon, 30 Aug 2004 08:26:34 +0000 Subject: - launch net_monitor once (test if there's a running net_monitor before) --- perl-install/standalone/net_applet | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'perl-install/standalone/net_applet') diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index 330bd84bb..5f7627904 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -14,7 +14,6 @@ use ugtk2 qw(:create :helpers :wrappers); my ($eventbox, $img); my ($menu, $timeout); -my $raisedwindow = 0; my $onstartupfile = "$ENV{HOME}/.net_applet"; add_icon_path("/usr/share/libDrakX/pixmaps/"); # Allow multiple instances, but only one per user: @@ -54,11 +53,10 @@ gtkadd(my $icon = Gtk2::TrayIcon->new("Net_Applet"), ) ); $eventbox->signal_connect(button_press_event => sub { - if (!$raisedwindow) { - if ($_[1]->button == 1) { - $raisedwindow = 1; netMonitor() - } - } + if ($_[1]->button == 1) { + my @nm_pid = `ps -u $ENV{USER}` =~ /net_monitor/; + @nm_pid > 1 and netMonitor() + } $_[1]->button == 3 && $menu and $menu->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time); }); my ($opt) = @ARGV; -- cgit v1.2.1