summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/interactive/gtk.pm6
2 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index d73dd1e66..cc9498bfe 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- interactive layer:
+ o fix quitting app when closing "advanced" dialog (mga#1812)
+
Version 15.10 - 11 December 2012
- revert rosa crap that breaks generating initrd (mga#8357)
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 74dbad3fc..881bfc7e2 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -442,7 +442,11 @@ sub create_widget {
$w = gtknew('HBox', children_tight => [
gtknew('Install_Button', text => $e->{text},
clicked => sub {
- ask_fromW($o, { title => $common->{advanced_title} || $common->{title} || N("Advanced") }, $children) }
+ eval { ask_fromW($o, { title => $common->{advanced_title} || $common->{title} || N("Advanced") }, $children) };
+ if (my $err = $@) {
+ die $err if $err !~ /^wizcancel/;
+ }
+ }
)
]);
} elsif ($e->{type} =~ /list/) {