summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-03-05 11:26:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-03-05 11:26:50 +0000
commit2fcc1682f289130669f870957e48d27172657ec0 (patch)
tree93e81967cd4f3f108e1f42cd0289cc3297c2f8c4 /perl-install
parentc54495aa9155ed0e423d50f79ab95ad997668328 (diff)
downloaddrakx-2fcc1682f289130669f870957e48d27172657ec0.tar
drakx-2fcc1682f289130669f870957e48d27172657ec0.tar.gz
drakx-2fcc1682f289130669f870957e48d27172657ec0.tar.bz2
drakx-2fcc1682f289130669f870957e48d27172657ec0.tar.xz
drakx-2fcc1682f289130669f870957e48d27172657ec0.zip
ensure buttons are visible when the widgets above are too big
Diffstat (limited to 'perl-install')
-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});