cvs.zerfleddert.de Git - micropolis/blob - src/tk/library/tkerror.tcl

   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 }