From 53b3e8ca12644cf0ac9568097263e791a3e83da3 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 21 Jan 2004 12:25:16 +0000 Subject: - fix sizing main window - always use a scrolled window when non pop_it (so that the buttons are at the bottom) --- perl-install/interactive/gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/interactive/gtk.pm') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index acb8179f2..a77f49e8a 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -568,7 +568,7 @@ sub ask_fromW { @widgets_advanced = map_index { $create_widget->($_, $::i + @$l) } @$l2; my $pack = create_box_with_title($mainw, @{$common->{messages}}); - $mainw->{rwindow}->set_size_request(720, 420) if $mainw->{pop_it} && @$l; + ugtk2::set_main_window_size($mainw) if $mainw->{pop_it} && @$l; my $first_time = 1; my $set_advanced = sub { @@ -616,7 +616,7 @@ sub ask_fromW { create_scrolled_window(gtkpack(Gtk2::VBox->new(0,0), $always_pack, if_(@widgets_advanced, $advanced_pack)), - [ 'automatic', 'automatic' ], 'none')) if @$l; + [ 'automatic', 'automatic' ], 'none')) if @$l || !$mainw->{pop_it}; if ($buttons_pack) { if ($::isWizard && !$mainw->{pop_it} && $::isInstall) { -- cgit v1.2.1