Import Micropolis from http://www.donhopkins.com/home/micropolis/

[micropolis] / src / tk / library / tkerror.tcl

# This file contains a default version of the tkError procedure.  It
# just prints out a stack trace.

proc tkerror err {
    global errorInfo
    puts stdout "$errorInfo"
}