svn merge ^/branches/released .

1 files changed, 344 insertions, 347 deletions

diff --git a/libXt/src/TMgrab.c b/libXt/src/TMgrab.c
index db016eb7f..6dc8abc62 100644
--- a/libXt/src/TMgrab.c
+++ b/libXt/src/TMgrab.c
@@ -1,347 +1,344 @@
-/* $Xorg: TMgrab.c,v 1.4 2001/02/09 02:03:58 xorgcvs Exp $ */
-
-/***********************************************************
-Copyright 1993 Sun Microsystems, Inc.  All rights reserved.
-
-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.
-
-*/
-/* $XFree86: xc/lib/Xt/TMgrab.c,v 1.3 2001/12/14 19:56:30 dawes Exp $ */
-
-/*LINTLIBRARY*/
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "IntrinsicI.h"
-
-typedef struct _GrabActionRec {
-    struct _GrabActionRec* next;
-    XtActionProc action_proc;
-    Boolean owner_events;
-    unsigned int event_mask;
-    int pointer_mode, keyboard_mode;
-} GrabActionRec;
-
-static GrabActionRec *grabActionList = NULL;
-
-static void GrabAllCorrectKeys(
-    Widget widget,
-    TMTypeMatch typeMatch,
-    TMModifierMatch modMatch,
-    GrabActionRec* grabP)
-{
-    Display *dpy = XtDisplay(widget);
-    KeyCode *keycodes, *keycodeP;
-    Cardinal keycount;
-    Modifiers careOn = 0;
-    Modifiers careMask = 0;
-
-    if (modMatch->lateModifiers) {
-	Boolean resolved;
-	resolved = _XtComputeLateBindings(dpy, modMatch->lateModifiers,
-					  &careOn, &careMask);
-	if (!resolved) return;
-    }
-    careOn |= modMatch->modifiers;
-    careMask |= modMatch->modifierMask;
-
-    XtKeysymToKeycodeList(
-	    dpy,
-	    (KeySym)typeMatch->eventCode,
-	    &keycodes,
-	    &keycount
-			 );
-    if (keycount == 0) return;
-    for (keycodeP = keycodes; keycount--; keycodeP++) {
-	if (modMatch->standard) {
-	    /* find standard modifiers that produce this keysym */
-	    KeySym keysym;
-	    int std_mods, least_mod;
-	    Modifiers modifiers_return;
-	    XtTranslateKeycode( dpy, *keycodeP, (Modifiers)0,
-			        &modifiers_return, &keysym );
-	    if (careOn & modifiers_return)
-		return;
-	    if (keysym == typeMatch->eventCode) {
-		XtGrabKey(widget, *keycodeP, careOn,
-			  grabP->owner_events,
-			  grabP->pointer_mode,
-			  grabP->keyboard_mode
-			);
-		/* continue; */		/* grab all modifier combinations */
-	    }
-	    least_mod = modifiers_return & (~modifiers_return + 1);
-	    for (std_mods = modifiers_return;
-		 std_mods >= least_mod; std_mods--) {
-		Modifiers dummy;
-		 /* check all useful combinations of modifier bits */
-		if (modifiers_return & std_mods &&
-		    !(~modifiers_return & std_mods)) {
-		    XtTranslateKeycode( dpy, *keycodeP,
-					(Modifiers)std_mods,
-					&dummy, &keysym );
-		    if (keysym == typeMatch->eventCode) {
-			XtGrabKey(widget, *keycodeP,
-				  careOn | (Modifiers) std_mods,
-				  grabP->owner_events,
-				  grabP->pointer_mode,
-				  grabP->keyboard_mode
-				);
-			/* break; */	/* grab all modifier combinations */
-		    }
-		}
-	    }
-	} else /* !event->standard */ {
-	    XtGrabKey(widget, *keycodeP, careOn,
-		      grabP->owner_events,
-		      grabP->pointer_mode,
-		      grabP->keyboard_mode
-		    );
-	}
-    }
-    XtFree((char *)keycodes);
-}
-
-typedef struct {
-    TMShortCard count;
-    Widget	widget;
-    GrabActionRec *grabP;
-}DoGrabRec;
-
-static Boolean DoGrab(
-    StatePtr		state,
-    XtPointer		data)
-{
-    DoGrabRec		*doGrabP = (DoGrabRec *)data;
-    GrabActionRec* 	grabP = doGrabP->grabP;
-    Widget		widget = doGrabP->widget;
-    TMShortCard		count = doGrabP->count;
-    TMShortCard		typeIndex = state->typeIndex;
-    TMShortCard		modIndex = state->modIndex;
-    ActionRec		*action;
-    TMTypeMatch		typeMatch;
-    TMModifierMatch	modMatch;
-    Modifiers		careOn = 0;
-    Modifiers		careMask = 0;
-    Boolean		resolved;
-
-    LOCK_PROCESS;
-    typeMatch = TMGetTypeMatch(typeIndex);
-    modMatch = TMGetModifierMatch(modIndex);
-
-    for (action = state->actions; action; action = action->next)
-      if (count == action->idx) break;
-    if (!action) {
-	UNLOCK_PROCESS;
-	return False;
-    }
-
-    switch (typeMatch->eventType) {
-      case ButtonPress:
-      case ButtonRelease:
-	if (modMatch->lateModifiers) {
-	    resolved = _XtComputeLateBindings(XtDisplay(widget),
-					      modMatch->lateModifiers,
-					      &careOn, &careMask);
-	    if (!resolved) break;
-	}
-	careOn |= modMatch->modifiers;
-	XtGrabButton(
-		     widget,
-		     (unsigned) typeMatch->eventCode,
-		     careOn,
-		     grabP->owner_events,
-		     grabP->event_mask,
-		     grabP->pointer_mode,
-		     grabP->keyboard_mode,
-		     None,
-		     None
-		     );
-	break;
-
-      case KeyPress:
-      case KeyRelease:
-	GrabAllCorrectKeys(widget, typeMatch, modMatch, grabP);
-	break;
-
-      case EnterNotify:
-	break;
-
-      default:
-	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
-			"invalidPopup","unsupportedOperation",XtCXtToolkitError,
-			"Pop-up menu creation is only supported on Button, Key or EnterNotify events.",
-			(String *)NULL, (Cardinal *)NULL);
-	break;
-    }
-    UNLOCK_PROCESS;
-    return False;
-}
-
-void _XtRegisterGrabs(
-    Widget widget)
-{
-    XtTranslations 	xlations = widget->core.tm.translations;
-    TMComplexStateTree 	*stateTreePtr;
-    unsigned int 	count;
-    TMShortCard		i;
-    TMBindData   	bindData = (TMBindData) widget->core.tm.proc_table;
-    XtActionProc	*procs;
-
-    if (! XtIsRealized(widget) || widget->core.being_destroyed)
-	return;
-
-    /* walk the widget instance action bindings table looking for */
-    /* actions registered as grab actions. */
-    /* when you find one, do a grab on the triggering event */
-
-    if (xlations == NULL) return;
-    stateTreePtr = (TMComplexStateTree *) xlations->stateTreeTbl;
-    if (*stateTreePtr == NULL) return;
-    for (i = 0; i < xlations->numStateTrees; i++, stateTreePtr++) {
-	if (bindData->simple.isComplex)
-	  procs = TMGetComplexBindEntry(bindData, i)->procs;
-	else
-	  procs = TMGetSimpleBindEntry(bindData, i)->procs;
-	for (count=0; count < (*stateTreePtr)->numQuarks; count++) {
-	    GrabActionRec* grabP;
-	    DoGrabRec      doGrab;
-
-	    LOCK_PROCESS;
-	    for (grabP = grabActionList; grabP != NULL; grabP = grabP->next) {
-		if (grabP->action_proc == procs[count]) {
-		    /* we've found a "grabber" in the action table. Find the
-		     * states that call this action.  Note that if there is
-		     * more than one "grabber" in the action table, we end
-		     * up searching all of the states multiple times.
-		     */
-		    doGrab.widget = widget;
-		    doGrab.grabP = grabP;
-		    doGrab.count = count;
-		    _XtTraverseStateTree((TMStateTree)*stateTreePtr,
-					 DoGrab,
-					 (XtPointer)&doGrab);
-		}
-	    }
-	    UNLOCK_PROCESS;
-	}
-    }
-}
-
-void XtRegisterGrabAction(
-    XtActionProc action_proc,
-    _XtBoolean owner_events,
-    unsigned int event_mask,
-    int pointer_mode,
-    int keyboard_mode)
-{
-    GrabActionRec* actionP;
-
-    LOCK_PROCESS;
-    for (actionP = grabActionList; actionP != NULL; actionP = actionP->next) {
-	if (actionP->action_proc == action_proc) break;
-    }
-    if (actionP == NULL) {
-	actionP = XtNew(GrabActionRec);
-	actionP->action_proc = action_proc;
-	actionP->next = grabActionList;
-	grabActionList = actionP;
-    }
-#ifdef DEBUG
-    else
-	if (   actionP->owner_events != owner_events
-	    || actionP->event_mask != event_mask
-	    || actionP->pointer_mode != pointer_mode
-	    || actionP->keyboard_mode != keyboard_mode) {
-	    Cardinal n = 0;
-	    XtWarningMsg(
-		"argsReplaced", "xtRegisterGrabAction", XtCXtToolkitError,
-		"XtRegisterGrabAction called on same proc with different args",
-			 NULL, &n);
-	}
-#endif /*DEBUG*/
-
-    actionP->owner_events = owner_events;
-    actionP->event_mask = event_mask;
-    actionP->pointer_mode = pointer_mode;
-    actionP->keyboard_mode = keyboard_mode;
-    UNLOCK_PROCESS;
-}
-
-/*ARGSUSED*/
-void _XtGrabInitialize(
-    XtAppContext	app)
-{
-    LOCK_PROCESS;
-    if (grabActionList == NULL)
-	XtRegisterGrabAction( XtMenuPopupAction, True,
-			      (unsigned)(ButtonPressMask | ButtonReleaseMask),
-			      GrabModeAsync,
-			      GrabModeAsync
-			    );
-    UNLOCK_PROCESS;
-
-}
+/***********************************************************

+Copyright (c) 1993, Oracle and/or its affiliates. All rights reserved.

+

+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.

+

+*/

