summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-03-10 17:10:33 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-03-10 17:10:33 +0000
commit2a0b7e92506a2ad8a63ce67b6da6b263f5442111 (patch)
tree145400794c0b50d6a5efe167cd2172ae8ca34af4 /Master/tlpkg/installer/install-tl-gui.tcl
parent85def6f43dcf9cb2d77aa01392326ddf315c0965 (diff)
Capitalization paper sizes; some computed column widths
git-svn-id: svn://tug.org/texlive/trunk@58251 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index a8b5c0415c1..285cfc83af9 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -906,6 +906,7 @@ proc select_binaries {} {
.tlbin.lst insert {} end -id $b -values \
[list [mark_sym $::vars($bb)] [__ $::bin_descs($b)]]
}
+ set_tree_col_width .tlbin.lst "desc"
pgrid .tlbin.lst -in .tlbin.binsf -row 0 -column 0 -sticky news
pgrid .tlbin.binsc -in .tlbin.binsf -row 0 -column 1 -sticky ns
grid columnconfigure .tlbin.binsf 0 -weight 1
@@ -955,14 +956,14 @@ proc select_scheme {} {
ppack .tlschm.cancel -in .tlschm.buts -side right
bind .tlschm <Escape> {.tlschm.cancel invoke}
- # schemes list
+ # schemes list. use treeview rather than listbox for uniform formatting
ttk::treeview .tlschm.lst -columns {desc} -show {} -selectmode browse \
-height [llength $::schemes_order]
- .tlschm.lst column "desc" -stretch 1; # -minwidth $max_width
ppack .tlschm.lst -in .tlschm.bg -fill both -expand 1
foreach s $::schemes_order {
.tlschm.lst insert {} end -id $s -values [list [__ $::scheme_descs($s)]]
}
+ set_tree_col_width .tlschm.lst "desc"
# we already made sure that $::vars(selected_scheme) has a valid value
.tlschm.lst selection set [list $::vars(selected_scheme)]
@@ -1087,6 +1088,8 @@ proc select_collections {} {
$wgt insert {} end -id $c -values \
[list [mark_sym $::vars($c)] [__ $::coll_descs($c)]]
}
+ set_tree_col_width .tlcoll.lang "desc"
+ set_tree_col_width .tlcoll.other "desc"
wm protocol .tlcoll WM_DELETE_WINDOW \
{cancel_or_destroy .tlcoll.cancel .tlcoll}
@@ -1595,7 +1598,7 @@ proc run_menu {} {
}
# instopt_letter
- set ::lpapers {"A4" "letter"}
+ set ::lpapers {"A4" "Letter"}
incr rw
pgrid [ttk::label .paperl -text [__ "Default paper size"]] \
-in $curf -row $rw -column 0 -sticky w