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

/#include <signal.h>/a\
extern Tcl_Interp *tk_mainInterp;

/numFound = select(numFds/i\
	if (Tcl_CheckForSignal (tk_mainInterp, TCL_OK) == TCL_ERROR)\
	    TkBindError(tk_mainInterp);\
Commit	Line	Data
	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