static OSStatus
CarbonEventHandlerProc(
EventHandlerCallRef callRef,
EventRef event,
void *userData)
{
OSStatus err = eventNotHandledErr;
TkMacOSXEvent macEvent;
MacEventStatus eventStatus;
macEvent.eventRef = event;
macEvent.eClass = GetEventClass(event);
macEvent.eKind = GetEventKind(event);
macEvent.interp = (Tcl_Interp *) userData;
macEvent.callRef = callRef;
bzero(&eventStatus, sizeof(eventStatus));
#ifdef TK_MAC_DEBUG_CARBON_EVENTS
if (!(macEvent.eClass == kEventClassMouse && (
macEvent.eKind == kEventMouseMoved ||
macEvent.eKind == kEventMouseDragged))) {
TkMacOSXDbgMsg("Started handling %s",
TkMacOSXCarbonEventToAscii(event));
TkMacOSXInitNamedDebugSymbol(HIToolbox, void, _DebugPrintEvent,
EventRef inEvent);
if (_DebugPrintEvent) {
/*
* Carbon-internal event debugging (c.f. Technote 2124)
*/
_DebugPrintEvent(event);
}
}
#endif /* TK_MAC_DEBUG_CARBON_EVENTS */
TkMacOSXProcessEvent(&macEvent,&eventStatus);
if (eventStatus.stopProcessing) {
err = noErr;
}
#ifdef TK_MAC_DEBUG_CARBON_EVENTS
if (macEvent.eKind != kEventMouseMoved &&
macEvent.eKind != kEventMouseDragged) {
TkMacOSXDbgMsg("Finished handling %s: %s handled",
TkMacOSXCarbonEventToAscii(event),
eventStatus.stopProcessing ? " " : "not");
}
#endif /* TK_MAC_DEBUG_CARBON_EVENTS */
return err;
}
static int
ReceiveAndProcessEvent()
{
TkMacOSXEvent macEvent;
MacEventStatus eventStatus;
int err;
char buf [ 256 ];
/*
* This is a poll, since we have already counted the events coming
* into this routine, and are guaranteed to have one waiting.
*/
err = ReceiveNextEvent(0, NULL, kEventDurationNoWait,
true, &macEvent.eventRef);
if (err != noErr) {
return err;
} else {
macEvent.eClass = GetEventClass(macEvent.eventRef);
macEvent.eKind = GetEventKind(macEvent.eventRef);
bzero(&eventStatus, sizeof(eventStatus));
TkMacOSXProcessEvent(&macEvent,&eventStatus);
if (!eventStatus.stopProcessing) {
if (!targetRef) {
targetRef = GetEventDispatcherTarget();
}
err = SendEventToEventTarget(macEvent.eventRef,targetRef);
if (err != noErr
#if !TK_MAC_DEBUG
&& err != eventNotHandledErr
#endif
) {
fprintf(stderr,
"RCNE SendEventToEventTarget (%s) failed, %d\n",
CarbonEventToAscii(macEvent.eventRef, buf),err);
}
}
ReleaseEvent(macEvent.eventRef);
return 0;
}
}
