diff options
author | Norbert Preining <preining@logic.at> | 2009-01-27 18:36:30 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-01-27 18:36:30 +0000 |
commit | 2220cef163ff2fa5ac167cd078716ec6d6b25751 (patch) | |
tree | 687e4662a168c113e3fe50e65b7cbbc86901f276 /Master/install-tl | |
parent | 116867c5ab27ce0046cf879e7051c7b462a50948 (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-x | Master/install-tl | 9 |
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(); |