From 64065612afa3982c0543bde1d6a62ee6e15e29f0 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 2 Sep 2008 15:48:31 +0000 Subject: (summary_prompt) revert r244543 from 2008-08-29 since it makes buttons using white background (which we don't want); was: "(summary_prompt) render with white background" --- perl-install/install/NEWS | 1 - perl-install/install/share/themes-galaxy.rc | 6 ------ perl-install/install/steps_gtk.pm | 2 +- 3 files changed, 1 insertion(+), 8 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index bee943a30..ae27844a8 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -41,7 +41,6 @@ Version 11.29 - 29 August 2008 not supported), thus prevent waiting several minutes needlessly - refresh "Individual package selection" step - refresh "Security" step -- refresh "Summary" step Version 11.28 - 28 August 2008 diff --git a/perl-install/install/share/themes-galaxy.rc b/perl-install/install/share/themes-galaxy.rc index e1005f225..346b27f5b 100644 --- a/perl-install/install/share/themes-galaxy.rc +++ b/perl-install/install/share/themes-galaxy.rc @@ -25,11 +25,6 @@ style "background" bg[NORMAL] = "#FFFFFF" } -style "white_background" -{ - bg[NORMAL] = "#FFFFFF" -} - style "Left_background" { bg[NORMAL] = "#2859B5" @@ -42,5 +37,4 @@ widget "*Step-categories*" style "step-categories" widget "*Left_background*" style "Left_background" widget "*logo*" style "white-on-blue" widget "*background*" style "background" -widget "*white_background*" style "white_background" widget "*Banner*" style "banner" diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 04c0d5f50..28d0fdab9 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -673,7 +673,7 @@ sub summary_prompt { ugtk2::gtkadd($w->{window}, gtknew('VBox', spacing => 5, children => [ - 1, gtknew('ScrolledWindow', widget_name => 'white_background', + 1, gtknew('ScrolledWindow', child => gtknew('VBox', children_tight => [ map { ref($_) eq 'ARRAY' ? gtknew('Table', mcc => 1, row_spacings => 2, children => $_) : $_; } @widget_list ])), -- cgit v1.2.1