summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2022-02-28 15:58:04 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2022-02-28 15:58:04 +0000
commitc6453b0b783e8090b15c38324f7461ef0234024b (patch)
treeeab25505b6ed22655b261ae7158d4a152076a8e4 /Master/tlpkg
parent4de61af3378d912f911107adfc1243731367310a (diff)
Added note that prefix must exist
git-svn-id: svn://tug.org/texlive/trunk@62277 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl17
1 files changed, 12 insertions, 5 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index bd17b561479..27974bd4cc1 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -594,7 +594,8 @@ proc texdir_setup {} {
-in .tltd.fr1 -row $rw -column 4
# corresponding buttons
incr rw
- pgrid [ttk::button .tltd.prefix_b -text [__ "Browse..."] \
+ set prefix_text [__ "Prefix"]
+ pgrid [ttk::button .tltd.prefix_b -text "${prefix_text}... \u00B9" \
-command {if [dirbrowser2widget .tltd.prefix_l] update_full_path}] \
-in .tltd.fr1 -row $rw -column 0
pgrid [ttk::button .tltd.name_b -text [__ "Change"] -command edit_name] \
@@ -603,12 +604,18 @@ proc texdir_setup {} {
-command toggle_rel] \
-in .tltd.fr1 -row $rw -column 4
+ set note_text [__ "Prefix must exist"]
+ ppack [ttk::label .tltd.notes -text "\u00B9 ${note_text}"] \
+ -in .tltd.bg -fill x -anchor w
+
# windows: note about localized names
if {$::tcl_platform(platform) eq "windows"} {
- ttk::label .tltd.loc -anchor w
- .tltd.loc configure -text \
- [__ "Localized directory names will be replaced by their real names"]
- ppack .tltd.loc -in .tltd.bg -fill x
+ .tltd.prefix_b configure -text "${prefix_text}... \u00B9 \u00B2"
+ set loc_text \
+ [__ "Localized directory names will be replaced by their real names"]
+ .tltd.notes configure -justify left \
+ -text "\u00B9 ${note_text}\n\u00B2 ${loc_text}"
+ ppack .tltd.notes -in .tltd.bg -fill x
}
# ok/cancel buttons