From 33da74aacbb98d828baffb841b448fafab1b1b54 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 17 Sep 2003 12:29:24 +0000 Subject: fix ugliness: don't display $advanced_pack when there are no @widgets_advanced (esp. since $advanced_pack is now in its own scrolled window) --- perl-install/interactive/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 5dec46e09..88b110171 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -661,7 +661,7 @@ sub ask_fromW { $pack->pack_start(gtkshow($always_pack), 1, 1, 0); $advanced_pack = create_scrolled_window($advanced_pack, [ 'never', 'automatic' ], 'none'); - $pack->pack_start($advanced_pack, 1, 1, 0); + $pack->pack_start($advanced_pack, 1, 1, 0) if @widgets_advanced; if ($buttons_pack) { if ($::isWizard && !$mainw->{pop_it} && $::isInstall) { $buttons_pack->set_size_request($::windowwidth * 0.9 - 20, -1); -- cgit v1.2.1