summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-08 14:56:02 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-08 14:56:02 +0000
commit6dcca6ffc1bd4904865e6ae913a25723f2cd4499 (patch)
tree779f5d508e059ff31a686ca4a215e5f890c67a35 /perl-install/standalone
parentcf6f73b869db8af6b88dc00b669fd394c2456f91 (diff)
downloaddrakx-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-xperl-install/standalone/drakconnect17
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}};