+

+/*LINTLIBRARY*/

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "IntrinsicI.h"

+

+typedef struct _GrabActionRec {

+    struct _GrabActionRec* next;

+    XtActionProc action_proc;

+    Boolean owner_events;

+    unsigned int event_mask;

+    int pointer_mode, keyboard_mode;

+} GrabActionRec;

+

+static GrabActionRec *grabActionList = NULL;

+

+static void GrabAllCorrectKeys(

+    Widget widget,

+    TMTypeMatch typeMatch,

+    TMModifierMatch modMatch,

+    GrabActionRec* grabP)

+{

+    Display *dpy = XtDisplay(widget);

+    KeyCode *keycodes, *keycodeP;

+    Cardinal keycount;

+    Modifiers careOn = 0;

+    Modifiers careMask = 0;

+

+    if (modMatch->lateModifiers) {

+	Boolean resolved;

+	resolved = _XtComputeLateBindings(dpy, modMatch->lateModifiers,

+					  &careOn, &careMask);

+	if (!resolved) return;

+    }

+    careOn |= modMatch->modifiers;

+    careMask |= modMatch->modifierMask;

+

+    XtKeysymToKeycodeList(

+	    dpy,

+	    (KeySym)typeMatch->eventCode,

+	    &keycodes,

+	    &keycount

+			 );

+    if (keycount == 0) return;

+    for (keycodeP = keycodes; keycount--; keycodeP++) {

+	if (modMatch->standard) {

+	    /* find standard modifiers that produce this keysym */

+	    KeySym keysym;

+	    int std_mods, least_mod;

+	    Modifiers modifiers_return;

+	    XtTranslateKeycode( dpy, *keycodeP, (Modifiers)0,

+			        &modifiers_return, &keysym );

+	    if (careOn & modifiers_return)

+		return;

+	    if (keysym == typeMatch->eventCode) {

+		XtGrabKey(widget, *keycodeP, careOn,

+			  grabP->owner_events,

+			  grabP->pointer_mode,

+			  grabP->keyboard_mode

+			);

+		/* continue; */		/* grab all modifier combinations */

+	    }

+	    least_mod = modifiers_return & (~modifiers_return + 1);

+	    for (std_mods = modifiers_return;

+		 std_mods >= least_mod; std_mods--) {

+		Modifiers dummy;

+		 /* check all useful combinations of modifier bits */

+		if (modifiers_return & std_mods &&

+		    !(~modifiers_return & std_mods)) {

+		    XtTranslateKeycode( dpy, *keycodeP,

+					(Modifiers)std_mods,

+					&dummy, &keysym );

+		    if (keysym == typeMatch->eventCode) {

+			XtGrabKey(widget, *keycodeP,

+				  careOn | (Modifiers) std_mods,

+				  grabP->owner_events,

+				  grabP->pointer_mode,

+				  grabP->keyboard_mode

+				);

+			/* break; */	/* grab all modifier combinations */

+		    }

+		}

+	    }

+	} else /* !event->standard */ {

+	    XtGrabKey(widget, *keycodeP, careOn,

+		      grabP->owner_events,

+		      grabP->pointer_mode,

+		      grabP->keyboard_mode

+		    );

+	}

+    }

+    XtFree((char *)keycodes);

+}

