Tk Source Code

Check-in [42577ce4]
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:Restore deprecated call to NSPasteboardTypeString in writeSelectiontoPasteboard because it breaks sending data to the services menu. Data type must be identical in this call and in the NSSendTypes key in info.plist; we cannot do a clever mapping here of the old type to a new one because the info.plist does not have this kind of conditional reading on different versions of macOS. We will have to live with the deprecated call until it is obsolete/removed altogether by Apple.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mac_services
Files: files | file ages | folders
SHA3-256: 42577ce45120a59ce3204b562d814080f12c320e15b8a4ced404f87613c7a7fb
User & Date: kevin_walzer 2019-05-12 02:03:47
Context
2019-05-17
03:13
Code and data type cleanup, thanks to Marc Culler for patch check-in: a7e34ff9 user: kevin_walzer tags: mac_services
2019-05-12
02:03
Restore deprecated call to NSPasteboardTypeString in writeSelectiontoPasteboard because it breaks sending data to the services menu. Data type must be identical in this call and in the NSSendTypes key in info.plist; we cannot do a clever mapping here of the old type to a new one because the info.plist does not have this kind of conditional reading on different versions of macOS. We will have to live with the deprecated call until it is obsolete/removed altogether by Apple. check-in: 42577ce4 user: kevin_walzer tags: mac_services
00:55
More tweaking check-in: cad8b6d0 user: kevin_walzer tags: mac_services
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to macosx/Wish-Info.plist.in.

102
103
104
105
106
107
108
109
110
111
112
113
114
115
            <key>NSMessage</key>
            <string>provideService</string>
            <key>NSPortName</key>
            <string>Wish</string>

            <key>NSSendTypes</key>
            <array>
                <string>NSStringPboardType</string>
            </array>
        </dict>
    </array>

</dict>
</plist>






|






102
103
104
105
106
107
108
109
110
111
112
113
114
115
            <key>NSMessage</key>
            <string>provideService</string>
            <key>NSPortName</key>
            <string>Wish</string>

            <key>NSSendTypes</key>
            <array>
                <string>NSPasteboardTypeString</string>
            </array>
        </dict>
    </array>

</dict>
</plist>

Changes to macosx/tkMacOSXServices.c.

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include <CoreServices/CoreServices.h>
#include <tkInt.h>
#include <tkMacOSXInt.h>
#include <tkMacOSXConstants.h>

static Tcl_Interp *ServicesInterp;

/*
 * Event proc which calls the PerformService procedure
 */







<







9
10
11
12
13
14
15

16
17
18
19
20
21
22
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include <CoreServices/CoreServices.h>
#include <tkInt.h>
#include <tkMacOSXInt.h>


static Tcl_Interp *ServicesInterp;

/*
 * Event proc which calls the PerformService procedure
 */