cvs.zerfleddert.de Git - micropolis/blob - res/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 }