+

+typedef struct {

+    TMShortCard count;

+    Widget	widget;

+    GrabActionRec *grabP;

+}DoGrabRec;

+

+static Boolean DoGrab(

+    StatePtr		state,

+    XtPointer		data)

+{

+    DoGrabRec		*doGrabP = (DoGrabRec *)data;

+    GrabActionRec* 	grabP = doGrabP->grabP;

+    Widget		widget = doGrabP->widget;

+    TMShortCard		count = doGrabP->count;

+    TMShortCard		typeIndex = state->typeIndex;

+    TMShortCard		modIndex = state->modIndex;

+    ActionRec		*action;

+    TMTypeMatch		typeMatch;

+    TMModifierMatch	modMatch;

+    Modifiers		careOn = 0;

+    Modifiers		careMask = 0;

+    Boolean		resolved;

+

+    LOCK_PROCESS;

+    typeMatch = TMGetTypeMatch(typeIndex);

+    modMatch = TMGetModifierMatch(modIndex);

+

+    for (action = state->actions; action; action = action->next)

+      if (count == action->idx) break;

+    if (!action) {

+	UNLOCK_PROCESS;

+	return False;

+    }

+

+    switch (typeMatch->eventType) {

+      case ButtonPress:

+      case ButtonRelease:

+	if (modMatch->lateModifiers) {

+	    resolved = _XtComputeLateBindings(XtDisplay(widget),

+					      modMatch->lateModifiers,

+					      &careOn, &careMask);

+	    if (!resolved) break;

+	}

+	careOn |= modMatch->modifiers;

+	XtGrabButton(

+		     widget,

+		     (unsigned) typeMatch->eventCode,

+		     careOn,

+		     grabP->owner_events,

+		     grabP->event_mask,

+		     grabP->pointer_mode,

+		     grabP->keyboard_mode,

+		     None,

+		     None

+		     );

+	break;

+

+      case KeyPress:

+      case KeyRelease:

+	GrabAllCorrectKeys(widget, typeMatch, modMatch, grabP);

+	break;

+

+      case EnterNotify:

+	break;

+

+      default:

+	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

+			"invalidPopup","unsupportedOperation",XtCXtToolkitError,

+			"Pop-up menu creation is only supported on Button, Key or EnterNotify events.",

+			(String *)NULL, (Cardinal *)NULL);

+	break;

+    }

