summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-13 13:56:24 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-13 13:56:24 +0000
commitdb470f779b0c7fc562f93a53975f819194a69e87 (patch)
treef6c3a0891c907cc0550ef6f42f69e79b9df2be54 /perl-install/interactive
parentb04f79db286bd863df7ff3ab776114361177ff4c (diff)
downloaddrakx-db470f779b0c7fc562f93a53975f819194a69e87.tar
drakx-db470f779b0c7fc562f93a53975f819194a69e87.tar.gz
drakx-db470f779b0c7fc562f93a53975f819194a69e87.tar.bz2
drakx-db470f779b0c7fc562f93a53975f819194a69e87.tar.xz
drakx-db470f779b0c7fc562f93a53975f819194a69e87.zip
(create_widget) fix quitting app when closing "advanced" dialog
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 5 insertions, 1 deletions
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/) {