From 4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 8 Jan 2004 17:04:41 +0000 Subject: add a separator below buttons on fredc request --- perl-install/ugtk2.pm | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 3b303c71c..c9089a78c 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -521,19 +521,22 @@ sub create_okcancel { @last = ($wm_is_kde ? $bprev : $bok); } - gtkpack(Gtk2::HBox->new, - (map { - gtkpack( - create_hbox($_->[1]), - (map { - $_->can_default($::isWizard); - $_; - } grep { $_ } @{$_->[0]}) - ) - } ([ \@first, 'start' ], - [ \@last, 'end' ], - ) - ) + gtkpack(Gtk2::VBox->new, + Gtk2::HSeparator->new, + gtkpack(Gtk2::HBox->new, + (map { + gtkpack( + create_hbox($_->[1]), + (map { + $_->can_default($::isWizard); + $_; + } grep { $_ } @{$_->[0]}) + ) + } ([ \@first, 'start' ], + [ \@last, 'end' ], + ) + ) + ), ); } -- cgit v1.2.1