summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 87b28a685..a33d48138 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -11,6 +11,7 @@ use common;
use mygtk2;
use ugtk2 qw(:helpers :wrappers :create);
use Gtk2::Gdk::Keysyms;
+use feature qw(state);
my $forgetTime = 1000; #- in milli-seconds
@@ -422,7 +423,15 @@ sub create_widget {
my $box = create_widgets_block($o, $children, $update, $ignore_ref);
$w = gtknew('HBox', children_tight => [
gtknew('Install_Button', text => $e->{text},
- clicked => sub { ask_fromW($o, { title => N("Advanced") }, $e->{children}) }
+ clicked => sub {
+ state $done;
+ if (!$done) {
+ unshift @{$e->{children}},
+ { type => 'only_label', no_indent => 1, val => \$e->{message} } if $e->{message};
+ $done = 1;
+ }
+
+ ask_fromW($o, { title => N("Advanced") }, $e->{children}) }
)
]);
} elsif ($e->{type} =~ /list/) {