diff options
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 11 |
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/) { |