(ask_browse_tree_info) pack "Help" button first

1 files changed, 5 insertions, 4 deletions

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;