From fc9f068b2e720f88b982273c5df398ec2a224129 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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