blob: 59e34391fc708706e6cd84522da2f4199cf2f087 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
/*
* 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) 2019 Marc Culler.
* 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.
*/
#include <tkInt.h>
#include <tkMacOSXInt.h>
/*
* Event proc which calls the PerformService procedure.
*/
static int
ServicesEventProc(
TCL_UNUSED(Tcl_Event *),
TCL_UNUSED(int))
{
TkMainInfo *info = TkGetMainInfoList();
Tcl_GlobalEval(info->interp, "::tk::mac::PerformService");
return 1;
}
/*
* The Wish application can send the current selection in the Tk clipboard
* to other applications which accept messages of type NSString. The TkService
* object provides this service via its provideService method. (The method
* must be specified in the application's Info.plist file for this to work.)
*/
@interface TkService : NSObject {
}
+ (void) initialize;
- (void) provideService:(NSPasteboard *)pboard
userData:(NSString *)data
error:(NSString **)error;
- (BOOL) writeSelectionToPasteboard:(NSPasteboard *)pboard
types:(NSArray *)types;
@end
/*
* Class methods.
*/
@implementation TkService
+ (void) initialize {
NSArray *sendTypes = [NSArray arrayWithObjects:@"NSStringPboardType",
@"NSPasteboardTypeString", nil];
[NSApp registerServicesMenuSendTypes:sendTypes returnTypes:sendTypes];
return;
}
/*
* Get the current Tk selection and copy it to the system pasteboard.
*/
- (BOOL)writeSelectionToPasteboard:(NSPasteboard *)pboard
types:(NSArray *)types
{
NSArray *typesDeclared = nil;
NSString *pboardType = nil;
TkMainInfo *info = TkGetMainInfoList();
for (NSString *typeString in types) {
if ([typeString isEqualToString:@"NSStringPboardType"] ||
[typeString isEqualToString:@"NSPasteboardTypeString"]) {
typesDeclared = [NSArray arrayWithObject:typeString];
pboardType = typeString;
break;
}
}
if (!typesDeclared) {
return NO;
}
Tcl_Eval(info->interp, "selection get");
char *copystring = Tcl_GetString(Tcl_GetObjResult(info->interp));
NSString *writestring = [NSString stringWithUTF8String:copystring];
[pboard declareTypes:typesDeclared owner:nil];
return [pboard setString:writestring forType:pboardType];
}
/*
* This is the method that actually calls the Tk service; it must be specified
* in Info.plist.
*/
- (void)provideService:(NSPasteboard *)pboard
userData:(NSString *)data
error:(NSString **)error
{
NSString *pboardString = nil, *pboardType = nil;
NSArray *types = [pboard types];
Tcl_Event *event;
(void)data;
(void)error;
/*
* Get a string from the private pasteboard and copy it to the general
* pasteboard to make it available to other applications.
*/
for (NSString *typeString in types) {
if ([typeString isEqualToString:@"NSStringPboardType"] ||
[typeString isEqualToString:@"NSPasteboardTypeString"]) {
pboardString = [pboard stringForType:typeString];
pboardType = typeString;
break;
}
}
if (pboardString) {
NSPasteboard *generalpasteboard = [NSPasteboard generalPasteboard];
[generalpasteboard declareTypes:[NSArray arrayWithObjects:pboardType, nil]
owner:nil];
[generalpasteboard setString:pboardString forType:pboardType];
event = (Tcl_Event *)ckalloc(sizeof(Tcl_Event));
event->proc = ServicesEventProc;
Tcl_QueueEvent((Tcl_Event *)event, TCL_QUEUE_TAIL);
}
}
@end
/*
* Instantiate a TkService object and register it with the NSApplication.
* This is called exactly one time from TkpInit.
*/
int
TkMacOSXServices_Init(
TCL_UNUSED(Tcl_Interp *))
{
/*
* Initialize an instance of TkService and register it with the NSApp.
*/
TkService *service = [[TkService alloc] init];
[NSApp setServicesProvider:service];
return TCL_OK;
}
/*
* Local Variables:
* mode: objc
* c-basic-offset: 4
* fill-column: 79
* coding: utf-8
* End:
*/
|