+    UNLOCK_PROCESS;

+    return False;

+}

+

+void _XtRegisterGrabs(

+    Widget widget)

+{

+    XtTranslations 	xlations = widget->core.tm.translations;

+    TMComplexStateTree 	*stateTreePtr;

+    unsigned int 	count;

+    TMShortCard		i;

+    TMBindData   	bindData = (TMBindData) widget->core.tm.proc_table;

+    XtActionProc	*procs;

+

+    if (! XtIsRealized(widget) || widget->core.being_destroyed)

+	return;

+

+    /* walk the widget instance action bindings table looking for */

+    /* actions registered as grab actions. */

+    /* when you find one, do a grab on the triggering event */

+

+    if (xlations == NULL) return;

+    stateTreePtr = (TMComplexStateTree *) xlations->stateTreeTbl;

+    if (*stateTreePtr == NULL) return;

+    for (i = 0; i < xlations->numStateTrees; i++, stateTreePtr++) {

+	if (bindData->simple.isComplex)

+	  procs = TMGetComplexBindEntry(bindData, i)->procs;

+	else

+	  procs = TMGetSimpleBindEntry(bindData, i)->procs;

+	for (count=0; count < (*stateTreePtr)->numQuarks; count++) {

+	    GrabActionRec* grabP;

+	    DoGrabRec      doGrab;

+

+	    LOCK_PROCESS;

+	    for (grabP = grabActionList; grabP != NULL; grabP = grabP->next) {

+		if (grabP->action_proc == procs[count]) {

+		    /* we've found a "grabber" in the action table. Find the

+		     * states that call this action.  Note that if there is

+		     * more than one "grabber" in the action table, we end

+		     * up searching all of the states multiple times.

+		     */

+		    doGrab.widget = widget;

+		    doGrab.grabP = grabP;

+		    doGrab.count = count;

+		    _XtTraverseStateTree((TMStateTree)*stateTreePtr,

+					 DoGrab,

+					 (XtPointer)&doGrab);

+		}

+	    }

+	    UNLOCK_PROCESS;

+	}

+    }

+}

