diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 11 |
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; |