summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-29 14:57:31 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-29 14:57:31 +0000
commitb6c4c7d9fbea5789ab75081cb664c803141a275f (patch)
treecc3d799593e8e8f438671299a15b066fe3f7a746 /perl-install
parentd9cde2cf3e75bcc65721f8d596194bdaf9816afc (diff)
downloaddrakx-b6c4c7d9fbea5789ab75081cb664c803141a275f.tar
drakx-b6c4c7d9fbea5789ab75081cb664c803141a275f.tar.gz
drakx-b6c4c7d9fbea5789ab75081cb664c803141a275f.tar.bz2
drakx-b6c4c7d9fbea5789ab75081cb664c803141a275f.tar.xz
drakx-b6c4c7d9fbea5789ab75081cb664c803141a275f.zip
(ask_browse_tree_info) pack "Help" button first
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm9
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;