git.zerfleddert.de Git - micropolis/blob - src/tclx/tkucbsrc/tkevent.sed

   1 /#include <signal.h>/a\
   2 extern Tcl_Interp *tk_mainInterp;
   3
   4 /numFound = select(numFds/i\
   5         if (Tcl_CheckForSignal (tk_mainInterp, TCL_OK) == TCL_ERROR)\
   6             TkBindError(tk_mainInterp);\
   7
   8
   9