diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-05-27 19:03:14 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-05-27 19:03:14 +0000 |
| commit | d2e278139abfbc492dcd7dc8bed5266b9ac25413 (patch) | |
| tree | 6a2e546453ed8b57d3f5244dcebb92a32eaa9e83 /Master/tlpkg/tltcl | |
| parent | 2de1d2c2a3c5a7f0b2d79ae7569214297f9c6dfb (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.tcl | 12 |
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 |