Tk Source Code

Check-in [b4c5f16329]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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

Overview
Comment:Fix [b947864419]: clipboard-4.1, -4.2, -4.4 fail on macOS
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-b947864419
Files: files | file ages | folders
SHA3-256:b4c5f163291540bf122ff424dd15346de2a5c774c72717e8fd08711fad6b7cc2
User & Date: fvogel 2018-07-08 19:58:09
References
2018-08-15
15:55
Revert [b4c5f163] since it breaks paste function with text from another application, see [568827f41c] check-in: e113ed2369 user: fvogel tags: trunk
15:54
Revert [b4c5f163] since it breaks paste function with text from another application, see [568827f41c] check-in: 6557e972a8 user: fvogel tags: core-8-6-branch
15:53
Revert [b4c5f163] since it breaks paste function with text from another application, see [568827f41c] Closed-Leaf check-in: dba7420c05 user: fvogel tags: bug-b947864419
2018-07-08
20:20 Ticket [b947864419] clipboard-4.1, -4.2, -4.4 fail on macOS status still Open with 5 other changes artifact: ccba653749 user: fvogel
Context
2018-07-08
20:08
Remove superfluous code in clipboard-4.3 and clipboard-4.5 tests check-in: 79464cbbd3 user: fvogel tags: bug-b947864419
19:58
Fix [b947864419]: clipboard-4.1, -4.2, -4.4 fail on macOS check-in: b4c5f16329 user: fvogel tags: bug-b947864419
2018-07-04
08:45
Fix [309b426171]: ttk partly fails in Windows high-contrast-mode using wrong colors. Patch provided by cjmcdonald. check-in: 342bec0b64 user: fvogel tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to macosx/tkMacOSXClipboard.c.

121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
    Tk_GetSelProc *proc,	/* Procedure to call to process the selection,
				 * once it has been retrieved. */
    ClientData clientData)	/* Arbitrary value to pass to proc. */
{
    int result = TCL_ERROR;
    TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;

    if (dispPtr && selection == dispPtr->clipboardAtom && (target == XA_STRING
	    || target == dispPtr->utf8Atom)) {
	NSString *string = nil;
	NSPasteboard *pb = [NSPasteboard generalPasteboard];
	NSString *type = [pb availableTypeFromArray:[NSArray arrayWithObject:
		NSStringPboardType]];

	if (type) {
	    string = [pb stringForType:type];







|
|







121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
    Tk_GetSelProc *proc,	/* Procedure to call to process the selection,
				 * once it has been retrieved. */
    ClientData clientData)	/* Arbitrary value to pass to proc. */
{
    int result = TCL_ERROR;
    TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;

    if (dispPtr && dispPtr->clipboardActive && selection == dispPtr->clipboardAtom
	    && (target == XA_STRING || target == dispPtr->utf8Atom)) {
	NSString *string = nil;
	NSPasteboard *pb = [NSPasteboard generalPasteboard];
	NSString *type = [pb availableTypeFromArray:[NSArray arrayWithObject:
		NSStringPboardType]];

	if (type) {
	    string = [pb stringForType:type];