From 9bff16755070ddafdf3062563d76139bbdd594b3 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 20 Mar 2008 15:36:31 +0000 Subject: - partitioning wizard: do not show error message in wizard mode when cancel is clicked (clean wizard window instead) --- perl-install/NEWS | 3 +++ perl-install/fs/partitioning_wizard.pm | 8 +++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 3714992a9..68b55d84d 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- partitioning wizard: do not show error message in wizard mode when + cancel is clicked (clean wizard window instead) + Version 10.17 - 20 March 2008 - use UUID by default (for diskdrake and draklive-install) diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 0a00466d3..980e2efd5 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -279,7 +279,13 @@ sub main { [ { val => \$sol, list => \@solutions, format => sub { $_[0][1] }, type => 'list' } ]); log::l("partitionWizard calling solution $sol->[1]"); my $ok = eval { $sol->[2]->() }; - $@ and $o->ask_warn('', N("Partitioning failed: %s", formatError($@))); + if (my $err = $@) { + if ($err =~ /wizcancel/) { + $_->destroy foreach $::WizardTable->get_children; + } else { + $o->ask_warn('', N("Partitioning failed: %s", formatError($err))); + } + } $ok or goto &main; 1; } -- cgit v1.2.1