summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-02 16:05:17 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-02 16:05:17 +0000
commitfd2175373afec01c458e9e8bf3edeacf57c25b7c (patch)
tree230bb9e4f9222d88bf56c992977f42abf7651369 /perl-install/install
parent64065612afa3982c0543bde1d6a62ee6e15e29f0 (diff)
downloaddrakx-fd2175373afec01c458e9e8bf3edeacf57c25b7c.tar
drakx-fd2175373afec01c458e9e8bf3edeacf57c25b7c.tar.gz
drakx-fd2175373afec01c458e9e8bf3edeacf57c25b7c.tar.bz2
drakx-fd2175373afec01c458e9e8bf3edeacf57c25b7c.tar.xz
drakx-fd2175373afec01c458e9e8bf3edeacf57c25b7c.zip
(summary_prompt) render summary in a TextView so that background is white
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/steps_gtk.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 28d0fdab9..3467a6338 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -673,13 +673,16 @@ sub summary_prompt {
ugtk2::gtkadd($w->{window},
gtknew('VBox', spacing => 5, children => [
- 1, gtknew('ScrolledWindow',
- child => gtknew('VBox', children_tight => [ map {
+ 1, gtknew('ScrolledWindow', h_policy => 'never',
+ child => gtknew('TextView',
+ text => [ [ gtknew('VBox', children_tight => [ map {
ref($_) eq 'ARRAY' ? gtknew('Table', mcc => 1, row_spacings => 2, children => $_) : $_;
- } @widget_list ])),
+ } @widget_list ]) ] ])),
0, $w->create_okcancel(undef, '', '', if_($help_sub, [ N("Help"), $help_sub, 1 ]))
]));
+ $w->{real_window}->show_all; # else widgets embedded in textview are hidden
+
$w->main($check_complete);
}