/* * tkMacOSXEvent.c -- * * This file contains the basic Mac OS X Event handling routines. * * Copyright (c) 1995-1997 Sun Microsystems, Inc. * Copyright 2001, Apple Computer, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * RCS: @(#) $Id: tkMacOSXEvent.c,v 1.3.2.2 2005/08/09 07:39:55 das Exp $ */ #include #include "tkMacOSXInt.h" #include "tkMacOSXEvent.h" #include "tkMacOSXDebug.h" /* * Enable this define to get debug printing for events not handled. */ /*#define TK_MAC_DEBUG 1 */ /* * Forward declarations of procedures used in this file. */ static int TkMacOSXProcessAppleEvent( TkMacOSXEvent * eventPtr, MacEventStatus * statusPtr); static int ReceiveAndProcessEvent (void); /* * Global data used in this file. */ static EventTargetRef targetRef; /* *---------------------------------------------------------------------- * * tkMacOSXFlushWindows -- * * This routine flushes all the Carbon windows of the application. It * is called by the setup procedure for the Tcl/Carbon event source. * * Results: * None. * * Side effects: * Flushes all Carbon windows * *---------------------------------------------------------------------- */ void tkMacOSXFlushWindows () { WindowRef wRef = GetWindowList(); while (wRef) { CGrafPtr portPtr = GetWindowPort(wRef); if (QDIsPortBuffered(portPtr)) { QDFlushPortBuffer(portPtr, NULL); } wRef = GetNextWindow(wRef); } } int XSync (Display *display, Bool flag) { tkMacOSXFlushWindows(); display->request++; return 0; } /* *---------------------------------------------------------------------- * * TkMacOSXCountAndProcessMacEvents -- * * This routine receives any Carbon events that are in the queue and * converts them to Tk events. It is called by the event set-up and * check routines * * Results: * The number of events in the queue. * * Side effects: * Tells the Window Manager to deliver events to the event queue of the * current thread. Receives any Carbon events on the queue and converts * them to Tk events. * *---------------------------------------------------------------------- */ int TkMacOSXCountAndProcessMacEvents() { EventQueueRef qPtr; int eventCount; qPtr = GetMainEventQueue(); eventCount = GetNumEventsInQueue(qPtr); if (eventCount) { int n, err; for (n = 0, err = 0;neventRef, &eventRecord )) { err = TkMacOSXDoHLEvent(&eventRecord); if (err != noErr) { char buf1 [ 256 ]; char buf2 [ 256 ]; fprintf(stderr, "TkMacOSXDoHLEvent failed : %s,%s,%d\n", CarbonEventToAscii(eventPtr->eventRef, buf1), ClassicEventToAscii(&eventRecord,buf2), err); statusPtr->err = 1; } } else { statusPtr->err = 1; fprintf(stderr,"ConvertEventRefToEventRecord failed\n"); } return 0; } /* *---------------------------------------------------------------------- * * TkMacOSXProcessEvent -- * * This dispatches a filtered Carbon event to the appropriate handler * * Note on MacEventStatus.stopProcessing: Please be conservative in the * individual handlers and don't assume the event is fully handled * unless you *really* need to ensure that other handlers don't see the * event anymore. Some OS manager or library might be interested in * events even after they are already handled on the Tk level. * * Results: * 0 on success * -1 on failure * * Side effects: * Converts a Carbon event to a Tk event * *---------------------------------------------------------------------- */ int TkMacOSXProcessEvent(TkMacOSXEvent * eventPtr, MacEventStatus * statusPtr) { switch (eventPtr->eClass) { case kEventClassMouse: TkMacOSXProcessMouseEvent(eventPtr, statusPtr); break; case kEventClassWindow: TkMacOSXProcessWindowEvent(eventPtr, statusPtr); break; case kEventClassKeyboard: TkMacOSXProcessKeyboardEvent(eventPtr, statusPtr); break; case kEventClassApplication: TkMacOSXProcessApplicationEvent(eventPtr, statusPtr); break; case kEventClassAppleEvent: TkMacOSXProcessAppleEvent(eventPtr, statusPtr); break; case kEventClassWish: statusPtr->stopProcessing = 1; break; default: #ifdef TK_MAC_DEBUG if (0) { char buf [ 256 ]; fprintf(stderr, "Unrecognised event : %s\n", CarbonEventToAscii(eventPtr->eventRef, buf)); } #endif break; } return 0; } /* *---------------------------------------------------------------------- * * ReceiveAndProcessEvent -- * * This receives a carbon event and converts it to a Tk event * * Results: * 0 on success * Mac OS error number on failure * * Side effects: * This receives the next Carbon event and converts it to the * appropriate Tk event * *---------------------------------------------------------------------- */ 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); macEvent.interp = NULL; 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; } }