[micropolis] / 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
6a5fa4e0 MG	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