Synchronised line endinge with release branch

1 files changed, 344 insertions, 344 deletions

diff --git a/libXt/src/TMgrab.c b/libXt/src/TMgrab.c
index 6dc8abc62..08cb4869a 100644
--- a/libXt/src/TMgrab.c
+++ b/libXt/src/TMgrab.c
@@ -1,344 +1,344 @@
-/***********************************************************

-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;

-

-}

+/***********************************************************
+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;
+
+}