From 8fbc744a2b7cedf6f83fd98aa9d8cfb588b3690e Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Sat, 17 Jan 2004 17:27:45 +0000 Subject: add wait message as hardware detection takes time --- perl-install/standalone/drakconnect | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') 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; -- cgit v1.2.1