From 6f32c68dca0ab628203d7cc9beb3bb124e1c286c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 11 Sep 2008 17:45:09 +0000 Subject: (summary_prompt) use new "Help" button style (I forgot to commit this a long time ago :-() --- perl-install/install/steps_gtk.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install') diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index dbafdcf67..a6b31b32f 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -683,7 +683,8 @@ sub summary_prompt { text => [ [ gtknew('VBox', children_tight => [ map { ref($_) eq 'ARRAY' ? gtknew('Table', mcc => 1, row_spacings => 2, children => $_) : $_; } @widget_list ]) ] ])), - 0, $w->create_okcancel(undef, '', '', if_($help_sub, [ N("Help"), $help_sub, 1 ])) + 0, $w->create_okcancel(undef, '', '', if_($help_sub, [ gtknew('Install_Button', text => N("Help"), + clicked => $help_sub), undef, 1 ])) ])); $w->{real_window}->show_all; # else widgets embedded in textview are hidden -- cgit v1.2.1