From b8d631a3146e54954192547eda38ca6a14dd6d38 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 30 Nov 2004 15:17:38 +0000 Subject: network::netconnect::real_main() do not exit brutally on wizcancel, handle it in network::netconnect::main() --- perl-install/network/netconnect.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 008ba7cb3..406d0e323 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1376,7 +1376,7 @@ Click on Ok to keep your configuration, or cancel to reconfigure your Internet & mouse => $mouse, intf => $intf, }; - wizards->new->safe_process($wiz, $in); + wizards->new->process($wiz, $in); } # install needed packages: @@ -1391,7 +1391,9 @@ sub main { eval { real_main('', , $netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) }; my $err = $@; if ($err) { # && $in->isa('interactive::gtk') - local $::isEmbedded = 0; # to prevent sub window embedding + $err =~ /wizcancel/ and $in->exit(0); + + local $::isEmbedded = 0; # to prevent sub window embedding local $::isWizard = 0 if !$::isInstall; # to prevent sub window embedding #err_dialog(N("Error"), N("An unexpected error has happened:\n%s", $err)); $in->ask_warn(N("Error"), N("An unexpected error has happened:\n%s", $err)); -- cgit v1.2.1