/*********************************************************** Copyright (c) 1993, Oracle and/or its affiliates. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice (including the next paragraph) shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts. All Rights Reserved Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of Digital not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ******************************************************************/ /* Copyright 1987, 1988, 1998 The Open Group Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Except as contained in this notice, the name of The Open Group shall not be used in advertising or otherwise to promote the sale, use or other dealings in this Software without prior written authorization from The Open Group. */ #ifdef HAVE_CONFIG_H #include #endif #include "IntrinsicI.h" #include "Shell.h" #include "StringDefs.h" typedef struct _XtEventRecExt { int type; XtPointer select_data[1]; /* actual dimension is [mask] */ } XtEventRecExt; #define EXT_TYPE(p) (((XtEventRecExt*) ((p)+1))->type) #define EXT_SELECT_DATA(p,n) (((XtEventRecExt*) ((p)+1))->select_data[n]) #define NonMaskableMask ((EventMask)0x80000000L) /* * These are definitions to make the code that handles exposure compression * easier to read. * * COMP_EXPOSE - The compression exposure field of "widget" * COMP_EXPOSE_TYPE - The type of compression (lower 4 bits of COMP_EXPOSE. * GRAPHICS_EXPOSE - TRUE if the widget wants graphics expose events * dispatched. * NO_EXPOSE - TRUE if the widget wants No expose events dispatched. */ #define COMP_EXPOSE (widget->core.widget_class->core_class.compress_exposure) #define COMP_EXPOSE_TYPE (COMP_EXPOSE & 0x0f) #define GRAPHICS_EXPOSE ((XtExposeGraphicsExpose & COMP_EXPOSE) || \ (XtExposeGraphicsExposeMerged & COMP_EXPOSE)) #define NO_EXPOSE (XtExposeNoExpose & COMP_EXPOSE) EventMask XtBuildEventMask(Widget widget) { EventMask mask = 0L; if (widget != NULL) { XtEventTable ev; WIDGET_TO_APPCON(widget); LOCK_APP(app); for (ev = widget->core.event_table; ev != NULL; ev = ev->next) { if (!ev->select) continue; if (!ev->has_type_specifier) mask |= ev->mask; else { if (EXT_TYPE(ev) < LASTEvent) { Cardinal i; for (i = 0; i < ev->mask; i++) if (EXT_SELECT_DATA(ev, i)) mask |= *(EventMask *) EXT_SELECT_DATA(ev, i); } } } LOCK_PROCESS; if (widget->core.widget_class->core_class.expose != NULL) mask |= ExposureMask; if (widget->core.widget_class->core_class.visible_interest) mask |= VisibilityChangeMask; UNLOCK_PROCESS; if (widget->core.tm.translations) mask |= widget->core.tm.translations->eventMask; mask = mask & ~NonMaskableMask; UNLOCK_APP(app); } return mask; } static void CallExtensionSelector(Widget widget, ExtSelectRec *rec, Boolean forceCall) { XtEventRec *p; XtPointer *data; int *types; Cardinal i, count = 0; for (p = widget->core.event_table; p != NULL; p = p->next) if (p->has_type_specifier && EXT_TYPE(p) >= rec->min && EXT_TYPE(p) <= rec->max) count = (Cardinal) (count + p->mask); if (count == 0 && !forceCall) return; data = (XtPointer *) ALLOCATE_LOCAL(count * sizeof(XtPointer)); types = (int *) ALLOCATE_LOCAL(count * sizeof(int)); count = 0; for (p = widget->core.event_table; p != NULL; p = p->next) if (p->has_type_specifier && EXT_TYPE(p) >= rec->min && EXT_TYPE(p) <= rec->max) for (i = 0; i < p->mask; i++) { types[count] = EXT_TYPE(p); data[count++] = EXT_SELECT_DATA(p, i); } (*rec->proc) (widget, types, data, (int) count, rec->client_data); DEALLOCATE_LOCAL((char *) types); DEALLOCATE_LOCAL((char *) data); } static void RemoveEventHandler(Widget widget, XtPointer select_data, int type, Boolean has_type_specifier, Boolean other, const XtEventHandler proc, const XtPointer closure, Boolean raw) { XtEventRec *p, **pp; EventMask oldMask = XtBuildEventMask(widget); if (raw) raw = 1; pp = &widget->core.event_table; while ((p = *pp) && (p->proc != proc || p->closure != closure || p->select == raw || has_type_specifier != p->has_type_specifier || (has_type_specifier && EXT_TYPE(p) != type))) pp = &p->next; if (!p) return; /* un-register it */ if (!has_type_specifier) { EventMask eventMask = *(EventMask *) select_data; eventMask &= ~NonMaskableMask; if (other) eventMask |= NonMaskableMask; p->mask &= ~eventMask; } else { Cardinal i; /* p->mask specifies count of EXT_SELECT_DATA(p,i) * search through the list of selection data, if not found * don't remove this handler */ for (i = 0; i < p->mask && select_data != EXT_SELECT_DATA(p, i);) i++; if (i == p->mask) return; if (p->mask == 1) p->mask = 0; else { p->mask--; while (i < p->mask) { EXT_SELECT_DATA(p, i) = EXT_SELECT_DATA(p, i + 1); i++; } } } if (!p->mask) { /* delete it entirely */ *pp = p->next; XtFree((char *) p); } /* Reset select mask if realized and not raw. */ if (!raw && XtIsRealized(widget) && !widget->core.being_destroyed) { EventMask mask = XtBuildEventMask(widget); Display *dpy = XtDisplay(widget); if (oldMask != mask) XSelectInput(dpy, XtWindow(widget), (long) mask); if (has_type_specifier) { XtPerDisplay pd = _XtGetPerDisplay(dpy); int i; for (i = 0; i < pd->ext_select_count; i++) { if (type >= pd->ext_select_list[i].min && type <= pd->ext_select_list[i].max) { CallExtensionSelector(widget, pd->ext_select_list + i, TRUE); break; } if (type < pd->ext_select_list[i].min) break; } } } } /* Function Name: AddEventHandler * Description: An Internal routine that does the actual work of * adding the event handlers. * Arguments: widget - widget to register an event handler for. * eventMask - events to mask for. * other - pass non maskable events to this procedure. * proc - procedure to register. * closure - data to pass to the event handler. * position - where to add this event handler. * force_new_position - If the element is already in the * list, this will force it to the * beginning or end depending on position. * raw - If FALSE call XSelectInput for events in mask. * Returns: none */ static void AddEventHandler(Widget widget, XtPointer select_data, int type, Boolean has_type_specifier, Boolean other, XtEventHandler proc, XtPointer closure, XtListPosition position, Boolean force_new_position, Boolean raw) { register XtEventRec *p, **pp; EventMask oldMask = 0, eventMask = 0; if (!has_type_specifier) { eventMask = *(EventMask *) select_data & ~NonMaskableMask; if (other) eventMask |= NonMaskableMask; if (!eventMask) return; } else if (!type) return; if (XtIsRealized(widget) && !raw) oldMask = XtBuildEventMask(widget); if (raw) raw = 1; pp = &widget->core.event_table; while ((p = *pp) && (p->proc != proc || p->closure != closure || p->select == raw || has_type_specifier != p->has_type_specifier || (has_type_specifier && EXT_TYPE(p) != type))) pp = &p->next; if (!p) { /* New proc to add to list */ if (has_type_specifier) { p = (XtEventRec *) __XtMalloc(sizeof(XtEventRec) + sizeof(XtEventRecExt)); EXT_TYPE(p) = type; EXT_SELECT_DATA(p, 0) = select_data; p->mask = 1; p->has_type_specifier = True; } else { p = (XtEventRec *) __XtMalloc(sizeof(XtEventRec)); p->mask = eventMask; p->has_type_specifier = False; } p->proc = proc; p->closure = closure; p->select = !raw; if (position == XtListHead) { p->next = widget->core.event_table; widget->core.event_table = p; } else { *pp = p; p->next = NULL; } } else { if (force_new_position) { *pp = p->next; if (position == XtListHead) { p->next = widget->core.event_table; widget->core.event_table = p; } else { /* * Find the last element in the list. */ while (*pp) pp = &(*pp)->next; *pp = p; p->next = NULL; } } if (!has_type_specifier) p->mask |= eventMask; else { Cardinal i; /* p->mask specifies count of EXT_SELECT_DATA(p,i) */ for (i = 0; i < p->mask && select_data != EXT_SELECT_DATA(p, i);) i++; if (i == p->mask) { p = (XtEventRec *) XtRealloc((char *) p, (Cardinal) (sizeof(XtEventRec) + sizeof(XtEventRecExt) + p->mask * sizeof(XtPointer))); EXT_SELECT_DATA(p, i) = select_data; p->mask++; *pp = p; } } } if (XtIsRealized(widget) && !raw) { EventMask mask = XtBuildEventMask(widget); Display *dpy = XtDisplay(widget); if (oldMask != mask) XSelectInput(dpy, XtWindow(widget), (long) mask); if (has_type_specifier) { XtPerDisplay pd = _XtGetPerDisplay(dpy); int i; for (i = 0; i < pd->ext_select_count; i++) { if (type >= pd->ext_select_list[i].min && type <= pd->ext_select_list[i].max) { CallExtensionSelector(widget, pd->ext_select_list + i, FALSE); break; } if (type < pd->ext_select_list[i].min) break; } } } } void XtRemoveEventHandler(Widget widget, EventMask eventMask, _XtBoolean other, XtEventHandler proc, XtPointer closure) { WIDGET_TO_APPCON(widget); LOCK_APP(app); RemoveEventHandler(widget, (XtPointer) &eventMask, 0, FALSE, (Boolean) other, proc, closure, FALSE); UNLOCK_APP(app); } void XtAddEventHandler(Widget widget, EventMask eventMask, _XtBoolean other, XtEventHandler proc, XtPointer closure) { WIDGET_TO_APPCON(widget); LOCK_APP(app); AddEventHandler(widget, (XtPointer) &eventMask, 0, FALSE, (Boolean) other, proc, closure, XtListTail, FALSE, FALSE); UNLOCK_APP(app); } void XtInsertEventHandler(Widget widget, EventMask eventMask, _XtBoolean other, XtEventHandler proc, XtPointer closure, XtListPosition position) { WIDGET_TO_APPCON(widget); LOCK_APP(app); AddEventHandler(widget, (XtPointer) &eventMask, 0, FALSE, (Boolean) other, proc, closure, position, TRUE, FALSE); UNLOCK_APP(app); } void XtRemoveRawEventHandler(Widget widget, EventMask eventMask, _XtBoolean other, XtEventHandler proc, XtPointer closure) { WIDGET_TO_APPCON(widget); LOCK_APP(app); RemoveEventHandler(widget, (XtPointer) &eventMask, 0, FALSE, (Boolean) other, proc, closure, TRUE); UNLOCK_APP(app); } void XtInsertRawEventHandler(Widget widget, EventMask eventMask, _XtBoolean other, XtEventHandler proc, XtPointer closure, XtListPosition position) { WIDGET_TO_APPCON(widget); LOCK_APP(app); AddEventHandler(widget, (XtPointer) &eventMask, 0, FALSE, (Boolean) other, proc, closure, position, TRUE, TRUE); UNLOCK_APP(app); } void XtAddRawEventHandler(Widget widget, EventMask eventMask, _XtBoolean other, XtEventHandler proc, XtPointer closure) { WIDGET_TO_APPCON(widget); LOCK_APP(app); AddEventHandler(widget, (XtPointer) &eventMask, 0, FALSE, (Boolean) other, proc, closure, XtListTail, FALSE, TRUE); UNLOCK_APP(app); } void XtRemoveEventTypeHandler(Widget widget, int type, XtPointer select_data, XtEventHandler proc, XtPointer closure) { WIDGET_TO_APPCON(widget); LOCK_APP(app); RemoveEventHandler(widget, select_data, type, TRUE, FALSE, proc, closure, FALSE); UNLOCK_APP(app); } void XtInsertEventTypeHandler(Widget widget, int type, XtPointer select_data, XtEventHandler proc, XtPointer closure, XtListPosition position) { WIDGET_TO_APPCON(widget); LOCK_APP(app); AddEventHandler(widget, select_data, type, TRUE, FALSE, proc, closure, position, TRUE, FALSE); UNLOCK_APP(app); } typedef struct _WWPair { struct _WWPair *next; Window window; Widget widget; } *WWPair; typedef struct _WWTable { unsigned int mask; /* size of hash table - 1 */ unsigned int rehash; /* mask - 2 */ unsigned int occupied; /* number of occupied entries */ unsigned int fakes; /* number occupied by WWfake */ Widget *entries; /* the entries */ WWPair pairs; /* bogus entries */ } *WWTable; static const WidgetRec WWfake; /* placeholder for deletions */ #define WWHASH(tab,win) ((win) & tab->mask) #define WWREHASHVAL(tab,win) ((((win) % tab->rehash) + 2) | 1) #define WWREHASH(tab,idx,rehash) ((unsigned)(idx + rehash) & (tab->mask)) #define WWTABLE(display) (_XtGetPerDisplay(display)->WWtable) static void ExpandWWTable(WWTable); void XtRegisterDrawable(Display *display, Drawable drawable, Widget widget) { WWTable tab; int idx; Widget entry; Window window = (Window) drawable; WIDGET_TO_APPCON(widget); LOCK_APP(app); LOCK_PROCESS; tab = WWTABLE(display); if (window != XtWindow(widget)) { WWPair pair; pair = XtNew(struct _WWPair); pair->next = tab->pairs; pair->window = window; pair->widget = widget; tab->pairs = pair; UNLOCK_PROCESS; UNLOCK_APP(app); return; } if ((tab->occupied + (tab->occupied >> 2)) > tab->mask) ExpandWWTable(tab); idx = (int) WWHASH(tab, window); if ((entry = tab->entries[idx]) && entry != &WWfake) { int rehash = (int) WWREHASHVAL(tab, window); do { idx = (int) WWREHASH(tab, idx, rehash); } while ((entry = tab->entries[idx]) && entry != &WWfake); } if (!entry) tab->occupied++; else if (entry == &WWfake) tab->fakes--; tab->entries[idx] = widget; UNLOCK_PROCESS; UNLOCK_APP(app); } void XtUnregisterDrawable(Display *display, Drawable drawable) { WWTable tab; int idx; Widget entry; Window window = (Window) drawable; Widget widget = XtWindowToWidget(display, window); DPY_TO_APPCON(display); if (widget == NULL) return; LOCK_APP(app); LOCK_PROCESS; tab = WWTABLE(display); if (window != XtWindow(widget)) { WWPair *prev, pair; prev = &tab->pairs; while ((pair = *prev) && pair->window != window) prev = &pair->next; if (pair) { *prev = pair->next; XtFree((char *) pair); } UNLOCK_PROCESS; UNLOCK_APP(app); return; } idx = (int) WWHASH(tab, window); if ((entry = tab->entries[idx])) { if (entry != widget) { int rehash = (int) WWREHASHVAL(tab, window); do { idx = (int) WWREHASH(tab, idx, rehash); if (!(entry = tab->entries[idx])) { UNLOCK_PROCESS; UNLOCK_APP(app); return; } } while (entry != widget); } tab->entries[idx] = (Widget) &WWfake; tab->fakes++; } UNLOCK_PROCESS; UNLOCK_APP(app); } static void ExpandWWTable(register WWTable tab) { unsigned int oldmask; register Widget *oldentries, *entries; register Cardinal oldidx, newidx, rehash; register Widget entry; LOCK_PROCESS; oldmask = tab->mask; oldentries = tab->entries; tab->occupied -= tab->fakes; tab->fakes = 0; if ((tab->occupied + (tab->occupied >> 2)) > tab->mask) { tab->mask = (tab->mask << 1) + 1; tab->rehash = tab->mask - 2; } entries = tab->entries = (Widget *) __XtCalloc(tab->mask + 1, sizeof(Widget)); for (oldidx = 0; oldidx <= oldmask; oldidx++) { if ((entry = oldentries[oldidx]) && entry != &WWfake) { newidx = (Cardinal) WWHASH(tab, XtWindow(entry)); if (entries[newidx]) { rehash = (Cardinal) WWREHASHVAL(tab, XtWindow(entry)); do { newidx = (Cardinal) WWREHASH(tab, newidx, rehash); } while (entries[newidx]); } entries[newidx] = entry; } } XtFree((char *) oldentries); UNLOCK_PROCESS; } Widget XtWindowToWidget(register Display *display, register Window window) { WWTable tab; int idx; Widget entry; WWPair pair; DPY_TO_APPCON(display); if (!window) return NULL; LOCK_APP(app); LOCK_PROCESS; tab = WWTABLE(display); idx = (int) WWHASH(tab, window); if ((entry = tab->entries[idx]) && XtWindow(entry) != window) { int rehash = (int) WWREHASHVAL(tab, window); do { idx = (int) WWREHASH(tab, idx, rehash); } while ((entry = tab->entries[idx]) && XtWindow(entry) != window); } if (entry) { UNLOCK_PROCESS; UNLOCK_APP(app); return entry; } for (pair = tab->pairs; pair; pair = pair->next) { if (pair->window == window) { entry = pair->widget; UNLOCK_PROCESS; UNLOCK_APP(app); return entry; } } UNLOCK_PROCESS; UNLOCK_APP(app); return NULL; } void _XtAllocWWTable(XtPerDisplay pd) { register WWTable tab; tab = (WWTable) __XtMalloc(sizeof(struct _WWTable)); tab->mask = 0x7f; tab->rehash = tab->mask - 2; tab->entries = (Widget *) __XtCalloc(tab->mask + 1, sizeof(Widget)); tab->occupied = 0; tab->fakes = 0; tab->pairs = NULL; pd->WWtable = tab; } void _XtFreeWWTable(register XtPerDisplay pd) { register WWPair pair, next; for (pair = pd->WWtable->pairs; pair; pair = next) { next = pair->next; XtFree((char *) pair); } XtFree((char *) pd->WWtable->entries); XtFree((char *) pd->WWtable); } #define EHMAXSIZE 25 /* do not make whopping big */ static Boolean CallEventHandlers(Widget widget, XEvent *event, EventMask mask) { register XtEventRec *p; XtEventHandler *proc; XtPointer *closure; Boolean cont_to_disp = True; int i, numprocs; /* Have to copy the procs into an array, because one of them might * call XtRemoveEventHandler, which would break our linked list. */ numprocs = 0; for (p = widget->core.event_table; p; p = p->next) { if ((!p->has_type_specifier && (mask & p->mask)) || (p->has_type_specifier && event->type == EXT_TYPE(p))) numprocs++; } proc = XtMallocArray((Cardinal) numprocs, (Cardinal) (sizeof(XtEventHandler) + sizeof(XtPointer))); closure = (XtPointer *) (proc + numprocs); numprocs = 0; for (p = widget->core.event_table; p; p = p->next) { if ((!p->has_type_specifier && (mask & p->mask)) || (p->has_type_specifier && event->type == EXT_TYPE(p))) { proc[numprocs] = p->proc; closure[numprocs] = p->closure; numprocs++; } } /* FUNCTIONS CALLED THROUGH POINTER proc: Selection.c:ReqCleanup, "Shell.c":EventHandler, PassivGrab.c:ActiveHandler, PassivGrab.c:RealizeHandler, Keyboard.c:QueryEventMask, _XtHandleFocus, Selection.c:HandleSelectionReplies, Selection.c:HandleGetIncrement, Selection.c:HandleIncremental, Selection.c:HandlePropertyGone, Selection.c:HandleSelectionEvents */ for (i = 0; i < numprocs && cont_to_disp; i++) (*(proc[i])) (widget, closure[i], event, &cont_to_disp); XtFree((char *) proc); return cont_to_disp; } static void CompressExposures(XEvent *, Widget); #define KnownButtons (Button1MotionMask|Button2MotionMask|Button3MotionMask|\ Button4MotionMask|Button5MotionMask) /* keep this SMALL to avoid blowing stack cache! */ /* because some compilers allocate all local locals on procedure entry */ #define EHSIZE 4 Boolean XtDispatchEventToWidget(Widget widget, XEvent *event) { register XtEventRec *p; Boolean was_dispatched = False; Boolean call_tm = False; Boolean cont_to_disp; EventMask mask; WIDGET_TO_APPCON(widget); LOCK_APP(app); mask = _XtConvertTypeToMask(event->type); if (event->type == MotionNotify) mask |= (event->xmotion.state & KnownButtons); LOCK_PROCESS; if ((mask == ExposureMask) || ((event->type == NoExpose) && NO_EXPOSE) || ((event->type == GraphicsExpose) && GRAPHICS_EXPOSE)) { if (widget->core.widget_class->core_class.expose != NULL) { /* We need to mask off the bits that could contain the information * about whether or not we desire Graphics and NoExpose events. */ if ((COMP_EXPOSE_TYPE == XtExposeNoCompress) || (event->type == NoExpose)) (*widget->core.widget_class->core_class.expose) (widget, event, (Region) NULL); else { CompressExposures(event, widget); } was_dispatched = True; } } if ((mask == VisibilityChangeMask) && XtClass(widget)->core_class.visible_interest) { was_dispatched = True; /* our visibility just changed... */ switch (((XVisibilityEvent *) event)->state) { case VisibilityUnobscured: widget->core.visible = TRUE; break; case VisibilityPartiallyObscured: /* what do we want to say here? */ /* well... some of us is visible */ widget->core.visible = TRUE; break; case VisibilityFullyObscured: widget->core.visible = FALSE; /* do we want to mark our children obscured? */ break; } } UNLOCK_PROCESS; /* to maintain "copy" semantics we check TM now but call later */ if (widget->core.tm.translations && (mask & widget->core.tm.translations->eventMask)) call_tm = True; cont_to_disp = True; p = widget->core.event_table; if (p) { if (p->next) { XtEventHandler proc[EHSIZE]; XtPointer closure[EHSIZE]; int numprocs = 0; /* Have to copy the procs into an array, because one of them might * call XtRemoveEventHandler, which would break our linked list. */ for (; p; p = p->next) { if ((!p->has_type_specifier && (mask & p->mask)) || (p->has_type_specifier && event->type == EXT_TYPE(p))) { if (numprocs >= EHSIZE) break; proc[numprocs] = p->proc; closure[numprocs] = p->closure; numprocs++; } } if (numprocs) { if (p) { cont_to_disp = CallEventHandlers(widget, event, mask); } else { int i; for (i = 0; i < numprocs && cont_to_disp; i++) (*(proc[i])) (widget, closure[i], event, &cont_to_disp); /* FUNCTIONS CALLED THROUGH POINTER proc: Selection.c:ReqCleanup, "Shell.c":EventHandler, PassivGrab.c:ActiveHandler, PassivGrab.c:RealizeHandler, Keyboard.c:QueryEventMask, _XtHandleFocus, Selection.c:HandleSelectionReplies, Selection.c:HandleGetIncrement, Selection.c:HandleIncremental, Selection.c:HandlePropertyGone, Selection.c:HandleSelectionEvents */ } was_dispatched = True; } } else if ((!p->has_type_specifier && (mask & p->mask)) || (p->has_type_specifier && event->type == EXT_TYPE(p))) { (*p->proc) (widget, p->closure, event, &cont_to_disp); was_dispatched = True; } } if (call_tm && cont_to_disp) _XtTranslateEvent(widget, event); UNLOCK_APP(app); return (was_dispatched | call_tm); } /* * This structure is passed into the check exposure proc. */ typedef struct _CheckExposeInfo { int type1, type2; /* Types of events to check for. */ Boolean maximal; /* Ignore non-exposure events? */ Boolean non_matching; /* Was there an event that did not match either type? */ Window window; /* Window to match. */ } CheckExposeInfo; #define GetCount(ev) (((XExposeEvent *)(ev))->count) static void SendExposureEvent(XEvent *, Widget, XtPerDisplay); static Bool CheckExposureEvent(Display *, XEvent *, char *); static void AddExposureToRectangularRegion(XEvent *, Region); /* Function Name: CompressExposures * Description: Handles all exposure compression * Arguments: event - the xevent that is to be dispatched * widget - the widget that this event occurred in. * Returns: none. * * NOTE: Event must be of type Expose or GraphicsExpose. */ static void CompressExposures(XEvent *event, Widget widget) { CheckExposeInfo info; int count; Display *dpy = XtDisplay(widget); XtPerDisplay pd = _XtGetPerDisplay(dpy); XtEnum comp_expose; XtEnum comp_expose_type; Boolean no_region; LOCK_PROCESS; comp_expose = COMP_EXPOSE; UNLOCK_PROCESS; comp_expose_type = comp_expose & 0x0f; no_region = ((comp_expose & XtExposeNoRegion) ? True : False); if (no_region) AddExposureToRectangularRegion(event, pd->region); else XtAddExposureToRegion(event, pd->region); if (GetCount(event) != 0) return; if ((comp_expose_type == XtExposeCompressSeries) || (XEventsQueued(dpy, QueuedAfterReading) == 0)) { SendExposureEvent(event, widget, pd); return; } if (comp_expose & XtExposeGraphicsExposeMerged) { info.type1 = Expose; info.type2 = GraphicsExpose; } else { info.type1 = event->type; info.type2 = 0; } info.maximal = (comp_expose_type == XtExposeCompressMaximal); info.non_matching = FALSE; info.window = XtWindow(widget); /* * We have to be very careful here not to hose down the processor * when blocking until count gets to zero. * * First, check to see if there are any events in the queue for this * widget, and of the correct type. * * Once we cannot find any more events, check to see that count is zero. * If it is not then block until we get another exposure event. * * If we find no more events, and count on the last one we saw was zero we * we can be sure that all events have been processed. * * Unfortunately, we wind up having to look at the entire queue * event if we're not doing Maximal compression, due to the * semantics of XCheckIfEvent (we can't abort without re-ordering * the event queue as a side-effect). */ count = 0; while (TRUE) { XEvent event_return; if (XCheckIfEvent(dpy, &event_return, CheckExposureEvent, (char *) &info)) { count = GetCount(&event_return); if (no_region) AddExposureToRectangularRegion(&event_return, pd->region); else XtAddExposureToRegion(&event_return, pd->region); } else if (count != 0) { XIfEvent(dpy, &event_return, CheckExposureEvent, (char *) &info); count = GetCount(&event_return); if (no_region) AddExposureToRectangularRegion(&event_return, pd->region); else XtAddExposureToRegion(&event_return, pd->region); } else /* count == 0 && XCheckIfEvent Failed. */ break; } SendExposureEvent(event, widget, pd); } void XtAddExposureToRegion(XEvent *event, Region region) { XRectangle rect; XExposeEvent *ev = (XExposeEvent *) event; /* These Expose and GraphicsExpose fields are at identical offsets */ if (event->type == Expose || event->type == GraphicsExpose) { rect.x = (Position) ev->x; rect.y = (Position) ev->y; rect.width = (Dimension) ev->width; rect.height = (Dimension) ev->height; XUnionRectWithRegion(&rect, region, region); } } #ifndef MAX #define MAX(a,b) (((a) > (b)) ? (a) : (b)) #endif #ifndef MIN #define MIN(a,b) (((a) < (b)) ? (a) : (b)) #endif static void AddExposureToRectangularRegion(XEvent *event, /* when called internally, type is always appropriate */ Region region) { XRectangle rect; XExposeEvent *ev = (XExposeEvent *) event; /* These Expose and GraphicsExpose fields are at identical offsets */ rect.x = (Position) ev->x; rect.y = (Position) ev->y; rect.width = (Dimension) ev->width; rect.height = (Dimension) ev->height; if (XEmptyRegion(region)) { XUnionRectWithRegion(&rect, region, region); } else { XRectangle merged, bbox; XClipBox(region, &bbox); merged.x = MIN(rect.x, bbox.x); merged.y = MIN(rect.y, bbox.y); merged.width = (unsigned short) (MAX(rect.x + rect.width, bbox.x + bbox.width) - merged.x); merged.height = (unsigned short) (MAX(rect.y + rect.height, bbox.y + bbox.height) - merged.y); XUnionRectWithRegion(&merged, region, region); } } static Region nullRegion; /* READ-ONLY VARIABLES: nullRegion */ void _XtEventInitialize(void) { #ifndef __lock_lint nullRegion = XCreateRegion(); #endif } /* Function Name: SendExposureEvent * Description: Sets the x, y, width, and height of the event * to be the clip box of Expose Region. * Arguments: event - the X Event to mangle; Expose or GraphicsExpose. * widget - the widget that this event occurred in. * pd - the per display information for this widget. * Returns: none. */ static void SendExposureEvent(XEvent *event, Widget widget, XtPerDisplay pd) { XtExposeProc expose; XRectangle rect; XtEnum comp_expose; XExposeEvent *ev = (XExposeEvent *) event; XClipBox(pd->region, &rect); ev->x = rect.x; ev->y = rect.y; ev->width = rect.width; ev->height = rect.height; LOCK_PROCESS; comp_expose = COMP_EXPOSE; expose = widget->core.widget_class->core_class.expose; UNLOCK_PROCESS; if (comp_expose & XtExposeNoRegion) (*expose) (widget, event, NULL); else (*expose) (widget, event, pd->region); (void) XIntersectRegion(nullRegion, pd->region, pd->region); } /* Function Name: CheckExposureEvent * Description: Checks the event queue for an expose event * Arguments: display - the display connection. * event - the event to check. * arg - a pointer to the exposure info structure. * Returns: TRUE if we found an event of the correct type * with the right window. * * NOTE: The only valid types (info.type1 and info.type2) are Expose * and GraphicsExpose. */ static Bool CheckExposureEvent(Display *disp _X_UNUSED, XEvent *event, char *arg) { CheckExposeInfo *info = ((CheckExposeInfo *) arg); if ((info->type1 == event->type) || (info->type2 == event->type)) { if (!info->maximal && info->non_matching) return FALSE; if (event->type == GraphicsExpose) return (event->xgraphicsexpose.drawable == info->window); return (event->xexpose.window == info->window); } info->non_matching = TRUE; return (FALSE); } static EventMask const masks[] = { 0, /* Error, should never see */ 0, /* Reply, should never see */ KeyPressMask, /* KeyPress */ KeyReleaseMask, /* KeyRelease */ ButtonPressMask, /* ButtonPress */ ButtonReleaseMask, /* ButtonRelease */ PointerMotionMask /* MotionNotify */ | ButtonMotionMask, EnterWindowMask, /* EnterNotify */ LeaveWindowMask, /* LeaveNotify */ FocusChangeMask, /* FocusIn */ FocusChangeMask, /* FocusOut */ KeymapStateMask, /* KeymapNotify */ ExposureMask, /* Expose */ NonMaskableMask, /* GraphicsExpose, in GC */ NonMaskableMask, /* NoExpose, in GC */ VisibilityChangeMask, /* VisibilityNotify */ SubstructureNotifyMask, /* CreateNotify */ StructureNotifyMask /* DestroyNotify */ | SubstructureNotifyMask, StructureNotifyMask /* UnmapNotify */ | SubstructureNotifyMask, StructureNotifyMask /* MapNotify */ | SubstructureNotifyMask, SubstructureRedirectMask, /* MapRequest */ StructureNotifyMask /* ReparentNotify */ | SubstructureNotifyMask, StructureNotifyMask /* ConfigureNotify */ | SubstructureNotifyMask, SubstructureRedirectMask, /* ConfigureRequest */ StructureNotifyMask /* GravityNotify */ | SubstructureNotifyMask, ResizeRedirectMask, /* ResizeRequest */ StructureNotifyMask /* CirculateNotify */ | SubstructureNotifyMask, SubstructureRedirectMask, /* CirculateRequest */ PropertyChangeMask, /* PropertyNotify */ NonMaskableMask, /* SelectionClear */ NonMaskableMask, /* SelectionRequest */ NonMaskableMask, /* SelectionNotify */ ColormapChangeMask, /* ColormapNotify */ NonMaskableMask, /* ClientMessage */ NonMaskableMask /* MappingNotify */ }; EventMask _XtConvertTypeToMask(int eventType) { if ((Cardinal) eventType < XtNumber(masks)) return masks[eventType]; else return NoEventMask; } Boolean _XtOnGrabList(register Widget widget, XtGrabRec *grabList) { register XtGrabRec *gl; for (; widget != NULL; widget = (Widget) widget->core.parent) { for (gl = grabList; gl != NULL; gl = gl->next) { if (gl->widget == widget) return TRUE; if (gl->exclusive) break; } } return FALSE; } static Widget LookupSpringLoaded(XtGrabList grabList) { XtGrabList gl; for (gl = grabList; gl != NULL; gl = gl->next) { if (gl->spring_loaded) { if (XtIsSensitive(gl->widget)) return gl->widget; else return NULL; } if (gl->exclusive) break; } return NULL; } static Boolean DispatchEvent(XEvent *event, Widget widget) { if (event->type == EnterNotify && event->xcrossing.mode == NotifyNormal && widget->core.widget_class->core_class.compress_enterleave) { if (XPending(event->xcrossing.display)) { XEvent nextEvent; XPeekEvent(event->xcrossing.display, &nextEvent); if (nextEvent.type == LeaveNotify && event->xcrossing.window == nextEvent.xcrossing.window && nextEvent.xcrossing.mode == NotifyNormal && ((event->xcrossing.detail != NotifyInferior && nextEvent.xcrossing.detail != NotifyInferior) || (event->xcrossing.detail == NotifyInferior && nextEvent.xcrossing.detail == NotifyInferior))) { /* skip the enter/leave pair */ XNextEvent(event->xcrossing.display, &nextEvent); return False; } } } if (event->type == MotionNotify && widget->core.widget_class->core_class.compress_motion) { while (XPending(event->xmotion.display)) { XEvent nextEvent; XPeekEvent(event->xmotion.display, &nextEvent); if (nextEvent.type == MotionNotify && event->xmotion.window == nextEvent.xmotion.window && event->xmotion.subwindow == nextEvent.xmotion.subwindow) { /* replace the current event with the next one */ XNextEvent(event->xmotion.display, event); } else break; } } return XtDispatchEventToWidget(widget, event); } typedef enum _GrabType { pass, ignore, remap } GrabType; #if !defined(AIXSHLIB) static /* AIX shared libraries are broken */ #endif Boolean _XtDefaultDispatcher(XEvent *event) { register Widget widget; GrabType grabType; XtPerDisplayInput pdi; XtGrabList grabList; Boolean was_dispatched = False; DPY_TO_APPCON(event->xany.display); /* the default dispatcher discards all extension events */ if (event->type >= LASTEvent) return False; LOCK_APP(app); switch (event->type) { case KeyPress: case KeyRelease: case ButtonPress: case ButtonRelease: grabType = remap; break; case MotionNotify: case EnterNotify: grabType = ignore; break; default: grabType = pass; break; } widget = XtWindowToWidget(event->xany.display, event->xany.window); pdi = _XtGetPerDisplayInput(event->xany.display); grabList = *_XtGetGrabList(pdi); if (widget == NULL) { if (grabType == remap && (widget = LookupSpringLoaded(grabList)) != NULL) { /* event occurred in a non-widget window, but we've promised also to dispatch it to the nearest accessible spring_loaded widget */ was_dispatched = (XFilterEvent(event, XtWindow(widget)) || XtDispatchEventToWidget(widget, event)); } else was_dispatched = (Boolean) XFilterEvent(event, None); } else if (grabType == pass) { if (event->type == LeaveNotify || event->type == FocusIn || event->type == FocusOut) { if (XtIsSensitive(widget)) was_dispatched = (XFilterEvent(event, XtWindow(widget)) || XtDispatchEventToWidget(widget, event)); } else was_dispatched = (XFilterEvent(event, XtWindow(widget)) || XtDispatchEventToWidget(widget, event)); } else if (grabType == ignore) { if ((grabList == NULL || _XtOnGrabList(widget, grabList)) && XtIsSensitive(widget)) { was_dispatched = (XFilterEvent(event, XtWindow(widget)) || DispatchEvent(event, widget)); } } else if (grabType == remap) { EventMask mask = _XtConvertTypeToMask(event->type); Widget dspWidget; Boolean was_filtered = False; dspWidget = _XtFindRemapWidget(event, widget, mask, pdi); if ((grabList == NULL || _XtOnGrabList(dspWidget, grabList)) && XtIsSensitive(dspWidget)) { if ((was_filtered = (Boolean) XFilterEvent(event, XtWindow(dspWidget)))) { /* If this event activated a device grab, release it. */ _XtUngrabBadGrabs(event, widget, mask, pdi); was_dispatched = True; } else was_dispatched = XtDispatchEventToWidget(dspWidget, event); } else _XtUngrabBadGrabs(event, widget, mask, pdi); if (!was_filtered) { /* Also dispatch to nearest accessible spring_loaded. */ /* Fetch this afterward to reflect modal list changes */ grabList = *_XtGetGrabList(pdi); widget = LookupSpringLoaded(grabList); if (widget != NULL && widget != dspWidget) { was_dispatched = (XFilterEvent(event, XtWindow(widget)) || XtDispatchEventToWidget(widget, event) || was_dispatched); } } } UNLOCK_APP(app); return was_dispatched; } Boolean XtDispatchEvent(XEvent *event) { Boolean was_dispatched, safe; int dispatch_level; int starting_count; XtPerDisplay pd; Time time = 0; XtEventDispatchProc dispatch = _XtDefaultDispatcher; XtAppContext app = XtDisplayToApplicationContext(event->xany.display); LOCK_APP(app); dispatch_level = ++app->dispatch_level; starting_count = app->destroy_count; switch (event->type) { case KeyPress: case KeyRelease: time = event->xkey.time; break; case ButtonPress: case ButtonRelease: time = event->xbutton.time; break; case MotionNotify: time = event->xmotion.time; break; case EnterNotify: case LeaveNotify: time = event->xcrossing.time; break; case PropertyNotify: time = event->xproperty.time; break; case SelectionClear: time = event->xselectionclear.time; break; case MappingNotify: _XtRefreshMapping(event, True); break; } pd = _XtGetPerDisplay(event->xany.display); if (time) pd->last_timestamp = time; pd->last_event = *event; if (pd->dispatcher_list) { dispatch = pd->dispatcher_list[event->type]; if (dispatch == NULL) dispatch = _XtDefaultDispatcher; } was_dispatched = (*dispatch) (event); /* * To make recursive XtDispatchEvent work, we need to do phase 2 destroys * only on those widgets destroyed by this particular dispatch. * */ if (app->destroy_count > starting_count) _XtDoPhase2Destroy(app, dispatch_level); app->dispatch_level = dispatch_level - 1; if ((safe = _XtSafeToDestroy(app))) { if (app->dpy_destroy_count != 0) _XtCloseDisplays(app); if (app->free_bindings) _XtDoFreeBindings(app); } UNLOCK_APP(app); LOCK_PROCESS; if (_XtAppDestroyCount != 0 && safe) _XtDestroyAppContexts(); UNLOCK_PROCESS; return was_dispatched; } static void GrabDestroyCallback(Widget widget, XtPointer closure _X_UNUSED, XtPointer call_data _X_UNUSED) { /* Remove widget from grab list if it destroyed */ XtRemoveGrab(widget); } static XtGrabRec * NewGrabRec(Widget widget, Boolean exclusive, Boolean spring_loaded) { register XtGrabList gl; gl = XtNew(XtGrabRec); gl->next = NULL; gl->widget = widget; XtSetBit(gl->exclusive, exclusive); XtSetBit(gl->spring_loaded, spring_loaded); return gl; } void XtAddGrab(Widget widget, _XtBoolean exclusive, _XtBoolean spring_loaded) { register XtGrabList gl; XtGrabList *grabListPtr; XtAppContext app = XtWidgetToApplicationContext(widget); LOCK_APP(app); LOCK_PROCESS; grabListPtr = _XtGetGrabList(_XtGetPerDisplayInput(XtDisplay(widget))); if (spring_loaded && !exclusive) { XtAppWarningMsg(app, "grabError", "xtAddGrab", XtCXtToolkitError, "XtAddGrab requires exclusive grab if spring_loaded is TRUE", NULL, NULL); exclusive = TRUE; } gl = NewGrabRec(widget, (Boolean) exclusive, (Boolean) spring_loaded); gl->next = *grabListPtr; *grabListPtr = gl; XtAddCallback(widget, XtNdestroyCallback, GrabDestroyCallback, (XtPointer) NULL); UNLOCK_PROCESS; UNLOCK_APP(app); } void XtRemoveGrab(Widget widget) { register XtGrabList gl; register Boolean done; XtGrabList *grabListPtr; XtAppContext app = XtWidgetToApplicationContext(widget); LOCK_APP(app); LOCK_PROCESS; grabListPtr = _XtGetGrabList(_XtGetPerDisplayInput(XtDisplay(widget))); for (gl = *grabListPtr; gl != NULL; gl = gl->next) { if (gl->widget == widget) break; } if (gl == NULL) { XtAppWarningMsg(app, "grabError", "xtRemoveGrab", XtCXtToolkitError, "XtRemoveGrab asked to remove a widget not on the list", NULL, NULL); UNLOCK_PROCESS; UNLOCK_APP(app); return; } do { gl = *grabListPtr; done = (gl->widget == widget); *grabListPtr = gl->next; XtRemoveCallback(gl->widget, XtNdestroyCallback, GrabDestroyCallback, (XtPointer) NULL); XtFree((char *) gl); } while (!done); UNLOCK_PROCESS; UNLOCK_APP(app); return; } void XtMainLoop(void) { XtAppMainLoop(_XtDefaultAppContext()); } void XtAppMainLoop(XtAppContext app) { XtInputMask m = XtIMAll; XtInputMask t; LOCK_APP(app); do { if (m == 0) { m = XtIMAll; /* wait for any event, blocking */ XtAppProcessEvent(app, m); } else if (((t = XtAppPending(app)) & m)) { /* wait for certain events, stepping through choices */ XtAppProcessEvent(app, t & m); } m >>= 1; } while (app->exit_flag == FALSE); UNLOCK_APP(app); } void _XtFreeEventTable(XtEventTable *event_table) { register XtEventTable event; event = *event_table; while (event != NULL) { register XtEventTable next = event->next; XtFree((char *) event); event = next; } } Time XtLastTimestampProcessed(Display *dpy) { Time time; DPY_TO_APPCON(dpy); LOCK_APP(app); LOCK_PROCESS; time = _XtGetPerDisplay(dpy)->last_timestamp; UNLOCK_PROCESS; UNLOCK_APP(app); return (time); } XEvent * XtLastEventProcessed(Display *dpy) { XEvent *le = NULL; DPY_TO_APPCON(dpy); LOCK_APP(app); le = &_XtGetPerDisplay(dpy)->last_event; if (!le->xany.serial) le = NULL; UNLOCK_APP(app); return le; } void _XtSendFocusEvent(Widget child, int type) { child = XtIsWidget(child) ? child : _XtWindowedAncestor(child); if (XtIsSensitive(child) && !child->core.being_destroyed && XtIsRealized(child) && (XtBuildEventMask(child) & FocusChangeMask)) { XFocusChangeEvent event; Display *dpy = XtDisplay(child); event.type = type; event.serial = LastKnownRequestProcessed(dpy); event.send_event = True; event.display = dpy; event.window = XtWindow(child); event.mode = NotifyNormal; event.detail = NotifyAncestor; if (XFilterEvent((XEvent *) &event, XtWindow(child))) return; XtDispatchEventToWidget(child, (XEvent *) &event); } } static XtEventDispatchProc * NewDispatcherList(void) { XtEventDispatchProc *l = (XtEventDispatchProc *) __XtCalloc((Cardinal) 128, (Cardinal) sizeof(XtEventDispatchProc)); return l; } XtEventDispatchProc XtSetEventDispatcher(Display *dpy, int event_type, XtEventDispatchProc proc) { XtEventDispatchProc *list; XtEventDispatchProc old_proc; register XtPerDisplay pd; DPY_TO_APPCON(dpy); LOCK_APP(app); LOCK_PROCESS; pd = _XtGetPerDisplay(dpy); list = pd->dispatcher_list; if (!list) { if (proc) list = pd->dispatcher_list = NewDispatcherList(); else return _XtDefaultDispatcher; } old_proc = list[event_type]; list[event_type] = proc; if (old_proc == NULL) old_proc = _XtDefaultDispatcher; UNLOCK_PROCESS; UNLOCK_APP(app); return old_proc; } void XtRegisterExtensionSelector(Display *dpy, int min_event_type, int max_event_type, XtExtensionSelectProc proc, XtPointer client_data) { XtPerDisplay pd; int i; DPY_TO_APPCON(dpy); if (dpy == NULL) XtErrorMsg("nullDisplay", "xtRegisterExtensionSelector", XtCXtToolkitError, "XtRegisterExtensionSelector requires a non-NULL display", NULL, NULL); LOCK_APP(app); LOCK_PROCESS; pd = _XtGetPerDisplay(dpy); for (i = 0; i < pd->ext_select_count; i++) { ExtSelectRec *e = &pd->ext_select_list[i]; if (e->min == min_event_type && e->max == max_event_type) { e->proc = proc; e->client_data = client_data; return; } if ((min_event_type >= e->min && min_event_type <= e->max) || (max_event_type >= e->min && max_event_type <= e->max)) { XtErrorMsg("rangeError", "xtRegisterExtensionSelector", XtCXtToolkitError, "Attempt to register multiple selectors for one extension event type", NULL, NULL); UNLOCK_PROCESS; UNLOCK_APP(app); return; } } pd->ext_select_count++; pd->ext_select_list = XtReallocArray(pd->ext_select_list, (Cardinal) pd->ext_select_count, (Cardinal) sizeof(ExtSelectRec)); for (i = pd->ext_select_count - 1; i > 0; i--) { if (pd->ext_select_list[i - 1].min > min_event_type) { pd->ext_select_list[i] = pd->ext_select_list[i - 1]; } else break; } pd->ext_select_list[i].min = min_event_type; pd->ext_select_list[i].max = max_event_type; pd->ext_select_list[i].proc = proc; pd->ext_select_list[i].client_data = client_data; UNLOCK_PROCESS; UNLOCK_APP(app); } void _XtExtensionSelect(Widget widget) { int i; XtPerDisplay pd; WIDGET_TO_APPCON(widget); LOCK_APP(app); LOCK_PROCESS; pd = _XtGetPerDisplay(XtDisplay(widget)); for (i = 0; i < pd->ext_select_count; i++) { CallExtensionSelector(widget, pd->ext_select_list + i, FALSE); } UNLOCK_PROCESS; UNLOCK_APP(app); }