X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/2647c123bd2f34f4147f06bed6f936cc122636e3..34e37af786a9743ebe7bd76a518911affb9db72b:/src/tclx/tkucbsrc/tkevent.dif diff --git a/src/tclx/tkucbsrc/tkevent.dif b/src/tclx/tkucbsrc/tkevent.dif deleted file mode 100644 index f2efa9d..0000000 --- a/src/tclx/tkucbsrc/tkevent.dif +++ /dev/null @@ -1,57 +0,0 @@ -*** ../../tk2.3/tkEvent.c Fri Aug 21 16:16:16 1992 ---- tkEvent.c Tue Oct 6 17:28:21 1992 -*************** -*** 23,28 - #include "tkInt.h" - #include - #include - - /* - * For each timer callback that's pending, there is one record - ---- 23,29 ----- - #include "tkInt.h" - #include - #include -+ extern Tcl_Interp *tk_mainInterp; - - /* - * For each timer callback that's pending, there is one record -*************** -*** 1321,1326 - memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int)); - timeout.tv_sec = timeout.tv_usec = 0; - do { - numFound = select(numFds, (SELECT_MASK *) readPtr, - (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr, - &timeout); - ---- 1322,1330 ----- - memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int)); - timeout.tv_sec = timeout.tv_usec = 0; - do { -+ if (Tcl_CheckForSignal (tk_mainInterp, TCL_OK) == TCL_ERROR) -+ TkBindError(tk_mainInterp); -+ - numFound = select(numFds, (SELECT_MASK *) readPtr, - (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr, - &timeout); -*************** -*** 1384,1389 - } - memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int)); - do { - numFound = select(numFds, (SELECT_MASK *) readPtr, - (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr, - timeoutPtr); - ---- 1388,1396 ----- - } - memcpy((VOID *) ready, (VOID *) masks, 3*MASK_SIZE*sizeof(int)); - do { -+ if (Tcl_CheckForSignal (tk_mainInterp, TCL_OK) == TCL_ERROR) -+ TkBindError(tk_mainInterp); -+ - numFound = select(numFds, (SELECT_MASK *) readPtr, - (SELECT_MASK *) writePtr, (SELECT_MASK *) exceptPtr, - timeoutPtr);