+

+void XtRegisterGrabAction(

+    XtActionProc action_proc,

+    _XtBoolean owner_events,

+    unsigned int event_mask,

+    int pointer_mode,

+    int keyboard_mode)

+{

+    GrabActionRec* actionP;

+

+    LOCK_PROCESS;

+    for (actionP = grabActionList; actionP != NULL; actionP = actionP->next) {

+	if (actionP->action_proc == action_proc) break;

+    }

+    if (actionP == NULL) {

+	actionP = XtNew(GrabActionRec);

+	actionP->action_proc = action_proc;

+	actionP->next = grabActionList;

+	grabActionList = actionP;

+    }

+#ifdef DEBUG

+    else

+	if (   actionP->owner_events != owner_events

+	    || actionP->event_mask != event_mask

+	    || actionP->pointer_mode != pointer_mode

+	    || actionP->keyboard_mode != keyboard_mode) {

+	    Cardinal n = 0;

+	    XtWarningMsg(

+		"argsReplaced", "xtRegisterGrabAction", XtCXtToolkitError,

+		"XtRegisterGrabAction called on same proc with different args",

+			 NULL, &n);

+	}

+#endif /*DEBUG*/

+

+    actionP->owner_events = owner_events;

+    actionP->event_mask = event_mask;

+    actionP->pointer_mode = pointer_mode;

+    actionP->keyboard_mode = keyboard_mode;

+    UNLOCK_PROCESS;

+}

+

+/*ARGSUSED*/

+void _XtGrabInitialize(

+    XtAppContext	app)

+{

+    LOCK_PROCESS;

+    if (grabActionList == NULL)

+	XtRegisterGrabAction( XtMenuPopupAction, True,

+			      (unsigned)(ButtonPressMask | ButtonReleaseMask),

+			      GrabModeAsync,

+			      GrabModeAsync

+			    );

+    UNLOCK_PROCESS;

+

+}