summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index e5e6e5183..0f427381e 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -657,7 +657,14 @@ sub ask_fromW {
$pack->pack_start($always_pack, 1, 1, 0); $always_pack->show;
$pack->pack_start($advanced_pack, 1, 1, 0);
- $pack->pack_start($buttons_pack, 0, 0, 0) if $buttons_pack; $buttons_pack->show if $buttons_pack;
+ if ($buttons_pack) {
+ if ($::isWizard && !$mainw->{pop_it}) {
+ $buttons_pack->set_size_request($::windowwidth * 0.9 - 20, -1);
+ $buttons_pack = gtkpack__(Gtk2::HBox->new(0,0), $buttons_pack);
+ }
+ $pack->pack_start($buttons_pack, 0, 0, 0);
+ $buttons_pack->show;
+ }
gtkadd($mainw->{window}, $pack);
$set_default_size->() if $has_scroll_always;
$set_advanced->($common->{advanced_state});