1 100ec44e 2010-01-04 rsc #define Point OSXPoint
2 100ec44e 2010-01-04 rsc #define Rect OSXRect
3 100ec44e 2010-01-04 rsc #define Cursor OSXCursor
4 100ec44e 2010-01-04 rsc #include <Carbon/Carbon.h>
5 813b3eea 2011-10-23 rsc #import <Foundation/Foundation.h>
6 5e83be0d 2011-06-20 rsc #ifdef MULTITOUCH
7 5e83be0d 2011-06-20 rsc #include <IOKit/IOKitLib.h>
8 5e83be0d 2011-06-20 rsc #include <IOKit/hidsystem/IOHIDShared.h>
12 100ec44e 2010-01-04 rsc #undef Cursor
13 100ec44e 2010-01-04 rsc #undef offsetof
16 100ec44e 2010-01-04 rsc #include "u.h"
17 100ec44e 2010-01-04 rsc #include "libc.h"
18 100ec44e 2010-01-04 rsc #include <thread.h>
19 100ec44e 2010-01-04 rsc #include <draw.h>
20 100ec44e 2010-01-04 rsc #include <memdraw.h>
21 100ec44e 2010-01-04 rsc #include <keyboard.h>
22 100ec44e 2010-01-04 rsc #include "mouse.h"
23 100ec44e 2010-01-04 rsc #include <cursor.h>
24 100ec44e 2010-01-04 rsc #include "osx-screen.h"
25 100ec44e 2010-01-04 rsc #include "osx-keycodes.h"
26 100ec44e 2010-01-04 rsc #include "devdraw.h"
27 100ec44e 2010-01-04 rsc #include "glendapng.h"
29 100ec44e 2010-01-04 rsc AUTOFRAMEWORK(Carbon)
30 100ec44e 2010-01-04 rsc AUTOFRAMEWORK(Cocoa)
32 100ec44e 2010-01-04 rsc #ifdef MULTITOUCH
33 ecb01aca 2010-01-26 rsc AUTOFRAMEWORK(MultitouchSupport)
34 5e83be0d 2011-06-20 rsc AUTOFRAMEWORK(IOKit)
37 100ec44e 2010-01-04 rsc #define panic sysfatal
39 100ec44e 2010-01-04 rsc extern Rectangle mouserect;
43 100ec44e 2010-01-04 rsc char *winsize;
44 100ec44e 2010-01-04 rsc QLock labellock;
46 100ec44e 2010-01-04 rsc Rectangle fullscreenr;
47 100ec44e 2010-01-04 rsc Rectangle screenr;
48 100ec44e 2010-01-04 rsc Memimage *screenimage;
49 100ec44e 2010-01-04 rsc int isfullscreen;
50 100ec44e 2010-01-04 rsc ulong fullscreentime;
54 100ec44e 2010-01-04 rsc int kbuttons;
56 100ec44e 2010-01-04 rsc CGDataProviderRef provider;
57 100ec44e 2010-01-04 rsc MenuRef wmenu;
58 100ec44e 2010-01-04 rsc MenuRef vmenu;
59 100ec44e 2010-01-04 rsc WindowRef window;
60 100ec44e 2010-01-04 rsc CGImageRef image;
61 100ec44e 2010-01-04 rsc CGContextRef windowctx;
62 100ec44e 2010-01-04 rsc PasteboardRef snarf;
63 100ec44e 2010-01-04 rsc int needflush;
64 100ec44e 2010-01-04 rsc QLock flushlock;
66 100ec44e 2010-01-04 rsc int infullscreen;
67 100ec44e 2010-01-04 rsc int kalting; // last keystroke was Kalt
68 100ec44e 2010-01-04 rsc int touched; // last mouse event was touchCallback
69 7d9c0f0f 2010-01-05 rsc int collapsed; // parked in dock
70 f50c3e95 2010-04-02 rsc int flushing; // flushproc has started
71 100ec44e 2010-01-04 rsc NSMutableArray* devicelist;
75 100ec44e 2010-01-04 rsc These structs are required, in order to handle some parameters returned from the
76 100ec44e 2010-01-04 rsc Support.framework
78 100ec44e 2010-01-04 rsc typedef struct {
83 100ec44e 2010-01-04 rsc typedef struct {
84 100ec44e 2010-01-04 rsc mtPoint position;
85 100ec44e 2010-01-04 rsc mtPoint velocity;
89 100ec44e 2010-01-04 rsc Some reversed engineered informations from MultiTouchSupport.framework
91 100ec44e 2010-01-04 rsc typedef struct
93 100ec44e 2010-01-04 rsc int frame; //the current frame
94 100ec44e 2010-01-04 rsc double timestamp; //event timestamp
95 100ec44e 2010-01-04 rsc int identifier; //identifier guaranteed unique for life of touch per device
96 100ec44e 2010-01-04 rsc int state; //the current state (not sure what the values mean)
97 100ec44e 2010-01-04 rsc int unknown1; //no idea what this does
98 100ec44e 2010-01-04 rsc int unknown2; //no idea what this does either
99 100ec44e 2010-01-04 rsc mtReadout normalized; //the normalized position and vector of the touch (0,0 to 1,1)
100 100ec44e 2010-01-04 rsc float size; //the size of the touch (the area of your finger being tracked)
101 100ec44e 2010-01-04 rsc int unknown3; //no idea what this does
102 100ec44e 2010-01-04 rsc float angle; //the angle of the touch -|
103 100ec44e 2010-01-04 rsc float majorAxis; //the major axis of the touch -|-- an ellipsoid. you can track the angle of each finger!
104 100ec44e 2010-01-04 rsc float minorAxis; //the minor axis of the touch -|
105 100ec44e 2010-01-04 rsc mtReadout unknown4; //not sure what this is for
106 100ec44e 2010-01-04 rsc int unknown5[2]; //no clue
107 100ec44e 2010-01-04 rsc float unknown6; //no clue
110 100ec44e 2010-01-04 rsc //a reference pointer for the multitouch device
111 100ec44e 2010-01-04 rsc typedef void *MTDeviceRef;
113 100ec44e 2010-01-04 rsc //the prototype for the callback function
114 100ec44e 2010-01-04 rsc typedef int (*MTContactCallbackFunction)(int,Touch*,int,double,int);
116 100ec44e 2010-01-04 rsc //returns a pointer to the default device (the trackpad?)
117 100ec44e 2010-01-04 rsc MTDeviceRef MTDeviceCreateDefault(void);
119 100ec44e 2010-01-04 rsc //returns a CFMutableArrayRef array of all multitouch devices
120 100ec44e 2010-01-04 rsc CFMutableArrayRef MTDeviceCreateList(void);
122 100ec44e 2010-01-04 rsc //registers a device's frame callback to your callback function
123 100ec44e 2010-01-04 rsc void MTRegisterContactFrameCallback(MTDeviceRef, MTContactCallbackFunction);
124 5e83be0d 2011-06-20 rsc void MTUnregisterContactFrameCallback(MTDeviceRef, MTContactCallbackFunction);
126 100ec44e 2010-01-04 rsc //start sending events
127 100ec44e 2010-01-04 rsc void MTDeviceStart(MTDeviceRef, int);
128 100ec44e 2010-01-04 rsc void MTDeviceStop(MTDeviceRef);
130 5e83be0d 2011-06-20 rsc MTDeviceRef MTDeviceCreateFromService(io_service_t);
131 5e83be0d 2011-06-20 rsc io_service_t MTDeviceGetService(MTDeviceRef);
133 100ec44e 2010-01-04 rsc #define kNTracks 10
134 100ec44e 2010-01-04 rsc struct TouchTrack {
136 100ec44e 2010-01-04 rsc float firstThreshTime;
137 100ec44e 2010-01-04 rsc mtPoint pos;
138 100ec44e 2010-01-04 rsc } tracks[kNTracks];
140 100ec44e 2010-01-04 rsc #define kSizeSensitivity 1.25f
141 100ec44e 2010-01-04 rsc #define kTimeSensitivity 0.03f /* seconds */
142 100ec44e 2010-01-04 rsc #define kButtonLimit 0.6f /* percentage from base of pad */
145 100ec44e 2010-01-04 rsc findTrack(int id)
148 100ec44e 2010-01-04 rsc for(i = 0; i < kNTracks; ++i)
149 100ec44e 2010-01-04 rsc if(tracks[i].id == id)
154 100ec44e 2010-01-04 rsc #define kMoveSensitivity 0.05f
157 100ec44e 2010-01-04 rsc moved(mtPoint a, mtPoint b)
159 100ec44e 2010-01-04 rsc if(fabs(a.x - b.x) > kMoveSensitivity)
161 100ec44e 2010-01-04 rsc if(fabs(a.y - b.y) > kMoveSensitivity)
167 100ec44e 2010-01-04 rsc classifyTouch(Touch *t)
172 100ec44e 2010-01-04 rsc p = t->normalized.position;
174 100ec44e 2010-01-04 rsc i = findTrack(t->identifier);
175 100ec44e 2010-01-04 rsc if(i == -1) {
176 100ec44e 2010-01-04 rsc i = findTrack(-1);
178 100ec44e 2010-01-04 rsc return 0; // No empty tracks.
179 100ec44e 2010-01-04 rsc tracks[i].id = t->identifier;
180 100ec44e 2010-01-04 rsc tracks[i].firstThreshTime = t->timestamp;
181 100ec44e 2010-01-04 rsc tracks[i].pos = p;
182 100ec44e 2010-01-04 rsc // we don't have a touch yet - we wait kTimeSensitivity before reporting it.
186 100ec44e 2010-01-04 rsc if(t->size == 0) { // lost touch
187 100ec44e 2010-01-04 rsc tracks[i].id = -1;
190 100ec44e 2010-01-04 rsc if(t->size < kSizeSensitivity) {
191 100ec44e 2010-01-04 rsc tracks[i].firstThreshTime = t->timestamp;
193 100ec44e 2010-01-04 rsc if((t->timestamp - tracks[i].firstThreshTime) < kTimeSensitivity) {
196 28afa898 2010-02-07 rsc if(p.y > kButtonLimit && t->size > kSizeSensitivity) {
197 100ec44e 2010-01-04 rsc if(p.x < 0.35)
199 100ec44e 2010-01-04 rsc if(p.x > 0.65)
201 100ec44e 2010-01-04 rsc if(p.x > 0.35 && p.x < 0.65)
207 100ec44e 2010-01-04 rsc static ulong msec(void);
210 100ec44e 2010-01-04 rsc touchCallback(int device, Touch *data, int nFingers, double timestamp, int frame)
212 100ec44e 2010-01-04 rsc #ifdef MULTITOUCH
213 100ec44e 2010-01-04 rsc int buttons, delta, i;
214 100ec44e 2010-01-04 rsc static int obuttons;
216 100ec44e 2010-01-04 rsc CGEventRef e;
218 7d419a14 2010-01-15 rsc p.x = osx.xy.x+osx.screenr.min.x;
219 7d419a14 2010-01-15 rsc p.y = osx.xy.y+osx.screenr.min.y;
220 7d419a14 2010-01-15 rsc if(!ptinrect(Pt(p.x, p.y), osx.screenr))
222 100ec44e 2010-01-04 rsc osx.touched = 1;
223 100ec44e 2010-01-04 rsc buttons = 0;
224 100ec44e 2010-01-04 rsc for(i = 0; i < nFingers; ++i)
225 100ec44e 2010-01-04 rsc buttons |= classifyTouch(data+i);
226 100ec44e 2010-01-04 rsc delta = buttons ^ obuttons;
227 100ec44e 2010-01-04 rsc obuttons = buttons;
228 100ec44e 2010-01-04 rsc if(delta & 1) {
229 100ec44e 2010-01-04 rsc e = CGEventCreateMouseEvent(NULL,
230 100ec44e 2010-01-04 rsc (buttons & 1) ? kCGEventOtherMouseDown : kCGEventOtherMouseUp,
233 100ec44e 2010-01-04 rsc CGEventPost(kCGSessionEventTap, e);
234 100ec44e 2010-01-04 rsc CFRelease(e);
236 100ec44e 2010-01-04 rsc if(delta & 2) {
237 100ec44e 2010-01-04 rsc e = CGEventCreateMouseEvent(NULL,
238 100ec44e 2010-01-04 rsc (buttons & 2) ? kCGEventOtherMouseDown : kCGEventOtherMouseUp,
241 100ec44e 2010-01-04 rsc CGEventPost(kCGSessionEventTap, e);
242 100ec44e 2010-01-04 rsc CFRelease(e);
244 100ec44e 2010-01-04 rsc if(delta & 4){
245 100ec44e 2010-01-04 rsc e = CGEventCreateMouseEvent(NULL,
246 100ec44e 2010-01-04 rsc (buttons & 4) ? kCGEventOtherMouseDown : kCGEventOtherMouseUp,
249 100ec44e 2010-01-04 rsc CGEventPost(kCGSessionEventTap, e);
250 100ec44e 2010-01-04 rsc CFRelease(e);
252 100ec44e 2010-01-04 rsc return delta != 0;
258 100ec44e 2010-01-04 rsc extern int multitouch;
262 100ec44e 2010-01-04 rsc WindowAttrs =
263 100ec44e 2010-01-04 rsc kWindowCloseBoxAttribute |
264 100ec44e 2010-01-04 rsc kWindowCollapseBoxAttribute |
265 100ec44e 2010-01-04 rsc kWindowResizableAttribute |
266 100ec44e 2010-01-04 rsc kWindowStandardHandlerAttribute |
267 100ec44e 2010-01-04 rsc kWindowFullZoomAttribute
272 100ec44e 2010-01-04 rsc P9PEventLabelUpdate = 1
275 100ec44e 2010-01-04 rsc static void screenproc(void*);
276 100ec44e 2010-01-04 rsc static void eresized(int);
277 100ec44e 2010-01-04 rsc static void fullscreen(int);
278 100ec44e 2010-01-04 rsc static void seticon(void);
279 100ec44e 2010-01-04 rsc static void activated(int);
281 100ec44e 2010-01-04 rsc static OSStatus quithandler(EventHandlerCallRef, EventRef, void*);
282 100ec44e 2010-01-04 rsc static OSStatus eventhandler(EventHandlerCallRef, EventRef, void*);
283 100ec44e 2010-01-04 rsc static OSStatus cmdhandler(EventHandlerCallRef, EventRef, void*);
287 100ec44e 2010-01-04 rsc CmdFullScreen = 1,
290 100ec44e 2010-01-04 rsc void screeninit(void);
291 100ec44e 2010-01-04 rsc void _flushmemscreen(Rectangle r);
293 5e83be0d 2011-06-20 rsc #ifdef MULTITOUCH
295 5e83be0d 2011-06-20 rsc RegisterMultitouch(void *ctx, io_iterator_t iter)
297 5e83be0d 2011-06-20 rsc io_object_t io;
298 5e83be0d 2011-06-20 rsc MTDeviceRef dev;
300 5e83be0d 2011-06-20 rsc while((io = IOIteratorNext(iter)) != 0){
301 5e83be0d 2011-06-20 rsc dev = MTDeviceCreateFromService(io);
302 5e83be0d 2011-06-20 rsc if (dev != nil){
303 5e83be0d 2011-06-20 rsc MTRegisterContactFrameCallback(dev, touchCallback);
304 5e83be0d 2011-06-20 rsc [osx.devicelist addObject:dev];
305 5e83be0d 2011-06-20 rsc if(osx.active)
306 5e83be0d 2011-06-20 rsc MTDeviceStart(dev, 0);
309 5e83be0d 2011-06-20 rsc IOObjectRelease(io);
314 5e83be0d 2011-06-20 rsc UnregisterMultitouch(void *ctx, io_iterator_t iter)
316 5e83be0d 2011-06-20 rsc io_object_t io;
317 5e83be0d 2011-06-20 rsc MTDeviceRef dev;
320 5e83be0d 2011-06-20 rsc while((io = IOIteratorNext(iter)) != 0){
321 5e83be0d 2011-06-20 rsc for(i = 0; i < [osx.devicelist count]; i++){
322 5e83be0d 2011-06-20 rsc dev = [osx.devicelist objectAtIndex:i];
323 5e83be0d 2011-06-20 rsc if(IOObjectIsEqualTo(MTDeviceGetService(dev), io)){
324 5e83be0d 2011-06-20 rsc if(osx.active)
325 5e83be0d 2011-06-20 rsc MTDeviceStop(dev);
326 5e83be0d 2011-06-20 rsc MTUnregisterContactFrameCallback(dev, touchCallback);
327 5e83be0d 2011-06-20 rsc [osx.devicelist removeObjectAtIndex:i];
332 5e83be0d 2011-06-20 rsc IOObjectRelease(io);
336 5e83be0d 2011-06-20 rsc #endif /*MULTITOUCH*/
339 5e83be0d 2011-06-20 rsc InitMultiTouch()
341 100ec44e 2010-01-04 rsc #ifdef MULTITOUCH
342 5e83be0d 2011-06-20 rsc IONotificationPortRef port;
343 5e83be0d 2011-06-20 rsc CFRunLoopSourceRef source;
344 5e83be0d 2011-06-20 rsc io_iterator_t iter;
345 5e83be0d 2011-06-20 rsc kern_return_t kr;
346 5e83be0d 2011-06-20 rsc io_object_t obj;
349 100ec44e 2010-01-04 rsc if(!multitouch)
352 5e83be0d 2011-06-20 rsc osx.devicelist = [[NSMutableArray alloc] init];
354 5e83be0d 2011-06-20 rsc for(i = 0; i < kNTracks; ++i)
355 100ec44e 2010-01-04 rsc tracks[i].id = -1;
357 5e83be0d 2011-06-20 rsc port = IONotificationPortCreate(kIOMasterPortDefault);
358 5e83be0d 2011-06-20 rsc if(port == nil){
359 5e83be0d 2011-06-20 rsc fprint(2, "failed to get an IO notification port\n");
363 5e83be0d 2011-06-20 rsc source = IONotificationPortGetRunLoopSource(port);
364 5e83be0d 2011-06-20 rsc if(source == nil){
365 5e83be0d 2011-06-20 rsc fprint(2, "failed to get loop source for port");
369 5e83be0d 2011-06-20 rsc CFRunLoopAddSource(
370 5e83be0d 2011-06-20 rsc (CFRunLoopRef)GetCFRunLoopFromEventLoop(GetMainEventLoop()),
372 5e83be0d 2011-06-20 rsc kCFRunLoopDefaultMode);
374 5e83be0d 2011-06-20 rsc kr = IOServiceAddMatchingNotification(
375 5e83be0d 2011-06-20 rsc port, kIOTerminatedNotification,
376 5e83be0d 2011-06-20 rsc IOServiceMatching("AppleMultitouchDevice"),
377 5e83be0d 2011-06-20 rsc &UnregisterMultitouch,
378 5e83be0d 2011-06-20 rsc nil, &iter);
380 5e83be0d 2011-06-20 rsc if(kr != KERN_SUCCESS){
381 5e83be0d 2011-06-20 rsc fprint(2, "failed to add termination notification\n");
385 5e83be0d 2011-06-20 rsc /* Arm the notification */
386 5e83be0d 2011-06-20 rsc while((obj = IOIteratorNext(iter)) != 0)
387 5e83be0d 2011-06-20 rsc IOObjectRelease(obj);
389 5e83be0d 2011-06-20 rsc kr = IOServiceAddMatchingNotification(
390 5e83be0d 2011-06-20 rsc port, kIOMatchedNotification,
391 5e83be0d 2011-06-20 rsc IOServiceMatching("AppleMultitouchDevice"),
392 5e83be0d 2011-06-20 rsc &RegisterMultitouch,
393 5e83be0d 2011-06-20 rsc nil, &iter);
395 5e83be0d 2011-06-20 rsc if(kr != KERN_SUCCESS){
396 5e83be0d 2011-06-20 rsc fprint(2, "failed to add matching notification\n");
400 5e83be0d 2011-06-20 rsc RegisterMultitouch(nil, iter);
405 100ec44e 2010-01-04 rsc attachscreen(char *label, char *winsize)
407 100ec44e 2010-01-04 rsc if(label == nil)
408 100ec44e 2010-01-04 rsc label = "gnot a label";
409 100ec44e 2010-01-04 rsc osx.label = strdup(label);
410 100ec44e 2010-01-04 rsc osx.winsize = winsize;
411 100ec44e 2010-01-04 rsc if(osx.screenimage == nil){
412 100ec44e 2010-01-04 rsc screeninit();
413 100ec44e 2010-01-04 rsc if(osx.screenimage == nil)
414 100ec44e 2010-01-04 rsc panic("cannot create OS X screen");
416 100ec44e 2010-01-04 rsc return osx.screenimage;
419 100ec44e 2010-01-04 rsc extern int multitouch;
422 100ec44e 2010-01-04 rsc _screeninit(void)
426 100ec44e 2010-01-04 rsc Rectangle r;
427 100ec44e 2010-01-04 rsc int havemin;
429 100ec44e 2010-01-04 rsc memimageinit();
431 100ec44e 2010-01-04 rsc ProcessSerialNumber psn = { 0, kCurrentProcess };
432 100ec44e 2010-01-04 rsc TransformProcessType(&psn, kProcessTransformToForegroundApplication);
433 100ec44e 2010-01-04 rsc SetFrontProcess(&psn);
435 100ec44e 2010-01-04 rsc cgr = CGDisplayBounds(CGMainDisplayID());
436 100ec44e 2010-01-04 rsc osx.fullscreenr = Rect(0, 0, cgr.size.width, cgr.size.height);
438 100ec44e 2010-01-04 rsc InitCursor();
440 100ec44e 2010-01-04 rsc // Create minimal menu with full-screen option.
441 100ec44e 2010-01-04 rsc ClearMenuBar();
442 100ec44e 2010-01-04 rsc CreateStandardWindowMenu(0, &osx.wmenu);
443 100ec44e 2010-01-04 rsc InsertMenu(osx.wmenu, 0);
444 100ec44e 2010-01-04 rsc MenuItemIndex ix;
445 100ec44e 2010-01-04 rsc CreateNewMenu(1004, 0, &osx.vmenu); // XXX 1004?
446 100ec44e 2010-01-04 rsc SetMenuTitleWithCFString(osx.vmenu, CFSTR("View"));
447 100ec44e 2010-01-04 rsc AppendMenuItemTextWithCFString(osx.vmenu,
448 100ec44e 2010-01-04 rsc CFSTR("Full Screen"), 0, CmdFullScreen, &ix);
449 100ec44e 2010-01-04 rsc SetMenuItemCommandKey(osx.vmenu, ix, 0, 'F');
450 100ec44e 2010-01-04 rsc AppendMenuItemTextWithCFString(osx.vmenu,
451 100ec44e 2010-01-04 rsc CFSTR("Cmd-F exits full screen"),
452 100ec44e 2010-01-04 rsc kMenuItemAttrDisabled, CmdFullScreen, &ix);
453 100ec44e 2010-01-04 rsc InsertMenu(osx.vmenu, GetMenuID(osx.wmenu));
454 100ec44e 2010-01-04 rsc DrawMenuBar();
456 100ec44e 2010-01-04 rsc // Create the window.
457 100ec44e 2010-01-04 rsc r = Rect(0, 0, Dx(osx.fullscreenr)*2/3, Dy(osx.fullscreenr)*2/3);
458 100ec44e 2010-01-04 rsc havemin = 0;
459 100ec44e 2010-01-04 rsc if(osx.winsize && osx.winsize[0]){
460 100ec44e 2010-01-04 rsc if(parsewinsize(osx.winsize, &r, &havemin) < 0)
461 100ec44e 2010-01-04 rsc sysfatal("%r");
463 100ec44e 2010-01-04 rsc if(!havemin)
464 100ec44e 2010-01-04 rsc r = rectaddpt(r, Pt((Dx(osx.fullscreenr)-Dx(r))/2, (Dy(osx.fullscreenr)-Dy(r))/2));
465 100ec44e 2010-01-04 rsc or.left = r.min.x;
466 100ec44e 2010-01-04 rsc or.top = r.min.y;
467 100ec44e 2010-01-04 rsc or.right = r.max.x;
468 100ec44e 2010-01-04 rsc or.bottom = r.max.y;
469 100ec44e 2010-01-04 rsc CreateNewWindow(kDocumentWindowClass, WindowAttrs, &or, &osx.window);
470 100ec44e 2010-01-04 rsc setlabel(osx.label);
473 100ec44e 2010-01-04 rsc // Set up the clip board.
474 100ec44e 2010-01-04 rsc if(PasteboardCreate(kPasteboardClipboard, &osx.snarf) != noErr)
475 100ec44e 2010-01-04 rsc panic("pasteboard create");
477 100ec44e 2010-01-04 rsc // Explain in great detail which events we want to handle.
478 100ec44e 2010-01-04 rsc // Why can't we just have one handler?
479 100ec44e 2010-01-04 rsc const EventTypeSpec quits[] = {
480 100ec44e 2010-01-04 rsc { kEventClassApplication, kEventAppQuit }
482 100ec44e 2010-01-04 rsc const EventTypeSpec cmds[] = {
483 100ec44e 2010-01-04 rsc { kEventClassWindow, kEventWindowClosed },
484 100ec44e 2010-01-04 rsc { kEventClassWindow, kEventWindowBoundsChanged },
485 fb243a13 2010-01-14 rsc { kEventClassWindow, kEventWindowDrawContent },
486 100ec44e 2010-01-04 rsc { kEventClassCommand, kEventCommandProcess },
487 100ec44e 2010-01-04 rsc { kEventClassWindow, kEventWindowActivated },
488 100ec44e 2010-01-04 rsc { kEventClassWindow, kEventWindowDeactivated },
489 7d9c0f0f 2010-01-05 rsc { kEventClassWindow, kEventWindowCollapsed },
490 7d9c0f0f 2010-01-05 rsc { kEventClassWindow, kEventWindowExpanded },
492 100ec44e 2010-01-04 rsc const EventTypeSpec events[] = {
493 100ec44e 2010-01-04 rsc { kEventClassApplication, kEventAppShown },
494 100ec44e 2010-01-04 rsc { kEventClassKeyboard, kEventRawKeyDown },
495 100ec44e 2010-01-04 rsc { kEventClassKeyboard, kEventRawKeyModifiersChanged },
496 100ec44e 2010-01-04 rsc { kEventClassKeyboard, kEventRawKeyRepeat },
497 100ec44e 2010-01-04 rsc { kEventClassMouse, kEventMouseDown },
498 100ec44e 2010-01-04 rsc { kEventClassMouse, kEventMouseUp },
499 100ec44e 2010-01-04 rsc { kEventClassMouse, kEventMouseMoved },
500 100ec44e 2010-01-04 rsc { kEventClassMouse, kEventMouseDragged },
501 100ec44e 2010-01-04 rsc { kEventClassMouse, kEventMouseWheelMoved },
502 100ec44e 2010-01-04 rsc { 'P9PE', P9PEventLabelUpdate}
505 100ec44e 2010-01-04 rsc InstallApplicationEventHandler(
506 100ec44e 2010-01-04 rsc NewEventHandlerUPP(quithandler),
507 100ec44e 2010-01-04 rsc nelem(quits), quits, nil, nil);
509 100ec44e 2010-01-04 rsc InstallApplicationEventHandler(
510 100ec44e 2010-01-04 rsc NewEventHandlerUPP(eventhandler),
511 100ec44e 2010-01-04 rsc nelem(events), events, nil, nil);
513 100ec44e 2010-01-04 rsc InstallWindowEventHandler(osx.window,
514 100ec44e 2010-01-04 rsc NewEventHandlerUPP(cmdhandler),
515 100ec44e 2010-01-04 rsc nelem(cmds), cmds, osx.window, nil);
517 100ec44e 2010-01-04 rsc // Finally, put the window on the screen.
518 100ec44e 2010-01-04 rsc ShowWindow(osx.window);
519 100ec44e 2010-01-04 rsc ShowMenuBar();
520 100ec44e 2010-01-04 rsc eresized(0);
521 100ec44e 2010-01-04 rsc SelectWindow(osx.window);
523 100ec44e 2010-01-04 rsc if(multitouch)
524 100ec44e 2010-01-04 rsc InitMultiTouch();
526 d94cc62a 2010-03-04 rsc // CoreGraphics pins mouse events to the destination point of a
527 d94cc62a 2010-03-04 rsc // CGWarpMouseCursorPosition (see setmouse) for an interval of time
528 d94cc62a 2010-03-04 rsc // following the move. Disable this by setting the interval to zero
530 d94cc62a 2010-03-04 rsc CGSetLocalEventsSuppressionInterval(0.0);
532 100ec44e 2010-01-04 rsc InitCursor();
535 100ec44e 2010-01-04 rsc static Rendez scr;
536 100ec44e 2010-01-04 rsc static QLock slock;
539 100ec44e 2010-01-04 rsc screeninit(void)
541 100ec44e 2010-01-04 rsc scr.l = &slock;
542 100ec44e 2010-01-04 rsc qlock(scr.l);
543 100ec44e 2010-01-04 rsc proccreate(screenproc, nil, 256*1024);
544 100ec44e 2010-01-04 rsc while(osx.window == nil)
545 100ec44e 2010-01-04 rsc rsleep(&scr);
546 100ec44e 2010-01-04 rsc qunlock(scr.l);
550 100ec44e 2010-01-04 rsc screenproc(void *v)
552 100ec44e 2010-01-04 rsc qlock(scr.l);
553 100ec44e 2010-01-04 rsc _screeninit();
554 100ec44e 2010-01-04 rsc rwakeup(&scr);
555 100ec44e 2010-01-04 rsc qunlock(scr.l);
556 100ec44e 2010-01-04 rsc RunApplicationEventLoop();
559 100ec44e 2010-01-04 rsc static OSStatus kbdevent(EventRef);
560 100ec44e 2010-01-04 rsc static OSStatus mouseevent(EventRef);
562 100ec44e 2010-01-04 rsc static OSStatus
563 100ec44e 2010-01-04 rsc cmdhandler(EventHandlerCallRef next, EventRef event, void *arg)
565 100ec44e 2010-01-04 rsc return eventhandler(next, event, arg);
568 100ec44e 2010-01-04 rsc static OSStatus
569 100ec44e 2010-01-04 rsc quithandler(EventHandlerCallRef next, EventRef event, void *arg)
575 100ec44e 2010-01-04 rsc static OSStatus
576 100ec44e 2010-01-04 rsc eventhandler(EventHandlerCallRef next, EventRef event, void *arg)
578 100ec44e 2010-01-04 rsc OSStatus result;
580 100ec44e 2010-01-04 rsc result = CallNextEventHandler(next, event);
582 100ec44e 2010-01-04 rsc switch(GetEventClass(event)){
584 100ec44e 2010-01-04 rsc case 'P9PE':
585 100ec44e 2010-01-04 rsc if(GetEventKind(event) == P9PEventLabelUpdate) {
586 100ec44e 2010-01-04 rsc qlock(&osx.labellock);
587 100ec44e 2010-01-04 rsc setlabel(osx.label);
588 100ec44e 2010-01-04 rsc qunlock(&osx.labellock);
589 100ec44e 2010-01-04 rsc return noErr;
591 100ec44e 2010-01-04 rsc return eventNotHandledErr;
593 100ec44e 2010-01-04 rsc case kEventClassApplication:;
594 100ec44e 2010-01-04 rsc Rectangle r = Rect(0, 0, Dx(osx.screenr), Dy(osx.screenr));
595 100ec44e 2010-01-04 rsc _flushmemscreen(r);
596 100ec44e 2010-01-04 rsc return eventNotHandledErr;
598 100ec44e 2010-01-04 rsc case kEventClassKeyboard:
599 100ec44e 2010-01-04 rsc return kbdevent(event);
601 100ec44e 2010-01-04 rsc case kEventClassMouse:
602 100ec44e 2010-01-04 rsc return mouseevent(event);
604 100ec44e 2010-01-04 rsc case kEventClassCommand:;
605 100ec44e 2010-01-04 rsc HICommand cmd;
606 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamDirectObject,
607 100ec44e 2010-01-04 rsc typeHICommand, nil, sizeof cmd, nil, &cmd);
608 100ec44e 2010-01-04 rsc switch(cmd.commandID){
609 100ec44e 2010-01-04 rsc case kHICommandQuit:
612 100ec44e 2010-01-04 rsc case CmdFullScreen:
613 100ec44e 2010-01-04 rsc fullscreen(1);
617 100ec44e 2010-01-04 rsc return eventNotHandledErr;
621 100ec44e 2010-01-04 rsc case kEventClassWindow:
622 100ec44e 2010-01-04 rsc switch(GetEventKind(event)){
623 100ec44e 2010-01-04 rsc case kEventWindowClosed:
626 e055ceb2 2011-06-20 rsc case kEventWindowBoundsChanged:;
627 e055ceb2 2011-06-20 rsc // We see kEventWindowDrawContent
628 e055ceb2 2011-06-20 rsc // if we grow a window but not if we shrink it.
629 e055ceb2 2011-06-20 rsc UInt32 flags;
630 e055ceb2 2011-06-20 rsc GetEventParameter(event, kEventParamAttributes,
631 e055ceb2 2011-06-20 rsc typeUInt32, 0, sizeof flags, 0, &flags);
632 e055ceb2 2011-06-20 rsc int new = (flags & kWindowBoundsChangeSizeChanged) != 0;
633 e055ceb2 2011-06-20 rsc eresized(new);
636 a61c6933 2010-01-16 rsc case kEventWindowDrawContent:
637 a61c6933 2010-01-16 rsc // Tried using just flushmemimage here, but
638 a61c6933 2010-01-16 rsc // it causes an odd artifact in which making a window
639 a61c6933 2010-01-16 rsc // bigger in both width and height can then only draw
640 a61c6933 2010-01-16 rsc // on the new border: it's like the old window is stuck
641 a61c6933 2010-01-16 rsc // floating on top. Doing a full "get a new window"
642 a61c6933 2010-01-16 rsc // seems to solve the problem.
643 a61c6933 2010-01-16 rsc eresized(1);
646 100ec44e 2010-01-04 rsc case kEventWindowActivated:
647 7d9c0f0f 2010-01-05 rsc if(!osx.collapsed)
648 7d9c0f0f 2010-01-05 rsc activated(1);
649 100ec44e 2010-01-04 rsc return eventNotHandledErr;
651 100ec44e 2010-01-04 rsc case kEventWindowDeactivated:
652 7d9c0f0f 2010-01-05 rsc activated(0);
653 7d9c0f0f 2010-01-05 rsc return eventNotHandledErr;
655 7d9c0f0f 2010-01-05 rsc case kEventWindowCollapsed:
656 7d9c0f0f 2010-01-05 rsc osx.collapsed = 1;
657 100ec44e 2010-01-04 rsc activated(0);
658 100ec44e 2010-01-04 rsc return eventNotHandledErr;
660 7d9c0f0f 2010-01-05 rsc case kEventWindowExpanded:
661 7d9c0f0f 2010-01-05 rsc osx.collapsed = 0;
662 7d9c0f0f 2010-01-05 rsc activated(1);
663 7d9c0f0f 2010-01-05 rsc return eventNotHandledErr;
666 100ec44e 2010-01-04 rsc return eventNotHandledErr;
671 100ec44e 2010-01-04 rsc return result;
674 100ec44e 2010-01-04 rsc static ulong
677 100ec44e 2010-01-04 rsc return nsec()/1000000;
680 100ec44e 2010-01-04 rsc static OSStatus
681 100ec44e 2010-01-04 rsc mouseevent(EventRef event)
684 100ec44e 2010-01-04 rsc OSXPoint op;
686 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamMouseLocation,
687 100ec44e 2010-01-04 rsc typeQDPoint, 0, sizeof op, 0, &op);
689 100ec44e 2010-01-04 rsc osx.xy = subpt(Pt(op.h, op.v), osx.screenr.min);
692 100ec44e 2010-01-04 rsc switch(GetEventKind(event)){
693 100ec44e 2010-01-04 rsc case kEventMouseWheelMoved:;
694 100ec44e 2010-01-04 rsc SInt32 delta;
695 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamMouseWheelDelta,
696 100ec44e 2010-01-04 rsc typeSInt32, 0, sizeof delta, 0, &delta);
698 100ec44e 2010-01-04 rsc // if I have any active touches in my region, I need to ignore the wheel motion.
700 100ec44e 2010-01-04 rsc //for(i = 0; i < kNTracks; ++i) {
701 100ec44e 2010-01-04 rsc // if(tracks[i].id != -1 && tracks[i].pos.y > kButtonLimit) break;
703 100ec44e 2010-01-04 rsc //if(i == kNTracks) { // No active touches, go ahead and scroll.
704 100ec44e 2010-01-04 rsc if(delta > 0)
711 100ec44e 2010-01-04 rsc case kEventMouseDown:
712 100ec44e 2010-01-04 rsc case kEventMouseUp:;
713 100ec44e 2010-01-04 rsc UInt32 but, mod;
714 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamMouseChord,
715 100ec44e 2010-01-04 rsc typeUInt32, 0, sizeof but, 0, &but);
716 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamKeyModifiers,
717 100ec44e 2010-01-04 rsc typeUInt32, 0, sizeof mod, 0, &mod);
719 28afa898 2010-02-07 rsc // OS X swaps button 2 and 3
720 28afa898 2010-02-07 rsc but = (but & ~6) | ((but & 4)>>1) | ((but&2)<<1);
721 28afa898 2010-02-07 rsc but = (but & ~((1<<10)-1)) | mouseswap(but & ((1<<10)-1));
722 100ec44e 2010-01-04 rsc if(osx.touched) {
723 100ec44e 2010-01-04 rsc // in multitouch we use the clicks down to enable our
724 100ec44e 2010-01-04 rsc // virtual buttons.
725 28afa898 2010-02-07 rsc if(but & 0x7) {
727 28afa898 2010-02-07 rsc but = but >> 29;
730 100ec44e 2010-01-04 rsc osx.touched = 0;
733 100ec44e 2010-01-04 rsc // Apply keyboard modifiers and pretend it was a real mouse button.
734 100ec44e 2010-01-04 rsc // (Modifiers typed while holding the button go into kbuttons,
735 100ec44e 2010-01-04 rsc // but this one does not.)
736 100ec44e 2010-01-04 rsc if(but == 1){
737 100ec44e 2010-01-04 rsc if(mod & optionKey) {
738 100ec44e 2010-01-04 rsc // Take the ALT away from the keyboard handler.
739 100ec44e 2010-01-04 rsc if(osx.kalting) {
740 100ec44e 2010-01-04 rsc osx.kalting = 0;
741 100ec44e 2010-01-04 rsc keystroke(Kalt);
745 100ec44e 2010-01-04 rsc else if(mod & cmdKey)
748 100ec44e 2010-01-04 rsc osx.buttons = but;
751 100ec44e 2010-01-04 rsc case kEventMouseMoved:
752 100ec44e 2010-01-04 rsc case kEventMouseDragged:
756 100ec44e 2010-01-04 rsc return eventNotHandledErr;
759 100ec44e 2010-01-04 rsc mousetrack(osx.xy.x, osx.xy.y, osx.buttons|osx.kbuttons|wheel, msec());
760 100ec44e 2010-01-04 rsc return noErr;
763 100ec44e 2010-01-04 rsc static int keycvt[] =
765 100ec44e 2010-01-04 rsc [QZ_IBOOK_ENTER] '\n',
766 100ec44e 2010-01-04 rsc [QZ_RETURN] '\n',
767 100ec44e 2010-01-04 rsc [QZ_ESCAPE] 27,
768 100ec44e 2010-01-04 rsc [QZ_BACKSPACE] '\b',
769 100ec44e 2010-01-04 rsc [QZ_LALT] Kalt,
770 100ec44e 2010-01-04 rsc [QZ_LCTRL] Kctl,
771 100ec44e 2010-01-04 rsc [QZ_LSHIFT] Kshift,
772 100ec44e 2010-01-04 rsc [QZ_F1] KF+1,
773 100ec44e 2010-01-04 rsc [QZ_F2] KF+2,
774 100ec44e 2010-01-04 rsc [QZ_F3] KF+3,
775 100ec44e 2010-01-04 rsc [QZ_F4] KF+4,
776 100ec44e 2010-01-04 rsc [QZ_F5] KF+5,
777 100ec44e 2010-01-04 rsc [QZ_F6] KF+6,
778 100ec44e 2010-01-04 rsc [QZ_F7] KF+7,
779 100ec44e 2010-01-04 rsc [QZ_F8] KF+8,
780 100ec44e 2010-01-04 rsc [QZ_F9] KF+9,
781 100ec44e 2010-01-04 rsc [QZ_F10] KF+10,
782 100ec44e 2010-01-04 rsc [QZ_F11] KF+11,
783 100ec44e 2010-01-04 rsc [QZ_F12] KF+12,
784 100ec44e 2010-01-04 rsc [QZ_INSERT] Kins,
785 100ec44e 2010-01-04 rsc [QZ_DELETE] 0x7F,
786 100ec44e 2010-01-04 rsc [QZ_HOME] Khome,
787 100ec44e 2010-01-04 rsc [QZ_END] Kend,
788 100ec44e 2010-01-04 rsc [QZ_KP_PLUS] '+',
789 100ec44e 2010-01-04 rsc [QZ_KP_MINUS] '-',
790 100ec44e 2010-01-04 rsc [QZ_TAB] '\t',
791 100ec44e 2010-01-04 rsc [QZ_PAGEUP] Kpgup,
792 100ec44e 2010-01-04 rsc [QZ_PAGEDOWN] Kpgdown,
793 100ec44e 2010-01-04 rsc [QZ_UP] Kup,
794 100ec44e 2010-01-04 rsc [QZ_DOWN] Kdown,
795 100ec44e 2010-01-04 rsc [QZ_LEFT] Kleft,
796 100ec44e 2010-01-04 rsc [QZ_RIGHT] Kright,
797 100ec44e 2010-01-04 rsc [QZ_KP_MULTIPLY] '*',
798 100ec44e 2010-01-04 rsc [QZ_KP_DIVIDE] '/',
799 100ec44e 2010-01-04 rsc [QZ_KP_ENTER] '\n',
800 100ec44e 2010-01-04 rsc [QZ_KP_PERIOD] '.',
801 100ec44e 2010-01-04 rsc [QZ_KP0] '0',
802 100ec44e 2010-01-04 rsc [QZ_KP1] '1',
803 100ec44e 2010-01-04 rsc [QZ_KP2] '2',
804 100ec44e 2010-01-04 rsc [QZ_KP3] '3',
805 100ec44e 2010-01-04 rsc [QZ_KP4] '4',
806 100ec44e 2010-01-04 rsc [QZ_KP5] '5',
807 100ec44e 2010-01-04 rsc [QZ_KP6] '6',
808 100ec44e 2010-01-04 rsc [QZ_KP7] '7',
809 100ec44e 2010-01-04 rsc [QZ_KP8] '8',
810 100ec44e 2010-01-04 rsc [QZ_KP9] '9',
813 100ec44e 2010-01-04 rsc static OSStatus
814 100ec44e 2010-01-04 rsc kbdevent(EventRef event)
817 100ec44e 2010-01-04 rsc UInt32 code;
821 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamKeyMacCharCodes,
822 100ec44e 2010-01-04 rsc typeChar, nil, sizeof ch, nil, &ch);
823 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamKeyCode,
824 100ec44e 2010-01-04 rsc typeUInt32, nil, sizeof code, nil, &code);
825 100ec44e 2010-01-04 rsc GetEventParameter(event, kEventParamKeyModifiers,
826 100ec44e 2010-01-04 rsc typeUInt32, nil, sizeof mod, nil, &mod);
828 100ec44e 2010-01-04 rsc switch(GetEventKind(event)){
829 100ec44e 2010-01-04 rsc case kEventRawKeyDown:
830 100ec44e 2010-01-04 rsc case kEventRawKeyRepeat:
831 100ec44e 2010-01-04 rsc osx.kalting = 0;
832 100ec44e 2010-01-04 rsc if(mod == cmdKey){
833 100ec44e 2010-01-04 rsc if(ch == 'F' || ch == 'f'){
834 100ec44e 2010-01-04 rsc if(osx.isfullscreen && msec() - osx.fullscreentime > 500)
835 100ec44e 2010-01-04 rsc fullscreen(0);
836 100ec44e 2010-01-04 rsc return noErr;
839 100ec44e 2010-01-04 rsc // Pass most Cmd keys through as Kcmd + ch.
840 100ec44e 2010-01-04 rsc // OS X interprets a few no matter what we do,
841 100ec44e 2010-01-04 rsc // so it is useless to pass them through as keystrokes too.
842 100ec44e 2010-01-04 rsc switch(ch) {
843 100ec44e 2010-01-04 rsc case 'm': // minimize window
844 100ec44e 2010-01-04 rsc case 'h': // hide window
845 100ec44e 2010-01-04 rsc case 'H': // hide others
846 100ec44e 2010-01-04 rsc case 'q': // quit
847 100ec44e 2010-01-04 rsc return eventNotHandledErr;
849 100ec44e 2010-01-04 rsc if(' ' <= ch && ch <= '~') {
850 100ec44e 2010-01-04 rsc keystroke(Kcmd + ch);
851 100ec44e 2010-01-04 rsc return noErr;
853 100ec44e 2010-01-04 rsc return eventNotHandledErr;
856 100ec44e 2010-01-04 rsc if(code < nelem(keycvt) && keycvt[code])
857 100ec44e 2010-01-04 rsc k = keycvt[code];
859 100ec44e 2010-01-04 rsc return noErr;
861 100ec44e 2010-01-04 rsc keystroke(k);
866 100ec44e 2010-01-04 rsc s = GetEventParameter(event, kEventParamKeyUnicodes,
867 100ec44e 2010-01-04 rsc typeUnicodeText, nil, sizeof uc, nil, &uc);
868 100ec44e 2010-01-04 rsc if(s == noErr)
869 100ec44e 2010-01-04 rsc keystroke(uc);
873 100ec44e 2010-01-04 rsc case kEventRawKeyModifiersChanged:
874 100ec44e 2010-01-04 rsc if(!osx.buttons && !osx.kbuttons){
875 100ec44e 2010-01-04 rsc if(mod == optionKey) {
876 100ec44e 2010-01-04 rsc osx.kalting = 1;
877 100ec44e 2010-01-04 rsc keystroke(Kalt);
882 100ec44e 2010-01-04 rsc // If the mouse button is being held down, treat
883 100ec44e 2010-01-04 rsc // changes in the keyboard modifiers as changes
884 100ec44e 2010-01-04 rsc // in the mouse buttons.
885 100ec44e 2010-01-04 rsc osx.kbuttons = 0;
886 100ec44e 2010-01-04 rsc if(mod & optionKey)
887 100ec44e 2010-01-04 rsc osx.kbuttons |= 2;
888 100ec44e 2010-01-04 rsc if(mod & cmdKey)
889 100ec44e 2010-01-04 rsc osx.kbuttons |= 4;
890 100ec44e 2010-01-04 rsc mousetrack(osx.xy.x, osx.xy.y, osx.buttons|osx.kbuttons, msec());
893 100ec44e 2010-01-04 rsc return noErr;
897 100ec44e 2010-01-04 rsc eresized(int new)
899 100ec44e 2010-01-04 rsc Memimage *m;
902 100ec44e 2010-01-04 rsc Rectangle r;
904 100ec44e 2010-01-04 rsc CGDataProviderRef provider;
905 100ec44e 2010-01-04 rsc CGImageRef image;
906 100ec44e 2010-01-04 rsc CGColorSpaceRef cspace;
908 100ec44e 2010-01-04 rsc GetWindowBounds(osx.window, kWindowContentRgn, &or);
909 100ec44e 2010-01-04 rsc r = Rect(or.left, or.top, or.right, or.bottom);
910 a61c6933 2010-01-16 rsc if(Dx(r) == Dx(osx.screenr) && Dy(r) == Dy(osx.screenr) && !new){
911 100ec44e 2010-01-04 rsc // No need to make new image.
912 100ec44e 2010-01-04 rsc osx.screenr = r;
916 100ec44e 2010-01-04 rsc chan = XBGR32;
917 100ec44e 2010-01-04 rsc m = allocmemimage(Rect(0, 0, Dx(r), Dy(r)), chan);
918 100ec44e 2010-01-04 rsc if(m == nil)
919 100ec44e 2010-01-04 rsc panic("allocmemimage: %r");
920 100ec44e 2010-01-04 rsc if(m->data == nil)
921 100ec44e 2010-01-04 rsc panic("m->data == nil");
922 100ec44e 2010-01-04 rsc bpl = bytesperline(r, 32);
923 100ec44e 2010-01-04 rsc provider = CGDataProviderCreateWithData(0,
924 100ec44e 2010-01-04 rsc m->data->bdata, Dy(r)*bpl, 0);
925 100ec44e 2010-01-04 rsc //cspace = CGColorSpaceCreateWithName(kCGColorSpaceGenericRGB);
926 100ec44e 2010-01-04 rsc cspace = CGColorSpaceCreateDeviceRGB();
927 100ec44e 2010-01-04 rsc image = CGImageCreate(Dx(r), Dy(r), 8, 32, bpl,
929 100ec44e 2010-01-04 rsc kCGImageAlphaNoneSkipLast,
930 100ec44e 2010-01-04 rsc provider, 0, 0, kCGRenderingIntentDefault);
931 100ec44e 2010-01-04 rsc CGColorSpaceRelease(cspace);
932 100ec44e 2010-01-04 rsc CGDataProviderRelease(provider); // CGImageCreate did incref
934 100ec44e 2010-01-04 rsc mouserect = m->r;
936 100ec44e 2010-01-04 rsc mouseresized = 1;
937 100ec44e 2010-01-04 rsc mousetrack(osx.xy.x, osx.xy.y, osx.buttons|osx.kbuttons, msec());
939 100ec44e 2010-01-04 rsc // termreplacescreenimage(m);
940 100ec44e 2010-01-04 rsc _drawreplacescreenimage(m); // frees old osx.screenimage if any
941 100ec44e 2010-01-04 rsc if(osx.image)
942 100ec44e 2010-01-04 rsc CGImageRelease(osx.image);
943 100ec44e 2010-01-04 rsc osx.image = image;
944 100ec44e 2010-01-04 rsc osx.screenimage = m;
945 100ec44e 2010-01-04 rsc osx.screenr = r;
948 e055ceb2 2011-06-20 rsc qlock(&osx.flushlock);
949 e055ceb2 2011-06-20 rsc QDEndCGContext(GetWindowPort(osx.window), &osx.windowctx);
950 e055ceb2 2011-06-20 rsc osx.windowctx = nil;
951 e055ceb2 2011-06-20 rsc qunlock(&osx.flushlock);
956 100ec44e 2010-01-04 rsc flushproc(void *v)
959 100ec44e 2010-01-04 rsc if(osx.needflush && osx.windowctx && canqlock(&osx.flushlock)){
960 100ec44e 2010-01-04 rsc if(osx.windowctx){
961 100ec44e 2010-01-04 rsc CGContextFlush(osx.windowctx);
962 100ec44e 2010-01-04 rsc osx.needflush = 0;
964 100ec44e 2010-01-04 rsc qunlock(&osx.flushlock);
966 100ec44e 2010-01-04 rsc usleep(33333);
971 100ec44e 2010-01-04 rsc _flushmemscreen(Rectangle r)
974 100ec44e 2010-01-04 rsc CGImageRef subimg;
976 100ec44e 2010-01-04 rsc qlock(&osx.flushlock);
977 100ec44e 2010-01-04 rsc if(osx.windowctx == nil){
978 100ec44e 2010-01-04 rsc QDBeginCGContext(GetWindowPort(osx.window), &osx.windowctx);
979 f50c3e95 2010-04-02 rsc if(!osx.flushing) {
980 f50c3e95 2010-04-02 rsc proccreate(flushproc, nil, 256*1024);
981 f50c3e95 2010-04-02 rsc osx.flushing = 1;
985 100ec44e 2010-01-04 rsc cgr.origin.x = r.min.x;
986 100ec44e 2010-01-04 rsc cgr.origin.y = r.min.y;
987 100ec44e 2010-01-04 rsc cgr.size.width = Dx(r);
988 100ec44e 2010-01-04 rsc cgr.size.height = Dy(r);
989 100ec44e 2010-01-04 rsc subimg = CGImageCreateWithImageInRect(osx.image, cgr);
990 100ec44e 2010-01-04 rsc cgr.origin.y = Dy(osx.screenr) - r.max.y; // XXX how does this make any sense?
991 100ec44e 2010-01-04 rsc CGContextDrawImage(osx.windowctx, cgr, subimg);
992 100ec44e 2010-01-04 rsc osx.needflush = 1;
993 100ec44e 2010-01-04 rsc qunlock(&osx.flushlock);
994 100ec44e 2010-01-04 rsc CGImageRelease(subimg);
998 100ec44e 2010-01-04 rsc activated(int active)
1000 100ec44e 2010-01-04 rsc #ifdef MULTITOUCH
1002 100ec44e 2010-01-04 rsc if(active) {
1003 100ec44e 2010-01-04 rsc for(i = 0; i<[osx.devicelist count]; i++) { //iterate available devices
1004 100ec44e 2010-01-04 rsc MTDeviceStart([osx.devicelist objectAtIndex:i], 0); //start sending events
1007 7d419a14 2010-01-15 rsc osx.xy.x = -10000;
1008 100ec44e 2010-01-04 rsc for(i = 0; i<[osx.devicelist count]; i++) { //iterate available devices
1009 100ec44e 2010-01-04 rsc MTDeviceStop([osx.devicelist objectAtIndex:i]); //stop sending events
1011 100ec44e 2010-01-04 rsc for(i = 0; i<kNTracks; ++i) {
1012 100ec44e 2010-01-04 rsc tracks[i].id = -1;
1016 100ec44e 2010-01-04 rsc osx.active = active;
1020 100ec44e 2010-01-04 rsc fullscreen(int wascmd)
1022 100ec44e 2010-01-04 rsc static OSXRect oldrect;
1023 100ec44e 2010-01-04 rsc GDHandle device;
1024 100ec44e 2010-01-04 rsc OSXRect dr;
1026 100ec44e 2010-01-04 rsc if(!wascmd)
1029 100ec44e 2010-01-04 rsc if(!osx.isfullscreen){
1030 100ec44e 2010-01-04 rsc GetWindowGreatestAreaDevice(osx.window,
1031 100ec44e 2010-01-04 rsc kWindowTitleBarRgn, &device, nil);
1032 100ec44e 2010-01-04 rsc dr = (*device)->gdRect;
1033 100ec44e 2010-01-04 rsc if(dr.top == 0 && dr.left == 0)
1034 100ec44e 2010-01-04 rsc HideMenuBar();
1035 100ec44e 2010-01-04 rsc GetWindowBounds(osx.window, kWindowContentRgn, &oldrect);
1036 100ec44e 2010-01-04 rsc ChangeWindowAttributes(osx.window,
1037 100ec44e 2010-01-04 rsc kWindowNoTitleBarAttribute,
1038 100ec44e 2010-01-04 rsc kWindowResizableAttribute);
1039 100ec44e 2010-01-04 rsc MoveWindow(osx.window, 0, 0, 1);
1040 100ec44e 2010-01-04 rsc MoveWindow(osx.window, dr.left, dr.top, 0);
1041 100ec44e 2010-01-04 rsc SizeWindow(osx.window,
1042 100ec44e 2010-01-04 rsc dr.right - dr.left,
1043 100ec44e 2010-01-04 rsc dr.bottom - dr.top, 0);
1044 100ec44e 2010-01-04 rsc osx.isfullscreen = 1;
1046 100ec44e 2010-01-04 rsc ShowMenuBar();
1047 100ec44e 2010-01-04 rsc ChangeWindowAttributes(osx.window,
1048 100ec44e 2010-01-04 rsc kWindowResizableAttribute,
1049 100ec44e 2010-01-04 rsc kWindowNoTitleBarAttribute);
1050 100ec44e 2010-01-04 rsc SizeWindow(osx.window,
1051 100ec44e 2010-01-04 rsc oldrect.right - oldrect.left,
1052 100ec44e 2010-01-04 rsc oldrect.bottom - oldrect.top, 0);
1053 100ec44e 2010-01-04 rsc MoveWindow(osx.window, oldrect.left, oldrect.top, 0);
1054 100ec44e 2010-01-04 rsc osx.isfullscreen = 0;
1056 100ec44e 2010-01-04 rsc eresized(1);
1060 100ec44e 2010-01-04 rsc setmouse(Point p)
1062 100ec44e 2010-01-04 rsc CGPoint cgp;
1064 100ec44e 2010-01-04 rsc cgp.x = p.x + osx.screenr.min.x;
1065 100ec44e 2010-01-04 rsc cgp.y = p.y + osx.screenr.min.y;
1066 100ec44e 2010-01-04 rsc CGWarpMouseCursorPosition(cgp);
1067 100ec44e 2010-01-04 rsc osx.xy = p;
1071 100ec44e 2010-01-04 rsc setcursor(Cursor *c)
1073 100ec44e 2010-01-04 rsc OSXCursor oc;
1076 100ec44e 2010-01-04 rsc if(c == nil){
1077 100ec44e 2010-01-04 rsc InitCursor();
1081 100ec44e 2010-01-04 rsc // SetCursor is deprecated, but what replaces it?
1082 100ec44e 2010-01-04 rsc for(i=0; i<16; i++){
1083 100ec44e 2010-01-04 rsc oc.data[i] = ((ushort*)c->set)[i];
1084 100ec44e 2010-01-04 rsc oc.mask[i] = oc.data[i] | ((ushort*)c->clr)[i];
1086 100ec44e 2010-01-04 rsc oc.hotSpot.h = - c->offset.x;
1087 100ec44e 2010-01-04 rsc oc.hotSpot.v = - c->offset.y;
1088 100ec44e 2010-01-04 rsc SetCursor(&oc);
1092 100ec44e 2010-01-04 rsc getcolor(ulong i, ulong *r, ulong *g, ulong *b)
1097 100ec44e 2010-01-04 rsc *r = (v>>16)&0xFF;
1098 100ec44e 2010-01-04 rsc *g = (v>>8)&0xFF;
1099 100ec44e 2010-01-04 rsc *b = v&0xFF;
1103 100ec44e 2010-01-04 rsc setcolor(ulong i, ulong r, ulong g, ulong b)
1105 100ec44e 2010-01-04 rsc /* no-op */
1111 100ec44e 2010-01-04 rsc hwdraw(Memdrawparam *p)
1118 100ec44e 2010-01-04 rsc char buf[SnarfSize];
1119 100ec44e 2010-01-04 rsc Rune rbuf[SnarfSize];
1120 100ec44e 2010-01-04 rsc PasteboardRef apple;
1124 100ec44e 2010-01-04 rsc getsnarf(void)
1127 100ec44e 2010-01-04 rsc CFArrayRef flavors;
1128 100ec44e 2010-01-04 rsc CFDataRef data;
1129 100ec44e 2010-01-04 rsc CFIndex nflavor, ndata, j;
1130 100ec44e 2010-01-04 rsc CFStringRef type;
1131 100ec44e 2010-01-04 rsc ItemCount nitem;
1132 100ec44e 2010-01-04 rsc PasteboardItemID id;
1133 100ec44e 2010-01-04 rsc PasteboardSyncFlags flags;
1139 100ec44e 2010-01-04 rsc /* fprint(2, "applegetsnarf\n"); */
1140 100ec44e 2010-01-04 rsc qlock(&clip.lk);
1141 100ec44e 2010-01-04 rsc clip.apple = osx.snarf;
1142 100ec44e 2010-01-04 rsc if(clip.apple == nil){
1143 100ec44e 2010-01-04 rsc if(PasteboardCreate(kPasteboardClipboard, &clip.apple) != noErr){
1144 100ec44e 2010-01-04 rsc fprint(2, "apple pasteboard create failed\n");
1145 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1146 100ec44e 2010-01-04 rsc return nil;
1149 100ec44e 2010-01-04 rsc flags = PasteboardSynchronize(clip.apple);
1150 100ec44e 2010-01-04 rsc if(flags&kPasteboardClientIsOwner){
1151 100ec44e 2010-01-04 rsc s = strdup(clip.buf);
1152 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1155 100ec44e 2010-01-04 rsc if(PasteboardGetItemCount(clip.apple, &nitem) != noErr){
1156 100ec44e 2010-01-04 rsc fprint(2, "apple pasteboard get item count failed\n");
1157 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1158 100ec44e 2010-01-04 rsc return nil;
1160 100ec44e 2010-01-04 rsc for(i=1; i<=nitem; i++){
1161 100ec44e 2010-01-04 rsc if(PasteboardGetItemIdentifier(clip.apple, i, &id) != noErr)
1163 100ec44e 2010-01-04 rsc if(PasteboardCopyItemFlavors(clip.apple, id, &flavors) != noErr)
1165 100ec44e 2010-01-04 rsc nflavor = CFArrayGetCount(flavors);
1166 100ec44e 2010-01-04 rsc for(j=0; j<nflavor; j++){
1167 100ec44e 2010-01-04 rsc type = (CFStringRef)CFArrayGetValueAtIndex(flavors, j);
1168 100ec44e 2010-01-04 rsc if(!UTTypeConformsTo(type, CFSTR("public.utf16-plain-text")))
1170 100ec44e 2010-01-04 rsc if(PasteboardCopyItemFlavorData(clip.apple, id, type, &data) != noErr)
1172 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1173 100ec44e 2010-01-04 rsc ndata = CFDataGetLength(data)/2;
1174 100ec44e 2010-01-04 rsc u = (u16int*)CFDataGetBytePtr(data);
1175 100ec44e 2010-01-04 rsc fmtstrinit(&fmt);
1176 100ec44e 2010-01-04 rsc // decode utf-16. what was apple thinking?
1177 100ec44e 2010-01-04 rsc for(i=0; i<ndata; i++) {
1179 100ec44e 2010-01-04 rsc if(0xd800 <= r && r < 0xdc00 && i+1 < ndata && 0xdc00 <= u[i+1] && u[i+1] < 0xe000) {
1180 100ec44e 2010-01-04 rsc r = (((r - 0xd800)<<10) | (u[i+1] - 0xdc00)) + 0x10000;
1183 100ec44e 2010-01-04 rsc else if(0xd800 <= r && r < 0xe000)
1184 100ec44e 2010-01-04 rsc r = Runeerror;
1185 100ec44e 2010-01-04 rsc if(r == '\r')
1187 100ec44e 2010-01-04 rsc fmtrune(&fmt, r);
1189 100ec44e 2010-01-04 rsc CFRelease(flavors);
1190 100ec44e 2010-01-04 rsc CFRelease(data);
1191 100ec44e 2010-01-04 rsc return fmtstrflush(&fmt);
1193 100ec44e 2010-01-04 rsc CFRelease(flavors);
1195 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1196 100ec44e 2010-01-04 rsc return nil;
1200 100ec44e 2010-01-04 rsc putsnarf(char *s)
1202 100ec44e 2010-01-04 rsc CFDataRef cfdata;
1203 100ec44e 2010-01-04 rsc PasteboardSyncFlags flags;
1204 100ec44e 2010-01-04 rsc u16int *u, *p;
1208 100ec44e 2010-01-04 rsc /* fprint(2, "appleputsnarf\n"); */
1210 100ec44e 2010-01-04 rsc if(strlen(s) >= SnarfSize)
1212 100ec44e 2010-01-04 rsc qlock(&clip.lk);
1213 100ec44e 2010-01-04 rsc strcpy(clip.buf, s);
1214 100ec44e 2010-01-04 rsc runesnprint(clip.rbuf, nelem(clip.rbuf), "%s", s);
1215 100ec44e 2010-01-04 rsc clip.apple = osx.snarf;
1216 100ec44e 2010-01-04 rsc if(PasteboardClear(clip.apple) != noErr){
1217 100ec44e 2010-01-04 rsc fprint(2, "apple pasteboard clear failed\n");
1218 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1221 100ec44e 2010-01-04 rsc flags = PasteboardSynchronize(clip.apple);
1222 100ec44e 2010-01-04 rsc if((flags&kPasteboardModified) || !(flags&kPasteboardClientIsOwner)){
1223 100ec44e 2010-01-04 rsc fprint(2, "apple pasteboard cannot assert ownership\n");
1224 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1227 100ec44e 2010-01-04 rsc u = malloc(runestrlen(clip.rbuf)*4);
1229 100ec44e 2010-01-04 rsc for(i=0; clip.rbuf[i]; i++) {
1230 100ec44e 2010-01-04 rsc r = clip.rbuf[i];
1231 100ec44e 2010-01-04 rsc // convert to utf-16
1232 100ec44e 2010-01-04 rsc if(0xd800 <= r && r < 0xe000)
1233 100ec44e 2010-01-04 rsc r = Runeerror;
1234 100ec44e 2010-01-04 rsc if(r >= 0x10000) {
1235 100ec44e 2010-01-04 rsc r -= 0x10000;
1236 100ec44e 2010-01-04 rsc *p++ = 0xd800 + (r>>10);
1237 100ec44e 2010-01-04 rsc *p++ = 0xdc00 + (r & ((1<<10)-1));
1241 100ec44e 2010-01-04 rsc cfdata = CFDataCreate(kCFAllocatorDefault,
1242 100ec44e 2010-01-04 rsc (uchar*)u, (p-u)*2);
1244 100ec44e 2010-01-04 rsc if(cfdata == nil){
1245 100ec44e 2010-01-04 rsc fprint(2, "apple pasteboard cfdatacreate failed\n");
1246 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1249 100ec44e 2010-01-04 rsc if(PasteboardPutItemFlavor(clip.apple, (PasteboardItemID)1,
1250 100ec44e 2010-01-04 rsc CFSTR("public.utf16-plain-text"), cfdata, 0) != noErr){
1251 100ec44e 2010-01-04 rsc fprint(2, "apple pasteboard putitem failed\n");
1252 100ec44e 2010-01-04 rsc CFRelease(cfdata);
1253 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1256 100ec44e 2010-01-04 rsc CFRelease(cfdata);
1257 100ec44e 2010-01-04 rsc qunlock(&clip.lk);
1261 100ec44e 2010-01-04 rsc setlabel(char *label)
1263 100ec44e 2010-01-04 rsc CFStringRef cs;
1265 100ec44e 2010-01-04 rsc cs = CFStringCreateWithBytes(nil, (uchar*)label, strlen(label), kCFStringEncodingUTF8, false);
1266 100ec44e 2010-01-04 rsc SetWindowTitleWithCFString(osx.window, cs);
1267 100ec44e 2010-01-04 rsc CFRelease(cs);
1271 100ec44e 2010-01-04 rsc kicklabel(char *label)
1274 100ec44e 2010-01-04 rsc EventRef e;
1276 100ec44e 2010-01-04 rsc p = strdup(label);
1277 100ec44e 2010-01-04 rsc if(p == nil)
1279 100ec44e 2010-01-04 rsc qlock(&osx.labellock);
1280 100ec44e 2010-01-04 rsc free(osx.label);
1281 100ec44e 2010-01-04 rsc osx.label = p;
1282 100ec44e 2010-01-04 rsc qunlock(&osx.labellock);
1284 100ec44e 2010-01-04 rsc CreateEvent(nil, 'P9PE', P9PEventLabelUpdate, 0, kEventAttributeUserEvent, &e);
1285 100ec44e 2010-01-04 rsc PostEventToQueue(GetMainEventQueue(), e, kEventPriorityStandard);
1289 100ec44e 2010-01-04 rsc static void
1290 100ec44e 2010-01-04 rsc seticon(void)
1292 100ec44e 2010-01-04 rsc CGImageRef im;
1293 100ec44e 2010-01-04 rsc CGDataProviderRef d;
1295 100ec44e 2010-01-04 rsc d = CGDataProviderCreateWithData(nil, glenda_png, sizeof glenda_png, nil);
1296 100ec44e 2010-01-04 rsc im = CGImageCreateWithPNGDataProvider(d, nil, true, kCGRenderingIntentDefault);
1298 100ec44e 2010-01-04 rsc SetApplicationDockTileImage(im);
1299 100ec44e 2010-01-04 rsc CGImageRelease(im);
1300 100ec44e 2010-01-04 rsc CGDataProviderRelease(d);
