summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-wizard.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-03 08:34:20 +0000
committerNorbert Preining <preining@logic.at>2009-02-03 08:34:20 +0000
commitfcc121fbd794ac2f5dcec86ca94ddc5e0dea17ee (patch)
treef0de70338ad115c73b7e87d4d1dc30f0170b72b9 /Master/tlpkg/installer/install-menu-wizard.pl
parent71ecb0f7694b0f0caf166916cb4450f8753a82dc (diff)
Advanced configuration pops you into the perltk GUI.
git-svn-id: svn://tug.org/texlive/trunk@12061 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl27
1 files changed, 11 insertions, 16 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index 0ca2f86e7a9..0d6045a6a31 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -22,9 +22,6 @@
# a following screen to either Next or Install, and in the latter case
# the -command is changed to \&installation_window
# Calling with "-no-config" as first argument does inhibit that.
-# 5) add you screen to the either the list
-# @quick_screens -> for the not customization path
-# @all_screens -> for the all screens path
#
# The list of screens can be set using the run_menu(@screens), and
# install_tl does transfer a call to
@@ -145,10 +142,8 @@ my $dest = $vars{'TEXDIR'};
my $mw;
my $current_screen;
-my @quick_screens = qw/welcome path install/;
-my @all_screens = qw/welcome path systems scheme stdcoll langcoll install/;
-my @screens = @quick_screens;
+my @screens = qw/welcome path install/;
my %screen_subs;
$screen_subs{"welcome"} = \&reset_start;
@@ -359,7 +354,6 @@ sub run_menu {
}
@screens = @args if $allok;
}
- print "screens: @screens\n";
calc_depends();
$mw = Tk::MainWindow->new;
@@ -582,15 +576,16 @@ sub ask_path {
$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,
- -command => sub {
- if ($custom) {
- @screens = @all_screens;
- } else {
- @screens = @quick_screens;
- }
- });
+ my $cb = $cf->Button(-text => "Advanced customization",
+ -command => sub { $mw->destroy;
+ #undef &run_menu;
+ @::warn_hook = ();
+ @::debug_hook = ();
+ @::info_hook = ();
+ @::install_packages_hook = ();
+ require("installer/install-menu-perltk.pl");
+ $return = run_menu();
+ });
$pa->pack(-anchor => "w");
$cb->pack(-anchor => "w");