summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-27 18:36:30 +0000
committerNorbert Preining <preining@logic.at>2009-01-27 18:36:30 +0000
commit2220cef163ff2fa5ac167cd078716ec6d6b25751 (patch)
tree687e4662a168c113e3fe50e65b7cbbc86901f276 /Master/install-tl
parent116867c5ab27ce0046cf879e7051c7b462a50948 (diff)
add a wizard UI to the installer, selectable with
install-tl -ui wizard (mind -ui, not -gui) git-svn-id: svn://tug.org/texlive/trunk@11994 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl9
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/install-tl b/Master/install-tl
index ae8e3e8606c..b412f17da00 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -141,6 +141,7 @@ our %vars=( # 'n_' means 'number of'.
# option handling
my $opt_from_dvd = "";
my $opt_gui = 0;
+my $opt_ui = "text"; # default UI
my $opt_help = 0;
my $opt_location = "";
my $opt_no_gui = 0;
@@ -179,6 +180,7 @@ GetOptions(
"fancyselector" => \$::alternative_selector,
"from_dvd" => \$opt_from_dvd,
"gui" => \$opt_gui,
+ "ui=s" => \$opt_ui,
"lang=s" => \$::opt_lang,
"location|url=s" => \$opt_location,
"no-cls", # $::opt_no_cls in install-menu-text-pl
@@ -404,9 +406,12 @@ if ($opt_profile eq "") {
our $MENU_ABORT = 1;
our $MENU_QUIT = 2;
our $MENU_ALREADYDONE = 3;
- if ($opt_gui && !$opt_no_gui) {
- require("installer/install-menu-perltk.pl");
+ $opt_ui = "perltk" if ($opt_gui && !$opt_no_gui);
+ if (-r "tlpkg/installer/install-menu-${opt_ui}.pl") {
+ require("installer/install-menu-${opt_ui}.pl");
} else {
+ tlwarn("UI plugin $opt_ui not found,\n");
+ tlwarn("Using text mode installer.\n");
require("installer/install-menu-text.pl");
}
my $ret = run_menu();