diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-08 14:56:02 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-08 14:56:02 +0000 |
commit | 6dcca6ffc1bd4904865e6ae913a25723f2cd4499 (patch) | |
tree | 779f5d508e059ff31a686ca4a215e5f890c67a35 /perl-install/standalone | |
parent | cf6f73b869db8af6b88dc00b669fd394c2456f91 (diff) | |
download | drakx-backup-do-not-use-6dcca6ffc1bd4904865e6ae913a25723f2cd4499.tar drakx-backup-do-not-use-6dcca6ffc1bd4904865e6ae913a25723f2cd4499.tar.gz drakx-backup-do-not-use-6dcca6ffc1bd4904865e6ae913a25723f2cd4499.tar.bz2 drakx-backup-do-not-use-6dcca6ffc1bd4904865e6ae913a25723f2cd4499.tar.xz drakx-backup-do-not-use-6dcca6ffc1bd4904865e6ae913a25723f2cd4499.zip |
(configure_net)
when there's no connection:
- fix message for new drakconnect scheme
- shrink code by reusing interactive
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakconnect | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 620158652..29bb18fa5 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -477,17 +477,14 @@ Configure them first by clicking on 'Configure'"))); sub configure_net { my ($netcnx, $netc, $_intf) = @_; my $dialog = ugtk2->new('drakconnect'); - my $exit_dialogsub = sub { Gtk2->main_quit }; + my $exit_dialogsub = sub { }; if (!$netcnx->{type}) { - $dialog = _create_dialog(N("LAN configuration")); - $dialog->vbox->add(Gtk2::Label->new(N("You don't have an Internet connection. -Create one first by clicking on 'Configure'"))); - gtkpack($dialog->action_area, - gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => $exit_dialogsub), - ); - $dialog->show_all; - $dialog->run; - return; + $in->ask_warn( + N("Warning"), + #-PO here "Internet access" should be translated the same was as in control-center + N("You don't have any configured Internet connection. +Please run \"Internet access\" in control center.")); + $in->exit; } my $cnx = {}; $cnx = $netcnx->{$netcnx->{type}}; |