From fd2175373afec01c458e9e8bf3edeacf57c25b7c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 2 Sep 2008 16:05:17 +0000 Subject: (summary_prompt) render summary in a TextView so that background is white --- perl-install/install/steps_gtk.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'perl-install/install/steps_gtk.pm') 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); } -- cgit v1.2.1