summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-05-27 19:03:14 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-05-27 19:03:14 +0000
commitd2e278139abfbc492dcd7dc8bed5266b9ac25413 (patch)
tree6a2e546453ed8b57d3f5244dcebb92a32eaa9e83 /Master/tlpkg/tltcl
parent2de1d2c2a3c5a7f0b2d79ae7569214297f9c6dfb (diff)
Better window width for windows gui error box
git-svn-id: svn://tug.org/texlive/trunk@51232 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/gui_err.tcl12
1 files changed, 10 insertions, 2 deletions
diff --git a/Master/tlpkg/tltcl/gui_err.tcl b/Master/tlpkg/tltcl/gui_err.tcl
index 56bea3ea833..ae1feb3472b 100644
--- a/Master/tlpkg/tltcl/gui_err.tcl
+++ b/Master/tlpkg/tltcl/gui_err.tcl
@@ -1,5 +1,13 @@
#!/usr/bin/env wish
+
+# fonts
+# no bold text for messages; `userDefault' indicates priority
+catch {option add *Dialog.msg.font TkDefaultFont userDefault}
+# width of '0', as a rough estimate of average character width
+set ::cw 8
+catch {set ::cw [font measure TkDefaultFont "0"]}
+
wm title . "Warning/Error"
-pack [label .l -text $::env(RUNSCRIPT_ERROR_MESSAGE) -wraplength 80] \
- -padx 6 -pady 3
+label .l -text $::env(RUNSCRIPT_ERROR_MESSAGE) -wraplength [expr {60*$::cw}]
+pack .l -padx 6 -pady 3
pack [button .q -text "Ok" -command exit] -ipadx 3 -pady 3