summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/gui_err.tcl
blob: 56bea3ea8339410799cca84b9f0766563bde8769 (plain)
1
2
3
4
5
#!/usr/bin/env wish
wm title . "Warning/Error"
pack [label .l -text $::env(RUNSCRIPT_ERROR_MESSAGE) -wraplength 80] \
    -padx 6 -pady 3
pack [button .q -text "Ok" -command exit] -ipadx 3 -pady 3