Tk Source Code: Artifact [00d3c337]

Artifact 00d3c337843e2e3bc810542b90d3ae0083cbdf54:

Attachment "tkMacOSXNotify.c.patch" to ticket [bc4552d0] added by anonymous 2014-01-23 14:10:38. (unpublished)

*** tkMacOSXNotify.c.old	Thu Jan 23 22:51:46 2014
--- tkMacOSXNotify.c.new	Thu Jan 23 22:54:59 2014
***************
*** 44,54 ****
  {
      NSAutoreleasePool *pool = [NSAutoreleasePool new];
  
-     int oldMode = Tcl_SetServiceMode(TCL_SERVICE_ALL);
      NSEvent *event = [[super nextEventMatchingMask:mask untilDate:expiration
  	    inMode:mode dequeue:deqFlag] retain];
  
-     Tcl_SetServiceMode(oldMode);
      if (event) {
  	TSD_INIT();
  	if (tsdPtr->sendEventNestingLevel) {
--- 44,52 ----