Tcl Source Code

Artifact [6741d94d63]
Login

Artifact 6741d94d634978b5ae58e747e64d7b209eeba7d8:

Attachment "tkMacOSXNotify.c.patch" to ticket [883155fb98] added by anonymous 2014-01-21 10:05:55. (unpublished)
*** tkMacOSXNotify.c.old	Tue Jan 21 10:27:44 2014
--- tkMacOSXNotify.c.new	Tue Jan 21 10:29:20 2014
***************
*** 37,52 ****
  - (void) _modalSession: (NSModalSession) session sendEvent: (NSEvent *) event;
  @end
  
- @implementation NSWindow(TKNotify)
- - (id) tkDisplayIfNeeded
- {
-     if (![self isAutodisplay]) {
- 	[self displayIfNeeded];
-     }
-     return nil;
- }
- @end
- 
  @implementation TKApplication(TKNotify)
  - (NSEvent *) nextEventMatchingMask: (NSUInteger) mask
  	untilDate: (NSDate *) expiration inMode: (NSString *) mode
--- 37,42 ----
***************
*** 54,61 ****
  {
      NSAutoreleasePool *pool = [NSAutoreleasePool new];
  
-     [NSApp makeWindowsPerform:@selector(tkDisplayIfNeeded) inOrder:NO];
- 
      int oldMode = Tcl_SetServiceMode(TCL_SERVICE_ALL);
      NSEvent *event = [[super nextEventMatchingMask:mask untilDate:expiration
  	    inMode:mode dequeue:deqFlag] retain];
--- 44,49 ----