summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-01 15:13:19 +0000
committerNorbert Preining <preining@logic.at>2009-02-01 15:13:19 +0000
commitd2280a9ad204c02849bfdf5684df4a4a416076db (patch)
treec7cc0f0fc3690a8e30dbe8b087e54dbef56d1e64 /Master/tlpkg/installer
parent441547403d26e549646031db1e625deba481541d (diff)
allow for customization (currently only scheme question) and letter paper
git-svn-id: svn://tug.org/texlive/trunk@12038 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl19
1 files changed, 14 insertions, 5 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index 3ae564e7e82..8978209b9c1 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -25,6 +25,8 @@ our $MENU_ALREADYDONE = 3;
my $return = $MENU_INSTALL;
+my $custom = 0;
+
require Tk;
require Tk::Dialog;
require Tk::DialogBox;
@@ -295,7 +297,7 @@ sub reset_start {
$can->configure(-text => "Cancel",
-command => sub { $mw->destroy; do_cleanup(); exit(1); });
$prv->configure(-text => "< Back", -command => \&run_menu);
- $nxt->configure(-text => "Next >", -command => \&ask_scheme);
+ $nxt->configure(-text => "Next >", -command => \&ask_path);
pack_buttons("cancel", "next");
}
@@ -319,8 +321,8 @@ sub ask_scheme {
$bf->pack(-expand => 1, -fill => "both");
unpack_buttons();
- $nxt->configure(-command => \&ask_path, -text => "Next >");
- $prv->configure(-text => "< Back", -command => \&reset_start);
+ $nxt->configure(-command => \&ask_go, -text => "Next >");
+ $prv->configure(-text => "< Back", -command => \&ask_path);
pack_buttons("cancel", "prev", "next");
}
@@ -331,7 +333,9 @@ sub ask_path {
my $af = $fmain->Frame;
my $bf = $fmain->Frame;
+ my $cf = $fmain->Frame;
$af->pack(-expand => 1, -fill => "both");
+ $cf->pack(-expand => 1, -fill => "both");
$bf->pack(-expand => 1, -fill => "both");
my $lab = $af->Label(-text => "Destination Folder:");
@@ -341,12 +345,17 @@ sub ask_path {
my $but = $af->Button(-text => "Change", -command => \&change_path, -relief => "ridge", -width => 10);
$but->pack(-side => "right");
+ my $pa = $cf->Checkbutton(-text => "Use letter-size paper instead of A4 by default", -variable => \$vars{"option_letter"});
+ my $cb = $cf->Checkbutton(-text => "Further customization", -variable => \$custom);
+ $pa->pack(-anchor => "w");
+ $cb->pack(-anchor => "w");
+
my $inf = $bf->Label(-text => "The destination folder will contain the installation.\nIt is recommended to keep the year as last component.");
$inf->pack(-padx => "3m", -pady => "3m");
unpack_buttons();
- $nxt->configure(-command => \&ask_go);
- $prv->configure(-text => "< Back", -command => \&ask_scheme);
+ $nxt->configure(-command => sub { $custom ? ask_scheme() : ask_go() ; });
+ $prv->configure(-text => "< Back", -command => \&ask_path);
pack_buttons("cancel", "prev", "next");
}