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
|