summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect11
1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index b4c4e366c..095258109 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -200,6 +200,14 @@ sub manage {
$notebook->set_property('show-border', 0);
my $apply_button;
+ my $wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
+ gtkflush();
+
+ network::netconnect::detect(my $detect = {});
+ $detect->{adsl} and do { $detect->{adsl}{$_} and $intf->{$_} = {} foreach keys %{$detect->{adsl}} };
+
+ undef $wait;
+
$window->{rwindow}->add(gtkpack_(Gtk2::VBox->new,
0, $interface_menu = gtksignal_connect(Gtk2::OptionMenu->new,
changed => sub {
@@ -227,9 +235,6 @@ sub manage {
);
$apply_button = $oc->{buttons}{N("Apply")};
- network::netconnect::detect(my $detect = {});
- $detect->{adsl} and do { $detect->{adsl}{$_} and $intf->{$_} = {} foreach keys %{$detect->{adsl}} };
-
each_index {
my $interface = $_;
$gui->{$interface}{index} = $::i;