summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_monitor
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-21 10:57:28 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-21 10:57:28 +0000
commitd0bc1a61790e16d4499b80539cf1561a45c75daf (patch)
treee9c4dc8f8dc7e30d15acd7e063214b440476f37f /perl-install/standalone/net_monitor
parent584e9c0f4dba22cb924a1bd407c247fe83b1629f (diff)
downloaddrakx-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar
drakx-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar.gz
drakx-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar.bz2
drakx-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar.xz
drakx-d0bc1a61790e16d4499b80539cf1561a45c75daf.zip
switch latest tools that still manually handle embedding
to use my_gtk
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-xperl-install/standalone/net_monitor5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index d25d83fcc..2baf9114a 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -18,7 +18,6 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-use Gtk;
use lib qw(/usr/lib/libDrakX);
use strict;
@@ -49,7 +48,7 @@ my $in = 'interactive'->vnew('su', 'default');
my $window1 = my_gtk->new('net_monitor');
-$window1->{rwindow}->signal_connect(delete_event => sub { Gtk->exit(0) });
+$window1->{rwindow}->signal_connect(delete_event => sub { my_gtk->exit(0) });
$window1->{rwindow}->set_position(1);
$window1->{rwindow}->set_title(N("Network Monitoring"));
$window1->{rwindow}->set_policy(1, 1, 1);
@@ -116,7 +115,7 @@ gtkadd($window1->{rwindow},
? system('/usr/sbin/logdrake --file=/var/log/messages &')
: system('/usr/X11R6/bin/xvt -e "tail -f /var/log/messages " &')
}),
- gtksignal_connect(my $button_close = new Gtk::Button(N("Close")), clicked => sub { Gtk->exit(0) }),
+ gtksignal_connect(my $button_close = new Gtk::Button(N("Close")), clicked => sub { my_gtk->exit(0) }),
)
)
)