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
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
/*
* 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.
*/
#include <CoreFoundation/CoreFoundation.h>
#include <CoreServices/CoreServices.h>
#define Cursor FooFoo
#include <Carbon/Carbon.h>
#undef Cursor
#include <tcl.h>
#include <tk.h>
#include <tkInt.h>
#include <tkMacOSXInt.h>
#include <Cocoa/Cocoa.h>
#include <stdio.h>
#include <string.h>
static Tcl_Interp *ServicesInterp;
/* These two assist with asynchronous Tcl proc calling. */
typedef struct Services_Event {
Tcl_Event header;
char script[50000];
} Services_Event;
int ServicesEventProc(Tcl_Event *event, int flags) {
Tcl_GlobalEval(ServicesInterp, ((Services_Event *)event)->script);
return 1;
}
/* Class declarations for TkService class. */
@interface TkService : NSView {
}
+ (void) initialize;
- (void)provideService:(NSPasteboard *)pboard userData:(NSString *)data error:(NSString **)error;
- (id)validRequestorForSendType:(NSString *)sendType returnType:(NSString *)returnType;
- (BOOL)writeSelectionToPasteboard:(NSPasteboard *)pboard types:(NSArray *)types;
@end
/* Class methods. */
@implementation TkService
+ (void) initialize {
NSArray *sendTypes = [NSArray arrayWithObjects:NSStringPboardType, nil];
[NSApp registerServicesMenuSendTypes:sendTypes returnTypes:nil];
NSUpdateDynamicServices();
return;
}
- (id)validRequestorForSendType:(NSString *)sendType returnType:(NSString *)returnType {
if ([sendType isEqual:NSStringPboardType]) {
return self;
}
return [super validRequestorForSendType:sendType returnType:returnType];
}
/* Make sure the view accepts events. */
- (BOOL)acceptsFirstResponder {
return YES;
}
- (BOOL)becomeFirstResponder {
return YES;
}
/*Get selected text, copy to pasteboard.*/
- (BOOL)writeSelectionToPasteboard:(NSPasteboard *)pboard types:(NSArray *)types {
NSArray *typesDeclared;
if ([types containsObject:NSStringPboardType] == NO) {
return NO;
}
Tcl_Eval(ServicesInterp,"clipboard get");
char *copystring;
copystring = Tcl_GetString(Tcl_GetObjResult(ServicesInterp));
NSString *writestring = [NSString stringWithUTF8String:copystring];
typesDeclared = [NSArray arrayWithObject:NSStringPboardType];
[pboard declareTypes:typesDeclared owner:nil];
return [pboard setString:writestring forType:NSStringPboardType];
}
/* This is the method that actually calls the Tk service; this is the method that must be defined in info.plist */
- (void)provideService:(NSPasteboard *)pboard userData:(NSString *)data error:(NSString **)error {
NSString *pboardString;
NSArray *types = [pboard types];
Services_Event *event;
/* Get string from private pasteboard, write to general pasteboard to make available to Tcl service. */
if ([types containsObject:NSStringPboardType] &&
(pboardString = [pboard stringForType:NSStringPboardType])) {
NSPasteboard *generalpasteboard = [NSPasteboard generalPasteboard];
[generalpasteboard declareTypes:[NSArray arrayWithObjects:NSStringPboardType, nil] owner:nil];
[generalpasteboard setString:pboardString forType:NSStringPboardType];
event = (Services_Event *)ckalloc(sizeof(Services_Event));
event->header.proc = ServicesEventProc;
strcpy(event->script, "::tk::mac::PerformService");
Tcl_QueueEvent((Tcl_Event *)event, TCL_QUEUE_TAIL);
} else {
return;
}
return;
}
@end
/* Register a specific widget to access the Services menu. */
int TkMacOSXRegisterServiceWidgetObjCmd (ClientData cd, Tcl_Interp *ip, int objc, Tcl_Obj *CONST objv[]) {
NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
/* Need proper number of args. */
if(objc != 2) {
Tcl_WrongNumArgs(ip, 1, objv, "path?");
return TCL_ERROR;
}
/* Get the object that holds this Tk Window... */
Rect bounds;
NSRect frame;
Tk_Window path;
path = Tk_NameToWindow(ip, Tcl_GetString(objv[1]), Tk_MainWindow(ip));
if (path == NULL) {
return TCL_ERROR;
}
Tk_MakeWindowExist(path);
Tk_MapWindow(path);
Drawable d = Tk_WindowId(path);
/* Get NSView from Tk window and add subview. */
TkService *serviceview = [[TkService alloc] init];
NSView *view = TkMacOSXGetRootControl(d);
if ([serviceview superview] != view) {
[view addSubview:serviceview];
}
TkMacOSXWinBounds((TkWindow*)path, &bounds);
/* Hack to make sure subview is set to take up entire geometry of window. */
frame = NSMakeRect(bounds.left, bounds.top, 100000, 100000);
frame.origin.y = 0;
if (!NSEqualRects(frame, [serviceview frame])) {
[serviceview setFrame:frame];
}
[serviceview release];
[pool release];
return TCL_OK;
}
/*Initalize the package in the tcl interpreter, create tcl commands.*/
int Tk_MacOSXServices_Init (Tcl_Interp *interp) {
/* Set up an autorelease pool. */
NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
/* Initialize instance of TclServices to provide service functionality. */
TkService *service = [[TkService alloc] init];
ServicesInterp = interp;
[NSApp setServicesProvider:service];
[pool drain];
return TCL_OK;
}
|
