From 54f3f13bf027d6fcbd7a7d9613e3e2057b3af664 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 18 Apr 2001 07:44:52 +0000
Subject: last corrections

---
 perl-install/standalone/draknet     | 4 +++-
 perl-install/standalone/net_monitor | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 37a1e4629..932d732b7 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -328,7 +328,7 @@ $window1->show_all();
 $_->hide foreach ($button1, $button3);
 Gtk->main_iteration while Gtk->events_pending;
 $::isEmbedded and kill USR2, $::CCPID;
-my $tag = Gtk->timeout_add(5000, sub { update(); 1 });
+my $tag = Gtk->timeout_add(5000, \&update);
 Gtk->main;
 Gtk->exit(0);
 
@@ -369,6 +369,8 @@ sub update {
     }
     $clist1->thaw();
     $button_del->set_sensitive(netconnect::get_profiles() > 1);
+    $tag = Gtk->timeout_add(5000, \&update);
+    0;
 }
 
 sub quit_global {
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index cce794c5f..54faa40d9 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -224,7 +224,8 @@ sub update {
 	$statusbar->push(1, netconnect::connected('', $netc) ? _("Connected") : _("Not connected"));
 	$isconnected ? $pix_c->set($pix_c_map, $pix_c_mask) : $pix_c->set($pix_d_map, $pix_d_mask);
     }
-    1;
+    $time_tag2 = Gtk->timeout_add(5000, \&update);
+    0;
 }
 
 sub draw_monitor {
-- 
cgit v1.2.1