From e24dd7f143e1450c8ab9d6099ec683163db3fe78 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 19 Aug 2003 15:27:51 +0000
Subject: show advanced options by default if --expert was passed or if expect
 checkbox was checked (#4353)

---
 perl-install/interactive/gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 31d828c9c..2031acafa 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -661,7 +661,7 @@ sub ask_fromW {
     }
     gtkadd($mainw->{window}, $pack);
     $set_default_size->() if $has_scroll_always;
-    $set_advanced->($common->{advanced_state});
+    $set_advanced->($common->{advanced_state} || $::expert);
     
     my $widget_to_focus =
       $common->{focus_cancel} ? $mainw->{cancel} :
-- 
cgit v1.2.1