summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-01-17 17:27:45 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-01-17 17:27:45 +0000
commit8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e (patch)
tree30f0b3fe48ac80f7d9e8067f6228ae386ffb8ea6 /perl-install/standalone/drakconnect
parent2bbdce085b2939c7a240a350a921af9447c21c45 (diff)
downloaddrakx-8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e.tar
drakx-8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e.tar.gz
drakx-8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e.tar.bz2
drakx-8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e.tar.xz
drakx-8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e.zip
add wait message as hardware detection takes time
Diffstat (limited to 'perl-install/standalone/drakconnect')
-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;