From b6c4c7d9fbea5789ab75081cb664c803141a275f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 29 Aug 2008 14:57:31 +0000 Subject: (ask_browse_tree_info) pack "Help" button first --- perl-install/ugtk2.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 65833d585..9069ec615 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -925,6 +925,11 @@ sub ask_browse_tree_info { ), 0, my $box2 = gtknew('HBox', spacing => 10), ])); + + gtkpack__($box2, gtknew(($::isInstall ? 'Install_Button' : 'Button'), text => N("Help"), clicked => sub { + ask_warn(N("Help"), $common->{interactive_help}->()); + })) if $common->{interactive_help}; + #gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons')); gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new); @@ -941,10 +946,6 @@ sub ask_browse_tree_info { } @l; @buttons = reverse @buttons if !$::isInstall; - gtkpack__($box2, gtknew(($::isInstall ? 'Install_Button' : 'Button'), text => N("Help"), clicked => sub { - ask_warn(N("Help"), $common->{interactive_help}->()); - })) if $common->{interactive_help}; - $status->show; $w->{window}->set_size_request(map { $_ - 2 * $border - 4 } $w->{windowwidth}, $w->{windowheight}) if !$::isInstall; -- cgit v1.2.1