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 ----