From 8509e1dc1a1734335683150eae2d41ed43c900f1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 29 Dec 2003 07:46:12 +0000 Subject: - simplify button layout - really pack the two button sets at edgee by packing them in two different hboxes with "start" and "end" grouping style --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 6085e087a..4a34b3a65 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -508,11 +508,11 @@ sub create_okcancel { my @r2 = map { gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep { !$_->[2] } @other; # we put space to group buttons in two packs (but if there's only one when not in wizard mode) # but in the installer where all windows run in wizard mode because of design even when not in a wizard step - my @extras = (@l2, @r2, if_(!$::isInstall && ($::isWizard || $ok && $cancel), Gtk2::Label->new)); + my @extras = (@l2, @r2, if_($::isInstall || ($::isWizard || $ok && $cancel), Gtk2::Label->new)); my @l; # buttons list if ($::isWizard) { # wizard mode: order is cancel/extras/white/prev/next - push @l, if_(!$::isInstall, $w->{wizcancel}), @extras, if_($::isInstall, Gtk2::Label->new), $bprev, $bok; + push @l, if_(!$::isInstall, $w->{wizcancel}), @extras, $bprev, $bok; } else { # normal mode: cancel/ok button follow current desktop's HIG my @extras = (@l2, @r2, if_($ok && $cancel, Gtk2::Label->new)); # space buttons but if there's only one -- cgit v1.2.1