diff options
| -rw-r--r-- | perl-install/interactive.pm | 1 | ||||
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
2 files changed, 2 insertions, 1 deletions
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} : |