]> cvs.zerfleddert.de Git - micropolis/blob - src/tclx/tkucbsrc/tkevent.sed
529eccfc83ba1489ee64aa995f290531665bb383
[micropolis] / 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
Impressum, Datenschutz