]> cvs.zerfleddert.de Git - micropolis/blob - src/tclx/tkucbsrc/tkevent.sed
draw a solid overlay, when requested
[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