diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-02 16:05:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-02 16:05:17 +0000 |
| commit | fd2175373afec01c458e9e8bf3edeacf57c25b7c (patch) | |
| tree | 230bb9e4f9222d88bf56c992977f42abf7651369 /perl-install/install | |
| parent | 64065612afa3982c0543bde1d6a62ee6e15e29f0 (diff) | |
| download | drakx-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.pm | 9 |
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); } |