[micropolis] / res / 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"
}
Commit	Line	Data
6a5fa4e0 MG	1	# This file contains a default version of the tkError procedure. It
	2	# just prints out a stack trace.
	3
	4	proc tkerror err {
	5	global errorInfo
	6	puts stdout "$errorInfo"
	7	}