summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 8d7ee4cc0..80b27186a 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -703,6 +703,7 @@ sub adsl_atboot() { (any { /x--boot_time/ } cat_($network::tools::connect_file))
sub update_intbutt() {
$int_state->set($isconnected ? N("Connected") : N("Not connected"));
+ return if !$int_connect;
$int_connect->child->set($isconnected ? N("Disconnect...") : N("Connect..."));
$int_connect->set_sensitive(1);
}
@@ -956,6 +957,7 @@ Please run \"Internet access\" in control center."));
);
$dialog->{rwindow}->show_all;
+ Glib::Timeout->add(200, \&update_intbutt);
$dialog->main;
ugtk2->exit(0);
}