Tk Source Code

Check-in [8ad24530]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove unnecessary call to NSUpdateDynamicServices() which can cause crashes.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 8ad24530a8440c01ca3905c6ad77d39693bb65fa0672aa914ecbb8e8f260e76f
User & Date: culler 2019-06-24 18:52:29
Context
2019-06-27
14:02
Fix bug [8476b75781]: correct rendering of small thumbs in Aqua ttk::scrollbar check-in: ee646816 user: culler tags: mistake
2019-06-26
18:59
Fix bug [8476b75781]: Aqua scrollbar behavior check-in: 3a3a3b8d user: culler tags: bug-8476b75781
2019-06-25
21:27
CONST -> const. Eliminate unnecessary type-casts and end-of-line spacing check-in: fba3fe56 user: jan.nijtmans tags: core-8-6-branch
2019-06-24
18:54
Remove unnecessary call to NSUpdateDynamicServices() which can cause crashes check-in: 348159fe user: culler tags: trunk
18:52
Remove unnecessary call to NSUpdateDynamicServices() which can cause crashes. check-in: 8ad24530 user: culler tags: core-8-6-branch
08:02
Tk_DoOneEvent -> Tcl_DoOneEvent, since the Tk variant is deprecated. See: [505fe5a0e2] check-in: bae97c3c user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to macosx/tkMacOSXServices.c.

1
2
3
4
5
6
7
8
9
10
..
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
/*
 * tkMacOSXServices.c --
 *
 *	This file allows the integration of Tk and the Cocoa NSServices API.
 *
 * Copyright (c) 2010-2019 Kevin Walzer/WordTech Communications LLC.
 * Copyright (c) 2010 Adrian Robert.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
................................................................................

@implementation TkService

+ (void) initialize {
    NSArray *sendTypes = [NSArray arrayWithObjects:@"NSStringPboardType",
				  @"NSPasteboardTypeString", nil];
    [NSApp registerServicesMenuSendTypes:sendTypes returnTypes:sendTypes];
    NSUpdateDynamicServices();
    return;
}


- (id)validRequestorForSendType:(NSString *)sendType
		     returnType:(NSString *)returnType
{

|







 







<







1
2
3
4
5
6
7
8
9
10
..
50
51
52
53
54
55
56

57
58
59
60
61
62
63
/*
 * tkMacOSXServices.c --
 *\
 *	This file allows the integration of Tk and the Cocoa NSServices API.
 *
 * Copyright (c) 2010-2019 Kevin Walzer/WordTech Communications LLC.
 * Copyright (c) 2010 Adrian Robert.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
................................................................................

@implementation TkService

+ (void) initialize {
    NSArray *sendTypes = [NSArray arrayWithObjects:@"NSStringPboardType",
				  @"NSPasteboardTypeString", nil];
    [NSApp registerServicesMenuSendTypes:sendTypes returnTypes:sendTypes];

    return;
}


- (id)validRequestorForSendType:(NSString *)sendType
		     returnType:(NSString *)returnType
{