From fc9f068b2e720f88b982273c5df398ec2a224129 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Sat, 8 Feb 2003 19:54:46 +0000
Subject: add option advanced_state: if set to 1, force the "Advanced" part of
the dialog to be opened initially
---
perl-install/interactive.pm | 1 +
perl-install/interactive/gtk.pm | 2 +-
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index df28cc27b..5d311b0ad 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -25,6 +25,7 @@ use common;
#- cancel => force the name of the "Cancel"/"Previous" button
#- advanced_label => force the name of the "Advanced" button
#- advanced_label_close => force the name of the "Basic" button
+#- advanced_state => if set to 1, force the "Advanced" part of the dialog to be opened initially
#- focus_cancel => force focus on the "Cancel" button
#- focus_first => force focus on the first entry
#- callbacks => functions called when something happen: complete canceled advanced changed focus_out ok_disabled
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 2e52b2640..a923261a1 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -640,7 +640,7 @@ sub ask_fromW {
$pack->pack_start($buttons_pack, 0, 0, 0) if $buttons_pack; $buttons_pack->show if $buttons_pack;
gtkadd($mainw->{window}, $pack);
$set_default_size->() if $has_scroll_always;
- $set_advanced->(0);
+ $set_advanced->($common->{advanced_state});
my $widget_to_focus =
$common->{focus_cancel} ? $mainw->{cancel} :
--
cgit v1.2.1