summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/tltcl.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2018-11-22 16:29:10 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2018-11-22 16:29:10 +0000
commit448c8046aa5d10d83da43bf0c57f47bb5f951428 (patch)
tree0f7b3f9a886ee780c86fd9eca8e9e78bfb5e2c1b /Master/tlpkg/tltcl/tltcl.tcl
parentf233c2a76a882286f796395f3c004c75badccaed (diff)
Minor tweaks to the tcl installer gui
git-svn-id: svn://tug.org/texlive/trunk@49221 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/tltcl.tcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl8
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index 75e9c12e724..e2fe958f459 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -254,7 +254,8 @@ font configure titlefont -weight bold \
# width of '0', as a very rough estimate of average character width
# assume height == width*2
-set ::cw [font measure TkDefaultFont "0"]
+set ::cw \
+ [expr {max([font measure TkDefaultFont "0"],[font measure TkTextFont "0"])}]
# default foreground color and disabled foreground color
# may not be black in e.g. dark color schemes
@@ -318,6 +319,7 @@ proc create_dlg {wnd {p .}} {
# its upperleft corner will be centered.
proc place_dlg {wnd {p "."}} {
+ update idletasks
set g [wm geometry $p]
scan $g "%dx%d+%d+%d" pw ph px py
set hcenter [expr {$px + $pw / 2}]
@@ -330,8 +332,10 @@ proc place_dlg {wnd {p "."}} {
set wy [expr {$vcenter - $wh / 2}]
if {$wy < 0} { set wy 0}
wm geometry $wnd [format "+%d+%d" $wx $wy]
- wm state $wnd normal
+ update idletasks
+ wm resizable $wnd 0 0 ; # can be overruled later
wm attributes $wnd -topmost
+ wm state $wnd normal
raise $wnd $p
tkwait visibility $wnd
focus $wnd