diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-08 17:04:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-08 17:04:41 +0000 |
| commit | 4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb (patch) | |
| tree | 323bd082e87dad3e70be2cd150c8cbe3e4072e02 | |
| parent | cb72821b673bd77b5b136bac22fe8b38a9f5052b (diff) | |
| download | drakx-4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb.tar drakx-4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb.tar.gz drakx-4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb.tar.bz2 drakx-4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb.tar.xz drakx-4864f1a708acc8cf939fcd2ddff6d8c91ca2b6cb.zip | |
add a separator below buttons on fredc request
| -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' ], + ) + ) + ), ); } |