summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/gui_err.tcl
blob: ae1feb3472b18a23d2fcec86c6c6bb14a14987a5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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"
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