From 2a0b7e92506a2ad8a63ce67b6da6b263f5442111 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 10 Mar 2021 17:10:33 +0000 Subject: Capitalization paper sizes; some computed column widths git-svn-id: svn://tug.org/texlive/trunk@58251 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-tl-gui.tcl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/installer') 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 {.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 -- cgit v1.2.3