diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 29 |
1 files 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' ], + ) + ) + ), ); } |