git.zerfleddert.de Git - micropolis/blame_incremental - 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"
}
Commit	Line	Data
	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	}