diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-08-27 19:29:35 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-27 19:29:35 +0000 |
| commit | bfbd03b2b117ced6791a70be7cc07ee7cc144a59 (patch) | |
| tree | 5b5fda50a21ef140c5945917470204eaacca7f74 /perl-install/interactive/gtk.pm | |
| parent | a6ddf60c9562929a7d9da2d972dc5395f075ebfc (diff) | |
| download | drakx-backup-do-not-use-bfbd03b2b117ced6791a70be7cc07ee7cc144a59.tar drakx-backup-do-not-use-bfbd03b2b117ced6791a70be7cc07ee7cc144a59.tar.gz drakx-backup-do-not-use-bfbd03b2b117ced6791a70be7cc07ee7cc144a59.tar.bz2 drakx-backup-do-not-use-bfbd03b2b117ced6791a70be7cc07ee7cc144a59.tar.xz drakx-backup-do-not-use-bfbd03b2b117ced6791a70be7cc07ee7cc144a59.zip | |
(create_widget) restore support for advanced_messages (regression introduced in
r244088: "(create_widget) popup advanced settings in dialogs")
Diffstat (limited to 'perl-install/interactive/gtk.pm')
| -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/) { |