From 6bd6fb2ecbeebe8e1137cf340064525da8ff4e8b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 17 Feb 2004 18:21:40 +0000 Subject: enforce gnome button order everywhere (interface team request) --- perl-install/ugtk2.pm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index b0414f2c6..25c17b64f 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -495,7 +495,6 @@ sub create_packtable { $w } -my $wm_is_kde; 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) @@ -515,10 +514,6 @@ 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; - if (!defined $wm_is_kde) { - require any; - $wm_is_kde = !$::isInstall && any::running_window_manager() eq "kwin" || 0; - } 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; # we put space to group buttons in two packs (but if there's only one when not in wizard mode) @@ -533,8 +528,8 @@ sub create_okcancel { } 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 = (($wm_is_kde ? $bok : $bprev), @extras); - @last = ($wm_is_kde ? $bprev : $bok); + @first = ($bprev, @extras); + @last = ($bok); } gtkpack(Gtk2::VBox->new, -- cgit v1.2.1