Advanced configuration pops you into the perltk GUI.

git-svn-id: svn://tug.org/texlive/trunk@12061 c570f23f-e606-0410-a88d-b1316a301751

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");