diff options
author | damien <damien@mandriva.com> | 2001-04-18 07:44:52 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-04-18 07:44:52 +0000 |
commit | 54f3f13bf027d6fcbd7a7d9613e3e2057b3af664 (patch) | |
tree | b9d693edacacc450faa7fde45765efb2ea24ffa7 /perl-install/standalone | |
parent | 7a7e11261ee8c06ad523edf1e58b964ecd735ea9 (diff) | |
download | drakx-54f3f13bf027d6fcbd7a7d9613e3e2057b3af664.tar drakx-54f3f13bf027d6fcbd7a7d9613e3e2057b3af664.tar.gz drakx-54f3f13bf027d6fcbd7a7d9613e3e2057b3af664.tar.bz2 drakx-54f3f13bf027d6fcbd7a7d9613e3e2057b3af664.tar.xz drakx-54f3f13bf027d6fcbd7a7d9613e3e2057b3af664.zip |
last corrections
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/draknet | 4 | ||||
-rwxr-xr-x | 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 { |