diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index f87a0924fb1..bec29497c9d 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -696,6 +696,7 @@ sub options_menu { my $b_deskint=button($vars{'option_desktop_integration'}); my $b_fileassocs=button($vars{'option_file_assocs'}); my $b_admin=button($vars{'option_w32_multi_user'}); + my $b_addoneditor=button($vars{'addon_editor'}); my $sys_bin=$vars{'sys_bin'}; my $sys_man=$vars{'sys_man'}; @@ -748,6 +749,7 @@ EOF print " <U> make installation available to all users: $b_admin\n"; } } + print " <E> install TeX Works editor: $b_addoneditor\n"; } other_options qw(R Q diskspace); my $answer = prompt 'Enter command'; @@ -822,6 +824,10 @@ EOF } elsif (defined $command{"\u$answer"}) { return $command{"\u$answer"}; + } elsif ("\u$answer" eq 'E') { + toggle 'addon_editor'; + return $command{'self'}; + } else { print "Unknown command: $answer\n\n"; return $command{'self'}; @@ -860,6 +866,7 @@ sub main_menu { my $b_deskint=button($vars{'option_desktop_integration'}); my $b_fileassocs=button($vars{'option_file_assocs'}); my $b_admin=button($vars{'option_w32_multi_user'}); + my $b_addoneditor=button($vars{'addon_editor'}); my $warn_nobin; @@ -976,6 +983,7 @@ EOF } else { print " $b_path create symlinks to standard directories\n"; } + print" $b_addoneditor install TeX Works Editor\n"; } if ($vars{'from_dvd'}) { |