diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-21 10:57:28 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-21 10:57:28 +0000 |
| commit | d0bc1a61790e16d4499b80539cf1561a45c75daf (patch) | |
| tree | e9c4dc8f8dc7e30d15acd7e063214b440476f37f /perl-install/standalone/net_monitor | |
| parent | 584e9c0f4dba22cb924a1bd407c247fe83b1629f (diff) | |
| download | drakx-backup-do-not-use-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar drakx-backup-do-not-use-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar.gz drakx-backup-do-not-use-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar.bz2 drakx-backup-do-not-use-d0bc1a61790e16d4499b80539cf1561a45c75daf.tar.xz drakx-backup-do-not-use-d0bc1a61790e16d4499b80539cf1561a45c75daf.zip | |
switch latest tools that still manually handle embedding
to use my_gtk
Diffstat (limited to 'perl-install/standalone/net_monitor')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 5 |
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) }), ) ) ) |