From 1b776244f5788de2aa457fa7c99471381f58e6ab Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 18 Feb 2004 13:03:39 +0000
Subject: (create_okcancel) enable to specify that some buttons must be at
 right

---
 perl-install/ugtk2.pm | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 25c17b64f..56fc5b333 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -498,7 +498,7 @@ sub create_packtable {
 sub create_okcancel {
     my ($w, $o_ok, $o_cancel, $o_spread, @other) = @_;
     # @other is a list of extra buttons (usually help (eg: XFdrake/drakx caller) or advanced (eg: interactive caller) button)
-    # extra buttons have the following structure [ label, handler, is_first ]
+    # extra buttons have the following structure [ label, handler, is_first, pack_right ]
     local $::isWizard = $::isWizard && !$w->{pop_it};
     my $cancel;
     if (defined $o_cancel || defined $o_ok) {
@@ -514,22 +514,23 @@ sub create_okcancel {
                                    sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk2->main_quit });
     }
     $w->{wizcancel} = gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { die 'wizcancel' }) if $::isWizard && !$::isInstall;
-    my @l2 = map { $w->{buttons}{$_->[0]} = gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep {  $_->[2] } @other;
-    my @r2 = map { $w->{buttons}{$_->[0]} = gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep { !$_->[2] } @other;
+    my $f = sub { $w->{buttons}{$_->[0]} = gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[3]) };
+    my @left  = ((map { $f->($_) } grep {  $_->[2] && !$_->[3] } @other),
+                  map { $f->($_) } grep { !$_->[2] && !$_->[3] } @other);
+    my @right = ((map { $f->($_) } grep {  $_->[2] &&  $_->[3] } @other),
+                  map { $f->($_) } grep { !$_->[2] &&  $_->[3] } @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);
-    $bprev = Gtk2::Label->new if !$cancel && $::Wizard_no_previous && !@extras;
-    my (@first, @last); # buttons lists
+    $bprev = Gtk2::Label->new if !$cancel && $::Wizard_no_previous && !@left && !@right;
     if ($::isWizard) {
-        # wizard mode: order is cancel/extras/white/prev/next
-        @first = (if_(!$::isInstall, $w->{wizcancel}), @extras);
-        @last = ($bprev, $bok);
+        # wizard mode: order is cancel/left_extras/white/right_extras/prev/next
+        unshift @left, $w->{wizcancel} if !$::isInstall;
+        push @right, $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
-        @first = ($bprev, @extras);
-        @last = ($bok);
+        # normal mode: cancel/ok button follow GNOME's HIG
+        unshift @left, $bprev;
+        push @left, Gtk2::Label->new if $ok && $cancel; # space buttons but if there's only one button
+        push @right, $bok;
     }
 
     gtkpack(Gtk2::VBox->new,
@@ -543,8 +544,8 @@ sub create_okcancel {
                                     $_;
                                 } grep { $_ } @{$_->[0]})
                                )
-                    } ([ \@first, 'start' ],
-                       [ \@last,  'end' ],
+                    } ([ \@left, 'start' ],
+                       [ \@right,  'end' ],
                       )
                     )
                    ),
-- 
cgit v1.2.1