55 files changed, 38153 insertions, 38153 deletions

diff --git a/libXt/src/ActionHook.c b/libXt/src/ActionHook.c
index 8c412ceb1..efa898ed0 100644
--- a/libXt/src/ActionHook.c
+++ b/libXt/src/ActionHook.c
@@ -1,143 +1,143 @@
-/*LINTLIBRARY*/

-

-/***********************************************************

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

-

-*/

-

-/* 

- * Contains XtAppAddActionHook, XtRemoveActionHook

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-

-

-/*ARGSUSED*/

-static void FreeActionHookList(

-    Widget widget,		/* unused (and invalid) */

-    XtPointer closure,		/* ActionHook* */

-    XtPointer call_data)	/* unused */

-{

-    ActionHook list = *(ActionHook*)closure;

-    while (list != NULL) {

-	ActionHook next = list->next;

-	XtFree( (XtPointer)list );

-	list = next;

-    }

-}

-

-

-XtActionHookId XtAppAddActionHook(

-    XtAppContext app,

-    XtActionHookProc proc,

-    XtPointer closure)

-{

-    ActionHook hook = XtNew(ActionHookRec);

-    LOCK_APP(app);

-    hook->next = app->action_hook_list;

-    hook->app = app;

-    hook->proc = proc;

-    hook->closure = closure;

-    if (app->action_hook_list == NULL) {

-	_XtAddCallback( &app->destroy_callbacks,

-		        FreeActionHookList,

-		        (XtPointer)&app->action_hook_list

-		      );

-    }

-    app->action_hook_list = hook;

-    UNLOCK_APP(app);

-    return (XtActionHookId)hook;

-}

-

-

-void XtRemoveActionHook(

-    XtActionHookId id)

-{

-    ActionHook *p, hook = (ActionHook)id;

-    XtAppContext app = hook->app;

-    LOCK_APP(app);

-    for (p = &app->action_hook_list; p != NULL && *p != hook; p = &(*p)->next);

-    if (p) {

-	*p = hook->next;

-	XtFree( (XtPointer)hook );

-	if (app->action_hook_list == NULL)

-	    _XtRemoveCallback(&app->destroy_callbacks, FreeActionHookList,

-			      (XtPointer) &app->action_hook_list);

-    }

-#ifdef DEBUG

-    else {

-	XtAppWarningMsg(app, "badId", "xtRemoveActionHook", XtCXtToolkitError,

-			"XtRemoveActionHook called with bad or old hook id",

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

-    }

-#endif /*DEBUG*/

-    UNLOCK_APP(app);

-}

+/*LINTLIBRARY*/
+
+/***********************************************************
+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.
+
+*/
+
+/* 
+ * Contains XtAppAddActionHook, XtRemoveActionHook
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+
+
+/*ARGSUSED*/
+static void FreeActionHookList(
+    Widget widget,		/* unused (and invalid) */
+    XtPointer closure,		/* ActionHook* */
+    XtPointer call_data)	/* unused */
+{
+    ActionHook list = *(ActionHook*)closure;
+    while (list != NULL) {
+	ActionHook next = list->next;
+	XtFree( (XtPointer)list );
+	list = next;
+    }
+}
+
+
+XtActionHookId XtAppAddActionHook(
+    XtAppContext app,
+    XtActionHookProc proc,
+    XtPointer closure)
+{
+    ActionHook hook = XtNew(ActionHookRec);
+    LOCK_APP(app);
+    hook->next = app->action_hook_list;
+    hook->app = app;
+    hook->proc = proc;
+    hook->closure = closure;
+    if (app->action_hook_list == NULL) {
+	_XtAddCallback( &app->destroy_callbacks,
+		        FreeActionHookList,
+		        (XtPointer)&app->action_hook_list
+		      );
+    }
+    app->action_hook_list = hook;
+    UNLOCK_APP(app);
+    return (XtActionHookId)hook;
+}
+
+
+void XtRemoveActionHook(
+    XtActionHookId id)
+{
+    ActionHook *p, hook = (ActionHook)id;
+    XtAppContext app = hook->app;
+    LOCK_APP(app);
+    for (p = &app->action_hook_list; p != NULL && *p != hook; p = &(*p)->next);
+    if (p) {
+	*p = hook->next;
+	XtFree( (XtPointer)hook );
+	if (app->action_hook_list == NULL)
+	    _XtRemoveCallback(&app->destroy_callbacks, FreeActionHookList,
+			      (XtPointer) &app->action_hook_list);
+    }
+#ifdef DEBUG
+    else {
+	XtAppWarningMsg(app, "badId", "xtRemoveActionHook", XtCXtToolkitError,
+			"XtRemoveActionHook called with bad or old hook id",
+			(String*)NULL, (Cardinal*)NULL);
+    }
+#endif /*DEBUG*/
+    UNLOCK_APP(app);
+}
diff --git a/libXt/src/Alloc.c b/libXt/src/Alloc.c
index b0c4072cd..be643a822 100644
--- a/libXt/src/Alloc.c
+++ b/libXt/src/Alloc.c
@@ -1,541 +1,541 @@
-/***********************************************************

-Copyright (c) 1993, 2011, 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.

-

-*/

-

-/*

- * X Toolkit Memory Allocation Routines

- *

- * Uses Xlib memory management, which is spec'd to be re-entrant.

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "InitialI.h"

-#undef _XBCOPYFUNC

-

-#include <stdlib.h>

-#include <stdio.h>

-#include <stdarg.h>

-

-#define Xmalloc(size) malloc((size))

-#define Xrealloc(ptr, size) realloc((ptr), (size))

-#define Xcalloc(nelem, elsize) calloc((nelem), (elsize))

-#define Xfree(ptr) free(ptr)

-

-#ifdef _XNEEDBCOPYFUNC

-void _XtBcopy(

-    char *src, char *dst,

-    int length)

-{

-    if (src < dst) {

-	dst += length;

-	src += length;

-	while (length--)

-	    *--dst = *--src;

-    } else {

-	while (length--)

-	    *dst++ = *src++;

-    }

-}

-#endif

-

-void _XtAllocError(

-    String type)

-{

-    Cardinal num_params = 1;

-    if (type == NULL) type = "local memory allocation";

-    XtErrorMsg("allocError", type, XtCXtToolkitError,

-	       "Cannot perform %s", &type, &num_params);

-}

-

-void _XtHeapInit(

-    Heap*	heap)

-{

-    heap->start = NULL;

-    heap->bytes_remaining = 0;

-}

-

-/* Version of asprintf() using XtMalloc

- * Not currently available in XTTRACEMEMORY version, since that would

- * require varargs macros everywhere, which are only standard in C99 & later.

- */

-Cardinal XtAsprintf(

-    String *new_string,

-    _Xconst char * _X_RESTRICT_KYWD format,

-    ...)

-{

-    char buf[256];

-    Cardinal len;

-    va_list ap;

-

-    va_start(ap, format);

-    len = vsnprintf(buf, sizeof(buf), format, ap);

-    va_end(ap);

-

-    if (len < 0)

-	_XtAllocError("vsnprintf");

-

-    *new_string = XtMalloc(len + 1); /* snprintf doesn't count trailing '\0' */

-    if (len < sizeof(buf))

-    {

-	strncpy(*new_string, buf, len);

-	(*new_string)[len] = '\0';

-    }

-    else

-    {

-	va_start(ap, format);

-	if (vsnprintf(*new_string, len + 1, format, ap) < 0)

-	    _XtAllocError("vsnprintf");

-	va_end(ap);

-    }

-    return len;

-}

-

-

-#ifndef XTTRACEMEMORY

-

-char *XtMalloc(

-    unsigned size)

-{

-    char *ptr;

-

-#if defined(MALLOC_0_RETURNS_NULL) && defined(XTMALLOC_BC)

-    /* preserve this (broken) behavior until everyone fixes their apps */

-    if (!size) size = 1;

-#endif

-    if ((ptr = Xmalloc(size)) == NULL)

-        _XtAllocError("malloc");

-

-    return(ptr);

-}

-

-char *XtRealloc(

-    char     *ptr,

-    unsigned size)

-{

-   if (ptr == NULL) {

-#ifdef MALLOC_0_RETURNS_NULL

-	if (!size) size = 1;

-#endif

-	return(XtMalloc(size));

-   } else if ((ptr = Xrealloc(ptr, size)) == NULL

-#ifdef MALLOC_0_RETURNS_NULL

-		&& size

-#endif

-	)

-	_XtAllocError("realloc");

-

-   return(ptr);

-}

-

-char *XtCalloc(

-    unsigned num, unsigned size)

-{

-    char *ptr;

-

-#if defined(MALLOC_0_RETURNS_NULL) && defined(XTMALLOC_BC)

-    /* preserve this (broken) behavior until everyone fixes their apps */

-    if (!size) num = size = 1;

-#endif

-    if ((ptr = Xcalloc(num, size)) == NULL)

-	_XtAllocError("calloc");

-

-    return(ptr);

-}

-

-void XtFree(

-    char *ptr)

-{

-    if (ptr != NULL) Xfree(ptr);

-}

-

-char* __XtMalloc(

-    unsigned size)

-{

-#ifdef MALLOC_0_RETURNS_NULL

-    if (!size) size = 1;

-#endif

-    return XtMalloc (size);

-}

-

-char* __XtCalloc(

-    unsigned num, unsigned size)

-{

-#ifdef MALLOC_0_RETURNS_NULL

-    if (!size) num = size = 1;

-#endif

-    return XtCalloc(num, size);

-}

-

-#ifndef HEAP_SEGMENT_SIZE

-#define HEAP_SEGMENT_SIZE 1492

-#endif

-

-char* _XtHeapAlloc(

-    Heap*	heap,

-    Cardinal	bytes)

-{

-    register char* heap_loc;

-    if (heap == NULL) return XtMalloc(bytes);

-    if (heap->bytes_remaining < (int)bytes) {

-	if ((bytes + sizeof(char*)) >= (HEAP_SEGMENT_SIZE>>1)) {

-	    /* preserve current segment; insert this one in front */

-#ifdef _TRACE_HEAP

-	    printf( "allocating large segment (%d bytes) on heap %#x\n",

-		    bytes, heap );

-#endif

-	    heap_loc = XtMalloc(bytes + sizeof(char*));

-	    if (heap->start) {

-		*(char**)heap_loc = *(char**)heap->start;

-		*(char**)heap->start = heap_loc;

-	    }

-	    else {

-		*(char**)heap_loc = NULL;

-		heap->start = heap_loc;

-	    }

-	    return heap_loc + sizeof(char*);

-	}

-	/* else discard remainder of this segment */

-#ifdef _TRACE_HEAP

-	printf( "allocating new segment on heap %#x\n", heap );

-#endif

-	heap_loc = XtMalloc((unsigned)HEAP_SEGMENT_SIZE);

-	*(char**)heap_loc = heap->start;

-	heap->start = heap_loc;

-	heap->current = heap_loc + sizeof(char*);

-	heap->bytes_remaining = HEAP_SEGMENT_SIZE - sizeof(char*);

-    }

-    bytes = (bytes + (sizeof(long) - 1)) & (~(sizeof(long) - 1));

-    heap_loc = heap->current;

-    heap->current += bytes;

-    heap->bytes_remaining -= bytes; /* can be negative, if rounded */

-    return heap_loc;

-}

-

-void _XtHeapFree(

-    Heap*	heap)

-{

-    char* segment = heap->start;

-    while (segment != NULL) {

-	char* next_segment = *(char**)segment;

-	XtFree(segment);

-	segment = next_segment;

-    }

-    heap->start = NULL;

-    heap->bytes_remaining = 0;

-}

-

-#else

-

-/*

- * X Toolkit Memory Trace Allocation Routines

- */

-

-#undef XtMalloc

-#undef XtRealloc

-#undef XtCalloc

-#undef XtFree

-

-typedef struct _Stats *StatsPtr;

-typedef struct _Stats {

-    StatsPtr prev, next;

-    char *file;

-    int line;

-    unsigned size;

-    unsigned long seq;

-    XtPointer heap;

-} Stats;

-

-static StatsPtr XtMemory = (StatsPtr)NULL;

-static unsigned long ActiveXtMemory = 0;

-static unsigned long XtSeqId = 0;

-static unsigned long XtSeqBreakpoint = ~0;

-

-#define StatsSize(n) ((((n) + (sizeof(long) - 1)) & ~(sizeof(long) - 1)) + sizeof(Stats))

-#define ToStats(ptr) ((StatsPtr)(ptr - sizeof(Stats)))

-#define ToMem(ptr) (((char *)ptr) + sizeof(Stats))

-

-#define CHAIN(ptr,len,hp) \

-    ptr->next = XtMemory; \

-    if (XtMemory) \

-        XtMemory->prev = ptr; \

-    XtMemory = ptr; \

-    ptr->prev = (StatsPtr)NULL; \

-    ptr->file = file; \

-    ptr->line = line; \

-    ptr->size = len; \

-    ptr->heap = hp; \

-    if (file) \

-	ActiveXtMemory += len; \

-    ptr->seq = XtSeqId; \

-    if (XtSeqId == XtSeqBreakpoint) \

-	_XtBreakpoint(ptr); \

-    XtSeqId++

-

-/*ARGUSED*/

-static void _XtBreakpoint(

-    StatsPtr mem)

-{

-    mem->seq = XtSeqId; /* avoid being optimized out of existence */

-}

-

-char *_XtMalloc(

-    unsigned size,

-    char *file,

-    int line)

-{

-    StatsPtr ptr;

-    unsigned newsize;

-    char* retval = NULL;

-

-    LOCK_PROCESS;

-    newsize = StatsSize(size);

-    if ((ptr = (StatsPtr)Xmalloc(newsize)) == NULL)

-        _XtAllocError("malloc");

-    CHAIN(ptr, size, NULL);

-    retval = (ToMem(ptr));

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-char *XtMalloc(

-    unsigned size)

-{

-    return _XtMalloc(size, (char *)NULL, 0);

-}

-

-char *_XtRealloc(

-    char     *ptr,

-    unsigned size,

-    char *file,

-    int line)

-{

-   char *newptr;

-

-   LOCK_PROCESS;

-   newptr = _XtMalloc(size, file, line);

-   if (ptr) {

-       unsigned copysize = ToStats(ptr)->size;

-       if (copysize > size) copysize = size;

-       memmove(newptr, ptr, copysize);

-       _XtFree(ptr);

-   }

-   UNLOCK_PROCESS;

-   return(newptr);

-}

-

-char *XtRealloc(

-    char     *ptr,

-    unsigned size)

-{

-    return _XtRealloc(ptr, size, (char *)NULL, 0);

-}

-

-char *_XtCalloc(

-    unsigned num, unsigned size,

-    char *file,

-    int line)

-{

-    StatsPtr ptr;

-    unsigned total, newsize;

-    char* retval = NULL;

-

-    LOCK_PROCESS;

-    total = num * size;

-    newsize = StatsSize(total);

-    if ((ptr = (StatsPtr)Xcalloc(newsize, 1)) == NULL)

-        _XtAllocError("calloc");

-    CHAIN(ptr, total, NULL);

-    retval = (ToMem(ptr));

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-char *XtCalloc(

-    unsigned num, unsigned size)

-{

-    return _XtCalloc(num, size, (char *)NULL, 0);

-}

-

-Boolean _XtIsValidPointer(

-    char *ptr)

-{

-    register StatsPtr mem;

-    register StatsPtr stp = ToStats(ptr);

-

-    LOCK_PROCESS;

-    for (mem = XtMemory; mem; mem = mem->next) {

-	if (mem == stp) {

-	    UNLOCK_PROCESS;

-	    return True;

-	}

-    }

-    UNLOCK_PROCESS;

-    return False;

-}

-

-Boolean _XtValidateMemory = False;

-

-void _XtFree(

-    char *ptr)

-{

-   register StatsPtr stp;

-

-   LOCK_PROCESS;

-   if (ptr) {

-       if (_XtValidateMemory && !_XtIsValidPointer(ptr))

-	   abort();

-       stp = ToStats(ptr);

-       if (stp->file)

-	   ActiveXtMemory -= stp->size;

-       if (stp->prev)

-	   stp->prev->next = stp->next;

-       else

-	   XtMemory = stp->next;

-       if (stp->next)

-	   stp->next->prev = stp->prev;

-       Xfree((char *)stp);

-   }

-   UNLOCK_PROCESS;

-}

-

-void XtFree(char *ptr)

-{

-   _XtFree(ptr);

-}

-

-char *_XtHeapMalloc(

-    Heap *heap,

-    Cardinal size,

-    char *file,

-    int line)

-{

-    StatsPtr ptr;

-    unsigned newsize;

-    XtPointer hp = (XtPointer) heap;

-    char* retval = NULL;

-

-    LOCK_PROCESS;

-    newsize = StatsSize(size);

-    if ((ptr = (StatsPtr)Xmalloc(newsize)) == NULL)

-        _XtAllocError("malloc");

-    CHAIN(ptr, size, hp);

-    retval = (ToMem(ptr));

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-void _XtHeapFree(register XtPointer heap)

-{

-    register StatsPtr mem, next;

-

-    LOCK_PROCESS;

-    for (mem = XtMemory; mem; mem = next) {

-	next = mem->next;

-	if (mem->heap == heap) {

-	    if (mem->file)

-		ActiveXtMemory -= mem->size;

-	    if (mem->prev)

-		mem->prev->next = next;

-	    else

-		XtMemory = next;

-	    if (next)

-		next->prev = mem->prev;

-	    Xfree((char *)mem);

-	}

-    }

-    UNLOCK_PROCESS;

-}

-

-#include <stdio.h>

-

-void _XtPrintMemory(char * filename)

-{

-    register StatsPtr mem;

-    FILE *f;

-

-    if (filename == NULL)

-	f = stderr;

-    else 

-	f = fopen(filename, "w");

-    LOCK_PROCESS;

-    fprintf(f, "total size: %d\n", ActiveXtMemory);

-    for (mem = XtMemory; mem; mem = mem->next) {

-	if (mem->file)

-	    fprintf(f, "size: %6d  seq: %5d  %12s(%4d)  %s\n",

-		    mem->size, mem->seq,

-		    mem->file, mem->line, mem->heap ? "heap" : "");

-    }

-    UNLOCK_PROCESS;

-    if (filename) fclose(f);

-}

-

-#endif  /* XTTRACEMEMORY */

+/***********************************************************
+Copyright (c) 1993, 2011, 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.
+
+*/
+
+/*
+ * X Toolkit Memory Allocation Routines
+ *
+ * Uses Xlib memory management, which is spec'd to be re-entrant.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "InitialI.h"
+#undef _XBCOPYFUNC
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <stdarg.h>
+
+#define Xmalloc(size) malloc((size))
+#define Xrealloc(ptr, size) realloc((ptr), (size))
+#define Xcalloc(nelem, elsize) calloc((nelem), (elsize))
+#define Xfree(ptr) free(ptr)
+
+#ifdef _XNEEDBCOPYFUNC
+void _XtBcopy(
+    char *src, char *dst,
+    int length)
+{
+    if (src < dst) {
+	dst += length;
+	src += length;
+	while (length--)
+	    *--dst = *--src;
+    } else {
+	while (length--)
+	    *dst++ = *src++;
+    }
+}
+#endif
+
+void _XtAllocError(
+    String type)
+{
+    Cardinal num_params = 1;
+    if (type == NULL) type = "local memory allocation";
+    XtErrorMsg("allocError", type, XtCXtToolkitError,
+	       "Cannot perform %s", &type, &num_params);
+}
+
+void _XtHeapInit(
+    Heap*	heap)
+{
+    heap->start = NULL;
+    heap->bytes_remaining = 0;
+}
+
+/* Version of asprintf() using XtMalloc
+ * Not currently available in XTTRACEMEMORY version, since that would
+ * require varargs macros everywhere, which are only standard in C99 & later.
+ */
+Cardinal XtAsprintf(
+    String *new_string,
+    _Xconst char * _X_RESTRICT_KYWD format,
+    ...)
+{
+    char buf[256];
+    Cardinal len;
+    va_list ap;
+
+    va_start(ap, format);
+    len = vsnprintf(buf, sizeof(buf), format, ap);
+    va_end(ap);
+
+    if (len < 0)
+	_XtAllocError("vsnprintf");
+
+    *new_string = XtMalloc(len + 1); /* snprintf doesn't count trailing '\0' */
+    if (len < sizeof(buf))
+    {
+	strncpy(*new_string, buf, len);
+	(*new_string)[len] = '\0';
+    }
+    else
+    {
+	va_start(ap, format);
+	if (vsnprintf(*new_string, len + 1, format, ap) < 0)
+	    _XtAllocError("vsnprintf");
+	va_end(ap);
+    }
+    return len;
+}
+
+
+#ifndef XTTRACEMEMORY
+
+char *XtMalloc(
+    unsigned size)
+{
+    char *ptr;
+
+#if defined(MALLOC_0_RETURNS_NULL) && defined(XTMALLOC_BC)
+    /* preserve this (broken) behavior until everyone fixes their apps */
+    if (!size) size = 1;
+#endif
+    if ((ptr = Xmalloc(size)) == NULL)
+        _XtAllocError("malloc");
+
+    return(ptr);
+}
+
+char *XtRealloc(
+    char     *ptr,
+    unsigned size)
+{
+   if (ptr == NULL) {
+#ifdef MALLOC_0_RETURNS_NULL
+	if (!size) size = 1;
+#endif
+	return(XtMalloc(size));
+   } else if ((ptr = Xrealloc(ptr, size)) == NULL
+#ifdef MALLOC_0_RETURNS_NULL
+		&& size
+#endif
+	)
+	_XtAllocError("realloc");
+
+   return(ptr);
+}
+
+char *XtCalloc(
+    unsigned num, unsigned size)
+{
+    char *ptr;
+
+#if defined(MALLOC_0_RETURNS_NULL) && defined(XTMALLOC_BC)
+    /* preserve this (broken) behavior until everyone fixes their apps */
+    if (!size) num = size = 1;
+#endif
+    if ((ptr = Xcalloc(num, size)) == NULL)
+	_XtAllocError("calloc");
+
+    return(ptr);
+}
+
+void XtFree(
+    char *ptr)
+{
+    if (ptr != NULL) Xfree(ptr);
+}
+
+char* __XtMalloc(
+    unsigned size)
+{
+#ifdef MALLOC_0_RETURNS_NULL
+    if (!size) size = 1;
+#endif
+    return XtMalloc (size);
+}
+
+char* __XtCalloc(
+    unsigned num, unsigned size)
+{
+#ifdef MALLOC_0_RETURNS_NULL
+    if (!size) num = size = 1;
+#endif
+    return XtCalloc(num, size);
+}
+
+#ifndef HEAP_SEGMENT_SIZE
+#define HEAP_SEGMENT_SIZE 1492
+#endif
+
+char* _XtHeapAlloc(
+    Heap*	heap,
+    Cardinal	bytes)
+{
+    register char* heap_loc;
+    if (heap == NULL) return XtMalloc(bytes);
+    if (heap->bytes_remaining < (int)bytes) {
+	if ((bytes + sizeof(char*)) >= (HEAP_SEGMENT_SIZE>>1)) {
+	    /* preserve current segment; insert this one in front */
+#ifdef _TRACE_HEAP
+	    printf( "allocating large segment (%d bytes) on heap %#x\n",
+		    bytes, heap );
+#endif
+	    heap_loc = XtMalloc(bytes + sizeof(char*));
+	    if (heap->start) {
+		*(char**)heap_loc = *(char**)heap->start;
+		*(char**)heap->start = heap_loc;
+	    }
+	    else {
+		*(char**)heap_loc = NULL;
+		heap->start = heap_loc;
+	    }
+	    return heap_loc + sizeof(char*);
+	}
+	/* else discard remainder of this segment */
+#ifdef _TRACE_HEAP
+	printf( "allocating new segment on heap %#x\n", heap );
+#endif
+	heap_loc = XtMalloc((unsigned)HEAP_SEGMENT_SIZE);
+	*(char**)heap_loc = heap->start;
+	heap->start = heap_loc;
+	heap->current = heap_loc + sizeof(char*);
+	heap->bytes_remaining = HEAP_SEGMENT_SIZE - sizeof(char*);
+    }
+    bytes = (bytes + (sizeof(long) - 1)) & (~(sizeof(long) - 1));
+    heap_loc = heap->current;
+    heap->current += bytes;
+    heap->bytes_remaining -= bytes; /* can be negative, if rounded */
+    return heap_loc;
+}
+
+void _XtHeapFree(
+    Heap*	heap)
+{
+    char* segment = heap->start;
+    while (segment != NULL) {
+	char* next_segment = *(char**)segment;
+	XtFree(segment);
+	segment = next_segment;
+    }
+    heap->start = NULL;
+    heap->bytes_remaining = 0;
+}
+
+#else
+
+/*
+ * X Toolkit Memory Trace Allocation Routines
+ */
+
+#undef XtMalloc
+#undef XtRealloc
+#undef XtCalloc
+#undef XtFree
+
+typedef struct _Stats *StatsPtr;
+typedef struct _Stats {
+    StatsPtr prev, next;
+    char *file;
+    int line;
+    unsigned size;
+    unsigned long seq;
+    XtPointer heap;
+} Stats;
+
+static StatsPtr XtMemory = (StatsPtr)NULL;
+static unsigned long ActiveXtMemory = 0;
+static unsigned long XtSeqId = 0;
+static unsigned long XtSeqBreakpoint = ~0;
+
+#define StatsSize(n) ((((n) + (sizeof(long) - 1)) & ~(sizeof(long) - 1)) + sizeof(Stats))
+#define ToStats(ptr) ((StatsPtr)(ptr - sizeof(Stats)))
+#define ToMem(ptr) (((char *)ptr) + sizeof(Stats))
+
+#define CHAIN(ptr,len,hp) \
+    ptr->next = XtMemory; \
+    if (XtMemory) \
+        XtMemory->prev = ptr; \
+    XtMemory = ptr; \
+    ptr->prev = (StatsPtr)NULL; \
+    ptr->file = file; \
+    ptr->line = line; \
+    ptr->size = len; \
+    ptr->heap = hp; \
+    if (file) \
+	ActiveXtMemory += len; \
+    ptr->seq = XtSeqId; \
+    if (XtSeqId == XtSeqBreakpoint) \
+	_XtBreakpoint(ptr); \
+    XtSeqId++
+
+/*ARGUSED*/
+static void _XtBreakpoint(
+    StatsPtr mem)
+{
+    mem->seq = XtSeqId; /* avoid being optimized out of existence */
+}
+
+char *_XtMalloc(
+    unsigned size,
+    char *file,
+    int line)
+{
+    StatsPtr ptr;
+    unsigned newsize;
+    char* retval = NULL;
+
+    LOCK_PROCESS;
+    newsize = StatsSize(size);
+    if ((ptr = (StatsPtr)Xmalloc(newsize)) == NULL)
+        _XtAllocError("malloc");
+    CHAIN(ptr, size, NULL);
+    retval = (ToMem(ptr));
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+char *XtMalloc(
+    unsigned size)
+{
+    return _XtMalloc(size, (char *)NULL, 0);
+}
+
+char *_XtRealloc(
+    char     *ptr,
+    unsigned size,
+    char *file,
+    int line)
+{
+   char *newptr;
+
+   LOCK_PROCESS;
+   newptr = _XtMalloc(size, file, line);
+   if (ptr) {
+       unsigned copysize = ToStats(ptr)->size;
+       if (copysize > size) copysize = size;
+       memmove(newptr, ptr, copysize);
+       _XtFree(ptr);
+   }
+   UNLOCK_PROCESS;
+   return(newptr);
+}
+
+char *XtRealloc(
+    char     *ptr,
+    unsigned size)
+{
+    return _XtRealloc(ptr, size, (char *)NULL, 0);
+}
+
+char *_XtCalloc(
+    unsigned num, unsigned size,
+    char *file,
+    int line)
+{
+    StatsPtr ptr;
+    unsigned total, newsize;
+    char* retval = NULL;
+
+    LOCK_PROCESS;
+    total = num * size;
+    newsize = StatsSize(total);
+    if ((ptr = (StatsPtr)Xcalloc(newsize, 1)) == NULL)
+        _XtAllocError("calloc");
+    CHAIN(ptr, total, NULL);
+    retval = (ToMem(ptr));
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+char *XtCalloc(
+    unsigned num, unsigned size)
+{
+    return _XtCalloc(num, size, (char *)NULL, 0);
+}
+
+Boolean _XtIsValidPointer(
+    char *ptr)
+{
+    register StatsPtr mem;
+    register StatsPtr stp = ToStats(ptr);
+
+    LOCK_PROCESS;
+    for (mem = XtMemory; mem; mem = mem->next) {
+	if (mem == stp) {
+	    UNLOCK_PROCESS;
+	    return True;
+	}
+    }
+    UNLOCK_PROCESS;
+    return False;
+}
+
+Boolean _XtValidateMemory = False;
+
+void _XtFree(
+    char *ptr)
+{
+   register StatsPtr stp;
+
+   LOCK_PROCESS;
+   if (ptr) {
+       if (_XtValidateMemory && !_XtIsValidPointer(ptr))
+	   abort();
+       stp = ToStats(ptr);
+       if (stp->file)
+	   ActiveXtMemory -= stp->size;
+       if (stp->prev)
+	   stp->prev->next = stp->next;
+       else
+	   XtMemory = stp->next;
+       if (stp->next)
+	   stp->next->prev = stp->prev;
+       Xfree((char *)stp);
+   }
+   UNLOCK_PROCESS;
+}
+
+void XtFree(char *ptr)
+{
+   _XtFree(ptr);
+}
+
+char *_XtHeapMalloc(
+    Heap *heap,
+    Cardinal size,
+    char *file,
+    int line)
+{
+    StatsPtr ptr;
+    unsigned newsize;
+    XtPointer hp = (XtPointer) heap;
+    char* retval = NULL;
+
+    LOCK_PROCESS;
+    newsize = StatsSize(size);
+    if ((ptr = (StatsPtr)Xmalloc(newsize)) == NULL)
+        _XtAllocError("malloc");
+    CHAIN(ptr, size, hp);
+    retval = (ToMem(ptr));
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+void _XtHeapFree(register XtPointer heap)
+{
+    register StatsPtr mem, next;
+
+    LOCK_PROCESS;
+    for (mem = XtMemory; mem; mem = next) {
+	next = mem->next;
+	if (mem->heap == heap) {
+	    if (mem->file)
+		ActiveXtMemory -= mem->size;
+	    if (mem->prev)
+		mem->prev->next = next;
+	    else
+		XtMemory = next;
+	    if (next)
+		next->prev = mem->prev;
+	    Xfree((char *)mem);
+	}
+    }
+    UNLOCK_PROCESS;
+}
+
+#include <stdio.h>
+
+void _XtPrintMemory(char * filename)
+{
+    register StatsPtr mem;
+    FILE *f;
+
+    if (filename == NULL)
+	f = stderr;
+    else 
+	f = fopen(filename, "w");
+    LOCK_PROCESS;
+    fprintf(f, "total size: %d\n", ActiveXtMemory);
+    for (mem = XtMemory; mem; mem = mem->next) {
+	if (mem->file)
+	    fprintf(f, "size: %6d  seq: %5d  %12s(%4d)  %s\n",
+		    mem->size, mem->seq,
+		    mem->file, mem->line, mem->heap ? "heap" : "");
+    }
+    UNLOCK_PROCESS;
+    if (filename) fclose(f);
+}
+
+#endif  /* XTTRACEMEMORY */
diff --git a/libXt/src/ArgList.c b/libXt/src/ArgList.c
index e32841ad6..a88341c38 100644
--- a/libXt/src/ArgList.c
+++ b/libXt/src/ArgList.c
@@ -1,75 +1,75 @@
-/***********************************************************

-

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

-

-

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

-

-******************************************************************/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include	"IntrinsicI.h"

-#include	<stdio.h>

-

-/*

- * This routine merges two arglists. It does NOT check for duplicate entries.

- */

-

-ArgList XtMergeArgLists(

-    ArgList args1,

-    Cardinal num_args1,

-    ArgList args2,

-    Cardinal num_args2)

-{

-    ArgList result, args;

-

-    result = (ArgList) __XtCalloc((unsigned) num_args1 + num_args2,

-				(unsigned) sizeof(Arg));

-

-    for (args = result; num_args1 != 0; num_args1--)

-    	*args++ = *args1++;

-    for (             ; num_args2 != 0; num_args2--)

-    	*args++ = *args2++;

-

-    return result;

-}

+/***********************************************************
+
+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.
+
+
+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.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include	"IntrinsicI.h"
+#include	<stdio.h>
+
+/*
+ * This routine merges two arglists. It does NOT check for duplicate entries.
+ */
+
+ArgList XtMergeArgLists(
+    ArgList args1,
+    Cardinal num_args1,
+    ArgList args2,
+    Cardinal num_args2)
+{
+    ArgList result, args;
+
+    result = (ArgList) __XtCalloc((unsigned) num_args1 + num_args2,
+				(unsigned) sizeof(Arg));
+
+    for (args = result; num_args1 != 0; num_args1--)
+    	*args++ = *args1++;
+    for (             ; num_args2 != 0; num_args2--)
+    	*args++ = *args2++;
+
+    return result;
+}
diff --git a/libXt/src/Callback.c b/libXt/src/Callback.c
index 463414b79..a1231ecae 100644
--- a/libXt/src/Callback.c
+++ b/libXt/src/Callback.c
@@ -1,700 +1,700 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-

-static String XtNinvalidCallbackList = "invalidCallbackList";

-static String XtNxtAddCallback = "xtAddCallback";

-static String XtNxtRemoveCallback = "xtRemoveCallback";

-static String XtNxtRemoveAllCallback = "xtRemoveAllCallback";

-static String XtNxtCallCallback = "xtCallCallback";

-

-/* However it doesn't contain a final NULL record */

-#define ToList(p) ((XtCallbackList) ((p)+1))

-

-static InternalCallbackList* FetchInternalList(

-    Widget	widget,

-    _Xconst char *name)

-{

-    XrmQuark quark;

-    int n;

-    CallbackTable offsets;

-    InternalCallbackList* retval = NULL;

-

-    quark = StringToQuark(name);

-    LOCK_PROCESS;

-    offsets = (CallbackTable)

-	widget->core.widget_class->core_class.callback_private;

-

-    for (n = (int)(long) *(offsets++); --n >= 0; offsets++)

-	if (quark == (*offsets)->xrm_name) {

-	    retval = (InternalCallbackList *)

-		((char *) widget - (*offsets)->xrm_offset - 1);

-	    break;

-	}

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-

-void _XtAddCallback(

-    InternalCallbackList*   callbacks,

-    XtCallbackProc	    callback,

-    XtPointer		    closure)

-{

-    register InternalCallbackList icl;

-    register XtCallbackList cl;

-    register int count;

-

-    icl = *callbacks;

-    count = icl ? icl->count : 0;

-

-    if (icl && icl->call_state) {

-	icl->call_state |= _XtCBFreeAfterCalling;

-	icl = (InternalCallbackList)

-	    __XtMalloc(sizeof(InternalCallbackRec) +

-		     sizeof(XtCallbackRec) * (count + 1));

-	(void) memmove((char *)ToList(icl), (char *)ToList(*callbacks),

-		       sizeof(XtCallbackRec) * count);

-    } else {

-	icl = (InternalCallbackList)

-	    XtRealloc((char *) icl, sizeof(InternalCallbackRec) +

-		      sizeof(XtCallbackRec) * (count + 1));

-    }

-    *callbacks = icl;

-    icl->count = count + 1;

-    icl->is_padded = 0;

-    icl->call_state = 0;

-    cl = ToList(icl) + count;

-    cl->callback = callback;

-    cl->closure = closure;

-} /* _XtAddCallback */

-

-void _XtAddCallbackOnce(

-    register InternalCallbackList*callbacks,

-    XtCallbackProc	    callback,

-    XtPointer		    closure)

-{

-    register XtCallbackList cl = ToList(*callbacks);

-    register int i;

-

-    for (i=(*callbacks)->count; --i >= 0; cl++)

-	if (cl->callback == callback && cl->closure == closure)

-	    return;

-

-    _XtAddCallback(callbacks, callback, closure);

-} /* _XtAddCallbackOnce */

-

-void XtAddCallback(

-    Widget	    widget,

-    _Xconst char*   name,

-    XtCallbackProc  callback,

-    XtPointer	    closure

-    )

-{

-    InternalCallbackList *callbacks;

-    Widget hookobj;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, name);

-    if (!callbacks) {

-	XtAppWarningMsg(app,

-	       XtNinvalidCallbackList,XtNxtAddCallback,XtCXtToolkitError,

-              "Cannot find callback list in XtAddCallback",

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

-	UNLOCK_APP(app);

-	return;

-    }

-    _XtAddCallback(callbacks, callback, closure);

-    if (!_XtIsHookObject(widget)) {

-	hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-	if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	    XtChangeHookDataRec call_data;

-

-	    call_data.type = XtHaddCallback;

-	    call_data.widget = widget;

-	    call_data.event_data = (XtPointer) name;

-	    XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-	}

-    }

-    UNLOCK_APP(app);

-} /* XtAddCallback */

-

-/* ARGSUSED */

-static void AddCallbacks(

-    Widget		    widget,

-    InternalCallbackList   *callbacks,

-    XtCallbackList	    newcallbacks)

-{

-    register InternalCallbackList icl;

-    register int i, j;

-    register XtCallbackList cl;

-

-    icl = *callbacks;

-    i = icl ? icl->count : 0;

-    for (j=0, cl = newcallbacks; cl->callback; cl++, j++);

-    if (icl && icl->call_state) {

-	icl->call_state |= _XtCBFreeAfterCalling;

-	icl = (InternalCallbackList) __XtMalloc(sizeof(InternalCallbackRec) +

-					      sizeof(XtCallbackRec) * (i+j));

-	(void) memmove((char *)ToList(*callbacks), (char *)ToList(icl),

-		       sizeof(XtCallbackRec) * i);

-    } else {

-	icl = (InternalCallbackList) XtRealloc((char *) icl,

-					       sizeof(InternalCallbackRec) +

-					       sizeof(XtCallbackRec) * (i+j));

-    }

-    *callbacks = icl;

-    icl->count = i+j;

-    icl->is_padded = 0;

-    icl->call_state = 0;

-    for (cl = ToList(icl) + i; --j >= 0; )

-	*cl++ = *newcallbacks++;

-} /* AddCallbacks */

-

-void XtAddCallbacks(

-    Widget	    widget,

-    _Xconst char*   name,

-    XtCallbackList  xtcallbacks

-    )

-{

-    InternalCallbackList* callbacks;

-    Widget hookobj;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, name);

-    if (!callbacks) {

-	XtAppWarningMsg(app,

-	       XtNinvalidCallbackList,XtNxtAddCallback,XtCXtToolkitError,

-              "Cannot find callback list in XtAddCallbacks",

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

-	UNLOCK_APP(app);

-	return;

-    }

-    AddCallbacks(widget, callbacks, xtcallbacks);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHaddCallbacks;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) name;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtAddCallbacks */

-

-void _XtRemoveCallback (

-    InternalCallbackList   *callbacks,

-    XtCallbackProc	    callback,

-    XtPointer		    closure)

-{

-    register InternalCallbackList icl;

-    register int i, j;

-    register XtCallbackList cl, ncl, ocl;

-

-    icl = *callbacks;

-    if (!icl) return;

-

-    cl = ToList(icl);

-    for (i=icl->count; --i >= 0; cl++) {

-	if (cl->callback == callback && cl->closure == closure) {

-	    if (icl->call_state) {

-		icl->call_state |= _XtCBFreeAfterCalling;

-		if (icl->count == 1) {

-		    *callbacks = NULL;

-		} else {

-		    j = icl->count - i - 1;

-		    ocl = ToList(icl);

-		    icl = (InternalCallbackList)

-			__XtMalloc(sizeof(InternalCallbackRec) +

-				 sizeof(XtCallbackRec) * (i + j));

-		    icl->count = i + j;

-		    icl->is_padded = 0;

-		    icl->call_state = 0;

-		    ncl = ToList(icl);

-		    while (--j >= 0)

-			*ncl++ = *ocl++;

-		    while (--i >= 0)

-			*ncl++ = *++cl;

-		    *callbacks = icl;

-		}

-	    } else {

-		if (--icl->count) {

-		    ncl = cl + 1;

-		    while (--i >= 0)

-			*cl++ = *ncl++;

-		    icl = (InternalCallbackList)

-			XtRealloc((char *) icl, sizeof(InternalCallbackRec)

-				  + sizeof(XtCallbackRec) * icl->count);

-		    icl->is_padded = 0;

-		    *callbacks = icl;

-		} else {

-		    XtFree((char *) icl);

-		    *callbacks = NULL;

-		}

-	    }

-	    return;

-	}

-    }

-} /* _XtRemoveCallback */

-

-void XtRemoveCallback (

-    Widget	    widget,

-    _Xconst char*   name,

-    XtCallbackProc  callback,

-    XtPointer	    closure

-    )

-{

-    InternalCallbackList *callbacks;

-    Widget hookobj;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, name);

-    if (!callbacks) {

-	XtAppWarningMsg(app,

-	       XtNinvalidCallbackList,XtNxtRemoveCallback,XtCXtToolkitError,

-              "Cannot find callback list in XtRemoveCallback",

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

-	UNLOCK_APP(app);

-	return;

-    }

-    _XtRemoveCallback(callbacks, callback, closure);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHremoveCallback;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) name;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtRemoveCallback */

-

-

-void XtRemoveCallbacks (

-    Widget	    widget,

-    _Xconst char*   name,

-    XtCallbackList  xtcallbacks)

-{

-    InternalCallbackList *callbacks;

-    Widget hookobj;

-    int i;

-    InternalCallbackList icl;

-    XtCallbackList cl, ccl, rcl;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, name);

-    if (!callbacks) {

-	XtAppWarningMsg(app,

-	       XtNinvalidCallbackList,XtNxtRemoveCallback,XtCXtToolkitError,

-              "Cannot find callback list in XtRemoveCallbacks",

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

-	UNLOCK_APP(app);

-	return;

-    }

-

-    icl = *callbacks;

-    if (!icl) {

-	UNLOCK_APP(app);

-	return;

-    }

-

-    i = icl->count;

-    cl = ToList(icl);

-    if (icl->call_state) {

-	icl->call_state |= _XtCBFreeAfterCalling;

-	icl = (InternalCallbackList)__XtMalloc(sizeof(InternalCallbackRec) +

-					     sizeof(XtCallbackRec) * i);

-	icl->count = i;

-	icl->call_state = 0;

-    }

-    ccl = ToList(icl);

-    while (--i >= 0) {

-	*ccl++ = *cl;

-	for (rcl=xtcallbacks; rcl->callback; rcl++) {

-	    if (cl->callback == rcl->callback && cl->closure == rcl->closure) {

-		ccl--;

-		icl->count--;

-		break;

-	    }

-	}

-	cl++;

-    }

-    if (icl->count) {

-	icl = (InternalCallbackList)

-	    XtRealloc((char *)icl, (sizeof(InternalCallbackRec) +

-				    sizeof(XtCallbackRec) * icl->count));

-	icl->is_padded = 0;

-	*callbacks = icl;

-    } else {

-	XtFree((char *)icl);

-	*callbacks = NULL;

-    }

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHremoveCallbacks;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) name;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtRemoveCallbacks */

-

-

-void _XtRemoveAllCallbacks (

-    InternalCallbackList *callbacks)

-{

-    register InternalCallbackList icl = *callbacks;

-

-    if (icl) {

-	if (icl->call_state)

-	    icl->call_state |= _XtCBFreeAfterCalling;

-	else

-	    XtFree((char *) icl);

-	*callbacks = NULL;

-    }

-} /* _XtRemoveAllCallbacks */

-

-void XtRemoveAllCallbacks(

-    Widget widget,

-    _Xconst char* name)

-{

-    InternalCallbackList *callbacks;

-    Widget hookobj;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, name);

-    if (!callbacks) {

-	XtAppWarningMsg(app,

-	       XtNinvalidCallbackList,XtNxtRemoveAllCallback,XtCXtToolkitError,

-              "Cannot find callback list in XtRemoveAllCallbacks",

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

-	UNLOCK_APP(app);

-	return;

-    }

-    _XtRemoveAllCallbacks(callbacks);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHremoveAllCallbacks;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) name;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtRemoveAllCallbacks */

-

-InternalCallbackList _XtCompileCallbackList(

-    XtCallbackList xtcallbacks)

-{

-    register int n;

-    register XtCallbackList xtcl, cl;

-    register InternalCallbackList callbacks;

-

-    for (n=0, xtcl=xtcallbacks; xtcl->callback; n++, xtcl++) {};

-    if (n == 0) return (InternalCallbackList) NULL;

-

-    callbacks = (InternalCallbackList) __XtMalloc(sizeof(InternalCallbackRec) +

-						sizeof(XtCallbackRec) * n);

-    callbacks->count = n;

-    callbacks->is_padded = 0;

-    callbacks->call_state = 0;

-    cl = ToList(callbacks);

-    while (--n >= 0)

-	*cl++ = *xtcallbacks++;

-    return(callbacks);

-} /* _XtCompileCallbackList */

-

-

-XtCallbackList _XtGetCallbackList(

-    InternalCallbackList *callbacks)

-{

-    register int i;

-    register InternalCallbackList icl;

-    register XtCallbackList cl, ocl;

-

-    icl = *callbacks;

-    if (!icl) {

-	static XtCallbackRec emptyList[1] = { {NULL, NULL} };

-	return (XtCallbackList)emptyList;

-    }

-    if (icl->is_padded)

-	return ToList(icl);

-    i = icl->count;

-    if (icl->call_state) {

-	icl->call_state |= _XtCBFreeAfterCalling;

-	ocl = ToList(icl);

-	icl = (InternalCallbackList) __XtMalloc(sizeof(InternalCallbackRec) +

-					      sizeof(XtCallbackRec) * (i+1));

-	icl->count = i;

-	icl->call_state = 0;

-	cl = ToList(icl);

-	while (--i >= 0)

-	    *cl++ = *ocl++;

-    } else {

-	icl = (InternalCallbackList) XtRealloc((char *)icl,

-					       sizeof(InternalCallbackRec) +

-					       sizeof(XtCallbackRec) * (i+1));

-	cl = ToList(icl) + i;

-    }

-    icl->is_padded = 1;

-    cl->callback = (XtCallbackProc) NULL;

-    cl->closure = NULL;

-    *callbacks = icl;

-    return ToList(icl);

-}

-

-void XtCallCallbacks(

-    Widget   widget,

-    _Xconst char* name,

-    XtPointer call_data

-    )

-{

-    InternalCallbackList *callbacks;

-    InternalCallbackList icl;

-    XtCallbackList cl;

-    int i;

-    char ostate;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, name);

-    if (!callbacks) {

-	XtAppWarningMsg(app,

-	       XtNinvalidCallbackList,XtNxtCallCallback,XtCXtToolkitError,

-              "Cannot find callback list in XtCallCallbacks",

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

-	UNLOCK_APP(app);

-	return;

-    }

-

-    icl = *callbacks;

-    if (!icl) {

-	UNLOCK_APP(app);

-	return;

-    }

-    cl = ToList(icl);

-    if (icl->count == 1) {

-	(*cl->callback) (widget, cl->closure, call_data);

-	UNLOCK_APP(app);

-	return;

-    }

-    ostate = icl->call_state;

-    icl->call_state = _XtCBCalling;

-    for (i = icl->count; --i >= 0; cl++)

-	(*cl->callback) (widget, cl->closure, call_data);

-    if (ostate)

-	icl->call_state |= ostate;

-    else if (icl->call_state & _XtCBFreeAfterCalling)

-	XtFree((char *)icl);

-    else

-	icl->call_state = ostate;

-    UNLOCK_APP(app);

-} /* XtCallCallbacks */

-

-

-XtCallbackStatus XtHasCallbacks(

-     Widget		widget,

-     _Xconst char*	callback_name

-     )

-{

-    InternalCallbackList *callbacks;

-    XtCallbackStatus retval = XtCallbackHasSome;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    callbacks = FetchInternalList(widget, callback_name);

-    if (!callbacks)

-	retval = XtCallbackNoList;

-    else if (!*callbacks)

-	retval = XtCallbackHasNone;

-    UNLOCK_APP(app);

-    return retval;

-} /* XtHasCallbacks */

-

-

-void XtCallCallbackList(

-    Widget widget,

-    XtCallbackList callbacks,

-    XtPointer call_data)

-{

-    register InternalCallbackList icl;

-    register XtCallbackList cl;

-    register int i;

-    char ostate;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (!callbacks) {

-	UNLOCK_APP(app);

-	return;

-    }

-    icl = (InternalCallbackList)callbacks;

-    cl = ToList(icl);

-    if (icl->count == 1) {

-	(*cl->callback) (widget, cl->closure, call_data);

-	UNLOCK_APP(app);

-	return;

-    }

-    ostate = icl->call_state;

-    icl->call_state = _XtCBCalling;

-    for (i = icl->count; --i >= 0; cl++)

-	(*cl->callback) (widget, cl->closure, call_data);

-    if (ostate)

-	icl->call_state |= ostate;

-    else if (icl->call_state & _XtCBFreeAfterCalling)

-	XtFree((char *)icl);

-    else

-	icl->call_state = 0;

-    UNLOCK_APP(app);

-} /* XtCallCallbackList */

-

-void _XtPeekCallback(

-    Widget widget,

-    XtCallbackList callbacks,

-    XtCallbackProc *callback,

-    XtPointer *closure)

-{

-    register InternalCallbackList icl = (InternalCallbackList) callbacks;

-    register XtCallbackList cl;

-

-    if (!callbacks) {

-	*callback = (XtCallbackProc) NULL;

-	return;

-    }

-    cl = ToList(icl);

-    *callback = cl->callback;

-    *closure = cl->closure;

-    return;

-}

-

-void _XtCallConditionalCallbackList(

-    Widget widget,

-    XtCallbackList callbacks,

-    XtPointer call_data,

-    _XtConditionProc cond_proc)

-{

-    register InternalCallbackList icl;

-    register XtCallbackList cl;

-    register int i;

-    char ostate;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (!callbacks) {

-	UNLOCK_APP(app);

-	return;

-    }

-    icl = (InternalCallbackList)callbacks;

-    cl = ToList(icl);

-    if (icl->count == 1) {

-	(*cl->callback) (widget, cl->closure, call_data);

-	(void) (*cond_proc)(call_data);

-	UNLOCK_APP(app);

-	return;

-    }

-    ostate = icl->call_state;

-    icl->call_state = _XtCBCalling;

-    for (i = icl->count; --i >= 0; cl++) {

-	(*cl->callback) (widget, cl->closure, call_data);

-	if (! (*cond_proc)(call_data))

-	    break;

-    }

-    if (ostate)

-	icl->call_state |= ostate;

-    else if (icl->call_state & _XtCBFreeAfterCalling)

-	XtFree((char *)icl);

-    else

-	icl->call_state = 0;

-    UNLOCK_APP(app);

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+
+static String XtNinvalidCallbackList = "invalidCallbackList";
+static String XtNxtAddCallback = "xtAddCallback";
+static String XtNxtRemoveCallback = "xtRemoveCallback";
+static String XtNxtRemoveAllCallback = "xtRemoveAllCallback";
+static String XtNxtCallCallback = "xtCallCallback";
+
+/* However it doesn't contain a final NULL record */
+#define ToList(p) ((XtCallbackList) ((p)+1))
+
+static InternalCallbackList* FetchInternalList(
+    Widget	widget,
+    _Xconst char *name)
+{
+    XrmQuark quark;
+    int n;
+    CallbackTable offsets;
+    InternalCallbackList* retval = NULL;
+
+    quark = StringToQuark(name);
+    LOCK_PROCESS;
+    offsets = (CallbackTable)
+	widget->core.widget_class->core_class.callback_private;
+
+    for (n = (int)(long) *(offsets++); --n >= 0; offsets++)
+	if (quark == (*offsets)->xrm_name) {
+	    retval = (InternalCallbackList *)
+		((char *) widget - (*offsets)->xrm_offset - 1);
+	    break;
+	}
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+
+void _XtAddCallback(
+    InternalCallbackList*   callbacks,
+    XtCallbackProc	    callback,
+    XtPointer		    closure)
+{
+    register InternalCallbackList icl;
+    register XtCallbackList cl;
+    register int count;
+
+    icl = *callbacks;
+    count = icl ? icl->count : 0;
+
+    if (icl && icl->call_state) {
+	icl->call_state |= _XtCBFreeAfterCalling;
+	icl = (InternalCallbackList)
+	    __XtMalloc(sizeof(InternalCallbackRec) +
+		     sizeof(XtCallbackRec) * (count + 1));
+	(void) memmove((char *)ToList(icl), (char *)ToList(*callbacks),
+		       sizeof(XtCallbackRec) * count);
+    } else {
+	icl = (InternalCallbackList)
+	    XtRealloc((char *) icl, sizeof(InternalCallbackRec) +
+		      sizeof(XtCallbackRec) * (count + 1));
+    }
+    *callbacks = icl;
+    icl->count = count + 1;
+    icl->is_padded = 0;
+    icl->call_state = 0;
+    cl = ToList(icl) + count;
+    cl->callback = callback;
+    cl->closure = closure;
+} /* _XtAddCallback */
+
+void _XtAddCallbackOnce(
+    register InternalCallbackList*callbacks,
+    XtCallbackProc	    callback,
+    XtPointer		    closure)
+{
+    register XtCallbackList cl = ToList(*callbacks);
+    register int i;
+
+    for (i=(*callbacks)->count; --i >= 0; cl++)
+	if (cl->callback == callback && cl->closure == closure)
+	    return;
+
+    _XtAddCallback(callbacks, callback, closure);
+} /* _XtAddCallbackOnce */
+
+void XtAddCallback(
+    Widget	    widget,
+    _Xconst char*   name,
+    XtCallbackProc  callback,
+    XtPointer	    closure
+    )
+{
+    InternalCallbackList *callbacks;
+    Widget hookobj;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, name);
+    if (!callbacks) {
+	XtAppWarningMsg(app,
+	       XtNinvalidCallbackList,XtNxtAddCallback,XtCXtToolkitError,
+              "Cannot find callback list in XtAddCallback",
+	      (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+    _XtAddCallback(callbacks, callback, closure);
+    if (!_XtIsHookObject(widget)) {
+	hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+	if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	    XtChangeHookDataRec call_data;
+
+	    call_data.type = XtHaddCallback;
+	    call_data.widget = widget;
+	    call_data.event_data = (XtPointer) name;
+	    XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+	}
+    }
+    UNLOCK_APP(app);
+} /* XtAddCallback */
+
+/* ARGSUSED */
+static void AddCallbacks(
+    Widget		    widget,
+    InternalCallbackList   *callbacks,
+    XtCallbackList	    newcallbacks)
+{
+    register InternalCallbackList icl;
+    register int i, j;
+    register XtCallbackList cl;
+
+    icl = *callbacks;
+    i = icl ? icl->count : 0;
+    for (j=0, cl = newcallbacks; cl->callback; cl++, j++);
+    if (icl && icl->call_state) {
+	icl->call_state |= _XtCBFreeAfterCalling;
+	icl = (InternalCallbackList) __XtMalloc(sizeof(InternalCallbackRec) +
+					      sizeof(XtCallbackRec) * (i+j));
+	(void) memmove((char *)ToList(*callbacks), (char *)ToList(icl),
+		       sizeof(XtCallbackRec) * i);
+    } else {
+	icl = (InternalCallbackList) XtRealloc((char *) icl,
+					       sizeof(InternalCallbackRec) +
+					       sizeof(XtCallbackRec) * (i+j));
+    }
+    *callbacks = icl;
+    icl->count = i+j;
+    icl->is_padded = 0;
+    icl->call_state = 0;
+    for (cl = ToList(icl) + i; --j >= 0; )
+	*cl++ = *newcallbacks++;
+} /* AddCallbacks */
+
+void XtAddCallbacks(
+    Widget	    widget,
+    _Xconst char*   name,
+    XtCallbackList  xtcallbacks
+    )
+{
+    InternalCallbackList* callbacks;
+    Widget hookobj;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, name);
+    if (!callbacks) {
+	XtAppWarningMsg(app,
+	       XtNinvalidCallbackList,XtNxtAddCallback,XtCXtToolkitError,
+              "Cannot find callback list in XtAddCallbacks",
+	      (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+    AddCallbacks(widget, callbacks, xtcallbacks);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHaddCallbacks;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) name;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtAddCallbacks */
+
+void _XtRemoveCallback (
+    InternalCallbackList   *callbacks,
+    XtCallbackProc	    callback,
+    XtPointer		    closure)
+{
+    register InternalCallbackList icl;
+    register int i, j;
+    register XtCallbackList cl, ncl, ocl;
+
+    icl = *callbacks;
+    if (!icl) return;
+
+    cl = ToList(icl);
+    for (i=icl->count; --i >= 0; cl++) {
+	if (cl->callback == callback && cl->closure == closure) {
+	    if (icl->call_state) {
+		icl->call_state |= _XtCBFreeAfterCalling;
+		if (icl->count == 1) {
+		    *callbacks = NULL;
+		} else {
+		    j = icl->count - i - 1;
+		    ocl = ToList(icl);
+		    icl = (InternalCallbackList)
+			__XtMalloc(sizeof(InternalCallbackRec) +
+				 sizeof(XtCallbackRec) * (i + j));
+		    icl->count = i + j;
+		    icl->is_padded = 0;
+		    icl->call_state = 0;
+		    ncl = ToList(icl);
+		    while (--j >= 0)
+			*ncl++ = *ocl++;
+		    while (--i >= 0)
+			*ncl++ = *++cl;
+		    *callbacks = icl;
+		}
+	    } else {
+		if (--icl->count) {
+		    ncl = cl + 1;
+		    while (--i >= 0)
+			*cl++ = *ncl++;
+		    icl = (InternalCallbackList)
+			XtRealloc((char *) icl, sizeof(InternalCallbackRec)
+				  + sizeof(XtCallbackRec) * icl->count);
+		    icl->is_padded = 0;
+		    *callbacks = icl;
+		} else {
+		    XtFree((char *) icl);
+		    *callbacks = NULL;
+		}
+	    }
+	    return;
+	}
+    }
+} /* _XtRemoveCallback */
+
+void XtRemoveCallback (
+    Widget	    widget,
+    _Xconst char*   name,
+    XtCallbackProc  callback,
+    XtPointer	    closure
+    )
+{
+    InternalCallbackList *callbacks;
+    Widget hookobj;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, name);
+    if (!callbacks) {
+	XtAppWarningMsg(app,
+	       XtNinvalidCallbackList,XtNxtRemoveCallback,XtCXtToolkitError,
+              "Cannot find callback list in XtRemoveCallback",
+	      (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+    _XtRemoveCallback(callbacks, callback, closure);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHremoveCallback;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) name;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtRemoveCallback */
+
+
+void XtRemoveCallbacks (
+    Widget	    widget,
+    _Xconst char*   name,
+    XtCallbackList  xtcallbacks)
+{
+    InternalCallbackList *callbacks;
+    Widget hookobj;
+    int i;
+    InternalCallbackList icl;
+    XtCallbackList cl, ccl, rcl;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, name);
+    if (!callbacks) {
+	XtAppWarningMsg(app,
+	       XtNinvalidCallbackList,XtNxtRemoveCallback,XtCXtToolkitError,
+              "Cannot find callback list in XtRemoveCallbacks",
+	      (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+
+    icl = *callbacks;
+    if (!icl) {
+	UNLOCK_APP(app);
+	return;
+    }
+
+    i = icl->count;
+    cl = ToList(icl);
+    if (icl->call_state) {
+	icl->call_state |= _XtCBFreeAfterCalling;
+	icl = (InternalCallbackList)__XtMalloc(sizeof(InternalCallbackRec) +
+					     sizeof(XtCallbackRec) * i);
+	icl->count = i;
+	icl->call_state = 0;
+    }
+    ccl = ToList(icl);
+    while (--i >= 0) {
+	*ccl++ = *cl;
+	for (rcl=xtcallbacks; rcl->callback; rcl++) {
+	    if (cl->callback == rcl->callback && cl->closure == rcl->closure) {
+		ccl--;
+		icl->count--;
+		break;
+	    }
+	}
+	cl++;
+    }
+    if (icl->count) {
+	icl = (InternalCallbackList)
+	    XtRealloc((char *)icl, (sizeof(InternalCallbackRec) +
+				    sizeof(XtCallbackRec) * icl->count));
+	icl->is_padded = 0;
+	*callbacks = icl;
+    } else {
+	XtFree((char *)icl);
+	*callbacks = NULL;
+    }
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHremoveCallbacks;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) name;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtRemoveCallbacks */
+
+
+void _XtRemoveAllCallbacks (
+    InternalCallbackList *callbacks)
+{
+    register InternalCallbackList icl = *callbacks;
+
+    if (icl) {
+	if (icl->call_state)
+	    icl->call_state |= _XtCBFreeAfterCalling;
+	else
+	    XtFree((char *) icl);
+	*callbacks = NULL;
+    }
+} /* _XtRemoveAllCallbacks */
+
+void XtRemoveAllCallbacks(
+    Widget widget,
+    _Xconst char* name)
+{
+    InternalCallbackList *callbacks;
+    Widget hookobj;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, name);
+    if (!callbacks) {
+	XtAppWarningMsg(app,
+	       XtNinvalidCallbackList,XtNxtRemoveAllCallback,XtCXtToolkitError,
+              "Cannot find callback list in XtRemoveAllCallbacks",
+	      (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+    _XtRemoveAllCallbacks(callbacks);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHremoveAllCallbacks;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) name;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtRemoveAllCallbacks */
+
+InternalCallbackList _XtCompileCallbackList(
+    XtCallbackList xtcallbacks)
+{
+    register int n;
+    register XtCallbackList xtcl, cl;
+    register InternalCallbackList callbacks;
+
+    for (n=0, xtcl=xtcallbacks; xtcl->callback; n++, xtcl++) {};
+    if (n == 0) return (InternalCallbackList) NULL;
+
+    callbacks = (InternalCallbackList) __XtMalloc(sizeof(InternalCallbackRec) +
+						sizeof(XtCallbackRec) * n);
+    callbacks->count = n;
+    callbacks->is_padded = 0;
+    callbacks->call_state = 0;
+    cl = ToList(callbacks);
+    while (--n >= 0)
+	*cl++ = *xtcallbacks++;
+    return(callbacks);
+} /* _XtCompileCallbackList */
+
+
+XtCallbackList _XtGetCallbackList(
+    InternalCallbackList *callbacks)
+{
+    register int i;
+    register InternalCallbackList icl;
+    register XtCallbackList cl, ocl;
+
+    icl = *callbacks;
+    if (!icl) {
+	static XtCallbackRec emptyList[1] = { {NULL, NULL} };
+	return (XtCallbackList)emptyList;
+    }
+    if (icl->is_padded)
+	return ToList(icl);
+    i = icl->count;
+    if (icl->call_state) {
+	icl->call_state |= _XtCBFreeAfterCalling;
+	ocl = ToList(icl);
+	icl = (InternalCallbackList) __XtMalloc(sizeof(InternalCallbackRec) +
+					      sizeof(XtCallbackRec) * (i+1));
+	icl->count = i;
+	icl->call_state = 0;
+	cl = ToList(icl);
+	while (--i >= 0)
+	    *cl++ = *ocl++;
+    } else {
+	icl = (InternalCallbackList) XtRealloc((char *)icl,
+					       sizeof(InternalCallbackRec) +
+					       sizeof(XtCallbackRec) * (i+1));
+	cl = ToList(icl) + i;
+    }
+    icl->is_padded = 1;
+    cl->callback = (XtCallbackProc) NULL;
+    cl->closure = NULL;
+    *callbacks = icl;
+    return ToList(icl);
+}
+
+void XtCallCallbacks(
+    Widget   widget,
+    _Xconst char* name,
+    XtPointer call_data
+    )
+{
+    InternalCallbackList *callbacks;
+    InternalCallbackList icl;
+    XtCallbackList cl;
+    int i;
+    char ostate;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, name);
+    if (!callbacks) {
+	XtAppWarningMsg(app,
+	       XtNinvalidCallbackList,XtNxtCallCallback,XtCXtToolkitError,
+              "Cannot find callback list in XtCallCallbacks",
+	      (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+
+    icl = *callbacks;
+    if (!icl) {
+	UNLOCK_APP(app);
+	return;
+    }
+    cl = ToList(icl);
+    if (icl->count == 1) {
+	(*cl->callback) (widget, cl->closure, call_data);
+	UNLOCK_APP(app);
+	return;
+    }
+    ostate = icl->call_state;
+    icl->call_state = _XtCBCalling;
+    for (i = icl->count; --i >= 0; cl++)
+	(*cl->callback) (widget, cl->closure, call_data);
+    if (ostate)
+	icl->call_state |= ostate;
+    else if (icl->call_state & _XtCBFreeAfterCalling)
+	XtFree((char *)icl);
+    else
+	icl->call_state = ostate;
+    UNLOCK_APP(app);
+} /* XtCallCallbacks */
+
+
+XtCallbackStatus XtHasCallbacks(
+     Widget		widget,
+     _Xconst char*	callback_name
+     )
+{
+    InternalCallbackList *callbacks;
+    XtCallbackStatus retval = XtCallbackHasSome;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    callbacks = FetchInternalList(widget, callback_name);
+    if (!callbacks)
+	retval = XtCallbackNoList;
+    else if (!*callbacks)
+	retval = XtCallbackHasNone;
+    UNLOCK_APP(app);
+    return retval;
+} /* XtHasCallbacks */
+
+
+void XtCallCallbackList(
+    Widget widget,
+    XtCallbackList callbacks,
+    XtPointer call_data)
+{
+    register InternalCallbackList icl;
+    register XtCallbackList cl;
+    register int i;
+    char ostate;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (!callbacks) {
+	UNLOCK_APP(app);
+	return;
+    }
+    icl = (InternalCallbackList)callbacks;
+    cl = ToList(icl);
+    if (icl->count == 1) {
+	(*cl->callback) (widget, cl->closure, call_data);
+	UNLOCK_APP(app);
+	return;
+    }
+    ostate = icl->call_state;
+    icl->call_state = _XtCBCalling;
+    for (i = icl->count; --i >= 0; cl++)
+	(*cl->callback) (widget, cl->closure, call_data);
+    if (ostate)
+	icl->call_state |= ostate;
+    else if (icl->call_state & _XtCBFreeAfterCalling)
+	XtFree((char *)icl);
+    else
+	icl->call_state = 0;
+    UNLOCK_APP(app);
+} /* XtCallCallbackList */
+
+void _XtPeekCallback(
+    Widget widget,
+    XtCallbackList callbacks,
+    XtCallbackProc *callback,
+    XtPointer *closure)
+{
+    register InternalCallbackList icl = (InternalCallbackList) callbacks;
+    register XtCallbackList cl;
+
+    if (!callbacks) {
+	*callback = (XtCallbackProc) NULL;
+	return;
+    }
+    cl = ToList(icl);
+    *callback = cl->callback;
+    *closure = cl->closure;
+    return;
+}
+
+void _XtCallConditionalCallbackList(
+    Widget widget,
+    XtCallbackList callbacks,
+    XtPointer call_data,
+    _XtConditionProc cond_proc)
+{
+    register InternalCallbackList icl;
+    register XtCallbackList cl;
+    register int i;
+    char ostate;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (!callbacks) {
+	UNLOCK_APP(app);
+	return;
+    }
+    icl = (InternalCallbackList)callbacks;
+    cl = ToList(icl);
+    if (icl->count == 1) {
+	(*cl->callback) (widget, cl->closure, call_data);
+	(void) (*cond_proc)(call_data);
+	UNLOCK_APP(app);
+	return;
+    }
+    ostate = icl->call_state;
+    icl->call_state = _XtCBCalling;
+    for (i = icl->count; --i >= 0; cl++) {
+	(*cl->callback) (widget, cl->closure, call_data);
+	if (! (*cond_proc)(call_data))
+	    break;
+    }
+    if (ostate)
+	icl->call_state |= ostate;
+    else if (icl->call_state & _XtCBFreeAfterCalling)
+	XtFree((char *)icl);
+    else
+	icl->call_state = 0;
+    UNLOCK_APP(app);
+}
diff --git a/libXt/src/ClickTime.c b/libXt/src/ClickTime.c
index b87aad51a..7a836cc3d 100644
--- a/libXt/src/ClickTime.c
+++ b/libXt/src/ClickTime.c
@@ -1,102 +1,102 @@
-/***********************************************************

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

-

-*/

-

-/*

- * Contains XtSetMultiClickTime, XtGetMultiClickTime

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-

-void XtSetMultiClickTime(

-    Display *dpy,

-    int time)

-{

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    _XtGetPerDisplay(dpy)->multi_click_time = time;

-    UNLOCK_APP(app);

-}

-

-

-int XtGetMultiClickTime(

-    Display *dpy)

-{

-    int retval;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    retval = _XtGetPerDisplay(dpy)->multi_click_time;

-    UNLOCK_APP(app);

-    return retval;

-}

+/***********************************************************
+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.
+
+*/
+
+/*
+ * Contains XtSetMultiClickTime, XtGetMultiClickTime
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+
+void XtSetMultiClickTime(
+    Display *dpy,
+    int time)
+{
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    _XtGetPerDisplay(dpy)->multi_click_time = time;
+    UNLOCK_APP(app);
+}
+
+
+int XtGetMultiClickTime(
+    Display *dpy)
+{
+    int retval;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    retval = _XtGetPerDisplay(dpy)->multi_click_time;
+    UNLOCK_APP(app);
+    return retval;
+}
diff --git a/libXt/src/Composite.c b/libXt/src/Composite.c
index 27db46c1a..29893d820 100644
--- a/libXt/src/Composite.c
+++ b/libXt/src/Composite.c
@@ -1,291 +1,291 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-

-static XtResource resources[] = {

-    {XtNchildren, XtCReadOnly, XtRWidgetList, sizeof(WidgetList),

-     XtOffsetOf(CompositeRec, composite.children), XtRImmediate, NULL},

-    {XtNnumChildren, XtCReadOnly, XtRCardinal, sizeof(Cardinal),

-     XtOffsetOf(CompositeRec, composite.num_children), XtRImmediate, NULL},

-    {XtNinsertPosition, XtCInsertPosition, XtRFunction, sizeof(XtOrderProc),

-     XtOffsetOf(CompositeRec, composite.insert_position), XtRImmediate, NULL},

-};

-

-static void CompositeClassPartInitialize(WidgetClass);

-static void CompositeInitialize(Widget, Widget, ArgList, Cardinal *);

-static void CompositeInsertChild(Widget);

-static void CompositeDeleteChild(Widget);

-static void CompositeDestroy(Widget);

-

-externaldef(compositeclassrec) CompositeClassRec compositeClassRec = {

-  { /******* CorePart *******/

-    /* superclass	    */	&widgetClassRec,

-    /* class_name	    */	"Composite",

-    /* widget_size	    */	sizeof(CompositeRec),

-    /* class_initialize     */  NULL,

-    /* class_part_initialize*/	CompositeClassPartInitialize,

-    /* class_inited	    */	FALSE,

-    /* initialize	    */	CompositeInitialize,

-    /* initialize_hook      */	NULL,

-    /* realize		    */	XtInheritRealize,

-    /* actions		    */	NULL,

-    /* num_actions	    */	0,

-    /* resources	    */	resources,

-    /* num_resources	    */	XtNumber(resources),

-    /* xrm_class	    */	NULLQUARK,

-    /* compress_motion      */	FALSE,

-    /* compress_exposure    */	TRUE,

-    /* compress_enterleave  */  FALSE,

-    /* visible_interest     */	FALSE,

-    /* destroy		    */	CompositeDestroy,

-    /* resize		    */	NULL,

-    /* expose		    */	NULL,

-    /* set_values	    */	NULL,

-    /* set_values_hook      */	NULL,

-    /* set_values_almost    */	XtInheritSetValuesAlmost,

-    /* get_values_hook      */	NULL,

-    /* accept_focus	    */	NULL,

-    /* version		    */	XtVersion,

-    /* callback_offsets     */  NULL,

-    /* tm_table		    */  NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */	NULL,

-    /* extension	    */  NULL

-  },

-  { /**** CompositePart *****/

-    /* geometry_handler     */  NULL,

-    /* change_managed       */  NULL,

-    /* insert_child	    */  CompositeInsertChild,

-    /* delete_child	    */  CompositeDeleteChild,

-    /* extension	    */  NULL

-    }

-};

-

-externaldef(compositewidgetclass) WidgetClass compositeWidgetClass = (WidgetClass) &compositeClassRec;

-

-static void InheritAllowsChangeManagedSet(

-    WidgetClass widget_class)

-{

-    CompositeWidgetClass cc = (CompositeWidgetClass) widget_class;

-    CompositeClassExtension ext, super_ext, new_ext;

-

-    ext = (CompositeClassExtension)

-	XtGetClassExtension(widget_class,

-		    XtOffsetOf(CompositeClassRec, composite_class.extension),

-			    NULLQUARK, 1L, 0);

-

-    if (ext && ext->version == XtCompositeExtensionVersion)

-	return;

-

-    super_ext = (CompositeClassExtension)

-	XtGetClassExtension(cc->core_class.superclass,

-		    XtOffsetOf(CompositeClassRec, composite_class.extension),

-			    NULLQUARK, 1L, 0);

-

-    LOCK_PROCESS;

-    if (super_ext && super_ext->version == XtCompositeExtensionVersion &&

-	super_ext->record_size == sizeof(CompositeClassExtensionRec) &&

-	super_ext->allows_change_managed_set) {

-

-	new_ext = (CompositeClassExtension)

-	    __XtCalloc(1, sizeof(CompositeClassExtensionRec));

-

-	/* Be careful to inherit only what is appropriate */

-	new_ext->next_extension = cc->composite_class.extension;

-	new_ext->record_type = NULLQUARK;

-	new_ext->version = XtCompositeExtensionVersion;

-	new_ext->record_size = sizeof(CompositeClassExtensionRec);

-	new_ext->accepts_objects = (ext ? ext->accepts_objects : False);

-	new_ext->allows_change_managed_set = True;

-	cc->composite_class.extension = (XtPointer) new_ext;

-    }

-    UNLOCK_PROCESS;

-}

-

-static void CompositeClassPartInitialize(

-	WidgetClass widgetClass)

-{

-    register CompositePartPtr wcPtr;

-    register CompositePartPtr superPtr = NULL;

-

-    wcPtr = (CompositePartPtr)

-	&(((CompositeWidgetClass)widgetClass)->composite_class);

-

-    if (widgetClass != compositeWidgetClass)

-	/* don't compute possible bogus pointer */

-	superPtr = (CompositePartPtr)&(((CompositeWidgetClass)widgetClass

-			->core_class.superclass)->composite_class);

-

-    /* We don't need to check for null super since we'll get to composite

-       eventually, and it had better define them!  */

-

-    LOCK_PROCESS;

-    if (wcPtr->geometry_manager == XtInheritGeometryManager) {

-	wcPtr->geometry_manager =

-		superPtr->geometry_manager;

-    }

-

-    if (wcPtr->change_managed == XtInheritChangeManaged) {

-	wcPtr->change_managed =

-		superPtr->change_managed;

-	InheritAllowsChangeManagedSet(widgetClass);

-    }

-

-    if (wcPtr->insert_child == XtInheritInsertChild) {

-	wcPtr->insert_child = superPtr->insert_child;

-    }

-

-    if (wcPtr->delete_child == XtInheritDeleteChild) {

-	wcPtr->delete_child = superPtr->delete_child;

-    }

-    UNLOCK_PROCESS;

-}

-

-static void CompositeDestroy(

-    Widget	w)

-{

-    register CompositeWidget cw = (CompositeWidget) w;

-

-    XtFree((char *) cw->composite.children);

-}

-

-static void CompositeInsertChild(

-    Widget	w)

-{

-    register Cardinal	     position;

-    register Cardinal        i;

-    register CompositeWidget cw;

-    register WidgetList      children;

-

-    cw = (CompositeWidget) w->core.parent;

-    children = cw->composite.children;

-

-    if (cw->composite.insert_position != NULL)

-	position = (*(cw->composite.insert_position))(w);

-    else

-	position = cw->composite.num_children;

-

-    if (cw->composite.num_children == cw->composite.num_slots) {

-	/* Allocate more space */

-	cw->composite.num_slots +=  (cw->composite.num_slots / 2) + 2;

-	cw->composite.children = children =

-	    (WidgetList) XtRealloc((XtPointer) children,

-	    (unsigned) (cw->composite.num_slots) * sizeof(Widget));

-    }

-    /* Ripple children up one space from "position" */

-    for (i = cw->composite.num_children; i > position; i--) {

-	children[i] = children[i-1];

-    }

-    children[position] = w;

-    cw->composite.num_children++;

-}

-

-static void CompositeDeleteChild(

-    Widget	w)

-{

-    register Cardinal	     position;

-    register Cardinal	     i;

-    register CompositeWidget cw;

-

-    cw = (CompositeWidget) w->core.parent;

-

-    for (position = 0; position < cw->composite.num_children; position++) {

-        if (cw->composite.children[position] == w) {

-	    break;

-	}

-    }

-    if (position == cw->composite.num_children) return;

-

-    /* Ripple children down one space from "position" */

-    cw->composite.num_children--;

-    for (i = position; i < cw->composite.num_children; i++) {

-        cw->composite.children[i] = cw->composite.children[i+1];

-    }

-}

-

-/* ARGSUSED */

-static void CompositeInitialize(

-    Widget   requested_widget,

-    Widget   new_widget,

-    ArgList args,

-    Cardinal *num_args)

-{

-    register CompositeWidget cw;

-

-    cw = (CompositeWidget) new_widget;

-    cw->composite.num_children = 0;

-    cw->composite.children = NULL;

-    cw->composite.num_slots = 0;

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+
+static XtResource resources[] = {
+    {XtNchildren, XtCReadOnly, XtRWidgetList, sizeof(WidgetList),
+     XtOffsetOf(CompositeRec, composite.children), XtRImmediate, NULL},
+    {XtNnumChildren, XtCReadOnly, XtRCardinal, sizeof(Cardinal),
+     XtOffsetOf(CompositeRec, composite.num_children), XtRImmediate, NULL},
+    {XtNinsertPosition, XtCInsertPosition, XtRFunction, sizeof(XtOrderProc),
+     XtOffsetOf(CompositeRec, composite.insert_position), XtRImmediate, NULL},
+};
+
+static void CompositeClassPartInitialize(WidgetClass);
+static void CompositeInitialize(Widget, Widget, ArgList, Cardinal *);
+static void CompositeInsertChild(Widget);
+static void CompositeDeleteChild(Widget);
+static void CompositeDestroy(Widget);
+
+externaldef(compositeclassrec) CompositeClassRec compositeClassRec = {
+  { /******* CorePart *******/
+    /* superclass	    */	&widgetClassRec,
+    /* class_name	    */	"Composite",
+    /* widget_size	    */	sizeof(CompositeRec),
+    /* class_initialize     */  NULL,
+    /* class_part_initialize*/	CompositeClassPartInitialize,
+    /* class_inited	    */	FALSE,
+    /* initialize	    */	CompositeInitialize,
+    /* initialize_hook      */	NULL,
+    /* realize		    */	XtInheritRealize,
+    /* actions		    */	NULL,
+    /* num_actions	    */	0,
+    /* resources	    */	resources,
+    /* num_resources	    */	XtNumber(resources),
+    /* xrm_class	    */	NULLQUARK,
+    /* compress_motion      */	FALSE,
+    /* compress_exposure    */	TRUE,
+    /* compress_enterleave  */  FALSE,
+    /* visible_interest     */	FALSE,
+    /* destroy		    */	CompositeDestroy,
+    /* resize		    */	NULL,
+    /* expose		    */	NULL,
+    /* set_values	    */	NULL,
+    /* set_values_hook      */	NULL,
+    /* set_values_almost    */	XtInheritSetValuesAlmost,
+    /* get_values_hook      */	NULL,
+    /* accept_focus	    */	NULL,
+    /* version		    */	XtVersion,
+    /* callback_offsets     */  NULL,
+    /* tm_table		    */  NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */	NULL,
+    /* extension	    */  NULL
+  },
+  { /**** CompositePart *****/
+    /* geometry_handler     */  NULL,
+    /* change_managed       */  NULL,
+    /* insert_child	    */  CompositeInsertChild,
+    /* delete_child	    */  CompositeDeleteChild,
+    /* extension	    */  NULL
+    }
+};
+
+externaldef(compositewidgetclass) WidgetClass compositeWidgetClass = (WidgetClass) &compositeClassRec;
+
+static void InheritAllowsChangeManagedSet(
+    WidgetClass widget_class)
+{
+    CompositeWidgetClass cc = (CompositeWidgetClass) widget_class;
+    CompositeClassExtension ext, super_ext, new_ext;
+
+    ext = (CompositeClassExtension)
+	XtGetClassExtension(widget_class,
+		    XtOffsetOf(CompositeClassRec, composite_class.extension),
+			    NULLQUARK, 1L, 0);
+
+    if (ext && ext->version == XtCompositeExtensionVersion)
+	return;
+
+    super_ext = (CompositeClassExtension)
+	XtGetClassExtension(cc->core_class.superclass,
+		    XtOffsetOf(CompositeClassRec, composite_class.extension),
+			    NULLQUARK, 1L, 0);
+
+    LOCK_PROCESS;
+    if (super_ext && super_ext->version == XtCompositeExtensionVersion &&
+	super_ext->record_size == sizeof(CompositeClassExtensionRec) &&
+	super_ext->allows_change_managed_set) {
+
+	new_ext = (CompositeClassExtension)
+	    __XtCalloc(1, sizeof(CompositeClassExtensionRec));
+
+	/* Be careful to inherit only what is appropriate */
+	new_ext->next_extension = cc->composite_class.extension;
+	new_ext->record_type = NULLQUARK;
+	new_ext->version = XtCompositeExtensionVersion;
+	new_ext->record_size = sizeof(CompositeClassExtensionRec);
+	new_ext->accepts_objects = (ext ? ext->accepts_objects : False);
+	new_ext->allows_change_managed_set = True;
+	cc->composite_class.extension = (XtPointer) new_ext;
+    }
+    UNLOCK_PROCESS;
+}
+
+static void CompositeClassPartInitialize(
+	WidgetClass widgetClass)
+{
+    register CompositePartPtr wcPtr;
+    register CompositePartPtr superPtr = NULL;
+
+    wcPtr = (CompositePartPtr)
+	&(((CompositeWidgetClass)widgetClass)->composite_class);
+
+    if (widgetClass != compositeWidgetClass)
+	/* don't compute possible bogus pointer */
+	superPtr = (CompositePartPtr)&(((CompositeWidgetClass)widgetClass
+			->core_class.superclass)->composite_class);
+
+    /* We don't need to check for null super since we'll get to composite
+       eventually, and it had better define them!  */
+
+    LOCK_PROCESS;
+    if (wcPtr->geometry_manager == XtInheritGeometryManager) {
+	wcPtr->geometry_manager =
+		superPtr->geometry_manager;
+    }
+
+    if (wcPtr->change_managed == XtInheritChangeManaged) {
+	wcPtr->change_managed =
+		superPtr->change_managed;
+	InheritAllowsChangeManagedSet(widgetClass);
+    }
+
+    if (wcPtr->insert_child == XtInheritInsertChild) {
+	wcPtr->insert_child = superPtr->insert_child;
+    }
+
+    if (wcPtr->delete_child == XtInheritDeleteChild) {
+	wcPtr->delete_child = superPtr->delete_child;
+    }
+    UNLOCK_PROCESS;
+}
+
+static void CompositeDestroy(
+    Widget	w)
+{
+    register CompositeWidget cw = (CompositeWidget) w;
+
+    XtFree((char *) cw->composite.children);
+}
+
+static void CompositeInsertChild(
+    Widget	w)
+{
+    register Cardinal	     position;
+    register Cardinal        i;
+    register CompositeWidget cw;
+    register WidgetList      children;
+
+    cw = (CompositeWidget) w->core.parent;
+    children = cw->composite.children;
+
+    if (cw->composite.insert_position != NULL)
+	position = (*(cw->composite.insert_position))(w);
+    else
+	position = cw->composite.num_children;
+
+    if (cw->composite.num_children == cw->composite.num_slots) {
+	/* Allocate more space */
+	cw->composite.num_slots +=  (cw->composite.num_slots / 2) + 2;
+	cw->composite.children = children =
+	    (WidgetList) XtRealloc((XtPointer) children,
+	    (unsigned) (cw->composite.num_slots) * sizeof(Widget));
+    }
+    /* Ripple children up one space from "position" */
+    for (i = cw->composite.num_children; i > position; i--) {
+	children[i] = children[i-1];
+    }
+    children[position] = w;
+    cw->composite.num_children++;
+}
+
+static void CompositeDeleteChild(
+    Widget	w)
+{
+    register Cardinal	     position;
+    register Cardinal	     i;
+    register CompositeWidget cw;
+
+    cw = (CompositeWidget) w->core.parent;
+
+    for (position = 0; position < cw->composite.num_children; position++) {
+        if (cw->composite.children[position] == w) {
+	    break;
+	}
+    }
+    if (position == cw->composite.num_children) return;
+
+    /* Ripple children down one space from "position" */
+    cw->composite.num_children--;
+    for (i = position; i < cw->composite.num_children; i++) {
+        cw->composite.children[i] = cw->composite.children[i+1];
+    }
+}
+
+/* ARGSUSED */
+static void CompositeInitialize(
+    Widget   requested_widget,
+    Widget   new_widget,
+    ArgList args,
+    Cardinal *num_args)
+{
+    register CompositeWidget cw;
+
+    cw = (CompositeWidget) new_widget;
+    cw->composite.num_children = 0;
+    cw->composite.children = NULL;
+    cw->composite.num_slots = 0;
+}
diff --git a/libXt/src/Constraint.c b/libXt/src/Constraint.c
index 47f19355a..92b61b6ed 100644
--- a/libXt/src/Constraint.c
+++ b/libXt/src/Constraint.c
@@ -1,141 +1,141 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-

-static void ConstraintPartInitialize(WidgetClass wc);

-externaldef(constraintclassrec) ConstraintClassRec constraintClassRec = {

-  { /******* CorePart *******/

-    /* superclass	    */	(WidgetClass) &compositeClassRec,

-    /* class_name	    */	"Constraint",

-    /* widget_size	    */	sizeof(ConstraintRec),

-    /* class_initialize     */  NULL,

-    /* class_part_initialize*/	ConstraintPartInitialize,

-    /* class_inited	    */	FALSE,

-    /* initialize	    */	NULL,

-    /* initialize_hook      */	NULL,

-    /* realize		    */	XtInheritRealize,

-    /* actions		    */	NULL,

-    /* num_actions	    */	0,

-    /* resources	    */	NULL,

-    /* num_resources	    */	0,

-    /* xrm_class	    */	NULLQUARK,

-    /* compress_motion      */	FALSE,

-    /* compress_exposure    */	TRUE,

-    /* compress_enterleave  */  FALSE,

-    /* visible_interest     */	FALSE,

-    /* destroy		    */	NULL,

-    /* resize		    */	NULL,

-    /* expose		    */	NULL,

-    /* set_values	    */	NULL,

-    /* set_values_hook      */	NULL,

-    /* set_values_almost    */	XtInheritSetValuesAlmost,

-    /* get_values_hook      */	NULL,

-    /* accept_focus	    */	NULL,

-    /* version		    */	XtVersion,

-    /* callback_offsets     */  NULL,

-    /* tm_table		    */  NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */  NULL,

-    /* extension	    */  NULL

-  },{ /**** CompositePart *****/

-    /* geometry_handler     */  NULL,

-    /* change_managed       */  NULL,

-    /* insert_child	    */  XtInheritInsertChild,

-    /* delete_child	    */  XtInheritDeleteChild,

-    /* extension	    */  NULL

-  },{ /**** ConstraintPart ****/

-    /* resources	    */  NULL,

-    /* num_resources	    */  0,

-    /* constraint_size      */  0,

-    /* initialize	    */  NULL,

-    /* destroy		    */  NULL,

-    /* set_values	    */  NULL,

-    /* extension	    */  NULL

-  }

-};

-

-externaldef(constraintwidgetclass) WidgetClass constraintWidgetClass =

-	(WidgetClass) &constraintClassRec;

-

-

-static void ConstraintPartInitialize(WidgetClass wc)

-{

-    ConstraintWidgetClass cwc = (ConstraintWidgetClass)wc;

-    if (cwc->constraint_class.resources)

-	_XtCompileResourceList(cwc->constraint_class.resources,

-			       cwc->constraint_class.num_resources);

-

-    _XtConstraintResDependencies((ConstraintWidgetClass)wc);

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+
+static void ConstraintPartInitialize(WidgetClass wc);
+externaldef(constraintclassrec) ConstraintClassRec constraintClassRec = {
+  { /******* CorePart *******/
+    /* superclass	    */	(WidgetClass) &compositeClassRec,
+    /* class_name	    */	"Constraint",
+    /* widget_size	    */	sizeof(ConstraintRec),
+    /* class_initialize     */  NULL,
+    /* class_part_initialize*/	ConstraintPartInitialize,
+    /* class_inited	    */	FALSE,
+    /* initialize	    */	NULL,
+    /* initialize_hook      */	NULL,
+    /* realize		    */	XtInheritRealize,
+    /* actions		    */	NULL,
+    /* num_actions	    */	0,
+    /* resources	    */	NULL,
+    /* num_resources	    */	0,
+    /* xrm_class	    */	NULLQUARK,
+    /* compress_motion      */	FALSE,
+    /* compress_exposure    */	TRUE,
+    /* compress_enterleave  */  FALSE,
+    /* visible_interest     */	FALSE,
+    /* destroy		    */	NULL,
+    /* resize		    */	NULL,
+    /* expose		    */	NULL,
+    /* set_values	    */	NULL,
+    /* set_values_hook      */	NULL,
+    /* set_values_almost    */	XtInheritSetValuesAlmost,
+    /* get_values_hook      */	NULL,
+    /* accept_focus	    */	NULL,
+    /* version		    */	XtVersion,
+    /* callback_offsets     */  NULL,
+    /* tm_table		    */  NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */  NULL,
+    /* extension	    */  NULL
+  },{ /**** CompositePart *****/
+    /* geometry_handler     */  NULL,
+    /* change_managed       */  NULL,
+    /* insert_child	    */  XtInheritInsertChild,
+    /* delete_child	    */  XtInheritDeleteChild,
+    /* extension	    */  NULL
+  },{ /**** ConstraintPart ****/
+    /* resources	    */  NULL,
+    /* num_resources	    */  0,
+    /* constraint_size      */  0,
+    /* initialize	    */  NULL,
+    /* destroy		    */  NULL,
+    /* set_values	    */  NULL,
+    /* extension	    */  NULL
+  }
+};
+
+externaldef(constraintwidgetclass) WidgetClass constraintWidgetClass =
+	(WidgetClass) &constraintClassRec;
+
+
+static void ConstraintPartInitialize(WidgetClass wc)
+{
+    ConstraintWidgetClass cwc = (ConstraintWidgetClass)wc;
+    if (cwc->constraint_class.resources)
+	_XtCompileResourceList(cwc->constraint_class.resources,
+			       cwc->constraint_class.num_resources);
+
+    _XtConstraintResDependencies((ConstraintWidgetClass)wc);
+}
diff --git a/libXt/src/Convert.c b/libXt/src/Convert.c
index 5b4603a1d..cea8fd3ed 100644
--- a/libXt/src/Convert.c
+++ b/libXt/src/Convert.c
@@ -1,1095 +1,1095 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include	"IntrinsicI.h"

-#include	"StringDefs.h"

-#include	"Intrinsic.h"

-

-/* Conversion procedure hash table */

-

-#define CONVERTHASHSIZE	((unsigned)256)

-#define CONVERTHASHMASK	255

-#define ProcHash(from_type, to_type) (2 * (from_type) + to_type)

-

-typedef struct _ConverterRec *ConverterPtr;

-typedef struct _ConverterRec {

-    ConverterPtr	next;

-    XrmRepresentation	from, to;

-    XtTypeConverter	converter;

-    XtDestructor	destructor;

-    unsigned short	num_args;

-    unsigned int	do_ref_count:1;

-    unsigned int	new_style:1;

-    unsigned int	global:1;

-    char		cache_type;

-} ConverterRec;

-

-#define ConvertArgs(p) ((XtConvertArgList)((p)+1))

-

-/* used for old-style type converter cache only */

-static Heap globalHeap = {NULL, NULL, 0};

-

-void _XtSetDefaultConverterTable(

-	ConverterTable *table)

-{

-    register ConverterTable globalConverterTable;

-

-    LOCK_PROCESS;

-    globalConverterTable = _XtGetProcessContext()->globalConverterTable;

-

-    *table = (ConverterTable)

-	__XtCalloc(CONVERTHASHSIZE, (unsigned)sizeof(ConverterPtr));

-    _XtAddDefaultConverters(*table);

-

-    if (globalConverterTable) {

-	ConverterPtr rec;

-	int i;

-	XtCacheType cache_type;

-	for (i = CONVERTHASHSIZE; --i >= 0; ) {

-	    for (rec = *globalConverterTable++; rec; rec = rec->next) {

-		cache_type = rec->cache_type;

-		if (rec->do_ref_count)

-		    cache_type |= XtCacheRefCount;

-	       _XtTableAddConverter(*table, rec->from, rec->to, rec->converter,

-				    ConvertArgs(rec), rec->num_args,

-				    rec->new_style, cache_type,

-				    rec->destructor, True);

-	    }

-  	}

-    }

-    UNLOCK_PROCESS;

-}

-

-void _XtFreeConverterTable(

-	ConverterTable table)

-{

-	register Cardinal i;

-	register ConverterPtr p;

-

-	for (i = 0; i < CONVERTHASHSIZE; i++) {

-	    for (p = table[i]; p; ) {

-		register ConverterPtr next = p->next;

-		XtFree((char*)p);

-		p = next;

-	    }

-	}

-	XtFree((char*)table);

-}

-

-/* Data cache hash table */

-

-typedef struct _CacheRec *CachePtr;

-

-typedef struct _CacheRec {

-    CachePtr	next;

-    XtPointer	tag;

-    int		hash;

-    XtTypeConverter converter;

-    unsigned short num_args;

-    unsigned int conversion_succeeded:1;

-    unsigned int has_ext:1;

-    unsigned int is_refcounted:1;

-    unsigned int must_be_freed:1;

-    unsigned int from_is_value:1;

-    unsigned int to_is_value:1;

-    XrmValue	from;

-    XrmValue	to;

-} CacheRec;

-

-typedef struct _CacheRecExt {

-    CachePtr	*prev;

-    XtDestructor destructor;

-    XtPointer	 closure;

-    long	 ref_count;

-} CacheRecExt;

-

-#define CEXT(p) ((CacheRecExt *)((p)+1))

-#define CARGS(p) ((p)->has_ext ? (XrmValue *)(CEXT(p)+1) : (XrmValue *)((p)+1))

-

-#define CACHEHASHSIZE	256

-#define CACHEHASHMASK	255

-typedef CachePtr CacheHashTable[CACHEHASHSIZE];

-

-static CacheHashTable	cacheHashTable;

-

-void _XtTableAddConverter(

-    ConverterTable	table,

-    XrmRepresentation   from_type,

-    XrmRepresentation   to_type,

-    XtTypeConverter	converter,

-    XtConvertArgList    convert_args,

-    Cardinal		num_args,

-    _XtBoolean		new_style,

-    XtCacheType		cache_type,

-    XtDestructor	destructor,

-    _XtBoolean		global)

-{

-    register ConverterPtr	*pp;

-    register ConverterPtr	p;

-    XtConvertArgList args;

-

-    pp= &table[ProcHash(from_type, to_type) & CONVERTHASHMASK];

-    while ((p = *pp) && (p->from != from_type || p->to != to_type))

-	pp = &p->next;

-

-    if (p) {

-	*pp = p->next;

-	XtFree((char *)p);

-    }

-

-    p = (ConverterPtr) __XtMalloc(sizeof(ConverterRec) +

-				sizeof(XtConvertArgRec) * num_args);

-    p->next	    = *pp;

-    *pp = p;

-    p->from	    = from_type;

-    p->to	    = to_type;

-    p->converter    = converter;

-    p->destructor   = destructor;

-    p->num_args     = num_args;

-    p->global       = global;

-    args = ConvertArgs(p);

-    while (num_args--)

-	*args++ = *convert_args++;

-    p->new_style    = new_style;

-    p->do_ref_count = False;

-    if (destructor || (cache_type & 0xff)) {

-	p->cache_type = cache_type & 0xff;

-	if (cache_type & XtCacheRefCount)

-	    p->do_ref_count = True;

-    } else {

-	p->cache_type = XtCacheNone;

-    }

-}

-

-void XtSetTypeConverter(

-    register _Xconst char* from_type,

-    register _Xconst char* to_type,

-    XtTypeConverter	converter,

-    XtConvertArgList    convert_args,

-    Cardinal		num_args,

-    XtCacheType		cache_type,

-    XtDestructor	destructor

-    )

-{

-    ProcessContext process;

-    XtAppContext app;

-    XrmRepresentation from;

-    XrmRepresentation to;

-

-    LOCK_PROCESS;

-    process = _XtGetProcessContext();

-    app = process->appContextList;

-    from = XrmStringToRepresentation(from_type);

-    to = XrmStringToRepresentation(to_type);

-

-    if (!process->globalConverterTable) {

-	process->globalConverterTable = (ConverterTable)

-	    __XtCalloc(CONVERTHASHSIZE, (unsigned)sizeof(ConverterPtr));

-    }

-    _XtTableAddConverter(process->globalConverterTable, from, to,

-			 converter, convert_args,

-			 num_args, True, cache_type, destructor, True);

-    while (app) {

-	_XtTableAddConverter(app->converterTable, from, to,

-			     converter, convert_args,

-			     num_args, True, cache_type, destructor, True);

-	app = app->next;

-    }

-    UNLOCK_PROCESS;

-}

-

-void XtAppSetTypeConverter(

-    XtAppContext	app,

-    register _Xconst char* from_type,

-    register _Xconst char* to_type,

-    XtTypeConverter	converter,

-    XtConvertArgList    convert_args,

-    Cardinal		num_args,

-    XtCacheType		cache_type,

-    XtDestructor	destructor

-    )

-{

-    LOCK_PROCESS;

-    _XtTableAddConverter(app->converterTable,

-	XrmStringToRepresentation(from_type),

-        XrmStringToRepresentation(to_type),

-	converter, convert_args, num_args,

-	True, cache_type, destructor, False);

-    UNLOCK_PROCESS;

-}

-

-/* old interface */

-void XtAddConverter(

-    register _Xconst char* from_type,

-    register _Xconst char* to_type,

-    XtConverter		converter,

-    XtConvertArgList    convert_args,

-    Cardinal		num_args

-    )

-{

-    ProcessContext process;

-    XtAppContext app;

-    XrmRepresentation from;

-    XrmRepresentation to;

-

-    LOCK_PROCESS;

-    process = _XtGetProcessContext();

-    app = process->appContextList;

-    from = XrmStringToRepresentation(from_type);

-    to = XrmStringToRepresentation(to_type);

-

-    if (!process->globalConverterTable) {

-	process->globalConverterTable = (ConverterTable)

-	    __XtCalloc(CONVERTHASHSIZE, (unsigned)sizeof(ConverterPtr));

-    }

-    _XtTableAddConverter(process->globalConverterTable, from, to,

-			 (XtTypeConverter)converter, convert_args, num_args,

-			 False, XtCacheAll, (XtDestructor)NULL, True);

-    while (app) {

-	_XtTableAddConverter(app->converterTable, from, to,

-			     (XtTypeConverter)converter, convert_args,

-			     num_args, False, XtCacheAll, (XtDestructor)NULL,

-			     True);

-	app = app->next;

-    }

-    UNLOCK_PROCESS;

-}

-

-/* old interface */

-void XtAppAddConverter(

-    XtAppContext	app,

-    register _Xconst char* from_type,

-    register _Xconst char* to_type,

-    XtConverter		converter,

-    XtConvertArgList    convert_args,

-    Cardinal		num_args

-    )

-{

-    LOCK_PROCESS;

-    _XtTableAddConverter(app->converterTable,

-	XrmStringToRepresentation(from_type),

-        XrmStringToRepresentation(to_type),

-	(XtTypeConverter)converter, convert_args, num_args,

-	False, XtCacheAll, (XtDestructor)NULL, False);

-    UNLOCK_PROCESS;

-}

-

-static CachePtr

-CacheEnter(

-    Heap*		    heap,

-    register XtTypeConverter converter,

-    register XrmValuePtr    args,

-    Cardinal		    num_args,

-    XrmValuePtr		    from,

-    XrmValuePtr		    to,

-    Boolean		    succeeded,

-    register int	    hash,

-    Boolean		    do_ref,

-    Boolean		    do_free,

-    XtDestructor	    destructor,

-    XtPointer		    closure)

-{

-    register	CachePtr *pHashEntry;

-    register	CachePtr p;

-    register    Cardinal i;

-

-    LOCK_PROCESS;

-    pHashEntry = &cacheHashTable[hash & CACHEHASHMASK];

-

-    if ((succeeded && destructor) || do_ref) {

-	p = (CachePtr) _XtHeapAlloc(heap, (sizeof(CacheRec) +

-					   sizeof(CacheRecExt) +

-					   num_args * sizeof(XrmValue)));

-	CEXT(p)->prev = pHashEntry;

-	CEXT(p)->destructor = succeeded ? destructor : NULL;

-	CEXT(p)->closure = closure;

-	CEXT(p)->ref_count = 1;

-	p->has_ext = True;

-    }

-    else {

-	p = (CachePtr)_XtHeapAlloc(heap, (sizeof(CacheRec) +

-					  num_args * sizeof(XrmValue)));

-	p->has_ext = False;

-    }

-    if (!to->addr)

-	succeeded = False;

-    p->conversion_succeeded = succeeded;

-    p->is_refcounted = do_ref;

-    p->must_be_freed = do_free;

-    p->next	    = *pHashEntry;

-    if (p->next && p->next->has_ext)

-	CEXT(p->next)->prev = &p->next;

-

-    *pHashEntry     = p;

-    p->tag	    = (XtPointer)heap;

-    p->hash	    = hash;

-    p->converter    = converter;

-    p->from.size    = from->size;

-    if (from->size <= sizeof(p->from.addr)) {

-	p->from_is_value = True;

-	XtMemmove(&p->from.addr, from->addr, from->size);

-    } else {

-	p->from_is_value = False;

-	p->from.addr = (XPointer)_XtHeapAlloc(heap, from->size);

-	(void) memmove((char *)p->from.addr, (char *)from->addr, from->size);

-    }

-    p->num_args = num_args;

-    if (num_args) {

-	XrmValue *pargs = CARGS(p);

-	for (i = 0; i < num_args; i++) {

-	    pargs[i].size = args[i].size;

-	    pargs[i].addr = (XPointer)_XtHeapAlloc(heap, args[i].size);

-	    XtMemmove(pargs[i].addr, args[i].addr, args[i].size);

-	}

-    }

-    p->to.size = to->size;

-    if (!succeeded) {

-	p->to_is_value = False;

-	p->to.addr = NULL;

-    } else if (to->size <= sizeof(p->to.addr)) {

-	p->to_is_value = True;

-	XtMemmove(&p->to.addr, to->addr, to->size);

-    } else {

-	p->to_is_value = False;

-	p->to.addr = (XPointer)_XtHeapAlloc(heap, to->size);

-	(void) memmove((char *)p->to.addr, (char *)to->addr, to->size);

-    }

-    UNLOCK_PROCESS;

-    return p;

-}

-

-static void FreeCacheRec(

-    XtAppContext app,

-    CachePtr p,

-    CachePtr *prev)

-{

-    LOCK_PROCESS;

-    if (p->has_ext) {

-	if (CEXT(p)->destructor) {

-	    Cardinal num_args = p->num_args;

-	    XrmValue *args = NULL;

-	    XrmValue toc;

-	    if (num_args)

-		args = CARGS(p);

-	    toc.size = p->to.size;

-	    if (p->to_is_value)

-		toc.addr = (XPointer)&p->to.addr;

-	    else

-		toc.addr = p->to.addr;

-	    (*CEXT(p)->destructor) (app, &toc, CEXT(p)->closure, args,

-				    &num_args);

-	}

-	*(CEXT(p)->prev) = p->next;

-	if (p->next && p->next->has_ext)

-	    CEXT(p->next)->prev = CEXT(p)->prev;

-    } else {

-	*prev = p->next;

-	if (p->next && p->next->has_ext)

-	    CEXT(p->next)->prev = prev;

-    }

-    if (p->must_be_freed) {

-	register int i;

-	if (!p->from_is_value)

-	    XtFree(p->from.addr);

-	if ((i = p->num_args)) {

-	    XrmValue *pargs = CARGS(p);

-	    while (i--)

-		XtFree(pargs[i].addr);

-	}

-	if (!p->to_is_value)

-	    XtFree(p->to.addr);

-	XtFree((char*)p);

-    }

-    /* else on private heap; will free entire heap later */

-    UNLOCK_PROCESS;

-}

-

-

-void _XtCacheFlushTag(

-    XtAppContext app,

-    XtPointer	tag)

-{

-    int i;

-    register CachePtr *prev;

-    register CachePtr rec;

-

-    LOCK_PROCESS;

-    for (i = CACHEHASHSIZE; --i >= 0;) {

-	prev = &cacheHashTable[i];

-	while ((rec = *prev)) {

-	    if (rec->tag == tag)

-		FreeCacheRec(app, rec, prev);

-	    else

-		prev = &rec->next;

-	}

-    }

-    UNLOCK_PROCESS;

-}

-

-#ifdef DEBUG

-#include	<stdio.h>

-

-void _XtConverterCacheStats(void)

-{

-    register Cardinal i;

-    register CachePtr p;

-    register Cardinal entries;

-

-    LOCK_PROCESS;

-    for (i = 0; i < CACHEHASHSIZE; i++) {

-	p = cacheHashTable[i];

-	if (p) {

-	    for (entries = 0; p; p = p->next) {

-		entries++;

-	    }

-	    (void) fprintf(stdout, "Index: %4d  Entries: %d\n", i, entries);

-	    for (p = cacheHashTable[i]; p; p = p->next) {

-		(void) fprintf(stdout, "    Size: %3d  Refs: %3d  '",

-			       p->from.size,

-			       p->has_ext ? CEXT(p)->ref_count : 0);

-		(void) fprintf(stdout, "'\n");

-	    }

-	    (void) fprintf(stdout, "\n");

-	}

-    }

-    UNLOCK_PROCESS;

-}

-#endif /*DEBUG*/

-

-static Boolean ResourceQuarkToOffset(

-    WidgetClass widget_class,

-    XrmName     name,

-    Cardinal    *offset)

-{

-    register WidgetClass     wc;

-    register Cardinal        i;

-    register XrmResourceList res, *resources;

-

-    for (wc = widget_class; wc; wc = wc->core_class.superclass) {

-	resources = (XrmResourceList*) wc->core_class.resources;

-	for (i = 0; i < wc->core_class.num_resources; i++, resources++) {

-	    res = *resources;

-	    if (res->xrm_name == name) {

-		*offset = -res->xrm_offset - 1;

-		return True;

-	    }

-	} /* for i in resources */

-    } /* for wc in widget classes */

-    (*offset) = 0;

-    return False;

-}

-

-

-static void ComputeArgs(

-    Widget		widget,

-    XtConvertArgList    convert_args,

-    Cardinal		num_args,

-    XrmValuePtr		args)

-{

-    register Cardinal   i;

-    Cardinal		offset;

-    String              params[1];

-    Cardinal		num_params = 1;

-    Widget		ancestor = NULL;

-

-    for (i = 0; i < num_args; i++) {

-	args[i].size = convert_args[i].size;

-	switch (convert_args[i].address_mode) {

-	case XtAddress:

-	    args[i].addr = convert_args[i].address_id;

-	    break;

-

-	case XtBaseOffset:

-	    args[i].addr =

-		(XPointer)((char *)widget + (long)convert_args[i].address_id);

-	    break;

-

-	case XtWidgetBaseOffset:

-	    if (!ancestor) {

-		if (XtIsWidget(widget))

-		    ancestor = widget;

-		else

-		    ancestor = _XtWindowedAncestor(widget);

-	    }

-

-	    args[i].addr =

-		(XPointer)((char *)ancestor + (long)convert_args[i].address_id);

-	    break;

-

-	case XtImmediate:

-	    args[i].addr = (XPointer) &(convert_args[i].address_id);

-	    break;

-

-	case XtProcedureArg:

-	    (*(XtConvertArgProc)convert_args[i].address_id)

-		(widget, &convert_args[i].size, &args[i]);

-	    break;

-

-	case XtResourceString:

-	    /* Convert in place for next usage */

-	    convert_args[i].address_mode = XtResourceQuark;

-	    convert_args[i].address_id =

-	       (XtPointer)(long)XrmStringToQuark((String)convert_args[i].address_id);

-	    /* Fall through */

-

-	case XtResourceQuark:

-	    if (! ResourceQuarkToOffset(widget->core.widget_class,

-		    (XrmQuark)(long) convert_args[i].address_id, &offset)) {

-		params[0]=

-                  XrmQuarkToString((XrmQuark)(long) convert_args[i].address_id);

-               XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		    "invalidResourceName","computeArgs",XtCXtToolkitError,

-		    "Cannot find resource name %s as argument to conversion",

-                     params,&num_params);

-		offset = 0;

-	    }

-	    args[i].addr = (XPointer)((char *)widget + offset);

-	    break;

-	default:

-	    params[0] = XtName(widget);

-	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"invalidAddressMode", "computeArgs", XtCXtToolkitError,

-		"Conversion arguments for widget '%s' contain an unsupported address mode",

-			params,&num_params);

-	    args[i].addr = NULL;

-	    args[i].size = 0;

-	} /* switch */

-    } /* for */

-} /* ComputeArgs */

-

-void XtDirectConvert(

-    XtConverter     converter,

-    XrmValuePtr     args,

-    Cardinal	    num_args,

-    register XrmValuePtr from,

-    XrmValuePtr     to)

-{

-    register CachePtr   p;

-    register int	hash;

-    register Cardinal   i;

-

-    LOCK_PROCESS;

-    /* Try to find cache entry for conversion */

-    hash = ((long) converter >> 2) + from->size + *((char *) from->addr);

-    if (from->size > 1) hash += ((char *) from->addr)[1];

-

-    for (p = cacheHashTable[hash & CACHEHASHMASK]; p; p = p->next) {

-	if ((p->hash == hash)

-	 && (p->converter == (XtTypeConverter)converter)

-	 && (p->from.size == from->size)

-	 && !(p->from_is_value ?

-	      XtMemcmp(&p->from.addr, from->addr, from->size) :

-	      memcmp((char *)p->from.addr, (char *)from->addr, from->size))

-         && (p->num_args == num_args)) {

-	    if ((i = num_args)) {

-		XrmValue *pargs = CARGS(p);

-		/* Are all args the same data ? */

-		while (i) {

-		    i--; /* do not move to while test, broken compilers */

-		    if (pargs[i].size != args[i].size ||

-			XtMemcmp(pargs[i].addr, args[i].addr, args[i].size)) {

-			i++;

-			break;

-		    }

-		}

-	    }

-	    if (!i) {

-		/* Perfect match */

-		to->size = p->to.size;

-		if (p->to_is_value)

-		    to->addr = (XPointer)&p->to.addr;

-		else

-		    to->addr = p->to.addr;

-		UNLOCK_PROCESS;

-		return;

-	    }

-	}

-    }

-

-    /* Didn't find it, call converter procedure and entry result in cache */

-    (*to).size = 0;

-    (*to).addr = NULL;

-    (*converter)(args, &num_args, from, to);

-    /* This memory can never be freed since we don't know the Display

-     * or app context from which to compute the persistance */

-    {

-	CacheEnter(&globalHeap, (XtTypeConverter)converter, args, num_args,

-		   from, to, (to->addr != NULL), hash, False, False,

-		   (XtDestructor)NULL, NULL);

-    }

-    UNLOCK_PROCESS;

-}

-

-

-static ConverterPtr GetConverterEntry(

-    XtAppContext app,

-    XtTypeConverter converter)

-{

-    Cardinal entry;

-    register ConverterPtr cP;

-    ConverterTable converterTable;

-

-    LOCK_PROCESS;

-    converterTable = app->converterTable;

-    cP = NULL;

-    for (entry = 0; (entry < CONVERTHASHSIZE) && !cP; entry++) {

-	cP = converterTable[entry];

-	while (cP && (cP->converter != converter)) cP = cP->next;

-    }

-    UNLOCK_PROCESS;

-    return cP;

-}

-

-

-static Boolean

-CallConverter(

-    Display*	    dpy,

-    XtTypeConverter converter,

-    XrmValuePtr     args,

-    Cardinal	    num_args,

-    register XrmValuePtr from,

-    XrmValuePtr     to,

-    XtCacheRef	    *cache_ref_return,

-    register ConverterPtr cP)

-{

-    CachePtr p;

-    int	hash;

-    Cardinal i;

-    Boolean retval;

-

-    if (!cP || ((cP->cache_type == XtCacheNone) && !cP->destructor)) {

-	XtPointer closure;

-	if (cache_ref_return) *cache_ref_return = NULL;

-	retval = (*(XtTypeConverter)converter)

-	    (dpy, args, &num_args, from, to, &closure);

-	return retval;

-    }

-

-    LOCK_PROCESS;

-    /* Try to find cache entry for conversion */

-    hash = ((long)(converter) >> 2) + from->size + *((char *) from->addr);

-    if (from->size > 1) hash += ((char *) from->addr)[1];

-

-    if (cP->cache_type != XtCacheNone) {

-	for (p = cacheHashTable[hash & CACHEHASHMASK]; p; p = p->next){

-	    if ((p->hash == hash)

-	     && (p->converter == converter)

-	     && (p->from.size == from->size)

-	     && !(p->from_is_value ?

-		  XtMemcmp(&p->from.addr, from->addr, from->size) :

-		  memcmp((char *)p->from.addr, (char *)from->addr, from->size))

-	     && (p->num_args == num_args)) {

-		if ((i = num_args)) {

-		    XrmValue *pargs = CARGS(p);

-		    /* Are all args the same data ? */

-		    while (i) {

-			i--; /* do not move to while test, broken compilers */

-			if (pargs[i].size != args[i].size ||

-			    XtMemcmp(pargs[i].addr, args[i].addr, args[i].size)){

-			    i++;

-			    break;

-			}

-		    }

-		}

-		if (!i) {

-		    /* Perfect match */

-		    if (p->conversion_succeeded) {

-			if (to->addr) {	/* new-style call */

-			    if (to->size < p->to.size) {

-				to->size = p->to.size;

-				UNLOCK_PROCESS;

-				return False;

-			    }

-			    to->size = p->to.size;

-			    if (p->to_is_value) {

-				XtMemmove(to->addr, &p->to.addr,

-					  to->size);

-			    } else {

-				(void) memmove((char *)to->addr,

-					       (char *)p->to.addr, to->size);

-			    }

-			} else {	/* old-style call */

-			    to->size = p->to.size;

-			    if (p->to_is_value)

-				to->addr = (XPointer)&p->to.addr;

-			    else

-				to->addr = p->to.addr;

-			}

-		    }

-		    if (p->is_refcounted) {

-			CEXT(p)->ref_count++;

-			if (cache_ref_return)

-			    *cache_ref_return = (XtCacheRef)p;

-			else

-			    p->is_refcounted = False;

-		    }

-		    else {

-			if (cache_ref_return)

-			    *cache_ref_return = NULL;

-		    }

-		    retval = (p->conversion_succeeded);

-		    UNLOCK_PROCESS;

-		    return retval;

-		}

-	    }

-	}

-    }

-

-    /* No cache entry, call converter procedure and enter result in cache */

-    {

-	Heap *heap;

-	XtPointer closure = NULL;

-	unsigned int supplied_size = to->size;

-	Boolean do_ref = cP->do_ref_count && cache_ref_return;

-	Boolean do_free = False;

-	Boolean retval =

-	    (*(XtTypeConverter)converter)(dpy, args, &num_args, from, to, &closure);

-

-	if (retval == False && supplied_size < to->size) {

-	    /* programmer error: caller must allocate sufficient storage */

-	    if (cache_ref_return)

-		*cache_ref_return = NULL;

-	    UNLOCK_PROCESS;

-	    return False;

-	}

-

-	if ((cP->cache_type == XtCacheNone) || do_ref) {

-	    heap = NULL;

-	    do_free = True;

-	}

-	else if (cP->cache_type == XtCacheByDisplay)

-	    heap = &_XtGetPerDisplay(dpy)->heap;

-	else if (cP->global)

-	    heap = &globalHeap;

-	else

-	    heap = &XtDisplayToApplicationContext(dpy)->heap;

-

-	p = CacheEnter(heap, converter, args, num_args, from, to, retval,

-		       hash, do_ref, do_free, cP->destructor, closure);

-	if (do_ref)

-	    *cache_ref_return = (XtCacheRef)p;

-	else if (cache_ref_return)

-	    *cache_ref_return = NULL;

-	UNLOCK_PROCESS;

-	return retval;

-    }

-}

-

-Boolean

-XtCallConverter(

-    Display*	    dpy,

-    XtTypeConverter converter,

-    XrmValuePtr     args,

-    Cardinal	    num_args,

-    register XrmValuePtr from,

-    XrmValuePtr     to,

-    XtCacheRef	    *cache_ref_return)

-{

-    ConverterPtr cP;

-    Boolean retval;

-    XtAppContext app = XtDisplayToApplicationContext(dpy);

-

-    LOCK_APP(app);

-    if ((cP = GetConverterEntry(app, converter)) == NULL) {

-	XtAppSetTypeConverter(XtDisplayToApplicationContext(dpy),

-			      "_XtUnk1", "_XtUnk2",

-			      converter, NULL, 0,

-			      XtCacheAll, NULL);

-	cP = GetConverterEntry(app, converter);

-    }

-    retval = CallConverter(dpy, converter, args, num_args, from, to,

-			    cache_ref_return, cP);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-Boolean _XtConvert(

-             Widget		widget,

-    register XrmRepresentation	from_type,

-	     XrmValuePtr	from,

-    register XrmRepresentation	to_type,

-    register XrmValuePtr	to,

-    XtCacheRef			*cache_ref_return)

-{

-    XtAppContext	app = XtWidgetToApplicationContext(widget);

-    register ConverterPtr	p;

-    Cardinal		num_args;

-    XrmValue		*args;

-

-    /* Look for type converter */

-    LOCK_PROCESS;

-    p = app->converterTable[ProcHash(from_type, to_type) & CONVERTHASHMASK];

-    for (; p; p = p->next) {

-	if (from_type == p->from && to_type == p->to) {

-	    Boolean retval = False;

-	    /* Compute actual arguments from widget and arg descriptor */

-	    num_args = p->num_args;

-	    if (num_args != 0) {

-		args = (XrmValue*)

-		    ALLOCATE_LOCAL( num_args * sizeof (XrmValue) );

-		if (!args) _XtAllocError("alloca");

-		ComputeArgs(widget, ConvertArgs(p), num_args, args);

-	    } else args = NULL;

-	    if (p->new_style) {

-		retval =

-		    CallConverter(XtDisplayOfObject(widget),

-				     p->converter, args, num_args,

-				     from, to, cache_ref_return, p);

-	    }

-	    else { /* is old-style (non-display) converter */

-		XrmValue tempTo;

-		XtDirectConvert((XtConverter)p->converter, args, num_args,

-				from, &tempTo);

-		if (cache_ref_return)

-		    *cache_ref_return = NULL;

-		if (tempTo.addr) {

-		    if (to->addr) {	/* new-style caller */

-			if (to->size >= tempTo.size) {

-			    if (to_type == _XtQString)

-				*(String*)(to->addr) = tempTo.addr;

-			    else {

-				XtMemmove(to->addr, tempTo.addr,

-					  tempTo.size);

-			    }

-			    retval = True;

-			}

-			to->size = tempTo.size;

-		    } else {		/* old-style caller */

-			*to = tempTo;

-			retval = True;

-		    }

-		}

-	    }

-	    if (args) DEALLOCATE_LOCAL( (XtPointer)args );

-	    UNLOCK_PROCESS;

-	    return retval;

-	}

-    }

-

-    {

-	String params[2];

-	Cardinal num_params = 2;

-	params[0] = XrmRepresentationToString(from_type);

-	params[1] = XrmRepresentationToString(to_type);

-	XtAppWarningMsg(app, "typeConversionError", "noConverter", XtCXtToolkitError,

-	     "No type converter registered for '%s' to '%s' conversion.",

-             params, &num_params);

-    }

-    UNLOCK_PROCESS;

-    return False;

-}

-

-void XtConvert(

-    Widget	widget,

-    _Xconst char* from_type_str,

-    XrmValuePtr	from,

-    _Xconst char* to_type_str,

-    XrmValuePtr	to)

-{

-    XrmQuark    from_type, to_type;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    from_type = XrmStringToRepresentation(from_type_str);

-    to_type = XrmStringToRepresentation(to_type_str);

-    if (from_type != to_type) {

-	/*  It's not safe to ref count these resources, 'cause we

-	    don't know what older clients may have assumed about

-	    the resource lifetimes.

-	XtCacheRef ref;

-	*/

-	to->addr = NULL;

-	to->size = 0;

-	_XtConvert(widget, from_type, from, to_type, to, /*&ref*/ NULL);

-	/*

-	if (ref) {

-	    XtAddCallback( widget, XtNdestroyCallback,

-			   XtCallbackReleaseCacheRef, (XtPointer)ref );

-	}

-	*/

-    }

-    else

-	(*to) = *from;

-    UNLOCK_APP(app);

-}

-

-Boolean XtConvertAndStore(

-    Widget	object,

-    _Xconst char* from_type_str,

-    XrmValuePtr	from,

-    _Xconst char* to_type_str,

-    XrmValuePtr	to)

-{

-    XrmQuark    from_type, to_type;

-    WIDGET_TO_APPCON(object);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    from_type = XrmStringToRepresentation(from_type_str);

-    to_type = XrmStringToRepresentation(to_type_str);

-    if (from_type != to_type) {

-	static XtPointer local_valueP = NULL;

-	static Cardinal local_valueS = 128;

-	XtCacheRef ref;

-	Boolean local = False;

-	do {

-	    if (!to->addr) {

-		if (!local_valueP)

-		    local_valueP = _XtHeapAlloc(&globalHeap, local_valueS);

-		to->addr = local_valueP;

-		to->size = local_valueS;

-		local = True;

-	    }

-	    if (!_XtConvert(object, from_type, from, to_type, to, &ref)) {

-		if (local && (to->size > local_valueS)) {

-		    to->addr =

-			local_valueP = _XtHeapAlloc(&globalHeap, to->size);

-		    local_valueS = to->size;

-		    continue;

-		} else {

-		    if (local) {

-			to->addr = NULL;

-			to->size = 0;

-		    }

-		    UNLOCK_PROCESS;

-		    UNLOCK_APP(app);

-		    return False;

-		}

-	    }

-	    if (ref) {

-		XtAddCallback( object, XtNdestroyCallback,

-			       XtCallbackReleaseCacheRef, (XtPointer)ref );

-	    }

-	    UNLOCK_PROCESS;

-	    UNLOCK_APP(app);

-	    return True;

-	} while (local /* && local_valueS < to->size */);

-    }

-    if (to->addr) {

-	if (to->size < from->size) {

-	    to->size = from->size;

-	    UNLOCK_PROCESS;

-	    UNLOCK_APP(app);

-	    return False;

-	}

-	(void) memmove(to->addr, from->addr, from->size );

-	to->size = from->size;

-    } else			/* from_type == to_type */

-	*to = *from;

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-    return True;

-}

-

-void XtAppReleaseCacheRefs(

-    XtAppContext app,

-    XtCacheRef *refs)

-{

-    register CachePtr *r;

-    register CachePtr p;

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    for (r = (CachePtr*)refs; (p = *r); r++) {

-	if (p->is_refcounted && --(CEXT(p)->ref_count) == 0) {

-	    FreeCacheRec(app, p, NULL);

-	}

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

-

-

-/* ARGSUSED */

-void XtCallbackReleaseCacheRefList(

-    Widget widget,		/* unused */

-    XtPointer closure,

-    XtPointer call_data)	/* unused */

-{

-    XtAppReleaseCacheRefs( XtWidgetToApplicationContext(widget),

-			   (XtCacheRef*)closure );

-    XtFree(closure);

-}

-

-

-/* ARGSUSED */

-void XtCallbackReleaseCacheRef(

-    Widget widget,		/* unused */

-    XtPointer closure,

-    XtPointer call_data)	/* unused */

-{

-    XtCacheRef cache_refs[2];

-    cache_refs[0] = (XtCacheRef)closure;

-    cache_refs[1] = NULL;

-    XtAppReleaseCacheRefs( XtWidgetToApplicationContext(widget), cache_refs );

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include	"IntrinsicI.h"
+#include	"StringDefs.h"
+#include	"Intrinsic.h"
+
+/* Conversion procedure hash table */
+
+#define CONVERTHASHSIZE	((unsigned)256)
+#define CONVERTHASHMASK	255
+#define ProcHash(from_type, to_type) (2 * (from_type) + to_type)
+
+typedef struct _ConverterRec *ConverterPtr;
+typedef struct _ConverterRec {
+    ConverterPtr	next;
+    XrmRepresentation	from, to;
+    XtTypeConverter	converter;
+    XtDestructor	destructor;
+    unsigned short	num_args;
+    unsigned int	do_ref_count:1;
+    unsigned int	new_style:1;
+    unsigned int	global:1;
+    char		cache_type;
+} ConverterRec;
+
+#define ConvertArgs(p) ((XtConvertArgList)((p)+1))
+
+/* used for old-style type converter cache only */
+static Heap globalHeap = {NULL, NULL, 0};
+
+void _XtSetDefaultConverterTable(
+	ConverterTable *table)
+{
+    register ConverterTable globalConverterTable;
+
+    LOCK_PROCESS;
+    globalConverterTable = _XtGetProcessContext()->globalConverterTable;
+
+    *table = (ConverterTable)
+	__XtCalloc(CONVERTHASHSIZE, (unsigned)sizeof(ConverterPtr));
+    _XtAddDefaultConverters(*table);
+
+    if (globalConverterTable) {
+	ConverterPtr rec;
+	int i;
+	XtCacheType cache_type;
+	for (i = CONVERTHASHSIZE; --i >= 0; ) {
+	    for (rec = *globalConverterTable++; rec; rec = rec->next) {
+		cache_type = rec->cache_type;
+		if (rec->do_ref_count)
+		    cache_type |= XtCacheRefCount;
+	       _XtTableAddConverter(*table, rec->from, rec->to, rec->converter,
+				    ConvertArgs(rec), rec->num_args,
+				    rec->new_style, cache_type,
+				    rec->destructor, True);
+	    }
+  	}
+    }
+    UNLOCK_PROCESS;
+}
+
+void _XtFreeConverterTable(
+	ConverterTable table)
+{
+	register Cardinal i;
+	register ConverterPtr p;
+
+	for (i = 0; i < CONVERTHASHSIZE; i++) {
+	    for (p = table[i]; p; ) {
+		register ConverterPtr next = p->next;
+		XtFree((char*)p);
+		p = next;
+	    }
+	}
+	XtFree((char*)table);
+}
+
+/* Data cache hash table */
+
+typedef struct _CacheRec *CachePtr;
+
+typedef struct _CacheRec {
+    CachePtr	next;
+    XtPointer	tag;
+    int		hash;
+    XtTypeConverter converter;
+    unsigned short num_args;
+    unsigned int conversion_succeeded:1;
+    unsigned int has_ext:1;
+    unsigned int is_refcounted:1;
+    unsigned int must_be_freed:1;
+    unsigned int from_is_value:1;
+    unsigned int to_is_value:1;
+    XrmValue	from;
+    XrmValue	to;
+} CacheRec;
+
+typedef struct _CacheRecExt {
+    CachePtr	*prev;
+    XtDestructor destructor;
+    XtPointer	 closure;
+    long	 ref_count;
+} CacheRecExt;
+
+#define CEXT(p) ((CacheRecExt *)((p)+1))
+#define CARGS(p) ((p)->has_ext ? (XrmValue *)(CEXT(p)+1) : (XrmValue *)((p)+1))
+
+#define CACHEHASHSIZE	256
+#define CACHEHASHMASK	255
+typedef CachePtr CacheHashTable[CACHEHASHSIZE];
+
+static CacheHashTable	cacheHashTable;
+
+void _XtTableAddConverter(
+    ConverterTable	table,
+    XrmRepresentation   from_type,
+    XrmRepresentation   to_type,
+    XtTypeConverter	converter,
+    XtConvertArgList    convert_args,
+    Cardinal		num_args,
+    _XtBoolean		new_style,
+    XtCacheType		cache_type,
+    XtDestructor	destructor,
+    _XtBoolean		global)
+{
+    register ConverterPtr	*pp;
+    register ConverterPtr	p;
+    XtConvertArgList args;
+
+    pp= &table[ProcHash(from_type, to_type) & CONVERTHASHMASK];
+    while ((p = *pp) && (p->from != from_type || p->to != to_type))
+	pp = &p->next;
+
+    if (p) {
+	*pp = p->next;
+	XtFree((char *)p);
+    }
+
+    p = (ConverterPtr) __XtMalloc(sizeof(ConverterRec) +
+				sizeof(XtConvertArgRec) * num_args);
+    p->next	    = *pp;
+    *pp = p;
+    p->from	    = from_type;
+    p->to	    = to_type;
+    p->converter    = converter;
+    p->destructor   = destructor;
+    p->num_args     = num_args;
+    p->global       = global;
+    args = ConvertArgs(p);
+    while (num_args--)
+	*args++ = *convert_args++;
+    p->new_style    = new_style;
+    p->do_ref_count = False;
+    if (destructor || (cache_type & 0xff)) {
+	p->cache_type = cache_type & 0xff;
+	if (cache_type & XtCacheRefCount)
+	    p->do_ref_count = True;
+    } else {
+	p->cache_type = XtCacheNone;
+    }
+}
+
+void XtSetTypeConverter(
+    register _Xconst char* from_type,
+    register _Xconst char* to_type,
+    XtTypeConverter	converter,
+    XtConvertArgList    convert_args,
+    Cardinal		num_args,
+    XtCacheType		cache_type,
+    XtDestructor	destructor
+    )
+{
+    ProcessContext process;
+    XtAppContext app;
+    XrmRepresentation from;
+    XrmRepresentation to;
+
+    LOCK_PROCESS;
+    process = _XtGetProcessContext();
+    app = process->appContextList;
+    from = XrmStringToRepresentation(from_type);
+    to = XrmStringToRepresentation(to_type);
+
+    if (!process->globalConverterTable) {
+	process->globalConverterTable = (ConverterTable)
+	    __XtCalloc(CONVERTHASHSIZE, (unsigned)sizeof(ConverterPtr));
+    }
+    _XtTableAddConverter(process->globalConverterTable, from, to,
+			 converter, convert_args,
+			 num_args, True, cache_type, destructor, True);
+    while (app) {
+	_XtTableAddConverter(app->converterTable, from, to,
+			     converter, convert_args,
+			     num_args, True, cache_type, destructor, True);
+	app = app->next;
+    }
+    UNLOCK_PROCESS;
+}
+
+void XtAppSetTypeConverter(
+    XtAppContext	app,
+    register _Xconst char* from_type,
+    register _Xconst char* to_type,
+    XtTypeConverter	converter,
+    XtConvertArgList    convert_args,
+    Cardinal		num_args,
+    XtCacheType		cache_type,
+    XtDestructor	destructor
+    )
+{
+    LOCK_PROCESS;
+    _XtTableAddConverter(app->converterTable,
+	XrmStringToRepresentation(from_type),
+        XrmStringToRepresentation(to_type),
+	converter, convert_args, num_args,
+	True, cache_type, destructor, False);
+    UNLOCK_PROCESS;
+}
+
+/* old interface */
+void XtAddConverter(
+    register _Xconst char* from_type,
+    register _Xconst char* to_type,
+    XtConverter		converter,
+    XtConvertArgList    convert_args,
+    Cardinal		num_args
+    )
+{
+    ProcessContext process;
+    XtAppContext app;
+    XrmRepresentation from;
+    XrmRepresentation to;
+
+    LOCK_PROCESS;
+    process = _XtGetProcessContext();
+    app = process->appContextList;
+    from = XrmStringToRepresentation(from_type);
+    to = XrmStringToRepresentation(to_type);
+
+    if (!process->globalConverterTable) {
+	process->globalConverterTable = (ConverterTable)
+	    __XtCalloc(CONVERTHASHSIZE, (unsigned)sizeof(ConverterPtr));
+    }
+    _XtTableAddConverter(process->globalConverterTable, from, to,
+			 (XtTypeConverter)converter, convert_args, num_args,
+			 False, XtCacheAll, (XtDestructor)NULL, True);
+    while (app) {
+	_XtTableAddConverter(app->converterTable, from, to,
+			     (XtTypeConverter)converter, convert_args,
+			     num_args, False, XtCacheAll, (XtDestructor)NULL,
+			     True);
+	app = app->next;
+    }
+    UNLOCK_PROCESS;
+}
+
+/* old interface */
+void XtAppAddConverter(
+    XtAppContext	app,
+    register _Xconst char* from_type,
+    register _Xconst char* to_type,
+    XtConverter		converter,
+    XtConvertArgList    convert_args,
+    Cardinal		num_args
+    )
+{
+    LOCK_PROCESS;
+    _XtTableAddConverter(app->converterTable,
+	XrmStringToRepresentation(from_type),
+        XrmStringToRepresentation(to_type),
+	(XtTypeConverter)converter, convert_args, num_args,
+	False, XtCacheAll, (XtDestructor)NULL, False);
+    UNLOCK_PROCESS;
+}
+
+static CachePtr
+CacheEnter(
+    Heap*		    heap,
+    register XtTypeConverter converter,
+    register XrmValuePtr    args,
+    Cardinal		    num_args,
+    XrmValuePtr		    from,
+    XrmValuePtr		    to,
+    Boolean		    succeeded,
+    register int	    hash,
+    Boolean		    do_ref,
+    Boolean		    do_free,
+    XtDestructor	    destructor,
+    XtPointer		    closure)
+{
+    register	CachePtr *pHashEntry;
+    register	CachePtr p;
+    register    Cardinal i;
+
+    LOCK_PROCESS;
+    pHashEntry = &cacheHashTable[hash & CACHEHASHMASK];
+
+    if ((succeeded && destructor) || do_ref) {
+	p = (CachePtr) _XtHeapAlloc(heap, (sizeof(CacheRec) +
+					   sizeof(CacheRecExt) +
+					   num_args * sizeof(XrmValue)));
+	CEXT(p)->prev = pHashEntry;
+	CEXT(p)->destructor = succeeded ? destructor : NULL;
+	CEXT(p)->closure = closure;
+	CEXT(p)->ref_count = 1;
+	p->has_ext = True;
+    }
+    else {
+	p = (CachePtr)_XtHeapAlloc(heap, (sizeof(CacheRec) +
+					  num_args * sizeof(XrmValue)));
+	p->has_ext = False;
+    }
+    if (!to->addr)
+	succeeded = False;
+    p->conversion_succeeded = succeeded;
+    p->is_refcounted = do_ref;
+    p->must_be_freed = do_free;
+    p->next	    = *pHashEntry;
+    if (p->next && p->next->has_ext)
+	CEXT(p->next)->prev = &p->next;
+
+    *pHashEntry     = p;
+    p->tag	    = (XtPointer)heap;
+    p->hash	    = hash;
+    p->converter    = converter;
+    p->from.size    = from->size;
+    if (from->size <= sizeof(p->from.addr)) {
+	p->from_is_value = True;
+	XtMemmove(&p->from.addr, from->addr, from->size);
+    } else {
+	p->from_is_value = False;
+	p->from.addr = (XPointer)_XtHeapAlloc(heap, from->size);
+	(void) memmove((char *)p->from.addr, (char *)from->addr, from->size);
+    }
+    p->num_args = num_args;
+    if (num_args) {
+	XrmValue *pargs = CARGS(p);
+	for (i = 0; i < num_args; i++) {
+	    pargs[i].size = args[i].size;
+	    pargs[i].addr = (XPointer)_XtHeapAlloc(heap, args[i].size);
+	    XtMemmove(pargs[i].addr, args[i].addr, args[i].size);
+	}
+    }
+    p->to.size = to->size;
+    if (!succeeded) {
+	p->to_is_value = False;
+	p->to.addr = NULL;
+    } else if (to->size <= sizeof(p->to.addr)) {
+	p->to_is_value = True;
+	XtMemmove(&p->to.addr, to->addr, to->size);
+    } else {
+	p->to_is_value = False;
+	p->to.addr = (XPointer)_XtHeapAlloc(heap, to->size);
+	(void) memmove((char *)p->to.addr, (char *)to->addr, to->size);
+    }
+    UNLOCK_PROCESS;
+    return p;
+}
+
+static void FreeCacheRec(
+    XtAppContext app,
+    CachePtr p,
+    CachePtr *prev)
+{
+    LOCK_PROCESS;
+    if (p->has_ext) {
+	if (CEXT(p)->destructor) {
+	    Cardinal num_args = p->num_args;
+	    XrmValue *args = NULL;
+	    XrmValue toc;
+	    if (num_args)
+		args = CARGS(p);
+	    toc.size = p->to.size;
+	    if (p->to_is_value)
+		toc.addr = (XPointer)&p->to.addr;
+	    else
+		toc.addr = p->to.addr;
+	    (*CEXT(p)->destructor) (app, &toc, CEXT(p)->closure, args,
+				    &num_args);
+	}
+	*(CEXT(p)->prev) = p->next;
+	if (p->next && p->next->has_ext)
+	    CEXT(p->next)->prev = CEXT(p)->prev;
+    } else {
+	*prev = p->next;
+	if (p->next && p->next->has_ext)
+	    CEXT(p->next)->prev = prev;
+    }
+    if (p->must_be_freed) {
+	register int i;
+	if (!p->from_is_value)
+	    XtFree(p->from.addr);
+	if ((i = p->num_args)) {
+	    XrmValue *pargs = CARGS(p);
+	    while (i--)
+		XtFree(pargs[i].addr);
+	}
+	if (!p->to_is_value)
+	    XtFree(p->to.addr);
+	XtFree((char*)p);
+    }
+    /* else on private heap; will free entire heap later */
+    UNLOCK_PROCESS;
+}
+
+
+void _XtCacheFlushTag(
+    XtAppContext app,
+    XtPointer	tag)
+{
+    int i;
+    register CachePtr *prev;
+    register CachePtr rec;
+
+    LOCK_PROCESS;
+    for (i = CACHEHASHSIZE; --i >= 0;) {
+	prev = &cacheHashTable[i];
+	while ((rec = *prev)) {
+	    if (rec->tag == tag)
+		FreeCacheRec(app, rec, prev);
+	    else
+		prev = &rec->next;
+	}
+    }
+    UNLOCK_PROCESS;
+}
+
+#ifdef DEBUG
+#include	<stdio.h>
+
+void _XtConverterCacheStats(void)
+{
+    register Cardinal i;
+    register CachePtr p;
+    register Cardinal entries;
+
+    LOCK_PROCESS;
+    for (i = 0; i < CACHEHASHSIZE; i++) {
+	p = cacheHashTable[i];
+	if (p) {
+	    for (entries = 0; p; p = p->next) {
+		entries++;
+	    }
+	    (void) fprintf(stdout, "Index: %4d  Entries: %d\n", i, entries);
+	    for (p = cacheHashTable[i]; p; p = p->next) {
+		(void) fprintf(stdout, "    Size: %3d  Refs: %3d  '",
+			       p->from.size,
+			       p->has_ext ? CEXT(p)->ref_count : 0);
+		(void) fprintf(stdout, "'\n");
+	    }
+	    (void) fprintf(stdout, "\n");
+	}
+    }
+    UNLOCK_PROCESS;
+}
+#endif /*DEBUG*/
+
+static Boolean ResourceQuarkToOffset(
+    WidgetClass widget_class,
+    XrmName     name,
+    Cardinal    *offset)
+{
+    register WidgetClass     wc;
+    register Cardinal        i;
+    register XrmResourceList res, *resources;
+
+    for (wc = widget_class; wc; wc = wc->core_class.superclass) {
+	resources = (XrmResourceList*) wc->core_class.resources;
+	for (i = 0; i < wc->core_class.num_resources; i++, resources++) {
+	    res = *resources;
+	    if (res->xrm_name == name) {
+		*offset = -res->xrm_offset - 1;
+		return True;
+	    }
+	} /* for i in resources */
+    } /* for wc in widget classes */
+    (*offset) = 0;
+    return False;
+}
+
+
+static void ComputeArgs(
+    Widget		widget,
+    XtConvertArgList    convert_args,
+    Cardinal		num_args,
+    XrmValuePtr		args)
+{
+    register Cardinal   i;
+    Cardinal		offset;
+    String              params[1];
+    Cardinal		num_params = 1;
+    Widget		ancestor = NULL;
+
+    for (i = 0; i < num_args; i++) {
+	args[i].size = convert_args[i].size;
+	switch (convert_args[i].address_mode) {
+	case XtAddress:
+	    args[i].addr = convert_args[i].address_id;
+	    break;
+
+	case XtBaseOffset:
+	    args[i].addr =
+		(XPointer)((char *)widget + (long)convert_args[i].address_id);
+	    break;
+
+	case XtWidgetBaseOffset:
+	    if (!ancestor) {
+		if (XtIsWidget(widget))
+		    ancestor = widget;
+		else
+		    ancestor = _XtWindowedAncestor(widget);
+	    }
+
+	    args[i].addr =
+		(XPointer)((char *)ancestor + (long)convert_args[i].address_id);
+	    break;
+
+	case XtImmediate:
+	    args[i].addr = (XPointer) &(convert_args[i].address_id);
+	    break;
+
+	case XtProcedureArg:
+	    (*(XtConvertArgProc)convert_args[i].address_id)
+		(widget, &convert_args[i].size, &args[i]);
+	    break;
+
+	case XtResourceString:
+	    /* Convert in place for next usage */
+	    convert_args[i].address_mode = XtResourceQuark;
+	    convert_args[i].address_id =
+	       (XtPointer)(long)XrmStringToQuark((String)convert_args[i].address_id);
+	    /* Fall through */
+
+	case XtResourceQuark:
+	    if (! ResourceQuarkToOffset(widget->core.widget_class,
+		    (XrmQuark)(long) convert_args[i].address_id, &offset)) {
+		params[0]=
+                  XrmQuarkToString((XrmQuark)(long) convert_args[i].address_id);
+               XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		    "invalidResourceName","computeArgs",XtCXtToolkitError,
+		    "Cannot find resource name %s as argument to conversion",
+                     params,&num_params);
+		offset = 0;
+	    }
+	    args[i].addr = (XPointer)((char *)widget + offset);
+	    break;
+	default:
+	    params[0] = XtName(widget);
+	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"invalidAddressMode", "computeArgs", XtCXtToolkitError,
+		"Conversion arguments for widget '%s' contain an unsupported address mode",
+			params,&num_params);
+	    args[i].addr = NULL;
+	    args[i].size = 0;
+	} /* switch */
+    } /* for */
+} /* ComputeArgs */
+
+void XtDirectConvert(
+    XtConverter     converter,
+    XrmValuePtr     args,
+    Cardinal	    num_args,
+    register XrmValuePtr from,
+    XrmValuePtr     to)
+{
+    register CachePtr   p;
+    register int	hash;
+    register Cardinal   i;
+
+    LOCK_PROCESS;
+    /* Try to find cache entry for conversion */
+    hash = ((long) converter >> 2) + from->size + *((char *) from->addr);
+    if (from->size > 1) hash += ((char *) from->addr)[1];
+
+    for (p = cacheHashTable[hash & CACHEHASHMASK]; p; p = p->next) {
+	if ((p->hash == hash)
+	 && (p->converter == (XtTypeConverter)converter)
+	 && (p->from.size == from->size)
+	 && !(p->from_is_value ?
+	      XtMemcmp(&p->from.addr, from->addr, from->size) :
+	      memcmp((char *)p->from.addr, (char *)from->addr, from->size))
+         && (p->num_args == num_args)) {
+	    if ((i = num_args)) {
+		XrmValue *pargs = CARGS(p);
+		/* Are all args the same data ? */
+		while (i) {
+		    i--; /* do not move to while test, broken compilers */
+		    if (pargs[i].size != args[i].size ||
+			XtMemcmp(pargs[i].addr, args[i].addr, args[i].size)) {
+			i++;
+			break;
+		    }
+		}
+	    }
+	    if (!i) {
+		/* Perfect match */
+		to->size = p->to.size;
+		if (p->to_is_value)
+		    to->addr = (XPointer)&p->to.addr;
+		else
+		    to->addr = p->to.addr;
+		UNLOCK_PROCESS;
+		return;
+	    }
+	}
+    }
+
+    /* Didn't find it, call converter procedure and entry result in cache */
+    (*to).size = 0;
+    (*to).addr = NULL;
+    (*converter)(args, &num_args, from, to);
+    /* This memory can never be freed since we don't know the Display
+     * or app context from which to compute the persistance */
+    {
+	CacheEnter(&globalHeap, (XtTypeConverter)converter, args, num_args,
+		   from, to, (to->addr != NULL), hash, False, False,
+		   (XtDestructor)NULL, NULL);
+    }
+    UNLOCK_PROCESS;
+}
+
+
+static ConverterPtr GetConverterEntry(
+    XtAppContext app,
+    XtTypeConverter converter)
+{
+    Cardinal entry;
+    register ConverterPtr cP;
+    ConverterTable converterTable;
+
+    LOCK_PROCESS;
+    converterTable = app->converterTable;
+    cP = NULL;
+    for (entry = 0; (entry < CONVERTHASHSIZE) && !cP; entry++) {
+	cP = converterTable[entry];
+	while (cP && (cP->converter != converter)) cP = cP->next;
+    }
+    UNLOCK_PROCESS;
+    return cP;
+}
+
+
+static Boolean
+CallConverter(
+    Display*	    dpy,
+    XtTypeConverter converter,
+    XrmValuePtr     args,
+    Cardinal	    num_args,
+    register XrmValuePtr from,
+    XrmValuePtr     to,
+    XtCacheRef	    *cache_ref_return,
+    register ConverterPtr cP)
+{
+    CachePtr p;
+    int	hash;
+    Cardinal i;
+    Boolean retval;
+
+    if (!cP || ((cP->cache_type == XtCacheNone) && !cP->destructor)) {
+	XtPointer closure;
+	if (cache_ref_return) *cache_ref_return = NULL;
+	retval = (*(XtTypeConverter)converter)
+	    (dpy, args, &num_args, from, to, &closure);
+	return retval;
+    }
+
+    LOCK_PROCESS;
+    /* Try to find cache entry for conversion */
+    hash = ((long)(converter) >> 2) + from->size + *((char *) from->addr);
+    if (from->size > 1) hash += ((char *) from->addr)[1];
+
+    if (cP->cache_type != XtCacheNone) {
+	for (p = cacheHashTable[hash & CACHEHASHMASK]; p; p = p->next){
+	    if ((p->hash == hash)
+	     && (p->converter == converter)
+	     && (p->from.size == from->size)
+	     && !(p->from_is_value ?
+		  XtMemcmp(&p->from.addr, from->addr, from->size) :
+		  memcmp((char *)p->from.addr, (char *)from->addr, from->size))
+	     && (p->num_args == num_args)) {
+		if ((i = num_args)) {
+		    XrmValue *pargs = CARGS(p);
+		    /* Are all args the same data ? */
+		    while (i) {
+			i--; /* do not move to while test, broken compilers */
+			if (pargs[i].size != args[i].size ||
+			    XtMemcmp(pargs[i].addr, args[i].addr, args[i].size)){
+			    i++;
+			    break;
+			}
+		    }
+		}
+		if (!i) {
+		    /* Perfect match */
+		    if (p->conversion_succeeded) {
+			if (to->addr) {	/* new-style call */
+			    if (to->size < p->to.size) {
+				to->size = p->to.size;
+				UNLOCK_PROCESS;
+				return False;
+			    }
+			    to->size = p->to.size;
+			    if (p->to_is_value) {
+				XtMemmove(to->addr, &p->to.addr,
+					  to->size);
+			    } else {
+				(void) memmove((char *)to->addr,
+					       (char *)p->to.addr, to->size);
+			    }
+			} else {	/* old-style call */
+			    to->size = p->to.size;
+			    if (p->to_is_value)
+				to->addr = (XPointer)&p->to.addr;
+			    else
+				to->addr = p->to.addr;
+			}
+		    }
+		    if (p->is_refcounted) {
+			CEXT(p)->ref_count++;
+			if (cache_ref_return)
+			    *cache_ref_return = (XtCacheRef)p;
+			else
+			    p->is_refcounted = False;
+		    }
+		    else {
+			if (cache_ref_return)
+			    *cache_ref_return = NULL;
+		    }
+		    retval = (p->conversion_succeeded);
+		    UNLOCK_PROCESS;
+		    return retval;
+		}
+	    }
+	}
+    }
+
+    /* No cache entry, call converter procedure and enter result in cache */
+    {
+	Heap *heap;
+	XtPointer closure = NULL;
+	unsigned int supplied_size = to->size;
+	Boolean do_ref = cP->do_ref_count && cache_ref_return;
+	Boolean do_free = False;
+	Boolean retval =
+	    (*(XtTypeConverter)converter)(dpy, args, &num_args, from, to, &closure);
+
+	if (retval == False && supplied_size < to->size) {
+	    /* programmer error: caller must allocate sufficient storage */
+	    if (cache_ref_return)
+		*cache_ref_return = NULL;
+	    UNLOCK_PROCESS;
+	    return False;
+	}
+
+	if ((cP->cache_type == XtCacheNone) || do_ref) {
+	    heap = NULL;
+	    do_free = True;
+	}
+	else if (cP->cache_type == XtCacheByDisplay)
+	    heap = &_XtGetPerDisplay(dpy)->heap;
+	else if (cP->global)
+	    heap = &globalHeap;
+	else
+	    heap = &XtDisplayToApplicationContext(dpy)->heap;
+
+	p = CacheEnter(heap, converter, args, num_args, from, to, retval,
+		       hash, do_ref, do_free, cP->destructor, closure);
+	if (do_ref)
+	    *cache_ref_return = (XtCacheRef)p;
+	else if (cache_ref_return)
+	    *cache_ref_return = NULL;
+	UNLOCK_PROCESS;
+	return retval;
+    }
+}
+
+Boolean
+XtCallConverter(
+    Display*	    dpy,
+    XtTypeConverter converter,
+    XrmValuePtr     args,
+    Cardinal	    num_args,
+    register XrmValuePtr from,
+    XrmValuePtr     to,
+    XtCacheRef	    *cache_ref_return)
+{
+    ConverterPtr cP;
+    Boolean retval;
+    XtAppContext app = XtDisplayToApplicationContext(dpy);
+
+    LOCK_APP(app);
+    if ((cP = GetConverterEntry(app, converter)) == NULL) {
+	XtAppSetTypeConverter(XtDisplayToApplicationContext(dpy),
+			      "_XtUnk1", "_XtUnk2",
+			      converter, NULL, 0,
+			      XtCacheAll, NULL);
+	cP = GetConverterEntry(app, converter);
+    }
+    retval = CallConverter(dpy, converter, args, num_args, from, to,
+			    cache_ref_return, cP);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+Boolean _XtConvert(
+             Widget		widget,
+    register XrmRepresentation	from_type,
+	     XrmValuePtr	from,
+    register XrmRepresentation	to_type,
+    register XrmValuePtr	to,
+    XtCacheRef			*cache_ref_return)
+{
+    XtAppContext	app = XtWidgetToApplicationContext(widget);
+    register ConverterPtr	p;
+    Cardinal		num_args;
+    XrmValue		*args;
+
+    /* Look for type converter */
+    LOCK_PROCESS;
+    p = app->converterTable[ProcHash(from_type, to_type) & CONVERTHASHMASK];
+    for (; p; p = p->next) {
+	if (from_type == p->from && to_type == p->to) {
+	    Boolean retval = False;
+	    /* Compute actual arguments from widget and arg descriptor */
+	    num_args = p->num_args;
+	    if (num_args != 0) {
+		args = (XrmValue*)
+		    ALLOCATE_LOCAL( num_args * sizeof (XrmValue) );
+		if (!args) _XtAllocError("alloca");
+		ComputeArgs(widget, ConvertArgs(p), num_args, args);
+	    } else args = NULL;
+	    if (p->new_style) {
+		retval =
+		    CallConverter(XtDisplayOfObject(widget),
+				     p->converter, args, num_args,
+				     from, to, cache_ref_return, p);
+	    }
+	    else { /* is old-style (non-display) converter */
+		XrmValue tempTo;
+		XtDirectConvert((XtConverter)p->converter, args, num_args,
+				from, &tempTo);
+		if (cache_ref_return)
+		    *cache_ref_return = NULL;
+		if (tempTo.addr) {
+		    if (to->addr) {	/* new-style caller */
+			if (to->size >= tempTo.size) {
+			    if (to_type == _XtQString)
+				*(String*)(to->addr) = tempTo.addr;
+			    else {
+				XtMemmove(to->addr, tempTo.addr,
+					  tempTo.size);
+			    }
+			    retval = True;
+			}
+			to->size = tempTo.size;
+		    } else {		/* old-style caller */
+			*to = tempTo;
+			retval = True;
+		    }
+		}
+	    }
+	    if (args) DEALLOCATE_LOCAL( (XtPointer)args );
+	    UNLOCK_PROCESS;
+	    return retval;
+	}
+    }
+
+    {
+	String params[2];
+	Cardinal num_params = 2;
+	params[0] = XrmRepresentationToString(from_type);
+	params[1] = XrmRepresentationToString(to_type);
+	XtAppWarningMsg(app, "typeConversionError", "noConverter", XtCXtToolkitError,
+	     "No type converter registered for '%s' to '%s' conversion.",
+             params, &num_params);
+    }
+    UNLOCK_PROCESS;
+    return False;
+}
+
+void XtConvert(
+    Widget	widget,
+    _Xconst char* from_type_str,
+    XrmValuePtr	from,
+    _Xconst char* to_type_str,
+    XrmValuePtr	to)
+{
+    XrmQuark    from_type, to_type;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    from_type = XrmStringToRepresentation(from_type_str);
+    to_type = XrmStringToRepresentation(to_type_str);
+    if (from_type != to_type) {
+	/*  It's not safe to ref count these resources, 'cause we
+	    don't know what older clients may have assumed about
+	    the resource lifetimes.
+	XtCacheRef ref;
+	*/
+	to->addr = NULL;
+	to->size = 0;
+	_XtConvert(widget, from_type, from, to_type, to, /*&ref*/ NULL);
+	/*
+	if (ref) {
+	    XtAddCallback( widget, XtNdestroyCallback,
+			   XtCallbackReleaseCacheRef, (XtPointer)ref );
+	}
+	*/
+    }
+    else
+	(*to) = *from;
+    UNLOCK_APP(app);
+}
+
+Boolean XtConvertAndStore(
+    Widget	object,
+    _Xconst char* from_type_str,
+    XrmValuePtr	from,
+    _Xconst char* to_type_str,
+    XrmValuePtr	to)
+{
+    XrmQuark    from_type, to_type;
+    WIDGET_TO_APPCON(object);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    from_type = XrmStringToRepresentation(from_type_str);
+    to_type = XrmStringToRepresentation(to_type_str);
+    if (from_type != to_type) {
+	static XtPointer local_valueP = NULL;
+	static Cardinal local_valueS = 128;
+	XtCacheRef ref;
+	Boolean local = False;
+	do {
+	    if (!to->addr) {
+		if (!local_valueP)
+		    local_valueP = _XtHeapAlloc(&globalHeap, local_valueS);
+		to->addr = local_valueP;
+		to->size = local_valueS;
+		local = True;
+	    }
+	    if (!_XtConvert(object, from_type, from, to_type, to, &ref)) {
+		if (local && (to->size > local_valueS)) {
+		    to->addr =
+			local_valueP = _XtHeapAlloc(&globalHeap, to->size);
+		    local_valueS = to->size;
+		    continue;
+		} else {
+		    if (local) {
+			to->addr = NULL;
+			to->size = 0;
+		    }
+		    UNLOCK_PROCESS;
+		    UNLOCK_APP(app);
+		    return False;
+		}
+	    }
+	    if (ref) {
+		XtAddCallback( object, XtNdestroyCallback,
+			       XtCallbackReleaseCacheRef, (XtPointer)ref );
+	    }
+	    UNLOCK_PROCESS;
+	    UNLOCK_APP(app);
+	    return True;
+	} while (local /* && local_valueS < to->size */);
+    }
+    if (to->addr) {
+	if (to->size < from->size) {
+	    to->size = from->size;
+	    UNLOCK_PROCESS;
+	    UNLOCK_APP(app);
+	    return False;
+	}
+	(void) memmove(to->addr, from->addr, from->size );
+	to->size = from->size;
+    } else			/* from_type == to_type */
+	*to = *from;
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+    return True;
+}
+
+void XtAppReleaseCacheRefs(
+    XtAppContext app,
+    XtCacheRef *refs)
+{
+    register CachePtr *r;
+    register CachePtr p;
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    for (r = (CachePtr*)refs; (p = *r); r++) {
+	if (p->is_refcounted && --(CEXT(p)->ref_count) == 0) {
+	    FreeCacheRec(app, p, NULL);
+	}
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
+
+
+/* ARGSUSED */
+void XtCallbackReleaseCacheRefList(
+    Widget widget,		/* unused */
+    XtPointer closure,
+    XtPointer call_data)	/* unused */
+{
+    XtAppReleaseCacheRefs( XtWidgetToApplicationContext(widget),
+			   (XtCacheRef*)closure );
+    XtFree(closure);
+}
+
+
+/* ARGSUSED */
+void XtCallbackReleaseCacheRef(
+    Widget widget,		/* unused */
+    XtPointer closure,
+    XtPointer call_data)	/* unused */
+{
+    XtCacheRef cache_refs[2];
+    cache_refs[0] = (XtCacheRef)closure;
+    cache_refs[1] = NULL;
+    XtAppReleaseCacheRefs( XtWidgetToApplicationContext(widget), cache_refs );
+}
diff --git a/libXt/src/Converters.c b/libXt/src/Converters.c
index 9af9f3402..a19ca673a 100644
--- a/libXt/src/Converters.c
+++ b/libXt/src/Converters.c
@@ -1,1874 +1,1874 @@
-/***********************************************************

-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, 1994, 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*/

-/* Conversion.c - implementations of resource type conversion procs */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include	"IntrinsicI.h"

-#include	"StringDefs.h"

-#include	"Shell.h"

-#include	<stdio.h>

-#include        <X11/cursorfont.h>

-#include	<X11/keysym.h>

-#include	<X11/Xlocale.h>

-#include	<errno.h>	/* for StringToDirectoryString */

-

-#ifdef __UNIXOS2__

-#define IsNewline(str) ((str) == '\n' || (str) == '\r')

-#define IsWhitespace(str) ((str)== ' ' || (str) == '\t' || (str) == '\r')

-#else

-#define IsNewline(str) ((str) == '\n')

-#define IsWhitespace(str) ((str)== ' ' || (str) == '\t')

-#endif

-

-static const String XtNwrongParameters = "wrongParameters";

-static const String XtNconversionError = "conversionError";

-static const String XtNmissingCharsetList = "missingCharsetList";

-

-/* Representation types */

-

-#define XtQAtom			XrmPermStringToQuark(XtRAtom)

-#define XtQCommandArgArray	XrmPermStringToQuark(XtRCommandArgArray)

-#define XtQCursor		XrmPermStringToQuark(XtRCursor)

-#define XtQDirectoryString	XrmPermStringToQuark(XtRDirectoryString)

-#define XtQDisplay		XrmPermStringToQuark(XtRDisplay)

-#define XtQFile			XrmPermStringToQuark(XtRFile)

-#define XtQFloat		XrmPermStringToQuark(XtRFloat)

-#define XtQInitialState		XrmPermStringToQuark(XtRInitialState)

-#define XtQPixmap		XrmPermStringToQuark(XtRPixmap)

-#define XtQRestartStyle 	XrmPermStringToQuark(XtRRestartStyle)

-#define XtQShort		XrmPermStringToQuark(XtRShort)

-#define XtQUnsignedChar		XrmPermStringToQuark(XtRUnsignedChar)

-#define XtQVisual		XrmPermStringToQuark(XtRVisual)

-

-static XrmQuark  XtQBool;

-static XrmQuark  XtQBoolean;

-static XrmQuark  XtQColor;

-static XrmQuark  XtQDimension;

-static XrmQuark  XtQFont;

-static XrmQuark  XtQFontSet;

-static XrmQuark  XtQFontStruct;

-static XrmQuark  XtQGravity;

-static XrmQuark  XtQInt;

-static XrmQuark  XtQPixel;

-static XrmQuark  XtQPosition;

-#ifdef __UNIXOS2__

-XrmQuark  _XtQString = 0;

-#else

-XrmQuark  _XtQString;

-#endif

-

-void _XtConvertInitialize(void)

-{

-    XtQBool		= XrmPermStringToQuark(XtRBool);

-    XtQBoolean		= XrmPermStringToQuark(XtRBoolean);

-    XtQColor		= XrmPermStringToQuark(XtRColor);

-    XtQDimension	= XrmPermStringToQuark(XtRDimension);

-    XtQFont		= XrmPermStringToQuark(XtRFont);

-    XtQFontSet		= XrmPermStringToQuark(XtRFontSet);

-    XtQFontStruct	= XrmPermStringToQuark(XtRFontStruct);

-    XtQGravity		= XrmPermStringToQuark(XtRGravity);

-    XtQInt		= XrmPermStringToQuark(XtRInt);

-    XtQPixel		= XrmPermStringToQuark(XtRPixel);

-    XtQPosition		= XrmPermStringToQuark(XtRPosition);

-    _XtQString		= XrmPermStringToQuark(XtRString);

-}

-

-#define	donestr(type, value, tstr) \

-	{							\

-	    if (toVal->addr != NULL) {				\

-		if (toVal->size < sizeof(type)) {		\

-		    toVal->size = sizeof(type);			\

-		    XtDisplayStringConversionWarning(dpy, 	\

-			(char*) fromVal->addr, tstr);		\

-		    return False;				\

-		}						\

-		*(type*)(toVal->addr) = (value);		\

-	    }							\

-	    else {						\

-		static type static_val;				\

-		static_val = (value);				\

-		toVal->addr = (XPointer)&static_val;		\

-	    }							\

-	    toVal->size = sizeof(type);				\

-	    return True;					\

-	}

-

-#define	done(type, value) \

-	{							\

-	    if (toVal->addr != NULL) {				\

-		if (toVal->size < sizeof(type)) {		\

-		    toVal->size = sizeof(type);			\

-		    return False;				\

-		}						\

-		*(type*)(toVal->addr) = (value);		\

-	    }							\

-	    else {						\

-		static type static_val;				\

-		static_val = (value);				\

-		toVal->addr = (XPointer)&static_val;		\

-	    }							\

-	    toVal->size = sizeof(type);				\

-	    return True;					\

-	}

-

-void XtDisplayStringConversionWarning(

-    Display* dpy,

-    _Xconst char* from,

-    _Xconst char* toType

-    )

-{

-#ifndef NO_MIT_HACKS

-    /* Allow suppression of conversion warnings. %%%  Not specified. */

-

-    static enum {Check, Report, Ignore} report_it = Check;

-    XtAppContext app = XtDisplayToApplicationContext(dpy);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    if (report_it == Check) {

-	XrmDatabase rdb = XtDatabase(dpy);

-	XrmName xrm_name[2];

-	XrmClass xrm_class[2];

-	XrmRepresentation rep_type;

-	XrmValue value;

-	xrm_name[0] = XrmPermStringToQuark( "stringConversionWarnings" );

-	xrm_name[1] = 0;

-	xrm_class[0] = XrmPermStringToQuark( "StringConversionWarnings" );

-	xrm_class[1] = 0;

-	if (XrmQGetResource( rdb, xrm_name, xrm_class,

-			     &rep_type, &value ))

-	{

-	    if (rep_type == XtQBoolean)

-		report_it = *(Boolean*)value.addr ? Report : Ignore;

-	    else if (rep_type == _XtQString) {

-		XrmValue toVal;

-		Boolean report;

-		toVal.addr = (XPointer)&report;

-		toVal.size = sizeof(Boolean);

-		if (XtCallConverter(dpy, XtCvtStringToBoolean, (XrmValuePtr)NULL,

-				    (Cardinal)0, &value, &toVal,

-				    (XtCacheRef*)NULL))

-		    report_it = report ? Report : Ignore;

-	    }

-	    else report_it = Report;

-	}

-	else report_it = Report;

-    }

-

-    if (report_it == Report) {

-#endif /* ifndef NO_MIT_HACKS */

-	String params[2];

-	Cardinal num_params = 2;

-	params[0] = (String)from;

-	params[1] = (String)toType;

-	XtAppWarningMsg(app,

-		   XtNconversionError,"string",XtCXtToolkitError,

-		   "Cannot convert string \"%s\" to type %s",

-		    params,&num_params);

-#ifndef NO_MIT_HACKS

-    }

-#endif /* ifndef NO_MIT_HACKS */

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

-

-void XtStringConversionWarning(

-    _Xconst char* from,

-    _Xconst char* toType

-    )

-{

-	String params[2];

-	Cardinal num_params = 2;

-	params[0] = (String)from;

-	params[1] = (String)toType;

-	XtWarningMsg(XtNconversionError,"string",XtCXtToolkitError,

-		   "Cannot convert string \"%s\" to type %s",

-		    params,&num_params);

-}

-

-static int CompareISOLatin1(char *, char *);

-

-

-static Boolean IsInteger(

-    String string,

-    int *value)

-{

-    Boolean foundDigit = False;

-    Boolean isNegative = False;

-    Boolean isPositive = False;

-    int val = 0;

-    char ch;

-    /* skip leading whitespace */

-#ifndef __UNIXOS2__

-    while ((ch = *string) == ' ' || ch == '\t') string++;

-#else

-    while ((ch = *string) == ' ' || ch == '\t' || ch == '\r') string++;

-#endif

-    while ((ch = *string++)) {

-	if (ch >= '0' && ch <= '9') {

-	    val *= 10;

-	    val += ch - '0';

-	    foundDigit = True;

-	    continue;

-	}

-	if (IsWhitespace(ch)) {

-	    if (!foundDigit) return False;

-	    /* make sure only trailing whitespace */

-	    while ((ch = *string++)) {

-		if (!IsWhitespace(ch))

-		    return False;

-	    }

-	    break;

-	}

-	if (ch == '-' && !foundDigit && !isNegative && !isPositive) {

-	    isNegative = True;

-	    continue;

-	}

-	if (ch == '+' && !foundDigit && !isNegative && !isPositive) {

-	    isPositive = True;

-	    continue;

-	}

-	return False;

-    }

-    if (ch == '\0') {

-	if (isNegative)

-	    *value = -val;

-	else

-	    *value = val;

-	return True;

-    }

-    return False;

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtIntToBoolean(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToBoolean",XtCXtToolkitError,

-                  "Integer to Boolean conversion needs no extra arguments",

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

-    done(Boolean, (*(int *)fromVal->addr != 0));

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtIntToShort(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToShort",XtCXtToolkitError,

-                  "Integer to Short conversion needs no extra arguments",

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

-    done(short, (*(int *)fromVal->addr));

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtStringToBoolean(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    String str = (String)fromVal->addr;

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToBoolean",XtCXtToolkitError,

-                  "String to Boolean conversion needs no extra arguments",

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

-

-    if (   (CompareISOLatin1(str, "true") == 0)

-	|| (CompareISOLatin1(str, "yes") == 0)

-	|| (CompareISOLatin1(str, "on") == 0)

-	|| (CompareISOLatin1(str, "1") == 0))	donestr( Boolean, True, XtRBoolean );

-

-    if (   (CompareISOLatin1(str, "false") == 0)

-	|| (CompareISOLatin1(str, "no") == 0)

-	|| (CompareISOLatin1(str, "off") == 0)

-	|| (CompareISOLatin1(str, "0") == 0))	donestr( Boolean, False, XtRBoolean );

-

-    XtDisplayStringConversionWarning(dpy, str, XtRBoolean);

-    return False;

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtIntToBool(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToBool",XtCXtToolkitError,

-                  "Integer to Bool conversion needs no extra arguments",

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

-    done(Bool, (*(int *)fromVal->addr != 0));

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtStringToBool(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    String str = (String)fromVal->addr;

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		XtNwrongParameters,"cvtStringToBool",

-		XtCXtToolkitError,

-                 "String to Bool conversion needs no extra arguments",

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

-

-    if (   (CompareISOLatin1(str, "true") == 0)

-	|| (CompareISOLatin1(str, "yes") == 0)

-	|| (CompareISOLatin1(str, "on") == 0)

-	|| (CompareISOLatin1(str, "1") == 0))	donestr( Bool, True, XtRBool );

-

-    if (   (CompareISOLatin1(str, "false") == 0)

-	|| (CompareISOLatin1(str, "no") == 0)

-	|| (CompareISOLatin1(str, "off") == 0)

-	|| (CompareISOLatin1(str, "0") == 0))	donestr( Bool, False, XtRBool );

-

-    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRBool);

-    return False;

-}

-

-XtConvertArgRec const colorConvertArgs[] = {

-    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),

-     sizeof(Screen *)},

-    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.colormap),

-     sizeof(Colormap)}

-};

-

-

-/* ARGSUSED */

-Boolean XtCvtIntToColor(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    XColor	c;

-    Screen	*screen;

-    Colormap	colormap;

-

-    if (*num_args != 2) {

-      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	 XtNwrongParameters,"cvtIntOrPixelToXColor",XtCXtToolkitError,

-         "Pixel to color conversion needs screen and colormap arguments",

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

-      return False;

-    }

-    screen = *((Screen **) args[0].addr);

-    colormap = *((Colormap *) args[1].addr);

-    c.pixel = *(int *)fromVal->addr;

-

-    XQueryColor(DisplayOfScreen(screen), colormap, &c);

-    done(XColor, c);

-}

-

-

-Boolean XtCvtStringToPixel(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    String	    str = (String)fromVal->addr;

-    XColor	    screenColor;

-    XColor	    exactColor;

-    Screen	    *screen;

-    XtPerDisplay    pd = _XtGetPerDisplay(dpy);

-    Colormap	    colormap;

-    Status	    status;

-    String          params[1];

-    Cardinal	    num_params=1;

-

-    if (*num_args != 2) {

-     XtAppWarningMsg(pd->appContext, XtNwrongParameters, "cvtStringToPixel",

-		     XtCXtToolkitError,

-	"String to pixel conversion needs screen and colormap arguments",

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

-     return False;

-    }

-

-    screen = *((Screen **) args[0].addr);

-    colormap = *((Colormap *) args[1].addr);

-

-    if (CompareISOLatin1(str, XtDefaultBackground) == 0) {

-	*closure_ret = NULL;

-	if (pd->rv) donestr(Pixel, BlackPixelOfScreen(screen), XtRPixel)

-	else	    donestr(Pixel, WhitePixelOfScreen(screen), XtRPixel);

-    }

-    if (CompareISOLatin1(str, XtDefaultForeground) == 0) {

-	*closure_ret = NULL;

-	if (pd->rv) donestr(Pixel, WhitePixelOfScreen(screen), XtRPixel)

-        else	    donestr(Pixel, BlackPixelOfScreen(screen), XtRPixel);

-    }

-

-    status = XAllocNamedColor(DisplayOfScreen(screen), colormap,

-			      (char*)str, &screenColor, &exactColor);

-    if (status == 0) {

-	String msg, type;

-	params[0] = str;

-	/* Server returns a specific error code but Xlib discards it.  Ugh */

-	if (XLookupColor(DisplayOfScreen(screen), colormap, (char*)str,

-			 &exactColor, &screenColor)) {

-	    type = "noColormap";

-	    msg = "Cannot allocate colormap entry for \"%s\"";

-	}

-	else {

-	    type = "badValue";

-	    msg = "Color name \"%s\" is not defined";

-	}

-

-	XtAppWarningMsg(pd->appContext, type, "cvtStringToPixel",

-			XtCXtToolkitError, msg, params, &num_params);

-	*closure_ret = NULL;

-	return False;

-    } else {

-	*closure_ret = (char*)True;

-        donestr(Pixel, screenColor.pixel, XtRPixel);

-    }

-}

-

-/* ARGSUSED */

-static void FreePixel(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    Screen	    *screen;

-    Colormap	    colormap;

-

-    if (*num_args != 2) {

-     XtAppWarningMsg(app, XtNwrongParameters,"freePixel",XtCXtToolkitError,

-	"Freeing a pixel requires screen and colormap arguments",

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

-     return;

-    }

-

-    screen = *((Screen **) args[0].addr);

-    colormap = *((Colormap *) args[1].addr);

-

-    if (closure) {

-	XFreeColors( DisplayOfScreen(screen), colormap,

-		     (unsigned long*)toVal->addr, 1, (unsigned long)0

-		    );

-    }

-}

-

-

-/* no longer used by Xt, but it's in the spec */

-XtConvertArgRec const screenConvertArg[] = {

-    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),

-     sizeof(Screen *)}

-};

-

-/*ARGSUSED*/

-static void FetchDisplayArg(

-    Widget widget,

-    Cardinal *size,

-    XrmValue* value)

-{

-    if (widget == NULL)

-	XtErrorMsg("missingWidget", "fetchDisplayArg", XtCXtToolkitError,

-		   "FetchDisplayArg called without a widget to reference",

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

-        /* can't return any useful Display and caller will de-ref NULL,

-	   so aborting is the only useful option */

-

-    value->size = sizeof(Display*);

-    value->addr = (XPointer)&DisplayOfScreen(XtScreenOfObject(widget));

-}

-

-static XtConvertArgRec const displayConvertArg[] = {

-    {XtProcedureArg, (XtPointer)FetchDisplayArg, 0},

-};

-

-/*ARGSUSED*/

-Boolean XtCvtStringToCursor(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    static const struct _CursorName {

-	const char	*name;

-	unsigned int	shape;

-    } cursor_names[] = {

-			{"X_cursor",		XC_X_cursor},

-			{"arrow",		XC_arrow},

-			{"based_arrow_down",	XC_based_arrow_down},

-			{"based_arrow_up",	XC_based_arrow_up},

-			{"boat",		XC_boat},

-			{"bogosity",		XC_bogosity},

-			{"bottom_left_corner",	XC_bottom_left_corner},

-			{"bottom_right_corner",	XC_bottom_right_corner},

-			{"bottom_side",		XC_bottom_side},

-			{"bottom_tee",		XC_bottom_tee},

-			{"box_spiral",		XC_box_spiral},

-			{"center_ptr",		XC_center_ptr},

-			{"circle",		XC_circle},

-			{"clock",		XC_clock},

-			{"coffee_mug",		XC_coffee_mug},

-			{"cross",		XC_cross},

-			{"cross_reverse",	XC_cross_reverse},

-			{"crosshair",		XC_crosshair},

-			{"diamond_cross",	XC_diamond_cross},

-			{"dot",			XC_dot},

-			{"dotbox",		XC_dotbox},

-			{"double_arrow",	XC_double_arrow},

-			{"draft_large",		XC_draft_large},

-			{"draft_small",		XC_draft_small},

-			{"draped_box",		XC_draped_box},

-			{"exchange",		XC_exchange},

-			{"fleur",		XC_fleur},

-			{"gobbler",		XC_gobbler},

-			{"gumby",		XC_gumby},

-			{"hand1",		XC_hand1},

-			{"hand2",		XC_hand2},

-			{"heart",		XC_heart},

-			{"icon",		XC_icon},

-			{"iron_cross",		XC_iron_cross},

-			{"left_ptr",		XC_left_ptr},

-			{"left_side",		XC_left_side},

-			{"left_tee",		XC_left_tee},

-			{"leftbutton",		XC_leftbutton},

-			{"ll_angle",		XC_ll_angle},

-			{"lr_angle",		XC_lr_angle},

-			{"man",			XC_man},

-			{"middlebutton",	XC_middlebutton},

-			{"mouse",		XC_mouse},

-			{"pencil",		XC_pencil},

-			{"pirate",		XC_pirate},

-			{"plus",		XC_plus},

-			{"question_arrow",	XC_question_arrow},

-			{"right_ptr",		XC_right_ptr},

-			{"right_side",		XC_right_side},

-			{"right_tee",		XC_right_tee},

-			{"rightbutton",		XC_rightbutton},

-			{"rtl_logo",		XC_rtl_logo},

-			{"sailboat",		XC_sailboat},

-			{"sb_down_arrow",	XC_sb_down_arrow},

-			{"sb_h_double_arrow",	XC_sb_h_double_arrow},

-			{"sb_left_arrow",	XC_sb_left_arrow},

-			{"sb_right_arrow",	XC_sb_right_arrow},

-			{"sb_up_arrow",		XC_sb_up_arrow},

-			{"sb_v_double_arrow",	XC_sb_v_double_arrow},

-			{"shuttle",		XC_shuttle},

-			{"sizing",		XC_sizing},

-			{"spider",		XC_spider},

-			{"spraycan",		XC_spraycan},

-			{"star",		XC_star},

-			{"target",		XC_target},

-			{"tcross",		XC_tcross},

-			{"top_left_arrow",	XC_top_left_arrow},

-			{"top_left_corner",	XC_top_left_corner},

-			{"top_right_corner",	XC_top_right_corner},

-			{"top_side",		XC_top_side},

-			{"top_tee",		XC_top_tee},

-			{"trek",		XC_trek},

-			{"ul_angle",		XC_ul_angle},

-			{"umbrella",		XC_umbrella},

-			{"ur_angle",		XC_ur_angle},

-			{"watch",		XC_watch},

-			{"xterm",		XC_xterm},

-    };

-    const struct _CursorName *nP;

-    char *name = (char *)fromVal->addr;

-    register Cardinal i;

-

-    if (*num_args != 1) {

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	     XtNwrongParameters,"cvtStringToCursor",XtCXtToolkitError,

-             "String to cursor conversion needs display argument",

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

-	return False;

-    }

-

-    for (i=0, nP=cursor_names; i < XtNumber(cursor_names); i++, nP++ ) {

-	if (strcmp(name, nP->name) == 0) {

-	    Display *display = *(Display**)args[0].addr;

-	    Cursor cursor = XCreateFontCursor(display, nP->shape );

-	    donestr(Cursor, cursor, XtRCursor);

-	}

-    }

-    XtDisplayStringConversionWarning(dpy, name, XtRCursor);

-    return False;

-}

-

-/* ARGSUSED */

-static void FreeCursor(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,	/* unused */

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    Display*	display;

-

-    if (*num_args != 1) {

-     XtAppWarningMsg(app,

-	     XtNwrongParameters,"freeCursor",XtCXtToolkitError,

-             "Free Cursor requires display argument",

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

-     return;

-    }

-

-    display = *(Display**)args[0].addr;

-    XFreeCursor( display, *(Cursor*)toVal->addr );

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToDisplay(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    Display	*d;

-

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToDisplay",XtCXtToolkitError,

-                  "String to Display conversion needs no extra arguments",

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

-

-    d = XOpenDisplay((char *)fromVal->addr);

-    if (d != NULL)

-	donestr(Display*, d, XtRDisplay);

-

-    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRDisplay);

-    return False;

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtStringToFile(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    FILE *f;

-

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		 XtNwrongParameters,"cvtStringToFile",XtCXtToolkitError,

-                 "String to File conversion needs no extra arguments",

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

-

-    f = fopen((char *)fromVal->addr, "r");

-    if (f != NULL)

-	donestr(FILE*, f, XtRFile);

-

-    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRFile);

-    return False;

-}

-

-/* ARGSUSED */

-static void FreeFile(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,	/* unused */

-    XrmValuePtr	args,		/* unused */

-    Cardinal	*num_args)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(app,

-		 XtNwrongParameters,"freeFile",XtCXtToolkitError,

-                 "Free File requires no extra arguments",

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

-

-    fclose( *(FILE**)toVal->addr );

-}

-

-/*ARGSUSED*/

-Boolean XtCvtIntToFloat(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToFloat",XtCXtToolkitError,

-                  "Integer to Float conversion needs no extra arguments",

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

-    done(float, (*(int *)fromVal->addr));

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToFloat(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    int ret;

-    float f, nan;

-

-#ifndef ISC /* On ISC this generates a core dump :-( at least with gs */

-    /* depending on the system this may or may not do anything useful */

-    (void) sscanf ("NaNS", "%g",

-		   toVal->addr != NULL ? (float*) toVal->addr : &nan);

-#endif

-

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		 XtNwrongParameters,"cvtStringToFloat",XtCXtToolkitError,

-                 "String to Float conversion needs no extra arguments",

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

-

-    ret = sscanf (fromVal->addr, "%g", &f);

-    if (ret == 0) {

-	if (toVal->addr != NULL && toVal->size == sizeof nan)

-	    *(float*)toVal->addr = nan;

-	XtDisplayStringConversionWarning (dpy, (char*) fromVal->addr, XtRFloat);

-	return False;

-    }

-    donestr(float, f, XtRFloat);

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToFont(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    Font	f;

-    Display*	display;

-

-    if (*num_args != 1) {

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	     XtNwrongParameters,"cvtStringToFont",XtCXtToolkitError,

-             "String to font conversion needs display argument",

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

-	return False;

-    }

-

-    display = *(Display**)args[0].addr;

-

-    if (CompareISOLatin1((String)fromVal->addr, XtDefaultFont) != 0) {

-	f = XLoadFont(display, (char *)fromVal->addr);

-	if (f != 0) {

-  Done:	    donestr( Font, f, XtRFont );

-	}

-	XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRFont);

-    }

-    /* try and get the default font */

-

-    {

-	XrmName xrm_name[2];

-	XrmClass xrm_class[2];

-	XrmRepresentation rep_type;

-	XrmValue value;

-

-	xrm_name[0] = XrmPermStringToQuark ("xtDefaultFont");

-	xrm_name[1] = 0;

-	xrm_class[0] = XrmPermStringToQuark ("XtDefaultFont");

-	xrm_class[1] = 0;

-	if (XrmQGetResource(XtDatabase(display), xrm_name, xrm_class,

-			    &rep_type, &value)) {

-	    if (rep_type == _XtQString) {

-		f = XLoadFont(display, (char *)value.addr);

-		if (f != 0)

-		    goto Done;

-		else

-		    XtDisplayStringConversionWarning(dpy, (char *)value.addr,

-						     XtRFont);

-	    } else if (rep_type == XtQFont) {

-		f = *(Font*)value.addr;

-		goto Done;

-	    } else if (rep_type == XtQFontStruct) {

-		f = ((XFontStruct*)value.addr)->fid;

-		goto Done;

-	    }

-	}

-    }

-    /* Should really do XListFonts, but most servers support this */

-    f = XLoadFont(display, "-*-*-*-R-*-*-*-120-*-*-*-*-ISO8859-*");

-    if (f != 0)

-	goto Done;

-

-    XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		    "noFont","cvtStringToFont",XtCXtToolkitError,

-		    "Unable to load any usable ISO8859 font",

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

-

-    return False;

-}

-

-/* ARGSUSED */

-static void FreeFont(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,	/* unused */

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    Display *display;

-    if (*num_args != 1) {

-	XtAppWarningMsg(app,

-	     XtNwrongParameters,"freeFont",XtCXtToolkitError,

-             "Free Font needs display argument",

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

-	return;

-    }

-

-    display = *(Display**)args[0].addr;

-    XUnloadFont( display, *(Font*)toVal->addr );

-}

-

-/*ARGSUSED*/

-Boolean XtCvtIntToFont(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	   XtNwrongParameters,"cvtIntToFont",XtCXtToolkitError,

-           "Integer to Font conversion needs no extra arguments",

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

-    done(Font, *(int*)fromVal->addr);

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToFontSet(

-    Display*    dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer   *closure_ret)

-{

-    XFontSet  f;

-    Display*  display;

-    char**    missing_charset_list;

-    int       missing_charset_count;

-    char*     def_string;

-

-    if (*num_args != 2) {

-      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-           XtNwrongParameters,"cvtStringToFontSet",XtCXtToolkitError,

-             "String to FontSet conversion needs display and locale arguments",

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

-      return False;

-    }

-

-    display = *(Display**)args[0].addr;

-

-    if (CompareISOLatin1((String)fromVal->addr, XtDefaultFontSet) != 0) {

-      f = XCreateFontSet(display, (char *)fromVal->addr,

-              &missing_charset_list, &missing_charset_count, &def_string);

-        /* Free any returned missing charset list */

-      if (missing_charset_count) {

-          XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-                 XtNmissingCharsetList,"cvtStringToFontSet",XtCXtToolkitError,

-                 "Missing charsets in String to FontSet conversion",

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

-            XFreeStringList(missing_charset_list);

-      }

-      if (f != NULL) {

-  Done:           donestr( XFontSet, f, XtRFontSet );

-      }

-      XtDisplayStringConversionWarning(dpy, (char *)fromVal->addr, XtRFontSet);

-    }

-    /* try and get the default fontset */

-

-    {

-      XrmName xrm_name[2];

-      XrmClass xrm_class[2];

-      XrmRepresentation rep_type;

-      XrmValue value;

-

-      xrm_name[0] = XrmPermStringToQuark ("xtDefaultFontSet");

-      xrm_name[1] = 0;

-      xrm_class[0] = XrmPermStringToQuark ("XtDefaultFontSet");

-      xrm_class[1] = 0;

-      if (XrmQGetResource(XtDatabase(display), xrm_name, xrm_class,

-                          &rep_type, &value)) {

-          if (rep_type == _XtQString) {

-

-              f = XCreateFontSet(display, (char *)value.addr,

-				 &missing_charset_list, &missing_charset_count,

-				 &def_string);

-                /* Free any returned missing charset list */

-              if (missing_charset_count) {

-                  XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-			 XtNmissingCharsetList,"cvtStringToFontSet",

-			 XtCXtToolkitError,

-			 "Missing charsets in String to FontSet conversion",

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

-		  XFreeStringList(missing_charset_list);

-              }

-              if (f != NULL)

-                  goto Done;

-              else

-                  XtDisplayStringConversionWarning(dpy, (char *)value.addr,

-                                                   XtRFontSet);

-          } else if (rep_type == XtQFontSet) {

-              f = *(XFontSet*)value.addr;

-              goto Done;

-          }

-      }

-  }

-

-    /* Should really do XListFonts, but most servers support this */

-    f = XCreateFontSet(display, "-*-*-*-R-*-*-*-120-*-*-*-*,*",

-          &missing_charset_list, &missing_charset_count, &def_string);

-

-    /* Free any returned missing charset list */

-    if (missing_charset_count) {

-      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-             XtNmissingCharsetList,"cvtStringToFontSet",XtCXtToolkitError,

-             "Missing charsets in String to FontSet conversion",

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

-        XFreeStringList(missing_charset_list);

-    }

-    if (f != NULL)

-      goto Done;

-

-    XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-           "noFont","cvtStringToFontSet",XtCXtToolkitError,

-             "Unable to load any usable fontset",

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

-

-    return False;

-}

-

-/*ARGSUSED*/

-static void FreeFontSet(

-    XtAppContext	app,

-    XrmValuePtr		toVal,

-    XtPointer		closure,        /* unused */

-    XrmValuePtr		args,

-    Cardinal		*num_args)

-{

-    Display *display;

-    if (*num_args != 2) {

-      XtAppWarningMsg(app,

-           XtNwrongParameters,"freeFontSet",XtCXtToolkitError,

-             "FreeFontSet needs display and locale arguments",

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

-      return;

-    }

-

-    display = *(Display**)args[0].addr;

-    XFreeFontSet( display, *(XFontSet*)toVal->addr );

-}

-

-/*ARGSUSED*/

-static void FetchLocaleArg(

-    Widget widget,	/* unused */

-    Cardinal *size,	/* unused */

-    XrmValue *value)

-{

-    static XrmString locale;

-

-    locale = XrmQuarkToString(XrmStringToQuark

-			      (setlocale(LC_CTYPE, (char*)NULL)));

-    value->size = sizeof(XrmString);

-    value->addr = (XPointer)&locale;

-}

-

-static XtConvertArgRec const localeDisplayConvertArgs[] = {

-    {XtProcedureArg, (XtPointer)FetchDisplayArg, 0},

-    {XtProcedureArg, (XtPointer)FetchLocaleArg, 0},

-};

-

-

-/*ARGSUSED*/

-Boolean

-XtCvtStringToFontStruct(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    XFontStruct	    *f;

-    Display*	display;

-

-    if (*num_args != 1) {

-     XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	     XtNwrongParameters,"cvtStringToFontStruct",XtCXtToolkitError,

-             "String to font conversion needs display argument",

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

-     return False;

-    }

-

-    display = *(Display**)args[0].addr;

-

-    if (CompareISOLatin1((String)fromVal->addr, XtDefaultFont) != 0) {

-	f = XLoadQueryFont(display, (char *)fromVal->addr);

-	if (f != NULL) {

-  Done:	    donestr( XFontStruct*, f, XtRFontStruct);

-	}

-

-	XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,

-					 XtRFontStruct);

-    }

-

-    /* try and get the default font */

-

-    {

-	XrmName xrm_name[2];

-	XrmClass xrm_class[2];

-	XrmRepresentation rep_type;

-	XrmValue value;

-

-	xrm_name[0] = XrmPermStringToQuark ("xtDefaultFont");

-	xrm_name[1] = 0;

-	xrm_class[0] = XrmPermStringToQuark ("XtDefaultFont");

-	xrm_class[1] = 0;

-	if (XrmQGetResource(XtDatabase(display), xrm_name, xrm_class,

-			    &rep_type, &value)) {

-	    if (rep_type == _XtQString) {

-		f = XLoadQueryFont(display, (char*)value.addr);

-		if (f != NULL)

-		    goto Done;

-		else

-		    XtDisplayStringConversionWarning(dpy, (char*)value.addr,

-						     XtRFontStruct);

-	    } else if (rep_type == XtQFont) {

-		f = XQueryFont(display, *(Font*)value.addr );

-		if (f != NULL) goto Done;

-	    } else if (rep_type == XtQFontStruct) {

-		f = (XFontStruct*)value.addr;

-		goto Done;

-	    }

-	}

-    }

-    /* Should really do XListFonts, but most servers support this */

-    f = XLoadQueryFont(display, "-*-*-*-R-*-*-*-120-*-*-*-*-ISO8859-*");

-    if (f != NULL)

-	goto Done;

-

-    XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	     "noFont","cvtStringToFontStruct",XtCXtToolkitError,

-             "Unable to load any usable ISO8859 font",

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

-

-    return False;

-}

-

-/* ARGSUSED */

-static void FreeFontStruct(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,	/* unused */

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    Display *display;

-    if (*num_args != 1) {

-     XtAppWarningMsg(app,

-	     XtNwrongParameters,"freeFontStruct",XtCXtToolkitError,

-             "Free FontStruct requires display argument",

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

-     return;

-    }

-

-    display = *(Display**)args[0].addr;

-    XFreeFont( display, *(XFontStruct**)toVal->addr );

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToInt(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    int	i;

-

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToInt",XtCXtToolkitError,

-                  "String to Integer conversion needs no extra arguments",

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

-    if (IsInteger((String)fromVal->addr, &i))

-	donestr(int, i, XtRInt);

-

-    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRInt);

-    return False;

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToShort(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    int i;

-

-    if (*num_args != 0)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  XtNwrongParameters,"cvtStringToShort",XtCXtToolkitError,

-          "String to Integer conversion needs no extra arguments",

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

-    if (IsInteger((String)fromVal->addr, &i))

-        donestr(short, (short)i, XtRShort);

-

-    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRShort);

-    return False;

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToDimension(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    int i;

-

-    if (*num_args != 0)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  XtNwrongParameters,"cvtStringToDimension",XtCXtToolkitError,

-          "String to Dimension conversion needs no extra arguments",

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

-    if (IsInteger((String)fromVal->addr, &i)) {

-        if ( i < 0 )

-            XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,

-					     XtRDimension);

-        donestr(Dimension, (Dimension)i, XtRDimension);

-    }

-    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRDimension);

-    return False;

-}

-

-/*ARGSUSED*/

-Boolean XtCvtIntToUnsignedChar(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToUnsignedChar",XtCXtToolkitError,

-                  "Integer to UnsignedChar conversion needs no extra arguments",

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

-    done(unsigned char, (*(int *)fromVal->addr));

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtStringToUnsignedChar(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    int i;

-

-    if (*num_args != 0)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToUnsignedChar",XtCXtToolkitError,

-                  "String to Integer conversion needs no extra arguments",

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

-    if (IsInteger((String)fromVal->addr, &i)) {

-        if ( i < 0 || i > 255 )

-            XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,

-					     XtRUnsignedChar);

-        donestr(unsigned char, i, XtRUnsignedChar);

-    }

-    XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,

-				     XtRUnsignedChar);

-    return False;

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtColorToPixel(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtXColorToPixel",XtCXtToolkitError,

-                  "Color to Pixel conversion needs no extra arguments",

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

-    done(Pixel, ((XColor *)fromVal->addr)->pixel);

-}

-

-/*ARGSUSED*/

-Boolean XtCvtIntToPixel(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToPixel",XtCXtToolkitError,

-                  "Integer to Pixel conversion needs no extra arguments",

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

-    done(Pixel, *(int*)fromVal->addr);

-}

-

-/*ARGSUSED*/

-Boolean XtCvtIntToPixmap(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    if (*num_args != 0)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtIntToPixmap",XtCXtToolkitError,

-                  "Integer to Pixmap conversion needs no extra arguments",

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

-    done(Pixmap, *(int*)fromVal->addr);

-}

-

-#ifdef MOTIFBC

-void LowerCase(register char  *source, register *dest)

-{

-    register char ch;

-    int i;

-

-    for (i = 0; (ch = *source) != 0 && i < 999; source++, dest++, i++) {

-    	if ('A' <= ch && ch <= 'Z')

-	    *dest = ch - 'A' + 'a';

-	else

-	    *dest = ch;

-    }

-    *dest = 0;

-}

-#endif

-

-static int CompareISOLatin1 (char *first, char *second)

-{

-    register unsigned char *ap, *bp;

-

-    for (ap = (unsigned char *) first, bp = (unsigned char *) second;

-	 *ap && *bp; ap++, bp++) {

-	register unsigned char a, b;

-

-	if ((a = *ap) != (b = *bp)) {

-	    /* try lowercasing and try again */

-

-	    if ((a >= XK_A) && (a <= XK_Z))

-	      a += (XK_a - XK_A);

-	    else if ((a >= XK_Agrave) && (a <= XK_Odiaeresis))

-	      a += (XK_agrave - XK_Agrave);

-	    else if ((a >= XK_Ooblique) && (a <= XK_Thorn))

-	      a += (XK_oslash - XK_Ooblique);

-

-	    if ((b >= XK_A) && (b <= XK_Z))

-	      b += (XK_a - XK_A);

-	    else if ((b >= XK_Agrave) && (b <= XK_Odiaeresis))

-	      b += (XK_agrave - XK_Agrave);

-	    else if ((b >= XK_Ooblique) && (b <= XK_Thorn))

-	      b += (XK_oslash - XK_Ooblique);

-

-	    if (a != b) break;

-	}

-    }

-    return (((int) *bp) - ((int) *ap));

-}

-

-static void CopyISOLatin1Lowered(char *dst, char *src)

-{

-    unsigned char *dest, *source;

-

-    dest = (unsigned char *) dst; source = (unsigned char *) src;

-

-    for ( ; *source; source++, dest++) {

-	if (*source >= XK_A  && *source <= XK_Z)

-	    *dest = *source + (XK_a - XK_A);

-	else if (*source >= XK_Agrave && *source <= XK_Odiaeresis)

-	    *dest = *source + (XK_agrave - XK_Agrave);

-	else if (*source >= XK_Ooblique && *source <= XK_Thorn)

-	    *dest = *source + (XK_oslash - XK_Ooblique);

-	else

-	    *dest = *source;

-    }

-    *dest = '\0';

-}

-

-/*ARGSUSED*/

-Boolean

-XtCvtStringToInitialState(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    String str = (String)fromVal->addr;

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToInitialState",XtCXtToolkitError,

-                  "String to InitialState conversion needs no extra arguments",

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

-

-    if (CompareISOLatin1(str, "NormalState") == 0) donestr(int, NormalState, XtRInitialState);

-    if (CompareISOLatin1(str, "IconicState") == 0) donestr(int, IconicState, XtRInitialState);

-    {

-	int val;

-	if (IsInteger(str, &val)) donestr( int, val, XtRInitialState );

-    }

-    XtDisplayStringConversionWarning(dpy, str, XtRInitialState);

-    return False;

-}

-

-static XtConvertArgRec const visualConvertArgs[] = {

-    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),

-     sizeof(Screen *)},

-    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.depth),

-     sizeof(Cardinal)}

-};

-

-/*ARGSUSED*/

-Boolean XtCvtStringToVisual(

-    Display*	dpy,

-    XrmValuePtr args,		/* Screen, depth */

-    Cardinal    *num_args,	/* 2 */

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)	/* unused */

-{

-    String str = (String)fromVal->addr;

-    int vc;

-    XVisualInfo vinfo;

-    if (*num_args != 2) {

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToVisual",XtCXtToolkitError,

-                  "String to Visual conversion needs screen and depth arguments",

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

-	return False;

-    }

-

-         if (CompareISOLatin1(str, "StaticGray") == 0)	vc = StaticGray;

-    else if (CompareISOLatin1(str, "StaticColor") == 0)	vc = StaticColor;

-    else if (CompareISOLatin1(str, "TrueColor") == 0)	vc = TrueColor;

-    else if (CompareISOLatin1(str, "GrayScale") == 0)	vc = GrayScale;

-    else if (CompareISOLatin1(str, "PseudoColor") == 0)	vc = PseudoColor;

-    else if (CompareISOLatin1(str, "DirectColor") == 0)	vc = DirectColor;

-    else if (!IsInteger(str, &vc)) {

-	XtDisplayStringConversionWarning(dpy, str, "Visual class name");

-	return False;

-    }

-

-    if (XMatchVisualInfo( XDisplayOfScreen((Screen*)*(Screen**)args[0].addr),

-		     XScreenNumberOfScreen((Screen*)*(Screen**)args[0].addr),

-		     (int)*(int*)args[1].addr,

-		     vc,

-		     &vinfo) ) {

-	donestr( Visual*, vinfo.visual, XtRVisual );

-    }

-    else {

-	String params[2];

-	Cardinal num_params = 2;

-	params[0] = str;

-	params[1] =

-	    DisplayString(XDisplayOfScreen((Screen*)*(Screen**)args[0].addr));

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNconversionError, "stringToVisual", XtCXtToolkitError,

-                  "Cannot find Visual of class %s for display %s",

-		  params, &num_params );

-	return False;

-    }

-}

-

-

-/*ARGSUSED*/

-Boolean XtCvtStringToAtom(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr	fromVal,

-    XrmValuePtr	toVal,

-    XtPointer	*closure_ret)

-{

-    Atom atom;

-    if (*num_args != 1) {

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		  XtNwrongParameters,"cvtStringToAtom",XtCXtToolkitError,

-                  "String to Atom conversion needs Display argument",

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

-	return False;

-    }

-

-    atom =  XInternAtom( *(Display**)args->addr, (char*)fromVal->addr, False );

-    donestr(Atom, atom, XtRAtom);

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToDirectoryString(

-    Display	*dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    String str;

-    char directory[PATH_MAX+1];

-

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-           XtNwrongParameters,"cvtStringToDirectoryString",XtCXtToolkitError,

-           "String to DirectoryString conversion needs no extra arguments",

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

-

-    str = (String)fromVal->addr;

-    if (CompareISOLatin1(str, "XtCurrentDirectory") == 0) {

-	/* uglier, but does not depend on compiler knowing return type */

-#if !defined(X_NOT_POSIX) || defined(SYSV) || defined(WIN32)

-	if (getcwd(directory, PATH_MAX + 1))

-	    str = directory;

-#else

-	if (getwd(directory))

-	    str = directory;

-#endif

-	if (!str) {

-	    if (errno == EACCES)

-		errno = 0;	    /* reset errno */

-	    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr,

-					     XtRDirectoryString);

-	    return False;

-	}

-    }

-

-    /* Since memory from the resource database or from static buffers of

-     * system libraries may be freed or overwritten, allocate memory.

-     * The memory is freed when all cache references are released.

-     */

-    str = XtNewString(str);

-    donestr(String, str, XtRDirectoryString);

-}

-

-/*ARGSUSED*/

-static void FreeDirectoryString(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,	/* unused */

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    if (*num_args != 0)

-	XtAppWarningMsg(app,

-		 XtNwrongParameters,"freeDirectoryString",XtCXtToolkitError,

-		 "Free Directory String requires no extra arguments",

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

-

-    XtFree((char *) toVal->addr);

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToRestartStyle(

-    Display	*dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    String str = (String)fromVal->addr;

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	      XtNwrongParameters,"cvtStringToRestartStyle",XtCXtToolkitError,

-              "String to RestartStyle conversion needs no extra arguments",

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

-

-#ifndef XT_NO_SM

-    if (CompareISOLatin1(str, "RestartIfRunning") == 0)

-	donestr(unsigned char, SmRestartIfRunning, XtRRestartStyle);

-    if (CompareISOLatin1(str, "RestartAnyway") == 0)

-	donestr(unsigned char, SmRestartAnyway, XtRRestartStyle);

-    if (CompareISOLatin1(str, "RestartImmediately") == 0)

-	donestr(unsigned char, SmRestartImmediately, XtRRestartStyle);

-    if (CompareISOLatin1(str, "RestartNever") == 0)

-	donestr(unsigned char, SmRestartNever, XtRRestartStyle);

-#endif

-    XtDisplayStringConversionWarning(dpy, str, XtRRestartStyle);

-    return False;

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToCommandArgArray(

-    Display	*dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    String *strarray, *ptr;

-    char *src;

-    char *dst, *dst_str;

-    char *start;

-    int tokens, len;

-

-    if (*num_args != 0)

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-            XtNwrongParameters,"cvtStringToCommandArgArray",XtCXtToolkitError,

-            "String to CommandArgArray conversion needs no extra arguments",

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

-

-    src = fromVal->addr;

-    dst = dst_str = __XtMalloc((unsigned) strlen(src) + 1);

-    tokens = 0;

-

-    while (*src != '\0') {

-	/* skip whitespace */

-	while (IsWhitespace(*src) || IsNewline(*src))

-	    src++;

-	/* test for end of string */

-	if (*src == '\0')

-	    break;

-

-	/* start new token */

-	tokens++;

-	start = src;

-	while (*src != '\0' && !IsWhitespace(*src) && !IsNewline(*src)) {

-	    if (*src == '\\' &&

-		(IsWhitespace(*(src+1)) || IsNewline(*(src+1)))) {

-		len = src - start;

-		if (len) {

-		    /* copy preceeding part of token */

-		    memcpy(dst, start, len);

-		    dst += len;

-		}

-		/* skip backslash */

-		src++;

-		/* next part of token starts at whitespace */

-		start = src;

-	    }

-	    src++;

-	}

-	len = src - start;

-	if (len) {

-	    /* copy last part of token */

-	    memcpy(dst, start, len);

-	    dst += len;

-	}

-	*dst = '\0';

-	if (*src != '\0')

-	    dst++;

-    }

-

-    ptr = strarray = (String*) __XtMalloc((Cardinal)(tokens+1) * sizeof(String));

-    src = dst_str;

-    while (--tokens >= 0) {

-	*ptr = src;

-	ptr++;

-	if (tokens) {

-	    len = strlen(src);

-	    src = src + len + 1;

-	}

-    }

-    *ptr = NULL;

-

-    *closure_ret = (XtPointer) strarray;

-    donestr(char**, strarray, XtRCommandArgArray)

-}

-

-/*ARGSUSED*/

-static void ArgArrayDestructor(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    String *strarray;

-

-    if (closure) {

-	strarray = (String*) closure;

-	XtFree(*strarray);

-	XtFree((char *) strarray);

-    }

-}

-

-/*ARGSUSED*/

-Boolean XtCvtStringToGravity (

-    Display* dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr fromVal,

-    XrmValuePtr toVal,

-    XtPointer	*closure_ret)

-{

-    static struct _namepair {

-	XrmQuark quark;

-	char *name;

-	int gravity;

-    } names[] = {

-	{ NULLQUARK, "forget",		ForgetGravity },

-	{ NULLQUARK, "northwest",	NorthWestGravity },

-	{ NULLQUARK, "north",		NorthGravity },

-	{ NULLQUARK, "northeast",	NorthEastGravity },

-	{ NULLQUARK, "west",		WestGravity },

-	{ NULLQUARK, "center",		CenterGravity },

-	{ NULLQUARK, "east",		EastGravity },

-	{ NULLQUARK, "southwest",	SouthWestGravity },

-	{ NULLQUARK, "south",		SouthGravity },

-	{ NULLQUARK, "southeast",	SouthEastGravity },

-	{ NULLQUARK, "static",		StaticGravity },

-	{ NULLQUARK, "unmap",		UnmapGravity },

-	{ NULLQUARK, "0",		ForgetGravity },

-	{ NULLQUARK, "1",		NorthWestGravity },

-	{ NULLQUARK, "2",		NorthGravity },

-	{ NULLQUARK, "3",		NorthEastGravity },

-	{ NULLQUARK, "4",		WestGravity },

-	{ NULLQUARK, "5",		CenterGravity },

-	{ NULLQUARK, "6",		EastGravity },

-	{ NULLQUARK, "7",		SouthWestGravity },

-	{ NULLQUARK, "8",		SouthGravity },

-	{ NULLQUARK, "9",		SouthEastGravity },

-	{ NULLQUARK, "10",		StaticGravity },

-	{ NULLQUARK, NULL,		ForgetGravity }

-    };

-    static Boolean haveQuarks = FALSE;

-    char lowerName[40];

-    XrmQuark q;

-    char *s;

-    struct _namepair *np;

-

-    if (*num_args != 0) {

-        XtAppWarningMsg(XtDisplayToApplicationContext (dpy),

-			"wrongParameters","cvtStringToGravity","XtToolkitError",

-			"String to Gravity conversion needs no extra arguments",

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

-	return False;

-    }

-    if (!haveQuarks) {

-	for (np = names; np->name; np++) {

-	    np->quark = XrmPermStringToQuark (np->name);

-	}

-	haveQuarks = TRUE;

-    }

-    s = (char *) fromVal->addr;

-    if (strlen(s) < sizeof lowerName) {

-	CopyISOLatin1Lowered (lowerName, s);

-	q = XrmStringToQuark (lowerName);

-	for (np = names; np->name; np++)

-	    if (np->quark == q) donestr(int, np->gravity, XtRGravity);

-    }

-    XtDisplayStringConversionWarning(dpy, (char *)fromVal->addr, XtRGravity);

-    return False;

-}

-

-void _XtAddDefaultConverters(

-    ConverterTable table)

-{

-#define Add(from, to, proc, convert_args, num_args, cache) \

-    _XtTableAddConverter(table, from, to, proc, \

-	    (XtConvertArgList) convert_args, (Cardinal)num_args, \

-	    True, cache, (XtDestructor)NULL, True)

-

-#define Add2(from, to, proc, convert_args, num_args, cache, destructor) \

-    _XtTableAddConverter(table, from, to, proc, \

-	    (XtConvertArgList) convert_args, (Cardinal)num_args, \

-	    True, cache, destructor, True)

-

-    Add(XtQColor, XtQPixel,       XtCvtColorToPixel,   NULL, 0, XtCacheNone);

-

-    Add(XtQInt,   XtQBool,	  XtCvtIntToBool,      NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQBoolean,     XtCvtIntToBoolean,   NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQColor,	  XtCvtIntToColor,

-	colorConvertArgs, XtNumber(colorConvertArgs), XtCacheByDisplay);

-    Add(XtQInt,   XtQDimension,   XtCvtIntToShort,     NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQFloat,       XtCvtIntToFloat,     NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQFont,        XtCvtIntToFont,      NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQPixel,       XtCvtIntToPixel,     NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQPixmap,      XtCvtIntToPixmap,    NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQPosition,    XtCvtIntToShort,     NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQShort,       XtCvtIntToShort,     NULL, 0, XtCacheNone);

-    Add(XtQInt,   XtQUnsignedChar,XtCvtIntToUnsignedChar,NULL, 0, XtCacheNone);

-

-    Add(XtQPixel, XtQColor,	  XtCvtIntToColor,

-	colorConvertArgs, XtNumber(colorConvertArgs), XtCacheByDisplay);

-

-    Add(_XtQString, XtQAtom,      XtCvtStringToAtom,

-	displayConvertArg, XtNumber(displayConvertArg), XtCacheNone);

-    Add(_XtQString, XtQBool,      XtCvtStringToBool,    NULL, 0, XtCacheNone);

-    Add(_XtQString, XtQBoolean,   XtCvtStringToBoolean, NULL, 0, XtCacheNone);

-   Add2(_XtQString, XtQCommandArgArray,  XtCvtStringToCommandArgArray,

-	NULL, 0, XtCacheNone | XtCacheRefCount, ArgArrayDestructor);

-   Add2(_XtQString, XtQCursor,    XtCvtStringToCursor,

-	displayConvertArg, XtNumber(displayConvertArg),

-	XtCacheByDisplay, FreeCursor);

-    Add(_XtQString, XtQDimension, XtCvtStringToDimension,NULL, 0, XtCacheNone);

-   Add2(_XtQString, XtQDirectoryString, XtCvtStringToDirectoryString, NULL, 0,

-	XtCacheNone | XtCacheRefCount, FreeDirectoryString);

-    Add(_XtQString, XtQDisplay,   XtCvtStringToDisplay, NULL, 0, XtCacheAll);

-   Add2(_XtQString, XtQFile,      XtCvtStringToFile,    NULL, 0,

-	XtCacheAll | XtCacheRefCount, FreeFile);

-    Add(_XtQString, XtQFloat,     XtCvtStringToFloat,   NULL, 0, XtCacheNone);

-

-   Add2(_XtQString, XtQFont,      XtCvtStringToFont,

-	displayConvertArg, XtNumber(displayConvertArg),

-	XtCacheByDisplay, FreeFont);

-   Add2(_XtQString, XtQFontSet,   XtCvtStringToFontSet,

-	localeDisplayConvertArgs, XtNumber(localeDisplayConvertArgs),

-	XtCacheByDisplay, FreeFontSet);

-   Add2(_XtQString, XtQFontStruct,XtCvtStringToFontStruct,

-	displayConvertArg, XtNumber(displayConvertArg),

-	XtCacheByDisplay, FreeFontStruct);

-

-    Add(_XtQString, XtQGravity,   XtCvtStringToGravity, NULL, 0, XtCacheNone);

-    Add(_XtQString, XtQInitialState, XtCvtStringToInitialState, NULL, 0,

-	XtCacheNone);

-    Add(_XtQString, XtQInt,	     XtCvtStringToInt,    NULL, 0, XtCacheAll);

-   Add2(_XtQString, XtQPixel,        XtCvtStringToPixel,

-	colorConvertArgs, XtNumber(colorConvertArgs),

-	XtCacheByDisplay, FreePixel);

-    Add(_XtQString, XtQPosition,     XtCvtStringToShort,  NULL, 0, XtCacheAll);

-    Add(_XtQString, XtQRestartStyle, XtCvtStringToRestartStyle, NULL, 0,

-	XtCacheNone);

-    Add(_XtQString, XtQShort,        XtCvtStringToShort,  NULL, 0, XtCacheAll);

-    Add(_XtQString, XtQUnsignedChar, XtCvtStringToUnsignedChar,

-	NULL, 0, XtCacheAll);

-   Add2(_XtQString, XtQVisual,       XtCvtStringToVisual,

-	visualConvertArgs, XtNumber(visualConvertArgs),

-	XtCacheByDisplay, NULL);

-

-   _XtAddTMConverters(table);

-}

+/***********************************************************
+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, 1994, 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*/
+/* Conversion.c - implementations of resource type conversion procs */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include	"IntrinsicI.h"
+#include	"StringDefs.h"
+#include	"Shell.h"
+#include	<stdio.h>
+#include        <X11/cursorfont.h>
+#include	<X11/keysym.h>
+#include	<X11/Xlocale.h>
+#include	<errno.h>	/* for StringToDirectoryString */
+
+#ifdef __UNIXOS2__
+#define IsNewline(str) ((str) == '\n' || (str) == '\r')
+#define IsWhitespace(str) ((str)== ' ' || (str) == '\t' || (str) == '\r')
+#else
+#define IsNewline(str) ((str) == '\n')
+#define IsWhitespace(str) ((str)== ' ' || (str) == '\t')
+#endif
+
+static const String XtNwrongParameters = "wrongParameters";
+static const String XtNconversionError = "conversionError";
+static const String XtNmissingCharsetList = "missingCharsetList";
+
+/* Representation types */
+
+#define XtQAtom			XrmPermStringToQuark(XtRAtom)
+#define XtQCommandArgArray	XrmPermStringToQuark(XtRCommandArgArray)
+#define XtQCursor		XrmPermStringToQuark(XtRCursor)
+#define XtQDirectoryString	XrmPermStringToQuark(XtRDirectoryString)
+#define XtQDisplay		XrmPermStringToQuark(XtRDisplay)
+#define XtQFile			XrmPermStringToQuark(XtRFile)
+#define XtQFloat		XrmPermStringToQuark(XtRFloat)
+#define XtQInitialState		XrmPermStringToQuark(XtRInitialState)
+#define XtQPixmap		XrmPermStringToQuark(XtRPixmap)
+#define XtQRestartStyle 	XrmPermStringToQuark(XtRRestartStyle)
+#define XtQShort		XrmPermStringToQuark(XtRShort)
+#define XtQUnsignedChar		XrmPermStringToQuark(XtRUnsignedChar)
+#define XtQVisual		XrmPermStringToQuark(XtRVisual)
+
+static XrmQuark  XtQBool;
+static XrmQuark  XtQBoolean;
+static XrmQuark  XtQColor;
+static XrmQuark  XtQDimension;
+static XrmQuark  XtQFont;
+static XrmQuark  XtQFontSet;
+static XrmQuark  XtQFontStruct;
+static XrmQuark  XtQGravity;
+static XrmQuark  XtQInt;
+static XrmQuark  XtQPixel;
+static XrmQuark  XtQPosition;
+#ifdef __UNIXOS2__
+XrmQuark  _XtQString = 0;
+#else
+XrmQuark  _XtQString;
+#endif
+
+void _XtConvertInitialize(void)
+{
+    XtQBool		= XrmPermStringToQuark(XtRBool);
+    XtQBoolean		= XrmPermStringToQuark(XtRBoolean);
+    XtQColor		= XrmPermStringToQuark(XtRColor);
+    XtQDimension	= XrmPermStringToQuark(XtRDimension);
+    XtQFont		= XrmPermStringToQuark(XtRFont);
+    XtQFontSet		= XrmPermStringToQuark(XtRFontSet);
+    XtQFontStruct	= XrmPermStringToQuark(XtRFontStruct);
+    XtQGravity		= XrmPermStringToQuark(XtRGravity);
+    XtQInt		= XrmPermStringToQuark(XtRInt);
+    XtQPixel		= XrmPermStringToQuark(XtRPixel);
+    XtQPosition		= XrmPermStringToQuark(XtRPosition);
+    _XtQString		= XrmPermStringToQuark(XtRString);
+}
+
+#define	donestr(type, value, tstr) \
+	{							\
+	    if (toVal->addr != NULL) {				\
+		if (toVal->size < sizeof(type)) {		\
+		    toVal->size = sizeof(type);			\
+		    XtDisplayStringConversionWarning(dpy, 	\
+			(char*) fromVal->addr, tstr);		\
+		    return False;				\
+		}						\
+		*(type*)(toVal->addr) = (value);		\
+	    }							\
+	    else {						\
+		static type static_val;				\
+		static_val = (value);				\
+		toVal->addr = (XPointer)&static_val;		\
+	    }							\
+	    toVal->size = sizeof(type);				\
+	    return True;					\
+	}
+
+#define	done(type, value) \
+	{							\
+	    if (toVal->addr != NULL) {				\
+		if (toVal->size < sizeof(type)) {		\
+		    toVal->size = sizeof(type);			\
+		    return False;				\
+		}						\
+		*(type*)(toVal->addr) = (value);		\
+	    }							\
+	    else {						\
+		static type static_val;				\
+		static_val = (value);				\
+		toVal->addr = (XPointer)&static_val;		\
+	    }							\
+	    toVal->size = sizeof(type);				\
+	    return True;					\
+	}
+
+void XtDisplayStringConversionWarning(
+    Display* dpy,
+    _Xconst char* from,
+    _Xconst char* toType
+    )
+{
+#ifndef NO_MIT_HACKS
+    /* Allow suppression of conversion warnings. %%%  Not specified. */
+
+    static enum {Check, Report, Ignore} report_it = Check;
+    XtAppContext app = XtDisplayToApplicationContext(dpy);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    if (report_it == Check) {
+	XrmDatabase rdb = XtDatabase(dpy);
+	XrmName xrm_name[2];
+	XrmClass xrm_class[2];
+	XrmRepresentation rep_type;
+	XrmValue value;
+	xrm_name[0] = XrmPermStringToQuark( "stringConversionWarnings" );
+	xrm_name[1] = 0;
+	xrm_class[0] = XrmPermStringToQuark( "StringConversionWarnings" );
+	xrm_class[1] = 0;
+	if (XrmQGetResource( rdb, xrm_name, xrm_class,
+			     &rep_type, &value ))
+	{
+	    if (rep_type == XtQBoolean)
+		report_it = *(Boolean*)value.addr ? Report : Ignore;
+	    else if (rep_type == _XtQString) {
+		XrmValue toVal;
+		Boolean report;
+		toVal.addr = (XPointer)&report;
+		toVal.size = sizeof(Boolean);
+		if (XtCallConverter(dpy, XtCvtStringToBoolean, (XrmValuePtr)NULL,
+				    (Cardinal)0, &value, &toVal,
+				    (XtCacheRef*)NULL))
+		    report_it = report ? Report : Ignore;
+	    }
+	    else report_it = Report;
+	}
+	else report_it = Report;
+    }
+
+    if (report_it == Report) {
+#endif /* ifndef NO_MIT_HACKS */
+	String params[2];
+	Cardinal num_params = 2;
+	params[0] = (String)from;
+	params[1] = (String)toType;
+	XtAppWarningMsg(app,
+		   XtNconversionError,"string",XtCXtToolkitError,
+		   "Cannot convert string \"%s\" to type %s",
+		    params,&num_params);
+#ifndef NO_MIT_HACKS
+    }
+#endif /* ifndef NO_MIT_HACKS */
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
+
+void XtStringConversionWarning(
+    _Xconst char* from,
+    _Xconst char* toType
+    )
+{
+	String params[2];
+	Cardinal num_params = 2;
+	params[0] = (String)from;
+	params[1] = (String)toType;
+	XtWarningMsg(XtNconversionError,"string",XtCXtToolkitError,
+		   "Cannot convert string \"%s\" to type %s",
+		    params,&num_params);
+}
+
+static int CompareISOLatin1(char *, char *);
+
+
+static Boolean IsInteger(
+    String string,
+    int *value)
+{
+    Boolean foundDigit = False;
+    Boolean isNegative = False;
+    Boolean isPositive = False;
+    int val = 0;
+    char ch;
+    /* skip leading whitespace */
+#ifndef __UNIXOS2__
+    while ((ch = *string) == ' ' || ch == '\t') string++;
+#else
+    while ((ch = *string) == ' ' || ch == '\t' || ch == '\r') string++;
+#endif
+    while ((ch = *string++)) {
+	if (ch >= '0' && ch <= '9') {
+	    val *= 10;
+	    val += ch - '0';
+	    foundDigit = True;
+	    continue;
+	}
+	if (IsWhitespace(ch)) {
+	    if (!foundDigit) return False;
+	    /* make sure only trailing whitespace */
+	    while ((ch = *string++)) {
+		if (!IsWhitespace(ch))
+		    return False;
+	    }
+	    break;
+	}
+	if (ch == '-' && !foundDigit && !isNegative && !isPositive) {
+	    isNegative = True;
+	    continue;
+	}
+	if (ch == '+' && !foundDigit && !isNegative && !isPositive) {
+	    isPositive = True;
+	    continue;
+	}
+	return False;
+    }
+    if (ch == '\0') {
+	if (isNegative)
+	    *value = -val;
+	else
+	    *value = val;
+	return True;
+    }
+    return False;
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtIntToBoolean(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToBoolean",XtCXtToolkitError,
+                  "Integer to Boolean conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+    done(Boolean, (*(int *)fromVal->addr != 0));
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtIntToShort(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToShort",XtCXtToolkitError,
+                  "Integer to Short conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+    done(short, (*(int *)fromVal->addr));
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtStringToBoolean(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    String str = (String)fromVal->addr;
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToBoolean",XtCXtToolkitError,
+                  "String to Boolean conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+
+    if (   (CompareISOLatin1(str, "true") == 0)
+	|| (CompareISOLatin1(str, "yes") == 0)
+	|| (CompareISOLatin1(str, "on") == 0)
+	|| (CompareISOLatin1(str, "1") == 0))	donestr( Boolean, True, XtRBoolean );
+
+    if (   (CompareISOLatin1(str, "false") == 0)
+	|| (CompareISOLatin1(str, "no") == 0)
+	|| (CompareISOLatin1(str, "off") == 0)
+	|| (CompareISOLatin1(str, "0") == 0))	donestr( Boolean, False, XtRBoolean );
+
+    XtDisplayStringConversionWarning(dpy, str, XtRBoolean);
+    return False;
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtIntToBool(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToBool",XtCXtToolkitError,
+                  "Integer to Bool conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+    done(Bool, (*(int *)fromVal->addr != 0));
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtStringToBool(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    String str = (String)fromVal->addr;
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		XtNwrongParameters,"cvtStringToBool",
+		XtCXtToolkitError,
+                 "String to Bool conversion needs no extra arguments",
+                  (String *)NULL, (Cardinal *)NULL);
+
+    if (   (CompareISOLatin1(str, "true") == 0)
+	|| (CompareISOLatin1(str, "yes") == 0)
+	|| (CompareISOLatin1(str, "on") == 0)
+	|| (CompareISOLatin1(str, "1") == 0))	donestr( Bool, True, XtRBool );
+
+    if (   (CompareISOLatin1(str, "false") == 0)
+	|| (CompareISOLatin1(str, "no") == 0)
+	|| (CompareISOLatin1(str, "off") == 0)
+	|| (CompareISOLatin1(str, "0") == 0))	donestr( Bool, False, XtRBool );
+
+    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRBool);
+    return False;
+}
+
+XtConvertArgRec const colorConvertArgs[] = {
+    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),
+     sizeof(Screen *)},
+    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.colormap),
+     sizeof(Colormap)}
+};
+
+
+/* ARGSUSED */
+Boolean XtCvtIntToColor(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    XColor	c;
+    Screen	*screen;
+    Colormap	colormap;
+
+    if (*num_args != 2) {
+      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	 XtNwrongParameters,"cvtIntOrPixelToXColor",XtCXtToolkitError,
+         "Pixel to color conversion needs screen and colormap arguments",
+          (String *)NULL, (Cardinal *)NULL);
+      return False;
+    }
+    screen = *((Screen **) args[0].addr);
+    colormap = *((Colormap *) args[1].addr);
+    c.pixel = *(int *)fromVal->addr;
+
+    XQueryColor(DisplayOfScreen(screen), colormap, &c);
+    done(XColor, c);
+}
+
+
+Boolean XtCvtStringToPixel(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    String	    str = (String)fromVal->addr;
+    XColor	    screenColor;
+    XColor	    exactColor;
+    Screen	    *screen;
+    XtPerDisplay    pd = _XtGetPerDisplay(dpy);
+    Colormap	    colormap;
+    Status	    status;
+    String          params[1];
+    Cardinal	    num_params=1;
+
+    if (*num_args != 2) {
+     XtAppWarningMsg(pd->appContext, XtNwrongParameters, "cvtStringToPixel",
+		     XtCXtToolkitError,
+	"String to pixel conversion needs screen and colormap arguments",
+        (String *)NULL, (Cardinal *)NULL);
+     return False;
+    }
+
+    screen = *((Screen **) args[0].addr);
+    colormap = *((Colormap *) args[1].addr);
+
+    if (CompareISOLatin1(str, XtDefaultBackground) == 0) {
+	*closure_ret = NULL;
+	if (pd->rv) donestr(Pixel, BlackPixelOfScreen(screen), XtRPixel)
+	else	    donestr(Pixel, WhitePixelOfScreen(screen), XtRPixel);
+    }
+    if (CompareISOLatin1(str, XtDefaultForeground) == 0) {
+	*closure_ret = NULL;
+	if (pd->rv) donestr(Pixel, WhitePixelOfScreen(screen), XtRPixel)
+        else	    donestr(Pixel, BlackPixelOfScreen(screen), XtRPixel);
+    }
+
+    status = XAllocNamedColor(DisplayOfScreen(screen), colormap,
+			      (char*)str, &screenColor, &exactColor);
+    if (status == 0) {
+	String msg, type;
+	params[0] = str;
+	/* Server returns a specific error code but Xlib discards it.  Ugh */
+	if (XLookupColor(DisplayOfScreen(screen), colormap, (char*)str,
+			 &exactColor, &screenColor)) {
+	    type = "noColormap";
+	    msg = "Cannot allocate colormap entry for \"%s\"";
+	}
+	else {
+	    type = "badValue";
+	    msg = "Color name \"%s\" is not defined";
+	}
+
+	XtAppWarningMsg(pd->appContext, type, "cvtStringToPixel",
+			XtCXtToolkitError, msg, params, &num_params);
+	*closure_ret = NULL;
+	return False;
+    } else {
+	*closure_ret = (char*)True;
+        donestr(Pixel, screenColor.pixel, XtRPixel);
+    }
+}
+
+/* ARGSUSED */
+static void FreePixel(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    Screen	    *screen;
+    Colormap	    colormap;
+
+    if (*num_args != 2) {
+     XtAppWarningMsg(app, XtNwrongParameters,"freePixel",XtCXtToolkitError,
+	"Freeing a pixel requires screen and colormap arguments",
+        (String *)NULL, (Cardinal *)NULL);
+     return;
+    }
+
+    screen = *((Screen **) args[0].addr);
+    colormap = *((Colormap *) args[1].addr);
+
+    if (closure) {
+	XFreeColors( DisplayOfScreen(screen), colormap,
+		     (unsigned long*)toVal->addr, 1, (unsigned long)0
+		    );
+    }
+}
+
+
+/* no longer used by Xt, but it's in the spec */
+XtConvertArgRec const screenConvertArg[] = {
+    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),
+     sizeof(Screen *)}
+};
+
+/*ARGSUSED*/
+static void FetchDisplayArg(
+    Widget widget,
+    Cardinal *size,
+    XrmValue* value)
+{
+    if (widget == NULL)
+	XtErrorMsg("missingWidget", "fetchDisplayArg", XtCXtToolkitError,
+		   "FetchDisplayArg called without a widget to reference",
+		   (String*)NULL, (Cardinal*)NULL);
+        /* can't return any useful Display and caller will de-ref NULL,
+	   so aborting is the only useful option */
+
+    value->size = sizeof(Display*);
+    value->addr = (XPointer)&DisplayOfScreen(XtScreenOfObject(widget));
+}
+
+static XtConvertArgRec const displayConvertArg[] = {
+    {XtProcedureArg, (XtPointer)FetchDisplayArg, 0},
+};
+
+/*ARGSUSED*/
+Boolean XtCvtStringToCursor(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    static const struct _CursorName {
+	const char	*name;
+	unsigned int	shape;
+    } cursor_names[] = {
+			{"X_cursor",		XC_X_cursor},
+			{"arrow",		XC_arrow},
+			{"based_arrow_down",	XC_based_arrow_down},
+			{"based_arrow_up",	XC_based_arrow_up},
+			{"boat",		XC_boat},
+			{"bogosity",		XC_bogosity},
+			{"bottom_left_corner",	XC_bottom_left_corner},
+			{"bottom_right_corner",	XC_bottom_right_corner},
+			{"bottom_side",		XC_bottom_side},
+			{"bottom_tee",		XC_bottom_tee},
+			{"box_spiral",		XC_box_spiral},
+			{"center_ptr",		XC_center_ptr},
+			{"circle",		XC_circle},
+			{"clock",		XC_clock},
+			{"coffee_mug",		XC_coffee_mug},
+			{"cross",		XC_cross},
+			{"cross_reverse",	XC_cross_reverse},
+			{"crosshair",		XC_crosshair},
+			{"diamond_cross",	XC_diamond_cross},
+			{"dot",			XC_dot},
+			{"dotbox",		XC_dotbox},
+			{"double_arrow",	XC_double_arrow},
+			{"draft_large",		XC_draft_large},
+			{"draft_small",		XC_draft_small},
+			{"draped_box",		XC_draped_box},
+			{"exchange",		XC_exchange},
+			{"fleur",		XC_fleur},
+			{"gobbler",		XC_gobbler},
+			{"gumby",		XC_gumby},
+			{"hand1",		XC_hand1},
+			{"hand2",		XC_hand2},
+			{"heart",		XC_heart},
+			{"icon",		XC_icon},
+			{"iron_cross",		XC_iron_cross},
+			{"left_ptr",		XC_left_ptr},
+			{"left_side",		XC_left_side},
+			{"left_tee",		XC_left_tee},
+			{"leftbutton",		XC_leftbutton},
+			{"ll_angle",		XC_ll_angle},
+			{"lr_angle",		XC_lr_angle},
+			{"man",			XC_man},
+			{"middlebutton",	XC_middlebutton},
+			{"mouse",		XC_mouse},
+			{"pencil",		XC_pencil},
+			{"pirate",		XC_pirate},
+			{"plus",		XC_plus},
+			{"question_arrow",	XC_question_arrow},
+			{"right_ptr",		XC_right_ptr},
+			{"right_side",		XC_right_side},
+			{"right_tee",		XC_right_tee},
+			{"rightbutton",		XC_rightbutton},
+			{"rtl_logo",		XC_rtl_logo},
+			{"sailboat",		XC_sailboat},
+			{"sb_down_arrow",	XC_sb_down_arrow},
+			{"sb_h_double_arrow",	XC_sb_h_double_arrow},
+			{"sb_left_arrow",	XC_sb_left_arrow},
+			{"sb_right_arrow",	XC_sb_right_arrow},
+			{"sb_up_arrow",		XC_sb_up_arrow},
+			{"sb_v_double_arrow",	XC_sb_v_double_arrow},
+			{"shuttle",		XC_shuttle},
+			{"sizing",		XC_sizing},
+			{"spider",		XC_spider},
+			{"spraycan",		XC_spraycan},
+			{"star",		XC_star},
+			{"target",		XC_target},
+			{"tcross",		XC_tcross},
+			{"top_left_arrow",	XC_top_left_arrow},
+			{"top_left_corner",	XC_top_left_corner},
+			{"top_right_corner",	XC_top_right_corner},
+			{"top_side",		XC_top_side},
+			{"top_tee",		XC_top_tee},
+			{"trek",		XC_trek},
+			{"ul_angle",		XC_ul_angle},
+			{"umbrella",		XC_umbrella},
+			{"ur_angle",		XC_ur_angle},
+			{"watch",		XC_watch},
+			{"xterm",		XC_xterm},
+    };
+    const struct _CursorName *nP;
+    char *name = (char *)fromVal->addr;
+    register Cardinal i;
+
+    if (*num_args != 1) {
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	     XtNwrongParameters,"cvtStringToCursor",XtCXtToolkitError,
+             "String to cursor conversion needs display argument",
+              (String *)NULL, (Cardinal *)NULL);
+	return False;
+    }
+
+    for (i=0, nP=cursor_names; i < XtNumber(cursor_names); i++, nP++ ) {
+	if (strcmp(name, nP->name) == 0) {
+	    Display *display = *(Display**)args[0].addr;
+	    Cursor cursor = XCreateFontCursor(display, nP->shape );
+	    donestr(Cursor, cursor, XtRCursor);
+	}
+    }
+    XtDisplayStringConversionWarning(dpy, name, XtRCursor);
+    return False;
+}
+
+/* ARGSUSED */
+static void FreeCursor(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,	/* unused */
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    Display*	display;
+
+    if (*num_args != 1) {
+     XtAppWarningMsg(app,
+	     XtNwrongParameters,"freeCursor",XtCXtToolkitError,
+             "Free Cursor requires display argument",
+              (String *)NULL, (Cardinal *)NULL);
+     return;
+    }
+
+    display = *(Display**)args[0].addr;
+    XFreeCursor( display, *(Cursor*)toVal->addr );
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToDisplay(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    Display	*d;
+
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToDisplay",XtCXtToolkitError,
+                  "String to Display conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+
+    d = XOpenDisplay((char *)fromVal->addr);
+    if (d != NULL)
+	donestr(Display*, d, XtRDisplay);
+
+    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRDisplay);
+    return False;
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtStringToFile(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    FILE *f;
+
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		 XtNwrongParameters,"cvtStringToFile",XtCXtToolkitError,
+                 "String to File conversion needs no extra arguments",
+                 (String *) NULL, (Cardinal *)NULL);
+
+    f = fopen((char *)fromVal->addr, "r");
+    if (f != NULL)
+	donestr(FILE*, f, XtRFile);
+
+    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRFile);
+    return False;
+}
+
+/* ARGSUSED */
+static void FreeFile(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,	/* unused */
+    XrmValuePtr	args,		/* unused */
+    Cardinal	*num_args)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(app,
+		 XtNwrongParameters,"freeFile",XtCXtToolkitError,
+                 "Free File requires no extra arguments",
+                 (String *) NULL, (Cardinal *)NULL);
+
+    fclose( *(FILE**)toVal->addr );
+}
+
+/*ARGSUSED*/
+Boolean XtCvtIntToFloat(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToFloat",XtCXtToolkitError,
+                  "Integer to Float conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+    done(float, (*(int *)fromVal->addr));
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToFloat(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    int ret;
+    float f, nan;
+
+#ifndef ISC /* On ISC this generates a core dump :-( at least with gs */
+    /* depending on the system this may or may not do anything useful */
+    (void) sscanf ("NaNS", "%g",
+		   toVal->addr != NULL ? (float*) toVal->addr : &nan);
+#endif
+
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		 XtNwrongParameters,"cvtStringToFloat",XtCXtToolkitError,
+                 "String to Float conversion needs no extra arguments",
+                 (String *) NULL, (Cardinal *)NULL);
+
+    ret = sscanf (fromVal->addr, "%g", &f);
+    if (ret == 0) {
+	if (toVal->addr != NULL && toVal->size == sizeof nan)
+	    *(float*)toVal->addr = nan;
+	XtDisplayStringConversionWarning (dpy, (char*) fromVal->addr, XtRFloat);
+	return False;
+    }
+    donestr(float, f, XtRFloat);
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToFont(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    Font	f;
+    Display*	display;
+
+    if (*num_args != 1) {
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	     XtNwrongParameters,"cvtStringToFont",XtCXtToolkitError,
+             "String to font conversion needs display argument",
+              (String *) NULL, (Cardinal *)NULL);
+	return False;
+    }
+
+    display = *(Display**)args[0].addr;
+
+    if (CompareISOLatin1((String)fromVal->addr, XtDefaultFont) != 0) {
+	f = XLoadFont(display, (char *)fromVal->addr);
+	if (f != 0) {
+  Done:	    donestr( Font, f, XtRFont );
+	}
+	XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRFont);
+    }
+    /* try and get the default font */
+
+    {
+	XrmName xrm_name[2];
+	XrmClass xrm_class[2];
+	XrmRepresentation rep_type;
+	XrmValue value;
+
+	xrm_name[0] = XrmPermStringToQuark ("xtDefaultFont");
+	xrm_name[1] = 0;
+	xrm_class[0] = XrmPermStringToQuark ("XtDefaultFont");
+	xrm_class[1] = 0;
+	if (XrmQGetResource(XtDatabase(display), xrm_name, xrm_class,
+			    &rep_type, &value)) {
+	    if (rep_type == _XtQString) {
+		f = XLoadFont(display, (char *)value.addr);
+		if (f != 0)
+		    goto Done;
+		else
+		    XtDisplayStringConversionWarning(dpy, (char *)value.addr,
+						     XtRFont);
+	    } else if (rep_type == XtQFont) {
+		f = *(Font*)value.addr;
+		goto Done;
+	    } else if (rep_type == XtQFontStruct) {
+		f = ((XFontStruct*)value.addr)->fid;
+		goto Done;
+	    }
+	}
+    }
+    /* Should really do XListFonts, but most servers support this */
+    f = XLoadFont(display, "-*-*-*-R-*-*-*-120-*-*-*-*-ISO8859-*");
+    if (f != 0)
+	goto Done;
+
+    XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		    "noFont","cvtStringToFont",XtCXtToolkitError,
+		    "Unable to load any usable ISO8859 font",
+		    (String *) NULL, (Cardinal *)NULL);
+
+    return False;
+}
+
+/* ARGSUSED */
+static void FreeFont(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,	/* unused */
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    Display *display;
+    if (*num_args != 1) {
+	XtAppWarningMsg(app,
+	     XtNwrongParameters,"freeFont",XtCXtToolkitError,
+             "Free Font needs display argument",
+              (String *) NULL, (Cardinal *)NULL);
+	return;
+    }
+
+    display = *(Display**)args[0].addr;
+    XUnloadFont( display, *(Font*)toVal->addr );
+}
+
+/*ARGSUSED*/
+Boolean XtCvtIntToFont(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	   XtNwrongParameters,"cvtIntToFont",XtCXtToolkitError,
+           "Integer to Font conversion needs no extra arguments",
+            (String *) NULL, (Cardinal *)NULL);
+    done(Font, *(int*)fromVal->addr);
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToFontSet(
+    Display*    dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer   *closure_ret)
+{
+    XFontSet  f;
+    Display*  display;
+    char**    missing_charset_list;
+    int       missing_charset_count;
+    char*     def_string;
+
+    if (*num_args != 2) {
+      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+           XtNwrongParameters,"cvtStringToFontSet",XtCXtToolkitError,
+             "String to FontSet conversion needs display and locale arguments",
+              (String *) NULL, (Cardinal *)NULL);
+      return False;
+    }
+
+    display = *(Display**)args[0].addr;
+
+    if (CompareISOLatin1((String)fromVal->addr, XtDefaultFontSet) != 0) {
+      f = XCreateFontSet(display, (char *)fromVal->addr,
+              &missing_charset_list, &missing_charset_count, &def_string);
+        /* Free any returned missing charset list */
+      if (missing_charset_count) {
+          XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+                 XtNmissingCharsetList,"cvtStringToFontSet",XtCXtToolkitError,
+                 "Missing charsets in String to FontSet conversion",
+                 (String *) NULL, (Cardinal *)NULL);
+            XFreeStringList(missing_charset_list);
+      }
+      if (f != NULL) {
+  Done:           donestr( XFontSet, f, XtRFontSet );
+      }
+      XtDisplayStringConversionWarning(dpy, (char *)fromVal->addr, XtRFontSet);
+    }
+    /* try and get the default fontset */
+
+    {
+      XrmName xrm_name[2];
+      XrmClass xrm_class[2];
+      XrmRepresentation rep_type;
+      XrmValue value;
+
+      xrm_name[0] = XrmPermStringToQuark ("xtDefaultFontSet");
+      xrm_name[1] = 0;
+      xrm_class[0] = XrmPermStringToQuark ("XtDefaultFontSet");
+      xrm_class[1] = 0;
+      if (XrmQGetResource(XtDatabase(display), xrm_name, xrm_class,
+                          &rep_type, &value)) {
+          if (rep_type == _XtQString) {
+
+              f = XCreateFontSet(display, (char *)value.addr,
+				 &missing_charset_list, &missing_charset_count,
+				 &def_string);
+                /* Free any returned missing charset list */
+              if (missing_charset_count) {
+                  XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+			 XtNmissingCharsetList,"cvtStringToFontSet",
+			 XtCXtToolkitError,
+			 "Missing charsets in String to FontSet conversion",
+                         (String *) NULL, (Cardinal *)NULL);
+		  XFreeStringList(missing_charset_list);
+              }
+              if (f != NULL)
+                  goto Done;
+              else
+                  XtDisplayStringConversionWarning(dpy, (char *)value.addr,
+                                                   XtRFontSet);
+          } else if (rep_type == XtQFontSet) {
+              f = *(XFontSet*)value.addr;
+              goto Done;
+          }
+      }
+  }
+
+    /* Should really do XListFonts, but most servers support this */
+    f = XCreateFontSet(display, "-*-*-*-R-*-*-*-120-*-*-*-*,*",
+          &missing_charset_list, &missing_charset_count, &def_string);
+
+    /* Free any returned missing charset list */
+    if (missing_charset_count) {
+      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+             XtNmissingCharsetList,"cvtStringToFontSet",XtCXtToolkitError,
+             "Missing charsets in String to FontSet conversion",
+             (String *) NULL, (Cardinal *)NULL);
+        XFreeStringList(missing_charset_list);
+    }
+    if (f != NULL)
+      goto Done;
+
+    XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+           "noFont","cvtStringToFontSet",XtCXtToolkitError,
+             "Unable to load any usable fontset",
+              (String *) NULL, (Cardinal *)NULL);
+
+    return False;
+}
+
+/*ARGSUSED*/
+static void FreeFontSet(
+    XtAppContext	app,
+    XrmValuePtr		toVal,
+    XtPointer		closure,        /* unused */
+    XrmValuePtr		args,
+    Cardinal		*num_args)
+{
+    Display *display;
+    if (*num_args != 2) {
+      XtAppWarningMsg(app,
+           XtNwrongParameters,"freeFontSet",XtCXtToolkitError,
+             "FreeFontSet needs display and locale arguments",
+              (String *) NULL, (Cardinal *)NULL);
+      return;
+    }
+
+    display = *(Display**)args[0].addr;
+    XFreeFontSet( display, *(XFontSet*)toVal->addr );
+}
+
+/*ARGSUSED*/
+static void FetchLocaleArg(
+    Widget widget,	/* unused */
+    Cardinal *size,	/* unused */
+    XrmValue *value)
+{
+    static XrmString locale;
+
+    locale = XrmQuarkToString(XrmStringToQuark
+			      (setlocale(LC_CTYPE, (char*)NULL)));
+    value->size = sizeof(XrmString);
+    value->addr = (XPointer)&locale;
+}
+
+static XtConvertArgRec const localeDisplayConvertArgs[] = {
+    {XtProcedureArg, (XtPointer)FetchDisplayArg, 0},
+    {XtProcedureArg, (XtPointer)FetchLocaleArg, 0},
+};
+
+
+/*ARGSUSED*/
+Boolean
+XtCvtStringToFontStruct(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    XFontStruct	    *f;
+    Display*	display;
+
+    if (*num_args != 1) {
+     XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	     XtNwrongParameters,"cvtStringToFontStruct",XtCXtToolkitError,
+             "String to font conversion needs display argument",
+              (String *) NULL, (Cardinal *)NULL);
+     return False;
+    }
+
+    display = *(Display**)args[0].addr;
+
+    if (CompareISOLatin1((String)fromVal->addr, XtDefaultFont) != 0) {
+	f = XLoadQueryFont(display, (char *)fromVal->addr);
+	if (f != NULL) {
+  Done:	    donestr( XFontStruct*, f, XtRFontStruct);
+	}
+
+	XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,
+					 XtRFontStruct);
+    }
+
+    /* try and get the default font */
+
+    {
+	XrmName xrm_name[2];
+	XrmClass xrm_class[2];
+	XrmRepresentation rep_type;
+	XrmValue value;
+
+	xrm_name[0] = XrmPermStringToQuark ("xtDefaultFont");
+	xrm_name[1] = 0;
+	xrm_class[0] = XrmPermStringToQuark ("XtDefaultFont");
+	xrm_class[1] = 0;
+	if (XrmQGetResource(XtDatabase(display), xrm_name, xrm_class,
+			    &rep_type, &value)) {
+	    if (rep_type == _XtQString) {
+		f = XLoadQueryFont(display, (char*)value.addr);
+		if (f != NULL)
+		    goto Done;
+		else
+		    XtDisplayStringConversionWarning(dpy, (char*)value.addr,
+						     XtRFontStruct);
+	    } else if (rep_type == XtQFont) {
+		f = XQueryFont(display, *(Font*)value.addr );
+		if (f != NULL) goto Done;
+	    } else if (rep_type == XtQFontStruct) {
+		f = (XFontStruct*)value.addr;
+		goto Done;
+	    }
+	}
+    }
+    /* Should really do XListFonts, but most servers support this */
+    f = XLoadQueryFont(display, "-*-*-*-R-*-*-*-120-*-*-*-*-ISO8859-*");
+    if (f != NULL)
+	goto Done;
+
+    XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	     "noFont","cvtStringToFontStruct",XtCXtToolkitError,
+             "Unable to load any usable ISO8859 font",
+              (String *) NULL, (Cardinal *)NULL);
+
+    return False;
+}
+
+/* ARGSUSED */
+static void FreeFontStruct(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,	/* unused */
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    Display *display;
+    if (*num_args != 1) {
+     XtAppWarningMsg(app,
+	     XtNwrongParameters,"freeFontStruct",XtCXtToolkitError,
+             "Free FontStruct requires display argument",
+              (String *) NULL, (Cardinal *)NULL);
+     return;
+    }
+
+    display = *(Display**)args[0].addr;
+    XFreeFont( display, *(XFontStruct**)toVal->addr );
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToInt(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    int	i;
+
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToInt",XtCXtToolkitError,
+                  "String to Integer conversion needs no extra arguments",
+                  (String *) NULL, (Cardinal *)NULL);
+    if (IsInteger((String)fromVal->addr, &i))
+	donestr(int, i, XtRInt);
+
+    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRInt);
+    return False;
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToShort(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    int i;
+
+    if (*num_args != 0)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  XtNwrongParameters,"cvtStringToShort",XtCXtToolkitError,
+          "String to Integer conversion needs no extra arguments",
+           (String *) NULL, (Cardinal *)NULL);
+    if (IsInteger((String)fromVal->addr, &i))
+        donestr(short, (short)i, XtRShort);
+
+    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRShort);
+    return False;
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToDimension(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    int i;
+
+    if (*num_args != 0)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  XtNwrongParameters,"cvtStringToDimension",XtCXtToolkitError,
+          "String to Dimension conversion needs no extra arguments",
+           (String *) NULL, (Cardinal *)NULL);
+    if (IsInteger((String)fromVal->addr, &i)) {
+        if ( i < 0 )
+            XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,
+					     XtRDimension);
+        donestr(Dimension, (Dimension)i, XtRDimension);
+    }
+    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr, XtRDimension);
+    return False;
+}
+
+/*ARGSUSED*/
+Boolean XtCvtIntToUnsignedChar(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToUnsignedChar",XtCXtToolkitError,
+                  "Integer to UnsignedChar conversion needs no extra arguments",
+                   (String *)NULL, (Cardinal *)NULL);
+    done(unsigned char, (*(int *)fromVal->addr));
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtStringToUnsignedChar(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    int i;
+
+    if (*num_args != 0)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToUnsignedChar",XtCXtToolkitError,
+                  "String to Integer conversion needs no extra arguments",
+                   (String *) NULL, (Cardinal *)NULL);
+    if (IsInteger((String)fromVal->addr, &i)) {
+        if ( i < 0 || i > 255 )
+            XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,
+					     XtRUnsignedChar);
+        donestr(unsigned char, i, XtRUnsignedChar);
+    }
+    XtDisplayStringConversionWarning(dpy, (char*)fromVal->addr,
+				     XtRUnsignedChar);
+    return False;
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtColorToPixel(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtXColorToPixel",XtCXtToolkitError,
+                  "Color to Pixel conversion needs no extra arguments",
+                   (String *) NULL, (Cardinal *)NULL);
+    done(Pixel, ((XColor *)fromVal->addr)->pixel);
+}
+
+/*ARGSUSED*/
+Boolean XtCvtIntToPixel(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToPixel",XtCXtToolkitError,
+                  "Integer to Pixel conversion needs no extra arguments",
+                   (String *) NULL, (Cardinal *)NULL);
+    done(Pixel, *(int*)fromVal->addr);
+}
+
+/*ARGSUSED*/
+Boolean XtCvtIntToPixmap(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    if (*num_args != 0)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtIntToPixmap",XtCXtToolkitError,
+                  "Integer to Pixmap conversion needs no extra arguments",
+                   (String *) NULL, (Cardinal *)NULL);
+    done(Pixmap, *(int*)fromVal->addr);
+}
+
+#ifdef MOTIFBC
+void LowerCase(register char  *source, register *dest)
+{
+    register char ch;
+    int i;
+
+    for (i = 0; (ch = *source) != 0 && i < 999; source++, dest++, i++) {
+    	if ('A' <= ch && ch <= 'Z')
+	    *dest = ch - 'A' + 'a';
+	else
+	    *dest = ch;
+    }
+    *dest = 0;
+}
+#endif
+
+static int CompareISOLatin1 (char *first, char *second)
+{
+    register unsigned char *ap, *bp;
+
+    for (ap = (unsigned char *) first, bp = (unsigned char *) second;
+	 *ap && *bp; ap++, bp++) {
+	register unsigned char a, b;
+
+	if ((a = *ap) != (b = *bp)) {
+	    /* try lowercasing and try again */
+
+	    if ((a >= XK_A) && (a <= XK_Z))
+	      a += (XK_a - XK_A);
+	    else if ((a >= XK_Agrave) && (a <= XK_Odiaeresis))
+	      a += (XK_agrave - XK_Agrave);
+	    else if ((a >= XK_Ooblique) && (a <= XK_Thorn))
+	      a += (XK_oslash - XK_Ooblique);
+
+	    if ((b >= XK_A) && (b <= XK_Z))
+	      b += (XK_a - XK_A);
+	    else if ((b >= XK_Agrave) && (b <= XK_Odiaeresis))
+	      b += (XK_agrave - XK_Agrave);
+	    else if ((b >= XK_Ooblique) && (b <= XK_Thorn))
+	      b += (XK_oslash - XK_Ooblique);
+
+	    if (a != b) break;
+	}
+    }
+    return (((int) *bp) - ((int) *ap));
+}
+
+static void CopyISOLatin1Lowered(char *dst, char *src)
+{
+    unsigned char *dest, *source;
+
+    dest = (unsigned char *) dst; source = (unsigned char *) src;
+
+    for ( ; *source; source++, dest++) {
+	if (*source >= XK_A  && *source <= XK_Z)
+	    *dest = *source + (XK_a - XK_A);
+	else if (*source >= XK_Agrave && *source <= XK_Odiaeresis)
+	    *dest = *source + (XK_agrave - XK_Agrave);
+	else if (*source >= XK_Ooblique && *source <= XK_Thorn)
+	    *dest = *source + (XK_oslash - XK_Ooblique);
+	else
+	    *dest = *source;
+    }
+    *dest = '\0';
+}
+
+/*ARGSUSED*/
+Boolean
+XtCvtStringToInitialState(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    String str = (String)fromVal->addr;
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToInitialState",XtCXtToolkitError,
+                  "String to InitialState conversion needs no extra arguments",
+                   (String *) NULL, (Cardinal *)NULL);
+
+    if (CompareISOLatin1(str, "NormalState") == 0) donestr(int, NormalState, XtRInitialState);
+    if (CompareISOLatin1(str, "IconicState") == 0) donestr(int, IconicState, XtRInitialState);
+    {
+	int val;
+	if (IsInteger(str, &val)) donestr( int, val, XtRInitialState );
+    }
+    XtDisplayStringConversionWarning(dpy, str, XtRInitialState);
+    return False;
+}
+
+static XtConvertArgRec const visualConvertArgs[] = {
+    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),
+     sizeof(Screen *)},
+    {XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.depth),
+     sizeof(Cardinal)}
+};
+
+/*ARGSUSED*/
+Boolean XtCvtStringToVisual(
+    Display*	dpy,
+    XrmValuePtr args,		/* Screen, depth */
+    Cardinal    *num_args,	/* 2 */
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)	/* unused */
+{
+    String str = (String)fromVal->addr;
+    int vc;
+    XVisualInfo vinfo;
+    if (*num_args != 2) {
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToVisual",XtCXtToolkitError,
+                  "String to Visual conversion needs screen and depth arguments",
+                   (String *) NULL, (Cardinal *)NULL);
+	return False;
+    }
+
+         if (CompareISOLatin1(str, "StaticGray") == 0)	vc = StaticGray;
+    else if (CompareISOLatin1(str, "StaticColor") == 0)	vc = StaticColor;
+    else if (CompareISOLatin1(str, "TrueColor") == 0)	vc = TrueColor;
+    else if (CompareISOLatin1(str, "GrayScale") == 0)	vc = GrayScale;
+    else if (CompareISOLatin1(str, "PseudoColor") == 0)	vc = PseudoColor;
+    else if (CompareISOLatin1(str, "DirectColor") == 0)	vc = DirectColor;
+    else if (!IsInteger(str, &vc)) {
+	XtDisplayStringConversionWarning(dpy, str, "Visual class name");
+	return False;
+    }
+
+    if (XMatchVisualInfo( XDisplayOfScreen((Screen*)*(Screen**)args[0].addr),
+		     XScreenNumberOfScreen((Screen*)*(Screen**)args[0].addr),
+		     (int)*(int*)args[1].addr,
+		     vc,
+		     &vinfo) ) {
+	donestr( Visual*, vinfo.visual, XtRVisual );
+    }
+    else {
+	String params[2];
+	Cardinal num_params = 2;
+	params[0] = str;
+	params[1] =
+	    DisplayString(XDisplayOfScreen((Screen*)*(Screen**)args[0].addr));
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNconversionError, "stringToVisual", XtCXtToolkitError,
+                  "Cannot find Visual of class %s for display %s",
+		  params, &num_params );
+	return False;
+    }
+}
+
+
+/*ARGSUSED*/
+Boolean XtCvtStringToAtom(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr	fromVal,
+    XrmValuePtr	toVal,
+    XtPointer	*closure_ret)
+{
+    Atom atom;
+    if (*num_args != 1) {
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		  XtNwrongParameters,"cvtStringToAtom",XtCXtToolkitError,
+                  "String to Atom conversion needs Display argument",
+                   (String *) NULL, (Cardinal *)NULL);
+	return False;
+    }
+
+    atom =  XInternAtom( *(Display**)args->addr, (char*)fromVal->addr, False );
+    donestr(Atom, atom, XtRAtom);
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToDirectoryString(
+    Display	*dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    String str;
+    char directory[PATH_MAX+1];
+
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+           XtNwrongParameters,"cvtStringToDirectoryString",XtCXtToolkitError,
+           "String to DirectoryString conversion needs no extra arguments",
+           (String *)NULL, (Cardinal *)NULL);
+
+    str = (String)fromVal->addr;
+    if (CompareISOLatin1(str, "XtCurrentDirectory") == 0) {
+	/* uglier, but does not depend on compiler knowing return type */
+#if !defined(X_NOT_POSIX) || defined(SYSV) || defined(WIN32)
+	if (getcwd(directory, PATH_MAX + 1))
+	    str = directory;
+#else
+	if (getwd(directory))
+	    str = directory;
+#endif
+	if (!str) {
+	    if (errno == EACCES)
+		errno = 0;	    /* reset errno */
+	    XtDisplayStringConversionWarning(dpy, (char *) fromVal->addr,
+					     XtRDirectoryString);
+	    return False;
+	}
+    }
+
+    /* Since memory from the resource database or from static buffers of
+     * system libraries may be freed or overwritten, allocate memory.
+     * The memory is freed when all cache references are released.
+     */
+    str = XtNewString(str);
+    donestr(String, str, XtRDirectoryString);
+}
+
+/*ARGSUSED*/
+static void FreeDirectoryString(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,	/* unused */
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    if (*num_args != 0)
+	XtAppWarningMsg(app,
+		 XtNwrongParameters,"freeDirectoryString",XtCXtToolkitError,
+		 "Free Directory String requires no extra arguments",
+                 (String *) NULL, (Cardinal *) NULL);
+
+    XtFree((char *) toVal->addr);
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToRestartStyle(
+    Display	*dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    String str = (String)fromVal->addr;
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	      XtNwrongParameters,"cvtStringToRestartStyle",XtCXtToolkitError,
+              "String to RestartStyle conversion needs no extra arguments",
+              (String *)NULL, (Cardinal *)NULL);
+
+#ifndef XT_NO_SM
+    if (CompareISOLatin1(str, "RestartIfRunning") == 0)
+	donestr(unsigned char, SmRestartIfRunning, XtRRestartStyle);
+    if (CompareISOLatin1(str, "RestartAnyway") == 0)
+	donestr(unsigned char, SmRestartAnyway, XtRRestartStyle);
+    if (CompareISOLatin1(str, "RestartImmediately") == 0)
+	donestr(unsigned char, SmRestartImmediately, XtRRestartStyle);
+    if (CompareISOLatin1(str, "RestartNever") == 0)
+	donestr(unsigned char, SmRestartNever, XtRRestartStyle);
+#endif
+    XtDisplayStringConversionWarning(dpy, str, XtRRestartStyle);
+    return False;
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToCommandArgArray(
+    Display	*dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    String *strarray, *ptr;
+    char *src;
+    char *dst, *dst_str;
+    char *start;
+    int tokens, len;
+
+    if (*num_args != 0)
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+            XtNwrongParameters,"cvtStringToCommandArgArray",XtCXtToolkitError,
+            "String to CommandArgArray conversion needs no extra arguments",
+            (String *)NULL, (Cardinal *)NULL);
+
+    src = fromVal->addr;
+    dst = dst_str = __XtMalloc((unsigned) strlen(src) + 1);
+    tokens = 0;
+
+    while (*src != '\0') {
+	/* skip whitespace */
+	while (IsWhitespace(*src) || IsNewline(*src))
+	    src++;
+	/* test for end of string */
+	if (*src == '\0')
+	    break;
+
+	/* start new token */
+	tokens++;
+	start = src;
+	while (*src != '\0' && !IsWhitespace(*src) && !IsNewline(*src)) {
+	    if (*src == '\\' &&
+		(IsWhitespace(*(src+1)) || IsNewline(*(src+1)))) {
+		len = src - start;
+		if (len) {
+		    /* copy preceeding part of token */
+		    memcpy(dst, start, len);
+		    dst += len;
+		}
+		/* skip backslash */
+		src++;
+		/* next part of token starts at whitespace */
+		start = src;
+	    }
+	    src++;
+	}
+	len = src - start;
+	if (len) {
+	    /* copy last part of token */
+	    memcpy(dst, start, len);
+	    dst += len;
+	}
+	*dst = '\0';
+	if (*src != '\0')
+	    dst++;
+    }
+
+    ptr = strarray = (String*) __XtMalloc((Cardinal)(tokens+1) * sizeof(String));
+    src = dst_str;
+    while (--tokens >= 0) {
+	*ptr = src;
+	ptr++;
+	if (tokens) {
+	    len = strlen(src);
+	    src = src + len + 1;
+	}
+    }
+    *ptr = NULL;
+
+    *closure_ret = (XtPointer) strarray;
+    donestr(char**, strarray, XtRCommandArgArray)
+}
+
+/*ARGSUSED*/
+static void ArgArrayDestructor(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    String *strarray;
+
+    if (closure) {
+	strarray = (String*) closure;
+	XtFree(*strarray);
+	XtFree((char *) strarray);
+    }
+}
+
+/*ARGSUSED*/
+Boolean XtCvtStringToGravity (
+    Display* dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr fromVal,
+    XrmValuePtr toVal,
+    XtPointer	*closure_ret)
+{
+    static struct _namepair {
+	XrmQuark quark;
+	char *name;
+	int gravity;
+    } names[] = {
+	{ NULLQUARK, "forget",		ForgetGravity },
+	{ NULLQUARK, "northwest",	NorthWestGravity },
+	{ NULLQUARK, "north",		NorthGravity },
+	{ NULLQUARK, "northeast",	NorthEastGravity },
+	{ NULLQUARK, "west",		WestGravity },
+	{ NULLQUARK, "center",		CenterGravity },
+	{ NULLQUARK, "east",		EastGravity },
+	{ NULLQUARK, "southwest",	SouthWestGravity },
+	{ NULLQUARK, "south",		SouthGravity },
+	{ NULLQUARK, "southeast",	SouthEastGravity },
+	{ NULLQUARK, "static",		StaticGravity },
+	{ NULLQUARK, "unmap",		UnmapGravity },
+	{ NULLQUARK, "0",		ForgetGravity },
+	{ NULLQUARK, "1",		NorthWestGravity },
+	{ NULLQUARK, "2",		NorthGravity },
+	{ NULLQUARK, "3",		NorthEastGravity },
+	{ NULLQUARK, "4",		WestGravity },
+	{ NULLQUARK, "5",		CenterGravity },
+	{ NULLQUARK, "6",		EastGravity },
+	{ NULLQUARK, "7",		SouthWestGravity },
+	{ NULLQUARK, "8",		SouthGravity },
+	{ NULLQUARK, "9",		SouthEastGravity },
+	{ NULLQUARK, "10",		StaticGravity },
+	{ NULLQUARK, NULL,		ForgetGravity }
+    };
+    static Boolean haveQuarks = FALSE;
+    char lowerName[40];
+    XrmQuark q;
+    char *s;
+    struct _namepair *np;
+
+    if (*num_args != 0) {
+        XtAppWarningMsg(XtDisplayToApplicationContext (dpy),
+			"wrongParameters","cvtStringToGravity","XtToolkitError",
+			"String to Gravity conversion needs no extra arguments",
+			(String *) NULL, (Cardinal *)NULL);
+	return False;
+    }
+    if (!haveQuarks) {
+	for (np = names; np->name; np++) {
+	    np->quark = XrmPermStringToQuark (np->name);
+	}
+	haveQuarks = TRUE;
+    }
+    s = (char *) fromVal->addr;
+    if (strlen(s) < sizeof lowerName) {
+	CopyISOLatin1Lowered (lowerName, s);
+	q = XrmStringToQuark (lowerName);
+	for (np = names; np->name; np++)
+	    if (np->quark == q) donestr(int, np->gravity, XtRGravity);
+    }
+    XtDisplayStringConversionWarning(dpy, (char *)fromVal->addr, XtRGravity);
+    return False;
+}
+
+void _XtAddDefaultConverters(
+    ConverterTable table)
+{
+#define Add(from, to, proc, convert_args, num_args, cache) \
+    _XtTableAddConverter(table, from, to, proc, \
+	    (XtConvertArgList) convert_args, (Cardinal)num_args, \
+	    True, cache, (XtDestructor)NULL, True)
+
+#define Add2(from, to, proc, convert_args, num_args, cache, destructor) \
+    _XtTableAddConverter(table, from, to, proc, \
+	    (XtConvertArgList) convert_args, (Cardinal)num_args, \
+	    True, cache, destructor, True)
+
+    Add(XtQColor, XtQPixel,       XtCvtColorToPixel,   NULL, 0, XtCacheNone);
+
+    Add(XtQInt,   XtQBool,	  XtCvtIntToBool,      NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQBoolean,     XtCvtIntToBoolean,   NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQColor,	  XtCvtIntToColor,
+	colorConvertArgs, XtNumber(colorConvertArgs), XtCacheByDisplay);
+    Add(XtQInt,   XtQDimension,   XtCvtIntToShort,     NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQFloat,       XtCvtIntToFloat,     NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQFont,        XtCvtIntToFont,      NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQPixel,       XtCvtIntToPixel,     NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQPixmap,      XtCvtIntToPixmap,    NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQPosition,    XtCvtIntToShort,     NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQShort,       XtCvtIntToShort,     NULL, 0, XtCacheNone);
+    Add(XtQInt,   XtQUnsignedChar,XtCvtIntToUnsignedChar,NULL, 0, XtCacheNone);
+
+    Add(XtQPixel, XtQColor,	  XtCvtIntToColor,
+	colorConvertArgs, XtNumber(colorConvertArgs), XtCacheByDisplay);
+
+    Add(_XtQString, XtQAtom,      XtCvtStringToAtom,
+	displayConvertArg, XtNumber(displayConvertArg), XtCacheNone);
+    Add(_XtQString, XtQBool,      XtCvtStringToBool,    NULL, 0, XtCacheNone);
+    Add(_XtQString, XtQBoolean,   XtCvtStringToBoolean, NULL, 0, XtCacheNone);
+   Add2(_XtQString, XtQCommandArgArray,  XtCvtStringToCommandArgArray,
+	NULL, 0, XtCacheNone | XtCacheRefCount, ArgArrayDestructor);
+   Add2(_XtQString, XtQCursor,    XtCvtStringToCursor,
+	displayConvertArg, XtNumber(displayConvertArg),
+	XtCacheByDisplay, FreeCursor);
+    Add(_XtQString, XtQDimension, XtCvtStringToDimension,NULL, 0, XtCacheNone);
+   Add2(_XtQString, XtQDirectoryString, XtCvtStringToDirectoryString, NULL, 0,
+	XtCacheNone | XtCacheRefCount, FreeDirectoryString);
+    Add(_XtQString, XtQDisplay,   XtCvtStringToDisplay, NULL, 0, XtCacheAll);
+   Add2(_XtQString, XtQFile,      XtCvtStringToFile,    NULL, 0,
+	XtCacheAll | XtCacheRefCount, FreeFile);
+    Add(_XtQString, XtQFloat,     XtCvtStringToFloat,   NULL, 0, XtCacheNone);
+
+   Add2(_XtQString, XtQFont,      XtCvtStringToFont,
+	displayConvertArg, XtNumber(displayConvertArg),
+	XtCacheByDisplay, FreeFont);
+   Add2(_XtQString, XtQFontSet,   XtCvtStringToFontSet,
+	localeDisplayConvertArgs, XtNumber(localeDisplayConvertArgs),
+	XtCacheByDisplay, FreeFontSet);
+   Add2(_XtQString, XtQFontStruct,XtCvtStringToFontStruct,
+	displayConvertArg, XtNumber(displayConvertArg),
+	XtCacheByDisplay, FreeFontStruct);
+
+    Add(_XtQString, XtQGravity,   XtCvtStringToGravity, NULL, 0, XtCacheNone);
+    Add(_XtQString, XtQInitialState, XtCvtStringToInitialState, NULL, 0,
+	XtCacheNone);
+    Add(_XtQString, XtQInt,	     XtCvtStringToInt,    NULL, 0, XtCacheAll);
+   Add2(_XtQString, XtQPixel,        XtCvtStringToPixel,
+	colorConvertArgs, XtNumber(colorConvertArgs),
+	XtCacheByDisplay, FreePixel);
+    Add(_XtQString, XtQPosition,     XtCvtStringToShort,  NULL, 0, XtCacheAll);
+    Add(_XtQString, XtQRestartStyle, XtCvtStringToRestartStyle, NULL, 0,
+	XtCacheNone);
+    Add(_XtQString, XtQShort,        XtCvtStringToShort,  NULL, 0, XtCacheAll);
+    Add(_XtQString, XtQUnsignedChar, XtCvtStringToUnsignedChar,
+	NULL, 0, XtCacheAll);
+   Add2(_XtQString, XtQVisual,       XtCvtStringToVisual,
+	visualConvertArgs, XtNumber(visualConvertArgs),
+	XtCacheByDisplay, NULL);
+
+   _XtAddTMConverters(table);
+}
diff --git a/libXt/src/Core.c b/libXt/src/Core.c
index 79485bdae..d61f43e02 100644
--- a/libXt/src/Core.c
+++ b/libXt/src/Core.c
@@ -1,407 +1,407 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicP.h"

-#include "EventI.h"

-#include "ConvertI.h"

-#include "TranslateI.h"

-#include "ResourceI.h"

-#include "RectObj.h"

-#include "RectObjP.h"

-#include "ThreadsI.h"

-#include "StringDefs.h"

-

-/******************************************************************

- *

- * CoreWidget Resources

- *

- ******************************************************************/

-

-externaldef(xtinherittranslations) int _XtInheritTranslations = 0;

-extern String XtCXtToolkitError; /* from IntrinsicI.h */

-static void XtCopyScreen(Widget, int, XrmValue *);

-

-static XtResource resources[] = {

-    {XtNscreen, XtCScreen, XtRScreen, sizeof(Screen*),

-      XtOffsetOf(CoreRec,core.screen), XtRCallProc, (XtPointer)XtCopyScreen},

-/*_XtCopyFromParent does not work for screen because the Display

-parameter is not passed through to the XtRCallProc routines */

-    {XtNdepth, XtCDepth, XtRInt,sizeof(int),

-         XtOffsetOf(CoreRec,core.depth),

-	 XtRCallProc, (XtPointer)_XtCopyFromParent},

-    {XtNcolormap, XtCColormap, XtRColormap, sizeof(Colormap),

-	 XtOffsetOf(CoreRec,core.colormap),

-	 XtRCallProc,(XtPointer)_XtCopyFromParent},

-    {XtNbackground, XtCBackground, XtRPixel,sizeof(Pixel),

-         XtOffsetOf(CoreRec,core.background_pixel),

-	 XtRString, (XtPointer)"XtDefaultBackground"},

-    {XtNbackgroundPixmap, XtCPixmap, XtRPixmap, sizeof(Pixmap),

-         XtOffsetOf(CoreRec,core.background_pixmap),

-	 XtRImmediate, (XtPointer)XtUnspecifiedPixmap},

-    {XtNborderColor, XtCBorderColor, XtRPixel,sizeof(Pixel),

-         XtOffsetOf(CoreRec,core.border_pixel),

-         XtRString,(XtPointer)"XtDefaultForeground"},

-    {XtNborderPixmap, XtCPixmap, XtRPixmap, sizeof(Pixmap),

-         XtOffsetOf(CoreRec,core.border_pixmap),

-	 XtRImmediate, (XtPointer)XtUnspecifiedPixmap},

-    {XtNmappedWhenManaged, XtCMappedWhenManaged, XtRBoolean, sizeof(Boolean),

-         XtOffsetOf(CoreRec,core.mapped_when_managed),

-	 XtRImmediate, (XtPointer)True},

-    {XtNtranslations, XtCTranslations, XtRTranslationTable,

-        sizeof(XtTranslations), XtOffsetOf(CoreRec,core.tm.translations),

-        XtRTranslationTable, (XtPointer)NULL},

-    {XtNaccelerators, XtCAccelerators, XtRAcceleratorTable,

-        sizeof(XtTranslations), XtOffsetOf(CoreRec,core.accelerators),

-        XtRTranslationTable, (XtPointer)NULL}

-    };

-

-static void CoreInitialize(Widget, Widget, ArgList, Cardinal *);

-static void CoreClassPartInitialize(WidgetClass);

-static void CoreDestroy(Widget);

-static void CoreRealize(Widget, XtValueMask *, XSetWindowAttributes *);

-static Boolean CoreSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-static void CoreSetValuesAlmost(Widget, Widget, XtWidgetGeometry *, XtWidgetGeometry *);

-

-static RectObjClassRec unNamedObjClassRec = {

-  {

-    /* superclass	  */	(WidgetClass)&rectObjClassRec,

-    /* class_name	  */	"UnNamedObj",

-    /* widget_size	  */	0,

-    /* class_initialize   */    NULL,

-    /* class_part_initialize*/	NULL,

-    /* class_inited       */	FALSE,

-    /* initialize	  */	NULL,

-    /* initialize_hook    */	NULL,

-    /* realize		  */	(XtProc)XtInheritRealize,

-    /* actions		  */	NULL,

-    /* num_actions	  */	0,

-    /* resources	  */	NULL,

-    /* num_resources	  */	0,

-    /* xrm_class	  */	NULLQUARK,

-    /* compress_motion	  */	FALSE,

-    /* compress_exposure  */	FALSE,

-    /* compress_enterleave*/ 	FALSE,

-    /* visible_interest	  */	FALSE,

-    /* destroy		  */	NULL,

-    /* resize		  */	NULL,

-    /* expose		  */	NULL,

-    /* set_values	  */	NULL,

-    /* set_values_hook    */	NULL,

-    /* set_values_almost  */	XtInheritSetValuesAlmost,

-    /* get_values_hook    */	NULL,

-    /* accept_focus	  */	NULL,

-    /* version		  */	XtVersion,

-    /* callback_offsets   */    NULL,

-    /* tm_table           */    NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */	NULL,

-    /* extension	    */  NULL

-  }

-};

-

-

-externaldef(widgetclassrec) WidgetClassRec widgetClassRec = {

-{

-    /* superclass         */    (WidgetClass)&unNamedObjClassRec,

-    /* class_name         */    "Core",

-    /* widget_size        */    sizeof(WidgetRec),

-    /* class_initialize   */    NULL,

-    /* class_part_initialize*/  CoreClassPartInitialize,

-    /* class_inited       */    FALSE,

-    /* initialize         */    CoreInitialize,

-    /* initialize_hook    */    NULL,

-    /* realize            */    CoreRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    resources,

-    /* num_resources      */    XtNumber(resources),

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/    FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    CoreDestroy,

-    /* resize             */    NULL,

-    /* expose             */    NULL,

-    /* set_values         */    CoreSetValues,

-    /* set_values_hook    */    NULL,

-    /* set_values_almost  */    CoreSetValuesAlmost,

-    /* get_values_hook    */    NULL,

-    /* accept_focus       */    NULL,

-    /* version            */    XtVersion,

-    /* callback_offsets   */    NULL,

-    /* tm_table           */    NULL,

-    /* query_geometry       */  NULL,

-    /* display_accelerator  */  NULL,

-    /* extension            */  NULL

-  }

-};

-externaldef (WidgetClass) WidgetClass widgetClass = &widgetClassRec;

-

-externaldef (WidgetClass) WidgetClass coreWidgetClass = &widgetClassRec;

-

-

-/*ARGSUSED*/

-static void XtCopyScreen(

-    Widget      widget,

-    int		offset,

-    XrmValue    *value)

-{

-    value->addr = (XPointer)(&widget->core.screen);

-}

-

-/*

- * Start of Core methods

- */

-

-static void CoreClassPartInitialize(

-    register WidgetClass wc)

-{

-    /* We don't need to check for null super since we'll get to object

-       eventually, and it had better define them!  */

-

-    register WidgetClass super = wc->core_class.superclass;

-

-    LOCK_PROCESS;

-    if (wc->core_class.realize == XtInheritRealize) {

-	wc->core_class.realize = super->core_class.realize;

-    }

-

-    if (wc->core_class.accept_focus == XtInheritAcceptFocus) {

-	wc->core_class.accept_focus = super->core_class.accept_focus;

-    }

-

-    if (wc->core_class.display_accelerator == XtInheritDisplayAccelerator) {

-	wc->core_class.display_accelerator =

-		super->core_class.display_accelerator;

-    }

-

-    if (wc->core_class.tm_table == (char *) XtInheritTranslations) {

-	wc->core_class.tm_table =

-		wc->core_class.superclass->core_class.tm_table;

-    } else if (wc->core_class.tm_table != NULL) {

-	wc->core_class.tm_table =

-	      (String)XtParseTranslationTable(wc->core_class.tm_table);

-    }

-

-    if (wc->core_class.actions != NULL) {

-	Boolean inPlace;

-

-	if (wc->core_class.version == XtVersionDontCheck)

-	    inPlace = True;

-	else

-	    inPlace = (wc->core_class.version < XtVersion) ? False : True;

-

-	/* Compile the action table into a more efficient form */

-        wc->core_class.actions = (XtActionList) _XtInitializeActionData(

-	    wc->core_class.actions, wc->core_class.num_actions, inPlace);

-    }

-    UNLOCK_PROCESS;

-}

-/* ARGSUSED */

-static void CoreInitialize(

-    Widget   requested_widget,

-    register Widget new_widget,

-    ArgList args,

-    Cardinal *num_args)

-{

-    XtTranslations save1, save2;

-    new_widget->core.event_table = NULL;

-    new_widget->core.tm.proc_table = NULL;

-    new_widget->core.tm.lastEventTime = 0;

-    /* magic semi-resource fetched by GetResources */

-    save1 = (XtTranslations)new_widget->core.tm.current_state;

-    new_widget->core.tm.current_state = NULL;

-    save2 = new_widget->core.tm.translations;

-    LOCK_PROCESS;

-    new_widget->core.tm.translations =

-	(XtTranslations)new_widget->core.widget_class->core_class.tm_table;

-    UNLOCK_PROCESS;

-    if (save1)

-	_XtMergeTranslations(new_widget, save1, save1->operation);

-    if (save2)

-	_XtMergeTranslations(new_widget, save2, save2->operation);

-}

-

-static void CoreRealize(

-    Widget		 widget,

-    XtValueMask		 *value_mask,

-    XSetWindowAttributes *attributes)

-{

-    XtCreateWindow(widget, (unsigned int) InputOutput,

-	(Visual *) CopyFromParent, *value_mask, attributes);

-} /* CoreRealize */

-

-static void CoreDestroy (

-     Widget    widget)

-{

-    _XtFreeEventTable(&widget->core.event_table);

-    _XtDestroyTMData(widget);

-    XtUnregisterDrawable(XtDisplay(widget), widget->core.window);

-

-    if (widget->core.popup_list != NULL)

-        XtFree((char *)widget->core.popup_list);

-

-} /* CoreDestroy */

-

-/* ARGSUSED */

-static Boolean CoreSetValues(

-    Widget old, Widget reference, Widget new,

-    ArgList args,

-    Cardinal *num_args)

-{

-    Boolean redisplay;

-    Mask    window_mask;

-    XSetWindowAttributes attributes;

-    XtTranslations save;

-

-    redisplay = FALSE;

-    if  (old->core.tm.translations != new->core.tm.translations) {

-	save = new->core.tm.translations;

-	new->core.tm.translations = old->core.tm.translations;

-	_XtMergeTranslations(new, save, XtTableReplace);

-    }

-

-    /* Check everything that depends upon window being realized */

-    if (XtIsRealized(old)) {

-	window_mask = 0;

-	/* Check window attributes */

-	if (old->core.background_pixel != new->core.background_pixel

-	    && new->core.background_pixmap == XtUnspecifiedPixmap) {

-	   attributes.background_pixel  = new->core.background_pixel;

-	   window_mask |= CWBackPixel;

-	   redisplay = TRUE;

-	}

-	if (old->core.background_pixmap != new->core.background_pixmap) {

-	   if (new->core.background_pixmap == XtUnspecifiedPixmap) {

-	       window_mask |= CWBackPixel;

-	       attributes.background_pixel  = new->core.background_pixel;

-	   }

-	   else {

-	       attributes.background_pixmap = new->core.background_pixmap;

-	       window_mask &= ~CWBackPixel;

-	       window_mask |= CWBackPixmap;

-	   }

-	   redisplay = TRUE;

-	}

-	if (old->core.border_pixel != new->core.border_pixel

-	    && new->core.border_pixmap == XtUnspecifiedPixmap) {

-	   attributes.border_pixel  = new->core.border_pixel;

-	   window_mask |= CWBorderPixel;

-       }

-	if (old->core.border_pixmap != new->core.border_pixmap) {

-	   if (new->core.border_pixmap == XtUnspecifiedPixmap) {

-	       window_mask |= CWBorderPixel;

-	       attributes.border_pixel  = new->core.border_pixel;

-	   }

-	   else {

-	       attributes.border_pixmap = new->core.border_pixmap;

-	       window_mask &= ~CWBorderPixel;

-	       window_mask |= CWBorderPixmap;

-	   }

-       }

-	if (old->core.depth != new->core.depth) {

-	   XtAppWarningMsg(XtWidgetToApplicationContext(old),

-		    "invalidDepth","setValues",XtCXtToolkitError,

-               "Can't change widget depth", (String *)NULL, (Cardinal *)NULL);

-	   new->core.depth = old->core.depth;

-	}

-	if (old->core.colormap != new->core.colormap) {

-	    window_mask |= CWColormap;

-	    attributes.colormap = new->core.colormap;

-	}

-	if (window_mask != 0) {

-	    /* Actually change X window attributes */

-	    XChangeWindowAttributes(

-		XtDisplay(new), XtWindow(new), window_mask, &attributes);

-	}

-

-	if (old->core.mapped_when_managed != new->core.mapped_when_managed) {

-	    Boolean mapped_when_managed = new->core.mapped_when_managed;

-	    new->core.mapped_when_managed = !mapped_when_managed;

-	    XtSetMappedWhenManaged(new, mapped_when_managed);

-	}

-    } /* if realized */

-

-    return redisplay;

-} /* CoreSetValues */

-

-/*ARGSUSED*/

-static void CoreSetValuesAlmost(

-    Widget		old,

-    Widget		new,

-    XtWidgetGeometry    *request,

-    XtWidgetGeometry    *reply)

-{

-    *request = *reply;

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicP.h"
+#include "EventI.h"
+#include "ConvertI.h"
+#include "TranslateI.h"
+#include "ResourceI.h"
+#include "RectObj.h"
+#include "RectObjP.h"
+#include "ThreadsI.h"
+#include "StringDefs.h"
+
+/******************************************************************
+ *
+ * CoreWidget Resources
+ *
+ ******************************************************************/
+
+externaldef(xtinherittranslations) int _XtInheritTranslations = 0;
+extern String XtCXtToolkitError; /* from IntrinsicI.h */
+static void XtCopyScreen(Widget, int, XrmValue *);
+
+static XtResource resources[] = {
+    {XtNscreen, XtCScreen, XtRScreen, sizeof(Screen*),
+      XtOffsetOf(CoreRec,core.screen), XtRCallProc, (XtPointer)XtCopyScreen},
+/*_XtCopyFromParent does not work for screen because the Display
+parameter is not passed through to the XtRCallProc routines */
+    {XtNdepth, XtCDepth, XtRInt,sizeof(int),
+         XtOffsetOf(CoreRec,core.depth),
+	 XtRCallProc, (XtPointer)_XtCopyFromParent},
+    {XtNcolormap, XtCColormap, XtRColormap, sizeof(Colormap),
+	 XtOffsetOf(CoreRec,core.colormap),
+	 XtRCallProc,(XtPointer)_XtCopyFromParent},
+    {XtNbackground, XtCBackground, XtRPixel,sizeof(Pixel),
+         XtOffsetOf(CoreRec,core.background_pixel),
+	 XtRString, (XtPointer)"XtDefaultBackground"},
+    {XtNbackgroundPixmap, XtCPixmap, XtRPixmap, sizeof(Pixmap),
+         XtOffsetOf(CoreRec,core.background_pixmap),
+	 XtRImmediate, (XtPointer)XtUnspecifiedPixmap},
+    {XtNborderColor, XtCBorderColor, XtRPixel,sizeof(Pixel),
+         XtOffsetOf(CoreRec,core.border_pixel),
+         XtRString,(XtPointer)"XtDefaultForeground"},
+    {XtNborderPixmap, XtCPixmap, XtRPixmap, sizeof(Pixmap),
+         XtOffsetOf(CoreRec,core.border_pixmap),
+	 XtRImmediate, (XtPointer)XtUnspecifiedPixmap},
+    {XtNmappedWhenManaged, XtCMappedWhenManaged, XtRBoolean, sizeof(Boolean),
+         XtOffsetOf(CoreRec,core.mapped_when_managed),
+	 XtRImmediate, (XtPointer)True},
+    {XtNtranslations, XtCTranslations, XtRTranslationTable,
+        sizeof(XtTranslations), XtOffsetOf(CoreRec,core.tm.translations),
+        XtRTranslationTable, (XtPointer)NULL},
+    {XtNaccelerators, XtCAccelerators, XtRAcceleratorTable,
+        sizeof(XtTranslations), XtOffsetOf(CoreRec,core.accelerators),
+        XtRTranslationTable, (XtPointer)NULL}
+    };
+
+static void CoreInitialize(Widget, Widget, ArgList, Cardinal *);
+static void CoreClassPartInitialize(WidgetClass);
+static void CoreDestroy(Widget);
+static void CoreRealize(Widget, XtValueMask *, XSetWindowAttributes *);
+static Boolean CoreSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+static void CoreSetValuesAlmost(Widget, Widget, XtWidgetGeometry *, XtWidgetGeometry *);
+
+static RectObjClassRec unNamedObjClassRec = {
+  {
+    /* superclass	  */	(WidgetClass)&rectObjClassRec,
+    /* class_name	  */	"UnNamedObj",
+    /* widget_size	  */	0,
+    /* class_initialize   */    NULL,
+    /* class_part_initialize*/	NULL,
+    /* class_inited       */	FALSE,
+    /* initialize	  */	NULL,
+    /* initialize_hook    */	NULL,
+    /* realize		  */	(XtProc)XtInheritRealize,
+    /* actions		  */	NULL,
+    /* num_actions	  */	0,
+    /* resources	  */	NULL,
+    /* num_resources	  */	0,
+    /* xrm_class	  */	NULLQUARK,
+    /* compress_motion	  */	FALSE,
+    /* compress_exposure  */	FALSE,
+    /* compress_enterleave*/ 	FALSE,
+    /* visible_interest	  */	FALSE,
+    /* destroy		  */	NULL,
+    /* resize		  */	NULL,
+    /* expose		  */	NULL,
+    /* set_values	  */	NULL,
+    /* set_values_hook    */	NULL,
+    /* set_values_almost  */	XtInheritSetValuesAlmost,
+    /* get_values_hook    */	NULL,
+    /* accept_focus	  */	NULL,
+    /* version		  */	XtVersion,
+    /* callback_offsets   */    NULL,
+    /* tm_table           */    NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */	NULL,
+    /* extension	    */  NULL
+  }
+};
+
+
+externaldef(widgetclassrec) WidgetClassRec widgetClassRec = {
+{
+    /* superclass         */    (WidgetClass)&unNamedObjClassRec,
+    /* class_name         */    "Core",
+    /* widget_size        */    sizeof(WidgetRec),
+    /* class_initialize   */    NULL,
+    /* class_part_initialize*/  CoreClassPartInitialize,
+    /* class_inited       */    FALSE,
+    /* initialize         */    CoreInitialize,
+    /* initialize_hook    */    NULL,
+    /* realize            */    CoreRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    resources,
+    /* num_resources      */    XtNumber(resources),
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/    FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    CoreDestroy,
+    /* resize             */    NULL,
+    /* expose             */    NULL,
+    /* set_values         */    CoreSetValues,
+    /* set_values_hook    */    NULL,
+    /* set_values_almost  */    CoreSetValuesAlmost,
+    /* get_values_hook    */    NULL,
+    /* accept_focus       */    NULL,
+    /* version            */    XtVersion,
+    /* callback_offsets   */    NULL,
+    /* tm_table           */    NULL,
+    /* query_geometry       */  NULL,
+    /* display_accelerator  */  NULL,
+    /* extension            */  NULL
+  }
+};
+externaldef (WidgetClass) WidgetClass widgetClass = &widgetClassRec;
+
+externaldef (WidgetClass) WidgetClass coreWidgetClass = &widgetClassRec;
+
+
+/*ARGSUSED*/
+static void XtCopyScreen(
+    Widget      widget,
+    int		offset,
+    XrmValue    *value)
+{
+    value->addr = (XPointer)(&widget->core.screen);
+}
+
+/*
+ * Start of Core methods
+ */
+
+static void CoreClassPartInitialize(
+    register WidgetClass wc)
+{
+    /* We don't need to check for null super since we'll get to object
+       eventually, and it had better define them!  */
+
+    register WidgetClass super = wc->core_class.superclass;
+
+    LOCK_PROCESS;
+    if (wc->core_class.realize == XtInheritRealize) {
+	wc->core_class.realize = super->core_class.realize;
+    }
+
+    if (wc->core_class.accept_focus == XtInheritAcceptFocus) {
+	wc->core_class.accept_focus = super->core_class.accept_focus;
+    }
+
+    if (wc->core_class.display_accelerator == XtInheritDisplayAccelerator) {
+	wc->core_class.display_accelerator =
+		super->core_class.display_accelerator;
+    }
+
+    if (wc->core_class.tm_table == (char *) XtInheritTranslations) {
+	wc->core_class.tm_table =
+		wc->core_class.superclass->core_class.tm_table;
+    } else if (wc->core_class.tm_table != NULL) {
+	wc->core_class.tm_table =
+	      (String)XtParseTranslationTable(wc->core_class.tm_table);
+    }
+
+    if (wc->core_class.actions != NULL) {
+	Boolean inPlace;
+
+	if (wc->core_class.version == XtVersionDontCheck)
+	    inPlace = True;
+	else
+	    inPlace = (wc->core_class.version < XtVersion) ? False : True;
+
+	/* Compile the action table into a more efficient form */
+        wc->core_class.actions = (XtActionList) _XtInitializeActionData(
+	    wc->core_class.actions, wc->core_class.num_actions, inPlace);
+    }
+    UNLOCK_PROCESS;
+}
+/* ARGSUSED */
+static void CoreInitialize(
+    Widget   requested_widget,
+    register Widget new_widget,
+    ArgList args,
+    Cardinal *num_args)
+{
+    XtTranslations save1, save2;
+    new_widget->core.event_table = NULL;
+    new_widget->core.tm.proc_table = NULL;
+    new_widget->core.tm.lastEventTime = 0;
+    /* magic semi-resource fetched by GetResources */
+    save1 = (XtTranslations)new_widget->core.tm.current_state;
+    new_widget->core.tm.current_state = NULL;
+    save2 = new_widget->core.tm.translations;
+    LOCK_PROCESS;
+    new_widget->core.tm.translations =
+	(XtTranslations)new_widget->core.widget_class->core_class.tm_table;
+    UNLOCK_PROCESS;
+    if (save1)
+	_XtMergeTranslations(new_widget, save1, save1->operation);
+    if (save2)
+	_XtMergeTranslations(new_widget, save2, save2->operation);
+}
+
+static void CoreRealize(
+    Widget		 widget,
+    XtValueMask		 *value_mask,
+    XSetWindowAttributes *attributes)
+{
+    XtCreateWindow(widget, (unsigned int) InputOutput,
+	(Visual *) CopyFromParent, *value_mask, attributes);
+} /* CoreRealize */
+
+static void CoreDestroy (
+     Widget    widget)
+{
+    _XtFreeEventTable(&widget->core.event_table);
+    _XtDestroyTMData(widget);
+    XtUnregisterDrawable(XtDisplay(widget), widget->core.window);
+
+    if (widget->core.popup_list != NULL)
+        XtFree((char *)widget->core.popup_list);
+
+} /* CoreDestroy */
+
+/* ARGSUSED */
+static Boolean CoreSetValues(
+    Widget old, Widget reference, Widget new,
+    ArgList args,
+    Cardinal *num_args)
+{
+    Boolean redisplay;
+    Mask    window_mask;
+    XSetWindowAttributes attributes;
+    XtTranslations save;
+
+    redisplay = FALSE;
+    if  (old->core.tm.translations != new->core.tm.translations) {
+	save = new->core.tm.translations;
+	new->core.tm.translations = old->core.tm.translations;
+	_XtMergeTranslations(new, save, XtTableReplace);
+    }
+
+    /* Check everything that depends upon window being realized */
+    if (XtIsRealized(old)) {
+	window_mask = 0;
+	/* Check window attributes */
+	if (old->core.background_pixel != new->core.background_pixel
+	    && new->core.background_pixmap == XtUnspecifiedPixmap) {
+	   attributes.background_pixel  = new->core.background_pixel;
+	   window_mask |= CWBackPixel;
+	   redisplay = TRUE;
+	}
+	if (old->core.background_pixmap != new->core.background_pixmap) {
+	   if (new->core.background_pixmap == XtUnspecifiedPixmap) {
+	       window_mask |= CWBackPixel;
+	       attributes.background_pixel  = new->core.background_pixel;
+	   }
+	   else {
+	       attributes.background_pixmap = new->core.background_pixmap;
+	       window_mask &= ~CWBackPixel;
+	       window_mask |= CWBackPixmap;
+	   }
+	   redisplay = TRUE;
+	}
+	if (old->core.border_pixel != new->core.border_pixel
+	    && new->core.border_pixmap == XtUnspecifiedPixmap) {
+	   attributes.border_pixel  = new->core.border_pixel;
+	   window_mask |= CWBorderPixel;
+       }
+	if (old->core.border_pixmap != new->core.border_pixmap) {
+	   if (new->core.border_pixmap == XtUnspecifiedPixmap) {
+	       window_mask |= CWBorderPixel;
+	       attributes.border_pixel  = new->core.border_pixel;
+	   }
+	   else {
+	       attributes.border_pixmap = new->core.border_pixmap;
+	       window_mask &= ~CWBorderPixel;
+	       window_mask |= CWBorderPixmap;
+	   }
+       }
+	if (old->core.depth != new->core.depth) {
+	   XtAppWarningMsg(XtWidgetToApplicationContext(old),
+		    "invalidDepth","setValues",XtCXtToolkitError,
+               "Can't change widget depth", (String *)NULL, (Cardinal *)NULL);
+	   new->core.depth = old->core.depth;
+	}
+	if (old->core.colormap != new->core.colormap) {
+	    window_mask |= CWColormap;
+	    attributes.colormap = new->core.colormap;
+	}
+	if (window_mask != 0) {
+	    /* Actually change X window attributes */
+	    XChangeWindowAttributes(
+		XtDisplay(new), XtWindow(new), window_mask, &attributes);
+	}
+
+	if (old->core.mapped_when_managed != new->core.mapped_when_managed) {
+	    Boolean mapped_when_managed = new->core.mapped_when_managed;
+	    new->core.mapped_when_managed = !mapped_when_managed;
+	    XtSetMappedWhenManaged(new, mapped_when_managed);
+	}
+    } /* if realized */
+
+    return redisplay;
+} /* CoreSetValues */
+
+/*ARGSUSED*/
+static void CoreSetValuesAlmost(
+    Widget		old,
+    Widget		new,
+    XtWidgetGeometry    *request,
+    XtWidgetGeometry    *reply)
+{
+    *request = *reply;
+}
diff --git a/libXt/src/Create.c b/libXt/src/Create.c
index 23e510810..da0019231 100644
--- a/libXt/src/Create.c
+++ b/libXt/src/Create.c
@@ -1,786 +1,786 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "VarargsI.h"

-#include "ShellP.h"

-#include "CreateI.h"

-#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT

-#include "ResConfigP.h"

-#endif

-#include <stdio.h>

-

-static String XtNxtCreateWidget = "xtCreateWidget";

-static String XtNxtCreatePopupShell = "xtCreatePopupShell";

-

-static void

-CallClassPartInit(WidgetClass ancestor, WidgetClass wc)

-{

-    if (ancestor->core_class.superclass != NULL) {

-	CallClassPartInit(ancestor->core_class.superclass, wc);

-    }

-    if (ancestor->core_class.class_part_initialize != NULL) {

-	(*(ancestor->core_class.class_part_initialize)) (wc);

-    }

-}

-

-void

-XtInitializeWidgetClass(WidgetClass wc)

-{

-    XtEnum inited;

-    LOCK_PROCESS;

-    if (wc->core_class.class_inited) {

-	UNLOCK_PROCESS;

-	return;

-    }

-    inited = 0x01;

-    {

-	WidgetClass pc;

-#define LeaveIfClass(c, d) if (pc == c) { inited = d; break; }

-	for (pc = wc; pc; pc = pc->core_class.superclass) {

-	    LeaveIfClass(rectObjClass, 0x01 |

-			 RectObjClassFlag);

-	    LeaveIfClass(coreWidgetClass, 0x01 |

-			 RectObjClassFlag |

-			 WidgetClassFlag);

-	    LeaveIfClass(compositeWidgetClass, 0x01 |

-			 RectObjClassFlag |

-			 WidgetClassFlag |

-			 CompositeClassFlag);

-	    LeaveIfClass(constraintWidgetClass, 0x01 |

-			 RectObjClassFlag |

-			 WidgetClassFlag |

-			 CompositeClassFlag |

-			 ConstraintClassFlag);

-	    LeaveIfClass(shellWidgetClass, 0x01 |

-			 RectObjClassFlag |

-			 WidgetClassFlag |

-			 CompositeClassFlag |

-			 ShellClassFlag);

-	    LeaveIfClass(wmShellWidgetClass, 0x01 |

-			 RectObjClassFlag |

-			 WidgetClassFlag |

-			 CompositeClassFlag |

-			 ShellClassFlag |

-			 WMShellClassFlag);

-	    LeaveIfClass(topLevelShellWidgetClass, 0x01 |

-			 RectObjClassFlag |

-			 WidgetClassFlag |

-			 CompositeClassFlag |

-			 ShellClassFlag |

-			 WMShellClassFlag |

-			 TopLevelClassFlag);

-	}

-#undef LeaveIfClass

-    }

-    if (wc->core_class.version != XtVersion &&

-	wc->core_class.version != XtVersionDontCheck) {

-	String param[3];

-	String mismatch = "Widget class %s version mismatch (recompilation needed):\n  widget %d vs. intrinsics %d.";

-	String recompile = "Widget class %s must be re-compiled.";

-	Cardinal num_params;

-

-	param[0] = wc->core_class.class_name;

-	param[1] = (String) wc->core_class.version;

-	param[2] = (String) XtVersion;

-

-	if (wc->core_class.version == (11 * 1000 + 5) || /* MIT X11R5 */

-	    wc->core_class.version == (11 * 1000 + 4)) { /* MIT X11R4 */

-	    if ((inited & WMShellClassFlag) &&

-		(sizeof(Boolean) != sizeof(char) ||

-		 sizeof(Atom) != sizeof(Widget) ||

-		 sizeof(Atom) != sizeof(String))) {

-		num_params=3;

-		XtWarningMsg("versionMismatch","widget",XtCXtToolkitError,

-			     mismatch, param, &num_params);

-		num_params=1;

-		XtErrorMsg("R4orR5versionMismatch","widget",XtCXtToolkitError,

-			   recompile, param, &num_params);

-

-	    }

-	}

-	else if (wc->core_class.version == (11 * 1000 + 3)) { /* MIT X11R3 */

-	    if (inited & ShellClassFlag) {

-		num_params=1;

-		XtWarningMsg("r3versionMismatch","widget",XtCXtToolkitError,

-			     "Shell Widget class %s binary compiled for R3",

-			     param,&num_params);

-		XtErrorMsg("R3versionMismatch","widget",XtCXtToolkitError,

-			   recompile, param, &num_params);

-	    }

-	}

-	else {

-	    num_params=3;

-	    XtWarningMsg("versionMismatch","widget",XtCXtToolkitError,

-			 mismatch, param, &num_params);

-	    if (wc->core_class.version == (2 * 1000 + 2)) /* MIT X11R2 */ {

-		num_params=1;

-		XtErrorMsg("r2versionMismatch","widget",XtCXtToolkitError,

-			   recompile, param, &num_params);

-	    }

-	}

-    }

-

-    if ((wc->core_class.superclass != NULL)

-	    && (!(wc->core_class.superclass->core_class.class_inited)))

- 	XtInitializeWidgetClass(wc->core_class.superclass);

-

-    if (wc->core_class.class_initialize != NULL)

-	(*(wc->core_class.class_initialize))();

-    CallClassPartInit(wc, wc);

-    wc->core_class.class_inited = inited;

-    UNLOCK_PROCESS;

-}

-

-static void

-CallInitialize (

-    WidgetClass class,

-    Widget      req_widget,

-    Widget      new_widget,

-    ArgList     args,

-    Cardinal    num_args)

-{

-    WidgetClass superclass;

-    XtInitProc initialize;

-    XtArgsProc initialize_hook;

-

-    LOCK_PROCESS;

-    superclass = class->core_class.superclass;

-    UNLOCK_PROCESS;

-    if (superclass)

-        CallInitialize (superclass, req_widget, new_widget, args, num_args);

-    LOCK_PROCESS;

-    initialize = class->core_class.initialize;

-    UNLOCK_PROCESS;

-    if (initialize)

-	(*initialize) (req_widget, new_widget, args, &num_args);

-    LOCK_PROCESS;

-    initialize_hook = class->core_class.initialize_hook;

-    UNLOCK_PROCESS;

-    if (initialize_hook)

-	(*initialize_hook) (new_widget, args, &num_args);

-}

-

-static void

-CallConstraintInitialize (

-    ConstraintWidgetClass class,

-    Widget	req_widget,

-    Widget	new_widget,

-    ArgList	args,

-    Cardinal	num_args)

-{

-    WidgetClass superclass;

-    XtInitProc initialize;

-

-    LOCK_PROCESS;

-    superclass = class->core_class.superclass;

-    UNLOCK_PROCESS;

-    if (superclass != constraintWidgetClass)

-	CallConstraintInitialize((ConstraintWidgetClass) superclass,

-		req_widget, new_widget, args, num_args);

-    LOCK_PROCESS;

-    initialize = class->constraint_class.initialize;

-    UNLOCK_PROCESS;

-    if (initialize)

-        (*initialize) (req_widget, new_widget, args, &num_args);

-}

-

-static Widget

-xtWidgetAlloc(

-    WidgetClass widget_class,

-    ConstraintWidgetClass parent_constraint_class,

-    Widget parent,

-    String name,

-    ArgList     args,		/* must be NULL if typed_args is non-NULL */

-    Cardinal    num_args,

-    XtTypedArgList typed_args,	/* must be NULL if args is non-NULL */

-    Cardinal	num_typed_args)

-{

-    Widget widget;

-    Cardinal                wsize, csize = 0;

-    ObjectClassExtension    ext;

-

-    LOCK_PROCESS;

-    if (! (widget_class->core_class.class_inited))

-	XtInitializeWidgetClass(widget_class);

-    ext = (ObjectClassExtension)

-	XtGetClassExtension(widget_class,

-			    XtOffsetOf(ObjectClassRec, object_class.extension),

-			    NULLQUARK, XtObjectExtensionVersion,

-			    sizeof(ObjectClassExtensionRec));

-    if (parent_constraint_class)

-	csize = parent_constraint_class->constraint_class.constraint_size;

-    if (ext && ext->allocate) {

-	XtAllocateProc allocate;

-	Cardinal extra = 0;

-	Cardinal nargs = num_args;

-	Cardinal ntyped = num_typed_args;

-	allocate = ext->allocate;

-	UNLOCK_PROCESS;

-	(*allocate)(widget_class, &csize, &extra, args, &nargs,

-		    typed_args, &ntyped, &widget, NULL);

-    } else {

-	wsize = widget_class->core_class.widget_size;

-	UNLOCK_PROCESS;

-	if (csize) {

-	    if (sizeof(struct {char a; double b;}) !=

-		(sizeof(struct {char a; unsigned long b;}) -

-		 sizeof(unsigned long) + sizeof(double))) {

-		if (csize && !(csize & (sizeof(double) - 1)))

-		    wsize = (wsize + sizeof(double) - 1) & ~(sizeof(double)-1);

-	    }

-	}

-	widget = (Widget) __XtMalloc((unsigned)(wsize + csize));

-	bzero(widget, wsize + csize);

-	widget->core.constraints =

-	    (csize ? (XtPointer)((char *)widget + wsize) : NULL);

-    }

-    widget->core.self = widget;

-    widget->core.parent = parent;

-    widget->core.widget_class = widget_class;

-    widget->core.xrm_name = StringToName((name != NULL) ? name : "");

-    widget->core.being_destroyed =

-	(parent != NULL ? parent->core.being_destroyed : FALSE);

-    return widget;

-}

-

-static void

-CompileCallbacks(

-    Widget widget)

-{

-    CallbackTable offsets;

-    InternalCallbackList* cl;

-    int i;

-

-    LOCK_PROCESS;

-    offsets = (CallbackTable)

-	widget->core.widget_class->core_class.callback_private;

-

-    for (i = (int)(long) *(offsets++); --i >= 0; offsets++) {

-	cl = (InternalCallbackList *)

-	    ((char *) widget - (*offsets)->xrm_offset - 1);

-	if (*cl)

-	    *cl = _XtCompileCallbackList((XtCallbackList) *cl);

-    }

-    UNLOCK_PROCESS;

-}

-

-static Widget

-xtCreate(

-    char        *name,

-    char        *class,

-    WidgetClass widget_class,

-    Widget      parent,

-    Screen*     default_screen, /* undefined when creating a nonwidget */

-    ArgList     args,		/* must be NULL if typed_args is non-NULL */

-    Cardinal    num_args,

-    XtTypedArgList typed_args,	/* must be NULL if args is non-NULL */

-    Cardinal	num_typed_args,

-    ConstraintWidgetClass parent_constraint_class,

-        /* NULL if not a subclass of Constraint or if child is popup shell */

-    XtWidgetProc post_proc)

-{

-    /* need to use strictest alignment rules possible in next two decls. */

-    double                  widget_cache[100];

-    double                  constraint_cache[20];

-    Widget                  req_widget;

-    XtPointer               req_constraints = NULL;

-    Cardinal                wsize, csize;

-    Widget	    	    widget;

-    XtCacheRef		    *cache_refs;

-    Cardinal		    i;

-    XtCreateHookDataRec     call_data;

-

-    widget = xtWidgetAlloc(widget_class, parent_constraint_class, parent,

-		name, args, num_args, typed_args, num_typed_args);

-

-    if (XtIsRectObj(widget)) {

-	widget->core.managed = FALSE;

-    }

-    if (XtIsWidget(widget)) {

-	widget->core.name = XrmNameToString(widget->core.xrm_name);

-        widget->core.screen = default_screen;

-        widget->core.tm.translations = NULL;

-	widget->core.window = (Window) 0;

-	widget->core.visible = TRUE;

-	widget->core.popup_list = NULL;

-	widget->core.num_popups = 0;

-    };

-    LOCK_PROCESS;

-    if (XtIsApplicationShell(widget)) {

-	ApplicationShellWidget a = (ApplicationShellWidget) widget;

-	if (class != NULL)

-	    a->application.xrm_class = StringToClass(class);

-	else

-	    a->application.xrm_class = widget_class->core_class.xrm_class;

-	a->application.class = XrmQuarkToString(a->application.xrm_class);

-    }

-    UNLOCK_PROCESS;

-

-    /* fetch resources */

-    cache_refs = _XtGetResources(widget, args, num_args,

-		typed_args, &num_typed_args);

-

-    /* Convert typed arg list to arg list */

-    if (typed_args != NULL && num_typed_args > 0) {

-	args = (ArgList)ALLOCATE_LOCAL(sizeof(Arg) * num_typed_args);

-	if (args == NULL) _XtAllocError(NULL);

-	for (i = 0; i < num_typed_args; i++) {

-	    args[i].name = typed_args[i].name;

-	    args[i].value = typed_args[i].value;

-	}

-	num_args = num_typed_args;

-    }

-

-    CompileCallbacks(widget);

-

-    if (cache_refs != NULL) {

-	XtAddCallback(widget, XtNdestroyCallback,

-		XtCallbackReleaseCacheRefList, (XtPointer)cache_refs );

-    }

-

-    wsize = widget_class->core_class.widget_size;

-    csize = 0;

-    req_widget = (Widget) XtStackAlloc(wsize, widget_cache);

-    (void) memmove ((char *) req_widget, (char *) widget, (int) wsize);

-    CallInitialize (XtClass(widget), req_widget, widget, args, num_args);

-    if (parent_constraint_class != NULL) {

-        csize = parent_constraint_class->constraint_class.constraint_size;

-	if (csize) {

-	    req_constraints = XtStackAlloc(csize, constraint_cache);

-	    (void) memmove((char*)req_constraints, widget->core.constraints,

-			(int)csize);

-	    req_widget->core.constraints = req_constraints;

-	} else req_widget->core.constraints = NULL;

-	CallConstraintInitialize(parent_constraint_class, req_widget, widget,

-		args, num_args);

-	if (csize) {

-	    XtStackFree(req_constraints, constraint_cache);

-	}

-    }

-    XtStackFree((XtPointer)req_widget, widget_cache);

-    if (post_proc != (XtWidgetProc) NULL) {

-	Widget hookobj;

-	(*post_proc)(widget);

-	hookobj = XtHooksOfDisplay((default_screen != (Screen*) NULL) ?

-		default_screen->display :

-		XtDisplayOfObject(parent));

-	if (XtHasCallbacks(hookobj, XtNcreateHook) == XtCallbackHasSome) {

-

-	    call_data.type = XtHcreate;

-	    call_data.widget = widget;

-	    call_data.args = args;

-	    call_data.num_args = num_args;

-	    XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.createhook_callbacks,

-		(XtPointer)&call_data);

-	}

-    }

-    if (typed_args != NULL) {

-	while (num_typed_args-- > 0) {

-

-	    /* In GetResources we may have dynamically alloc'd store to hold */

-	    /* a copy of a resource which was larger then sizeof(XtArgVal). */

-	    /* We must free this store now in order to prevent a memory leak */

-	    /* A typed arg that has a converted value in dynamic store has a */

-	    /* negated size field. */

-

-	    if (typed_args->type != NULL && typed_args->size < 0) {

-		XtFree((char*)typed_args->value);

-		typed_args->size = -(typed_args->size);

-	    }

-	    typed_args++;

-	}

-	DEALLOCATE_LOCAL((char*)args);

-    }

-    return (widget);

-}

-

-static void

-widgetPostProc(Widget w)

-{

-    XtWidgetProc insert_child;

-    Widget parent = XtParent(w);

-    String param = XtName(w);

-    Cardinal num_params = 1;

-

-    if (XtIsComposite(parent)) {

-	LOCK_PROCESS;

-	insert_child = ((CompositeWidgetClass) parent->core.widget_class)->

-	    composite_class.insert_child;

-	UNLOCK_PROCESS;

-    } else {

-	return;

-    }

-    if (insert_child == NULL) {

-	XtAppErrorMsg(XtWidgetToApplicationContext(parent),

-		"nullProc","insertChild",XtCXtToolkitError,

-		"\"%s\" parent has NULL insert_child method",

-		&param, &num_params);

-    } else {

-	(*insert_child) (w);

-    }

-}

-

-Widget

-_XtCreateWidget(

-    String      name,

-    WidgetClass widget_class,

-    Widget      parent,

-    ArgList     args,

-    Cardinal    num_args,

-    XtTypedArgList typed_args,

-    Cardinal	num_typed_args)

-{

-    register Widget	    widget;

-    ConstraintWidgetClass   cwc;

-    Screen*                 default_screen;

-    XtEnum		    class_inited;

-    String		    params[3];

-    Cardinal		    num_params;

-

-    params[0] = name;

-    num_params = 1;

-

-    if (parent == NULL) {

-	XtErrorMsg("invalidParent", XtNxtCreateWidget, XtCXtToolkitError,

-		   "XtCreateWidget \"%s\" requires non-NULL parent",

-		   params, &num_params);

-    } else if (widget_class == NULL) {

-	XtAppErrorMsg(XtWidgetToApplicationContext(parent),

-		      "invalidClass", XtNxtCreateWidget, XtCXtToolkitError,

-		      "XtCreateWidget \"%s\" requires non-NULL widget class",

-		      params, &num_params);

-    }

-    LOCK_PROCESS;

-    if (!widget_class->core_class.class_inited)

-	XtInitializeWidgetClass(widget_class);

-    class_inited = widget_class->core_class.class_inited;

-    UNLOCK_PROCESS;

-    if ((class_inited & WidgetClassFlag) == 0) {

-	/* not a widget */

-	default_screen = NULL;

-	if (XtIsComposite(parent)) {

-	    CompositeClassExtension ext;

-	    ext = (CompositeClassExtension)

-		XtGetClassExtension(XtClass(parent),

-		      XtOffsetOf(CompositeClassRec, composite_class.extension),

-		      NULLQUARK, 1L, (Cardinal) 0);

-	    LOCK_PROCESS;

-	    if (ext &&

-		(ext->version > XtCompositeExtensionVersion ||

-		 ext->record_size > sizeof(CompositeClassExtensionRec))) {

-		params[1] = XtClass(parent)->core_class.class_name;

-		num_params = 2;

-		XtAppWarningMsg(XtWidgetToApplicationContext(parent),

-				"invalidExtension", XtNxtCreateWidget,

-				XtCXtToolkitError,

-	   "widget \"%s\" class %s has invalid CompositeClassExtension record",

-				params, &num_params);

-	    }

-	    if (!ext || !ext->accepts_objects) {

-		params[1] = XtName(parent);

-		num_params = 2;

-		XtAppErrorMsg(XtWidgetToApplicationContext(parent),

-			      "nonWidget", XtNxtCreateWidget,XtCXtToolkitError,

-"attempt to add non-widget child \"%s\" to parent \"%s\" which supports only widgets",

-			      params, &num_params);

-	    }

-	    UNLOCK_PROCESS;

-	}

-    } else {

-	default_screen = parent->core.screen;

-    }

-

-    if (XtIsConstraint(parent)) {

-	cwc = (ConstraintWidgetClass) parent->core.widget_class;

-    } else {

-	cwc = NULL;

-    }

-    widget = xtCreate(name, (char *)NULL, widget_class, parent,

-		default_screen, args, num_args,

-		typed_args, num_typed_args, cwc, widgetPostProc);

-    return (widget);

-}

-

-Widget

-XtCreateWidget(

-    _Xconst char* name,

-    WidgetClass widget_class,

-    Widget   	parent,

-    ArgList 	args,

-    Cardinal    num_args

-    )

-{

-    Widget retval;

-    WIDGET_TO_APPCON(parent);

-

-    LOCK_APP(app);

-    retval = _XtCreateWidget((String)name, widget_class, parent, args, num_args,

-		(XtTypedArgList)NULL, (Cardinal)0);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-

-Widget

-XtCreateManagedWidget(

-    _Xconst char* name,

-    WidgetClass widget_class,

-    Widget      parent,

-    ArgList     args,

-    Cardinal    num_args

-    )

-{

-    register Widget	    widget;

-    WIDGET_TO_APPCON(parent);

-

-    LOCK_APP(app);

-    XtCheckSubclass(parent, compositeWidgetClass, "in XtCreateManagedWidget");

-    widget = _XtCreateWidget((String)name, widget_class, parent, args,

-		num_args, (XtTypedArgList)NULL, (Cardinal) 0);

-    XtManageChild(widget);

-    UNLOCK_APP(app);

-    return widget;

-}

-

-static void

-popupPostProc(Widget w)

-{

-    Widget parent = XtParent(w);

-

-    parent->core.popup_list =

-	(WidgetList) XtRealloc((char*) parent->core.popup_list,

-		(unsigned) (parent->core.num_popups+1) * sizeof(Widget));

-    parent->core.popup_list[parent->core.num_popups++] = w;

-}

-

-Widget

-_XtCreatePopupShell(

-    String      name,

-    WidgetClass widget_class,

-    Widget      parent,

-    ArgList     args,

-    Cardinal    num_args,

-    XtTypedArgList      typed_args,

-    Cardinal            num_typed_args)

-{

-    register Widget widget;

-    Screen* default_screen;

-

-    if (parent == NULL) {

-	XtErrorMsg("invalidParent",XtNxtCreatePopupShell,XtCXtToolkitError,

-		"XtCreatePopupShell requires non-NULL parent",

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

-    } else if (widget_class == NULL) {

-	XtAppErrorMsg(XtWidgetToApplicationContext(parent),

-		"invalidClass",XtNxtCreatePopupShell,XtCXtToolkitError,

-		"XtCreatePopupShell requires non-NULL widget class",

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

-    }

-    XtCheckSubclass(parent, coreWidgetClass, "in XtCreatePopupShell");

-    default_screen = parent->core.screen;

-    widget = xtCreate(name, (char *)NULL, widget_class, parent,

-		default_screen, args, num_args, typed_args,

-		num_typed_args, (ConstraintWidgetClass)NULL,

-		popupPostProc);

-

-#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT

-    XtAddEventHandler (widget, (EventMask) PropertyChangeMask, FALSE,

-		(XtEventHandler) _XtResourceConfigurationEH, NULL);

-#endif

-    return(widget);

-}

-

-Widget

-XtCreatePopupShell(

-    _Xconst char* name,

-    WidgetClass widget_class,

-    Widget      parent,

-    ArgList     args,

-    Cardinal    num_args

-    )

-{

-    Widget retval;

-    WIDGET_TO_APPCON(parent);

-

-    LOCK_APP(app);

-    retval = _XtCreatePopupShell((String)name, widget_class, parent, args,

-		num_args, (XtTypedArgList)NULL, (Cardinal)0);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-Widget

-_XtAppCreateShell(

-    String      name,

-    String      class,

-    WidgetClass widget_class,

-    Display*    display,

-    ArgList     args,

-    Cardinal    num_args,

-    XtTypedArgList typed_args,

-    Cardinal	num_typed_args)

-{

-    Widget shell;

-

-    if (widget_class == NULL) {

-	XtAppErrorMsg(XtDisplayToApplicationContext(display),

-		"invalidClass","xtAppCreateShell",XtCXtToolkitError,

-		"XtAppCreateShell requires non-NULL widget class",

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

-    }

-    if (name == NULL)

-	name = XrmNameToString(_XtGetPerDisplay(display)->name);

-    shell = xtCreate(name, class, widget_class, (Widget)NULL,

-		(Screen*)DefaultScreenOfDisplay(display),

-		args, num_args, typed_args, num_typed_args,

-		(ConstraintWidgetClass) NULL, _XtAddShellToHookObj);

-

-#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT

-    XtAddEventHandler (shell, (EventMask) PropertyChangeMask, FALSE,

-		(XtEventHandler) _XtResourceConfigurationEH, NULL);

-#endif

-

-    return shell;

-}

-

-Widget

-XtAppCreateShell(

-    _Xconst char*       name,

-    _Xconst char*       class,

-    WidgetClass         widget_class,

-    Display             *display,

-    ArgList             args,

-    Cardinal            num_args

-    )

-{

-    Widget retval;

-    DPY_TO_APPCON(display);

-

-    LOCK_APP(app);

-    retval = _XtAppCreateShell((String)name, (String)class, widget_class,

-		display, args, num_args, (XtTypedArgList)NULL, (Cardinal)0);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-/* ARGSUSED */

-Widget

-XtCreateApplicationShell(

-    _Xconst char* name,		/* unused in R3 and later */

-    WidgetClass widget_class,

-    ArgList     args,

-    Cardinal    num_args

-    )

-{

-    Widget retval;

-    Display* dpy;

-    XrmClass class;

-    XtAppContext app = _XtDefaultAppContext();

-

-    LOCK_APP(app);

-    dpy = app->list[0];

-    class = _XtGetPerDisplay(dpy)->class;

-

-    retval = _XtAppCreateShell((String)NULL, XrmQuarkToString((XrmQuark)class),

-		widget_class, dpy, args, num_args,

-		(XtTypedArgList)NULL, (Cardinal)0);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-Widget

-_XtCreateHookObj(Screen* screen)

-{

-    Widget req_widget;

-    double widget_cache[100];

-    Cardinal wsize = 0;

-    Widget hookobj = xtWidgetAlloc(hookObjectClass,

-		(ConstraintWidgetClass)NULL,

-		(Widget)NULL, "hooks",

-		(ArgList)NULL, (Cardinal)0,

-		(XtTypedArgList)NULL, (Cardinal)0);

-

-    ((HookObject)hookobj)->hooks.screen = screen;

-    (void) _XtGetResources(hookobj, (ArgList)NULL, 0,

-		(XtTypedArgList)NULL, &wsize);

-    CompileCallbacks(hookobj);

-    wsize = hookObjectClass->core_class.widget_size;

-    req_widget = (Widget) XtStackAlloc(wsize, widget_cache);

-    (void) memmove ((char *) req_widget, (char *) hookobj, (int) wsize);

-    CallInitialize (hookObjectClass, req_widget, hookobj,

-		(ArgList)NULL, (Cardinal) 0);

-    XtStackFree((XtPointer)req_widget, widget_cache);

-    return hookobj;

-}

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "VarargsI.h"
+#include "ShellP.h"
+#include "CreateI.h"
+#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT
+#include "ResConfigP.h"
+#endif
+#include <stdio.h>
+
+static String XtNxtCreateWidget = "xtCreateWidget";
+static String XtNxtCreatePopupShell = "xtCreatePopupShell";
+
+static void
+CallClassPartInit(WidgetClass ancestor, WidgetClass wc)
+{
+    if (ancestor->core_class.superclass != NULL) {
+	CallClassPartInit(ancestor->core_class.superclass, wc);
+    }
+    if (ancestor->core_class.class_part_initialize != NULL) {
+	(*(ancestor->core_class.class_part_initialize)) (wc);
+    }
+}
+
+void
+XtInitializeWidgetClass(WidgetClass wc)
+{
+    XtEnum inited;
+    LOCK_PROCESS;
+    if (wc->core_class.class_inited) {
+	UNLOCK_PROCESS;
+	return;
+    }
+    inited = 0x01;
+    {
+	WidgetClass pc;
+#define LeaveIfClass(c, d) if (pc == c) { inited = d; break; }
+	for (pc = wc; pc; pc = pc->core_class.superclass) {
+	    LeaveIfClass(rectObjClass, 0x01 |
+			 RectObjClassFlag);
+	    LeaveIfClass(coreWidgetClass, 0x01 |
+			 RectObjClassFlag |
+			 WidgetClassFlag);
+	    LeaveIfClass(compositeWidgetClass, 0x01 |
+			 RectObjClassFlag |
+			 WidgetClassFlag |
+			 CompositeClassFlag);
+	    LeaveIfClass(constraintWidgetClass, 0x01 |
+			 RectObjClassFlag |
+			 WidgetClassFlag |
+			 CompositeClassFlag |
+			 ConstraintClassFlag);
+	    LeaveIfClass(shellWidgetClass, 0x01 |
+			 RectObjClassFlag |
+			 WidgetClassFlag |
+			 CompositeClassFlag |
+			 ShellClassFlag);
+	    LeaveIfClass(wmShellWidgetClass, 0x01 |
+			 RectObjClassFlag |
+			 WidgetClassFlag |
+			 CompositeClassFlag |
+			 ShellClassFlag |
+			 WMShellClassFlag);
+	    LeaveIfClass(topLevelShellWidgetClass, 0x01 |
+			 RectObjClassFlag |
+			 WidgetClassFlag |
+			 CompositeClassFlag |
+			 ShellClassFlag |
+			 WMShellClassFlag |
+			 TopLevelClassFlag);
+	}
+#undef LeaveIfClass
+    }
+    if (wc->core_class.version != XtVersion &&
+	wc->core_class.version != XtVersionDontCheck) {
+	String param[3];
+	String mismatch = "Widget class %s version mismatch (recompilation needed):\n  widget %d vs. intrinsics %d.";
+	String recompile = "Widget class %s must be re-compiled.";
+	Cardinal num_params;
+
+	param[0] = wc->core_class.class_name;
+	param[1] = (String) wc->core_class.version;
+	param[2] = (String) XtVersion;
+
+	if (wc->core_class.version == (11 * 1000 + 5) || /* MIT X11R5 */
+	    wc->core_class.version == (11 * 1000 + 4)) { /* MIT X11R4 */
+	    if ((inited & WMShellClassFlag) &&
+		(sizeof(Boolean) != sizeof(char) ||
+		 sizeof(Atom) != sizeof(Widget) ||
+		 sizeof(Atom) != sizeof(String))) {
+		num_params=3;
+		XtWarningMsg("versionMismatch","widget",XtCXtToolkitError,
+			     mismatch, param, &num_params);
+		num_params=1;
+		XtErrorMsg("R4orR5versionMismatch","widget",XtCXtToolkitError,
+			   recompile, param, &num_params);
+
+	    }
+	}
+	else if (wc->core_class.version == (11 * 1000 + 3)) { /* MIT X11R3 */
+	    if (inited & ShellClassFlag) {
+		num_params=1;
+		XtWarningMsg("r3versionMismatch","widget",XtCXtToolkitError,
+			     "Shell Widget class %s binary compiled for R3",
+			     param,&num_params);
+		XtErrorMsg("R3versionMismatch","widget",XtCXtToolkitError,
+			   recompile, param, &num_params);
+	    }
+	}
+	else {
+	    num_params=3;
+	    XtWarningMsg("versionMismatch","widget",XtCXtToolkitError,
+			 mismatch, param, &num_params);
+	    if (wc->core_class.version == (2 * 1000 + 2)) /* MIT X11R2 */ {
+		num_params=1;
+		XtErrorMsg("r2versionMismatch","widget",XtCXtToolkitError,
+			   recompile, param, &num_params);
+	    }
+	}
+    }
+
+    if ((wc->core_class.superclass != NULL)
+	    && (!(wc->core_class.superclass->core_class.class_inited)))
+ 	XtInitializeWidgetClass(wc->core_class.superclass);
+
+    if (wc->core_class.class_initialize != NULL)
+	(*(wc->core_class.class_initialize))();
+    CallClassPartInit(wc, wc);
+    wc->core_class.class_inited = inited;
+    UNLOCK_PROCESS;
+}
+
+static void
+CallInitialize (
+    WidgetClass class,
+    Widget      req_widget,
+    Widget      new_widget,
+    ArgList     args,
+    Cardinal    num_args)
+{
+    WidgetClass superclass;
+    XtInitProc initialize;
+    XtArgsProc initialize_hook;
+
+    LOCK_PROCESS;
+    superclass = class->core_class.superclass;
+    UNLOCK_PROCESS;
+    if (superclass)
+        CallInitialize (superclass, req_widget, new_widget, args, num_args);
+    LOCK_PROCESS;
+    initialize = class->core_class.initialize;
+    UNLOCK_PROCESS;
+    if (initialize)
+	(*initialize) (req_widget, new_widget, args, &num_args);
+    LOCK_PROCESS;
+    initialize_hook = class->core_class.initialize_hook;
+    UNLOCK_PROCESS;
+    if (initialize_hook)
+	(*initialize_hook) (new_widget, args, &num_args);
+}
+
+static void
+CallConstraintInitialize (
+    ConstraintWidgetClass class,
+    Widget	req_widget,
+    Widget	new_widget,
+    ArgList	args,
+    Cardinal	num_args)
+{
+    WidgetClass superclass;
+    XtInitProc initialize;
+
+    LOCK_PROCESS;
+    superclass = class->core_class.superclass;
+    UNLOCK_PROCESS;
+    if (superclass != constraintWidgetClass)
+	CallConstraintInitialize((ConstraintWidgetClass) superclass,
+		req_widget, new_widget, args, num_args);
+    LOCK_PROCESS;
+    initialize = class->constraint_class.initialize;
+    UNLOCK_PROCESS;
+    if (initialize)
+        (*initialize) (req_widget, new_widget, args, &num_args);
+}
+
+static Widget
+xtWidgetAlloc(
+    WidgetClass widget_class,
+    ConstraintWidgetClass parent_constraint_class,
+    Widget parent,
+    String name,
+    ArgList     args,		/* must be NULL if typed_args is non-NULL */
+    Cardinal    num_args,
+    XtTypedArgList typed_args,	/* must be NULL if args is non-NULL */
+    Cardinal	num_typed_args)
+{
+    Widget widget;
+    Cardinal                wsize, csize = 0;
+    ObjectClassExtension    ext;
+
+    LOCK_PROCESS;
+    if (! (widget_class->core_class.class_inited))
+	XtInitializeWidgetClass(widget_class);
+    ext = (ObjectClassExtension)
+	XtGetClassExtension(widget_class,
+			    XtOffsetOf(ObjectClassRec, object_class.extension),
+			    NULLQUARK, XtObjectExtensionVersion,
+			    sizeof(ObjectClassExtensionRec));
+    if (parent_constraint_class)
+	csize = parent_constraint_class->constraint_class.constraint_size;
+    if (ext && ext->allocate) {
+	XtAllocateProc allocate;
+	Cardinal extra = 0;
+	Cardinal nargs = num_args;
+	Cardinal ntyped = num_typed_args;
+	allocate = ext->allocate;
+	UNLOCK_PROCESS;
+	(*allocate)(widget_class, &csize, &extra, args, &nargs,
+		    typed_args, &ntyped, &widget, NULL);
+    } else {
+	wsize = widget_class->core_class.widget_size;
+	UNLOCK_PROCESS;
+	if (csize) {
+	    if (sizeof(struct {char a; double b;}) !=
+		(sizeof(struct {char a; unsigned long b;}) -
+		 sizeof(unsigned long) + sizeof(double))) {
+		if (csize && !(csize & (sizeof(double) - 1)))
+		    wsize = (wsize + sizeof(double) - 1) & ~(sizeof(double)-1);
+	    }
+	}
+	widget = (Widget) __XtMalloc((unsigned)(wsize + csize));
+	bzero(widget, wsize + csize);
+	widget->core.constraints =
+	    (csize ? (XtPointer)((char *)widget + wsize) : NULL);
+    }
+    widget->core.self = widget;
+    widget->core.parent = parent;
+    widget->core.widget_class = widget_class;
+    widget->core.xrm_name = StringToName((name != NULL) ? name : "");
+    widget->core.being_destroyed =
+	(parent != NULL ? parent->core.being_destroyed : FALSE);
+    return widget;
+}
+
+static void
+CompileCallbacks(
+    Widget widget)
+{
+    CallbackTable offsets;
+    InternalCallbackList* cl;
+    int i;
+
+    LOCK_PROCESS;
+    offsets = (CallbackTable)
+	widget->core.widget_class->core_class.callback_private;
+
+    for (i = (int)(long) *(offsets++); --i >= 0; offsets++) {
+	cl = (InternalCallbackList *)
+	    ((char *) widget - (*offsets)->xrm_offset - 1);
+	if (*cl)
+	    *cl = _XtCompileCallbackList((XtCallbackList) *cl);
+    }
+    UNLOCK_PROCESS;
+}
+
+static Widget
+xtCreate(
+    char        *name,
+    char        *class,
+    WidgetClass widget_class,
+    Widget      parent,
+    Screen*     default_screen, /* undefined when creating a nonwidget */
+    ArgList     args,		/* must be NULL if typed_args is non-NULL */
+    Cardinal    num_args,
+    XtTypedArgList typed_args,	/* must be NULL if args is non-NULL */
+    Cardinal	num_typed_args,
+    ConstraintWidgetClass parent_constraint_class,
+        /* NULL if not a subclass of Constraint or if child is popup shell */
+    XtWidgetProc post_proc)
+{
+    /* need to use strictest alignment rules possible in next two decls. */
+    double                  widget_cache[100];
+    double                  constraint_cache[20];
+    Widget                  req_widget;
+    XtPointer               req_constraints = NULL;
+    Cardinal                wsize, csize;
+    Widget	    	    widget;
+    XtCacheRef		    *cache_refs;
+    Cardinal		    i;
+    XtCreateHookDataRec     call_data;
+
+    widget = xtWidgetAlloc(widget_class, parent_constraint_class, parent,
+		name, args, num_args, typed_args, num_typed_args);
+
+    if (XtIsRectObj(widget)) {
+	widget->core.managed = FALSE;
+    }
+    if (XtIsWidget(widget)) {
+	widget->core.name = XrmNameToString(widget->core.xrm_name);
+        widget->core.screen = default_screen;
+        widget->core.tm.translations = NULL;
+	widget->core.window = (Window) 0;
+	widget->core.visible = TRUE;
+	widget->core.popup_list = NULL;
+	widget->core.num_popups = 0;
+    };
+    LOCK_PROCESS;
+    if (XtIsApplicationShell(widget)) {
+	ApplicationShellWidget a = (ApplicationShellWidget) widget;
+	if (class != NULL)
+	    a->application.xrm_class = StringToClass(class);
+	else
+	    a->application.xrm_class = widget_class->core_class.xrm_class;
+	a->application.class = XrmQuarkToString(a->application.xrm_class);
+    }
+    UNLOCK_PROCESS;
+
+    /* fetch resources */
+    cache_refs = _XtGetResources(widget, args, num_args,
+		typed_args, &num_typed_args);
+
+    /* Convert typed arg list to arg list */
+    if (typed_args != NULL && num_typed_args > 0) {
+	args = (ArgList)ALLOCATE_LOCAL(sizeof(Arg) * num_typed_args);
+	if (args == NULL) _XtAllocError(NULL);
+	for (i = 0; i < num_typed_args; i++) {
+	    args[i].name = typed_args[i].name;
+	    args[i].value = typed_args[i].value;
+	}
+	num_args = num_typed_args;
+    }
+
+    CompileCallbacks(widget);
+
+    if (cache_refs != NULL) {
+	XtAddCallback(widget, XtNdestroyCallback,
+		XtCallbackReleaseCacheRefList, (XtPointer)cache_refs );
+    }
+
+    wsize = widget_class->core_class.widget_size;
+    csize = 0;
+    req_widget = (Widget) XtStackAlloc(wsize, widget_cache);
+    (void) memmove ((char *) req_widget, (char *) widget, (int) wsize);
+    CallInitialize (XtClass(widget), req_widget, widget, args, num_args);
+    if (parent_constraint_class != NULL) {
+        csize = parent_constraint_class->constraint_class.constraint_size;
+	if (csize) {
+	    req_constraints = XtStackAlloc(csize, constraint_cache);
+	    (void) memmove((char*)req_constraints, widget->core.constraints,
+			(int)csize);
+	    req_widget->core.constraints = req_constraints;
+	} else req_widget->core.constraints = NULL;
+	CallConstraintInitialize(parent_constraint_class, req_widget, widget,
+		args, num_args);
+	if (csize) {
+	    XtStackFree(req_constraints, constraint_cache);
+	}
+    }
+    XtStackFree((XtPointer)req_widget, widget_cache);
+    if (post_proc != (XtWidgetProc) NULL) {
+	Widget hookobj;
+	(*post_proc)(widget);
+	hookobj = XtHooksOfDisplay((default_screen != (Screen*) NULL) ?
+		default_screen->display :
+		XtDisplayOfObject(parent));
+	if (XtHasCallbacks(hookobj, XtNcreateHook) == XtCallbackHasSome) {
+
+	    call_data.type = XtHcreate;
+	    call_data.widget = widget;
+	    call_data.args = args;
+	    call_data.num_args = num_args;
+	    XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.createhook_callbacks,
+		(XtPointer)&call_data);
+	}
+    }
+    if (typed_args != NULL) {
+	while (num_typed_args-- > 0) {
+
+	    /* In GetResources we may have dynamically alloc'd store to hold */
+	    /* a copy of a resource which was larger then sizeof(XtArgVal). */
+	    /* We must free this store now in order to prevent a memory leak */
+	    /* A typed arg that has a converted value in dynamic store has a */
+	    /* negated size field. */
+
+	    if (typed_args->type != NULL && typed_args->size < 0) {
+		XtFree((char*)typed_args->value);
+		typed_args->size = -(typed_args->size);
+	    }
+	    typed_args++;
+	}
+	DEALLOCATE_LOCAL((char*)args);
+    }
+    return (widget);
+}
+
+static void
+widgetPostProc(Widget w)
+{
+    XtWidgetProc insert_child;
+    Widget parent = XtParent(w);
+    String param = XtName(w);
+    Cardinal num_params = 1;
+
+    if (XtIsComposite(parent)) {
+	LOCK_PROCESS;
+	insert_child = ((CompositeWidgetClass) parent->core.widget_class)->
+	    composite_class.insert_child;
+	UNLOCK_PROCESS;
+    } else {
+	return;
+    }
+    if (insert_child == NULL) {
+	XtAppErrorMsg(XtWidgetToApplicationContext(parent),
+		"nullProc","insertChild",XtCXtToolkitError,
+		"\"%s\" parent has NULL insert_child method",
+		&param, &num_params);
+    } else {
+	(*insert_child) (w);
+    }
+}
+
+Widget
+_XtCreateWidget(
+    String      name,
+    WidgetClass widget_class,
+    Widget      parent,
+    ArgList     args,
+    Cardinal    num_args,
+    XtTypedArgList typed_args,
+    Cardinal	num_typed_args)
+{
+    register Widget	    widget;
+    ConstraintWidgetClass   cwc;
+    Screen*                 default_screen;
+    XtEnum		    class_inited;
+    String		    params[3];
+    Cardinal		    num_params;
+
+    params[0] = name;
+    num_params = 1;
+
+    if (parent == NULL) {
+	XtErrorMsg("invalidParent", XtNxtCreateWidget, XtCXtToolkitError,
+		   "XtCreateWidget \"%s\" requires non-NULL parent",
+		   params, &num_params);
+    } else if (widget_class == NULL) {
+	XtAppErrorMsg(XtWidgetToApplicationContext(parent),
+		      "invalidClass", XtNxtCreateWidget, XtCXtToolkitError,
+		      "XtCreateWidget \"%s\" requires non-NULL widget class",
+		      params, &num_params);
+    }
+    LOCK_PROCESS;
+    if (!widget_class->core_class.class_inited)
+	XtInitializeWidgetClass(widget_class);
+    class_inited = widget_class->core_class.class_inited;
+    UNLOCK_PROCESS;
+    if ((class_inited & WidgetClassFlag) == 0) {
+	/* not a widget */
+	default_screen = NULL;
+	if (XtIsComposite(parent)) {
+	    CompositeClassExtension ext;
+	    ext = (CompositeClassExtension)
+		XtGetClassExtension(XtClass(parent),
+		      XtOffsetOf(CompositeClassRec, composite_class.extension),
+		      NULLQUARK, 1L, (Cardinal) 0);
+	    LOCK_PROCESS;
+	    if (ext &&
+		(ext->version > XtCompositeExtensionVersion ||
+		 ext->record_size > sizeof(CompositeClassExtensionRec))) {
+		params[1] = XtClass(parent)->core_class.class_name;
+		num_params = 2;
+		XtAppWarningMsg(XtWidgetToApplicationContext(parent),
+				"invalidExtension", XtNxtCreateWidget,
+				XtCXtToolkitError,
+	   "widget \"%s\" class %s has invalid CompositeClassExtension record",
+				params, &num_params);
+	    }
+	    if (!ext || !ext->accepts_objects) {
+		params[1] = XtName(parent);
+		num_params = 2;
+		XtAppErrorMsg(XtWidgetToApplicationContext(parent),
+			      "nonWidget", XtNxtCreateWidget,XtCXtToolkitError,
+"attempt to add non-widget child \"%s\" to parent \"%s\" which supports only widgets",
+			      params, &num_params);
+	    }
+	    UNLOCK_PROCESS;
+	}
+    } else {
+	default_screen = parent->core.screen;
+    }
+
+    if (XtIsConstraint(parent)) {
+	cwc = (ConstraintWidgetClass) parent->core.widget_class;
+    } else {
+	cwc = NULL;
+    }
+    widget = xtCreate(name, (char *)NULL, widget_class, parent,
+		default_screen, args, num_args,
+		typed_args, num_typed_args, cwc, widgetPostProc);
+    return (widget);
+}
+
+Widget
+XtCreateWidget(
+    _Xconst char* name,
+    WidgetClass widget_class,
+    Widget   	parent,
+    ArgList 	args,
+    Cardinal    num_args
+    )
+{
+    Widget retval;
+    WIDGET_TO_APPCON(parent);
+
+    LOCK_APP(app);
+    retval = _XtCreateWidget((String)name, widget_class, parent, args, num_args,
+		(XtTypedArgList)NULL, (Cardinal)0);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+
+Widget
+XtCreateManagedWidget(
+    _Xconst char* name,
+    WidgetClass widget_class,
+    Widget      parent,
+    ArgList     args,
+    Cardinal    num_args
+    )
+{
+    register Widget	    widget;
+    WIDGET_TO_APPCON(parent);
+
+    LOCK_APP(app);
+    XtCheckSubclass(parent, compositeWidgetClass, "in XtCreateManagedWidget");
+    widget = _XtCreateWidget((String)name, widget_class, parent, args,
+		num_args, (XtTypedArgList)NULL, (Cardinal) 0);
+    XtManageChild(widget);
+    UNLOCK_APP(app);
+    return widget;
+}
+
+static void
+popupPostProc(Widget w)
+{
+    Widget parent = XtParent(w);
+
+    parent->core.popup_list =
+	(WidgetList) XtRealloc((char*) parent->core.popup_list,
+		(unsigned) (parent->core.num_popups+1) * sizeof(Widget));
+    parent->core.popup_list[parent->core.num_popups++] = w;
+}
+
+Widget
+_XtCreatePopupShell(
+    String      name,
+    WidgetClass widget_class,
+    Widget      parent,
+    ArgList     args,
+    Cardinal    num_args,
+    XtTypedArgList      typed_args,
+    Cardinal            num_typed_args)
+{
+    register Widget widget;
+    Screen* default_screen;
+
+    if (parent == NULL) {
+	XtErrorMsg("invalidParent",XtNxtCreatePopupShell,XtCXtToolkitError,
+		"XtCreatePopupShell requires non-NULL parent",
+		(String *)NULL, (Cardinal *)NULL);
+    } else if (widget_class == NULL) {
+	XtAppErrorMsg(XtWidgetToApplicationContext(parent),
+		"invalidClass",XtNxtCreatePopupShell,XtCXtToolkitError,
+		"XtCreatePopupShell requires non-NULL widget class",
+		(String *)NULL, (Cardinal *)NULL);
+    }
+    XtCheckSubclass(parent, coreWidgetClass, "in XtCreatePopupShell");
+    default_screen = parent->core.screen;
+    widget = xtCreate(name, (char *)NULL, widget_class, parent,
+		default_screen, args, num_args, typed_args,
+		num_typed_args, (ConstraintWidgetClass)NULL,
+		popupPostProc);
+
+#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT
+    XtAddEventHandler (widget, (EventMask) PropertyChangeMask, FALSE,
+		(XtEventHandler) _XtResourceConfigurationEH, NULL);
+#endif
+    return(widget);
+}
+
+Widget
+XtCreatePopupShell(
+    _Xconst char* name,
+    WidgetClass widget_class,
+    Widget      parent,
+    ArgList     args,
+    Cardinal    num_args
+    )
+{
+    Widget retval;
+    WIDGET_TO_APPCON(parent);
+
+    LOCK_APP(app);
+    retval = _XtCreatePopupShell((String)name, widget_class, parent, args,
+		num_args, (XtTypedArgList)NULL, (Cardinal)0);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+Widget
+_XtAppCreateShell(
+    String      name,
+    String      class,
+    WidgetClass widget_class,
+    Display*    display,
+    ArgList     args,
+    Cardinal    num_args,
+    XtTypedArgList typed_args,
+    Cardinal	num_typed_args)
+{
+    Widget shell;
+
+    if (widget_class == NULL) {
+	XtAppErrorMsg(XtDisplayToApplicationContext(display),
+		"invalidClass","xtAppCreateShell",XtCXtToolkitError,
+		"XtAppCreateShell requires non-NULL widget class",
+		(String *)NULL, (Cardinal *)NULL);
+    }
+    if (name == NULL)
+	name = XrmNameToString(_XtGetPerDisplay(display)->name);
+    shell = xtCreate(name, class, widget_class, (Widget)NULL,
+		(Screen*)DefaultScreenOfDisplay(display),
+		args, num_args, typed_args, num_typed_args,
+		(ConstraintWidgetClass) NULL, _XtAddShellToHookObj);
+
+#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT
+    XtAddEventHandler (shell, (EventMask) PropertyChangeMask, FALSE,
+		(XtEventHandler) _XtResourceConfigurationEH, NULL);
+#endif
+
+    return shell;
+}
+
+Widget
+XtAppCreateShell(
+    _Xconst char*       name,
+    _Xconst char*       class,
+    WidgetClass         widget_class,
+    Display             *display,
+    ArgList             args,
+    Cardinal            num_args
+    )
+{
+    Widget retval;
+    DPY_TO_APPCON(display);
+
+    LOCK_APP(app);
+    retval = _XtAppCreateShell((String)name, (String)class, widget_class,
+		display, args, num_args, (XtTypedArgList)NULL, (Cardinal)0);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+/* ARGSUSED */
+Widget
+XtCreateApplicationShell(
+    _Xconst char* name,		/* unused in R3 and later */
+    WidgetClass widget_class,
+    ArgList     args,
+    Cardinal    num_args
+    )
+{
+    Widget retval;
+    Display* dpy;
+    XrmClass class;
+    XtAppContext app = _XtDefaultAppContext();
+
+    LOCK_APP(app);
+    dpy = app->list[0];
+    class = _XtGetPerDisplay(dpy)->class;
+
+    retval = _XtAppCreateShell((String)NULL, XrmQuarkToString((XrmQuark)class),
+		widget_class, dpy, args, num_args,
+		(XtTypedArgList)NULL, (Cardinal)0);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+Widget
+_XtCreateHookObj(Screen* screen)
+{
+    Widget req_widget;
+    double widget_cache[100];
+    Cardinal wsize = 0;
+    Widget hookobj = xtWidgetAlloc(hookObjectClass,
+		(ConstraintWidgetClass)NULL,
+		(Widget)NULL, "hooks",
+		(ArgList)NULL, (Cardinal)0,
+		(XtTypedArgList)NULL, (Cardinal)0);
+
+    ((HookObject)hookobj)->hooks.screen = screen;
+    (void) _XtGetResources(hookobj, (ArgList)NULL, 0,
+		(XtTypedArgList)NULL, &wsize);
+    CompileCallbacks(hookobj);
+    wsize = hookObjectClass->core_class.widget_size;
+    req_widget = (Widget) XtStackAlloc(wsize, widget_cache);
+    (void) memmove ((char *) req_widget, (char *) hookobj, (int) wsize);
+    CallInitialize (hookObjectClass, req_widget, hookobj,
+		(ArgList)NULL, (Cardinal) 0);
+    XtStackFree((XtPointer)req_widget, widget_cache);
+    return hookobj;
+}
diff --git a/libXt/src/Destroy.c b/libXt/src/Destroy.c
index 89b6e6a21..e952bccc5 100644
--- a/libXt/src/Destroy.c
+++ b/libXt/src/Destroy.c
@@ -1,382 +1,382 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-

-struct _DestroyRec {

-    int dispatch_level;

-    Widget widget;

-};

-

-static void Recursive(Widget widget, XtWidgetProc proc)

-{

-    register Cardinal i;

-    CompositePart   *cwp;

-

-    /* Recurse down normal children */

-    if (XtIsComposite(widget)) {

-	cwp = &(((CompositeWidget) widget)->composite);

-	for (i = 0; i < cwp->num_children; i++) {

-	    Recursive(cwp->children[i], proc);

-	}

-    }

-

-    /* Recurse down popup children */

-    if (XtIsWidget(widget)) {

-	for (i = 0; i < widget->core.num_popups; i++) {

-	    Recursive(widget->core.popup_list[i], proc);

-	}

-    }

-

-    /* Finally, apply procedure to this widget */

-    (*proc) (widget);

-} /* Recursive */

-

-static void Phase1Destroy (Widget widget)

-{

-    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-

-    widget->core.being_destroyed = TRUE;

-    if (XtHasCallbacks(hookobj, XtNdestroyHook) == XtCallbackHasSome) {

-	XtDestroyHookDataRec call_data;

-

-	call_data.type = XtHdestroy;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.destroyhook_callbacks,

-		(XtPointer) &call_data);

-    }

-} /* Phase1Destroy */

-

-static void Phase2Callbacks(Widget widget)

-{

-    if (widget->core.destroy_callbacks != NULL) {

-	XtCallCallbackList(widget,

-			   widget->core.destroy_callbacks, (XtPointer) NULL);

-    }

-} /* Phase2Callbacks */

-

-static void Phase2Destroy(register Widget widget)

-{

-    register WidgetClass	    class;

-    register ConstraintWidgetClass  cwClass;

-    ObjectClassExtension	    ext;

-

-    /* Call constraint destroy procedures */

-    if (XtParent(widget) != NULL && !XtIsShell(widget) && XtIsConstraint(XtParent(widget))) {

-	LOCK_PROCESS;

-	cwClass = (ConstraintWidgetClass)XtParent(widget)->core.widget_class;

-	UNLOCK_PROCESS;

-	for (;;) {

-	    XtWidgetProc destroy;

-

-	    LOCK_PROCESS;

-	    destroy = cwClass->constraint_class.destroy;

-	    UNLOCK_PROCESS;

-	    if (destroy)

-		(*destroy) (widget);

-            if (cwClass == (ConstraintWidgetClass)constraintWidgetClass) break;

-	    LOCK_PROCESS;

-	    cwClass = (ConstraintWidgetClass) cwClass->core_class.superclass;

-	    UNLOCK_PROCESS;

-	}

-    }

-

-    /* Call widget destroy procedures */

-    LOCK_PROCESS;

-    for (class = widget->core.widget_class;

-	 class != NULL;

-	 class = class->core_class.superclass) {

-	XtWidgetProc destroy;

-

-	destroy = class->core_class.destroy;

-	UNLOCK_PROCESS;

-	if (destroy)

-	    (*destroy) (widget);

-	LOCK_PROCESS;

-    }

-

-    /* Call widget deallocate procedure */

-    ext = (ObjectClassExtension)

-	XtGetClassExtension(widget->core.widget_class,

-			    XtOffsetOf(CoreClassPart, extension),

-			    NULLQUARK, XtObjectExtensionVersion,

-			    sizeof(ObjectClassExtensionRec));

-    if (ext && ext->deallocate) {

-	XtDeallocateProc deallocate;

-	deallocate = ext->deallocate;

-	UNLOCK_PROCESS;

-	(*deallocate)(widget, NULL);

-    } else {

-	UNLOCK_PROCESS;

-	XtFree((char *)widget);

-    }

-} /* Phase2Destroy */

-

-static Boolean IsDescendant(Widget widget, Widget root)

-{

-    while ((widget = XtParent(widget)) != root) {

-	if (widget == NULL) return False;

-    }

-    return True;

-}

-

-static void XtPhase2Destroy (Widget widget)

-{

-    Display	    *display = NULL;

-    Window	    window;

-    Widget          parent;

-    XtAppContext    app = XtWidgetToApplicationContext(widget);

-    Widget	    outerInPhase2Destroy = app->in_phase2_destroy;

-    int		    starting_count = app->destroy_count;

-    Boolean	    isPopup = False;

-

-    /* invalidate focus trace cache for this display */

-    _XtGetPerDisplay(XtDisplayOfObject(widget))->pdi.traceDepth = 0;

-

-    parent = widget->core.parent;

-

-    if (parent && XtIsWidget(parent) && parent->core.num_popups) {

-	Cardinal i;

-	for (i = 0; i < parent->core.num_popups; i++) {

-	    if (parent->core.popup_list[i] == widget) {

-		isPopup = True;

-		break;

-	    }

-	}

-    }

-

-    if (!isPopup && parent && XtIsComposite(parent)) {

-	XtWidgetProc delete_child;

-

-	LOCK_PROCESS;

-	delete_child =

-	    ((CompositeWidgetClass) parent->core.widget_class)->

-		composite_class.delete_child;

-	UNLOCK_PROCESS;

-        if (XtIsRectObj(widget)) {

-       	    XtUnmanageChild(widget);

-        }

-	if (delete_child == NULL) {

-	    String param;

-	    Cardinal num_params = 1;

-

-	    LOCK_PROCESS;

-	    param = parent->core.widget_class->core_class.class_name;

-	    UNLOCK_PROCESS;

-	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"invalidProcedure","deleteChild",XtCXtToolkitError,

-		"null delete_child procedure for class %s in XtDestroy",

-		&param, &num_params);

-	} else {

-	    (*delete_child) (widget);

-	}

-    }

-

-    /* widget is freed in Phase2Destroy, so retrieve window now.

-     * Shells destroy their own windows, to prevent window leaks in

-     * popups; this test is practical only when XtIsShell() is cheap.

-     */

-    if (XtIsShell(widget) || !XtIsWidget(widget)) {

-	window = 0;

-    }

-    else {

-	display = XtDisplay(widget);

-	window = widget->core.window;

-    }

-

-    Recursive(widget, Phase2Callbacks);

-    if (app->destroy_count > starting_count) {

-	int i = starting_count;

-	while (i < app->destroy_count) {

-

-	    DestroyRec * dr = app->destroy_list + i;

-	    if (IsDescendant(dr->widget, widget)) {

-		Widget descendant = dr->widget;

-		register int j;

-		app->destroy_count--;

-		for (j = app->destroy_count - i; --j >= 0; dr++)

-		    *dr = *(dr + 1);

-		XtPhase2Destroy(descendant);

-	    }

-	    else i++;

-	}

-    }

-

-    app->in_phase2_destroy = widget;

-    Recursive(widget, Phase2Destroy);

-    app->in_phase2_destroy = outerInPhase2Destroy;

-

-    if (isPopup) {

-	Cardinal i;

-	for (i = 0; i < parent->core.num_popups; i++)

-	    if (parent->core.popup_list[i] == widget) {

-		parent->core.num_popups--;

-		while (i < parent->core.num_popups) {

-		    parent->core.popup_list[i] = parent->core.popup_list[i+1];

-		    i++;

-		}

-		break;

-	    }

-    }

-

-    /* %%% the following parent test hides a more serious problem,

-       but it avoids breaking those who depended on the old bug

-       until we have time to fix it properly. */

-

-    if (window && (parent == NULL || !parent->core.being_destroyed))

-	XDestroyWindow(display, window);

-} /* XtPhase2Destroy */

-

-

-void _XtDoPhase2Destroy(XtAppContext app, int dispatch_level)

-{

-    /* Phase 2 must occur in fifo order.  List is not necessarily

-     * contiguous in dispatch_level.

-     */

-

-    int i = 0;

-    while (i < app->destroy_count) {

-

-	/* XtPhase2Destroy can result in calls to XtDestroyWidget,

-	 * and these could cause app->destroy_list to be reallocated.

-	 */

-

-	DestroyRec* dr = app->destroy_list + i;

-	if (dr->dispatch_level >= dispatch_level)  {

-	    Widget w = dr->widget;

-	    register int j;

-	    app->destroy_count--;

-	    for (j = app->destroy_count - i; --j >=0; dr++)

-		*dr = *(dr + 1);

-	    XtPhase2Destroy(w);

-	}

-	else i++;

-    }

-}

-

-

-void XtDestroyWidget (Widget widget)

-{

-    XtAppContext app;

-    DestroyRec *dr, *dr2;

-

-    app = XtWidgetToApplicationContext(widget);

-    LOCK_APP(app);

-    if (widget->core.being_destroyed) {

-	UNLOCK_APP(app);

-	return;

-    }

-    Recursive(widget, Phase1Destroy);

-

-    if (app->in_phase2_destroy &&

-	IsDescendant(widget, app->in_phase2_destroy))

-    {

-	XtPhase2Destroy(widget);

-	UNLOCK_APP(app);

-	return;

-    }

-

-    if (app->destroy_count == app->destroy_list_size) {

-	app->destroy_list_size += 10;

-	app->destroy_list = (DestroyRec*)

-	    XtRealloc( (char*)app->destroy_list,

-		       (unsigned)sizeof(DestroyRec)*app->destroy_list_size

-		      );

-    }

-    dr = app->destroy_list + app->destroy_count++;

-    dr->dispatch_level = app->dispatch_level;

-    dr->widget = widget;

-

-    if (app->dispatch_level > 1) {

-	int i;

-	for (i = app->destroy_count - 1; i;) {

-	    /* this handles only one case of nesting difficulties */

- 	    dr = app->destroy_list + (--i);

- 	    if (dr->dispatch_level < app->dispatch_level &&

- 		IsDescendant(dr->widget, widget)) {

- 	        dr2 = app->destroy_list + (app->destroy_count-1);

- 		dr2->dispatch_level = dr->dispatch_level;

-  		break;

-  	    }

-  	}

-    }

-

-    if (_XtSafeToDestroy(app)) {

-	app->dispatch_level = 1; /* avoid nested _XtDoPhase2Destroy */

-	_XtDoPhase2Destroy(app, 0);

-	app->dispatch_level = 0;

-    }

-    UNLOCK_APP(app);

-

-} /* XtDestroyWidget */

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+
+struct _DestroyRec {
+    int dispatch_level;
+    Widget widget;
+};
+
+static void Recursive(Widget widget, XtWidgetProc proc)
+{
+    register Cardinal i;
+    CompositePart   *cwp;
+
+    /* Recurse down normal children */
+    if (XtIsComposite(widget)) {
+	cwp = &(((CompositeWidget) widget)->composite);
+	for (i = 0; i < cwp->num_children; i++) {
+	    Recursive(cwp->children[i], proc);
+	}
+    }
+
+    /* Recurse down popup children */
+    if (XtIsWidget(widget)) {
+	for (i = 0; i < widget->core.num_popups; i++) {
+	    Recursive(widget->core.popup_list[i], proc);
+	}
+    }
+
+    /* Finally, apply procedure to this widget */
+    (*proc) (widget);
+} /* Recursive */
+
+static void Phase1Destroy (Widget widget)
+{
+    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+
+    widget->core.being_destroyed = TRUE;
+    if (XtHasCallbacks(hookobj, XtNdestroyHook) == XtCallbackHasSome) {
+	XtDestroyHookDataRec call_data;
+
+	call_data.type = XtHdestroy;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.destroyhook_callbacks,
+		(XtPointer) &call_data);
+    }
+} /* Phase1Destroy */
+
+static void Phase2Callbacks(Widget widget)
+{
+    if (widget->core.destroy_callbacks != NULL) {
+	XtCallCallbackList(widget,
+			   widget->core.destroy_callbacks, (XtPointer) NULL);
+    }
+} /* Phase2Callbacks */
+
+static void Phase2Destroy(register Widget widget)
+{
+    register WidgetClass	    class;
+    register ConstraintWidgetClass  cwClass;
+    ObjectClassExtension	    ext;
+
+    /* Call constraint destroy procedures */
+    if (XtParent(widget) != NULL && !XtIsShell(widget) && XtIsConstraint(XtParent(widget))) {
+	LOCK_PROCESS;
+	cwClass = (ConstraintWidgetClass)XtParent(widget)->core.widget_class;
+	UNLOCK_PROCESS;
+	for (;;) {
+	    XtWidgetProc destroy;
+
+	    LOCK_PROCESS;
+	    destroy = cwClass->constraint_class.destroy;
+	    UNLOCK_PROCESS;
+	    if (destroy)
+		(*destroy) (widget);
+            if (cwClass == (ConstraintWidgetClass)constraintWidgetClass) break;
+	    LOCK_PROCESS;
+	    cwClass = (ConstraintWidgetClass) cwClass->core_class.superclass;
+	    UNLOCK_PROCESS;
+	}
+    }
+
+    /* Call widget destroy procedures */
+    LOCK_PROCESS;
+    for (class = widget->core.widget_class;
+	 class != NULL;
+	 class = class->core_class.superclass) {
+	XtWidgetProc destroy;
+
+	destroy = class->core_class.destroy;
+	UNLOCK_PROCESS;
+	if (destroy)
+	    (*destroy) (widget);
+	LOCK_PROCESS;
+    }
+
+    /* Call widget deallocate procedure */
+    ext = (ObjectClassExtension)
+	XtGetClassExtension(widget->core.widget_class,
+			    XtOffsetOf(CoreClassPart, extension),
+			    NULLQUARK, XtObjectExtensionVersion,
+			    sizeof(ObjectClassExtensionRec));
+    if (ext && ext->deallocate) {
+	XtDeallocateProc deallocate;
+	deallocate = ext->deallocate;
+	UNLOCK_PROCESS;
+	(*deallocate)(widget, NULL);
+    } else {
+	UNLOCK_PROCESS;
+	XtFree((char *)widget);
+    }
+} /* Phase2Destroy */
+
+static Boolean IsDescendant(Widget widget, Widget root)
+{
+    while ((widget = XtParent(widget)) != root) {
+	if (widget == NULL) return False;
+    }
+    return True;
+}
+
+static void XtPhase2Destroy (Widget widget)
+{
+    Display	    *display = NULL;
+    Window	    window;
+    Widget          parent;
+    XtAppContext    app = XtWidgetToApplicationContext(widget);
+    Widget	    outerInPhase2Destroy = app->in_phase2_destroy;
+    int		    starting_count = app->destroy_count;
+    Boolean	    isPopup = False;
+
+    /* invalidate focus trace cache for this display */
+    _XtGetPerDisplay(XtDisplayOfObject(widget))->pdi.traceDepth = 0;
+
+    parent = widget->core.parent;
+
+    if (parent && XtIsWidget(parent) && parent->core.num_popups) {
+	Cardinal i;
+	for (i = 0; i < parent->core.num_popups; i++) {
+	    if (parent->core.popup_list[i] == widget) {
+		isPopup = True;
+		break;
+	    }
+	}
+    }
+
+    if (!isPopup && parent && XtIsComposite(parent)) {
+	XtWidgetProc delete_child;
+
+	LOCK_PROCESS;
+	delete_child =
+	    ((CompositeWidgetClass) parent->core.widget_class)->
+		composite_class.delete_child;
+	UNLOCK_PROCESS;
+        if (XtIsRectObj(widget)) {
+       	    XtUnmanageChild(widget);
+        }
+	if (delete_child == NULL) {
+	    String param;
+	    Cardinal num_params = 1;
+
+	    LOCK_PROCESS;
+	    param = parent->core.widget_class->core_class.class_name;
+	    UNLOCK_PROCESS;
+	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"invalidProcedure","deleteChild",XtCXtToolkitError,
+		"null delete_child procedure for class %s in XtDestroy",
+		&param, &num_params);
+	} else {
+	    (*delete_child) (widget);
+	}
+    }
+
+    /* widget is freed in Phase2Destroy, so retrieve window now.
+     * Shells destroy their own windows, to prevent window leaks in
+     * popups; this test is practical only when XtIsShell() is cheap.
+     */
+    if (XtIsShell(widget) || !XtIsWidget(widget)) {
+	window = 0;
+    }
+    else {
+	display = XtDisplay(widget);
+	window = widget->core.window;
+    }
+
+    Recursive(widget, Phase2Callbacks);
+    if (app->destroy_count > starting_count) {
+	int i = starting_count;
+	while (i < app->destroy_count) {
+
+	    DestroyRec * dr = app->destroy_list + i;
+	    if (IsDescendant(dr->widget, widget)) {
+		Widget descendant = dr->widget;
+		register int j;
+		app->destroy_count--;
+		for (j = app->destroy_count - i; --j >= 0; dr++)
+		    *dr = *(dr + 1);
+		XtPhase2Destroy(descendant);
+	    }
+	    else i++;
+	}
+    }
+
+    app->in_phase2_destroy = widget;
+    Recursive(widget, Phase2Destroy);
+    app->in_phase2_destroy = outerInPhase2Destroy;
+
+    if (isPopup) {
+	Cardinal i;
+	for (i = 0; i < parent->core.num_popups; i++)
+	    if (parent->core.popup_list[i] == widget) {
+		parent->core.num_popups--;
+		while (i < parent->core.num_popups) {
+		    parent->core.popup_list[i] = parent->core.popup_list[i+1];
+		    i++;
+		}
+		break;
+	    }
+    }
+
+    /* %%% the following parent test hides a more serious problem,
+       but it avoids breaking those who depended on the old bug
+       until we have time to fix it properly. */
+
+    if (window && (parent == NULL || !parent->core.being_destroyed))
+	XDestroyWindow(display, window);
+} /* XtPhase2Destroy */
+
+
+void _XtDoPhase2Destroy(XtAppContext app, int dispatch_level)
+{
+    /* Phase 2 must occur in fifo order.  List is not necessarily
+     * contiguous in dispatch_level.
+     */
+
+    int i = 0;
+    while (i < app->destroy_count) {
+
+	/* XtPhase2Destroy can result in calls to XtDestroyWidget,
+	 * and these could cause app->destroy_list to be reallocated.
+	 */
+
+	DestroyRec* dr = app->destroy_list + i;
+	if (dr->dispatch_level >= dispatch_level)  {
+	    Widget w = dr->widget;
+	    register int j;
+	    app->destroy_count--;
+	    for (j = app->destroy_count - i; --j >=0; dr++)
+		*dr = *(dr + 1);
+	    XtPhase2Destroy(w);
+	}
+	else i++;
+    }
+}
+
+
+void XtDestroyWidget (Widget widget)
+{
+    XtAppContext app;
+    DestroyRec *dr, *dr2;
+
+    app = XtWidgetToApplicationContext(widget);
+    LOCK_APP(app);
+    if (widget->core.being_destroyed) {
+	UNLOCK_APP(app);
+	return;
+    }
+    Recursive(widget, Phase1Destroy);
+
+    if (app->in_phase2_destroy &&
+	IsDescendant(widget, app->in_phase2_destroy))
+    {
+	XtPhase2Destroy(widget);
+	UNLOCK_APP(app);
+	return;
+    }
+
+    if (app->destroy_count == app->destroy_list_size) {
+	app->destroy_list_size += 10;
+	app->destroy_list = (DestroyRec*)
+	    XtRealloc( (char*)app->destroy_list,
+		       (unsigned)sizeof(DestroyRec)*app->destroy_list_size
+		      );
+    }
+    dr = app->destroy_list + app->destroy_count++;
+    dr->dispatch_level = app->dispatch_level;
+    dr->widget = widget;
+
+    if (app->dispatch_level > 1) {
+	int i;
+	for (i = app->destroy_count - 1; i;) {
+	    /* this handles only one case of nesting difficulties */
+ 	    dr = app->destroy_list + (--i);
+ 	    if (dr->dispatch_level < app->dispatch_level &&
+ 		IsDescendant(dr->widget, widget)) {
+ 	        dr2 = app->destroy_list + (app->destroy_count-1);
+ 		dr2->dispatch_level = dr->dispatch_level;
+  		break;
+  	    }
+  	}
+    }
+
+    if (_XtSafeToDestroy(app)) {
+	app->dispatch_level = 1; /* avoid nested _XtDoPhase2Destroy */
+	_XtDoPhase2Destroy(app, 0);
+	app->dispatch_level = 0;
+    }
+    UNLOCK_APP(app);
+
+} /* XtDestroyWidget */
diff --git a/libXt/src/Display.c b/libXt/src/Display.c
index 06d3f030d..4ccf079ce 100644
--- a/libXt/src/Display.c
+++ b/libXt/src/Display.c
@@ -1,771 +1,771 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT

-#include "ResConfigP.h"

-#endif

-

-#include <stdlib.h>

-

-#ifdef XTHREADS

-void (*_XtProcessLock)(void) = NULL;

-void (*_XtProcessUnlock)(void) = NULL;

-void (*_XtInitAppLock)(XtAppContext) = NULL;

-#endif

-

-static String XtNnoPerDisplay = "noPerDisplay";

-

-ProcessContext _XtGetProcessContext(void)

-{

-    static ProcessContextRec processContextRec = {

-	(XtAppContext)NULL,

-	(XtAppContext)NULL,

-	(ConverterTable)NULL,

-	{(XtLanguageProc)NULL, (XtPointer)NULL}

-    };

-

-    return &processContextRec;

-}

-

-

-XtAppContext _XtDefaultAppContext(void)

-{

-    ProcessContext process = _XtGetProcessContext();

-    XtAppContext app;

-

-    LOCK_PROCESS;

-    if (process->defaultAppContext == NULL) {

-	process->defaultAppContext = XtCreateApplicationContext();

-    }

-    app = process->defaultAppContext;

-    UNLOCK_PROCESS;

-    return app;

-}

-

-static void AddToAppContext(

-	Display *d,

-	XtAppContext app)

-{

-#define DISPLAYS_TO_ADD 4

-

-	if (app->count >= app->max) {

-	    app->max += DISPLAYS_TO_ADD;

-	    app->list = (Display **) XtRealloc((char *)app->list,

-		    (unsigned) app->max * sizeof(Display *));

-	}

-

-	app->list[app->count++] = d;

-	app->rebuild_fdlist = TRUE;

-#ifndef USE_POLL

-	if (ConnectionNumber(d) + 1 > app->fds.nfds) {

-	    app->fds.nfds = ConnectionNumber(d) + 1;

-	}

-#else

-	app->fds.nfds++;

-#endif

-#undef DISPLAYS_TO_ADD

-}

-

-static void XtDeleteFromAppContext(

-	Display *d,

-	register XtAppContext app)

-{

-	register int i;

-

-	for (i = 0; i < app->count; i++) if (app->list[i] == d) break;

-

-	if (i < app->count) {

-	    if (i <= app->last && app->last > 0) app->last--;

-	    for (i++; i < app->count; i++) app->list[i-1] = app->list[i];

-	    app->count--;

-	}

-	app->rebuild_fdlist = TRUE;

-#ifndef USE_POLL

-	if ((ConnectionNumber(d) + 1) == app->fds.nfds)

-	    app->fds.nfds--;

-	else			/* Unnecessary, just to be fool-proof */

-	    FD_CLR(ConnectionNumber(d), &app->fds.rmask);

-#else

-	app->fds.nfds--;

-#endif

-}

-

-static XtPerDisplay NewPerDisplay(

-	Display *dpy)

-{

-	PerDisplayTablePtr pd;

-

-	pd = XtNew(PerDisplayTable);

-	LOCK_PROCESS;

-	pd->dpy = dpy;

-	pd->next = _XtperDisplayList;

-	_XtperDisplayList = pd;

-	UNLOCK_PROCESS;

-	return &(pd->perDpy);

-}

-

-static XtPerDisplay InitPerDisplay(

-    Display *dpy,

-    XtAppContext app,

-    _Xconst char * name,

-    _Xconst char * classname)

-{

-    XtPerDisplay pd;

-

-    AddToAppContext(dpy, app);

-

-    pd = NewPerDisplay(dpy);

-    _XtHeapInit(&pd->heap);

-    pd->destroy_callbacks = NULL;

-    pd->region = XCreateRegion();

-    pd->case_cvt = NULL;

-    pd->defaultKeycodeTranslator = XtTranslateKey;

-    pd->keysyms_serial = 0;

-    pd->keysyms = NULL;

-    XDisplayKeycodes(dpy, &pd->min_keycode, &pd->max_keycode);

-    pd->modKeysyms = NULL;

-    pd->modsToKeysyms = NULL;

-    pd->appContext = app;

-    pd->name = XrmStringToName(name);

-    pd->class = XrmStringToClass(classname);

-    pd->being_destroyed = False;

-    pd->GClist = NULL;

-    pd->pixmap_tab = NULL;

-    pd->language = NULL;

-    pd->rv = False;

-    pd->last_event.xany.serial = 0;

-    pd->last_timestamp = 0;

-    _XtAllocTMContext(pd);

-    pd->mapping_callbacks = NULL;

-

-    pd->pdi.grabList = NULL;

-    pd->pdi.trace = NULL;

-    pd->pdi.traceDepth = 0;

-    pd->pdi.traceMax = 0;

-    pd->pdi.focusWidget = NULL;

-    pd->pdi.activatingKey = 0;

-    pd->pdi.keyboard.grabType = XtNoServerGrab;

-    pd->pdi.pointer.grabType  = XtNoServerGrab;

-    _XtAllocWWTable(pd);

-    pd->per_screen_db = (XrmDatabase *)__XtCalloc(ScreenCount(dpy),

-						sizeof(XrmDatabase));

-    pd->cmd_db = (XrmDatabase)NULL;

-    pd->server_db = (XrmDatabase)NULL;

-    pd->dispatcher_list = NULL;

-    pd->ext_select_list = NULL;

-    pd->ext_select_count = 0;

-    pd->hook_object = NULL;

-#if 0

-    pd->hook_object = _XtCreate("hooks", "Hooks", hookObjectClass,

-	(Widget)NULL, (Screen*)DefaultScreenOfDisplay(dpy),

-	(ArgList)NULL, 0, (XtTypedArgList)NULL, 0,

-	(ConstraintWidgetClass)NULL);

-#endif

-

-#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT

-    pd->rcm_init = XInternAtom (dpy, RCM_INIT, 0);

-    pd->rcm_data = XInternAtom (dpy, RCM_DATA, 0);

-#endif

-

-    return pd;

-}

-

-Display *XtOpenDisplay(

-	XtAppContext app,

-	_Xconst char* displayName,

-	_Xconst char* applName,

-	_Xconst char* className,

-	XrmOptionDescRec *urlist,

-	Cardinal num_urs,

-	int *argc,

-	String *argv)

-{

-	Display *d;

-	XrmDatabase db = NULL;

-	XtPerDisplay pd;

-	String language = NULL;

-

-	LOCK_APP(app);

-	LOCK_PROCESS;

-	/* parse the command line for name, display, and/or language */

-	db = _XtPreparseCommandLine(urlist, num_urs, *argc, argv,

-				(String *)&applName,

-				(String *)(displayName ? NULL : &displayName),

-				(app->process->globalLangProcRec.proc ?

-				&language : NULL));

-	UNLOCK_PROCESS;

-	d = XOpenDisplay(displayName);

-

-	if (! applName && !(applName = getenv("RESOURCE_NAME"))) {

-	    if (*argc > 0 && argv[0] && *argv[0]) {

-#ifdef WIN32

-		char *ptr = strrchr(argv[0], '\\');

-#else

-		char *ptr = strrchr(argv[0], '/');

-#endif

-#ifdef __UNIXOS2__

-		char *dot_ptr,*ptr2;

-		ptr2 = strrchr(argv[0],'\\');

-		if (ptr2 > ptr) ptr = ptr2;

-		dot_ptr = strrchr(argv[0],'.');

-		if (dot_ptr && (dot_ptr > ptr)) *dot_ptr='\0';

-#endif  /* This will remove the .exe suffix under OS/2 */

-

-		if (ptr) applName = ++ptr;

-		else applName = argv[0];

-	    } else

-		applName = "main";

-	}

-

-	if (d) {

-	    pd = InitPerDisplay(d, app, applName, className);

-	    pd->language = language;

-	    _XtDisplayInitialize(d, pd, applName, urlist, num_urs, argc, argv);

-	} else {

-	    int len;

-	    displayName = XDisplayName(displayName);

-	    len = strlen (displayName);

-	    app->display_name_tried = (String) __XtMalloc (len + 1);

-	    strncpy ((char*) app->display_name_tried, displayName, len + 1);

-	    app->display_name_tried[len] = '\0';

-	}

-	if (db) XrmDestroyDatabase(db);

-	UNLOCK_APP(app);

-	return d;

-}

-

-Display *

-_XtAppInit(

-	XtAppContext * app_context_return,

-	String application_class,

-	XrmOptionDescRec *options,

-	Cardinal num_options,

-	int *argc_in_out,

-	String **argv_in_out,

-	String * fallback_resources)

-{

-    String *saved_argv;

-    int i;

-    Display *dpy;

-

-/*

- * Save away argv and argc so we can set the properties later

- */

-

-    saved_argv = (String *)

-	__XtMalloc( (Cardinal)((*argc_in_out + 1) * sizeof(String)) );

-

-    for (i = 0 ; i < *argc_in_out ; i++) saved_argv[i] = (*argv_in_out)[i];

-    saved_argv[i] = NULL;	/* NULL terminate that sucker. */

-

-

-    *app_context_return = XtCreateApplicationContext();

-

-    LOCK_APP((*app_context_return));

-    if (fallback_resources) /* save a procedure call */

-	XtAppSetFallbackResources(*app_context_return, fallback_resources);

-

-    dpy = XtOpenDisplay(*app_context_return, (String) NULL, NULL,

-			application_class,

-			options, num_options, argc_in_out, *argv_in_out);

-

-    if (!dpy) {

-	String param = (*app_context_return)->display_name_tried;

-	Cardinal param_count = 1;

-	XtErrorMsg("invalidDisplay","xtInitialize",XtCXtToolkitError,

-                   "Can't open display: %s", &param, &param_count);

-	XtFree((char *) (*app_context_return)->display_name_tried);

-    }

-    *argv_in_out = saved_argv;

-    UNLOCK_APP((*app_context_return));

-    return dpy;

-}

-

-void

-XtDisplayInitialize(

-	XtAppContext app,

-	Display *dpy,

-	_Xconst char* name,

-	_Xconst char* classname,

-	XrmOptionDescRec *urlist,

-	Cardinal num_urs,

-	int *argc,

-	String *argv

-	)

-{

-    XtPerDisplay pd;

-    XrmDatabase db = NULL;

-

-    LOCK_APP(app);

-    pd = InitPerDisplay(dpy, app, name, classname);

-    LOCK_PROCESS;

-    if (app->process->globalLangProcRec.proc)

-	/* pre-parse the command line for the language resource */

-	db = _XtPreparseCommandLine(urlist, num_urs, *argc, argv, NULL, NULL,

-				    &pd->language);

-    UNLOCK_PROCESS;

-    _XtDisplayInitialize(dpy, pd, name, urlist, num_urs, argc, argv);

-    if (db) XrmDestroyDatabase(db);

-    UNLOCK_APP(app);

-}

-

-XtAppContext XtCreateApplicationContext(void)

-{

-	XtAppContext app = XtNew(XtAppStruct);

-#ifdef XTHREADS

-	app->lock_info = NULL;

-	app->lock = NULL;

-	app->unlock = NULL;

-	app->yield_lock = NULL;

-	app->restore_lock = NULL;

-	app->free_lock = NULL;

-#endif

-	INIT_APP_LOCK(app);

-	LOCK_APP(app);

-	LOCK_PROCESS;

-	app->process = _XtGetProcessContext();

-	app->next = app->process->appContextList;

-	app->process->appContextList = app;

-	app->langProcRec.proc = app->process->globalLangProcRec.proc;

-	app->langProcRec.closure = app->process->globalLangProcRec.closure;

-	app->destroy_callbacks = NULL;

-	app->list = NULL;

-	app->count = app->max = app->last = 0;

-	app->timerQueue = NULL;

-	app->workQueue = NULL;

-	app->signalQueue = NULL;

-	app->input_list = NULL;

-	app->outstandingQueue = NULL;

-	app->errorDB = NULL;

-	_XtSetDefaultErrorHandlers(&app->errorMsgHandler,

-		&app->warningMsgHandler, &app->errorHandler,

-		&app->warningHandler);

-	app->action_table = NULL;

-	_XtSetDefaultSelectionTimeout(&app->selectionTimeout);

-	_XtSetDefaultConverterTable(&app->converterTable);

-	app->sync = app->being_destroyed = app->error_inited = FALSE;

-	app->in_phase2_destroy = NULL;

-#ifndef USE_POLL

-	FD_ZERO(&app->fds.rmask);

-	FD_ZERO(&app->fds.wmask);

-	FD_ZERO(&app->fds.emask);

-#endif

-	app->fds.nfds = 0;

-	app->input_count = app->input_max = 0;

-	_XtHeapInit(&app->heap);

-	app->fallback_resources = NULL;

-	_XtPopupInitialize(app);

-	app->action_hook_list = NULL;

-	app->block_hook_list = NULL;

-	app->destroy_list_size = app->destroy_count = app->dispatch_level = 0;

-	app->destroy_list = NULL;

-#ifndef NO_IDENTIFY_WINDOWS

-	app->identify_windows = False;

-#endif

-	app->free_bindings = NULL;

-	app->display_name_tried = NULL;

-	app->dpy_destroy_count = 0;

-	app->dpy_destroy_list = NULL;

-	app->exit_flag = FALSE;

-	app->rebuild_fdlist = TRUE;

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-	return app;

-}

-

-void XtAppSetExitFlag (

-    XtAppContext app)

-{

-    LOCK_APP(app);

-    app->exit_flag = TRUE;

-    UNLOCK_APP(app);

-}

-

-Boolean XtAppGetExitFlag (

-    XtAppContext app)

-{

-    Boolean retval;

-    LOCK_APP(app);

-    retval = app->exit_flag;

-    UNLOCK_APP(app);

-    return retval;

-}

-

-static void DestroyAppContext(XtAppContext app)

-{

-	XtAppContext* prev_app;

-

-	prev_app = &app->process->appContextList;

-	while (app->count-- > 0) XtCloseDisplay(app->list[app->count]);

-	if (app->list != NULL) XtFree((char *)app->list);

-	_XtFreeConverterTable(app->converterTable);

-	_XtCacheFlushTag(app, (XtPointer)&app->heap);

-	_XtFreeActions(app->action_table);

-	if (app->destroy_callbacks != NULL) {

-	    XtCallCallbackList((Widget) NULL,

-			       (XtCallbackList)app->destroy_callbacks,

-			       (XtPointer)app);

-	    _XtRemoveAllCallbacks(&app->destroy_callbacks);

-	}

-	while (app->timerQueue) XtRemoveTimeOut((XtIntervalId)app->timerQueue);

-	while (app->workQueue) XtRemoveWorkProc((XtWorkProcId)app->workQueue);

-	while (app->signalQueue) XtRemoveSignal((XtSignalId)app->signalQueue);

-	if (app->input_list) _XtRemoveAllInputs(app);

-	XtFree((char*)app->destroy_list);

-	_XtHeapFree(&app->heap);

-	while (*prev_app != app) prev_app = &(*prev_app)->next;

-	*prev_app = app->next;

-	if (app->process->defaultAppContext == app)

-	    app->process->defaultAppContext = NULL;

-	if (app->free_bindings) _XtDoFreeBindings (app);

-	FREE_APP_LOCK(app);

-	XtFree((char *)app);

-}

-

-static XtAppContext* appDestroyList = NULL;

-int _XtAppDestroyCount = 0;

-

-void XtDestroyApplicationContext(XtAppContext app)

-{

-	LOCK_APP(app);

-	if (app->being_destroyed) {

-	    UNLOCK_APP(app);

-	    return;

-	}

-

-	if (_XtSafeToDestroy(app)) {

-	    LOCK_PROCESS;

-	    DestroyAppContext(app);

-	    UNLOCK_PROCESS;

-	} else {

-	    app->being_destroyed = TRUE;

-	    LOCK_PROCESS;

-	    _XtAppDestroyCount++;

-	    appDestroyList =

-		    (XtAppContext *) XtRealloc((char *) appDestroyList,

-		    (unsigned) (_XtAppDestroyCount * sizeof(XtAppContext)));

-	    appDestroyList[_XtAppDestroyCount-1] = app;

-	    UNLOCK_PROCESS;

-	    UNLOCK_APP(app);

-	}

-}

-

-void _XtDestroyAppContexts(void)

-{

-	int i,ii;

-	XtAppContext apps[8];

-	XtAppContext* pApps;

-

-	pApps = XtStackAlloc (sizeof (XtAppContext) * _XtAppDestroyCount, apps);

-

-	for (i = ii = 0; i < _XtAppDestroyCount; i++) {

-	    if (_XtSafeToDestroy(appDestroyList[i]))

-		DestroyAppContext(appDestroyList[i]);

-	    else

-		pApps[ii++] = appDestroyList[i];

-	}

-	_XtAppDestroyCount = ii;

-	if (_XtAppDestroyCount == 0) {

-	    XtFree((char *) appDestroyList);

-	    appDestroyList = NULL;

-	} else {

-	    for (i = 0; i < ii; i++)

-		appDestroyList[i] = pApps[i];

-	}

-	XtStackFree ((XtPointer) pApps, apps);

-}

-

-XrmDatabase XtDatabase(Display *dpy)

-{

-    XrmDatabase retval;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    retval = XrmGetDatabase(dpy);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-PerDisplayTablePtr _XtperDisplayList = NULL;

-

-XtPerDisplay _XtSortPerDisplayList(Display *dpy)

-{

-	register PerDisplayTablePtr pd, opd = NULL;

-

-	LOCK_PROCESS;

-	for (pd = _XtperDisplayList;

-	     pd != NULL && pd->dpy != dpy;

-	     pd = pd->next) {

-	    opd = pd;

-	}

-

-	if (pd == NULL) {

-	    XtErrorMsg(XtNnoPerDisplay, "getPerDisplay", XtCXtToolkitError,

-		    "Couldn't find per display information",

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

-	}

-

-	if (pd != _XtperDisplayList) {	/* move it to the front */

-	    /* opd points to the previous one... */

-

-	    opd->next = pd->next;

-	    pd->next = _XtperDisplayList;

-	    _XtperDisplayList = pd;

-	}

-	UNLOCK_PROCESS;

-	return &(pd->perDpy);

-}

-

-XtAppContext XtDisplayToApplicationContext(Display *dpy)

-{

-	XtAppContext retval;

-

-	retval = _XtGetPerDisplay(dpy)->appContext;

-	return retval;

-}

-

-static void CloseDisplay(Display *dpy)

-{

-        register XtPerDisplay xtpd;

-	register PerDisplayTablePtr pd, opd = NULL;

-	XrmDatabase db;

-	int i;

-

-	XtDestroyWidget(XtHooksOfDisplay(dpy));

-

-	LOCK_PROCESS;

-	for (pd = _XtperDisplayList;

-	     pd != NULL && pd->dpy != dpy;

-	     pd = pd->next){

-	    opd = pd;

-	}

-

-	if (pd == NULL) {

-	    XtErrorMsg(XtNnoPerDisplay, "closeDisplay", XtCXtToolkitError,

-		    "Couldn't find per display information",

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

-	}

-

-	if (pd == _XtperDisplayList) _XtperDisplayList = pd->next;

-	else opd->next = pd->next;

-

-	xtpd = &(pd->perDpy);

-

-        if (xtpd != NULL) {

-	    if (xtpd->destroy_callbacks != NULL) {

-		XtCallCallbackList((Widget) NULL,

-				   (XtCallbackList)xtpd->destroy_callbacks,

-				   (XtPointer)xtpd);

-		_XtRemoveAllCallbacks(&xtpd->destroy_callbacks);

-	    }

-	    if (xtpd->mapping_callbacks != NULL)

-		_XtRemoveAllCallbacks(&xtpd->mapping_callbacks);

-	    XtDeleteFromAppContext(dpy, xtpd->appContext);

-	    if (xtpd->keysyms)

-		XFree((char *) xtpd->keysyms);

-            XtFree((char *) xtpd->modKeysyms);

-            XtFree((char *) xtpd->modsToKeysyms);

-            xtpd->keysyms_per_keycode = 0;

-            xtpd->being_destroyed = FALSE;

-            xtpd->keysyms = NULL;

-            xtpd->modKeysyms = NULL;

-            xtpd->modsToKeysyms = NULL;

-	    XDestroyRegion(xtpd->region);

-	    _XtCacheFlushTag(xtpd->appContext, (XtPointer)&xtpd->heap);

-	    _XtGClistFree(dpy, xtpd);

-	    XtFree((char*)xtpd->pdi.trace);

-	    _XtHeapFree(&xtpd->heap);

-	    _XtFreeWWTable(xtpd);

-	    xtpd->per_screen_db[DefaultScreen(dpy)] = (XrmDatabase)NULL;

-	    for (i = ScreenCount(dpy); --i >= 0; ) {

-		db = xtpd->per_screen_db[i];

-		if (db)

-		    XrmDestroyDatabase(db);

-	    }

-	    XtFree((char *)xtpd->per_screen_db);

-	    if ((db = XrmGetDatabase(dpy)))

-		XrmDestroyDatabase(db);

-	    if (xtpd->cmd_db)

-		XrmDestroyDatabase(xtpd->cmd_db);

-	    if (xtpd->server_db)

-		XrmDestroyDatabase(xtpd->server_db);

-	    XtFree(xtpd->language);

-	    if (xtpd->dispatcher_list != NULL)

-		XtFree((char *) xtpd->dispatcher_list);

-	    if (xtpd->ext_select_list != NULL)

-		XtFree((char *) xtpd->ext_select_list);

-        }

-	XtFree((char*)pd);

-	XrmSetDatabase(dpy, (XrmDatabase)NULL);

-	XCloseDisplay(dpy);

-	UNLOCK_PROCESS;

-}

-

-void XtCloseDisplay(Display *dpy)

-{

-	XtPerDisplay pd;

-	XtAppContext app = XtDisplayToApplicationContext(dpy);

-

-	LOCK_APP(app);

-	pd = _XtGetPerDisplay(dpy);

-	if (pd->being_destroyed) {

-	    UNLOCK_APP(app);

-	    return;

-	}

-

-	if (_XtSafeToDestroy(app)) CloseDisplay(dpy);

-	else {

-	    pd->being_destroyed = TRUE;

-	    app->dpy_destroy_count++;

-	    app->dpy_destroy_list = (Display **)

-		XtRealloc((char *) app->dpy_destroy_list,

-		    (unsigned) (app->dpy_destroy_count * sizeof(Display *)));

-	    app->dpy_destroy_list[app->dpy_destroy_count-1] = dpy;

-	}

-	UNLOCK_APP(app);

-}

-

-void _XtCloseDisplays(XtAppContext app)

-{

-	int i;

-

-	LOCK_APP(app);

-	for (i = 0; i < app->dpy_destroy_count; i++) {

-	    CloseDisplay(app->dpy_destroy_list[i]);

-	}

-	app->dpy_destroy_count = 0;

-	XtFree((char *) app->dpy_destroy_list);

-	app->dpy_destroy_list = NULL;

-	UNLOCK_APP(app);

-}

-

-XtAppContext XtWidgetToApplicationContext(Widget w)

-{

-	XtAppContext retval;

-

-	retval = _XtGetPerDisplay(XtDisplayOfObject(w))->appContext;

-	return retval;

-}

-

-

-void XtGetApplicationNameAndClass(

-    Display *dpy,

-    String *name_return,

-    String *class_return)

-{

-    XtPerDisplay pd;

-

-    pd = _XtGetPerDisplay(dpy);

-    *name_return = XrmQuarkToString(pd->name);

-    *class_return = XrmQuarkToString(pd->class);

-}

-

-XtPerDisplay _XtGetPerDisplay (Display* display)

-{

-    XtPerDisplay retval;

-

-    LOCK_PROCESS;

-    retval = ((_XtperDisplayList != NULL &&

-	      _XtperDisplayList->dpy == display)

-	      ? &_XtperDisplayList->perDpy

-	      : _XtSortPerDisplayList(display));

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-XtPerDisplayInputRec* _XtGetPerDisplayInput(Display* display)

-{

-    XtPerDisplayInputRec* retval;

-    LOCK_PROCESS;

-    retval = ((_XtperDisplayList != NULL &&

-	      _XtperDisplayList->dpy == display)

-	      ? &_XtperDisplayList->perDpy.pdi

-	      : &_XtSortPerDisplayList(display)->pdi);

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-void XtGetDisplays(

-    XtAppContext app_context,

-    Display*** dpy_return,

-    Cardinal* num_dpy_return)

-{

-    int ii;

-    LOCK_APP(app_context);

-    *num_dpy_return = app_context->count;

-    *dpy_return = (Display**)__XtMalloc(app_context->count * sizeof(Display*));

-    for (ii = 0; ii < app_context->count; ii++)

-	(*dpy_return)[ii] = app_context->list[ii];

-    UNLOCK_APP(app_context);

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT
+#include "ResConfigP.h"
+#endif
+
+#include <stdlib.h>
+
+#ifdef XTHREADS
+void (*_XtProcessLock)(void) = NULL;
+void (*_XtProcessUnlock)(void) = NULL;
+void (*_XtInitAppLock)(XtAppContext) = NULL;
+#endif
+
+static String XtNnoPerDisplay = "noPerDisplay";
+
+ProcessContext _XtGetProcessContext(void)
+{
+    static ProcessContextRec processContextRec = {
+	(XtAppContext)NULL,
+	(XtAppContext)NULL,
+	(ConverterTable)NULL,
+	{(XtLanguageProc)NULL, (XtPointer)NULL}
+    };
+
+    return &processContextRec;
+}
+
+
+XtAppContext _XtDefaultAppContext(void)
+{
+    ProcessContext process = _XtGetProcessContext();
+    XtAppContext app;
+
+    LOCK_PROCESS;
+    if (process->defaultAppContext == NULL) {
+	process->defaultAppContext = XtCreateApplicationContext();
+    }
+    app = process->defaultAppContext;
+    UNLOCK_PROCESS;
+    return app;
+}
+
+static void AddToAppContext(
+	Display *d,
+	XtAppContext app)
+{
+#define DISPLAYS_TO_ADD 4
+
+	if (app->count >= app->max) {
+	    app->max += DISPLAYS_TO_ADD;
+	    app->list = (Display **) XtRealloc((char *)app->list,
+		    (unsigned) app->max * sizeof(Display *));
+	}
+
+	app->list[app->count++] = d;
+	app->rebuild_fdlist = TRUE;
+#ifndef USE_POLL
+	if (ConnectionNumber(d) + 1 > app->fds.nfds) {
+	    app->fds.nfds = ConnectionNumber(d) + 1;
+	}
+#else
+	app->fds.nfds++;
+#endif
+#undef DISPLAYS_TO_ADD
+}
+
+static void XtDeleteFromAppContext(
+	Display *d,
+	register XtAppContext app)
+{
+	register int i;
+
+	for (i = 0; i < app->count; i++) if (app->list[i] == d) break;
+
+	if (i < app->count) {
+	    if (i <= app->last && app->last > 0) app->last--;
+	    for (i++; i < app->count; i++) app->list[i-1] = app->list[i];
+	    app->count--;
+	}
+	app->rebuild_fdlist = TRUE;
+#ifndef USE_POLL
+	if ((ConnectionNumber(d) + 1) == app->fds.nfds)
+	    app->fds.nfds--;
+	else			/* Unnecessary, just to be fool-proof */
+	    FD_CLR(ConnectionNumber(d), &app->fds.rmask);
+#else
+	app->fds.nfds--;
+#endif
+}
+
+static XtPerDisplay NewPerDisplay(
+	Display *dpy)
+{
+	PerDisplayTablePtr pd;
+
+	pd = XtNew(PerDisplayTable);
+	LOCK_PROCESS;
+	pd->dpy = dpy;
+	pd->next = _XtperDisplayList;
+	_XtperDisplayList = pd;
+	UNLOCK_PROCESS;
+	return &(pd->perDpy);
+}
+
+static XtPerDisplay InitPerDisplay(
+    Display *dpy,
+    XtAppContext app,
+    _Xconst char * name,
+    _Xconst char * classname)
+{
+    XtPerDisplay pd;
+
+    AddToAppContext(dpy, app);
+
+    pd = NewPerDisplay(dpy);
+    _XtHeapInit(&pd->heap);
+    pd->destroy_callbacks = NULL;
+    pd->region = XCreateRegion();
+    pd->case_cvt = NULL;
+    pd->defaultKeycodeTranslator = XtTranslateKey;
+    pd->keysyms_serial = 0;
+    pd->keysyms = NULL;
+    XDisplayKeycodes(dpy, &pd->min_keycode, &pd->max_keycode);
+    pd->modKeysyms = NULL;
+    pd->modsToKeysyms = NULL;
+    pd->appContext = app;
+    pd->name = XrmStringToName(name);
+    pd->class = XrmStringToClass(classname);
+    pd->being_destroyed = False;
+    pd->GClist = NULL;
+    pd->pixmap_tab = NULL;
+    pd->language = NULL;
+    pd->rv = False;
+    pd->last_event.xany.serial = 0;
+    pd->last_timestamp = 0;
+    _XtAllocTMContext(pd);
+    pd->mapping_callbacks = NULL;
+
+    pd->pdi.grabList = NULL;
+    pd->pdi.trace = NULL;
+    pd->pdi.traceDepth = 0;
+    pd->pdi.traceMax = 0;
+    pd->pdi.focusWidget = NULL;
+    pd->pdi.activatingKey = 0;
+    pd->pdi.keyboard.grabType = XtNoServerGrab;
+    pd->pdi.pointer.grabType  = XtNoServerGrab;
+    _XtAllocWWTable(pd);
+    pd->per_screen_db = (XrmDatabase *)__XtCalloc(ScreenCount(dpy),
+						sizeof(XrmDatabase));
+    pd->cmd_db = (XrmDatabase)NULL;
+    pd->server_db = (XrmDatabase)NULL;
+    pd->dispatcher_list = NULL;
+    pd->ext_select_list = NULL;
+    pd->ext_select_count = 0;
+    pd->hook_object = NULL;
+#if 0
+    pd->hook_object = _XtCreate("hooks", "Hooks", hookObjectClass,
+	(Widget)NULL, (Screen*)DefaultScreenOfDisplay(dpy),
+	(ArgList)NULL, 0, (XtTypedArgList)NULL, 0,
+	(ConstraintWidgetClass)NULL);
+#endif
+
+#ifndef X_NO_RESOURCE_CONFIGURATION_MANAGEMENT
+    pd->rcm_init = XInternAtom (dpy, RCM_INIT, 0);
+    pd->rcm_data = XInternAtom (dpy, RCM_DATA, 0);
+#endif
+
+    return pd;
+}
+
+Display *XtOpenDisplay(
+	XtAppContext app,
+	_Xconst char* displayName,
+	_Xconst char* applName,
+	_Xconst char* className,
+	XrmOptionDescRec *urlist,
+	Cardinal num_urs,
+	int *argc,
+	String *argv)
+{
+	Display *d;
+	XrmDatabase db = NULL;
+	XtPerDisplay pd;
+	String language = NULL;
+
+	LOCK_APP(app);
+	LOCK_PROCESS;
+	/* parse the command line for name, display, and/or language */
+	db = _XtPreparseCommandLine(urlist, num_urs, *argc, argv,
+				(String *)&applName,
+				(String *)(displayName ? NULL : &displayName),
+				(app->process->globalLangProcRec.proc ?
+				&language : NULL));
+	UNLOCK_PROCESS;
+	d = XOpenDisplay(displayName);
+
+	if (! applName && !(applName = getenv("RESOURCE_NAME"))) {
+	    if (*argc > 0 && argv[0] && *argv[0]) {
+#ifdef WIN32
+		char *ptr = strrchr(argv[0], '\\');
+#else
+		char *ptr = strrchr(argv[0], '/');
+#endif
+#ifdef __UNIXOS2__
+		char *dot_ptr,*ptr2;
+		ptr2 = strrchr(argv[0],'\\');
+		if (ptr2 > ptr) ptr = ptr2;
+		dot_ptr = strrchr(argv[0],'.');
+		if (dot_ptr && (dot_ptr > ptr)) *dot_ptr='\0';
+#endif  /* This will remove the .exe suffix under OS/2 */
+
+		if (ptr) applName = ++ptr;
+		else applName = argv[0];
+	    } else
+		applName = "main";
+	}
+
+	if (d) {
+	    pd = InitPerDisplay(d, app, applName, className);
+	    pd->language = language;
+	    _XtDisplayInitialize(d, pd, applName, urlist, num_urs, argc, argv);
+	} else {
+	    int len;
+	    displayName = XDisplayName(displayName);
+	    len = strlen (displayName);
+	    app->display_name_tried = (String) __XtMalloc (len + 1);
+	    strncpy ((char*) app->display_name_tried, displayName, len + 1);
+	    app->display_name_tried[len] = '\0';
+	}
+	if (db) XrmDestroyDatabase(db);
+	UNLOCK_APP(app);
+	return d;
+}
+
+Display *
+_XtAppInit(
+	XtAppContext * app_context_return,
+	String application_class,
+	XrmOptionDescRec *options,
+	Cardinal num_options,
+	int *argc_in_out,
+	String **argv_in_out,
+	String * fallback_resources)
+{
+    String *saved_argv;
+    int i;
+    Display *dpy;
+
+/*
+ * Save away argv and argc so we can set the properties later
+ */
+
+    saved_argv = (String *)
+	__XtMalloc( (Cardinal)((*argc_in_out + 1) * sizeof(String)) );
+
+    for (i = 0 ; i < *argc_in_out ; i++) saved_argv[i] = (*argv_in_out)[i];
+    saved_argv[i] = NULL;	/* NULL terminate that sucker. */
+
+
+    *app_context_return = XtCreateApplicationContext();
+
+    LOCK_APP((*app_context_return));
+    if (fallback_resources) /* save a procedure call */
+	XtAppSetFallbackResources(*app_context_return, fallback_resources);
+
+    dpy = XtOpenDisplay(*app_context_return, (String) NULL, NULL,
+			application_class,
+			options, num_options, argc_in_out, *argv_in_out);
+
+    if (!dpy) {
+	String param = (*app_context_return)->display_name_tried;
+	Cardinal param_count = 1;
+	XtErrorMsg("invalidDisplay","xtInitialize",XtCXtToolkitError,
+                   "Can't open display: %s", &param, &param_count);
+	XtFree((char *) (*app_context_return)->display_name_tried);
+    }
+    *argv_in_out = saved_argv;
+    UNLOCK_APP((*app_context_return));
+    return dpy;
+}
+
+void
+XtDisplayInitialize(
+	XtAppContext app,
+	Display *dpy,
+	_Xconst char* name,
+	_Xconst char* classname,
+	XrmOptionDescRec *urlist,
+	Cardinal num_urs,
+	int *argc,
+	String *argv
+	)
+{
+    XtPerDisplay pd;
+    XrmDatabase db = NULL;
+
+    LOCK_APP(app);
+    pd = InitPerDisplay(dpy, app, name, classname);
+    LOCK_PROCESS;
+    if (app->process->globalLangProcRec.proc)
+	/* pre-parse the command line for the language resource */
+	db = _XtPreparseCommandLine(urlist, num_urs, *argc, argv, NULL, NULL,
+				    &pd->language);
+    UNLOCK_PROCESS;
+    _XtDisplayInitialize(dpy, pd, name, urlist, num_urs, argc, argv);
+    if (db) XrmDestroyDatabase(db);
+    UNLOCK_APP(app);
+}
+
+XtAppContext XtCreateApplicationContext(void)
+{
+	XtAppContext app = XtNew(XtAppStruct);
+#ifdef XTHREADS
+	app->lock_info = NULL;
+	app->lock = NULL;
+	app->unlock = NULL;
+	app->yield_lock = NULL;
+	app->restore_lock = NULL;
+	app->free_lock = NULL;
+#endif
+	INIT_APP_LOCK(app);
+	LOCK_APP(app);
+	LOCK_PROCESS;
+	app->process = _XtGetProcessContext();
+	app->next = app->process->appContextList;
+	app->process->appContextList = app;
+	app->langProcRec.proc = app->process->globalLangProcRec.proc;
+	app->langProcRec.closure = app->process->globalLangProcRec.closure;
+	app->destroy_callbacks = NULL;
+	app->list = NULL;
+	app->count = app->max = app->last = 0;
+	app->timerQueue = NULL;
+	app->workQueue = NULL;
+	app->signalQueue = NULL;
+	app->input_list = NULL;
+	app->outstandingQueue = NULL;
+	app->errorDB = NULL;
+	_XtSetDefaultErrorHandlers(&app->errorMsgHandler,
+		&app->warningMsgHandler, &app->errorHandler,
+		&app->warningHandler);
+	app->action_table = NULL;
+	_XtSetDefaultSelectionTimeout(&app->selectionTimeout);
+	_XtSetDefaultConverterTable(&app->converterTable);
+	app->sync = app->being_destroyed = app->error_inited = FALSE;
+	app->in_phase2_destroy = NULL;
+#ifndef USE_POLL
+	FD_ZERO(&app->fds.rmask);
+	FD_ZERO(&app->fds.wmask);
+	FD_ZERO(&app->fds.emask);
+#endif
+	app->fds.nfds = 0;
+	app->input_count = app->input_max = 0;
+	_XtHeapInit(&app->heap);
+	app->fallback_resources = NULL;
+	_XtPopupInitialize(app);
+	app->action_hook_list = NULL;
+	app->block_hook_list = NULL;
+	app->destroy_list_size = app->destroy_count = app->dispatch_level = 0;
+	app->destroy_list = NULL;
+#ifndef NO_IDENTIFY_WINDOWS
+	app->identify_windows = False;
+#endif
+	app->free_bindings = NULL;
+	app->display_name_tried = NULL;
+	app->dpy_destroy_count = 0;
+	app->dpy_destroy_list = NULL;
+	app->exit_flag = FALSE;
+	app->rebuild_fdlist = TRUE;
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+	return app;
+}
+
+void XtAppSetExitFlag (
+    XtAppContext app)
+{
+    LOCK_APP(app);
+    app->exit_flag = TRUE;
+    UNLOCK_APP(app);
+}
+
+Boolean XtAppGetExitFlag (
+    XtAppContext app)
+{
+    Boolean retval;
+    LOCK_APP(app);
+    retval = app->exit_flag;
+    UNLOCK_APP(app);
+    return retval;
+}
+
+static void DestroyAppContext(XtAppContext app)
+{
+	XtAppContext* prev_app;
+
+	prev_app = &app->process->appContextList;
+	while (app->count-- > 0) XtCloseDisplay(app->list[app->count]);
+	if (app->list != NULL) XtFree((char *)app->list);
+	_XtFreeConverterTable(app->converterTable);
+	_XtCacheFlushTag(app, (XtPointer)&app->heap);
+	_XtFreeActions(app->action_table);
+	if (app->destroy_callbacks != NULL) {
+	    XtCallCallbackList((Widget) NULL,
+			       (XtCallbackList)app->destroy_callbacks,
+			       (XtPointer)app);
+	    _XtRemoveAllCallbacks(&app->destroy_callbacks);
+	}
+	while (app->timerQueue) XtRemoveTimeOut((XtIntervalId)app->timerQueue);
+	while (app->workQueue) XtRemoveWorkProc((XtWorkProcId)app->workQueue);
+	while (app->signalQueue) XtRemoveSignal((XtSignalId)app->signalQueue);
+	if (app->input_list) _XtRemoveAllInputs(app);
+	XtFree((char*)app->destroy_list);
+	_XtHeapFree(&app->heap);
+	while (*prev_app != app) prev_app = &(*prev_app)->next;
+	*prev_app = app->next;
+	if (app->process->defaultAppContext == app)
+	    app->process->defaultAppContext = NULL;
+	if (app->free_bindings) _XtDoFreeBindings (app);
+	FREE_APP_LOCK(app);
+	XtFree((char *)app);
+}
+
+static XtAppContext* appDestroyList = NULL;
+int _XtAppDestroyCount = 0;
+
+void XtDestroyApplicationContext(XtAppContext app)
+{
+	LOCK_APP(app);
+	if (app->being_destroyed) {
+	    UNLOCK_APP(app);
+	    return;
+	}
+
+	if (_XtSafeToDestroy(app)) {
+	    LOCK_PROCESS;
+	    DestroyAppContext(app);
+	    UNLOCK_PROCESS;
+	} else {
+	    app->being_destroyed = TRUE;
+	    LOCK_PROCESS;
+	    _XtAppDestroyCount++;
+	    appDestroyList =
+		    (XtAppContext *) XtRealloc((char *) appDestroyList,
+		    (unsigned) (_XtAppDestroyCount * sizeof(XtAppContext)));
+	    appDestroyList[_XtAppDestroyCount-1] = app;
+	    UNLOCK_PROCESS;
+	    UNLOCK_APP(app);
+	}
+}
+
+void _XtDestroyAppContexts(void)
+{
+	int i,ii;
+	XtAppContext apps[8];
+	XtAppContext* pApps;
+
+	pApps = XtStackAlloc (sizeof (XtAppContext) * _XtAppDestroyCount, apps);
+
+	for (i = ii = 0; i < _XtAppDestroyCount; i++) {
+	    if (_XtSafeToDestroy(appDestroyList[i]))
+		DestroyAppContext(appDestroyList[i]);
+	    else
+		pApps[ii++] = appDestroyList[i];
+	}
+	_XtAppDestroyCount = ii;
+	if (_XtAppDestroyCount == 0) {
+	    XtFree((char *) appDestroyList);
+	    appDestroyList = NULL;
+	} else {
+	    for (i = 0; i < ii; i++)
+		appDestroyList[i] = pApps[i];
+	}
+	XtStackFree ((XtPointer) pApps, apps);
+}
+
+XrmDatabase XtDatabase(Display *dpy)
+{
+    XrmDatabase retval;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    retval = XrmGetDatabase(dpy);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+PerDisplayTablePtr _XtperDisplayList = NULL;
+
+XtPerDisplay _XtSortPerDisplayList(Display *dpy)
+{
+	register PerDisplayTablePtr pd, opd = NULL;
+
+	LOCK_PROCESS;
+	for (pd = _XtperDisplayList;
+	     pd != NULL && pd->dpy != dpy;
+	     pd = pd->next) {
+	    opd = pd;
+	}
+
+	if (pd == NULL) {
+	    XtErrorMsg(XtNnoPerDisplay, "getPerDisplay", XtCXtToolkitError,
+		    "Couldn't find per display information",
+		    (String *) NULL, (Cardinal *)NULL);
+	}
+
+	if (pd != _XtperDisplayList) {	/* move it to the front */
+	    /* opd points to the previous one... */
+
+	    opd->next = pd->next;
+	    pd->next = _XtperDisplayList;
+	    _XtperDisplayList = pd;
+	}
+	UNLOCK_PROCESS;
+	return &(pd->perDpy);
+}
+
+XtAppContext XtDisplayToApplicationContext(Display *dpy)
+{
+	XtAppContext retval;
+
+	retval = _XtGetPerDisplay(dpy)->appContext;
+	return retval;
+}
+
+static void CloseDisplay(Display *dpy)
+{
+        register XtPerDisplay xtpd;
+	register PerDisplayTablePtr pd, opd = NULL;
+	XrmDatabase db;
+	int i;
+
+	XtDestroyWidget(XtHooksOfDisplay(dpy));
+
+	LOCK_PROCESS;
+	for (pd = _XtperDisplayList;
+	     pd != NULL && pd->dpy != dpy;
+	     pd = pd->next){
+	    opd = pd;
+	}
+
+	if (pd == NULL) {
+	    XtErrorMsg(XtNnoPerDisplay, "closeDisplay", XtCXtToolkitError,
+		    "Couldn't find per display information",
+		    (String *) NULL, (Cardinal *)NULL);
+	}
+
+	if (pd == _XtperDisplayList) _XtperDisplayList = pd->next;
+	else opd->next = pd->next;
+
+	xtpd = &(pd->perDpy);
+
+        if (xtpd != NULL) {
+	    if (xtpd->destroy_callbacks != NULL) {
+		XtCallCallbackList((Widget) NULL,
+				   (XtCallbackList)xtpd->destroy_callbacks,
+				   (XtPointer)xtpd);
+		_XtRemoveAllCallbacks(&xtpd->destroy_callbacks);
+	    }
+	    if (xtpd->mapping_callbacks != NULL)
+		_XtRemoveAllCallbacks(&xtpd->mapping_callbacks);
+	    XtDeleteFromAppContext(dpy, xtpd->appContext);
+	    if (xtpd->keysyms)
+		XFree((char *) xtpd->keysyms);
+            XtFree((char *) xtpd->modKeysyms);
+            XtFree((char *) xtpd->modsToKeysyms);
+            xtpd->keysyms_per_keycode = 0;
+            xtpd->being_destroyed = FALSE;
+            xtpd->keysyms = NULL;
+            xtpd->modKeysyms = NULL;
+            xtpd->modsToKeysyms = NULL;
+	    XDestroyRegion(xtpd->region);
+	    _XtCacheFlushTag(xtpd->appContext, (XtPointer)&xtpd->heap);
+	    _XtGClistFree(dpy, xtpd);
+	    XtFree((char*)xtpd->pdi.trace);
+	    _XtHeapFree(&xtpd->heap);
+	    _XtFreeWWTable(xtpd);
+	    xtpd->per_screen_db[DefaultScreen(dpy)] = (XrmDatabase)NULL;
+	    for (i = ScreenCount(dpy); --i >= 0; ) {
+		db = xtpd->per_screen_db[i];
+		if (db)
+		    XrmDestroyDatabase(db);
+	    }
+	    XtFree((char *)xtpd->per_screen_db);
+	    if ((db = XrmGetDatabase(dpy)))
+		XrmDestroyDatabase(db);
+	    if (xtpd->cmd_db)
+		XrmDestroyDatabase(xtpd->cmd_db);
+	    if (xtpd->server_db)
+		XrmDestroyDatabase(xtpd->server_db);
+	    XtFree(xtpd->language);
+	    if (xtpd->dispatcher_list != NULL)
+		XtFree((char *) xtpd->dispatcher_list);
+	    if (xtpd->ext_select_list != NULL)
+		XtFree((char *) xtpd->ext_select_list);
+        }
+	XtFree((char*)pd);
+	XrmSetDatabase(dpy, (XrmDatabase)NULL);
+	XCloseDisplay(dpy);
+	UNLOCK_PROCESS;
+}
+
+void XtCloseDisplay(Display *dpy)
+{
+	XtPerDisplay pd;
+	XtAppContext app = XtDisplayToApplicationContext(dpy);
+
+	LOCK_APP(app);
+	pd = _XtGetPerDisplay(dpy);
+	if (pd->being_destroyed) {
+	    UNLOCK_APP(app);
+	    return;
+	}
+
+	if (_XtSafeToDestroy(app)) CloseDisplay(dpy);
+	else {
+	    pd->being_destroyed = TRUE;
+	    app->dpy_destroy_count++;
+	    app->dpy_destroy_list = (Display **)
+		XtRealloc((char *) app->dpy_destroy_list,
+		    (unsigned) (app->dpy_destroy_count * sizeof(Display *)));
+	    app->dpy_destroy_list[app->dpy_destroy_count-1] = dpy;
+	}
+	UNLOCK_APP(app);
+}
+
+void _XtCloseDisplays(XtAppContext app)
+{
+	int i;
+
+	LOCK_APP(app);
+	for (i = 0; i < app->dpy_destroy_count; i++) {
+	    CloseDisplay(app->dpy_destroy_list[i]);
+	}
+	app->dpy_destroy_count = 0;
+	XtFree((char *) app->dpy_destroy_list);
+	app->dpy_destroy_list = NULL;
+	UNLOCK_APP(app);
+}
+
+XtAppContext XtWidgetToApplicationContext(Widget w)
+{
+	XtAppContext retval;
+
+	retval = _XtGetPerDisplay(XtDisplayOfObject(w))->appContext;
+	return retval;
+}
+
+
+void XtGetApplicationNameAndClass(
+    Display *dpy,
+    String *name_return,
+    String *class_return)
+{
+    XtPerDisplay pd;
+
+    pd = _XtGetPerDisplay(dpy);
+    *name_return = XrmQuarkToString(pd->name);
+    *class_return = XrmQuarkToString(pd->class);
+}
+
+XtPerDisplay _XtGetPerDisplay (Display* display)
+{
+    XtPerDisplay retval;
+
+    LOCK_PROCESS;
+    retval = ((_XtperDisplayList != NULL &&
+	      _XtperDisplayList->dpy == display)
+	      ? &_XtperDisplayList->perDpy
+	      : _XtSortPerDisplayList(display));
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+XtPerDisplayInputRec* _XtGetPerDisplayInput(Display* display)
+{
+    XtPerDisplayInputRec* retval;
+    LOCK_PROCESS;
+    retval = ((_XtperDisplayList != NULL &&
+	      _XtperDisplayList->dpy == display)
+	      ? &_XtperDisplayList->perDpy.pdi
+	      : &_XtSortPerDisplayList(display)->pdi);
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+void XtGetDisplays(
+    XtAppContext app_context,
+    Display*** dpy_return,
+    Cardinal* num_dpy_return)
+{
+    int ii;
+    LOCK_APP(app_context);
+    *num_dpy_return = app_context->count;
+    *dpy_return = (Display**)__XtMalloc(app_context->count * sizeof(Display*));
+    for (ii = 0; ii < app_context->count; ii++)
+	(*dpy_return)[ii] = app_context->list[ii];
+    UNLOCK_APP(app_context);
+}
diff --git a/libXt/src/Error.c b/libXt/src/Error.c
index b2170557a..1d6f158d8 100644
--- a/libXt/src/Error.c
+++ b/libXt/src/Error.c
@@ -1,631 +1,631 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include <stdio.h>

-#include <stdlib.h>

-#include <unistd.h>

-

-/* The error handlers in the application context aren't used since we can't

-   come up with a uniform way of using them.  If you can, define

-   GLOBALERRORS to be FALSE (or 0). */

-

-#ifndef GLOBALERRORS

-#define GLOBALERRORS 1

-#endif

-

-static void InitErrorHandling(XrmDatabase *);

-#if GLOBALERRORS

-static XrmDatabase errorDB = NULL;

-static Boolean error_inited = FALSE;

-void _XtDefaultErrorMsg(String, String, String, String, String*, Cardinal*);

-void _XtDefaultWarningMsg(String, String, String, String, String*, Cardinal*);

-void _XtDefaultError(String);

-void _XtDefaultWarning(String);

-static XtErrorMsgHandler errorMsgHandler = _XtDefaultErrorMsg;

-static XtErrorMsgHandler warningMsgHandler = _XtDefaultWarningMsg;

-static XtErrorHandler errorHandler = _XtDefaultError;

-static XtErrorHandler warningHandler = _XtDefaultWarning;

-#endif /* GLOBALERRORS */

-

-XrmDatabase *XtGetErrorDatabase(void)

-{

-    XrmDatabase* retval;

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    retval = &errorDB;

-    UNLOCK_PROCESS;

-#else

-    retval = XtAppGetErrorDatabase(_XtDefaultAppContext());

-#endif /* GLOBALERRORS */

-    return retval;

-}

-

-XrmDatabase *XtAppGetErrorDatabase(

-	XtAppContext app)

-{

-    XrmDatabase* retval;

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    retval = &errorDB;

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    retval= &app->errorDB;

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-    return retval;

-}

-

-void XtGetErrorDatabaseText(

-    register _Xconst char* name,

-    register _Xconst char* type,

-    register _Xconst char* class,

-    _Xconst char* defaultp,

-    String buffer,

-    int nbytes)

-{

-#if GLOBALERRORS

-    XtAppGetErrorDatabaseText(NULL,

-	    name,type,class,defaultp, buffer, nbytes, NULL);

-#else

-    XtAppGetErrorDatabaseText(_XtDefaultAppContext(),

-	    name,type,class,defaultp, buffer, nbytes, NULL);

-#endif /* GLOBALERRORS */

-}

-

-void XtAppGetErrorDatabaseText(

-    XtAppContext app,

-    register _Xconst char* name,

-    register _Xconst char* type,

-    register _Xconst char* class,

-    _Xconst char* defaultp,

-    String buffer,

-    int nbytes,

-    XrmDatabase db)

-{

-    String str_class;

-    String type_str;

-    XrmValue result;

-    char *str_name = NULL;

-    char *temp = NULL;

-

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    if (error_inited == FALSE) {

-        InitErrorHandling (&errorDB);

-        error_inited = TRUE;

-    }

-#else

-    LOCK_APP(app);

-    if (app->error_inited == FALSE) {

-        InitErrorHandling (&app->errorDB);

-        app->error_inited = TRUE;

-    }

-#endif /* GLOBALERRORS */

-    if (!(str_name = ALLOCATE_LOCAL(strlen(name) + strlen(type) + 2)))

-	_XtAllocError(NULL);

-    (void) sprintf(str_name, "%s.%s", name, type);

-    /* XrmGetResource requires the name and class to be fully qualified

-     * and to have the same number of components. */

-    str_class = (char *)class;

-    if (! strchr(class, '.')) {

-	if (!(temp = ALLOCATE_LOCAL(2 * strlen(class) + 2)))

-	    _XtAllocError(NULL);

-	(void) sprintf(temp, "%s.%s", class, class);

-	str_class = temp;

-    }

-    if (db == NULL) {

-#if GLOBALERRORS

-	(void) XrmGetResource(errorDB, str_name, str_class, &type_str,

-			      &result);

-#else

-	(void) XrmGetResource(app->errorDB, str_name, str_class, &type_str,

-			      &result);

-#endif /* GLOBALERRORS */

-    } else (void) XrmGetResource(db, str_name, str_class, &type_str, &result);

-    if (result.addr) {

-        (void) strncpy (buffer, result.addr, nbytes);

-        if (result.size > (unsigned) nbytes) buffer[nbytes-1] = 0;

-    } else {

-	int len = strlen(defaultp);

-	if (len >= nbytes) len = nbytes-1;

-	(void) memmove(buffer, defaultp, len);

-	buffer[len] = '\0';

-    }

-    if (str_name)

-	DEALLOCATE_LOCAL(str_name);

-    if (temp)

-	DEALLOCATE_LOCAL(temp);

-#if GLOBALERRORS

-    UNLOCK_PROCESS;

-#else

-    UNLOCK_APP(app);

-#endif

-}

-

-static void InitErrorHandling (

-    XrmDatabase *db)

-{

-    XrmDatabase errordb;

-

-    errordb = XrmGetFileDatabase(ERRORDB);

-    XrmMergeDatabases(errordb, db);

-}

-

-static void DefaultMsg (

-    String name,

-    String type,

-    String class,

-    String defaultp,

-    String* params,

-    Cardinal* num_params,

-    Bool error,

-    void (*fn)(_Xconst _XtString))

-{

-#define BIGBUF 1024

-    char buffer[BIGBUF];

-    char* message;

-    XtGetErrorDatabaseText(name,type,class,defaultp, buffer, BIGBUF);

-/*need better solution here, perhaps use lower level printf primitives? */

-    if (params == NULL || num_params == NULL || *num_params == 0)

-	(*fn)(buffer);

-#ifndef WIN32 /* and OS/2 */

-    else if ((getuid () != geteuid ()) || getuid() == 0) {

-	if ((error && errorHandler == _XtDefaultError) ||

-	    (!error && warningHandler == _XtDefaultWarning)) {

-	    /*

-	     * if it's just going to go to stderr anyway, then we'll

-	     * fprintf to stderr ourselves and skip the insecure sprintf.

-	     */

-	    Cardinal i = *num_params;

-	    String par[10];

-	    if (i > 10) i = 10;

-	    (void) memmove((char*)par, (char*)params, i * sizeof(String) );

-	    bzero( &par[i], (10-i) * sizeof(String) );

-	    (void) fprintf (stderr, "%s%s",

-			    error ? XTERROR_PREFIX : XTWARNING_PREFIX,

-			    error ? "Error: " : "Warning: ");

-	    (void) fprintf (stderr, buffer,

-			    par[0], par[1], par[2], par[3], par[4],

-			    par[5], par[6], par[7], par[8], par[9]);

-	    (void) fprintf (stderr, "%c", '\n');

-	    if (i != *num_params)

-		(*fn) ( "Some arguments in previous message were lost" );

-	    else if (error) exit (1);

-	} else {

-	    /*

-	     * can't tell what it might do, so we'll play it safe

-	     */

-	    XtWarning ("\

-This program is an suid-root program or is being run by the root user.\n\

-The full text of the error or warning message cannot be safely formatted\n\

-in this environment. You may get a more descriptive message by running the\n\

-program as a non-root user or by removing the suid bit on the executable.");

-	    (*fn)(buffer); /* if *fn is an ErrorHandler it should exit */

-	}

-    }

-#endif

-    else {

-	/*

-	 * If you have snprintf the worst thing that could happen is you'd

-	 * lose some information. Without snprintf you're probably going to

-	 * scramble your heap and perhaps SEGV -- sooner or later.

-	 * If it hurts when you go like this then don't go like this! :-)

-	 */

-	Cardinal i = *num_params;

-	String par[10];

-	if (i > 10) i = 10;

-	(void) memmove((char*)par, (char*)params, i * sizeof(String) );

-	bzero( &par[i], (10-i) * sizeof(String) );

-	if (i != *num_params)

-	    XtWarning( "Some arguments in following message were lost" );

-	/*

-	 * resist any temptation you might have to make `message' a

-	 * local buffer on the stack. Doing so is a security hole

-	 * in programs executing as root. Error and Warning

-	 * messages shouldn't be called frequently enough for this

-	 * to be a performance issue.

-	 */

-	if ((message = __XtMalloc (BIGBUF))) {

-	    (void) snprintf (message, BIGBUF, buffer,

-			     par[0], par[1], par[2], par[3], par[4],

-			     par[5], par[6], par[7], par[8], par[9]);

-	    (*fn)(message);

-	    XtFree(message);

-	} else {

-	    XtWarning ("Memory allocation failed, arguments in the following message were lost");

-	    (*fn)(buffer);

-	}

-    }

-}

-

-void _XtDefaultErrorMsg (

-    String name,

-    String type,

-    String class,

-    String defaultp,

-    String* params,

-    Cardinal* num_params)

-{

-    DefaultMsg (name,type,class,defaultp,params,num_params,True,XtError);

-}

-

-void _XtDefaultWarningMsg (

-    String name,

-    String type,

-    String class,

-    String defaultp,

-    String* params,

-    Cardinal* num_params)

-{

-    DefaultMsg (name,type,class,defaultp,params,num_params,False,XtWarning);

-}

-

-void XtErrorMsg(

-    _Xconst char* name,

-    _Xconst char* type,

-    _Xconst char* class,

-    _Xconst char* defaultp,

-    String* params,

-    Cardinal* num_params)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*errorMsgHandler)((String)name,(String)type,(String)class,

-		       (String)defaultp,params,num_params);

-    UNLOCK_PROCESS;

-#else

-    XtAppErrorMsg(_XtDefaultAppContext(),name,type,class,

-	    defaultp,params,num_params);

-#endif /* GLOBALERRORS */

-}

-

-void XtAppErrorMsg(

-    XtAppContext app,

-    _Xconst char* name,

-    _Xconst char* type,

-    _Xconst char* class,

-    _Xconst char* defaultp,

-    String* params,

-    Cardinal* num_params)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*errorMsgHandler)((String)name,(String)type,(String)class,

-		       (String)defaultp,params,num_params);

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    (*app->errorMsgHandler)(name,type,class,defaultp,params,num_params);

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-}

-

-void XtWarningMsg(

-    _Xconst char* name,

-    _Xconst char* type,

-    _Xconst char* class,

-    _Xconst char* defaultp,

-    String* params,

-    Cardinal* num_params)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*warningMsgHandler)((String)name,(String)type,(String)class,

-			 (String)defaultp,params,num_params);

-    UNLOCK_PROCESS;

-#else

-    XtAppWarningMsg(_XtDefaultAppContext(),name,type,class,

-	    defaultp,params,num_params);

-#endif /* GLOBALERRORS */

-}

-

-void XtAppWarningMsg(

-    XtAppContext app,

-    _Xconst char* name,

-    _Xconst char* type,

-    _Xconst char* class,

-    _Xconst char* defaultp,

-    String* params,

-    Cardinal* num_params)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*warningMsgHandler)((String)name,(String)type,(String)class,

-			 (String)defaultp,params,num_params);

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    (*app->warningMsgHandler)(name,type,class,defaultp,params,num_params);

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-}

-

-void XtSetErrorMsgHandler(

-    XtErrorMsgHandler handler)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    if (handler != NULL) errorMsgHandler = handler;

-    else errorMsgHandler  = _XtDefaultErrorMsg;

-    UNLOCK_PROCESS;

-#else

-    XtAppSetErrorMsgHandler(_XtDefaultAppContext(), handler);

-#endif /* GLOBALERRORS */

-}

-

-XtErrorMsgHandler XtAppSetErrorMsgHandler(

-    XtAppContext app,

-    XtErrorMsgHandler handler)

-{

-    XtErrorMsgHandler old;

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    old = errorMsgHandler;

-    if (handler != NULL) errorMsgHandler = handler;

-    else errorMsgHandler  = _XtDefaultErrorMsg;

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    old = app->errorMsgHandler;

-    if (handler != NULL) app->errorMsgHandler = handler;

-    else app->errorMsgHandler  = _XtDefaultErrorMsg;

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-    return old;

-}

-

-void XtSetWarningMsgHandler(

-    XtErrorMsgHandler handler)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    if (handler != NULL) warningMsgHandler  = handler;

-    else warningMsgHandler = _XtDefaultWarningMsg;

-    UNLOCK_PROCESS;

-#else

-    XtAppSetWarningMsgHandler(_XtDefaultAppContext(),handler);

-#endif /* GLOBALERRORS */

-}

-

-XtErrorMsgHandler XtAppSetWarningMsgHandler(

-    XtAppContext app,

-    XtErrorMsgHandler handler)

-{

-    XtErrorMsgHandler old;

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    old = warningMsgHandler;

-    if (handler != NULL) warningMsgHandler  = handler;

-    else warningMsgHandler = _XtDefaultWarningMsg;

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    old = app->warningMsgHandler;

-    if (handler != NULL) app->warningMsgHandler  = handler;

-    else app->warningMsgHandler = _XtDefaultWarningMsg;

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-    return old;

-}

-

-void _XtDefaultError(String message)

-{

-    if (message && *message)

-	(void)fprintf(stderr, "%sError: %s\n", XTERROR_PREFIX, message);

-    exit(1);

-}

-

-void _XtDefaultWarning(String message)

-{

-    if (message && *message)

-       (void)fprintf(stderr, "%sWarning: %s\n", XTWARNING_PREFIX, message);

-    return;

-}

-

-void XtError(

-    _Xconst char* message)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*errorHandler)((String)message);

-    UNLOCK_PROCESS;

-#else

-    XtAppError(_XtDefaultAppContext(),message);

-#endif /* GLOBALERRORS */

-}

-

-void XtAppError(

-    XtAppContext app,

-    _Xconst char* message)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*errorHandler)((String)message);

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    (*app->errorHandler)(message);

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-}

-

-void XtWarning(

-    _Xconst char* message)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*warningHandler)((String)message);

-    UNLOCK_PROCESS;

-#else

-    XtAppWarning(_XtDefaultAppContext(),message);

-#endif /* GLOBALERRORS */

-}

-

-void XtAppWarning(

-    XtAppContext app,

-    _Xconst char* message)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    (*warningHandler)((String)message);

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    (*app->warningHandler)(message);

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-}

-

-void XtSetErrorHandler(XtErrorHandler handler)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    if (handler != NULL) errorHandler = handler;

-    else errorHandler  = _XtDefaultError;

-    UNLOCK_PROCESS;

-#else

-    XtAppSetErrorHandler(_XtDefaultAppContext(),handler);

-#endif /* GLOBALERRORS */

-}

-

-XtErrorHandler XtAppSetErrorHandler(

-    XtAppContext app,

-    XtErrorHandler handler)

-{

-    XtErrorHandler old;

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    old = errorHandler;

-    if (handler != NULL) errorHandler = handler;

-    else errorHandler  = _XtDefaultError;

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    old = app->errorHandler;

-    if (handler != NULL) app->errorHandler = handler;

-    else app->errorHandler  = _XtDefaultError;

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-    return old;

-}

-

-void XtSetWarningHandler(XtErrorHandler handler)

-{

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    if (handler != NULL) warningHandler = handler;

-    else warningHandler = _XtDefaultWarning;

-    UNLOCK_PROCESS;

-#else

-    XtAppSetWarningHandler(_XtDefaultAppContext(),handler);

-#endif /* GLOBALERRORS */

-}

-

-XtErrorHandler XtAppSetWarningHandler(

-    XtAppContext app,

-    XtErrorHandler handler)

-{

-    XtErrorHandler old;

-#if GLOBALERRORS

-    LOCK_PROCESS;

-    old = warningHandler;

-    if (handler != NULL) warningHandler  = handler;

-    else warningHandler = _XtDefaultWarning;

-    UNLOCK_PROCESS;

-#else

-    LOCK_APP(app);

-    old = app->warningHandler;

-    if (handler != NULL) app->warningHandler  = handler;

-    else app->warningHandler = _XtDefaultWarning;

-    UNLOCK_APP(app);

-#endif /* GLOBALERRORS */

-    return old;

-}

-

-void _XtSetDefaultErrorHandlers(

-    XtErrorMsgHandler *errMsg,

-    XtErrorMsgHandler *warnMsg,

-    XtErrorHandler *err,

-    XtErrorHandler *warn)

-{

-#ifndef GLOBALERRORS

-    LOCK_PROCESS;

-    *errMsg = _XtDefaultErrorMsg;

-    *warnMsg = _XtDefaultWarningMsg;

-    *err = _XtDefaultError;

-    *warn = _XtDefaultWarning;

-    UNLOCK_PROCESS;

-#endif /* GLOBALERRORS */

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+/* The error handlers in the application context aren't used since we can't
+   come up with a uniform way of using them.  If you can, define
+   GLOBALERRORS to be FALSE (or 0). */
+
+#ifndef GLOBALERRORS
+#define GLOBALERRORS 1
+#endif
+
+static void InitErrorHandling(XrmDatabase *);
+#if GLOBALERRORS
+static XrmDatabase errorDB = NULL;
+static Boolean error_inited = FALSE;
+void _XtDefaultErrorMsg(String, String, String, String, String*, Cardinal*);
+void _XtDefaultWarningMsg(String, String, String, String, String*, Cardinal*);
+void _XtDefaultError(String);
+void _XtDefaultWarning(String);
+static XtErrorMsgHandler errorMsgHandler = _XtDefaultErrorMsg;
+static XtErrorMsgHandler warningMsgHandler = _XtDefaultWarningMsg;
+static XtErrorHandler errorHandler = _XtDefaultError;
+static XtErrorHandler warningHandler = _XtDefaultWarning;
+#endif /* GLOBALERRORS */
+
+XrmDatabase *XtGetErrorDatabase(void)
+{
+    XrmDatabase* retval;
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    retval = &errorDB;
+    UNLOCK_PROCESS;
+#else
+    retval = XtAppGetErrorDatabase(_XtDefaultAppContext());
+#endif /* GLOBALERRORS */
+    return retval;
+}
+
+XrmDatabase *XtAppGetErrorDatabase(
+	XtAppContext app)
+{
+    XrmDatabase* retval;
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    retval = &errorDB;
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    retval= &app->errorDB;
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+    return retval;
+}
+
+void XtGetErrorDatabaseText(
+    register _Xconst char* name,
+    register _Xconst char* type,
+    register _Xconst char* class,
+    _Xconst char* defaultp,
+    String buffer,
+    int nbytes)
+{
+#if GLOBALERRORS
+    XtAppGetErrorDatabaseText(NULL,
+	    name,type,class,defaultp, buffer, nbytes, NULL);
+#else
+    XtAppGetErrorDatabaseText(_XtDefaultAppContext(),
+	    name,type,class,defaultp, buffer, nbytes, NULL);
+#endif /* GLOBALERRORS */
+}
+
+void XtAppGetErrorDatabaseText(
+    XtAppContext app,
+    register _Xconst char* name,
+    register _Xconst char* type,
+    register _Xconst char* class,
+    _Xconst char* defaultp,
+    String buffer,
+    int nbytes,
+    XrmDatabase db)
+{
+    String str_class;
+    String type_str;
+    XrmValue result;
+    char *str_name = NULL;
+    char *temp = NULL;
+
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    if (error_inited == FALSE) {
+        InitErrorHandling (&errorDB);
+        error_inited = TRUE;
+    }
+#else
+    LOCK_APP(app);
+    if (app->error_inited == FALSE) {
+        InitErrorHandling (&app->errorDB);
+        app->error_inited = TRUE;
+    }
+#endif /* GLOBALERRORS */
+    if (!(str_name = ALLOCATE_LOCAL(strlen(name) + strlen(type) + 2)))
+	_XtAllocError(NULL);
+    (void) sprintf(str_name, "%s.%s", name, type);
+    /* XrmGetResource requires the name and class to be fully qualified
+     * and to have the same number of components. */
+    str_class = (char *)class;
+    if (! strchr(class, '.')) {
+	if (!(temp = ALLOCATE_LOCAL(2 * strlen(class) + 2)))
+	    _XtAllocError(NULL);
+	(void) sprintf(temp, "%s.%s", class, class);
+	str_class = temp;
+    }
+    if (db == NULL) {
+#if GLOBALERRORS
+	(void) XrmGetResource(errorDB, str_name, str_class, &type_str,
+			      &result);
+#else
+	(void) XrmGetResource(app->errorDB, str_name, str_class, &type_str,
+			      &result);
+#endif /* GLOBALERRORS */
+    } else (void) XrmGetResource(db, str_name, str_class, &type_str, &result);
+    if (result.addr) {
+        (void) strncpy (buffer, result.addr, nbytes);
+        if (result.size > (unsigned) nbytes) buffer[nbytes-1] = 0;
+    } else {
+	int len = strlen(defaultp);
+	if (len >= nbytes) len = nbytes-1;
+	(void) memmove(buffer, defaultp, len);
+	buffer[len] = '\0';
+    }
+    if (str_name)
+	DEALLOCATE_LOCAL(str_name);
+    if (temp)
+	DEALLOCATE_LOCAL(temp);
+#if GLOBALERRORS
+    UNLOCK_PROCESS;
+#else
+    UNLOCK_APP(app);
+#endif
+}
+
+static void InitErrorHandling (
+    XrmDatabase *db)
+{
+    XrmDatabase errordb;
+
+    errordb = XrmGetFileDatabase(ERRORDB);
+    XrmMergeDatabases(errordb, db);
+}
+
+static void DefaultMsg (
+    String name,
+    String type,
+    String class,
+    String defaultp,
+    String* params,
+    Cardinal* num_params,
+    Bool error,
+    void (*fn)(_Xconst _XtString))
+{
+#define BIGBUF 1024
+    char buffer[BIGBUF];
+    char* message;
+    XtGetErrorDatabaseText(name,type,class,defaultp, buffer, BIGBUF);
+/*need better solution here, perhaps use lower level printf primitives? */
+    if (params == NULL || num_params == NULL || *num_params == 0)
+	(*fn)(buffer);
+#ifndef WIN32 /* and OS/2 */
+    else if ((getuid () != geteuid ()) || getuid() == 0) {
+	if ((error && errorHandler == _XtDefaultError) ||
+	    (!error && warningHandler == _XtDefaultWarning)) {
+	    /*
+	     * if it's just going to go to stderr anyway, then we'll
+	     * fprintf to stderr ourselves and skip the insecure sprintf.
+	     */
+	    Cardinal i = *num_params;
+	    String par[10];
+	    if (i > 10) i = 10;
+	    (void) memmove((char*)par, (char*)params, i * sizeof(String) );
+	    bzero( &par[i], (10-i) * sizeof(String) );
+	    (void) fprintf (stderr, "%s%s",
+			    error ? XTERROR_PREFIX : XTWARNING_PREFIX,
+			    error ? "Error: " : "Warning: ");
+	    (void) fprintf (stderr, buffer,
+			    par[0], par[1], par[2], par[3], par[4],
+			    par[5], par[6], par[7], par[8], par[9]);
+	    (void) fprintf (stderr, "%c", '\n');
+	    if (i != *num_params)
+		(*fn) ( "Some arguments in previous message were lost" );
+	    else if (error) exit (1);
+	} else {
+	    /*
+	     * can't tell what it might do, so we'll play it safe
+	     */
+	    XtWarning ("\
+This program is an suid-root program or is being run by the root user.\n\
+The full text of the error or warning message cannot be safely formatted\n\
+in this environment. You may get a more descriptive message by running the\n\
+program as a non-root user or by removing the suid bit on the executable.");
+	    (*fn)(buffer); /* if *fn is an ErrorHandler it should exit */
+	}
+    }
+#endif
+    else {
+	/*
+	 * If you have snprintf the worst thing that could happen is you'd
+	 * lose some information. Without snprintf you're probably going to
+	 * scramble your heap and perhaps SEGV -- sooner or later.
+	 * If it hurts when you go like this then don't go like this! :-)
+	 */
+	Cardinal i = *num_params;
+	String par[10];
+	if (i > 10) i = 10;
+	(void) memmove((char*)par, (char*)params, i * sizeof(String) );
+	bzero( &par[i], (10-i) * sizeof(String) );
+	if (i != *num_params)
+	    XtWarning( "Some arguments in following message were lost" );
+	/*
+	 * resist any temptation you might have to make `message' a
+	 * local buffer on the stack. Doing so is a security hole
+	 * in programs executing as root. Error and Warning
+	 * messages shouldn't be called frequently enough for this
+	 * to be a performance issue.
+	 */
+	if ((message = __XtMalloc (BIGBUF))) {
+	    (void) snprintf (message, BIGBUF, buffer,
+			     par[0], par[1], par[2], par[3], par[4],
+			     par[5], par[6], par[7], par[8], par[9]);
+	    (*fn)(message);
+	    XtFree(message);
+	} else {
+	    XtWarning ("Memory allocation failed, arguments in the following message were lost");
+	    (*fn)(buffer);
+	}
+    }
+}
+
+void _XtDefaultErrorMsg (
+    String name,
+    String type,
+    String class,
+    String defaultp,
+    String* params,
+    Cardinal* num_params)
+{
+    DefaultMsg (name,type,class,defaultp,params,num_params,True,XtError);
+}
+
+void _XtDefaultWarningMsg (
+    String name,
+    String type,
+    String class,
+    String defaultp,
+    String* params,
+    Cardinal* num_params)
+{
+    DefaultMsg (name,type,class,defaultp,params,num_params,False,XtWarning);
+}
+
+void XtErrorMsg(
+    _Xconst char* name,
+    _Xconst char* type,
+    _Xconst char* class,
+    _Xconst char* defaultp,
+    String* params,
+    Cardinal* num_params)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*errorMsgHandler)((String)name,(String)type,(String)class,
+		       (String)defaultp,params,num_params);
+    UNLOCK_PROCESS;
+#else
+    XtAppErrorMsg(_XtDefaultAppContext(),name,type,class,
+	    defaultp,params,num_params);
+#endif /* GLOBALERRORS */
+}
+
+void XtAppErrorMsg(
+    XtAppContext app,
+    _Xconst char* name,
+    _Xconst char* type,
+    _Xconst char* class,
+    _Xconst char* defaultp,
+    String* params,
+    Cardinal* num_params)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*errorMsgHandler)((String)name,(String)type,(String)class,
+		       (String)defaultp,params,num_params);
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    (*app->errorMsgHandler)(name,type,class,defaultp,params,num_params);
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+}
+
+void XtWarningMsg(
+    _Xconst char* name,
+    _Xconst char* type,
+    _Xconst char* class,
+    _Xconst char* defaultp,
+    String* params,
+    Cardinal* num_params)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*warningMsgHandler)((String)name,(String)type,(String)class,
+			 (String)defaultp,params,num_params);
+    UNLOCK_PROCESS;
+#else
+    XtAppWarningMsg(_XtDefaultAppContext(),name,type,class,
+	    defaultp,params,num_params);
+#endif /* GLOBALERRORS */
+}
+
+void XtAppWarningMsg(
+    XtAppContext app,
+    _Xconst char* name,
+    _Xconst char* type,
+    _Xconst char* class,
+    _Xconst char* defaultp,
+    String* params,
+    Cardinal* num_params)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*warningMsgHandler)((String)name,(String)type,(String)class,
+			 (String)defaultp,params,num_params);
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    (*app->warningMsgHandler)(name,type,class,defaultp,params,num_params);
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+}
+
+void XtSetErrorMsgHandler(
+    XtErrorMsgHandler handler)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    if (handler != NULL) errorMsgHandler = handler;
+    else errorMsgHandler  = _XtDefaultErrorMsg;
+    UNLOCK_PROCESS;
+#else
+    XtAppSetErrorMsgHandler(_XtDefaultAppContext(), handler);
+#endif /* GLOBALERRORS */
+}
+
+XtErrorMsgHandler XtAppSetErrorMsgHandler(
+    XtAppContext app,
+    XtErrorMsgHandler handler)
+{
+    XtErrorMsgHandler old;
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    old = errorMsgHandler;
+    if (handler != NULL) errorMsgHandler = handler;
+    else errorMsgHandler  = _XtDefaultErrorMsg;
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    old = app->errorMsgHandler;
+    if (handler != NULL) app->errorMsgHandler = handler;
+    else app->errorMsgHandler  = _XtDefaultErrorMsg;
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+    return old;
+}
+
+void XtSetWarningMsgHandler(
+    XtErrorMsgHandler handler)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    if (handler != NULL) warningMsgHandler  = handler;
+    else warningMsgHandler = _XtDefaultWarningMsg;
+    UNLOCK_PROCESS;
+#else
+    XtAppSetWarningMsgHandler(_XtDefaultAppContext(),handler);
+#endif /* GLOBALERRORS */
+}
+
+XtErrorMsgHandler XtAppSetWarningMsgHandler(
+    XtAppContext app,
+    XtErrorMsgHandler handler)
+{
+    XtErrorMsgHandler old;
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    old = warningMsgHandler;
+    if (handler != NULL) warningMsgHandler  = handler;
+    else warningMsgHandler = _XtDefaultWarningMsg;
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    old = app->warningMsgHandler;
+    if (handler != NULL) app->warningMsgHandler  = handler;
+    else app->warningMsgHandler = _XtDefaultWarningMsg;
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+    return old;
+}
+
+void _XtDefaultError(String message)
+{
+    if (message && *message)
+	(void)fprintf(stderr, "%sError: %s\n", XTERROR_PREFIX, message);
+    exit(1);
+}
+
+void _XtDefaultWarning(String message)
+{
+    if (message && *message)
+       (void)fprintf(stderr, "%sWarning: %s\n", XTWARNING_PREFIX, message);
+    return;
+}
+
+void XtError(
+    _Xconst char* message)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*errorHandler)((String)message);
+    UNLOCK_PROCESS;
+#else
+    XtAppError(_XtDefaultAppContext(),message);
+#endif /* GLOBALERRORS */
+}
+
+void XtAppError(
+    XtAppContext app,
+    _Xconst char* message)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*errorHandler)((String)message);
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    (*app->errorHandler)(message);
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+}
+
+void XtWarning(
+    _Xconst char* message)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*warningHandler)((String)message);
+    UNLOCK_PROCESS;
+#else
+    XtAppWarning(_XtDefaultAppContext(),message);
+#endif /* GLOBALERRORS */
+}
+
+void XtAppWarning(
+    XtAppContext app,
+    _Xconst char* message)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    (*warningHandler)((String)message);
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    (*app->warningHandler)(message);
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+}
+
+void XtSetErrorHandler(XtErrorHandler handler)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    if (handler != NULL) errorHandler = handler;
+    else errorHandler  = _XtDefaultError;
+    UNLOCK_PROCESS;
+#else
+    XtAppSetErrorHandler(_XtDefaultAppContext(),handler);
+#endif /* GLOBALERRORS */
+}
+
+XtErrorHandler XtAppSetErrorHandler(
+    XtAppContext app,
+    XtErrorHandler handler)
+{
+    XtErrorHandler old;
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    old = errorHandler;
+    if (handler != NULL) errorHandler = handler;
+    else errorHandler  = _XtDefaultError;
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    old = app->errorHandler;
+    if (handler != NULL) app->errorHandler = handler;
+    else app->errorHandler  = _XtDefaultError;
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+    return old;
+}
+
+void XtSetWarningHandler(XtErrorHandler handler)
+{
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    if (handler != NULL) warningHandler = handler;
+    else warningHandler = _XtDefaultWarning;
+    UNLOCK_PROCESS;
+#else
+    XtAppSetWarningHandler(_XtDefaultAppContext(),handler);
+#endif /* GLOBALERRORS */
+}
+
+XtErrorHandler XtAppSetWarningHandler(
+    XtAppContext app,
+    XtErrorHandler handler)
+{
+    XtErrorHandler old;
+#if GLOBALERRORS
+    LOCK_PROCESS;
+    old = warningHandler;
+    if (handler != NULL) warningHandler  = handler;
+    else warningHandler = _XtDefaultWarning;
+    UNLOCK_PROCESS;
+#else
+    LOCK_APP(app);
+    old = app->warningHandler;
+    if (handler != NULL) app->warningHandler  = handler;
+    else app->warningHandler = _XtDefaultWarning;
+    UNLOCK_APP(app);
+#endif /* GLOBALERRORS */
+    return old;
+}
+
+void _XtSetDefaultErrorHandlers(
+    XtErrorMsgHandler *errMsg,
+    XtErrorMsgHandler *warnMsg,
+    XtErrorHandler *err,
+    XtErrorHandler *warn)
+{
+#ifndef GLOBALERRORS
+    LOCK_PROCESS;
+    *errMsg = _XtDefaultErrorMsg;
+    *warnMsg = _XtDefaultWarningMsg;
+    *err = _XtDefaultError;
+    *warn = _XtDefaultWarning;
+    UNLOCK_PROCESS;
+#endif /* GLOBALERRORS */
+}
diff --git a/libXt/src/Event.c b/libXt/src/Event.c
index 9f4cb6cea..7be598787 100644
--- a/libXt/src/Event.c
+++ b/libXt/src/Event.c
@@ -1,1739 +1,1739 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#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 compresssion

- * 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)

-{

-    XtEventTable ev;

-    EventMask	mask = 0L;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    for (ev = widget->core.event_table; ev != NULL; ev = ev->next)

-	if (ev->select) {

-	    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 += 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, 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,

-    XtEventHandler proc,

-    XtPointer closure,

-    Boolean raw)

-{

-    XtEventRec *p, **pp;

-    EventMask 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*)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

-	 * dont 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), 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 proceedure.

- *                 proc - proceedure to register.

- *                 closure - data to pass to the event hander.

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

-	    pp = &widget->core.event_table;

-	} 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,

-					    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), 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,

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

-		       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, 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, 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) ((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, rehash;

-    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 = WWHASH(tab, window);

-    if ((entry = tab->entries[idx]) && entry != &WWfake) {

-	rehash = WWREHASHVAL(tab, window);

-	do {

-	    idx = 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, rehash;

-    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 = WWHASH(tab, window);

-    if ((entry = tab->entries[idx])) {

-	if (entry != widget) {

-	    rehash = WWREHASHVAL(tab, window);

-	    do {

-		idx = 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 = WWHASH(tab, XtWindow(entry));

-	    if (entries[newidx]) {

-		rehash = WWREHASHVAL(tab, XtWindow(entry));

-		do {

-		    newidx = WWREHASH(tab, newidx, rehash);

-		} while (entries[newidx]);

-	    }

-	    entries[newidx] = entry;

-	}

-    }

-    XtFree((char *)oldentries);

-    UNLOCK_PROCESS;

-}

-

-Widget XtWindowToWidget(

-    register Display *display,

-    register Window window)

-{

-    register WWTable tab;

-    register int idx, rehash;

-    register Widget entry;

-    WWPair pair;

-    DPY_TO_APPCON(display);

-

-    if (!window) return NULL;

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    tab = WWTABLE(display);

-    idx = WWHASH(tab, window);

-    if ((entry = tab->entries[idx]) && XtWindow(entry) != window) {

-	rehash = WWREHASHVAL(tab, window);

-	do {

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

-    XtEventHandler procs[EHMAXSIZE];

-    XtPointer closures[EHMAXSIZE];

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

-    }

-    if (numprocs > EHMAXSIZE) {

-	proc = (XtEventHandler *)__XtMalloc(numprocs * (sizeof(XtEventHandler) +

-						      sizeof(XtPointer)));

-	closure = (XtPointer *)(proc + numprocs);

-    } else {

-	proc = procs;

-	closure = closures;

-    }

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

-    if (numprocs > EHMAXSIZE)

-	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 occured 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 = ev->x;

-	rect.y = ev->y;

-	rect.width = ev->width;

-	rect.height = 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 = ev->x;

-    rect.y = ev->y;

-    rect.width = ev->width;

-    rect.height = 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 = MAX(rect.x + rect.width,

-			   bbox.x + bbox.width) - merged.x;

-	merged.height = 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 occured 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.

- */

-

-/* ARGSUSED */

-static Bool

-CheckExposureEvent(

-Display * disp,

-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(AIXV3) || !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 = 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 = 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;

-}

-

-/* ARGSUSED */

-static void GrabDestroyCallback(

-    Widget  widget,

-    XtPointer closure,

-    XtPointer call_data)

-{

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

-    gl->exclusive     = exclusive;

-    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",

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

-	exclusive = TRUE;

-    }

-

-    gl = NewGrabRec(widget, exclusive, 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",

-		       (String *)NULL, (Cardinal *)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)

-{

-    XEvent event;

-

-    LOCK_APP(app);

-    do {

-    	XtAppNextEvent(app, &event);

-#ifdef XTHREADS

-	/* assert(app == XtDisplayToApplicationContext(event.xany.display)); */

-#endif

-	XtDispatchEvent(&event);

-    } 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)

-{

-    ExtSelectRec *e;

-    XtPerDisplay pd;

-    int i;

-    DPY_TO_APPCON(dpy);

-

-    if (dpy == NULL) XtErrorMsg("nullDisplay",

-		"xtRegisterExtensionSelector", XtCXtToolkitError,

-		"XtRegisterExtensionSelector requires a non-NULL display",

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

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    pd = _XtGetPerDisplay(dpy);

-

-    for (i = 0; i < pd->ext_select_count; i++) {

-	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",

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

-	    UNLOCK_PROCESS;

-	    UNLOCK_APP(app);

-	    return;

-	}

-    }

-    pd->ext_select_count++;

-    pd->ext_select_list =

-	    (ExtSelectRec *) XtRealloc((char *) pd->ext_select_list,

-		       pd->ext_select_count * 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);

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#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 compresssion
+ * 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)
+{
+    XtEventTable ev;
+    EventMask	mask = 0L;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    for (ev = widget->core.event_table; ev != NULL; ev = ev->next)
+	if (ev->select) {
+	    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 += 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, 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,
+    XtEventHandler proc,
+    XtPointer closure,
+    Boolean raw)
+{
+    XtEventRec *p, **pp;
+    EventMask 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*)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
+	 * dont 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), 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 proceedure.
+ *                 proc - proceedure to register.
+ *                 closure - data to pass to the event hander.
+ *                 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;
+	    pp = &widget->core.event_table;
+	} 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,
+					    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), 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,
+		       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, 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, 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,
+		       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, 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, 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) ((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, rehash;
+    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 = WWHASH(tab, window);
+    if ((entry = tab->entries[idx]) && entry != &WWfake) {
+	rehash = WWREHASHVAL(tab, window);
+	do {
+	    idx = 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, rehash;
+    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 = WWHASH(tab, window);
+    if ((entry = tab->entries[idx])) {
+	if (entry != widget) {
+	    rehash = WWREHASHVAL(tab, window);
+	    do {
+		idx = 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 = WWHASH(tab, XtWindow(entry));
+	    if (entries[newidx]) {
+		rehash = WWREHASHVAL(tab, XtWindow(entry));
+		do {
+		    newidx = WWREHASH(tab, newidx, rehash);
+		} while (entries[newidx]);
+	    }
+	    entries[newidx] = entry;
+	}
+    }
+    XtFree((char *)oldentries);
+    UNLOCK_PROCESS;
+}
+
+Widget XtWindowToWidget(
+    register Display *display,
+    register Window window)
+{
+    register WWTable tab;
+    register int idx, rehash;
+    register Widget entry;
+    WWPair pair;
+    DPY_TO_APPCON(display);
+
+    if (!window) return NULL;
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    tab = WWTABLE(display);
+    idx = WWHASH(tab, window);
+    if ((entry = tab->entries[idx]) && XtWindow(entry) != window) {
+	rehash = WWREHASHVAL(tab, window);
+	do {
+	    idx = 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;
+    XtEventHandler procs[EHMAXSIZE];
+    XtPointer closures[EHMAXSIZE];
+    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++;
+    }
+    if (numprocs > EHMAXSIZE) {
+	proc = (XtEventHandler *)__XtMalloc(numprocs * (sizeof(XtEventHandler) +
+						      sizeof(XtPointer)));
+	closure = (XtPointer *)(proc + numprocs);
+    } else {
+	proc = procs;
+	closure = closures;
+    }
+    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);
+    if (numprocs > EHMAXSIZE)
+	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 occured 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 = ev->x;
+	rect.y = ev->y;
+	rect.width = ev->width;
+	rect.height = 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 = ev->x;
+    rect.y = ev->y;
+    rect.width = ev->width;
+    rect.height = 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 = MAX(rect.x + rect.width,
+			   bbox.x + bbox.width) - merged.x;
+	merged.height = 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 occured 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.
+ */
+
+/* ARGSUSED */
+static Bool
+CheckExposureEvent(
+Display * disp,
+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(AIXV3) || !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 = 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 = 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;
+}
+
+/* ARGSUSED */
+static void GrabDestroyCallback(
+    Widget  widget,
+    XtPointer closure,
+    XtPointer call_data)
+{
+    /* 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;
+    gl->exclusive     = exclusive;
+    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",
+		(String *) NULL, (Cardinal *) NULL);
+	exclusive = TRUE;
+    }
+
+    gl = NewGrabRec(widget, exclusive, 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",
+		       (String *)NULL, (Cardinal *)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)
+{
+    XEvent event;
+
+    LOCK_APP(app);
+    do {
+    	XtAppNextEvent(app, &event);
+#ifdef XTHREADS
+	/* assert(app == XtDisplayToApplicationContext(event.xany.display)); */
+#endif
+	XtDispatchEvent(&event);
+    } 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)
+{
+    ExtSelectRec *e;
+    XtPerDisplay pd;
+    int i;
+    DPY_TO_APPCON(dpy);
+
+    if (dpy == NULL) XtErrorMsg("nullDisplay",
+		"xtRegisterExtensionSelector", XtCXtToolkitError,
+		"XtRegisterExtensionSelector requires a non-NULL display",
+		(String *) NULL, (Cardinal *) NULL);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    pd = _XtGetPerDisplay(dpy);
+
+    for (i = 0; i < pd->ext_select_count; i++) {
+	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",
+		       (String *) NULL, (Cardinal *) NULL);
+	    UNLOCK_PROCESS;
+	    UNLOCK_APP(app);
+	    return;
+	}
+    }
+    pd->ext_select_count++;
+    pd->ext_select_list =
+	    (ExtSelectRec *) XtRealloc((char *) pd->ext_select_list,
+		       pd->ext_select_count * 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);
+}
diff --git a/libXt/src/EventUtil.c b/libXt/src/EventUtil.c
index 8beda1dcd..91ad31fae 100644
--- a/libXt/src/EventUtil.c
+++ b/libXt/src/EventUtil.c
@@ -1,232 +1,232 @@
-/*

-

-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 1988 by Hewlett-Packard Company

-Copyright 1987, 1988, 1989 by Digital Equipment Corporation, Maynard, Massachusetts

-

-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 names of

-Hewlett-Packard or 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, 1989, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "PassivGraI.h"

-#include "StringDefs.h"

-#include "EventI.h"

-

-static XContext 	perWidgetInputContext = 0;

-

-void _XtFreePerWidgetInput(

-    Widget 		w,

-    XtPerWidgetInput	pwi)

-{

-    LOCK_PROCESS;

-    XDeleteContext(XtDisplay(w),

-		   (Window)w,

-		   perWidgetInputContext);

-

-    XtFree((char *)pwi);

-    UNLOCK_PROCESS;

-}

-

-/*

- * This routine gets the passive list associated with the widget

- * from the context manager.

- */

-XtPerWidgetInput _XtGetPerWidgetInput(

-    Widget	widget,

-    _XtBoolean	create)

-{

-    XtPerWidgetInput	pwi = NULL;

-    Display		*dpy = widget->core.screen->display;

-

-    LOCK_PROCESS;

-    if (! perWidgetInputContext)

-      perWidgetInputContext = XUniqueContext();

-

-    if (XFindContext(dpy,

-		     (Window)widget,

-		     perWidgetInputContext,

-		     (XPointer *)&pwi) &&

-	create)

-      {

-	  pwi = (XtPerWidgetInput)

-	    __XtMalloc((unsigned) sizeof(XtPerWidgetInputRec));

-

-	  pwi->focusKid = NULL;

-	  pwi->queryEventDescendant = NULL;

-	  pwi->focalPoint = XtUnrelated;

-	  pwi->keyList =

-	    pwi->ptrList = NULL;

-

-	  pwi->haveFocus =

-	      pwi->map_handler_added =

-		  pwi->realize_handler_added =

-		      pwi->active_handler_added = FALSE;

-

-	  XtAddCallback(widget, XtNdestroyCallback,

-			_XtDestroyServerGrabs, (XtPointer)pwi);

-

-	  (void) XSaveContext(dpy,

-			      (Window)widget,

-			      perWidgetInputContext,

-			      (char *) pwi);

-      }

-    UNLOCK_PROCESS;

-    return pwi;

-}

-

-

-void _XtFillAncestorList(

-    Widget	**listPtr,

-    int		*maxElemsPtr,

-    int		*numElemsPtr,

-    Widget	start,

-    Widget	breakWidget)

-{

-#define CACHESIZE 16

-    Cardinal	i;

-    Widget	w;

-    Widget	*trace = *listPtr;

-

-    /* First time in, allocate the ancestor list */

-    if (trace == NULL)

-      {

-	  trace = (Widget *) __XtMalloc(CACHESIZE * sizeof(Widget));

-	  *maxElemsPtr = CACHESIZE;

-      }

-    /* First fill in the ancestor list */

-

-    trace[0] = start;

-

-    for (i = 1, w = XtParent(start);

-	 w != NULL && !XtIsShell(trace[i-1]) && trace[i-1] != breakWidget;

-	 w = XtParent(w), i++) {

-	if (i == (Cardinal) *maxElemsPtr) {

-	    /* This should rarely happen, but if it does it'll probably

-	       happen again, so grow the ancestor list */

-	    *maxElemsPtr += CACHESIZE;

-	    trace = (Widget *) XtRealloc((char*)trace,

-					 sizeof(Widget) * (*maxElemsPtr));

-	}

-	trace[i] = w;

-    }

-    *listPtr = trace;

-    *numElemsPtr = i;

-#undef CACHESIZE

-}

-

-

-Widget _XtFindRemapWidget(

-    XEvent	*event,

-    Widget	widget,

-    EventMask	mask,

-    XtPerDisplayInput pdi)

-{

-    Widget		dspWidget = widget;

-

-    if (!pdi->traceDepth || !(widget == pdi->trace[0]))

-      {

-	  _XtFillAncestorList(&pdi->trace, &pdi->traceMax,

-			      &pdi->traceDepth, widget, NULL);

-	  pdi->focusWidget = NULL; /* invalidate the focus

-				      cache */

-      }

-    if (mask & (KeyPressMask | KeyReleaseMask))

-	  dspWidget = _XtProcessKeyboardEvent((XKeyEvent*)event, widget, pdi);

-    else if (mask &(ButtonPressMask | ButtonReleaseMask))

-	  dspWidget = _XtProcessPointerEvent((XButtonEvent*)event, widget,pdi);

-

-    return dspWidget;

-}

-

-void _XtUngrabBadGrabs(

-    XEvent	*event,

-    Widget	widget,

-    EventMask	mask,

-    XtPerDisplayInput pdi)

-{

-    XKeyEvent	* ke = (XKeyEvent *) event;

-

-    if (mask & (KeyPressMask | KeyReleaseMask))

-      {

-	  if (IsServerGrab(pdi->keyboard.grabType) &&

-	      !_XtOnGrabList(pdi->keyboard.grab.widget,

-			     pdi->grabList))

-	    XtUngrabKeyboard(widget, ke->time);

-

-      }

-    else

-      {

-	  if (IsServerGrab(pdi->pointer.grabType) &&

-	      !_XtOnGrabList(pdi->pointer.grab.widget,

-			     pdi->grabList))

-	    XtUngrabPointer(widget, ke->time);

-      }

-}

+/*
+
+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 1988 by Hewlett-Packard Company
+Copyright 1987, 1988, 1989 by Digital Equipment Corporation, Maynard, Massachusetts
+
+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 names of
+Hewlett-Packard or 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, 1989, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "PassivGraI.h"
+#include "StringDefs.h"
+#include "EventI.h"
+
+static XContext 	perWidgetInputContext = 0;
+
+void _XtFreePerWidgetInput(
+    Widget 		w,
+    XtPerWidgetInput	pwi)
+{
+    LOCK_PROCESS;
+    XDeleteContext(XtDisplay(w),
+		   (Window)w,
+		   perWidgetInputContext);
+
+    XtFree((char *)pwi);
+    UNLOCK_PROCESS;
+}
+
+/*
+ * This routine gets the passive list associated with the widget
+ * from the context manager.
+ */
+XtPerWidgetInput _XtGetPerWidgetInput(
+    Widget	widget,
+    _XtBoolean	create)
+{
+    XtPerWidgetInput	pwi = NULL;
+    Display		*dpy = widget->core.screen->display;
+
+    LOCK_PROCESS;
+    if (! perWidgetInputContext)
+      perWidgetInputContext = XUniqueContext();
+
+    if (XFindContext(dpy,
+		     (Window)widget,
+		     perWidgetInputContext,
+		     (XPointer *)&pwi) &&
+	create)
+      {
+	  pwi = (XtPerWidgetInput)
+	    __XtMalloc((unsigned) sizeof(XtPerWidgetInputRec));
+
+	  pwi->focusKid = NULL;
+	  pwi->queryEventDescendant = NULL;
+	  pwi->focalPoint = XtUnrelated;
+	  pwi->keyList =
+	    pwi->ptrList = NULL;
+
+	  pwi->haveFocus =
+	      pwi->map_handler_added =
+		  pwi->realize_handler_added =
+		      pwi->active_handler_added = FALSE;
+
+	  XtAddCallback(widget, XtNdestroyCallback,
+			_XtDestroyServerGrabs, (XtPointer)pwi);
+
+	  (void) XSaveContext(dpy,
+			      (Window)widget,
+			      perWidgetInputContext,
+			      (char *) pwi);
+      }
+    UNLOCK_PROCESS;
+    return pwi;
+}
+
+
+void _XtFillAncestorList(
+    Widget	**listPtr,
+    int		*maxElemsPtr,
+    int		*numElemsPtr,
+    Widget	start,
+    Widget	breakWidget)
+{
+#define CACHESIZE 16
+    Cardinal	i;
+    Widget	w;
+    Widget	*trace = *listPtr;
+
+    /* First time in, allocate the ancestor list */
+    if (trace == NULL)
+      {
+	  trace = (Widget *) __XtMalloc(CACHESIZE * sizeof(Widget));
+	  *maxElemsPtr = CACHESIZE;
+      }
+    /* First fill in the ancestor list */
+
+    trace[0] = start;
+
+    for (i = 1, w = XtParent(start);
+	 w != NULL && !XtIsShell(trace[i-1]) && trace[i-1] != breakWidget;
+	 w = XtParent(w), i++) {
+	if (i == (Cardinal) *maxElemsPtr) {
+	    /* This should rarely happen, but if it does it'll probably
+	       happen again, so grow the ancestor list */
+	    *maxElemsPtr += CACHESIZE;
+	    trace = (Widget *) XtRealloc((char*)trace,
+					 sizeof(Widget) * (*maxElemsPtr));
+	}
+	trace[i] = w;
+    }
+    *listPtr = trace;
+    *numElemsPtr = i;
+#undef CACHESIZE
+}
+
+
+Widget _XtFindRemapWidget(
+    XEvent	*event,
+    Widget	widget,
+    EventMask	mask,
+    XtPerDisplayInput pdi)
+{
+    Widget		dspWidget = widget;
+
+    if (!pdi->traceDepth || !(widget == pdi->trace[0]))
+      {
+	  _XtFillAncestorList(&pdi->trace, &pdi->traceMax,
+			      &pdi->traceDepth, widget, NULL);
+	  pdi->focusWidget = NULL; /* invalidate the focus
+				      cache */
+      }
+    if (mask & (KeyPressMask | KeyReleaseMask))
+	  dspWidget = _XtProcessKeyboardEvent((XKeyEvent*)event, widget, pdi);
+    else if (mask &(ButtonPressMask | ButtonReleaseMask))
+	  dspWidget = _XtProcessPointerEvent((XButtonEvent*)event, widget,pdi);
+
+    return dspWidget;
+}
+
+void _XtUngrabBadGrabs(
+    XEvent	*event,
+    Widget	widget,
+    EventMask	mask,
+    XtPerDisplayInput pdi)
+{
+    XKeyEvent	* ke = (XKeyEvent *) event;
+
+    if (mask & (KeyPressMask | KeyReleaseMask))
+      {
+	  if (IsServerGrab(pdi->keyboard.grabType) &&
+	      !_XtOnGrabList(pdi->keyboard.grab.widget,
+			     pdi->grabList))
+	    XtUngrabKeyboard(widget, ke->time);
+
+      }
+    else
+      {
+	  if (IsServerGrab(pdi->pointer.grabType) &&
+	      !_XtOnGrabList(pdi->pointer.grab.widget,
+			     pdi->grabList))
+	    XtUngrabPointer(widget, ke->time);
+      }
+}
diff --git a/libXt/src/Functions.c b/libXt/src/Functions.c
index 8537701ed..9937a50ab 100644
--- a/libXt/src/Functions.c
+++ b/libXt/src/Functions.c
@@ -1,216 +1,216 @@
-/*

-

-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 1985, 1986, 1987, 1988, 1989, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include <X11/Shell.h>

-#include <X11/Vendor.h>

-

-/*

- * This file defines functional equivalents to all macros defined

- * in Intrinsic.h

- *

- */

-

-#undef XtIsRectObj

-Boolean XtIsRectObj(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x02);

-}

-

-

-#undef XtIsWidget

-Boolean XtIsWidget(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x04);

-}

-

-

-#undef XtIsComposite

-Boolean XtIsComposite(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x08);

-}

-

-

-#undef XtIsConstraint

-Boolean XtIsConstraint(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x10);

-}

-

-

-#undef XtIsShell

-Boolean XtIsShell(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x20);

-}

-

-

-#undef XtIsOverrideShell

-Boolean XtIsOverrideShell(Widget object)

-{

-    return _XtIsSubclassOf(object, (WidgetClass)overrideShellWidgetClass,

-			   (WidgetClass)shellWidgetClass, 0x20);

-}

-

-

-#undef XtIsWMShell

-Boolean XtIsWMShell(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x40);

-}

-

-

-#undef XtIsVendorShell

-Boolean XtIsVendorShell(Widget object)

-{

-    Boolean retval;

-

-    LOCK_PROCESS;

-    retval = _XtIsSubclassOf(object,

-#ifdef notdef

-/*

- * We don't refer to vendorShell directly, because some shared libraries

- * bind local references tightly.

- */

-			   (WidgetClass)vendorShellWidgetClass,

-#endif

-			   transientShellWidgetClass->core_class.superclass,

-			   (WidgetClass)wmShellWidgetClass, 0x40);

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-

-#undef XtIsTransientShell

-Boolean XtIsTransientShell(Widget object)

-{

-    return _XtIsSubclassOf(object, (WidgetClass)transientShellWidgetClass,

-			   (WidgetClass)wmShellWidgetClass, 0x40);

-}

-

-

-#undef XtIsTopLevelShell

-Boolean XtIsTopLevelShell(Widget object)

-{

-    return _XtCheckSubclassFlag(object, 0x80);

-}

-

-

-#undef XtIsApplicationShell

-Boolean XtIsApplicationShell(Widget object)

-{

-    return _XtIsSubclassOf(object, (WidgetClass)applicationShellWidgetClass,

-			   (WidgetClass)topLevelShellWidgetClass, 0x80);

-}

-

-#undef XtIsSessionShell

-Boolean XtIsSessionShell(Widget object)

-{

-    return _XtIsSubclassOf(object, (WidgetClass)sessionShellWidgetClass,

-			   (WidgetClass)topLevelShellWidgetClass, 0x80);

-}

-

-#undef XtMapWidget

-void XtMapWidget(Widget w)

-{

-    Widget hookobj;

-    WIDGET_TO_APPCON(w);

-

-    LOCK_APP(app);

-    XMapWindow(XtDisplay(w), XtWindow(w));

-    hookobj = XtHooksOfDisplay(XtDisplay(w));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHmapWidget;

-	call_data.widget = w;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-}

-

-

-#undef XtUnmapWidget

-void XtUnmapWidget(Widget w)

-{

-    Widget hookobj;

-    WIDGET_TO_APPCON(w);

-

-    LOCK_APP(app);

-    XUnmapWindow(XtDisplay(w), XtWindow(w));

-    hookobj = XtHooksOfDisplay(XtDisplay(w));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHunmapWidget;

-	call_data.widget = w;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-}

-

-

-#undef XtNewString

-String XtNewString(String str)

-{

-    if (str == NULL)

-	return NULL;

-    else

-	return strcpy(__XtMalloc((unsigned)strlen(str) + 1), str);

-}

+/*
+
+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 1985, 1986, 1987, 1988, 1989, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include <X11/Shell.h>
+#include <X11/Vendor.h>
+
+/*
+ * This file defines functional equivalents to all macros defined
+ * in Intrinsic.h
+ *
+ */
+
+#undef XtIsRectObj
+Boolean XtIsRectObj(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x02);
+}
+
+
+#undef XtIsWidget
+Boolean XtIsWidget(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x04);
+}
+
+
+#undef XtIsComposite
+Boolean XtIsComposite(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x08);
+}
+
+
+#undef XtIsConstraint
+Boolean XtIsConstraint(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x10);
+}
+
+
+#undef XtIsShell
+Boolean XtIsShell(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x20);
+}
+
+
+#undef XtIsOverrideShell
+Boolean XtIsOverrideShell(Widget object)
+{
+    return _XtIsSubclassOf(object, (WidgetClass)overrideShellWidgetClass,
+			   (WidgetClass)shellWidgetClass, 0x20);
+}
+
+
+#undef XtIsWMShell
+Boolean XtIsWMShell(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x40);
+}
+
+
+#undef XtIsVendorShell
+Boolean XtIsVendorShell(Widget object)
+{
+    Boolean retval;
+
+    LOCK_PROCESS;
+    retval = _XtIsSubclassOf(object,
+#ifdef notdef
+/*
+ * We don't refer to vendorShell directly, because some shared libraries
+ * bind local references tightly.
+ */
+			   (WidgetClass)vendorShellWidgetClass,
+#endif
+			   transientShellWidgetClass->core_class.superclass,
+			   (WidgetClass)wmShellWidgetClass, 0x40);
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+
+#undef XtIsTransientShell
+Boolean XtIsTransientShell(Widget object)
+{
+    return _XtIsSubclassOf(object, (WidgetClass)transientShellWidgetClass,
+			   (WidgetClass)wmShellWidgetClass, 0x40);
+}
+
+
+#undef XtIsTopLevelShell
+Boolean XtIsTopLevelShell(Widget object)
+{
+    return _XtCheckSubclassFlag(object, 0x80);
+}
+
+
+#undef XtIsApplicationShell
+Boolean XtIsApplicationShell(Widget object)
+{
+    return _XtIsSubclassOf(object, (WidgetClass)applicationShellWidgetClass,
+			   (WidgetClass)topLevelShellWidgetClass, 0x80);
+}
+
+#undef XtIsSessionShell
+Boolean XtIsSessionShell(Widget object)
+{
+    return _XtIsSubclassOf(object, (WidgetClass)sessionShellWidgetClass,
+			   (WidgetClass)topLevelShellWidgetClass, 0x80);
+}
+
+#undef XtMapWidget
+void XtMapWidget(Widget w)
+{
+    Widget hookobj;
+    WIDGET_TO_APPCON(w);
+
+    LOCK_APP(app);
+    XMapWindow(XtDisplay(w), XtWindow(w));
+    hookobj = XtHooksOfDisplay(XtDisplay(w));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHmapWidget;
+	call_data.widget = w;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+}
+
+
+#undef XtUnmapWidget
+void XtUnmapWidget(Widget w)
+{
+    Widget hookobj;
+    WIDGET_TO_APPCON(w);
+
+    LOCK_APP(app);
+    XUnmapWindow(XtDisplay(w), XtWindow(w));
+    hookobj = XtHooksOfDisplay(XtDisplay(w));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHunmapWidget;
+	call_data.widget = w;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+}
+
+
+#undef XtNewString
+String XtNewString(String str)
+{
+    if (str == NULL)
+	return NULL;
+    else
+	return strcpy(__XtMalloc((unsigned)strlen(str) + 1), str);
+}
diff --git a/libXt/src/GCManager.c b/libXt/src/GCManager.c
index 1bdffb5e2..ba3d9c492 100644
--- a/libXt/src/GCManager.c
+++ b/libXt/src/GCManager.c
@@ -1,361 +1,361 @@
-/***********************************************************

-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, 1990 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, 1990, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-

-

-typedef struct _GCrec {

-    unsigned char screen;	/* Screen for GC */

-    unsigned char depth;	/* Depth for GC */

-    char	  dashes;	/* Dashes value */

-    Pixmap	  clip_mask;	/* Clip_mask value */

-    Cardinal	  ref_count;    /* # of shareholders */

-    GC		  gc;		/* The GC itself. */

-    XtGCMask	  dynamic_mask;	/* Writable values */

-    XtGCMask	  unused_mask;	/* Unused values */

-    struct _GCrec *next;	/* Next GC for this widgetkind. */

-} GCrec, *GCptr;

-

-#define GCVAL(bit,mask,val,default) ((bit&mask) ? val : default)

-

-#define CHECK(bit,comp,default) \

-    if ((checkMask & bit) && \

-	(GCVAL(bit,valueMask,v->comp,default) != gcv.comp)) return False

-

-#define ALLGCVALS (GCFunction | GCPlaneMask | GCForeground | \

-		   GCBackground | GCLineWidth | GCLineStyle | \

-		   GCCapStyle | GCJoinStyle | GCFillStyle | \

-		   GCFillRule | GCTile | GCStipple | \

-		   GCTileStipXOrigin | GCTileStipYOrigin | \

-		   GCFont | GCSubwindowMode | GCGraphicsExposures | \

-		   GCClipXOrigin | GCClipYOrigin | GCDashOffset | \

-		   GCArcMode)

-

-static Bool Matches(

-    Display *dpy,

-    GCptr ptr,

-    register XtGCMask valueMask,

-    register XGCValues *v,

-    XtGCMask readOnlyMask,

-    XtGCMask dynamicMask)

-{

-    XGCValues gcv;

-    register XtGCMask checkMask;

-

-    if (readOnlyMask & ptr->dynamic_mask)

-	return False;

-    if (((ptr->dynamic_mask|ptr->unused_mask) & dynamicMask) != dynamicMask)

-	return False;

-    if (!XGetGCValues(dpy, ptr->gc, ALLGCVALS, &gcv))

-	return False;

-    checkMask = readOnlyMask & ~ptr->unused_mask;

-    CHECK(GCForeground, foreground, 0);

-    CHECK(GCBackground, background, 1);

-    CHECK(GCFont, font, ~0UL);

-    CHECK(GCFillStyle, fill_style, FillSolid);

-    CHECK(GCLineWidth, line_width, 0);

-    CHECK(GCFunction, function, GXcopy);

-    CHECK(GCGraphicsExposures, graphics_exposures, True);

-    CHECK(GCTile, tile, ~0UL);

-    CHECK(GCSubwindowMode, subwindow_mode, ClipByChildren);

-    CHECK(GCPlaneMask, plane_mask, AllPlanes);

-    CHECK(GCLineStyle, line_style, LineSolid);

-    CHECK(GCCapStyle, cap_style, CapButt);

-    CHECK(GCJoinStyle, join_style, JoinMiter);

-    CHECK(GCFillRule, fill_rule, EvenOddRule);

-    CHECK(GCArcMode, arc_mode, ArcPieSlice);

-    CHECK(GCStipple, stipple, ~0UL);

-    CHECK(GCTileStipXOrigin, ts_x_origin, 0);

-    CHECK(GCTileStipYOrigin, ts_y_origin, 0);

-    CHECK(GCClipXOrigin, clip_x_origin, 0);

-    CHECK(GCClipYOrigin, clip_y_origin, 0);

-    CHECK(GCDashOffset, dash_offset, 0);

-    gcv.clip_mask = ptr->clip_mask;

-    CHECK(GCClipMask, clip_mask, None);

-    gcv.dashes = ptr->dashes;

-    CHECK(GCDashList, dashes, 4);

-    valueMask &= ptr->unused_mask | dynamicMask;

-    if (valueMask) {

-	XChangeGC(dpy, ptr->gc, valueMask, v);

-	if (valueMask & GCDashList)

-	    ptr->dashes = v->dashes;

-	if (valueMask & GCClipMask)

-	    ptr->clip_mask = v->clip_mask;

-    }

-    ptr->unused_mask &= ~(dynamicMask | readOnlyMask);

-    ptr->dynamic_mask |= dynamicMask;

-    return True;

-} /* Matches */

-

-/* Called by CloseDisplay to free the per-display GC list */

-void _XtGClistFree(

-    Display *dpy,

-    register XtPerDisplay pd)

-{

-    register GCptr GClist, next;

-    register int i;

-

-    GClist = pd->GClist;

-    while (GClist) {

-	next = GClist->next;

-	XtFree((char*)GClist);

-	GClist = next;

-    }

-    if (pd->pixmap_tab) {

-	for (i = ScreenCount(dpy); --i >= 0; ) {

-	    if (pd->pixmap_tab[i])

-		XtFree((char *)pd->pixmap_tab[i]);

-	}

-	XtFree((char *)pd->pixmap_tab);

-    }

-}

-

-

-/*

- * Return a GC with the given values and characteristics.

- */

-

-GC XtAllocateGC(

-    register Widget widget,

-    Cardinal	    depth,

-    XtGCMask        valueMask,

-    XGCValues       *values,

-    XtGCMask        dynamicMask,

-    XtGCMask        unusedMask)

-{

-    register GCptr *prev;

-    register GCptr cur;

-    Screen *screen;

-    register Display *dpy;

-    register XtPerDisplay pd;

-    Drawable drawable;

-    Drawable *pixmaps;

-    XtGCMask readOnlyMask;

-    GC retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    if (!XtIsWidget(widget))

-	widget = _XtWindowedAncestor(widget);

-    if (!depth)

-	depth = widget->core.depth;

-    screen = XtScreen(widget);

-    dpy = DisplayOfScreen(screen);

-    pd = _XtGetPerDisplay(dpy);

-    unusedMask &= ~valueMask;

-    readOnlyMask = ~(dynamicMask | unusedMask);

-

-    /* Search for existing GC that matches exactly */

-    for (prev = &pd->GClist; (cur = *prev); prev = &cur->next) {

-	if (cur->depth == depth &&

-	    ScreenOfDisplay(dpy, cur->screen) == screen &&

-	    Matches(dpy, cur, valueMask, values, readOnlyMask, dynamicMask)) {

-            cur->ref_count++;

-	    /* Move this GC to front of list */

-	    *prev = cur->next;

-	    cur->next = pd->GClist;

-	    pd->GClist = cur;

-	    retval = cur->gc;

-	    UNLOCK_PROCESS;

-	    UNLOCK_APP(app);

-	    return retval;

-	}

-    }

-

-    /* No matches, have to create a new one */

-    cur = XtNew(GCrec);

-    cur->screen = XScreenNumberOfScreen(screen);

-    cur->depth = depth;

-    cur->ref_count = 1;

-    cur->dynamic_mask = dynamicMask;

-    cur->unused_mask = (unusedMask & ~dynamicMask);

-    cur->dashes = GCVAL(GCDashList, valueMask, values->dashes, 4);

-    cur->clip_mask = GCVAL(GCClipMask, valueMask, values->clip_mask, None);

-    drawable = 0;

-    if (depth == widget->core.depth)

-	drawable = XtWindow(widget);

-    if (!drawable && depth == (Cardinal) DefaultDepthOfScreen(screen))

-	drawable = RootWindowOfScreen(screen);

-    if (!drawable) {

-	if (!pd->pixmap_tab) {

-	    int n;

-	    pd->pixmap_tab = (Drawable **)__XtMalloc((unsigned)ScreenCount(dpy) *

-						   sizeof(Drawable *));

-	    for (n = 0; n < ScreenCount(dpy); n++)

-		pd->pixmap_tab[n] = NULL;

-	}

-	pixmaps = pd->pixmap_tab[cur->screen];

-	if (!pixmaps) {

-	    int max, n, *depths;

-	    depths = XListDepths(dpy, cur->screen, &n);

-	    n--;

-	    max = depths[n];

-	    while (n--) {

-		if (depths[n] > max)

-		    max = depths[n];

-	    }

-	    XFree((char *)depths);

-	    pixmaps = (Drawable *)__XtCalloc((unsigned)max, sizeof(Drawable));

-	    pd->pixmap_tab[cur->screen] = pixmaps;

-	}

-	drawable = pixmaps[cur->depth - 1];

-	if (!drawable) {

-	    drawable = XCreatePixmap(dpy, RootWindowOfScreen(screen), 1, 1,

-				     cur->depth);

-	    pixmaps[cur->depth - 1] = drawable;

-	}

-    }

-    cur->gc = XCreateGC(dpy, drawable, valueMask, values);

-    cur->next = pd->GClist;

-    pd->GClist = cur;

-    retval = cur->gc;

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-    return retval;

-} /* XtAllocateGC */

-

-/*

- * Return a read-only GC with the given values.

- */

-

-GC XtGetGC(

-    register Widget widget,

-    XtGCMask        valueMask,

-    XGCValues       *values)

-{

-    return XtAllocateGC(widget, 0, valueMask, values, 0, 0);

-} /* XtGetGC */

-

-void  XtReleaseGC(

-    Widget      widget,

-    register GC gc)

-{

-    register GCptr cur, *prev;

-    Display* dpy;

-    XtPerDisplay pd;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    dpy = XtDisplayOfObject(widget);

-    pd = _XtGetPerDisplay(dpy);

-

-    for (prev = &pd->GClist; (cur = *prev); prev = &cur->next) {

-	if (cur->gc == gc) {

-	    if (--(cur->ref_count) == 0) {

-		*prev = cur->next;

-		XFreeGC(dpy, gc);

-		XtFree((char *) cur);

-	    }

-	    break;

-	}

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-} /* XtReleaseGC */

-

-/*  The following interface is broken and supplied only for backwards

- *  compatibility.  It will work properly in all cases only if there

- *  is exactly 1 Display created by the application.

- */

-

-void XtDestroyGC(register GC gc)

-{

-    GCptr cur, *prev;

-    XtAppContext app;

-

-    LOCK_PROCESS;

-    app = _XtGetProcessContext()->appContextList;

-    /* This is awful; we have to search through all the lists

-       to find the GC. */

-    for (; app; app = app->next) {

-	int i;

-	for (i = app->count; i ;) {

-	    Display *dpy = app->list[--i];

-	    XtPerDisplay pd = _XtGetPerDisplay(dpy);

-	    for (prev = &pd->GClist; (cur = *prev); prev = &cur->next) {

-		if (cur->gc == gc) {

-		    if (--(cur->ref_count) == 0) {

-			*prev = cur->next;

-			XFreeGC(dpy, gc);

-			XtFree((char *) cur);

-		    }

-		    UNLOCK_PROCESS;

-		    return;

-		}

-	    }

-	}

-    }

-    UNLOCK_PROCESS;

-} /* XtDestroyGC */

+/***********************************************************
+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, 1990 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, 1990, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+
+
+typedef struct _GCrec {
+    unsigned char screen;	/* Screen for GC */
+    unsigned char depth;	/* Depth for GC */
+    char	  dashes;	/* Dashes value */
+    Pixmap	  clip_mask;	/* Clip_mask value */
+    Cardinal	  ref_count;    /* # of shareholders */
+    GC		  gc;		/* The GC itself. */
+    XtGCMask	  dynamic_mask;	/* Writable values */
+    XtGCMask	  unused_mask;	/* Unused values */
+    struct _GCrec *next;	/* Next GC for this widgetkind. */
+} GCrec, *GCptr;
+
+#define GCVAL(bit,mask,val,default) ((bit&mask) ? val : default)
+
+#define CHECK(bit,comp,default) \
+    if ((checkMask & bit) && \
+	(GCVAL(bit,valueMask,v->comp,default) != gcv.comp)) return False
+
+#define ALLGCVALS (GCFunction | GCPlaneMask | GCForeground | \
+		   GCBackground | GCLineWidth | GCLineStyle | \
+		   GCCapStyle | GCJoinStyle | GCFillStyle | \
+		   GCFillRule | GCTile | GCStipple | \
+		   GCTileStipXOrigin | GCTileStipYOrigin | \
+		   GCFont | GCSubwindowMode | GCGraphicsExposures | \
+		   GCClipXOrigin | GCClipYOrigin | GCDashOffset | \
+		   GCArcMode)
+
+static Bool Matches(
+    Display *dpy,
+    GCptr ptr,
+    register XtGCMask valueMask,
+    register XGCValues *v,
+    XtGCMask readOnlyMask,
+    XtGCMask dynamicMask)
+{
+    XGCValues gcv;
+    register XtGCMask checkMask;
+
+    if (readOnlyMask & ptr->dynamic_mask)
+	return False;
+    if (((ptr->dynamic_mask|ptr->unused_mask) & dynamicMask) != dynamicMask)
+	return False;
+    if (!XGetGCValues(dpy, ptr->gc, ALLGCVALS, &gcv))
+	return False;
+    checkMask = readOnlyMask & ~ptr->unused_mask;
+    CHECK(GCForeground, foreground, 0);
+    CHECK(GCBackground, background, 1);
+    CHECK(GCFont, font, ~0UL);
+    CHECK(GCFillStyle, fill_style, FillSolid);
+    CHECK(GCLineWidth, line_width, 0);
+    CHECK(GCFunction, function, GXcopy);
+    CHECK(GCGraphicsExposures, graphics_exposures, True);
+    CHECK(GCTile, tile, ~0UL);
+    CHECK(GCSubwindowMode, subwindow_mode, ClipByChildren);
+    CHECK(GCPlaneMask, plane_mask, AllPlanes);
+    CHECK(GCLineStyle, line_style, LineSolid);
+    CHECK(GCCapStyle, cap_style, CapButt);
+    CHECK(GCJoinStyle, join_style, JoinMiter);
+    CHECK(GCFillRule, fill_rule, EvenOddRule);
+    CHECK(GCArcMode, arc_mode, ArcPieSlice);
+    CHECK(GCStipple, stipple, ~0UL);
+    CHECK(GCTileStipXOrigin, ts_x_origin, 0);
+    CHECK(GCTileStipYOrigin, ts_y_origin, 0);
+    CHECK(GCClipXOrigin, clip_x_origin, 0);
+    CHECK(GCClipYOrigin, clip_y_origin, 0);
+    CHECK(GCDashOffset, dash_offset, 0);
+    gcv.clip_mask = ptr->clip_mask;
+    CHECK(GCClipMask, clip_mask, None);
+    gcv.dashes = ptr->dashes;
+    CHECK(GCDashList, dashes, 4);
+    valueMask &= ptr->unused_mask | dynamicMask;
+    if (valueMask) {
+	XChangeGC(dpy, ptr->gc, valueMask, v);
+	if (valueMask & GCDashList)
+	    ptr->dashes = v->dashes;
+	if (valueMask & GCClipMask)
+	    ptr->clip_mask = v->clip_mask;
+    }
+    ptr->unused_mask &= ~(dynamicMask | readOnlyMask);
+    ptr->dynamic_mask |= dynamicMask;
+    return True;
+} /* Matches */
+
+/* Called by CloseDisplay to free the per-display GC list */
+void _XtGClistFree(
+    Display *dpy,
+    register XtPerDisplay pd)
+{
+    register GCptr GClist, next;
+    register int i;
+
+    GClist = pd->GClist;
+    while (GClist) {
+	next = GClist->next;
+	XtFree((char*)GClist);
+	GClist = next;
+    }
+    if (pd->pixmap_tab) {
+	for (i = ScreenCount(dpy); --i >= 0; ) {
+	    if (pd->pixmap_tab[i])
+		XtFree((char *)pd->pixmap_tab[i]);
+	}
+	XtFree((char *)pd->pixmap_tab);
+    }
+}
+
+
+/*
+ * Return a GC with the given values and characteristics.
+ */
+
+GC XtAllocateGC(
+    register Widget widget,
+    Cardinal	    depth,
+    XtGCMask        valueMask,
+    XGCValues       *values,
+    XtGCMask        dynamicMask,
+    XtGCMask        unusedMask)
+{
+    register GCptr *prev;
+    register GCptr cur;
+    Screen *screen;
+    register Display *dpy;
+    register XtPerDisplay pd;
+    Drawable drawable;
+    Drawable *pixmaps;
+    XtGCMask readOnlyMask;
+    GC retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    if (!XtIsWidget(widget))
+	widget = _XtWindowedAncestor(widget);
+    if (!depth)
+	depth = widget->core.depth;
+    screen = XtScreen(widget);
+    dpy = DisplayOfScreen(screen);
+    pd = _XtGetPerDisplay(dpy);
+    unusedMask &= ~valueMask;
+    readOnlyMask = ~(dynamicMask | unusedMask);
+
+    /* Search for existing GC that matches exactly */
+    for (prev = &pd->GClist; (cur = *prev); prev = &cur->next) {
+	if (cur->depth == depth &&
+	    ScreenOfDisplay(dpy, cur->screen) == screen &&
+	    Matches(dpy, cur, valueMask, values, readOnlyMask, dynamicMask)) {
+            cur->ref_count++;
+	    /* Move this GC to front of list */
+	    *prev = cur->next;
+	    cur->next = pd->GClist;
+	    pd->GClist = cur;
+	    retval = cur->gc;
+	    UNLOCK_PROCESS;
+	    UNLOCK_APP(app);
+	    return retval;
+	}
+    }
+
+    /* No matches, have to create a new one */
+    cur = XtNew(GCrec);
+    cur->screen = XScreenNumberOfScreen(screen);
+    cur->depth = depth;
+    cur->ref_count = 1;
+    cur->dynamic_mask = dynamicMask;
+    cur->unused_mask = (unusedMask & ~dynamicMask);
+    cur->dashes = GCVAL(GCDashList, valueMask, values->dashes, 4);
+    cur->clip_mask = GCVAL(GCClipMask, valueMask, values->clip_mask, None);
+    drawable = 0;
+    if (depth == widget->core.depth)
+	drawable = XtWindow(widget);
+    if (!drawable && depth == (Cardinal) DefaultDepthOfScreen(screen))
+	drawable = RootWindowOfScreen(screen);
+    if (!drawable) {
+	if (!pd->pixmap_tab) {
+	    int n;
+	    pd->pixmap_tab = (Drawable **)__XtMalloc((unsigned)ScreenCount(dpy) *
+						   sizeof(Drawable *));
+	    for (n = 0; n < ScreenCount(dpy); n++)
+		pd->pixmap_tab[n] = NULL;
+	}
+	pixmaps = pd->pixmap_tab[cur->screen];
+	if (!pixmaps) {
+	    int max, n, *depths;
+	    depths = XListDepths(dpy, cur->screen, &n);
+	    n--;
+	    max = depths[n];
+	    while (n--) {
+		if (depths[n] > max)
+		    max = depths[n];
+	    }
+	    XFree((char *)depths);
+	    pixmaps = (Drawable *)__XtCalloc((unsigned)max, sizeof(Drawable));
+	    pd->pixmap_tab[cur->screen] = pixmaps;
+	}
+	drawable = pixmaps[cur->depth - 1];
+	if (!drawable) {
+	    drawable = XCreatePixmap(dpy, RootWindowOfScreen(screen), 1, 1,
+				     cur->depth);
+	    pixmaps[cur->depth - 1] = drawable;
+	}
+    }
+    cur->gc = XCreateGC(dpy, drawable, valueMask, values);
+    cur->next = pd->GClist;
+    pd->GClist = cur;
+    retval = cur->gc;
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+    return retval;
+} /* XtAllocateGC */
+
+/*
+ * Return a read-only GC with the given values.
+ */
+
+GC XtGetGC(
+    register Widget widget,
+    XtGCMask        valueMask,
+    XGCValues       *values)
+{
+    return XtAllocateGC(widget, 0, valueMask, values, 0, 0);
+} /* XtGetGC */
+
+void  XtReleaseGC(
+    Widget      widget,
+    register GC gc)
+{
+    register GCptr cur, *prev;
+    Display* dpy;
+    XtPerDisplay pd;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    dpy = XtDisplayOfObject(widget);
+    pd = _XtGetPerDisplay(dpy);
+
+    for (prev = &pd->GClist; (cur = *prev); prev = &cur->next) {
+	if (cur->gc == gc) {
+	    if (--(cur->ref_count) == 0) {
+		*prev = cur->next;
+		XFreeGC(dpy, gc);
+		XtFree((char *) cur);
+	    }
+	    break;
+	}
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+} /* XtReleaseGC */
+
+/*  The following interface is broken and supplied only for backwards
+ *  compatibility.  It will work properly in all cases only if there
+ *  is exactly 1 Display created by the application.
+ */
+
+void XtDestroyGC(register GC gc)
+{
+    GCptr cur, *prev;
+    XtAppContext app;
+
+    LOCK_PROCESS;
+    app = _XtGetProcessContext()->appContextList;
+    /* This is awful; we have to search through all the lists
+       to find the GC. */
+    for (; app; app = app->next) {
+	int i;
+	for (i = app->count; i ;) {
+	    Display *dpy = app->list[--i];
+	    XtPerDisplay pd = _XtGetPerDisplay(dpy);
+	    for (prev = &pd->GClist; (cur = *prev); prev = &cur->next) {
+		if (cur->gc == gc) {
+		    if (--(cur->ref_count) == 0) {
+			*prev = cur->next;
+			XFreeGC(dpy, gc);
+			XtFree((char *) cur);
+		    }
+		    UNLOCK_PROCESS;
+		    return;
+		}
+	    }
+	}
+    }
+    UNLOCK_PROCESS;
+} /* XtDestroyGC */
diff --git a/libXt/src/Geometry.c b/libXt/src/Geometry.c
index e3396483d..d64c8e292 100644
--- a/libXt/src/Geometry.c
+++ b/libXt/src/Geometry.c
@@ -1,825 +1,825 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "ShellP.h"

-#include "ShellI.h"

-

-static void ClearRectObjAreas(

-    RectObj r,

-    XWindowChanges* old)

-{

-    Widget pw = _XtWindowedAncestor((Widget)r);

-    int bw2;

-

-    bw2 = old->border_width << 1;

-    XClearArea( XtDisplay(pw), XtWindow(pw),

-		old->x, old->y,

-		old->width + bw2, old->height + bw2,

-		TRUE );

-

-    bw2 = r->rectangle.border_width << 1;

-    XClearArea( XtDisplay(pw), XtWindow(pw),

-		(int)r->rectangle.x, (int)r->rectangle.y,

-		(unsigned int)(r->rectangle.width + bw2),

-	        (unsigned int)(r->rectangle.height + bw2),

-		TRUE );

-}

-

-/*

- * Internal function used by XtMakeGeometryRequest and XtSetValues.

- * Returns more data than the public interface.  Does not convert

- * XtGeometryDone to XtGeometryYes.

- *

- * clear_rect_obj - *** RETURNED ***

- *		    TRUE if the rect obj has been cleared, false otherwise.

- */

-

-XtGeometryResult

-_XtMakeGeometryRequest (

-    Widget widget,

-    XtWidgetGeometry *request,

-    XtWidgetGeometry *reply,

-    Boolean * clear_rect_obj)

-{

-    XtWidgetGeometry    junk;

-    XtGeometryHandler manager = (XtGeometryHandler) NULL;

-    XtGeometryResult returnCode;

-    Widget parent = widget->core.parent;

-    Boolean managed, parentRealized, rgm = False;

-    XtConfigureHookDataRec req;

-    Widget hookobj;

-

-    *clear_rect_obj = FALSE;

-

-    CALLGEOTAT(_XtGeoTrace(widget,

-	"\"%s\" is making a %sgeometry request to its parent \"%s\".\n",

-		   XtName(widget),

-		   ((request->request_mode & XtCWQueryOnly))? "query only ":"",

-		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-    CALLGEOTAT(_XtGeoTab(1));

-

-    if (XtIsShell(widget)) {

-	ShellClassExtension ext;

-	LOCK_PROCESS;

-	for (ext = (ShellClassExtension)((ShellWidgetClass)XtClass(widget))

-		   ->shell_class.extension;

-	     ext != NULL && ext->record_type != NULLQUARK;

-	     ext = (ShellClassExtension)ext->next_extension);

-

-	if (ext != NULL) {

-	    if (  ext->version == XtShellExtensionVersion

-		  && ext->record_size == sizeof(ShellClassExtensionRec)) {

-		manager = ext->root_geometry_manager;

-		rgm = True;

-	    } else {

-		String params[1];

-		Cardinal num_params = 1;

-		params[0] = XtClass(widget)->core_class.class_name;

-		XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-		     "invalidExtension", "xtMakeGeometryRequest",

-		     XtCXtToolkitError,

-		     "widget class %s has invalid ShellClassExtension record",

-		     params, &num_params);

-	    }

-	} else {

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "internalError", "xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "internal error; ShellClassExtension is NULL",

-			  NULL, NULL);

-	}

-	managed = True;

-	parentRealized = TRUE;

-	UNLOCK_PROCESS;

-    } else /* not shell */ {

-	if (parent == NULL)

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "invalidParent","xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "non-shell has no parent in XtMakeGeometryRequest",

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

-

-	managed = XtIsManaged(widget);

-	parentRealized = XtIsRealized(parent);

-	if (XtIsComposite(parent))

-	{

-	    LOCK_PROCESS;

-	    manager = ((CompositeWidgetClass) (parent->core.widget_class))

-		      ->composite_class.geometry_manager;

-	    UNLOCK_PROCESS;

-	}

-    }

-

-#if 0

-    /*

-     * The Xt spec says that these conditions must generate

-     * error messages (not warnings), but many Xt applications

-     * and toolkits (including parts of Xaw, Motif and Netscape)

-     * depend on the previous Xt behaviour.  Thus, these tests

-     * should probably remain disabled.

-     */

-    if (parentRealized && managed) {

-	if (parent && !XtIsComposite(parent))

-	{

-	    /*

-	     * This shouldn't ever happen, we only test for this to pass

-	     * VSW5.  Normally managing the widget will catch this, but VSW5

-	     * does some really screwy stuff to get here.

-	     */

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "invalidParent", "xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "XtMakeGeometryRequest - parent not composite",

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

-	}

-	else if (manager == (XtGeometryHandler) NULL)

-	{

-	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-			  "invalidGeometryManager","xtMakeGeometryRequest",

-			  XtCXtToolkitError,

-			  "XtMakeGeometryRequest - parent has no geometry manager",

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

-	}

-    }

-#else

-    if (!manager)

-	managed = False;

-#endif

-

-    if (widget->core.being_destroyed) {

-	CALLGEOTAT(_XtGeoTab(-1));

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "It is being destroyed, just return XtGeometryNo.\n"));

-	return XtGeometryNo;

-    }

-

-    /* see if requesting anything to change */

-    req.changeMask = 0;

-    if (request->request_mode & CWStackMode

-	&& request->stack_mode != XtSMDontChange) {

-	    req.changeMask |= CWStackMode;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "Asking for a change in StackMode!\n"));

-	    if (request->request_mode & CWSibling) {

-		XtCheckSubclass(request->sibling, rectObjClass,

-				"XtMakeGeometryRequest");

-		req.changeMask |= CWSibling;

-	    }

-    }

-    if (request->request_mode & CWX

-	&& widget->core.x != request->x) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Asking for a change in x: from %d to %d.\n",

-			       widget->core.x, request->x));

-	req.changeMask |= CWX;

-    }

-    if (request->request_mode & CWY

-	&& widget->core.y != request->y) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Asking for a change in y: from %d to %d.\n",

-			       widget->core.y, request->y));

-	req.changeMask |= CWY;

-    }

-    if (request->request_mode & CWWidth

-	&& widget->core.width != request->width) {

-	CALLGEOTAT(_XtGeoTrace(widget,"Asking for a change in width: from %d to %d.\n",

-		       widget->core.width, request->width));

-	req.changeMask |= CWWidth;

-    }

-    if (request->request_mode & CWHeight

-	&& widget->core.height != request->height) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			    "Asking for a change in height: from %d to %d.\n",

-			       widget->core.height, request->height));

-	req.changeMask |= CWHeight;

-    }

-    if (request->request_mode & CWBorderWidth

-	&& widget->core.border_width != request->border_width){

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "Asking for a change in border_width: from %d to %d.\n",

-		       widget->core.border_width, request->border_width));

-	req.changeMask |= CWBorderWidth;

-    }

-    if (! req.changeMask) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "Asking for nothing new,\n"));

-	CALLGEOTAT(_XtGeoTab(-1));

-	CALLGEOTAT(_XtGeoTrace(widget,

-		       "just return XtGeometryYes.\n"));

-	return XtGeometryYes;

-    }

-    req.changeMask |= (request->request_mode & XtCWQueryOnly);

-

-    if ( !(req.changeMask & XtCWQueryOnly) && XtIsRealized(widget) ) {

-	/* keep record of the current geometry so we know what's changed */

-	req.changes.x = widget->core.x ;

-	req.changes.y = widget->core.y ;

-	req.changes.width = widget->core.width ;

-	req.changes.height = widget->core.height ;

-	req.changes.border_width = widget->core.border_width ;

-    }

-

-    if (!managed || !parentRealized) {

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Not Managed or Parent not realized.\n"));

-	/* Don't get parent's manager involved--assume the answer is yes */

-	if (req.changeMask & XtCWQueryOnly) {

-	    /* He was just asking, don't change anything, just tell him yes */

-	    CALLGEOTAT(_XtGeoTrace(widget,"QueryOnly request\n"));

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"just return XtGeometryYes.\n"));

-	    return XtGeometryYes;

-	} else {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "Copy values from request to widget.\n"));

-	    /* copy values from request to widget */

-	    if (request->request_mode & CWX)

-		widget->core.x = request->x;

-	    if (request->request_mode & CWY)

-		widget->core.y = request->y;

-	    if (request->request_mode & CWWidth)

-		widget->core.width = request->width;

-	    if (request->request_mode & CWHeight)

-		widget->core.height = request->height;

-	    if (request->request_mode & CWBorderWidth)

-		widget->core.border_width = request->border_width;

-	    if (!parentRealized) {

-		CALLGEOTAT(_XtGeoTab(-1));

-		CALLGEOTAT(_XtGeoTrace(widget,"and return XtGeometryYes.\n"));

-		return XtGeometryYes;

-	    }

-	    else returnCode = XtGeometryYes;

-	}

-    } else {

-	/* go ask the widget's geometry manager */

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "Go ask the parent geometry manager.\n"));

-	if (reply == (XtWidgetGeometry *) NULL) {

-	    returnCode = (*manager)(widget, request, &junk);

-	} else {

-	    returnCode = (*manager)(widget, request, reply);

-	}

-    }

-

-    /*

-     * If Unrealized, not a XtGeometryYes, or a query-only then we are done.

-     */

-

-    if ((returnCode != XtGeometryYes) ||

-	(req.changeMask & XtCWQueryOnly) || !XtIsRealized(widget)) {

-

-#ifdef XT_GEO_TATTLER

-	switch(returnCode){

-	case XtGeometryNo:

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryNo.\n",

-			  (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-            /* check for no change */

-            break ;

-	case XtGeometryDone:

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryDone.\n",

-		        (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-            /* check for no change in queryonly */

-            break ;

-	case XtGeometryAlmost:

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryAlmost.\n",

-			 (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-	    CALLGEOTAT(_XtGeoTab(1));

-	    CALLGEOTAT(_XtGeoTrace(widget,"Proposal: width %d height %d.\n",

-			   (reply)?reply->width:junk.width,

-			   (reply)?reply->height:junk.height));

-	    CALLGEOTAT(_XtGeoTab(-1));

-

-            /* check for no change */

-            break ;

-	case XtGeometryYes:

-	    if (req.changeMask & XtCWQueryOnly) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				"QueryOnly specified, no configuration.\n"));

-	    }

-            if (!XtIsRealized(widget)) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				 "\"%s\" not realized, no configuration.\n",

-				 XtName(widget)));

-	    }

-	    CALLGEOTAT(_XtGeoTab(-1));

-            CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",

-                         (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-	    break ;

-	}

-#endif

-	return returnCode;

-    }

-

-    CALLGEOTAT(_XtGeoTab(-1));

-    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",

-		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));

-

-    if (XtIsWidget(widget)) {	/* reconfigure the window (if needed) */

-

-	if (rgm) return returnCode;

-

-	if (req.changes.x != widget->core.x) {

- 	    req.changeMask |= CWX;

- 	    req.changes.x = widget->core.x;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "x changing to %d\n",widget->core.x));

- 	}

- 	if (req.changes.y != widget->core.y) {

- 	    req.changeMask |= CWY;

- 	    req.changes.y = widget->core.y;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "y changing to %d\n",widget->core.y));

- 	}

- 	if (req.changes.width != widget->core.width) {

- 	    req.changeMask |= CWWidth;

- 	    req.changes.width = widget->core.width;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				 "width changing to %d\n",widget->core.width));

- 	}

- 	if (req.changes.height != widget->core.height) {

- 	    req.changeMask |= CWHeight;

- 	    req.changes.height = widget->core.height;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-                               "height changing to %d\n",widget->core.height));

- 	}

- 	if (req.changes.border_width != widget->core.border_width) {

- 	    req.changeMask |= CWBorderWidth;

- 	    req.changes.border_width = widget->core.border_width;

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "border_width changing to %d\n",

-				   widget->core.border_width));

- 	}

-	if (req.changeMask & CWStackMode) {

-	    req.changes.stack_mode = request->stack_mode;

-	    CALLGEOTAT(_XtGeoTrace(widget,"stack_mode changing\n"));

-	    if (req.changeMask & CWSibling) {

-		if (XtIsWidget(request->sibling))

-		    req.changes.sibling = XtWindow(request->sibling);

-		else

-		    req.changeMask &= ~(CWStackMode | CWSibling);

-	    }

-	}

-

-#ifdef XT_GEO_TATTLER

-        if (req.changeMask) {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "XConfigure \"%s\"'s window.\n",

-				   XtName(widget)));

-	} else {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-			     "No window configuration needed for \"%s\".\n",

-			     XtName(widget)));

-	}

-#endif

-

-	XConfigureWindow(XtDisplay(widget), XtWindow(widget),

-			 req.changeMask, &req.changes);

-    }

-    else {			/* RectObj child of realized Widget */

-	*clear_rect_obj = TRUE;

-	CALLGEOTAT(_XtGeoTrace(widget,

-			       "ClearRectObj on \"%s\".\n",XtName(widget)));

-

-	ClearRectObjAreas((RectObj)widget, &req.changes);

-    }

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));;

-    if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {

-	req.type = XtHconfigure;

-	req.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.confighook_callbacks,

-		(XtPointer)&req);

-    }

-

-    return returnCode;

-} /* _XtMakeGeometryRequest */

-

-

-/* Public routines */

-

-XtGeometryResult XtMakeGeometryRequest (

-    Widget         widget,

-    XtWidgetGeometry *request,

-    XtWidgetGeometry *reply)

-{

-    Boolean junk;

-    XtGeometryResult r;

-    XtGeometryHookDataRec call_data;

-    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {

-	call_data.type = XtHpreGeometry;

-	call_data.widget = widget;

-	call_data.request = request;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-	call_data.result = r =

-	    _XtMakeGeometryRequest(widget, request, reply, &junk);

-	call_data.type = XtHpostGeometry;

-	call_data.reply = reply;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-    } else {

-	r = _XtMakeGeometryRequest(widget, request, reply, &junk);

-    }

-    UNLOCK_APP(app);

-

-    return ((r == XtGeometryDone) ? XtGeometryYes : r);

-}

-

-XtGeometryResult

-XtMakeResizeRequest(

-    Widget	widget,

-    _XtDimension width,

-    _XtDimension height,

-    Dimension	*replyWidth,

-    Dimension	*replyHeight)

-{

-    XtWidgetGeometry request, reply;

-    XtGeometryResult r;

-    XtGeometryHookDataRec call_data;

-    Boolean junk;

-    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    request.request_mode = CWWidth | CWHeight;

-    request.width = width;

-    request.height = height;

-

-    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {

-	call_data.type = XtHpreGeometry;

-	call_data.widget = widget;

-	call_data.request = &request;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-	call_data.result = r =

-	    _XtMakeGeometryRequest(widget, &request, &reply, &junk);

-	call_data.type = XtHpostGeometry;

-	call_data.reply = &reply;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.geometryhook_callbacks,

-		(XtPointer)&call_data);

-    } else {

-	r = _XtMakeGeometryRequest(widget, &request, &reply, &junk);

-    }

-    if (replyWidth != NULL) {

-	if (r == XtGeometryAlmost && reply.request_mode & CWWidth)

-	    *replyWidth = reply.width;

-	else

-	    *replyWidth = width;

-    }

-    if (replyHeight != NULL) {

-	if (r == XtGeometryAlmost && reply.request_mode & CWHeight)

-	    *replyHeight = reply.height;

-	else

-	    *replyHeight = height;

-    }

-    UNLOCK_APP(app);

-    return ((r == XtGeometryDone) ? XtGeometryYes : r);

-} /* XtMakeResizeRequest */

-

-void XtResizeWindow(

-    Widget w)

-{

-    XtConfigureHookDataRec req;

-    Widget hookobj;

-    WIDGET_TO_APPCON(w);

-

-    LOCK_APP(app);

-    if (XtIsRealized(w)) {

-	req.changes.width = w->core.width;

-	req.changes.height = w->core.height;

-	req.changes.border_width = w->core.border_width;

-	req.changeMask = CWWidth | CWHeight | CWBorderWidth;

-	XConfigureWindow(XtDisplay(w), XtWindow(w),

-	    (unsigned) req.changeMask, &req.changes);

-	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;

-	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {

-	    req.type = XtHconfigure;

-	    req.widget = w;

-	    XtCallCallbackList(hookobj,

-			((HookObject)hookobj)->hooks.confighook_callbacks,

-			(XtPointer)&req);

-	}

-    }

-    UNLOCK_APP(app);

-} /* XtResizeWindow */

-

-void XtResizeWidget(

-    Widget w,

-    _XtDimension width,

-    _XtDimension height,

-    _XtDimension borderWidth)

-{

-    XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth);

-} /* XtResizeWidget */

-

-void XtConfigureWidget(

-    Widget w,

-    _XtPosition x,

-    _XtPosition y,

-    _XtDimension width,

-    _XtDimension height,

-    _XtDimension borderWidth)

-{

-    XtConfigureHookDataRec req;

-    Widget hookobj;

-    XWindowChanges old;

-    WIDGET_TO_APPCON(w);

-

-    CALLGEOTAT(_XtGeoTrace(w,

-                   "\"%s\" is being configured by its parent \"%s\"\n",

-		   XtName(w),

-		   (XtParent(w))?XtName(XtParent(w)):"Root"));

-    CALLGEOTAT(_XtGeoTab(1));

-

-    LOCK_APP(app);

-    req.changeMask = 0;

-    if ((old.x = w->core.x) != x) {

-	CALLGEOTAT(_XtGeoTrace(w,"x move from %d to %d\n",w->core.x, x));

-	req.changes.x = w->core.x = x;

-	req.changeMask |= CWX;

-    }

-

-    if ((old.y = w->core.y) != y) {

-	CALLGEOTAT(_XtGeoTrace(w,"y move from %d to %d\n",w->core.y, y));

-	req.changes.y = w->core.y = y;

-	req.changeMask |= CWY;

-    }

-

-    if ((old.width = w->core.width) != width) {

-	CALLGEOTAT(_XtGeoTrace(w,

-			 "width move from %d to %d\n",w->core.width, width));

-	req.changes.width = w->core.width = width;

-	req.changeMask |= CWWidth;

-    }

-

-    if ((old.height = w->core.height) != height) {

-	CALLGEOTAT(_XtGeoTrace(w,

-		       "height move from %d to %d\n",w->core.height, height));

-	req.changes.height = w->core.height = height;

-	req.changeMask |= CWHeight;

-    }

-

-    if ((old.border_width = w->core.border_width) != borderWidth) {

-	CALLGEOTAT(_XtGeoTrace(w,"border_width move from %d to %d\n",

-		    w->core.border_width,borderWidth ));

-	req.changes.border_width = w->core.border_width = borderWidth;

-	req.changeMask |= CWBorderWidth;

-    }

-

-    if (req.changeMask != 0) {

-	if (XtIsRealized(w)) {

-	    if (XtIsWidget(w)) {

-		CALLGEOTAT(_XtGeoTrace(w,

-                                  "XConfigure \"%s\"'s window\n",XtName(w)));

-		XConfigureWindow(XtDisplay(w), XtWindow(w),

-				 req.changeMask, &req.changes);

-	    } else {

-		CALLGEOTAT(_XtGeoTrace(w,

-			       "ClearRectObj called on \"%s\"\n",XtName(w)));

-		ClearRectObjAreas((RectObj)w, &old);

-	    }

-	}

-	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;

-	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {

-	    req.type = XtHconfigure;

-	    req.widget = w;

-	    XtCallCallbackList(hookobj,

-			((HookObject)hookobj)->hooks.confighook_callbacks,

-			(XtPointer)&req);

-	}

-	{

-	XtWidgetProc resize;

-

-	LOCK_PROCESS;

-	resize = XtClass(w)->core_class.resize;

-	UNLOCK_PROCESS;

-	if ((req.changeMask & (CWWidth | CWHeight)) &&

-	    resize != (XtWidgetProc) NULL) {

-	    CALLGEOTAT(_XtGeoTrace(w,"Resize proc is called.\n"));

-	    (*resize)(w);

-	 }

-	}

-    } else {

-	CALLGEOTAT(_XtGeoTrace(w,"No change in configuration\n"));

-    }

-

-    CALLGEOTAT(_XtGeoTab(-1));

-    UNLOCK_APP(app);

-} /* XtConfigureWidget */

-

-void XtMoveWidget(

-    Widget w,

-    _XtPosition x,

-    _XtPosition y)

-{

-    XtConfigureWidget(w, x, y, w->core.width, w->core.height,

-		      w->core.border_width);

-} /* XtMoveWidget */

-

-void XtTranslateCoords(

-    register Widget w,

-    _XtPosition x,

-    _XtPosition y,

-    register Position *rootx,	/* return */

-    register Position *rooty)	/* return */

-{

-    Position garbagex, garbagey;

-    XtAppContext app = XtWidgetToApplicationContext(w);

-

-    LOCK_APP(app);

-    if (rootx == NULL) rootx = &garbagex;

-    if (rooty == NULL) rooty = &garbagey;

-

-    *rootx = x;

-    *rooty = y;

-

-    for (; w != NULL && ! XtIsShell(w); w = w->core.parent) {

-	*rootx += w->core.x + w->core.border_width;

-	*rooty += w->core.y + w->core.border_width;

-    }

-

-    if (w == NULL)

-        XtAppWarningMsg(app,

-		"invalidShell","xtTranslateCoords",XtCXtToolkitError,

-                "Widget has no shell ancestor",

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

-    else {

-	Position x, y;

-	_XtShellGetCoordinates( w, &x, &y );

-	*rootx += x + w->core.border_width;

-	*rooty += y + w->core.border_width;

-    }

-    UNLOCK_APP(app);

-}

-

-XtGeometryResult XtQueryGeometry(

-    Widget widget,

-    register XtWidgetGeometry *intended, /* parent's changes; may be NULL */

-    XtWidgetGeometry *reply)	/* child's preferred geometry; never NULL */

-{

-    XtWidgetGeometry null_intended;

-    XtGeometryHandler query;

-    XtGeometryResult result;

-    WIDGET_TO_APPCON(widget);

-

-    CALLGEOTAT(_XtGeoTrace(widget,

-		     "\"%s\" is asking its preferred geometry to \"%s\".\n",

-		     (XtParent(widget))?XtName(XtParent(widget)):"Root",

-		     XtName(widget)));

-    CALLGEOTAT(_XtGeoTab(1));

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    query = XtClass(widget)->core_class.query_geometry;

-    UNLOCK_PROCESS;

-    reply->request_mode = 0;

-    if (query != NULL) {

-	if (intended == NULL) {

-	    null_intended.request_mode = 0;

-	    intended = &null_intended;

-#ifdef XT_GEO_TATTLER

-	    CALLGEOTAT(_XtGeoTrace(widget,"without any constraint.\n"));

-	} else {

-	    CALLGEOTAT(_XtGeoTrace(widget,

-				   "with the following constraints:\n"));

-

-	    if (intended->request_mode & CWX) {

-		CALLGEOTAT(_XtGeoTrace(widget," x = %d\n",intended->x));

-	    }

-	    if (intended->request_mode & CWY) {

-		CALLGEOTAT(_XtGeoTrace(widget," y = %d\n",intended->y));

-	    }

-	    if (intended->request_mode & CWWidth) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				       " width = %d\n",intended->width));

-	    }

-	    if (intended->request_mode & CWHeight) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-				       " height = %d\n",intended->height));

-	    }

-	    if (intended->request_mode & CWBorderWidth) {

-		CALLGEOTAT(_XtGeoTrace(widget,

-			       " border_width = %d\n",intended->border_width));

-	    }

-#endif

-	}

-

-	result = (*query) (widget, intended, reply);

-    }

-    else {

-	CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" has no QueryGeometry proc, return the current state\n",XtName(widget)));

-

-	result = XtGeometryYes;

-    }

-

-#ifdef XT_GEO_TATTLER

-#define FillIn(mask, field) \

-	if (!(reply->request_mode & mask)) {\

-	      reply->field = widget->core.field;\

-	      _XtGeoTrace(widget," using core %s = %d.\n","field",\

-			                               widget->core.field);\

-	} else {\

-	      _XtGeoTrace(widget," replied %s = %d\n","field",\

-			                           reply->field);\

-	}

-#else

-#define FillIn(mask, field) \

-	if (!(reply->request_mode & mask)) reply->field = widget->core.field;

-#endif

-

-    FillIn(CWX, x);

-    FillIn(CWY, y);

-    FillIn(CWWidth, width);

-    FillIn(CWHeight, height);

-    FillIn(CWBorderWidth, border_width);

-

-    CALLGEOTAT(_XtGeoTab(-1));

-#undef FillIn

-

-    if (!(reply->request_mode & CWStackMode))

-	reply->stack_mode = XtSMDontChange;

-    UNLOCK_APP(app);

-    return result;

-}

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "ShellP.h"
+#include "ShellI.h"
+
+static void ClearRectObjAreas(
+    RectObj r,
+    XWindowChanges* old)
+{
+    Widget pw = _XtWindowedAncestor((Widget)r);
+    int bw2;
+
+    bw2 = old->border_width << 1;
+    XClearArea( XtDisplay(pw), XtWindow(pw),
+		old->x, old->y,
+		old->width + bw2, old->height + bw2,
+		TRUE );
+
+    bw2 = r->rectangle.border_width << 1;
+    XClearArea( XtDisplay(pw), XtWindow(pw),
+		(int)r->rectangle.x, (int)r->rectangle.y,
+		(unsigned int)(r->rectangle.width + bw2),
+	        (unsigned int)(r->rectangle.height + bw2),
+		TRUE );
+}
+
+/*
+ * Internal function used by XtMakeGeometryRequest and XtSetValues.
+ * Returns more data than the public interface.  Does not convert
+ * XtGeometryDone to XtGeometryYes.
+ *
+ * clear_rect_obj - *** RETURNED ***
+ *		    TRUE if the rect obj has been cleared, false otherwise.
+ */
+
+XtGeometryResult
+_XtMakeGeometryRequest (
+    Widget widget,
+    XtWidgetGeometry *request,
+    XtWidgetGeometry *reply,
+    Boolean * clear_rect_obj)
+{
+    XtWidgetGeometry    junk;
+    XtGeometryHandler manager = (XtGeometryHandler) NULL;
+    XtGeometryResult returnCode;
+    Widget parent = widget->core.parent;
+    Boolean managed, parentRealized, rgm = False;
+    XtConfigureHookDataRec req;
+    Widget hookobj;
+
+    *clear_rect_obj = FALSE;
+
+    CALLGEOTAT(_XtGeoTrace(widget,
+	"\"%s\" is making a %sgeometry request to its parent \"%s\".\n",
+		   XtName(widget),
+		   ((request->request_mode & XtCWQueryOnly))? "query only ":"",
+		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+    CALLGEOTAT(_XtGeoTab(1));
+
+    if (XtIsShell(widget)) {
+	ShellClassExtension ext;
+	LOCK_PROCESS;
+	for (ext = (ShellClassExtension)((ShellWidgetClass)XtClass(widget))
+		   ->shell_class.extension;
+	     ext != NULL && ext->record_type != NULLQUARK;
+	     ext = (ShellClassExtension)ext->next_extension);
+
+	if (ext != NULL) {
+	    if (  ext->version == XtShellExtensionVersion
+		  && ext->record_size == sizeof(ShellClassExtensionRec)) {
+		manager = ext->root_geometry_manager;
+		rgm = True;
+	    } else {
+		String params[1];
+		Cardinal num_params = 1;
+		params[0] = XtClass(widget)->core_class.class_name;
+		XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+		     "invalidExtension", "xtMakeGeometryRequest",
+		     XtCXtToolkitError,
+		     "widget class %s has invalid ShellClassExtension record",
+		     params, &num_params);
+	    }
+	} else {
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "internalError", "xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "internal error; ShellClassExtension is NULL",
+			  NULL, NULL);
+	}
+	managed = True;
+	parentRealized = TRUE;
+	UNLOCK_PROCESS;
+    } else /* not shell */ {
+	if (parent == NULL)
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "invalidParent","xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "non-shell has no parent in XtMakeGeometryRequest",
+			  (String *)NULL, (Cardinal *)NULL);
+
+	managed = XtIsManaged(widget);
+	parentRealized = XtIsRealized(parent);
+	if (XtIsComposite(parent))
+	{
+	    LOCK_PROCESS;
+	    manager = ((CompositeWidgetClass) (parent->core.widget_class))
+		      ->composite_class.geometry_manager;
+	    UNLOCK_PROCESS;
+	}
+    }
+
+#if 0
+    /*
+     * The Xt spec says that these conditions must generate
+     * error messages (not warnings), but many Xt applications
+     * and toolkits (including parts of Xaw, Motif and Netscape)
+     * depend on the previous Xt behaviour.  Thus, these tests
+     * should probably remain disabled.
+     */
+    if (parentRealized && managed) {
+	if (parent && !XtIsComposite(parent))
+	{
+	    /*
+	     * This shouldn't ever happen, we only test for this to pass
+	     * VSW5.  Normally managing the widget will catch this, but VSW5
+	     * does some really screwy stuff to get here.
+	     */
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "invalidParent", "xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "XtMakeGeometryRequest - parent not composite",
+			  (String *)NULL, (Cardinal *)NULL);
+	}
+	else if (manager == (XtGeometryHandler) NULL)
+	{
+	    XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+			  "invalidGeometryManager","xtMakeGeometryRequest",
+			  XtCXtToolkitError,
+			  "XtMakeGeometryRequest - parent has no geometry manager",
+			  (String *)NULL, (Cardinal *)NULL);
+	}
+    }
+#else
+    if (!manager)
+	managed = False;
+#endif
+
+    if (widget->core.being_destroyed) {
+	CALLGEOTAT(_XtGeoTab(-1));
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "It is being destroyed, just return XtGeometryNo.\n"));
+	return XtGeometryNo;
+    }
+
+    /* see if requesting anything to change */
+    req.changeMask = 0;
+    if (request->request_mode & CWStackMode
+	&& request->stack_mode != XtSMDontChange) {
+	    req.changeMask |= CWStackMode;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "Asking for a change in StackMode!\n"));
+	    if (request->request_mode & CWSibling) {
+		XtCheckSubclass(request->sibling, rectObjClass,
+				"XtMakeGeometryRequest");
+		req.changeMask |= CWSibling;
+	    }
+    }
+    if (request->request_mode & CWX
+	&& widget->core.x != request->x) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Asking for a change in x: from %d to %d.\n",
+			       widget->core.x, request->x));
+	req.changeMask |= CWX;
+    }
+    if (request->request_mode & CWY
+	&& widget->core.y != request->y) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Asking for a change in y: from %d to %d.\n",
+			       widget->core.y, request->y));
+	req.changeMask |= CWY;
+    }
+    if (request->request_mode & CWWidth
+	&& widget->core.width != request->width) {
+	CALLGEOTAT(_XtGeoTrace(widget,"Asking for a change in width: from %d to %d.\n",
+		       widget->core.width, request->width));
+	req.changeMask |= CWWidth;
+    }
+    if (request->request_mode & CWHeight
+	&& widget->core.height != request->height) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			    "Asking for a change in height: from %d to %d.\n",
+			       widget->core.height, request->height));
+	req.changeMask |= CWHeight;
+    }
+    if (request->request_mode & CWBorderWidth
+	&& widget->core.border_width != request->border_width){
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "Asking for a change in border_width: from %d to %d.\n",
+		       widget->core.border_width, request->border_width));
+	req.changeMask |= CWBorderWidth;
+    }
+    if (! req.changeMask) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "Asking for nothing new,\n"));
+	CALLGEOTAT(_XtGeoTab(-1));
+	CALLGEOTAT(_XtGeoTrace(widget,
+		       "just return XtGeometryYes.\n"));
+	return XtGeometryYes;
+    }
+    req.changeMask |= (request->request_mode & XtCWQueryOnly);
+
+    if ( !(req.changeMask & XtCWQueryOnly) && XtIsRealized(widget) ) {
+	/* keep record of the current geometry so we know what's changed */
+	req.changes.x = widget->core.x ;
+	req.changes.y = widget->core.y ;
+	req.changes.width = widget->core.width ;
+	req.changes.height = widget->core.height ;
+	req.changes.border_width = widget->core.border_width ;
+    }
+
+    if (!managed || !parentRealized) {
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Not Managed or Parent not realized.\n"));
+	/* Don't get parent's manager involved--assume the answer is yes */
+	if (req.changeMask & XtCWQueryOnly) {
+	    /* He was just asking, don't change anything, just tell him yes */
+	    CALLGEOTAT(_XtGeoTrace(widget,"QueryOnly request\n"));
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"just return XtGeometryYes.\n"));
+	    return XtGeometryYes;
+	} else {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "Copy values from request to widget.\n"));
+	    /* copy values from request to widget */
+	    if (request->request_mode & CWX)
+		widget->core.x = request->x;
+	    if (request->request_mode & CWY)
+		widget->core.y = request->y;
+	    if (request->request_mode & CWWidth)
+		widget->core.width = request->width;
+	    if (request->request_mode & CWHeight)
+		widget->core.height = request->height;
+	    if (request->request_mode & CWBorderWidth)
+		widget->core.border_width = request->border_width;
+	    if (!parentRealized) {
+		CALLGEOTAT(_XtGeoTab(-1));
+		CALLGEOTAT(_XtGeoTrace(widget,"and return XtGeometryYes.\n"));
+		return XtGeometryYes;
+	    }
+	    else returnCode = XtGeometryYes;
+	}
+    } else {
+	/* go ask the widget's geometry manager */
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "Go ask the parent geometry manager.\n"));
+	if (reply == (XtWidgetGeometry *) NULL) {
+	    returnCode = (*manager)(widget, request, &junk);
+	} else {
+	    returnCode = (*manager)(widget, request, reply);
+	}
+    }
+
+    /*
+     * If Unrealized, not a XtGeometryYes, or a query-only then we are done.
+     */
+
+    if ((returnCode != XtGeometryYes) ||
+	(req.changeMask & XtCWQueryOnly) || !XtIsRealized(widget)) {
+
+#ifdef XT_GEO_TATTLER
+	switch(returnCode){
+	case XtGeometryNo:
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryNo.\n",
+			  (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+            /* check for no change */
+            break ;
+	case XtGeometryDone:
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryDone.\n",
+		        (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+            /* check for no change in queryonly */
+            break ;
+	case XtGeometryAlmost:
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryAlmost.\n",
+			 (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+	    CALLGEOTAT(_XtGeoTab(1));
+	    CALLGEOTAT(_XtGeoTrace(widget,"Proposal: width %d height %d.\n",
+			   (reply)?reply->width:junk.width,
+			   (reply)?reply->height:junk.height));
+	    CALLGEOTAT(_XtGeoTab(-1));
+
+            /* check for no change */
+            break ;
+	case XtGeometryYes:
+	    if (req.changeMask & XtCWQueryOnly) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				"QueryOnly specified, no configuration.\n"));
+	    }
+            if (!XtIsRealized(widget)) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				 "\"%s\" not realized, no configuration.\n",
+				 XtName(widget)));
+	    }
+	    CALLGEOTAT(_XtGeoTab(-1));
+            CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",
+                         (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+	    break ;
+	}
+#endif
+	return returnCode;
+    }
+
+    CALLGEOTAT(_XtGeoTab(-1));
+    CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" returns XtGeometryYes.\n",
+		   (XtParent(widget))?XtName(XtParent(widget)):"Root"));
+
+    if (XtIsWidget(widget)) {	/* reconfigure the window (if needed) */
+
+	if (rgm) return returnCode;
+
+	if (req.changes.x != widget->core.x) {
+ 	    req.changeMask |= CWX;
+ 	    req.changes.x = widget->core.x;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "x changing to %d\n",widget->core.x));
+ 	}
+ 	if (req.changes.y != widget->core.y) {
+ 	    req.changeMask |= CWY;
+ 	    req.changes.y = widget->core.y;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "y changing to %d\n",widget->core.y));
+ 	}
+ 	if (req.changes.width != widget->core.width) {
+ 	    req.changeMask |= CWWidth;
+ 	    req.changes.width = widget->core.width;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				 "width changing to %d\n",widget->core.width));
+ 	}
+ 	if (req.changes.height != widget->core.height) {
+ 	    req.changeMask |= CWHeight;
+ 	    req.changes.height = widget->core.height;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+                               "height changing to %d\n",widget->core.height));
+ 	}
+ 	if (req.changes.border_width != widget->core.border_width) {
+ 	    req.changeMask |= CWBorderWidth;
+ 	    req.changes.border_width = widget->core.border_width;
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "border_width changing to %d\n",
+				   widget->core.border_width));
+ 	}
+	if (req.changeMask & CWStackMode) {
+	    req.changes.stack_mode = request->stack_mode;
+	    CALLGEOTAT(_XtGeoTrace(widget,"stack_mode changing\n"));
+	    if (req.changeMask & CWSibling) {
+		if (XtIsWidget(request->sibling))
+		    req.changes.sibling = XtWindow(request->sibling);
+		else
+		    req.changeMask &= ~(CWStackMode | CWSibling);
+	    }
+	}
+
+#ifdef XT_GEO_TATTLER
+        if (req.changeMask) {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "XConfigure \"%s\"'s window.\n",
+				   XtName(widget)));
+	} else {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+			     "No window configuration needed for \"%s\".\n",
+			     XtName(widget)));
+	}
+#endif
+
+	XConfigureWindow(XtDisplay(widget), XtWindow(widget),
+			 req.changeMask, &req.changes);
+    }
+    else {			/* RectObj child of realized Widget */
+	*clear_rect_obj = TRUE;
+	CALLGEOTAT(_XtGeoTrace(widget,
+			       "ClearRectObj on \"%s\".\n",XtName(widget)));
+
+	ClearRectObjAreas((RectObj)widget, &req.changes);
+    }
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));;
+    if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {
+	req.type = XtHconfigure;
+	req.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.confighook_callbacks,
+		(XtPointer)&req);
+    }
+
+    return returnCode;
+} /* _XtMakeGeometryRequest */
+
+
+/* Public routines */
+
+XtGeometryResult XtMakeGeometryRequest (
+    Widget         widget,
+    XtWidgetGeometry *request,
+    XtWidgetGeometry *reply)
+{
+    Boolean junk;
+    XtGeometryResult r;
+    XtGeometryHookDataRec call_data;
+    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {
+	call_data.type = XtHpreGeometry;
+	call_data.widget = widget;
+	call_data.request = request;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+	call_data.result = r =
+	    _XtMakeGeometryRequest(widget, request, reply, &junk);
+	call_data.type = XtHpostGeometry;
+	call_data.reply = reply;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+    } else {
+	r = _XtMakeGeometryRequest(widget, request, reply, &junk);
+    }
+    UNLOCK_APP(app);
+
+    return ((r == XtGeometryDone) ? XtGeometryYes : r);
+}
+
+XtGeometryResult
+XtMakeResizeRequest(
+    Widget	widget,
+    _XtDimension width,
+    _XtDimension height,
+    Dimension	*replyWidth,
+    Dimension	*replyHeight)
+{
+    XtWidgetGeometry request, reply;
+    XtGeometryResult r;
+    XtGeometryHookDataRec call_data;
+    Boolean junk;
+    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    request.request_mode = CWWidth | CWHeight;
+    request.width = width;
+    request.height = height;
+
+    if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {
+	call_data.type = XtHpreGeometry;
+	call_data.widget = widget;
+	call_data.request = &request;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+	call_data.result = r =
+	    _XtMakeGeometryRequest(widget, &request, &reply, &junk);
+	call_data.type = XtHpostGeometry;
+	call_data.reply = &reply;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.geometryhook_callbacks,
+		(XtPointer)&call_data);
+    } else {
+	r = _XtMakeGeometryRequest(widget, &request, &reply, &junk);
+    }
+    if (replyWidth != NULL) {
+	if (r == XtGeometryAlmost && reply.request_mode & CWWidth)
+	    *replyWidth = reply.width;
+	else
+	    *replyWidth = width;
+    }
+    if (replyHeight != NULL) {
+	if (r == XtGeometryAlmost && reply.request_mode & CWHeight)
+	    *replyHeight = reply.height;
+	else
+	    *replyHeight = height;
+    }
+    UNLOCK_APP(app);
+    return ((r == XtGeometryDone) ? XtGeometryYes : r);
+} /* XtMakeResizeRequest */
+
+void XtResizeWindow(
+    Widget w)
+{
+    XtConfigureHookDataRec req;
+    Widget hookobj;
+    WIDGET_TO_APPCON(w);
+
+    LOCK_APP(app);
+    if (XtIsRealized(w)) {
+	req.changes.width = w->core.width;
+	req.changes.height = w->core.height;
+	req.changes.border_width = w->core.border_width;
+	req.changeMask = CWWidth | CWHeight | CWBorderWidth;
+	XConfigureWindow(XtDisplay(w), XtWindow(w),
+	    (unsigned) req.changeMask, &req.changes);
+	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;
+	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {
+	    req.type = XtHconfigure;
+	    req.widget = w;
+	    XtCallCallbackList(hookobj,
+			((HookObject)hookobj)->hooks.confighook_callbacks,
+			(XtPointer)&req);
+	}
+    }
+    UNLOCK_APP(app);
+} /* XtResizeWindow */
+
+void XtResizeWidget(
+    Widget w,
+    _XtDimension width,
+    _XtDimension height,
+    _XtDimension borderWidth)
+{
+    XtConfigureWidget(w, w->core.x, w->core.y, width, height, borderWidth);
+} /* XtResizeWidget */
+
+void XtConfigureWidget(
+    Widget w,
+    _XtPosition x,
+    _XtPosition y,
+    _XtDimension width,
+    _XtDimension height,
+    _XtDimension borderWidth)
+{
+    XtConfigureHookDataRec req;
+    Widget hookobj;
+    XWindowChanges old;
+    WIDGET_TO_APPCON(w);
+
+    CALLGEOTAT(_XtGeoTrace(w,
+                   "\"%s\" is being configured by its parent \"%s\"\n",
+		   XtName(w),
+		   (XtParent(w))?XtName(XtParent(w)):"Root"));
+    CALLGEOTAT(_XtGeoTab(1));
+
+    LOCK_APP(app);
+    req.changeMask = 0;
+    if ((old.x = w->core.x) != x) {
+	CALLGEOTAT(_XtGeoTrace(w,"x move from %d to %d\n",w->core.x, x));
+	req.changes.x = w->core.x = x;
+	req.changeMask |= CWX;
+    }
+
+    if ((old.y = w->core.y) != y) {
+	CALLGEOTAT(_XtGeoTrace(w,"y move from %d to %d\n",w->core.y, y));
+	req.changes.y = w->core.y = y;
+	req.changeMask |= CWY;
+    }
+
+    if ((old.width = w->core.width) != width) {
+	CALLGEOTAT(_XtGeoTrace(w,
+			 "width move from %d to %d\n",w->core.width, width));
+	req.changes.width = w->core.width = width;
+	req.changeMask |= CWWidth;
+    }
+
+    if ((old.height = w->core.height) != height) {
+	CALLGEOTAT(_XtGeoTrace(w,
+		       "height move from %d to %d\n",w->core.height, height));
+	req.changes.height = w->core.height = height;
+	req.changeMask |= CWHeight;
+    }
+
+    if ((old.border_width = w->core.border_width) != borderWidth) {
+	CALLGEOTAT(_XtGeoTrace(w,"border_width move from %d to %d\n",
+		    w->core.border_width,borderWidth ));
+	req.changes.border_width = w->core.border_width = borderWidth;
+	req.changeMask |= CWBorderWidth;
+    }
+
+    if (req.changeMask != 0) {
+	if (XtIsRealized(w)) {
+	    if (XtIsWidget(w)) {
+		CALLGEOTAT(_XtGeoTrace(w,
+                                  "XConfigure \"%s\"'s window\n",XtName(w)));
+		XConfigureWindow(XtDisplay(w), XtWindow(w),
+				 req.changeMask, &req.changes);
+	    } else {
+		CALLGEOTAT(_XtGeoTrace(w,
+			       "ClearRectObj called on \"%s\"\n",XtName(w)));
+		ClearRectObjAreas((RectObj)w, &old);
+	    }
+	}
+	hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));;
+	if (XtHasCallbacks(hookobj, XtNconfigureHook) == XtCallbackHasSome) {
+	    req.type = XtHconfigure;
+	    req.widget = w;
+	    XtCallCallbackList(hookobj,
+			((HookObject)hookobj)->hooks.confighook_callbacks,
+			(XtPointer)&req);
+	}
+	{
+	XtWidgetProc resize;
+
+	LOCK_PROCESS;
+	resize = XtClass(w)->core_class.resize;
+	UNLOCK_PROCESS;
+	if ((req.changeMask & (CWWidth | CWHeight)) &&
+	    resize != (XtWidgetProc) NULL) {
+	    CALLGEOTAT(_XtGeoTrace(w,"Resize proc is called.\n"));
+	    (*resize)(w);
+	 }
+	}
+    } else {
+	CALLGEOTAT(_XtGeoTrace(w,"No change in configuration\n"));
+    }
+
+    CALLGEOTAT(_XtGeoTab(-1));
+    UNLOCK_APP(app);
+} /* XtConfigureWidget */
+
+void XtMoveWidget(
+    Widget w,
+    _XtPosition x,
+    _XtPosition y)
+{
+    XtConfigureWidget(w, x, y, w->core.width, w->core.height,
+		      w->core.border_width);
+} /* XtMoveWidget */
+
+void XtTranslateCoords(
+    register Widget w,
+    _XtPosition x,
+    _XtPosition y,
+    register Position *rootx,	/* return */
+    register Position *rooty)	/* return */
+{
+    Position garbagex, garbagey;
+    XtAppContext app = XtWidgetToApplicationContext(w);
+
+    LOCK_APP(app);
+    if (rootx == NULL) rootx = &garbagex;
+    if (rooty == NULL) rooty = &garbagey;
+
+    *rootx = x;
+    *rooty = y;
+
+    for (; w != NULL && ! XtIsShell(w); w = w->core.parent) {
+	*rootx += w->core.x + w->core.border_width;
+	*rooty += w->core.y + w->core.border_width;
+    }
+
+    if (w == NULL)
+        XtAppWarningMsg(app,
+		"invalidShell","xtTranslateCoords",XtCXtToolkitError,
+                "Widget has no shell ancestor",
+		(String *)NULL, (Cardinal *)NULL);
+    else {
+	Position x, y;
+	_XtShellGetCoordinates( w, &x, &y );
+	*rootx += x + w->core.border_width;
+	*rooty += y + w->core.border_width;
+    }
+    UNLOCK_APP(app);
+}
+
+XtGeometryResult XtQueryGeometry(
+    Widget widget,
+    register XtWidgetGeometry *intended, /* parent's changes; may be NULL */
+    XtWidgetGeometry *reply)	/* child's preferred geometry; never NULL */
+{
+    XtWidgetGeometry null_intended;
+    XtGeometryHandler query;
+    XtGeometryResult result;
+    WIDGET_TO_APPCON(widget);
+
+    CALLGEOTAT(_XtGeoTrace(widget,
+		     "\"%s\" is asking its preferred geometry to \"%s\".\n",
+		     (XtParent(widget))?XtName(XtParent(widget)):"Root",
+		     XtName(widget)));
+    CALLGEOTAT(_XtGeoTab(1));
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    query = XtClass(widget)->core_class.query_geometry;
+    UNLOCK_PROCESS;
+    reply->request_mode = 0;
+    if (query != NULL) {
+	if (intended == NULL) {
+	    null_intended.request_mode = 0;
+	    intended = &null_intended;
+#ifdef XT_GEO_TATTLER
+	    CALLGEOTAT(_XtGeoTrace(widget,"without any constraint.\n"));
+	} else {
+	    CALLGEOTAT(_XtGeoTrace(widget,
+				   "with the following constraints:\n"));
+
+	    if (intended->request_mode & CWX) {
+		CALLGEOTAT(_XtGeoTrace(widget," x = %d\n",intended->x));
+	    }
+	    if (intended->request_mode & CWY) {
+		CALLGEOTAT(_XtGeoTrace(widget," y = %d\n",intended->y));
+	    }
+	    if (intended->request_mode & CWWidth) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				       " width = %d\n",intended->width));
+	    }
+	    if (intended->request_mode & CWHeight) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+				       " height = %d\n",intended->height));
+	    }
+	    if (intended->request_mode & CWBorderWidth) {
+		CALLGEOTAT(_XtGeoTrace(widget,
+			       " border_width = %d\n",intended->border_width));
+	    }
+#endif
+	}
+
+	result = (*query) (widget, intended, reply);
+    }
+    else {
+	CALLGEOTAT(_XtGeoTrace(widget,"\"%s\" has no QueryGeometry proc, return the current state\n",XtName(widget)));
+
+	result = XtGeometryYes;
+    }
+
+#ifdef XT_GEO_TATTLER
+#define FillIn(mask, field) \
+	if (!(reply->request_mode & mask)) {\
+	      reply->field = widget->core.field;\
+	      _XtGeoTrace(widget," using core %s = %d.\n","field",\
+			                               widget->core.field);\
+	} else {\
+	      _XtGeoTrace(widget," replied %s = %d\n","field",\
+			                           reply->field);\
+	}
+#else
+#define FillIn(mask, field) \
+	if (!(reply->request_mode & mask)) reply->field = widget->core.field;
+#endif
+
+    FillIn(CWX, x);
+    FillIn(CWY, y);
+    FillIn(CWWidth, width);
+    FillIn(CWHeight, height);
+    FillIn(CWBorderWidth, border_width);
+
+    CALLGEOTAT(_XtGeoTab(-1));
+#undef FillIn
+
+    if (!(reply->request_mode & CWStackMode))
+	reply->stack_mode = XtSMDontChange;
+    UNLOCK_APP(app);
+    return result;
+}
diff --git a/libXt/src/GetActKey.c b/libXt/src/GetActKey.c
index 356f02cda..cf1278ebb 100644
--- a/libXt/src/GetActKey.c
+++ b/libXt/src/GetActKey.c
@@ -1,111 +1,111 @@
-/*LINTLIBRARY*/

-

-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-

-KeySym XtGetActionKeysym(

-    XEvent *event,

-    Modifiers *modifiers_return)

-{

-    TMKeyContext tm_context;

-    Modifiers modifiers;

-    KeySym keysym, retval;

-

-    LOCK_PROCESS;

-    tm_context= _XtGetPerDisplay(event->xany.display)->tm_context;

-    if (event->xany.type != KeyPress && event->xany.type != KeyRelease) {

-	UNLOCK_PROCESS;

-	return NoSymbol;

-    }

-    if (tm_context != NULL

-	&& event == tm_context->event

-	&& event->xany.serial == tm_context->serial ) {

-

-	if (modifiers_return != NULL)

-	    *modifiers_return = tm_context->modifiers;

-	retval = tm_context->keysym;

-	UNLOCK_PROCESS;

-	return retval;

-    }

-

-    XtTranslateKeycode( event->xany.display, (KeyCode)event->xkey.keycode,

-		        event->xkey.state, &modifiers, &keysym );

-

-    if (modifiers_return != NULL)

-	*modifiers_return = event->xkey.state & modifiers;

-

-    UNLOCK_PROCESS;

-    return keysym;

-}

+/*LINTLIBRARY*/
+
+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+
+KeySym XtGetActionKeysym(
+    XEvent *event,
+    Modifiers *modifiers_return)
+{
+    TMKeyContext tm_context;
+    Modifiers modifiers;
+    KeySym keysym, retval;
+
+    LOCK_PROCESS;
+    tm_context= _XtGetPerDisplay(event->xany.display)->tm_context;
+    if (event->xany.type != KeyPress && event->xany.type != KeyRelease) {
+	UNLOCK_PROCESS;
+	return NoSymbol;
+    }
+    if (tm_context != NULL
+	&& event == tm_context->event
+	&& event->xany.serial == tm_context->serial ) {
+
+	if (modifiers_return != NULL)
+	    *modifiers_return = tm_context->modifiers;
+	retval = tm_context->keysym;
+	UNLOCK_PROCESS;
+	return retval;
+    }
+
+    XtTranslateKeycode( event->xany.display, (KeyCode)event->xkey.keycode,
+		        event->xkey.state, &modifiers, &keysym );
+
+    if (modifiers_return != NULL)
+	*modifiers_return = event->xkey.state & modifiers;
+
+    UNLOCK_PROCESS;
+    return keysym;
+}
diff --git a/libXt/src/GetResList.c b/libXt/src/GetResList.c
index a648c1310..c22725c11 100644
--- a/libXt/src/GetResList.c
+++ b/libXt/src/GetResList.c
@@ -1,201 +1,201 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "Intrinsic.h"

-

-/*

- * XtGetResourceList(), XtGetConstraintResourceList()

- */

-

-#define	TOXRMQUARK(p) ((XrmQuark)(long)(p))	/* avoid LP64 warnings */

-

-void XtGetResourceList(

-	WidgetClass widget_class,

-	XtResourceList *resources,

-	Cardinal *num_resources)

-{

-	int size;

-	register Cardinal i, dest = 0;

-	register XtResourceList *list, dlist;

-

-	LOCK_PROCESS;

-	size = widget_class->core_class.num_resources * sizeof(XtResource);

-	*resources = (XtResourceList) __XtMalloc((unsigned) size);

-

-	if (!widget_class->core_class.class_inited) {

-	    /* Easy case */

-

-	    (void) memmove((char *) *resources,

-			   (char *)widget_class->core_class.resources, size);

-	    *num_resources = widget_class->core_class.num_resources;

-	    UNLOCK_PROCESS;

-	    return;

-	}

-

-	/* Nope, it's the hard case */

-

-	list = (XtResourceList *) widget_class->core_class.resources;

-	dlist = *resources;

-	for (i = 0; i < widget_class->core_class.num_resources; i++) {

-	    if (list[i] != NULL) {

-		dlist[dest].resource_name = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->resource_name));

-		dlist[dest].resource_class = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->resource_class));

-		dlist[dest].resource_type = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->resource_type));

-		dlist[dest].resource_size = list[i]->resource_size;

-		/* trust that resource_offset isn't that big */

-		dlist[dest].resource_offset = (Cardinal)

-			-((int)(list[i]->resource_offset + 1));

-		dlist[dest].default_type = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->default_type));

-		dlist[dest].default_addr = list[i]->default_addr;

-		dest++;

-	    }

-	}

-	*num_resources = dest;

-	UNLOCK_PROCESS;

-}

-

-

-static Boolean ClassIsSubclassOf(WidgetClass class, WidgetClass superclass)

-{

-    for (; class != NULL; class = class->core_class.superclass) {

-	if (class == superclass) return True;

-    }

-    return False;

-}

-

-void XtGetConstraintResourceList(

-	WidgetClass widget_class,

-	XtResourceList *resources,

-	Cardinal *num_resources)

-{

-	int size;

-	register Cardinal i, dest = 0;

-	register XtResourceList *list, dlist;

-	ConstraintWidgetClass class = (ConstraintWidgetClass)widget_class;

-

-	LOCK_PROCESS;

-	if (   (class->core_class.class_inited &&

-		!(class->core_class.class_inited & ConstraintClassFlag))

-	    || (!class->core_class.class_inited &&

-		!ClassIsSubclassOf(widget_class, constraintWidgetClass))

-	    || class->constraint_class.num_resources == 0) {

-

-	    *resources = NULL;

-	    *num_resources = 0;

-	    UNLOCK_PROCESS;

-	    return;

-	}

-

-	size = class->constraint_class.num_resources * sizeof(XtResource);

-	*resources = (XtResourceList) __XtMalloc((unsigned) size);

-

-	if (!class->core_class.class_inited) {

-	    /* Easy case */

-

-	    (void) memmove((char *) *resources,

-			   (char *)class->constraint_class.resources, size);

-	    *num_resources = class->constraint_class.num_resources;

-	    UNLOCK_PROCESS;

-	    return;

-	}

-

-	/* Nope, it's the hard case */

-

-	list = (XtResourceList *) class->constraint_class.resources;

-	dlist = *resources;

-	for (i = 0; i < class->constraint_class.num_resources; i++) {

-	    if (list[i] != NULL) {

-		dlist[dest].resource_name = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->resource_name));

-		dlist[dest].resource_class = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->resource_class));

-		dlist[dest].resource_type = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->resource_type));

-		dlist[dest].resource_size = list[i]->resource_size;

-		/* trust that resource_offset isn't that big */

-		dlist[dest].resource_offset = (Cardinal)

-			-((int)(list[i]->resource_offset + 1));

-		dlist[dest].default_type = (String)

-			XrmQuarkToString(TOXRMQUARK(list[i]->default_type));

-		dlist[dest].default_addr = list[i]->default_addr;

-		dest++;

-	    }

-	}

-	*num_resources = dest;

-	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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "Intrinsic.h"
+
+/*
+ * XtGetResourceList(), XtGetConstraintResourceList()
+ */
+
+#define	TOXRMQUARK(p) ((XrmQuark)(long)(p))	/* avoid LP64 warnings */
+
+void XtGetResourceList(
+	WidgetClass widget_class,
+	XtResourceList *resources,
+	Cardinal *num_resources)
+{
+	int size;
+	register Cardinal i, dest = 0;
+	register XtResourceList *list, dlist;
+
+	LOCK_PROCESS;
+	size = widget_class->core_class.num_resources * sizeof(XtResource);
+	*resources = (XtResourceList) __XtMalloc((unsigned) size);
+
+	if (!widget_class->core_class.class_inited) {
+	    /* Easy case */
+
+	    (void) memmove((char *) *resources,
+			   (char *)widget_class->core_class.resources, size);
+	    *num_resources = widget_class->core_class.num_resources;
+	    UNLOCK_PROCESS;
+	    return;
+	}
+
+	/* Nope, it's the hard case */
+
+	list = (XtResourceList *) widget_class->core_class.resources;
+	dlist = *resources;
+	for (i = 0; i < widget_class->core_class.num_resources; i++) {
+	    if (list[i] != NULL) {
+		dlist[dest].resource_name = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->resource_name));
+		dlist[dest].resource_class = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->resource_class));
+		dlist[dest].resource_type = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->resource_type));
+		dlist[dest].resource_size = list[i]->resource_size;
+		/* trust that resource_offset isn't that big */
+		dlist[dest].resource_offset = (Cardinal)
+			-((int)(list[i]->resource_offset + 1));
+		dlist[dest].default_type = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->default_type));
+		dlist[dest].default_addr = list[i]->default_addr;
+		dest++;
+	    }
+	}
+	*num_resources = dest;
+	UNLOCK_PROCESS;
+}
+
+
+static Boolean ClassIsSubclassOf(WidgetClass class, WidgetClass superclass)
+{
+    for (; class != NULL; class = class->core_class.superclass) {
+	if (class == superclass) return True;
+    }
+    return False;
+}
+
+void XtGetConstraintResourceList(
+	WidgetClass widget_class,
+	XtResourceList *resources,
+	Cardinal *num_resources)
+{
+	int size;
+	register Cardinal i, dest = 0;
+	register XtResourceList *list, dlist;
+	ConstraintWidgetClass class = (ConstraintWidgetClass)widget_class;
+
+	LOCK_PROCESS;
+	if (   (class->core_class.class_inited &&
+		!(class->core_class.class_inited & ConstraintClassFlag))
+	    || (!class->core_class.class_inited &&
+		!ClassIsSubclassOf(widget_class, constraintWidgetClass))
+	    || class->constraint_class.num_resources == 0) {
+
+	    *resources = NULL;
+	    *num_resources = 0;
+	    UNLOCK_PROCESS;
+	    return;
+	}
+
+	size = class->constraint_class.num_resources * sizeof(XtResource);
+	*resources = (XtResourceList) __XtMalloc((unsigned) size);
+
+	if (!class->core_class.class_inited) {
+	    /* Easy case */
+
+	    (void) memmove((char *) *resources,
+			   (char *)class->constraint_class.resources, size);
+	    *num_resources = class->constraint_class.num_resources;
+	    UNLOCK_PROCESS;
+	    return;
+	}
+
+	/* Nope, it's the hard case */
+
+	list = (XtResourceList *) class->constraint_class.resources;
+	dlist = *resources;
+	for (i = 0; i < class->constraint_class.num_resources; i++) {
+	    if (list[i] != NULL) {
+		dlist[dest].resource_name = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->resource_name));
+		dlist[dest].resource_class = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->resource_class));
+		dlist[dest].resource_type = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->resource_type));
+		dlist[dest].resource_size = list[i]->resource_size;
+		/* trust that resource_offset isn't that big */
+		dlist[dest].resource_offset = (Cardinal)
+			-((int)(list[i]->resource_offset + 1));
+		dlist[dest].default_type = (String)
+			XrmQuarkToString(TOXRMQUARK(list[i]->default_type));
+		dlist[dest].default_addr = list[i]->default_addr;
+		dest++;
+	    }
+	}
+	*num_resources = dest;
+	UNLOCK_PROCESS;
+}
diff --git a/libXt/src/GetValues.c b/libXt/src/GetValues.c
index 845613e66..511b8d807 100644
--- a/libXt/src/GetValues.c
+++ b/libXt/src/GetValues.c
@@ -1,260 +1,260 @@
-/*LINTLIBRARY*/

-

-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-

-static int GetValues(

-  char*			base,		/* Base address to fetch values from */

-  XrmResourceList*      res,		/* The current resource values.      */

-  register Cardinal	num_resources,	/* number of items in resources      */

-  ArgList 		args,		/* The resource values requested     */

-  Cardinal		num_args)	/* number of items in arg list       */

-{

-    register ArgList		arg;

-    register Cardinal 		i;

-    register XrmName		argName;

-    register XrmResourceList*   xrmres;

-    int				translation_arg_num = -1;

-    static XrmQuark QCallback = NULLQUARK;

-    static XrmQuark QTranslationTable = NULLQUARK;

-

-    LOCK_PROCESS;

-    if (QCallback == NULLQUARK) {

-	QCallback = XrmPermStringToQuark(XtRCallback);

-	QTranslationTable = XrmPermStringToQuark(XtRTranslationTable);

-    }

-    UNLOCK_PROCESS;

-

-    /* Resource lists should be in compiled form already  */

-

-    for (arg = args ; num_args != 0; num_args--, arg++) {

-	argName = StringToName(arg->name);

-	for (xrmres = res, i = 0; i < num_resources; i++, xrmres++) {

-	    if (argName == (*xrmres)->xrm_name) {

-		/* hack; do special cases here instead of a get_values_hook

-		 * because get_values_hook looses info as to

-		 * whether arg->value == NULL for ancient compatibility

-		 * mode in _XtCopyToArg.  It helps performance, too...

-		 */

-		if ((*xrmres)->xrm_type == QCallback) {

-		    XtCallbackList callback = _XtGetCallbackList(

-			      (InternalCallbackList *)

-			      (base - (*xrmres)->xrm_offset - 1));

-		    _XtCopyToArg(

-			      (char*)&callback, &arg->value,

-			      (*xrmres)->xrm_size);

-		}

-		else if ((*xrmres)->xrm_type == QTranslationTable)

-		    translation_arg_num = (int) (arg - args);

-		else {

-		    _XtCopyToArg(

-			      base - (*xrmres)->xrm_offset - 1,

-			      &arg->value,

-			      (*xrmres)->xrm_size);

-		}

-		break;

-	    }

-	}

-    }

-    return translation_arg_num;

-} /* GetValues */

-

-static void CallGetValuesHook(

-    WidgetClass	  widget_class,

-    Widget	  w,

-    ArgList	  args,

-    Cardinal	  num_args)

-{

-    WidgetClass superclass;

-    XtArgsProc get_values_hook;

-

-    LOCK_PROCESS;

-    superclass = widget_class->core_class.superclass;

-    UNLOCK_PROCESS;

-    if (superclass != NULL)

-	CallGetValuesHook (superclass, w, args, num_args);

-

-    LOCK_PROCESS;

-    get_values_hook = widget_class->core_class.get_values_hook;

-    UNLOCK_PROCESS;

-    if (get_values_hook != NULL)

-	(*get_values_hook) (w, args, &num_args);

-}

-

-

-

-static void CallConstraintGetValuesHook(

-    WidgetClass	  widget_class,

-    Widget	  w,

-    ArgList	  args,

-    Cardinal	  num_args)

-{

-    ConstraintClassExtension ext;

-

-    LOCK_PROCESS;

-    if (widget_class->core_class.superclass

-	->core_class.class_inited & ConstraintClassFlag) {

-	CallConstraintGetValuesHook

-	    (widget_class->core_class.superclass, w, args, num_args);

-    }

-

-    for (ext = (ConstraintClassExtension)((ConstraintWidgetClass)widget_class)

-		 ->constraint_class.extension;

-	 ext != NULL && ext->record_type != NULLQUARK;

-	 ext = (ConstraintClassExtension)ext->next_extension);

-

-    if (ext != NULL) {

-	if (  ext->version == XtConstraintExtensionVersion

-	      && ext->record_size == sizeof(ConstraintClassExtensionRec)) {

-	    if (ext->get_values_hook != NULL)

-		(*(ext->get_values_hook)) (w, args, &num_args);

-	} else {

-	    String params[1];

-	    Cardinal num_params = 1;

-	    params[0] = widget_class->core_class.class_name;

-	    XtAppWarningMsg(XtWidgetToApplicationContext(w),

-		 "invalidExtension", "xtCreateWidget", XtCXtToolkitError,

-		 "widget class %s has invalid ConstraintClassExtension record",

-		 params, &num_params);

-	}

-    }

-    UNLOCK_PROCESS;

-}

-

-

-void XtGetValues(

-    register Widget   w,

-    register ArgList  args,

-    register Cardinal num_args)

-{

-    WidgetClass wc;

-    int targ;

-    XtAppContext app = XtWidgetToApplicationContext(w);

-

-    if (num_args == 0) return;

-    if ((args == NULL) && (num_args != 0)) {

-	XtAppErrorMsg(app,

-		"invalidArgCount","xtGetValues",XtCXtToolkitError,

-            "Argument count > 0 on NULL argument list in XtGetValues",

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

-    }

-

-    LOCK_APP(app);

-    wc = XtClass(w);

-    LOCK_PROCESS;

-    /* Get widget values */

-    targ = GetValues((char*)w, (XrmResourceList *) wc->core_class.resources,

-	wc->core_class.num_resources, args, num_args);

-    UNLOCK_PROCESS;

-    if (targ != -1 && XtIsWidget(w)) {

-	XtTranslations translations = _XtGetTranslationValue(w);

-	_XtCopyToArg((char*)&translations, &args[targ].value,

-		     sizeof(XtTranslations));

-    }

-

-    /* Get constraint values if necessary */

-    /* constraints may be NULL if constraint_size==0 */

-    if (XtParent(w) != NULL && !XtIsShell(w) && XtIsConstraint(XtParent(w)) &&

-	w->core.constraints) {

-	ConstraintWidgetClass cwc

-	    = (ConstraintWidgetClass) XtClass(XtParent(w));

-	LOCK_PROCESS;

-	GetValues((char*)w->core.constraints,

-		  (XrmResourceList *)(cwc->constraint_class.resources),

-		  cwc->constraint_class.num_resources, args, num_args);

-	UNLOCK_PROCESS;

-    }

-    /* Notify any class procedures that we have performed get_values */

-    CallGetValuesHook(wc, w, args, num_args);

-

-    /* Notify constraint get_values if necessary */

-    if (XtParent(w) != NULL && !XtIsShell(w) && XtIsConstraint(XtParent(w)))

-	CallConstraintGetValuesHook(XtClass(XtParent(w)), w, args,num_args);

-    UNLOCK_APP(app);

-} /* XtGetValues */

-

-void XtGetSubvalues(

-  XtPointer	    base,           /* Base address to fetch values from */

-  XtResourceList    resources,      /* The current resource values.      */

-  Cardinal	    num_resources,  /* number of items in resources      */

-  ArgList	    args,           /* The resource values requested     */

-  Cardinal	    num_args)       /* number of items in arg list       */

-{

-    XrmResourceList* xrmres;

-    xrmres = _XtCreateIndirectionTable(resources, num_resources);

-    GetValues((char*)base, xrmres, num_resources, args, num_args);

-    XtFree((char *)xrmres);

-}

+/*LINTLIBRARY*/
+
+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+
+static int GetValues(
+  char*			base,		/* Base address to fetch values from */
+  XrmResourceList*      res,		/* The current resource values.      */
+  register Cardinal	num_resources,	/* number of items in resources      */
+  ArgList 		args,		/* The resource values requested     */
+  Cardinal		num_args)	/* number of items in arg list       */
+{
+    register ArgList		arg;
+    register Cardinal 		i;
+    register XrmName		argName;
+    register XrmResourceList*   xrmres;
+    int				translation_arg_num = -1;
+    static XrmQuark QCallback = NULLQUARK;
+    static XrmQuark QTranslationTable = NULLQUARK;
+
+    LOCK_PROCESS;
+    if (QCallback == NULLQUARK) {
+	QCallback = XrmPermStringToQuark(XtRCallback);
+	QTranslationTable = XrmPermStringToQuark(XtRTranslationTable);
+    }
+    UNLOCK_PROCESS;
+
+    /* Resource lists should be in compiled form already  */
+
+    for (arg = args ; num_args != 0; num_args--, arg++) {
+	argName = StringToName(arg->name);
+	for (xrmres = res, i = 0; i < num_resources; i++, xrmres++) {
+	    if (argName == (*xrmres)->xrm_name) {
+		/* hack; do special cases here instead of a get_values_hook
+		 * because get_values_hook looses info as to
+		 * whether arg->value == NULL for ancient compatibility
+		 * mode in _XtCopyToArg.  It helps performance, too...
+		 */
+		if ((*xrmres)->xrm_type == QCallback) {
+		    XtCallbackList callback = _XtGetCallbackList(
+			      (InternalCallbackList *)
+			      (base - (*xrmres)->xrm_offset - 1));
+		    _XtCopyToArg(
+			      (char*)&callback, &arg->value,
+			      (*xrmres)->xrm_size);
+		}
+		else if ((*xrmres)->xrm_type == QTranslationTable)
+		    translation_arg_num = (int) (arg - args);
+		else {
+		    _XtCopyToArg(
+			      base - (*xrmres)->xrm_offset - 1,
+			      &arg->value,
+			      (*xrmres)->xrm_size);
+		}
+		break;
+	    }
+	}
+    }
+    return translation_arg_num;
+} /* GetValues */
+
+static void CallGetValuesHook(
+    WidgetClass	  widget_class,
+    Widget	  w,
+    ArgList	  args,
+    Cardinal	  num_args)
+{
+    WidgetClass superclass;
+    XtArgsProc get_values_hook;
+
+    LOCK_PROCESS;
+    superclass = widget_class->core_class.superclass;
+    UNLOCK_PROCESS;
+    if (superclass != NULL)
+	CallGetValuesHook (superclass, w, args, num_args);
+
+    LOCK_PROCESS;
+    get_values_hook = widget_class->core_class.get_values_hook;
+    UNLOCK_PROCESS;
+    if (get_values_hook != NULL)
+	(*get_values_hook) (w, args, &num_args);
+}
+
+
+
+static void CallConstraintGetValuesHook(
+    WidgetClass	  widget_class,
+    Widget	  w,
+    ArgList	  args,
+    Cardinal	  num_args)
+{
+    ConstraintClassExtension ext;
+
+    LOCK_PROCESS;
+    if (widget_class->core_class.superclass
+	->core_class.class_inited & ConstraintClassFlag) {
+	CallConstraintGetValuesHook
+	    (widget_class->core_class.superclass, w, args, num_args);
+    }
+
+    for (ext = (ConstraintClassExtension)((ConstraintWidgetClass)widget_class)
+		 ->constraint_class.extension;
+	 ext != NULL && ext->record_type != NULLQUARK;
+	 ext = (ConstraintClassExtension)ext->next_extension);
+
+    if (ext != NULL) {
+	if (  ext->version == XtConstraintExtensionVersion
+	      && ext->record_size == sizeof(ConstraintClassExtensionRec)) {
+	    if (ext->get_values_hook != NULL)
+		(*(ext->get_values_hook)) (w, args, &num_args);
+	} else {
+	    String params[1];
+	    Cardinal num_params = 1;
+	    params[0] = widget_class->core_class.class_name;
+	    XtAppWarningMsg(XtWidgetToApplicationContext(w),
+		 "invalidExtension", "xtCreateWidget", XtCXtToolkitError,
+		 "widget class %s has invalid ConstraintClassExtension record",
+		 params, &num_params);
+	}
+    }
+    UNLOCK_PROCESS;
+}
+
+
+void XtGetValues(
+    register Widget   w,
+    register ArgList  args,
+    register Cardinal num_args)
+{
+    WidgetClass wc;
+    int targ;
+    XtAppContext app = XtWidgetToApplicationContext(w);
+
+    if (num_args == 0) return;
+    if ((args == NULL) && (num_args != 0)) {
+	XtAppErrorMsg(app,
+		"invalidArgCount","xtGetValues",XtCXtToolkitError,
+            "Argument count > 0 on NULL argument list in XtGetValues",
+              (String *)NULL, (Cardinal *)NULL);
+    }
+
+    LOCK_APP(app);
+    wc = XtClass(w);
+    LOCK_PROCESS;
+    /* Get widget values */
+    targ = GetValues((char*)w, (XrmResourceList *) wc->core_class.resources,
+	wc->core_class.num_resources, args, num_args);
+    UNLOCK_PROCESS;
+    if (targ != -1 && XtIsWidget(w)) {
+	XtTranslations translations = _XtGetTranslationValue(w);
+	_XtCopyToArg((char*)&translations, &args[targ].value,
+		     sizeof(XtTranslations));
+    }
+
+    /* Get constraint values if necessary */
+    /* constraints may be NULL if constraint_size==0 */
+    if (XtParent(w) != NULL && !XtIsShell(w) && XtIsConstraint(XtParent(w)) &&
+	w->core.constraints) {
+	ConstraintWidgetClass cwc
+	    = (ConstraintWidgetClass) XtClass(XtParent(w));
+	LOCK_PROCESS;
+	GetValues((char*)w->core.constraints,
+		  (XrmResourceList *)(cwc->constraint_class.resources),
+		  cwc->constraint_class.num_resources, args, num_args);
+	UNLOCK_PROCESS;
+    }
+    /* Notify any class procedures that we have performed get_values */
+    CallGetValuesHook(wc, w, args, num_args);
+
+    /* Notify constraint get_values if necessary */
+    if (XtParent(w) != NULL && !XtIsShell(w) && XtIsConstraint(XtParent(w)))
+	CallConstraintGetValuesHook(XtClass(XtParent(w)), w, args,num_args);
+    UNLOCK_APP(app);
+} /* XtGetValues */
+
+void XtGetSubvalues(
+  XtPointer	    base,           /* Base address to fetch values from */
+  XtResourceList    resources,      /* The current resource values.      */
+  Cardinal	    num_resources,  /* number of items in resources      */
+  ArgList	    args,           /* The resource values requested     */
+  Cardinal	    num_args)       /* number of items in arg list       */
+{
+    XrmResourceList* xrmres;
+    xrmres = _XtCreateIndirectionTable(resources, num_resources);
+    GetValues((char*)base, xrmres, num_resources, args, num_args);
+    XtFree((char *)xrmres);
+}
diff --git a/libXt/src/HookObj.c b/libXt/src/HookObj.c
index 962761ef9..8aefa53ac 100644
--- a/libXt/src/HookObj.c
+++ b/libXt/src/HookObj.c
@@ -1,134 +1,134 @@
-/*

-

-Copyright 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-/******************************************************************

- *

- * Hook Object Resources

- *

- ******************************************************************/

-

-static XtResource resources[] = {

-  { XtNcreateHook, XtCCallback, XtRCallback, sizeof(XtPointer),

-    XtOffsetOf(HookObjRec, hooks.createhook_callbacks),

-    XtRCallback, (XtPointer)NULL},

-  { XtNchangeHook, XtCCallback, XtRCallback, sizeof(XtPointer),

-    XtOffsetOf(HookObjRec, hooks.changehook_callbacks),

-    XtRCallback, (XtPointer)NULL},

-  { XtNconfigureHook, XtCCallback, XtRCallback, sizeof(XtPointer),

-    XtOffsetOf(HookObjRec, hooks.confighook_callbacks),

-    XtRCallback, (XtPointer)NULL},

-  { XtNgeometryHook, XtCCallback, XtRCallback, sizeof(XtPointer),

-    XtOffsetOf(HookObjRec, hooks.geometryhook_callbacks),

-    XtRCallback, (XtPointer)NULL},

-  { XtNdestroyHook, XtCCallback, XtRCallback, sizeof(XtPointer),

-    XtOffsetOf(HookObjRec, hooks.destroyhook_callbacks),

-    XtRCallback, (XtPointer)NULL},

-  { XtNshells, XtCReadOnly, XtRWidgetList, sizeof(WidgetList),

-    XtOffsetOf(HookObjRec, hooks.shells), XtRImmediate, (XtPointer) NULL },

-  { XtNnumShells, XtCReadOnly, XtRCardinal, sizeof(Cardinal),

-    XtOffsetOf(HookObjRec, hooks.num_shells), XtRImmediate, (XtPointer) 0 }

-};

-

-static void GetValuesHook(Widget widget, ArgList args, Cardinal *num_args);

-static void Initialize(Widget req, Widget new, ArgList args,

-			Cardinal *num_args);

-

-externaldef(hookobjclassrec) HookObjClassRec hookObjClassRec = {

-  { /* Object Class Part */

-    /* superclass	  */	(WidgetClass)&objectClassRec,

-    /* class_name	  */	"Hook",

-    /* widget_size	  */	sizeof(HookObjRec),

-    /* class_initialize   */    NULL,

-    /* class_part_initialize*/	NULL,

-    /* class_inited       */	FALSE,

-    /* initialize	  */	Initialize,

-    /* initialize_hook    */	NULL,

-    /* realize		  */	NULL,

-    /* actions		  */	NULL,

-    /* num_actions	  */	0,

-    /* resources	  */	resources,

-    /* num_resources	  */	XtNumber(resources),

-    /* xrm_class	  */	NULLQUARK,

-    /* compress_motion	  */	FALSE,

-    /* compress_exposure  */	TRUE,

-    /* compress_enterleave*/ 	FALSE,

-    /* visible_interest	  */	FALSE,

-    /* destroy		  */	NULL,

-    /* resize		  */	NULL,

-    /* expose		  */	NULL,

-    /* set_values	  */	NULL,

-    /* set_values_hook    */	NULL,

-    /* set_values_almost  */	NULL,

-    /* get_values_hook    */	GetValuesHook,

-    /* accept_focus	  */	NULL,

-    /* version		  */	XtVersion,

-    /* callback_offsets   */    NULL,

-    /* tm_table           */    NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */	NULL,

-    /* extension	    */  NULL

-  },

-  { /* HookObj Class Part */

-    /* unused               */	0

-  }

-};

-

-externaldef(hookObjectClass) WidgetClass hookObjectClass =

-	(WidgetClass)&hookObjClassRec;

-

-static void FreeShellList(

-    Widget w,

-    XtPointer closure,

-    XtPointer call_data)

-{

-    HookObject h = (HookObject)w;

-    if (h->hooks.shells != NULL)

-	XtFree((char*)h->hooks.shells);

-}

-

-static void Initialize(

-    Widget req,

-    Widget new,

-    ArgList args,

-    Cardinal* num_args)

-{

-    HookObject w = (HookObject) new;

-    w->hooks.max_shells = 0;

-    XtAddCallback (new, XtNdestroyCallback, FreeShellList, (XtPointer) NULL);

-}

-

-static void GetValuesHook(

-    Widget widget,

-    ArgList args,

-    Cardinal* num_args)

-{

-    /* get the XtNshells and XtNnumShells pseudo-resources */

-}

+/*
+
+Copyright 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+/******************************************************************
+ *
+ * Hook Object Resources
+ *
+ ******************************************************************/
+
+static XtResource resources[] = {
+  { XtNcreateHook, XtCCallback, XtRCallback, sizeof(XtPointer),
+    XtOffsetOf(HookObjRec, hooks.createhook_callbacks),
+    XtRCallback, (XtPointer)NULL},
+  { XtNchangeHook, XtCCallback, XtRCallback, sizeof(XtPointer),
+    XtOffsetOf(HookObjRec, hooks.changehook_callbacks),
+    XtRCallback, (XtPointer)NULL},
+  { XtNconfigureHook, XtCCallback, XtRCallback, sizeof(XtPointer),
+    XtOffsetOf(HookObjRec, hooks.confighook_callbacks),
+    XtRCallback, (XtPointer)NULL},
+  { XtNgeometryHook, XtCCallback, XtRCallback, sizeof(XtPointer),
+    XtOffsetOf(HookObjRec, hooks.geometryhook_callbacks),
+    XtRCallback, (XtPointer)NULL},
+  { XtNdestroyHook, XtCCallback, XtRCallback, sizeof(XtPointer),
+    XtOffsetOf(HookObjRec, hooks.destroyhook_callbacks),
+    XtRCallback, (XtPointer)NULL},
+  { XtNshells, XtCReadOnly, XtRWidgetList, sizeof(WidgetList),
+    XtOffsetOf(HookObjRec, hooks.shells), XtRImmediate, (XtPointer) NULL },
+  { XtNnumShells, XtCReadOnly, XtRCardinal, sizeof(Cardinal),
+    XtOffsetOf(HookObjRec, hooks.num_shells), XtRImmediate, (XtPointer) 0 }
+};
+
+static void GetValuesHook(Widget widget, ArgList args, Cardinal *num_args);
+static void Initialize(Widget req, Widget new, ArgList args,
+			Cardinal *num_args);
+
+externaldef(hookobjclassrec) HookObjClassRec hookObjClassRec = {
+  { /* Object Class Part */
+    /* superclass	  */	(WidgetClass)&objectClassRec,
+    /* class_name	  */	"Hook",
+    /* widget_size	  */	sizeof(HookObjRec),
+    /* class_initialize   */    NULL,
+    /* class_part_initialize*/	NULL,
+    /* class_inited       */	FALSE,
+    /* initialize	  */	Initialize,
+    /* initialize_hook    */	NULL,
+    /* realize		  */	NULL,
+    /* actions		  */	NULL,
+    /* num_actions	  */	0,
+    /* resources	  */	resources,
+    /* num_resources	  */	XtNumber(resources),
+    /* xrm_class	  */	NULLQUARK,
+    /* compress_motion	  */	FALSE,
+    /* compress_exposure  */	TRUE,
+    /* compress_enterleave*/ 	FALSE,
+    /* visible_interest	  */	FALSE,
+    /* destroy		  */	NULL,
+    /* resize		  */	NULL,
+    /* expose		  */	NULL,
+    /* set_values	  */	NULL,
+    /* set_values_hook    */	NULL,
+    /* set_values_almost  */	NULL,
+    /* get_values_hook    */	GetValuesHook,
+    /* accept_focus	  */	NULL,
+    /* version		  */	XtVersion,
+    /* callback_offsets   */    NULL,
+    /* tm_table           */    NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */	NULL,
+    /* extension	    */  NULL
+  },
+  { /* HookObj Class Part */
+    /* unused               */	0
+  }
+};
+
+externaldef(hookObjectClass) WidgetClass hookObjectClass =
+	(WidgetClass)&hookObjClassRec;
+
+static void FreeShellList(
+    Widget w,
+    XtPointer closure,
+    XtPointer call_data)
+{
+    HookObject h = (HookObject)w;
+    if (h->hooks.shells != NULL)
+	XtFree((char*)h->hooks.shells);
+}
+
+static void Initialize(
+    Widget req,
+    Widget new,
+    ArgList args,
+    Cardinal* num_args)
+{
+    HookObject w = (HookObject) new;
+    w->hooks.max_shells = 0;
+    XtAddCallback (new, XtNdestroyCallback, FreeShellList, (XtPointer) NULL);
+}
+
+static void GetValuesHook(
+    Widget widget,
+    ArgList args,
+    Cardinal* num_args)
+{
+    /* get the XtNshells and XtNnumShells pseudo-resources */
+}
diff --git a/libXt/src/Hooks.c b/libXt/src/Hooks.c
index a314b716e..bf26a13e0 100644
--- a/libXt/src/Hooks.c
+++ b/libXt/src/Hooks.c
@@ -1,155 +1,155 @@
-/*

-

-Copyright 1994, 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"

-#include "CreateI.h"

-

-static void FreeBlockHookList(

-    Widget widget,		/* unused (and invalid) */

-    XtPointer closure,		/* ActionHook* */

-    XtPointer call_data)	/* unused */

-{

-    BlockHook list = *(BlockHook*)closure;

-    while (list != NULL) {

-	BlockHook next = list->next;

-	XtFree( (XtPointer)list );

-	list = next;

-    }

-}

-

-

-XtBlockHookId XtAppAddBlockHook(

-    XtAppContext app,

-    XtBlockHookProc proc,

-    XtPointer closure)

-{

-    BlockHook hook = XtNew(BlockHookRec);

-    LOCK_APP(app);

-    hook->next = app->block_hook_list;

-    hook->app = app;

-    hook->proc = proc;

-    hook->closure = closure;

-    if (app->block_hook_list == NULL) {

-	_XtAddCallback( &app->destroy_callbacks,

-		        FreeBlockHookList,

-		        (XtPointer)&app->block_hook_list

-		      );

-    }

-    app->block_hook_list = hook;

-    UNLOCK_APP(app);

-    return (XtBlockHookId)hook;

-}

-

-

-void XtRemoveBlockHook(

-    XtBlockHookId id)

-{

-    BlockHook *p, hook = (BlockHook)id;

-    XtAppContext app = hook->app;

-    LOCK_APP(app);

-    for (p = &app->block_hook_list; p != NULL && *p != hook; p = &(*p)->next);

-    if (p == NULL) {

-#ifdef DEBUG

-	XtAppWarningMsg(app, "badId", "xtRemoveBlockHook", XtCXtToolkitError,

-			"XtRemoveBlockHook called with bad or old hook id",

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

-#endif /*DEBUG*/

-	UNLOCK_APP(app);

-	return;

-    }

-    *p = hook->next;

-    XtFree( (XtPointer)hook );

-    UNLOCK_APP(app);

-}

-

-static void DeleteShellFromHookObj(

-    Widget shell,

-    XtPointer closure,

-    XtPointer call_data)

-{

-    /* app_con is locked when this function is called */

-    Cardinal ii, jj;

-    HookObject ho = (HookObject) closure;

-

-    for (ii = 0; ii < ho->hooks.num_shells; ii++)

-	if (ho->hooks.shells[ii] == shell) {

-	    /* collapse the list */

-	    for (jj = ii; jj < ho->hooks.num_shells; jj++) {

-		if ((jj+1) < ho->hooks.num_shells)

-		    ho->hooks.shells[jj] = ho->hooks.shells[jj+1];

-	    }

-	    break;

-	}

-    ho->hooks.num_shells--;

-}

-

-#define SHELL_INCR 4

-

-void _XtAddShellToHookObj(

-    Widget shell)

-{

-    /* app_con is locked when this function is called */

-    HookObject ho = (HookObject) XtHooksOfDisplay(XtDisplay(shell));

-

-    if (ho->hooks.num_shells == ho->hooks.max_shells) {

-	ho->hooks.max_shells += SHELL_INCR;

-	ho->hooks.shells =

-	    (WidgetList)XtRealloc((char*)ho->hooks.shells,

-		ho->hooks.max_shells * sizeof (Widget));

-    }

-    ho->hooks.shells[ho->hooks.num_shells++] = shell;

-

-    XtAddCallback(shell, XtNdestroyCallback, DeleteShellFromHookObj,

-		  (XtPointer)ho);

-}

-

-Boolean _XtIsHookObject(

-    Widget widget)

-{

-    return (widget->core.widget_class == hookObjectClass);

-}

-

-Widget XtHooksOfDisplay(

-    Display* dpy)

-{

-    Widget retval;

-    XtPerDisplay pd;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-    if (pd->hook_object == NULL)

-	pd->hook_object =

-	    _XtCreateHookObj((Screen*)DefaultScreenOfDisplay(dpy));

-    retval = pd->hook_object;

-    UNLOCK_APP(app);

-    return retval;

-}

+/*
+
+Copyright 1994, 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"
+#include "CreateI.h"
+
+static void FreeBlockHookList(
+    Widget widget,		/* unused (and invalid) */
+    XtPointer closure,		/* ActionHook* */
+    XtPointer call_data)	/* unused */
+{
+    BlockHook list = *(BlockHook*)closure;
+    while (list != NULL) {
+	BlockHook next = list->next;
+	XtFree( (XtPointer)list );
+	list = next;
+    }
+}
+
+
+XtBlockHookId XtAppAddBlockHook(
+    XtAppContext app,
+    XtBlockHookProc proc,
+    XtPointer closure)
+{
+    BlockHook hook = XtNew(BlockHookRec);
+    LOCK_APP(app);
+    hook->next = app->block_hook_list;
+    hook->app = app;
+    hook->proc = proc;
+    hook->closure = closure;
+    if (app->block_hook_list == NULL) {
+	_XtAddCallback( &app->destroy_callbacks,
+		        FreeBlockHookList,
+		        (XtPointer)&app->block_hook_list
+		      );
+    }
+    app->block_hook_list = hook;
+    UNLOCK_APP(app);
+    return (XtBlockHookId)hook;
+}
+
+
+void XtRemoveBlockHook(
+    XtBlockHookId id)
+{
+    BlockHook *p, hook = (BlockHook)id;
+    XtAppContext app = hook->app;
+    LOCK_APP(app);
+    for (p = &app->block_hook_list; p != NULL && *p != hook; p = &(*p)->next);
+    if (p == NULL) {
+#ifdef DEBUG
+	XtAppWarningMsg(app, "badId", "xtRemoveBlockHook", XtCXtToolkitError,
+			"XtRemoveBlockHook called with bad or old hook id",
+			(String*)NULL, (Cardinal*)NULL);
+#endif /*DEBUG*/
+	UNLOCK_APP(app);
+	return;
+    }
+    *p = hook->next;
+    XtFree( (XtPointer)hook );
+    UNLOCK_APP(app);
+}
+
+static void DeleteShellFromHookObj(
+    Widget shell,
+    XtPointer closure,
+    XtPointer call_data)
+{
+    /* app_con is locked when this function is called */
+    Cardinal ii, jj;
+    HookObject ho = (HookObject) closure;
+
+    for (ii = 0; ii < ho->hooks.num_shells; ii++)
+	if (ho->hooks.shells[ii] == shell) {
+	    /* collapse the list */
+	    for (jj = ii; jj < ho->hooks.num_shells; jj++) {
+		if ((jj+1) < ho->hooks.num_shells)
+		    ho->hooks.shells[jj] = ho->hooks.shells[jj+1];
+	    }
+	    break;
+	}
+    ho->hooks.num_shells--;
+}
+
+#define SHELL_INCR 4
+
+void _XtAddShellToHookObj(
+    Widget shell)
+{
+    /* app_con is locked when this function is called */
+    HookObject ho = (HookObject) XtHooksOfDisplay(XtDisplay(shell));
+
+    if (ho->hooks.num_shells == ho->hooks.max_shells) {
+	ho->hooks.max_shells += SHELL_INCR;
+	ho->hooks.shells =
+	    (WidgetList)XtRealloc((char*)ho->hooks.shells,
+		ho->hooks.max_shells * sizeof (Widget));
+    }
+    ho->hooks.shells[ho->hooks.num_shells++] = shell;
+
+    XtAddCallback(shell, XtNdestroyCallback, DeleteShellFromHookObj,
+		  (XtPointer)ho);
+}
+
+Boolean _XtIsHookObject(
+    Widget widget)
+{
+    return (widget->core.widget_class == hookObjectClass);
+}
+
+Widget XtHooksOfDisplay(
+    Display* dpy)
+{
+    Widget retval;
+    XtPerDisplay pd;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+    if (pd->hook_object == NULL)
+	pd->hook_object =
+	    _XtCreateHookObj((Screen*)DefaultScreenOfDisplay(dpy));
+    retval = pd->hook_object;
+    UNLOCK_APP(app);
+    return retval;
+}
diff --git a/libXt/src/Initialize.c b/libXt/src/Initialize.c
index 77d895a1d..fe13b58b5 100644
--- a/libXt/src/Initialize.c
+++ b/libXt/src/Initialize.c
@@ -1,1078 +1,1078 @@
-/***********************************************************

-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, 1994, 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.

-

-*/

-

-/* Make sure all wm properties can make it out of the resource manager */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "CoreP.h"

-#include "ShellP.h"

-#include <stdio.h>

-#include <X11/Xlocale.h>

-#ifdef XTHREADS

-#include <X11/Xthreads.h>

-#endif

-#ifndef WIN32

-#define X_INCLUDE_PWD_H

-#define XOS_USE_XT_LOCKING

-#include <X11/Xos_r.h>

-#endif

-

-#include <stdlib.h>

-

-#if (defined(SUNSHLIB) || defined(AIXSHLIB)) && defined(SHAREDCODE)

-/*

- * If used as a shared library, generate code under a different name so that

- * the stub routines in sharedlib.c get loaded into the application binary.

- */

-#define XtToolkitInitialize _XtToolkitInitialize

-#define XtOpenApplication _XtOpenApplication

-#define XtAppInitialize _XtAppInitialize

-#define XtInitialize _XtInitialize

-#endif /* (SUNSHLIB || AIXSHLIB) && SHAREDCODE */

-

-/*

- * hpux

- * Hand-patched versions of HP-UX prior to version 7.0 can usefully add

- * -DUSE_UNAME in the appropriate config file to get long hostnames.

- */

-

-#ifdef USG

-#define USE_UNAME

-#endif

-

-#ifdef USE_UNAME

-#include <sys/utsname.h>

-#endif

-

-/* some unspecified magic number of expected search levels for Xrm */

-#define SEARCH_LIST_SIZE 1000

-

-/*

- This is a set of default records describing the command line arguments that

- Xlib will parse and set into the resource data base.

-

- This list is applied before the users list to enforce these defaults.  This is

- policy, which the toolkit avoids but I hate differing programs at this level.

-*/

-

-static XrmOptionDescRec const opTable[] = {

-{"+rv",		"*reverseVideo", XrmoptionNoArg,	(XtPointer) "off"},

-{"+synchronous","*synchronous",	XrmoptionNoArg,		(XtPointer) "off"},

-{"-background",	"*background",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-bd",		"*borderColor",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-bg",		"*background",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-bordercolor","*borderColor",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-borderwidth",".borderWidth",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-bw",		".borderWidth",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-display",	".display",     XrmoptionSepArg,	(XtPointer) NULL},

-{"-fg",		"*foreground",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-fn",		"*font",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-font",	"*font",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-foreground",	"*foreground",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-geometry",	".geometry",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-iconic",	".iconic",	XrmoptionNoArg,		(XtPointer) "on"},

-{"-name",	".name",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-reverse",	"*reverseVideo", XrmoptionNoArg,	(XtPointer) "on"},

-{"-rv",		"*reverseVideo", XrmoptionNoArg,	(XtPointer) "on"},

-{"-selectionTimeout",

-		".selectionTimeout", XrmoptionSepArg,	(XtPointer) NULL},

-{"-synchronous","*synchronous",	XrmoptionNoArg,		(XtPointer) "on"},

-{"-title",	".title",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-xnllanguage",".xnlLanguage",	XrmoptionSepArg,	(XtPointer) NULL},

-{"-xrm",	NULL,		XrmoptionResArg,	(XtPointer) NULL},

-{"-xtsessionID",".sessionID",	XrmoptionSepArg,	(XtPointer) NULL},

-};

-

-

-/*

- * GetHostname - emulates gethostname() on non-bsd systems.

- */

-

-static void GetHostname (

-    char *buf,

-    int maxlen)

-{

-#ifdef USE_UNAME

-    int len;

-    struct utsname name;

-

-    if (maxlen <= 0 || buf == NULL)

-	return;

-

-    uname (&name);

-    len = strlen (name.nodename);

-    if (len >= maxlen) len = maxlen;

-    (void) strncpy (buf, name.nodename, len-1);

-    buf[len-1] = '\0';

-#else

-    if (maxlen <= 0 || buf == NULL)

-	return;

-

-    buf[0] = '\0';

-    (void) gethostname (buf, maxlen);

-    buf [maxlen - 1] = '\0';

-#endif

-}

-

-

-#ifdef SUNSHLIB

-void _XtInherit(void)

-{

-    extern void __XtInherit();

-    __XtInherit();

-}

-#define _XtInherit __XtInherit

-#endif

-

-

-#if (defined (WIN32) || defined(__CYGWIN__)) && !defined(_MSC_VER)

-/*

- * The Symbol _XtInherit is used in two different manners.

- * First it could be used as a generic function and second

- * as an absolute address reference, which will be used to

- * check the initialisation process of several other libraries.

- * Because of this the symbol must be accessable by all

- * client dll's and applications.  In unix environments

- * this is no problem, because the used shared libraries

- * format (elf) supports this immediatly.  Under Windows

- * this isn't true, because a functions address in a dll

- * is different from the same function in another dll or

- * applications, because the used Portable Executable

- * File adds a code stub to each client to provide the

- * exported symbol name.  This stub uses an indirect

- * pointer to get the original symbol address, which is

- * then jumped to, like in this example:

- *

- * --- client ---                                     --- dll ----

- *  ...

- *  call foo

- *

- * foo: jmp (*_imp_foo)               ---->           foo: ....

- *      nop

- *      nop

- *

- * _imp_foo: .long <index of foo in dll export table, is

- *		    set to the real address by the runtime linker>

- *

- * Now it is clear why the clients symbol foo isn't the same

- * as in the dll and we can think about how to deal which

- * this two above mentioned requirements, to export this

- * symbol to all clients and to allow calling this symbol

- * as a function.  The solution I've used exports the

- * symbol _XtInherit as data symbol, because global data

- * symbols are exported to all clients.  But how to deal

- * with the second requirement, that this symbol should

- * be used as function.  The Trick is to build a little

- * code stub in the data section in the exact manner as

- * above explained.  This is done with the assembler code

- * below.

- *

- * Ralf Habacker

- *

- * References:

- * msdn          http://msdn.microsoft.com/msdnmag/issues/02/02/PE/PE.asp

- * cygwin-xfree: http://www.cygwin.com/ml/cygwin-xfree/2003-10/msg00000.html

- */

-

-asm (".data\n\

- .globl __XtInherit        \n\

- __XtInherit:      jmp *_y \n\

-  _y: .long ___XtInherit   \n\

-    .text                 \n");

-

-#define _XtInherit __XtInherit

-#endif

-

-

-void _XtInherit(void)

-{

-    XtErrorMsg("invalidProcedure","inheritanceProc",XtCXtToolkitError,

-            "Unresolved inheritance operation",

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

-}

-

-

-void XtToolkitInitialize(void)

-{

-    static Boolean initialized = False;

-

-    LOCK_PROCESS;

-    if (initialized) {

-	UNLOCK_PROCESS;

-	return;

-    }

-    initialized = True;

-    UNLOCK_PROCESS;

-    /* Resource management initialization */

-    XrmInitialize();

-    _XtResourceListInitialize();

-

-    /* Other intrinsic intialization */

-    _XtConvertInitialize();

-    _XtEventInitialize();

-    _XtTranslateInitialize();

-

-    /* Some apps rely on old (broken) XtAppPeekEvent behavior */

-    if(getenv("XTAPPPEEKEVENT_SKIPTIMER"))

-	XtAppPeekEvent_SkipTimer = True;

-    else

-	XtAppPeekEvent_SkipTimer = False;

-}

-

-

-String _XtGetUserName(

-    String dest,

-    int len)

-{

-#ifdef WIN32

-    String ptr = NULL;

-

-    if ((ptr = getenv("USERNAME"))) {

-	(void) strncpy (dest, ptr, len-1);

-	dest[len-1] = '\0';

-    } else

-	*dest = '\0';

-#else

-#ifdef X_NEEDS_PWPARAMS

-    _Xgetpwparams pwparams;

-#endif

-    struct passwd *pw;

-    char* ptr;

-

-    if ((ptr = getenv("USER"))) {

-	(void) strncpy (dest, ptr, len-1);

-	dest[len-1] = '\0';

-    } else {

-	if ((pw = _XGetpwuid(getuid(),pwparams)) != NULL) {

-	    (void) strncpy (dest, pw->pw_name, len-1);

-	    dest[len-1] = '\0';

-	} else

-	    *dest = '\0';

-    }

-#endif

-    return dest;

-}

-

-

-static String GetRootDirName(

-    String dest,

-    int len)

-{

-#ifdef WIN32

-    register char *ptr1;

-    register char *ptr2 = NULL;

-    int len1 = 0, len2 = 0;

-

-    if (ptr1 = getenv("HOME")) {	/* old, deprecated */

-	len1 = strlen (ptr1);

-    } else if ((ptr1 = getenv("HOMEDRIVE")) && (ptr2 = getenv("HOMEDIR"))) {

-	len1 = strlen (ptr1);

-	len2 = strlen (ptr2);

-    } else if (ptr2 = getenv("USERNAME")) {

-	len1 = strlen (ptr1 = "/users/");

-	len2 = strlen (ptr2);

-    }

-    if ((len1 + len2 + 1) < len)

-	sprintf (dest, "%s%s", ptr1, (ptr2) ? ptr2 : "");

-    else

-	*dest = '\0';

-#else

-#ifdef X_NEEDS_PWPARAMS

-    _Xgetpwparams pwparams;

-#endif

-    struct passwd *pw;

-    static char *ptr;

-

-    if (len <= 0 || dest == NULL)

-	return NULL;

-

-    if ((ptr = getenv("HOME"))) {

-	(void) strncpy (dest, ptr, len-1);

-	dest[len-1] = '\0';

-    } else {

-	if ((ptr = getenv("USER")))

-	    pw = _XGetpwnam(ptr,pwparams);

-	else

- 	    pw = _XGetpwuid(getuid(),pwparams);

-	if (pw != NULL) {

-	    (void) strncpy (dest, pw->pw_dir, len-1);

-	    dest[len-1] = '\0';

-	} else

-	    *dest = '\0';

-    }

-#endif

-    return dest;

-}

-

-static void CombineAppUserDefaults(

-    Display *dpy,

-    XrmDatabase *pdb)

-{

-    char* filename;

-    char* path = NULL;

-    Boolean deallocate = False;

-

-    if (!(path = getenv("XUSERFILESEARCHPATH"))) {

-	char *old_path=NULL;

-	char homedir[PATH_MAX]=".";

-#if !defined(WIN32) || !defined(__MINGW32__)

-	GetRootDirName(homedir, PATH_MAX);

-	if (!(old_path = getenv("XAPPLRESDIR")))

-#endif

-        {

-	    XtAsprintf(&path,

-		       "%s/%%L/%%N%%C:%s/%%l/%%N%%C:%s/%%N%%C:%s/%%L/%%N:%s/%%l/%%N:%s/%%N",

-		       homedir, homedir, homedir, homedir, homedir, homedir );

-	}

-#if !defined(WIN32) || !defined(__MINGW32__)

-        else

-	{

-	    XtAsprintf(&path,

-		       "%s/%%L/%%N%%C:%s/%%l/%%N%%C:%s/%%N%%C:%s/%%N%%C:%s/%%L/%%N:%s/%%l/%%N:%s/%%N:%s/%%N",

-		       old_path, old_path, old_path, homedir );

-	}

-#endif

-	deallocate = True;

-    }

-

-    filename = XtResolvePathname(dpy, NULL, NULL, NULL, path, NULL, 0, NULL);

-    if (filename) {

-	(void)XrmCombineFileDatabase(filename, pdb, False);

-	XtFree(filename);

-    }

-

-    if (deallocate)

-	XtFree(path);

-}

-

-static void CombineUserDefaults(

-    Display *dpy,

-    XrmDatabase *pdb)

-{

-#ifdef _MSC_VER

-    char *slashDotXdefaults = ".Xdefaults";

-#else

-#ifdef __MINGW32__

-    char *slashDotXdefaults = "/Xdefaults";

-#else

-    char *slashDotXdefaults = "/.Xdefaults";

-#endif

-#endif

-    char *dpy_defaults = XResourceManagerString(dpy);

-

-    if (dpy_defaults) {

-	XrmCombineDatabase(XrmGetStringDatabase(dpy_defaults), pdb, False);

-    } else {

-	char filename[PATH_MAX];

-#ifndef _MSC_VER

-	(void) GetRootDirName(filename,

-			PATH_MAX - strlen (slashDotXdefaults) - 1);

-	(void) strcat(filename, slashDotXdefaults);

-#else

-	strcpy(filename, slashDotXdefaults);

-#endif

-	(void)XrmCombineFileDatabase(filename, pdb, False);

-    }

-}

-

-/*ARGSUSED*/

-static Bool StoreDBEntry(

-    XrmDatabase		*db,

-    XrmBindingList      bindings,

-    XrmQuarkList	quarks,

-    XrmRepresentation   *type,

-    XrmValuePtr		value,

-    XPointer		data)

-{

-    XrmQPutResource((XrmDatabase *)data, bindings, quarks, *type, value);

-    return False;

-}

-

-static XrmDatabase CopyDB(XrmDatabase db)

-{

-    XrmDatabase copy = NULL;

-    XrmQuark empty = NULLQUARK;

-

-    XrmEnumerateDatabase(db, &empty, &empty, XrmEnumAllLevels,

-			 StoreDBEntry, (XPointer)&copy);

-    return copy;

-}

-

-/*ARGSUSED*/

-static String _XtDefaultLanguageProc(

-    Display   *dpy,	/* unused */

-    String     xnl,

-    XtPointer  closure)	/* unused */

-{

-    if (! setlocale(LC_ALL, xnl))

-	XtWarning("locale not supported by C library, locale unchanged");

-

-    if (! XSupportsLocale()) {

-	XtWarning("locale not supported by Xlib, locale set to C");

-	setlocale(LC_ALL, "C");

-    }

-    if (! XSetLocaleModifiers(""))

-	XtWarning("X locale modifiers not supported, using default");

-

-    return setlocale(LC_ALL, NULL); /* re-query in case overwritten */

-}

-

-XtLanguageProc XtSetLanguageProc(

-    XtAppContext      app,

-    XtLanguageProc    proc,

-    XtPointer         closure)

-{

-    XtLanguageProc    old;

-

-    if (!proc) {

-	proc = _XtDefaultLanguageProc;

-	closure = NULL;

-    }

-

-    if (app) {

-	LOCK_APP(app);

-	LOCK_PROCESS;

-	/* set langProcRec only for this application context */

-        old = app->langProcRec.proc;

-        app->langProcRec.proc = proc;

-        app->langProcRec.closure = closure;

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-    } else {

-	/* set langProcRec for all application contexts */

-        ProcessContext process;

-

-	LOCK_PROCESS;

-        process = _XtGetProcessContext();

-        old = process->globalLangProcRec.proc;

-	process->globalLangProcRec.proc = proc;

-	process->globalLangProcRec.closure = closure;

-        app = process->appContextList;

-        while (app) {

-            app->langProcRec.proc = proc;

-            app->langProcRec.closure = closure;

-	    app = app->next;

-        }

-	UNLOCK_PROCESS;

-    }

-    return (old ? old : _XtDefaultLanguageProc);

-}

-

-XrmDatabase XtScreenDatabase(

-    Screen *screen)

-{

-    int scrno;

-    Bool doing_def;

-    XrmDatabase db, olddb;

-    XtPerDisplay pd;

-    Status do_fallback;

-    char *scr_resources;

-    Display *dpy = DisplayOfScreen(screen);

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    if (screen == DefaultScreenOfDisplay(dpy)) {

-	scrno = DefaultScreen(dpy);

-	doing_def = True;

-    } else {

-	scrno = XScreenNumberOfScreen(screen);

-	doing_def = False;

-    }

-    pd = _XtGetPerDisplay(dpy);

-    if ((db = pd->per_screen_db[scrno])) {

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-	return (doing_def ? XrmGetDatabase(dpy) : db);

-    }

-    scr_resources = XScreenResourceString(screen);

-

-    if (ScreenCount(dpy) == 1) {

-	db = pd->cmd_db;

-	pd->cmd_db = NULL;

-    } else {

-	db = CopyDB(pd->cmd_db);

-    }

-    {   /* Environment defaults */

-	char	filenamebuf[PATH_MAX];

-	char	*filename;

-

-	if (!(filename = getenv("XENVIRONMENT"))) {

-	    int len;

-#ifdef _MSC_VER

-	    char *slashDotXdefaultsDash = "Xdefaults-";

-#else

-#ifdef __MINGW32__

-	    char *slashDotXdefaultsDash = "/Xdefaults-";

-#else

-	    char *slashDotXdefaultsDash = "/.Xdefaults-";

-#endif

-#endif

-

-#ifndef _MSC_VER

-	    (void) GetRootDirName(filename = filenamebuf,

-			PATH_MAX - strlen (slashDotXdefaultsDash) - 1);

-	    (void) strcat(filename, slashDotXdefaultsDash);

-#else

-            filename = filenamebuf;

-	    strcpy(filename, slashDotXdefaultsDash);

-#endif

-	    len = strlen(filename);

-	    GetHostname (filename+len, PATH_MAX-len);

-	}

-	(void)XrmCombineFileDatabase(filename, &db, False);

-    }

-    if (scr_resources)

-    {   /* Screen defaults */

-	XrmCombineDatabase(XrmGetStringDatabase(scr_resources), &db, False);

-	XFree(scr_resources);

-    }

-    /* Server or host defaults */

-    if (!pd->server_db)

-	CombineUserDefaults(dpy, &db);

-    else {

-	(void) XrmCombineDatabase(pd->server_db, &db, False);

-	pd->server_db = NULL;

-    }

-

-    if (!db)

-	db = XrmGetStringDatabase("");

-    pd->per_screen_db[scrno] = db;

-    olddb = XrmGetDatabase(dpy);

-    /* set database now, for XtResolvePathname to use */

-    XrmSetDatabase(dpy, db);

-    CombineAppUserDefaults(dpy, &db);

-    do_fallback = 1;

-    {   /* System app-defaults */

-	char	*filename;

-

-	if ((filename = XtResolvePathname(dpy, "app-defaults",

-					 NULL, NULL, NULL, NULL, 0, NULL))) {

-	    do_fallback = !XrmCombineFileDatabase(filename, &db, False);

-	    XtFree(filename);

-	}

-    }

-    /* now restore old database, if need be */

-    if (!doing_def)

-	XrmSetDatabase(dpy, olddb);

-    if (do_fallback && pd->appContext->fallback_resources)

-    {   /* Fallback defaults */

-        XrmDatabase fdb = NULL;

-	String *res;

-

-	for (res = pd->appContext->fallback_resources; *res; res++)

-	    XrmPutLineResource(&fdb, *res);

-	(void)XrmCombineDatabase(fdb, &db, False);

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-    return db;

-}

-

-/*

- * Merge two option tables, allowing the second to over-ride the first,

- * so that ambiguous abbreviations can be noticed.  The merge attempts

- * to make the resulting table lexicographically sorted, but succeeds

- * only if the first source table is sorted.  Though it _is_ recommended

- * (for optimizations later in XrmParseCommand), it is not required

- * that either source table be sorted.

- *

- * Caller is responsible for freeing the returned option table.

- */

-

-static void _MergeOptionTables(

-    const XrmOptionDescRec *src1,

-    Cardinal num_src1,

-    const XrmOptionDescRec *src2,

-    Cardinal num_src2,

-    XrmOptionDescRec **dst,

-    Cardinal *num_dst)

-{

-    XrmOptionDescRec *table, *endP;

-    register XrmOptionDescRec *opt1, *whereP, *dstP;

-    register const XrmOptionDescRec *opt2;

-    int i1;

-    Cardinal i2;

-    int dst_len, order;

-    Boolean found;

-    enum {Check, NotSorted, IsSorted} sort_order = Check;

-

-    *dst = table = (XrmOptionDescRec*)

-	__XtMalloc( sizeof(XrmOptionDescRec) * (num_src1 + num_src2) );

-

-    (void) memmove(table, src1, sizeof(XrmOptionDescRec) * num_src1 );

-    if (num_src2 == 0) {

-	*num_dst = num_src1;

-	return;

-    }

-    endP = &table[dst_len = num_src1];

-    for (opt2 = src2, i2= 0; i2 < num_src2; opt2++, i2++) {

-	found = False;

-	whereP = endP-1;	/* assume new option goes at the end */

-	for (opt1 = table, i1 = 0; i1 < dst_len; opt1++, i1++) {

-	    /* have to walk the entire new table so new list is ordered

-	       (if src1 was ordered) */

-	    if (sort_order == Check && i1 > 0

-		&& strcmp(opt1->option, (opt1-1)->option) < 0)

-		sort_order = NotSorted;

-	    if ((order = strcmp(opt1->option, opt2->option)) == 0) {

-		/* same option names; just overwrite opt1 with opt2 */

-		*opt1 = *opt2;

-		found = True;

-		break;

-		}

-	    /* else */

-	    if (sort_order == IsSorted && order > 0) {

-		/* insert before opt1 to preserve order */

-		/* shift rest of table forward to make room for new entry */

-		for (dstP = endP++; dstP > opt1; dstP--)

-		    *dstP = *(dstP-1);

-		*opt1 = *opt2;

-		dst_len++;

-		found = True;

-		break;

-	    }

-	    /* else */

-	    if (order < 0)

-		/* opt2 sorts after opt1, so remember this position */

-		whereP = opt1;

-	}

-	if (sort_order == Check && i1 == dst_len)

-	    sort_order = IsSorted;

-	if (!found) {

-	   /* when we get here, whereP points to the last entry in the

-	      destination that sorts before "opt2".  Shift rest of table

-	      forward and insert "opt2" after whereP. */

-	    whereP++;

-	    for (dstP = endP++; dstP > whereP; dstP--)

-		*dstP = *(dstP-1);

-	    *whereP = *opt2;

-	    dst_len++;

-	}

-    }

-    *num_dst = dst_len;

-}

-

-

-/* NOTE: name, class, and type must be permanent strings */

-static Boolean _GetResource(

-    Display *dpy,

-    XrmSearchList list,

-    String name,

-    String class,

-    String type,

-    XrmValue* value)

-{

-    XrmRepresentation db_type;

-    XrmValue db_value;

-    XrmName Qname = XrmPermStringToQuark(name);

-    XrmClass Qclass = XrmPermStringToQuark(class);

-    XrmRepresentation Qtype = XrmPermStringToQuark(type);

-

-    if (XrmQGetSearchResource(list, Qname, Qclass, &db_type, &db_value)) {

-	if (db_type == Qtype) {

-	    if (Qtype == _XtQString)

-		*(String*)value->addr = db_value.addr;

-	    else

-		(void) memmove(value->addr, db_value.addr, value->size );

-	    return True;

-	} else {

-	    WidgetRec widget; /* hack, hack */

-	    bzero( &widget, sizeof(widget) );

-	    widget.core.self = &widget;

-	    widget.core.widget_class = coreWidgetClass;

-	    widget.core.screen = (Screen*)DefaultScreenOfDisplay(dpy);

-	    XtInitializeWidgetClass(coreWidgetClass);

-	    if (_XtConvert(&widget,db_type,&db_value,Qtype,value,NULL)) {

-		return True;

-	    }

-	}

-    }

-    return False;

-}

-

-XrmDatabase _XtPreparseCommandLine(

-    XrmOptionDescRec *urlist,

-    Cardinal num_urs,

-    int argc,

-    String *argv,

-    /* return */

-    String *applName,

-    String *displayName,

-    String *language)

-{

-    XrmDatabase db = NULL;

-    XrmOptionDescRec *options;

-    Cardinal num_options;

-    XrmName name_list[3];

-    XrmName class_list[3];

-    XrmRepresentation type;

-    XrmValue val;

-    String *targv;

-    int targc = argc;

-

-    targv = (String *) __XtMalloc(sizeof(char *) * argc);

-    (void) memmove(targv, argv, sizeof(char *) * argc);

-    _MergeOptionTables(opTable, XtNumber(opTable), urlist, num_urs,

-		       &options, &num_options);

-    name_list[0] = class_list[0] = XrmPermStringToQuark(".");

-    name_list[2] = class_list[2] = NULLQUARK;

-    XrmParseCommand(&db, options, num_options, ".", &targc, targv);

-    if (applName) {

-	name_list[1] = XrmPermStringToQuark("name");

-	if (XrmQGetResource(db, name_list, name_list, &type, &val) &&

-	    type == _XtQString)

-	    *applName = val.addr;

-    }

-    if (displayName) {

-	name_list[1] = XrmPermStringToQuark("display");

-	if (XrmQGetResource(db, name_list, name_list, &type, &val) &&

-	    type == _XtQString)

-	    *displayName = val.addr;

-    }

-    if (language) {

-	name_list[1] = XrmPermStringToQuark("xnlLanguage");

-	class_list[1] = XrmPermStringToQuark("XnlLanguage");

-	if (XrmQGetResource(db, name_list, class_list, &type, &val) &&

-	    type == _XtQString)

-	    *language = val.addr;

-    }

-

-    XtFree((char *)targv);

-    XtFree((char *)options);

-    return db;

-}

-

-

-static void GetLanguage(

-    Display *dpy,

-    XtPerDisplay pd)

-{

-    XrmRepresentation type;

-    XrmValue value;

-    XrmName name_list[3];

-    XrmName class_list[3];

-

-    LOCK_PROCESS;

-    if (! pd->language) {

-	name_list[0] = pd->name;

-	name_list[1] = XrmPermStringToQuark("xnlLanguage");

-	class_list[0] = pd->class;

-	class_list[1] = XrmPermStringToQuark("XnlLanguage");

-	name_list[2] = class_list[2] = NULLQUARK;

-	if (!pd->server_db)

-	    CombineUserDefaults(dpy, &pd->server_db);

-	if (pd->server_db &&

-	    XrmQGetResource(pd->server_db,name_list,class_list, &type, &value)

-	    && type == _XtQString)

-	    pd->language = (char *) value.addr;

-    }

-

-    if (pd->appContext->langProcRec.proc) {

-	if (! pd->language) pd->language = "";

-	pd->language = (*pd->appContext->langProcRec.proc)

-	    (dpy, pd->language, pd->appContext->langProcRec.closure);

-    }

-    else if (! pd->language || pd->language[0] == '\0') /* R4 compatibility */

-	pd->language = getenv("LANG");

-

-    if (pd->language) pd->language = XtNewString(pd->language);

-    UNLOCK_PROCESS;

-}

-

-static void ProcessInternalConnection (

-    XtPointer client_data,

-    int* fd,

-    XtInputId* id)

-{

-    XProcessInternalConnection ((Display *) client_data, *fd);

-}

-

-static void ConnectionWatch (

-    Display* dpy,

-    XPointer client_data,

-    int fd,

-    Bool opening,

-    XPointer* watch_data)

-{

-    XtInputId* iptr;

-    XtAppContext app = XtDisplayToApplicationContext(dpy);

-

-    if (opening) {

-	iptr = (XtInputId *) __XtMalloc(sizeof(XtInputId));

-	*iptr = XtAppAddInput(app, fd, (XtPointer) XtInputReadMask,

-			      ProcessInternalConnection, client_data);

-	*watch_data = (XPointer) iptr;

-    } else {

-	iptr = (XtInputId *) *watch_data;

-	XtRemoveInput(*iptr);

-        (void) XtFree(*watch_data);

-    }

-}

-

-void _XtDisplayInitialize(

-	Display *dpy,

-        XtPerDisplay pd,

-	_Xconst char* name,

-	XrmOptionDescRec *urlist,

-	Cardinal num_urs,

-	int *argc,

-	char **argv)

-{

-	Boolean tmp_bool;

-	XrmValue value;

-	XrmOptionDescRec *options;

-	Cardinal num_options;

-	XrmDatabase db;

-	XrmName name_list[2];

-	XrmClass class_list[2];

-	XrmHashTable* search_list;

-	int search_list_size = SEARCH_LIST_SIZE;

-

-	GetLanguage(dpy, pd);

-

-	/* Parse the command line and remove Xt arguments from argv */

-	_MergeOptionTables( opTable, XtNumber(opTable), urlist, num_urs,

-			    &options, &num_options );

-	XrmParseCommand(&pd->cmd_db, options, num_options, name, argc, argv);

-

-	db = XtScreenDatabase(DefaultScreenOfDisplay(dpy));

-

-	if (!(search_list = (XrmHashTable*)

-		       ALLOCATE_LOCAL( SEARCH_LIST_SIZE*sizeof(XrmHashTable))))

-	    _XtAllocError(NULL);

-	name_list[0] = pd->name;

-	class_list[0] = pd->class;

-	name_list[1] = NULLQUARK;

-	class_list[1] = NULLQUARK;

-

-	while (!XrmQGetSearchList(db, name_list, class_list,

-				  search_list, search_list_size)) {

-	    XrmHashTable* old = search_list;

-	    Cardinal size = (search_list_size*=2)*sizeof(XrmHashTable);

-	    if (!(search_list = (XrmHashTable*)ALLOCATE_LOCAL(size)))

-		_XtAllocError(NULL);

-	    (void) memmove((char*)search_list, (char*)old, (size>>1) );

-	    DEALLOCATE_LOCAL(old);

-	}

-

-	value.size = sizeof(tmp_bool);

-	value.addr = (XtPointer)&tmp_bool;

-	if (_GetResource(dpy, search_list, "synchronous", "Synchronous",

-			 XtRBoolean, &value)) {

-	    int i;

-	    Display **dpyP = pd->appContext->list;

-	    pd->appContext->sync = tmp_bool;

-	    for (i = pd->appContext->count; i; dpyP++, i--) {

-		(void) XSynchronize(*dpyP, (Bool)tmp_bool);

-	    }

-	} else {

-	    (void) XSynchronize(dpy, (Bool)pd->appContext->sync);

-	}

-

-	if (_GetResource(dpy, search_list, "reverseVideo", "ReverseVideo",

-			 XtRBoolean, &value)

-	        && tmp_bool) {

-	    pd->rv = True;

-	}

-

-	value.size = sizeof(pd->multi_click_time);

-	value.addr = (XtPointer)&pd->multi_click_time;

-	if (!_GetResource(dpy, search_list,

-			  "multiClickTime", "MultiClickTime",

-			  XtRInt, &value)) {

-	    pd->multi_click_time = 200;

-	}

-

-	value.size = sizeof(pd->appContext->selectionTimeout);

-	value.addr = (XtPointer)&pd->appContext->selectionTimeout;

-	(void)_GetResource(dpy, search_list,

-			   "selectionTimeout", "SelectionTimeout",

-			   XtRInt, &value);

-

-#ifndef NO_IDENTIFY_WINDOWS

-	value.size = sizeof(pd->appContext->identify_windows);

-	value.addr = (XtPointer)&pd->appContext->identify_windows;

-	(void)_GetResource(dpy, search_list,

-			   "xtIdentifyWindows", "XtDebug",

-			   XtRBoolean, &value);

-#endif

-

-	XAddConnectionWatch(dpy, ConnectionWatch, (XPointer) dpy);

-

-	XtFree( (XtPointer)options );

-	DEALLOCATE_LOCAL( search_list );

-}

-

-/*	Function Name: XtAppSetFallbackResources

- *	Description: Sets the fallback resource list that will be loaded

- *                   at display initialization time.

- *	Arguments: app_context - the app context.

- *                 specification_list - the resource specification list.

- *	Returns: none.

- */

-

-void

-XtAppSetFallbackResources(

-    XtAppContext app_context,

-    String *specification_list)

-{

-    LOCK_APP(app_context);

-    app_context->fallback_resources = specification_list;

-    UNLOCK_APP(app_context);

-}

-

-

-Widget XtOpenApplication(XtAppContext *app_context_return,

-			 _Xconst char *application_class,

-			 XrmOptionDescRec *options, Cardinal num_options,

-			 int *argc_in_out, String *argv_in_out,

-			 String *fallback_resources, WidgetClass widget_class,

-			 ArgList args_in, Cardinal num_args_in)

-{

-    XtAppContext app_con;

-    Display * dpy;

-    register int saved_argc = *argc_in_out;

-    Widget root;

-    Arg args[3], *merged_args;

-    Cardinal num = 0;

-

-    XtToolkitInitialize(); /* cannot be moved into _XtAppInit */

-

-    dpy = _XtAppInit(&app_con, (String)application_class, options, num_options,

-		     argc_in_out, &argv_in_out, fallback_resources);

-

-    LOCK_APP(app_con);

-    XtSetArg(args[num], XtNscreen, DefaultScreenOfDisplay(dpy)); num++;

-    XtSetArg(args[num], XtNargc, saved_argc);	                 num++;

-    XtSetArg(args[num], XtNargv, argv_in_out);	                 num++;

-

-    merged_args = XtMergeArgLists(args_in, num_args_in, args, num);

-    num += num_args_in;

-

-    root = XtAppCreateShell(NULL, application_class, widget_class, dpy,

-			    merged_args, num);

-

-    if (app_context_return)

-	*app_context_return = app_con;

-

-    XtFree((XtPointer)merged_args);

-    XtFree((XtPointer)argv_in_out);

-    UNLOCK_APP(app_con);

-    return root;

-}

-

-

-Widget

-XtAppInitialize(

-    XtAppContext * app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescRec *options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    ArgList args_in,

-    Cardinal num_args_in)

-{

-    return XtOpenApplication(app_context_return, application_class,

-			     options, num_options,

-			     argc_in_out, argv_in_out, fallback_resources,

-			     applicationShellWidgetClass,

-			     args_in, num_args_in);

-}

-

-

-/*ARGSUSED*/

-Widget

-XtInitialize(

-    _Xconst char* name,

-    _Xconst char* classname,

-    XrmOptionDescRec *options,

-    Cardinal num_options,

-    int *argc,

-    String *argv)

-{

-    Widget root;

-    XtAppContext app_con;

-    register ProcessContext process = _XtGetProcessContext();

-

-    root = XtAppInitialize(&app_con, classname, options, num_options,

-			   argc, argv, NULL, NULL, (Cardinal) 0);

-

-    LOCK_PROCESS;

-    process->defaultAppContext = app_con;

-    UNLOCK_PROCESS;

-    return root;

-}

+/***********************************************************
+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, 1994, 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.
+
+*/
+
+/* Make sure all wm properties can make it out of the resource manager */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "CoreP.h"
+#include "ShellP.h"
+#include <stdio.h>
+#include <X11/Xlocale.h>
+#ifdef XTHREADS
+#include <X11/Xthreads.h>
+#endif
+#ifndef WIN32
+#define X_INCLUDE_PWD_H
+#define XOS_USE_XT_LOCKING
+#include <X11/Xos_r.h>
+#endif
+
+#include <stdlib.h>
+
+#if (defined(SUNSHLIB) || defined(AIXSHLIB)) && defined(SHAREDCODE)
+/*
+ * If used as a shared library, generate code under a different name so that
+ * the stub routines in sharedlib.c get loaded into the application binary.
+ */
+#define XtToolkitInitialize _XtToolkitInitialize
+#define XtOpenApplication _XtOpenApplication
+#define XtAppInitialize _XtAppInitialize
+#define XtInitialize _XtInitialize
+#endif /* (SUNSHLIB || AIXSHLIB) && SHAREDCODE */
+
+/*
+ * hpux
+ * Hand-patched versions of HP-UX prior to version 7.0 can usefully add
+ * -DUSE_UNAME in the appropriate config file to get long hostnames.
+ */
+
+#ifdef USG
+#define USE_UNAME
+#endif
+
+#ifdef USE_UNAME
+#include <sys/utsname.h>
+#endif
+
+/* some unspecified magic number of expected search levels for Xrm */
+#define SEARCH_LIST_SIZE 1000
+
+/*
+ This is a set of default records describing the command line arguments that
+ Xlib will parse and set into the resource data base.
+
+ This list is applied before the users list to enforce these defaults.  This is
+ policy, which the toolkit avoids but I hate differing programs at this level.
+*/
+
+static XrmOptionDescRec const opTable[] = {
+{"+rv",		"*reverseVideo", XrmoptionNoArg,	(XtPointer) "off"},
+{"+synchronous","*synchronous",	XrmoptionNoArg,		(XtPointer) "off"},
+{"-background",	"*background",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-bd",		"*borderColor",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-bg",		"*background",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-bordercolor","*borderColor",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-borderwidth",".borderWidth",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-bw",		".borderWidth",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-display",	".display",     XrmoptionSepArg,	(XtPointer) NULL},
+{"-fg",		"*foreground",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-fn",		"*font",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-font",	"*font",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-foreground",	"*foreground",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-geometry",	".geometry",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-iconic",	".iconic",	XrmoptionNoArg,		(XtPointer) "on"},
+{"-name",	".name",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-reverse",	"*reverseVideo", XrmoptionNoArg,	(XtPointer) "on"},
+{"-rv",		"*reverseVideo", XrmoptionNoArg,	(XtPointer) "on"},
+{"-selectionTimeout",
+		".selectionTimeout", XrmoptionSepArg,	(XtPointer) NULL},
+{"-synchronous","*synchronous",	XrmoptionNoArg,		(XtPointer) "on"},
+{"-title",	".title",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-xnllanguage",".xnlLanguage",	XrmoptionSepArg,	(XtPointer) NULL},
+{"-xrm",	NULL,		XrmoptionResArg,	(XtPointer) NULL},
+{"-xtsessionID",".sessionID",	XrmoptionSepArg,	(XtPointer) NULL},
+};
+
+
+/*
+ * GetHostname - emulates gethostname() on non-bsd systems.
+ */
+
+static void GetHostname (
+    char *buf,
+    int maxlen)
+{
+#ifdef USE_UNAME
+    int len;
+    struct utsname name;
+
+    if (maxlen <= 0 || buf == NULL)
+	return;
+
+    uname (&name);
+    len = strlen (name.nodename);
+    if (len >= maxlen) len = maxlen;
+    (void) strncpy (buf, name.nodename, len-1);
+    buf[len-1] = '\0';
+#else
+    if (maxlen <= 0 || buf == NULL)
+	return;
+
+    buf[0] = '\0';
+    (void) gethostname (buf, maxlen);
+    buf [maxlen - 1] = '\0';
+#endif
+}
+
+
+#ifdef SUNSHLIB
+void _XtInherit(void)
+{
+    extern void __XtInherit();
+    __XtInherit();
+}
+#define _XtInherit __XtInherit
+#endif
+
+
+#if (defined (WIN32) || defined(__CYGWIN__)) && !defined(_MSC_VER)
+/*
+ * The Symbol _XtInherit is used in two different manners.
+ * First it could be used as a generic function and second
+ * as an absolute address reference, which will be used to
+ * check the initialisation process of several other libraries.
+ * Because of this the symbol must be accessable by all
+ * client dll's and applications.  In unix environments
+ * this is no problem, because the used shared libraries
+ * format (elf) supports this immediatly.  Under Windows
+ * this isn't true, because a functions address in a dll
+ * is different from the same function in another dll or
+ * applications, because the used Portable Executable
+ * File adds a code stub to each client to provide the
+ * exported symbol name.  This stub uses an indirect
+ * pointer to get the original symbol address, which is
+ * then jumped to, like in this example:
+ *
+ * --- client ---                                     --- dll ----
+ *  ...
+ *  call foo
+ *
+ * foo: jmp (*_imp_foo)               ---->           foo: ....
+ *      nop
+ *      nop
+ *
+ * _imp_foo: .long <index of foo in dll export table, is
+ *		    set to the real address by the runtime linker>
+ *
+ * Now it is clear why the clients symbol foo isn't the same
+ * as in the dll and we can think about how to deal which
+ * this two above mentioned requirements, to export this
+ * symbol to all clients and to allow calling this symbol
+ * as a function.  The solution I've used exports the
+ * symbol _XtInherit as data symbol, because global data
+ * symbols are exported to all clients.  But how to deal
+ * with the second requirement, that this symbol should
+ * be used as function.  The Trick is to build a little
+ * code stub in the data section in the exact manner as
+ * above explained.  This is done with the assembler code
+ * below.
+ *
+ * Ralf Habacker
+ *
+ * References:
+ * msdn          http://msdn.microsoft.com/msdnmag/issues/02/02/PE/PE.asp
+ * cygwin-xfree: http://www.cygwin.com/ml/cygwin-xfree/2003-10/msg00000.html
+ */
+
+asm (".data\n\
+ .globl __XtInherit        \n\
+ __XtInherit:      jmp *_y \n\
+  _y: .long ___XtInherit   \n\
+    .text                 \n");
+
+#define _XtInherit __XtInherit
+#endif
+
+
+void _XtInherit(void)
+{
+    XtErrorMsg("invalidProcedure","inheritanceProc",XtCXtToolkitError,
+            "Unresolved inheritance operation",
+              (String *)NULL, (Cardinal *)NULL);
+}
+
+
+void XtToolkitInitialize(void)
+{
+    static Boolean initialized = False;
+
+    LOCK_PROCESS;
+    if (initialized) {
+	UNLOCK_PROCESS;
+	return;
+    }
+    initialized = True;
+    UNLOCK_PROCESS;
+    /* Resource management initialization */
+    XrmInitialize();
+    _XtResourceListInitialize();
+
+    /* Other intrinsic intialization */
+    _XtConvertInitialize();
+    _XtEventInitialize();
+    _XtTranslateInitialize();
+
+    /* Some apps rely on old (broken) XtAppPeekEvent behavior */
+    if(getenv("XTAPPPEEKEVENT_SKIPTIMER"))
+	XtAppPeekEvent_SkipTimer = True;
+    else
+	XtAppPeekEvent_SkipTimer = False;
+}
+
+
+String _XtGetUserName(
+    String dest,
+    int len)
+{
+#ifdef WIN32
+    String ptr = NULL;
+
+    if ((ptr = getenv("USERNAME"))) {
+	(void) strncpy (dest, ptr, len-1);
+	dest[len-1] = '\0';
+    } else
+	*dest = '\0';
+#else
+#ifdef X_NEEDS_PWPARAMS
+    _Xgetpwparams pwparams;
+#endif
+    struct passwd *pw;
+    char* ptr;
+
+    if ((ptr = getenv("USER"))) {
+	(void) strncpy (dest, ptr, len-1);
+	dest[len-1] = '\0';
+    } else {
+	if ((pw = _XGetpwuid(getuid(),pwparams)) != NULL) {
+	    (void) strncpy (dest, pw->pw_name, len-1);
+	    dest[len-1] = '\0';
+	} else
+	    *dest = '\0';
+    }
+#endif
+    return dest;
+}
+
+
+static String GetRootDirName(
+    String dest,
+    int len)
+{
+#ifdef WIN32
+    register char *ptr1;
+    register char *ptr2 = NULL;
+    int len1 = 0, len2 = 0;
+
+    if (ptr1 = getenv("HOME")) {	/* old, deprecated */
+	len1 = strlen (ptr1);
+    } else if ((ptr1 = getenv("HOMEDRIVE")) && (ptr2 = getenv("HOMEDIR"))) {
+	len1 = strlen (ptr1);
+	len2 = strlen (ptr2);
+    } else if (ptr2 = getenv("USERNAME")) {
+	len1 = strlen (ptr1 = "/users/");
+	len2 = strlen (ptr2);
+    }
+    if ((len1 + len2 + 1) < len)
+	sprintf (dest, "%s%s", ptr1, (ptr2) ? ptr2 : "");
+    else
+	*dest = '\0';
+#else
+#ifdef X_NEEDS_PWPARAMS
+    _Xgetpwparams pwparams;
+#endif
+    struct passwd *pw;
+    static char *ptr;
+
+    if (len <= 0 || dest == NULL)
+	return NULL;
+
+    if ((ptr = getenv("HOME"))) {
+	(void) strncpy (dest, ptr, len-1);
+	dest[len-1] = '\0';
+    } else {
+	if ((ptr = getenv("USER")))
+	    pw = _XGetpwnam(ptr,pwparams);
+	else
+ 	    pw = _XGetpwuid(getuid(),pwparams);
+	if (pw != NULL) {
+	    (void) strncpy (dest, pw->pw_dir, len-1);
+	    dest[len-1] = '\0';
+	} else
+	    *dest = '\0';
+    }
+#endif
+    return dest;
+}
+
+static void CombineAppUserDefaults(
+    Display *dpy,
+    XrmDatabase *pdb)
+{
+    char* filename;
+    char* path = NULL;
+    Boolean deallocate = False;
+
+    if (!(path = getenv("XUSERFILESEARCHPATH"))) {
+	char *old_path=NULL;
+	char homedir[PATH_MAX]=".";
+#if !defined(WIN32) || !defined(__MINGW32__)
+	GetRootDirName(homedir, PATH_MAX);
+	if (!(old_path = getenv("XAPPLRESDIR")))
+#endif
+        {
+	    XtAsprintf(&path,
+		       "%s/%%L/%%N%%C:%s/%%l/%%N%%C:%s/%%N%%C:%s/%%L/%%N:%s/%%l/%%N:%s/%%N",
+		       homedir, homedir, homedir, homedir, homedir, homedir );
+	}
+#if !defined(WIN32) || !defined(__MINGW32__)
+        else
+	{
+	    XtAsprintf(&path,
+		       "%s/%%L/%%N%%C:%s/%%l/%%N%%C:%s/%%N%%C:%s/%%N%%C:%s/%%L/%%N:%s/%%l/%%N:%s/%%N:%s/%%N",
+		       old_path, old_path, old_path, homedir );
+	}
+#endif
+	deallocate = True;
+    }
+
+    filename = XtResolvePathname(dpy, NULL, NULL, NULL, path, NULL, 0, NULL);
+    if (filename) {
+	(void)XrmCombineFileDatabase(filename, pdb, False);
+	XtFree(filename);
+    }
+
+    if (deallocate)
+	XtFree(path);
+}
+
+static void CombineUserDefaults(
+    Display *dpy,
+    XrmDatabase *pdb)
+{
+#ifdef _MSC_VER
+    char *slashDotXdefaults = ".Xdefaults";
+#else
+#ifdef __MINGW32__
+    char *slashDotXdefaults = "/Xdefaults";
+#else
+    char *slashDotXdefaults = "/.Xdefaults";
+#endif
+#endif
+    char *dpy_defaults = XResourceManagerString(dpy);
+
+    if (dpy_defaults) {
+	XrmCombineDatabase(XrmGetStringDatabase(dpy_defaults), pdb, False);
+    } else {
+	char filename[PATH_MAX];
+#ifndef _MSC_VER
+	(void) GetRootDirName(filename,
+			PATH_MAX - strlen (slashDotXdefaults) - 1);
+	(void) strcat(filename, slashDotXdefaults);
+#else
+	strcpy(filename, slashDotXdefaults);
+#endif
+	(void)XrmCombineFileDatabase(filename, pdb, False);
+    }
+}
+
+/*ARGSUSED*/
+static Bool StoreDBEntry(
+    XrmDatabase		*db,
+    XrmBindingList      bindings,
+    XrmQuarkList	quarks,
+    XrmRepresentation   *type,
+    XrmValuePtr		value,
+    XPointer		data)
+{
+    XrmQPutResource((XrmDatabase *)data, bindings, quarks, *type, value);
+    return False;
+}
+
+static XrmDatabase CopyDB(XrmDatabase db)
+{
+    XrmDatabase copy = NULL;
+    XrmQuark empty = NULLQUARK;
+
+    XrmEnumerateDatabase(db, &empty, &empty, XrmEnumAllLevels,
+			 StoreDBEntry, (XPointer)&copy);
+    return copy;
+}
+
+/*ARGSUSED*/
+static String _XtDefaultLanguageProc(
+    Display   *dpy,	/* unused */
+    String     xnl,
+    XtPointer  closure)	/* unused */
+{
+    if (! setlocale(LC_ALL, xnl))
+	XtWarning("locale not supported by C library, locale unchanged");
+
+    if (! XSupportsLocale()) {
+	XtWarning("locale not supported by Xlib, locale set to C");
+	setlocale(LC_ALL, "C");
+    }
+    if (! XSetLocaleModifiers(""))
+	XtWarning("X locale modifiers not supported, using default");
+
+    return setlocale(LC_ALL, NULL); /* re-query in case overwritten */
+}
+
+XtLanguageProc XtSetLanguageProc(
+    XtAppContext      app,
+    XtLanguageProc    proc,
+    XtPointer         closure)
+{
+    XtLanguageProc    old;
+
+    if (!proc) {
+	proc = _XtDefaultLanguageProc;
+	closure = NULL;
+    }
+
+    if (app) {
+	LOCK_APP(app);
+	LOCK_PROCESS;
+	/* set langProcRec only for this application context */
+        old = app->langProcRec.proc;
+        app->langProcRec.proc = proc;
+        app->langProcRec.closure = closure;
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+    } else {
+	/* set langProcRec for all application contexts */
+        ProcessContext process;
+
+	LOCK_PROCESS;
+        process = _XtGetProcessContext();
+        old = process->globalLangProcRec.proc;
+	process->globalLangProcRec.proc = proc;
+	process->globalLangProcRec.closure = closure;
+        app = process->appContextList;
+        while (app) {
+            app->langProcRec.proc = proc;
+            app->langProcRec.closure = closure;
+	    app = app->next;
+        }
+	UNLOCK_PROCESS;
+    }
+    return (old ? old : _XtDefaultLanguageProc);
+}
+
+XrmDatabase XtScreenDatabase(
+    Screen *screen)
+{
+    int scrno;
+    Bool doing_def;
+    XrmDatabase db, olddb;
+    XtPerDisplay pd;
+    Status do_fallback;
+    char *scr_resources;
+    Display *dpy = DisplayOfScreen(screen);
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    if (screen == DefaultScreenOfDisplay(dpy)) {
+	scrno = DefaultScreen(dpy);
+	doing_def = True;
+    } else {
+	scrno = XScreenNumberOfScreen(screen);
+	doing_def = False;
+    }
+    pd = _XtGetPerDisplay(dpy);
+    if ((db = pd->per_screen_db[scrno])) {
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+	return (doing_def ? XrmGetDatabase(dpy) : db);
+    }
+    scr_resources = XScreenResourceString(screen);
+
+    if (ScreenCount(dpy) == 1) {
+	db = pd->cmd_db;
+	pd->cmd_db = NULL;
+    } else {
+	db = CopyDB(pd->cmd_db);
+    }
+    {   /* Environment defaults */
+	char	filenamebuf[PATH_MAX];
+	char	*filename;
+
+	if (!(filename = getenv("XENVIRONMENT"))) {
+	    int len;
+#ifdef _MSC_VER
+	    char *slashDotXdefaultsDash = "Xdefaults-";
+#else
+#ifdef __MINGW32__
+	    char *slashDotXdefaultsDash = "/Xdefaults-";
+#else
+	    char *slashDotXdefaultsDash = "/.Xdefaults-";
+#endif
+#endif
+
+#ifndef _MSC_VER
+	    (void) GetRootDirName(filename = filenamebuf,
+			PATH_MAX - strlen (slashDotXdefaultsDash) - 1);
+	    (void) strcat(filename, slashDotXdefaultsDash);
+#else
+            filename = filenamebuf;
+	    strcpy(filename, slashDotXdefaultsDash);
+#endif
+	    len = strlen(filename);
+	    GetHostname (filename+len, PATH_MAX-len);
+	}
+	(void)XrmCombineFileDatabase(filename, &db, False);
+    }
+    if (scr_resources)
+    {   /* Screen defaults */
+	XrmCombineDatabase(XrmGetStringDatabase(scr_resources), &db, False);
+	XFree(scr_resources);
+    }
+    /* Server or host defaults */
+    if (!pd->server_db)
+	CombineUserDefaults(dpy, &db);
+    else {
+	(void) XrmCombineDatabase(pd->server_db, &db, False);
+	pd->server_db = NULL;
+    }
+
+    if (!db)
+	db = XrmGetStringDatabase("");
+    pd->per_screen_db[scrno] = db;
+    olddb = XrmGetDatabase(dpy);
+    /* set database now, for XtResolvePathname to use */
+    XrmSetDatabase(dpy, db);
+    CombineAppUserDefaults(dpy, &db);
+    do_fallback = 1;
+    {   /* System app-defaults */
+	char	*filename;
+
+	if ((filename = XtResolvePathname(dpy, "app-defaults",
+					 NULL, NULL, NULL, NULL, 0, NULL))) {
+	    do_fallback = !XrmCombineFileDatabase(filename, &db, False);
+	    XtFree(filename);
+	}
+    }
+    /* now restore old database, if need be */
+    if (!doing_def)
+	XrmSetDatabase(dpy, olddb);
+    if (do_fallback && pd->appContext->fallback_resources)
+    {   /* Fallback defaults */
+        XrmDatabase fdb = NULL;
+	String *res;
+
+	for (res = pd->appContext->fallback_resources; *res; res++)
+	    XrmPutLineResource(&fdb, *res);
+	(void)XrmCombineDatabase(fdb, &db, False);
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+    return db;
+}
+
+/*
+ * Merge two option tables, allowing the second to over-ride the first,
+ * so that ambiguous abbreviations can be noticed.  The merge attempts
+ * to make the resulting table lexicographically sorted, but succeeds
+ * only if the first source table is sorted.  Though it _is_ recommended
+ * (for optimizations later in XrmParseCommand), it is not required
+ * that either source table be sorted.
+ *
+ * Caller is responsible for freeing the returned option table.
+ */
+
+static void _MergeOptionTables(
+    const XrmOptionDescRec *src1,
+    Cardinal num_src1,
+    const XrmOptionDescRec *src2,
+    Cardinal num_src2,
+    XrmOptionDescRec **dst,
+    Cardinal *num_dst)
+{
+    XrmOptionDescRec *table, *endP;
+    register XrmOptionDescRec *opt1, *whereP, *dstP;
+    register const XrmOptionDescRec *opt2;
+    int i1;
+    Cardinal i2;
+    int dst_len, order;
+    Boolean found;
+    enum {Check, NotSorted, IsSorted} sort_order = Check;
+
+    *dst = table = (XrmOptionDescRec*)
+	__XtMalloc( sizeof(XrmOptionDescRec) * (num_src1 + num_src2) );
+
+    (void) memmove(table, src1, sizeof(XrmOptionDescRec) * num_src1 );
+    if (num_src2 == 0) {
+	*num_dst = num_src1;
+	return;
+    }
+    endP = &table[dst_len = num_src1];
+    for (opt2 = src2, i2= 0; i2 < num_src2; opt2++, i2++) {
+	found = False;
+	whereP = endP-1;	/* assume new option goes at the end */
+	for (opt1 = table, i1 = 0; i1 < dst_len; opt1++, i1++) {
+	    /* have to walk the entire new table so new list is ordered
+	       (if src1 was ordered) */
+	    if (sort_order == Check && i1 > 0
+		&& strcmp(opt1->option, (opt1-1)->option) < 0)
+		sort_order = NotSorted;
+	    if ((order = strcmp(opt1->option, opt2->option)) == 0) {
+		/* same option names; just overwrite opt1 with opt2 */
+		*opt1 = *opt2;
+		found = True;
+		break;
+		}
+	    /* else */
+	    if (sort_order == IsSorted && order > 0) {
+		/* insert before opt1 to preserve order */
+		/* shift rest of table forward to make room for new entry */
+		for (dstP = endP++; dstP > opt1; dstP--)
+		    *dstP = *(dstP-1);
+		*opt1 = *opt2;
+		dst_len++;
+		found = True;
+		break;
+	    }
+	    /* else */
+	    if (order < 0)
+		/* opt2 sorts after opt1, so remember this position */
+		whereP = opt1;
+	}
+	if (sort_order == Check && i1 == dst_len)
+	    sort_order = IsSorted;
+	if (!found) {
+	   /* when we get here, whereP points to the last entry in the
+	      destination that sorts before "opt2".  Shift rest of table
+	      forward and insert "opt2" after whereP. */
+	    whereP++;
+	    for (dstP = endP++; dstP > whereP; dstP--)
+		*dstP = *(dstP-1);
+	    *whereP = *opt2;
+	    dst_len++;
+	}
+    }
+    *num_dst = dst_len;
+}
+
+
+/* NOTE: name, class, and type must be permanent strings */
+static Boolean _GetResource(
+    Display *dpy,
+    XrmSearchList list,
+    String name,
+    String class,
+    String type,
+    XrmValue* value)
+{
+    XrmRepresentation db_type;
+    XrmValue db_value;
+    XrmName Qname = XrmPermStringToQuark(name);
+    XrmClass Qclass = XrmPermStringToQuark(class);
+    XrmRepresentation Qtype = XrmPermStringToQuark(type);
+
+    if (XrmQGetSearchResource(list, Qname, Qclass, &db_type, &db_value)) {
+	if (db_type == Qtype) {
+	    if (Qtype == _XtQString)
+		*(String*)value->addr = db_value.addr;
+	    else
+		(void) memmove(value->addr, db_value.addr, value->size );
+	    return True;
+	} else {
+	    WidgetRec widget; /* hack, hack */
+	    bzero( &widget, sizeof(widget) );
+	    widget.core.self = &widget;
+	    widget.core.widget_class = coreWidgetClass;
+	    widget.core.screen = (Screen*)DefaultScreenOfDisplay(dpy);
+	    XtInitializeWidgetClass(coreWidgetClass);
+	    if (_XtConvert(&widget,db_type,&db_value,Qtype,value,NULL)) {
+		return True;
+	    }
+	}
+    }
+    return False;
+}
+
+XrmDatabase _XtPreparseCommandLine(
+    XrmOptionDescRec *urlist,
+    Cardinal num_urs,
+    int argc,
+    String *argv,
+    /* return */
+    String *applName,
+    String *displayName,
+    String *language)
+{
+    XrmDatabase db = NULL;
+    XrmOptionDescRec *options;
+    Cardinal num_options;
+    XrmName name_list[3];
+    XrmName class_list[3];
+    XrmRepresentation type;
+    XrmValue val;
+    String *targv;
+    int targc = argc;
+
+    targv = (String *) __XtMalloc(sizeof(char *) * argc);
+    (void) memmove(targv, argv, sizeof(char *) * argc);
+    _MergeOptionTables(opTable, XtNumber(opTable), urlist, num_urs,
+		       &options, &num_options);
+    name_list[0] = class_list[0] = XrmPermStringToQuark(".");
+    name_list[2] = class_list[2] = NULLQUARK;
+    XrmParseCommand(&db, options, num_options, ".", &targc, targv);
+    if (applName) {
+	name_list[1] = XrmPermStringToQuark("name");
+	if (XrmQGetResource(db, name_list, name_list, &type, &val) &&
+	    type == _XtQString)
+	    *applName = val.addr;
+    }
+    if (displayName) {
+	name_list[1] = XrmPermStringToQuark("display");
+	if (XrmQGetResource(db, name_list, name_list, &type, &val) &&
+	    type == _XtQString)
+	    *displayName = val.addr;
+    }
+    if (language) {
+	name_list[1] = XrmPermStringToQuark("xnlLanguage");
+	class_list[1] = XrmPermStringToQuark("XnlLanguage");
+	if (XrmQGetResource(db, name_list, class_list, &type, &val) &&
+	    type == _XtQString)
+	    *language = val.addr;
+    }
+
+    XtFree((char *)targv);
+    XtFree((char *)options);
+    return db;
+}
+
+
+static void GetLanguage(
+    Display *dpy,
+    XtPerDisplay pd)
+{
+    XrmRepresentation type;
+    XrmValue value;
+    XrmName name_list[3];
+    XrmName class_list[3];
+
+    LOCK_PROCESS;
+    if (! pd->language) {
+	name_list[0] = pd->name;
+	name_list[1] = XrmPermStringToQuark("xnlLanguage");
+	class_list[0] = pd->class;
+	class_list[1] = XrmPermStringToQuark("XnlLanguage");
+	name_list[2] = class_list[2] = NULLQUARK;
+	if (!pd->server_db)
+	    CombineUserDefaults(dpy, &pd->server_db);
+	if (pd->server_db &&
+	    XrmQGetResource(pd->server_db,name_list,class_list, &type, &value)
+	    && type == _XtQString)
+	    pd->language = (char *) value.addr;
+    }
+
+    if (pd->appContext->langProcRec.proc) {
+	if (! pd->language) pd->language = "";
+	pd->language = (*pd->appContext->langProcRec.proc)
+	    (dpy, pd->language, pd->appContext->langProcRec.closure);
+    }
+    else if (! pd->language || pd->language[0] == '\0') /* R4 compatibility */
+	pd->language = getenv("LANG");
+
+    if (pd->language) pd->language = XtNewString(pd->language);
+    UNLOCK_PROCESS;
+}
+
+static void ProcessInternalConnection (
+    XtPointer client_data,
+    int* fd,
+    XtInputId* id)
+{
+    XProcessInternalConnection ((Display *) client_data, *fd);
+}
+
+static void ConnectionWatch (
+    Display* dpy,
+    XPointer client_data,
+    int fd,
+    Bool opening,
+    XPointer* watch_data)
+{
+    XtInputId* iptr;
+    XtAppContext app = XtDisplayToApplicationContext(dpy);
+
+    if (opening) {
+	iptr = (XtInputId *) __XtMalloc(sizeof(XtInputId));
+	*iptr = XtAppAddInput(app, fd, (XtPointer) XtInputReadMask,
+			      ProcessInternalConnection, client_data);
+	*watch_data = (XPointer) iptr;
+    } else {
+	iptr = (XtInputId *) *watch_data;
+	XtRemoveInput(*iptr);
+        (void) XtFree(*watch_data);
+    }
+}
+
+void _XtDisplayInitialize(
+	Display *dpy,
+        XtPerDisplay pd,
+	_Xconst char* name,
+	XrmOptionDescRec *urlist,
+	Cardinal num_urs,
+	int *argc,
+	char **argv)
+{
+	Boolean tmp_bool;
+	XrmValue value;
+	XrmOptionDescRec *options;
+	Cardinal num_options;
+	XrmDatabase db;
+	XrmName name_list[2];
+	XrmClass class_list[2];
+	XrmHashTable* search_list;
+	int search_list_size = SEARCH_LIST_SIZE;
+
+	GetLanguage(dpy, pd);
+
+	/* Parse the command line and remove Xt arguments from argv */
+	_MergeOptionTables( opTable, XtNumber(opTable), urlist, num_urs,
+			    &options, &num_options );
+	XrmParseCommand(&pd->cmd_db, options, num_options, name, argc, argv);
+
+	db = XtScreenDatabase(DefaultScreenOfDisplay(dpy));
+
+	if (!(search_list = (XrmHashTable*)
+		       ALLOCATE_LOCAL( SEARCH_LIST_SIZE*sizeof(XrmHashTable))))
+	    _XtAllocError(NULL);
+	name_list[0] = pd->name;
+	class_list[0] = pd->class;
+	name_list[1] = NULLQUARK;
+	class_list[1] = NULLQUARK;
+
+	while (!XrmQGetSearchList(db, name_list, class_list,
+				  search_list, search_list_size)) {
+	    XrmHashTable* old = search_list;
+	    Cardinal size = (search_list_size*=2)*sizeof(XrmHashTable);
+	    if (!(search_list = (XrmHashTable*)ALLOCATE_LOCAL(size)))
+		_XtAllocError(NULL);
+	    (void) memmove((char*)search_list, (char*)old, (size>>1) );
+	    DEALLOCATE_LOCAL(old);
+	}
+
+	value.size = sizeof(tmp_bool);
+	value.addr = (XtPointer)&tmp_bool;
+	if (_GetResource(dpy, search_list, "synchronous", "Synchronous",
+			 XtRBoolean, &value)) {
+	    int i;
+	    Display **dpyP = pd->appContext->list;
+	    pd->appContext->sync = tmp_bool;
+	    for (i = pd->appContext->count; i; dpyP++, i--) {
+		(void) XSynchronize(*dpyP, (Bool)tmp_bool);
+	    }
+	} else {
+	    (void) XSynchronize(dpy, (Bool)pd->appContext->sync);
+	}
+
+	if (_GetResource(dpy, search_list, "reverseVideo", "ReverseVideo",
+			 XtRBoolean, &value)
+	        && tmp_bool) {
+	    pd->rv = True;
+	}
+
+	value.size = sizeof(pd->multi_click_time);
+	value.addr = (XtPointer)&pd->multi_click_time;
+	if (!_GetResource(dpy, search_list,
+			  "multiClickTime", "MultiClickTime",
+			  XtRInt, &value)) {
+	    pd->multi_click_time = 200;
+	}
+
+	value.size = sizeof(pd->appContext->selectionTimeout);
+	value.addr = (XtPointer)&pd->appContext->selectionTimeout;
+	(void)_GetResource(dpy, search_list,
+			   "selectionTimeout", "SelectionTimeout",
+			   XtRInt, &value);
+
+#ifndef NO_IDENTIFY_WINDOWS
+	value.size = sizeof(pd->appContext->identify_windows);
+	value.addr = (XtPointer)&pd->appContext->identify_windows;
+	(void)_GetResource(dpy, search_list,
+			   "xtIdentifyWindows", "XtDebug",
+			   XtRBoolean, &value);
+#endif
+
+	XAddConnectionWatch(dpy, ConnectionWatch, (XPointer) dpy);
+
+	XtFree( (XtPointer)options );
+	DEALLOCATE_LOCAL( search_list );
+}
+
+/*	Function Name: XtAppSetFallbackResources
+ *	Description: Sets the fallback resource list that will be loaded
+ *                   at display initialization time.
+ *	Arguments: app_context - the app context.
+ *                 specification_list - the resource specification list.
+ *	Returns: none.
+ */
+
+void
+XtAppSetFallbackResources(
+    XtAppContext app_context,
+    String *specification_list)
+{
+    LOCK_APP(app_context);
+    app_context->fallback_resources = specification_list;
+    UNLOCK_APP(app_context);
+}
+
+
+Widget XtOpenApplication(XtAppContext *app_context_return,
+			 _Xconst char *application_class,
+			 XrmOptionDescRec *options, Cardinal num_options,
+			 int *argc_in_out, String *argv_in_out,
+			 String *fallback_resources, WidgetClass widget_class,
+			 ArgList args_in, Cardinal num_args_in)
+{
+    XtAppContext app_con;
+    Display * dpy;
+    register int saved_argc = *argc_in_out;
+    Widget root;
+    Arg args[3], *merged_args;
+    Cardinal num = 0;
+
+    XtToolkitInitialize(); /* cannot be moved into _XtAppInit */
+
+    dpy = _XtAppInit(&app_con, (String)application_class, options, num_options,
+		     argc_in_out, &argv_in_out, fallback_resources);
+
+    LOCK_APP(app_con);
+    XtSetArg(args[num], XtNscreen, DefaultScreenOfDisplay(dpy)); num++;
+    XtSetArg(args[num], XtNargc, saved_argc);	                 num++;
+    XtSetArg(args[num], XtNargv, argv_in_out);	                 num++;
+
+    merged_args = XtMergeArgLists(args_in, num_args_in, args, num);
+    num += num_args_in;
+
+    root = XtAppCreateShell(NULL, application_class, widget_class, dpy,
+			    merged_args, num);
+
+    if (app_context_return)
+	*app_context_return = app_con;
+
+    XtFree((XtPointer)merged_args);
+    XtFree((XtPointer)argv_in_out);
+    UNLOCK_APP(app_con);
+    return root;
+}
+
+
+Widget
+XtAppInitialize(
+    XtAppContext * app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescRec *options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    ArgList args_in,
+    Cardinal num_args_in)
+{
+    return XtOpenApplication(app_context_return, application_class,
+			     options, num_options,
+			     argc_in_out, argv_in_out, fallback_resources,
+			     applicationShellWidgetClass,
+			     args_in, num_args_in);
+}
+
+
+/*ARGSUSED*/
+Widget
+XtInitialize(
+    _Xconst char* name,
+    _Xconst char* classname,
+    XrmOptionDescRec *options,
+    Cardinal num_options,
+    int *argc,
+    String *argv)
+{
+    Widget root;
+    XtAppContext app_con;
+    register ProcessContext process = _XtGetProcessContext();
+
+    root = XtAppInitialize(&app_con, classname, options, num_options,
+			   argc, argv, NULL, NULL, (Cardinal) 0);
+
+    LOCK_PROCESS;
+    process->defaultAppContext = app_con;
+    UNLOCK_PROCESS;
+    return root;
+}
diff --git a/libXt/src/Intrinsic.c b/libXt/src/Intrinsic.c
index 727f7493d..8d9e8608c 100644
--- a/libXt/src/Intrinsic.c
+++ b/libXt/src/Intrinsic.c
@@ -1,1608 +1,1608 @@
-/***********************************************************

-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, 1994, 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.

-

-*/

-

-#define INTRINSIC_C

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "VarargsI.h"        /* for geoTattler */

-#ifndef NO_IDENTIFY_WINDOWS

-#include <X11/Xatom.h>

-#endif

-#ifndef VMS

-#include <sys/stat.h>

-#endif /* VMS */

-

-#include <stdlib.h>

-

-String XtCXtToolkitError = "XtToolkitError";

-

-Boolean XtIsSubclass(

-    Widget    widget,

-    WidgetClass widgetClass)

-{

-    register WidgetClass w;

-    Boolean retval = FALSE;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    for (w = widget->core.widget_class; w != NULL; w = w->core_class.superclass)

-	if (w == widgetClass) {

-	    retval = TRUE;

-	    break;

-	}

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-    return retval;

-} /* XtIsSubclass */

-

-

-Boolean _XtCheckSubclassFlag(

-    Widget object,

-    _XtXtEnum flag)

-{

-    Boolean retval;

-

-    LOCK_PROCESS;

-    if (object->core.widget_class->core_class.class_inited & flag)

-	retval = TRUE;

-    else

-	retval = FALSE;

-    UNLOCK_PROCESS;

-    return retval;

-} /*_XtVerifySubclass */

-

-

-Boolean _XtIsSubclassOf(

-    Widget object,

-    WidgetClass widgetClass,

-    WidgetClass superClass,

-    _XtXtEnum flag)

-{

-    LOCK_PROCESS;

-    if (!(object->core.widget_class->core_class.class_inited & flag)) {

-	UNLOCK_PROCESS;

-	return False;

-    } else {

-	register WidgetClass c = object->core.widget_class;

-	while (c != superClass) {

-	    if (c == widgetClass) {

-		UNLOCK_PROCESS;

-		return True;

-	    }

-	    c = c->core_class.superclass;

-	}

-	UNLOCK_PROCESS;

-	return False;

-    }

-} /*_XtIsSubclassOf */

-

-

-XtPointer XtGetClassExtension(

-    WidgetClass	object_class,

-    Cardinal	byte_offset,

-    XrmQuark	type,

-    long	version,

-    Cardinal	record_size)

-{

-    ObjectClassExtension ext;

-    LOCK_PROCESS;

-

-    ext = *(ObjectClassExtension *)((char *)object_class + byte_offset);

-    while (ext && (ext->record_type != type || ext->version < version

-		   || ext->record_size < record_size)) {

-	ext = (ObjectClassExtension) ext->next_extension;

-    }

-

-    UNLOCK_PROCESS;

-    return (XtPointer) ext;

-}

-

-

-static void ComputeWindowAttributes(

-    Widget		 widget,

-    XtValueMask		 *value_mask,

-    XSetWindowAttributes *values)

-{

-    XtExposeProc expose;

-

-    *value_mask = CWEventMask | CWColormap;

-    (*values).event_mask = XtBuildEventMask(widget);

-    (*values).colormap = widget->core.colormap;

-    if (widget->core.background_pixmap != XtUnspecifiedPixmap) {

-	*value_mask |= CWBackPixmap;

-	(*values).background_pixmap = widget->core.background_pixmap;

-    } else {

-	*value_mask |= CWBackPixel;

-	(*values).background_pixel = widget->core.background_pixel;

-    }

-    if (widget->core.border_pixmap != XtUnspecifiedPixmap) {

-	*value_mask |= CWBorderPixmap;

-	(*values).border_pixmap = widget->core.border_pixmap;

-    } else {

-	*value_mask |= CWBorderPixel;

-	(*values).border_pixel = widget->core.border_pixel;

-    }

-    LOCK_PROCESS;

-    expose = widget->core.widget_class->core_class.expose;

-    UNLOCK_PROCESS;

-    if (expose == (XtExposeProc) NULL) {

-	/* Try to avoid redisplay upon resize by making bit_gravity the same

-	   as the default win_gravity */

-	*value_mask |= CWBitGravity;

-	(*values).bit_gravity = NorthWestGravity;

-    }

-} /* ComputeWindowAttributes */

-

-static void CallChangeManaged(

-    register Widget		widget)

-{

-    register Cardinal		i;

-    XtWidgetProc		change_managed;

-    register WidgetList		children;

-    int    			managed_children = 0;

-

-    register CompositePtr cpPtr;

-    register CompositePartPtr clPtr;

-

-    if (XtIsComposite (widget)) {

-	cpPtr = (CompositePtr)&((CompositeWidget) widget)->composite;

-        clPtr = (CompositePartPtr)&((CompositeWidgetClass)

-                   widget->core.widget_class)->composite_class;

-    } else return;

-

-    children = cpPtr->children;

-    LOCK_PROCESS;

-    change_managed = clPtr->change_managed;

-    UNLOCK_PROCESS;

-

-    /* CallChangeManaged for all children */

-    for (i = cpPtr->num_children; i != 0; --i) {

-	CallChangeManaged (children[i-1]);

-	if (XtIsManaged(children[i-1])) managed_children++;

-    }

-

-    if (change_managed != NULL && managed_children != 0) {

-	CALLGEOTAT(_XtGeoTrace(widget,"Call \"%s\"[%d,%d]'s changemanaged\n",

-		       XtName(widget),

-		       widget->core.width, widget->core.height));

-	(*change_managed) (widget);

-    }

-} /* CallChangeManaged */

-

-

-static void MapChildren(

-    CompositePart *cwp)

-{

-    Cardinal i;

-    WidgetList children;

-    register Widget child;

-

-    children = cwp->children;

-    for (i = 0; i <  cwp->num_children; i++) {

-	child = children[i];

-	if (XtIsWidget (child)){

-	    if (child->core.managed && child->core.mapped_when_managed) {

-		XtMapWidget (children[i]);

-	    }

-	}

-    }

-} /* MapChildren */

-

-

-static Boolean ShouldMapAllChildren(

-    CompositePart *cwp)

-{

-    Cardinal i;

-    WidgetList children;

-    register Widget child;

-

-    children = cwp->children;

-    for (i = 0; i < cwp->num_children; i++) {

-	child = children[i];

-	if (XtIsWidget(child)) {

-	    if (XtIsRealized(child) && (! (child->core.managed

-					  && child->core.mapped_when_managed))){

-		    return False;

-	    }

-	}

-    }

-

-    return True;

-} /* ShouldMapAllChildren */

-

-

-static void RealizeWidget(

-    Widget			widget)

-{

-    XtValueMask			value_mask;

-    XSetWindowAttributes	values;

-    XtRealizeProc		realize;

-    Window			window;

-    Display*			display;

-    String			class_name;

-    Widget			hookobj;

-

-    if (!XtIsWidget(widget) || XtIsRealized(widget)) return;

-    display = XtDisplay(widget);

-    _XtInstallTranslations(widget);

-

-    ComputeWindowAttributes (widget, &value_mask, &values);

-    LOCK_PROCESS;

-    realize = widget->core.widget_class->core_class.realize;

-    class_name = widget->core.widget_class->core_class.class_name;

-    UNLOCK_PROCESS;

-    if (realize == NULL)

-	XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-		      "invalidProcedure","realizeProc",XtCXtToolkitError,

-		      "No realize class procedure defined",

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

-    else {

-	CALLGEOTAT(_XtGeoTrace(widget,"Call \"%s\"[%d,%d]'s realize proc\n",

-		       XtName(widget),

-		       widget->core.width, widget->core.height));

-	(*realize) (widget, &value_mask, &values);

-    }

-    window = XtWindow(widget);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj,XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHrealizeWidget;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-#ifndef NO_IDENTIFY_WINDOWS

-    if (_XtGetPerDisplay(display)->appContext->identify_windows) {

-	int len_nm, len_cl;

-	char *s;

-

-	len_nm = widget->core.name ? strlen(widget->core.name) : 0;

-	len_cl = strlen(class_name);

-	s = __XtMalloc((unsigned) (len_nm + len_cl + 2));

-	s[0] = '\0';

-	if (len_nm)

-	    strcpy(s, widget->core.name);

-	strcpy(s + len_nm + 1, class_name);

-	XChangeProperty(display, window,

-			XInternAtom(display, "_MIT_OBJ_CLASS",

-				    False),

-			XA_STRING, 8, PropModeReplace, (unsigned char *) s,

-			len_nm + len_cl + 2);

-	XtFree(s);

-    }

-#endif

-#ifdef notdef

-    _XtRegisterAsyncHandlers(widget);

-#endif

-    /* (re)register any grabs extant in the translations */

-    _XtRegisterGrabs(widget);

-    /* reregister any grabs added with XtGrab{Button,Key} */

-    _XtRegisterPassiveGrabs(widget);

-    XtRegisterDrawable (display, window, widget);

-    _XtExtensionSelect(widget);

-

-    if (XtIsComposite (widget)) {

-	Cardinal		i;

-	CompositePart *cwp = &(((CompositeWidget)widget)->composite);

-	WidgetList children = cwp->children;

-	/* Realize all children */

-	for (i = cwp->num_children; i != 0; --i) {

-	    RealizeWidget (children[i-1]);

-	}

-	/* Map children that are managed and mapped_when_managed */

-

-	if (cwp->num_children != 0) {

-	    if (ShouldMapAllChildren(cwp)) {

-		XMapSubwindows (display, window);

-	    } else {

-		MapChildren(cwp);

-	    }

-	}

-    }

-

-    /* If this is the application's popup shell, map it */

-    if (widget->core.parent == NULL && widget->core.mapped_when_managed) {

-	XtMapWidget (widget);

-    }

-} /* RealizeWidget */

-

-void XtRealizeWidget (

-    Widget		widget)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (XtIsRealized (widget)) {

-	UNLOCK_APP(app);

-	return;

-    }

-    CallChangeManaged(widget);

-    RealizeWidget(widget);

-    UNLOCK_APP(app);

-} /* XtRealizeWidget */

-

-

-static void UnrealizeWidget(

-    Widget		widget)

-{

-    CompositeWidget	cw;

-    Cardinal		i;

-    WidgetList		children;

-

-    if (!XtIsWidget(widget) || !XtIsRealized(widget)) return;

-

-    /* If this is the application's popup shell, unmap it? */

-    /* no, the window is being destroyed */

-

-    /* Recurse on children */

-    if (XtIsComposite (widget)) {

-	cw = (CompositeWidget) widget;

-	children = cw->composite.children;

-	/* Unrealize all children */

-	for (i = cw->composite.num_children; i != 0; --i) {

-	    UnrealizeWidget (children[i-1]);

-	}

-	/* Unmap children that are managed and mapped_when_managed? */

-	/* No, it's ok to be managed and unrealized as long as your parent */

-	/* is unrealized. XtUnrealize widget makes sure the "top" widget */

-	/* is unmanaged, we can ignore all descendents */

-    }

-

-    if (XtHasCallbacks(widget, XtNunrealizeCallback) == XtCallbackHasSome)

-	XtCallCallbacks(widget, XtNunrealizeCallback, NULL);

-

-    /* Unregister window */

-    XtUnregisterDrawable(XtDisplay(widget), XtWindow(widget));

-

-    /* Remove Event Handlers */

-    /* remove grabs. Happens automatically when window is destroyed. */

-

-    /* Destroy X Window, done at outer level with one request */

-    widget->core.window = None;

-

-    /* Removing the event handler here saves having to keep track if

-     * the translation table is changed while the widget is unrealized.

-     */

-    _XtRemoveTranslations(widget);

-} /* UnrealizeWidget */

-

-

-void XtUnrealizeWidget (

-    Widget		widget)

-{

-    Window window;

-    Widget hookobj;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    window = XtWindow(widget);

-    if (! XtIsRealized (widget)) {

-	UNLOCK_APP(app);

-	return;

-    }

-    if (widget->core.managed && widget->core.parent != NULL)

-	XtUnmanageChild(widget);

-    UnrealizeWidget(widget);

-    if (window != None)

-	XDestroyWindow(XtDisplay(widget), window);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHunrealizeWidget;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtUnrealizeWidget */

-

-

-void XtCreateWindow(

-    Widget		 widget,

-    unsigned int	 window_class,

-    Visual		 *visual,

-    XtValueMask		 value_mask,

-    XSetWindowAttributes *attributes)

-{

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    if (widget->core.window == None) {

-	if (widget->core.width == 0 || widget->core.height == 0) {

-	    Cardinal count = 1;

-	    XtAppErrorMsg(app,

-		       "invalidDimension", "xtCreateWindow", XtCXtToolkitError,

-		       "Widget %s has zero width and/or height",

-		       &widget->core.name, &count);

-	}

-	widget->core.window =

-	    XCreateWindow (

-		XtDisplay (widget),

-		(widget->core.parent ?

-		    widget->core.parent->core.window :

-		    widget->core.screen->root),

-		(int)widget->core.x, (int)widget->core.y,

-		(unsigned)widget->core.width, (unsigned)widget->core.height,

-		(unsigned)widget->core.border_width, (int) widget->core.depth,

-		window_class, visual, value_mask, attributes);

-    }

-    UNLOCK_APP(app);

-} /* XtCreateWindow */

-

-

-/* ---------------- XtNameToWidget ----------------- */

-

-static Widget NameListToWidget(

-    Widget root,

-    XrmNameList     names,

-    XrmBindingList  bindings,

-    int in_depth, int *out_depth, int *found_depth);

-

-typedef Widget (*NameMatchProc)(XrmNameList,

-    XrmBindingList,

-    WidgetList, Cardinal, int, int *, int *);

-

-static Widget MatchExactChildren(

-    XrmNameList     names,

-    XrmBindingList  bindings,

-    register WidgetList children,

-    register Cardinal num,

-    int in_depth, int *out_depth, int *found_depth)

-{

-    register Cardinal   i;

-    register XrmName    name = *names;

-    Widget w, result = NULL;

-    int d, min = 10000;

-

-    for (i = 0; i < num; i++) {

-	if (name == children[i]->core.xrm_name) {

-	    w = NameListToWidget(children[i], &names[1], &bindings[1],

-		    in_depth+1, &d, found_depth);

-	    if (w != NULL && d < min) {result = w; min = d;}

-	}

-    }

-    *out_depth = min;

-    return result;

-}

-

-static Widget MatchWildChildren(

-    XrmNameList     names,

-    XrmBindingList  bindings,

-    register WidgetList children,

-    register Cardinal num,

-    int in_depth, int *out_depth, int *found_depth)

-{

-    register Cardinal   i;

-    Widget w, result = NULL;

-    int d, min = 10000;

-

-    for (i = 0; i < num; i++) {

-	w = NameListToWidget(children[i], names, bindings,

-		in_depth+1, &d, found_depth);

-	if (w != NULL && d < min) {result = w; min = d;}

-    }

-    *out_depth = min;

-    return result;

-}

-

-static Widget SearchChildren(

-    Widget root,

-    XrmNameList     names,

-    XrmBindingList  bindings,

-    NameMatchProc matchproc,

-    int in_depth, int *out_depth, int *found_depth)

-{

-    Widget w1 = NULL, w2;

-    int d1, d2;

-

-    if (XtIsComposite(root)) {

-	w1 = (*matchproc)(names, bindings,

-		((CompositeWidget) root)->composite.children,

-		((CompositeWidget) root)->composite.num_children,

-		in_depth, &d1, found_depth);

-    } else d1 = 10000;

-    w2 = (*matchproc)(names, bindings, root->core.popup_list,

-	    root->core.num_popups, in_depth, &d2, found_depth);

-    *out_depth = (d1 < d2 ? d1 : d2);

-    return (d1 < d2 ? w1 : w2);

-}

-

-static Widget NameListToWidget(

-    register Widget root,

-    XrmNameList     names,

-    XrmBindingList  bindings,

-    int in_depth, int *out_depth, int *found_depth)

-{

-    Widget w1, w2;

-    int d1, d2;

-

-    if (in_depth >= *found_depth) {

-	*out_depth = 10000;

-	return NULL;

-    }

-

-    if (names[0] == NULLQUARK) {

-	*out_depth = *found_depth = in_depth;

-	return root;

-    }

-

-    if (! XtIsWidget(root)) {

-	*out_depth = 10000;

-	return NULL;

-    }

-

-    if (*bindings == XrmBindTightly) {

-	return SearchChildren(root, names, bindings, MatchExactChildren,

-		in_depth, out_depth, found_depth);

-

-    } else {	/* XrmBindLoosely */

-	w1 = SearchChildren(root, names, bindings, MatchExactChildren,

-		in_depth, &d1, found_depth);

-	w2 = SearchChildren(root, names, bindings, MatchWildChildren,

-		in_depth, &d2, found_depth);

-	*out_depth = (d1 < d2 ? d1 : d2);

-	return (d1 < d2 ? w1 : w2);

-    }

-} /* NameListToWidget */

-

-Widget XtNameToWidget(

-    Widget root,

-    _Xconst char* name)

-{

-    XrmName *names;

-    XrmBinding *bindings;

-    int len, depth, found = 10000;

-    Widget result;

-    WIDGET_TO_APPCON(root);

-

-    len = strlen(name);

-    if (len == 0) return NULL;

-

-    LOCK_APP(app);

-    names = (XrmName *) ALLOCATE_LOCAL((unsigned) (len+1) * sizeof(XrmName));

-    bindings = (XrmBinding *)

-	ALLOCATE_LOCAL((unsigned) (len+1) * sizeof(XrmBinding));

-    if (names == NULL || bindings == NULL) _XtAllocError(NULL);

-

-    XrmStringToBindingQuarkList(name, bindings, names);

-    if (names[0] == NULLQUARK) {

-	DEALLOCATE_LOCAL((char *) bindings);

-	DEALLOCATE_LOCAL((char *) names);

-	UNLOCK_APP(app);

-	return NULL;

-    }

-

-    result = NameListToWidget(root, names, bindings, 0, &depth, &found);

-

-    DEALLOCATE_LOCAL((char *) bindings);

-    DEALLOCATE_LOCAL((char *) names);

-    UNLOCK_APP(app);

-    return result;

-} /* XtNameToWidget */

-

-/* Define user versions of intrinsics macros */

-

-#undef XtDisplayOfObject

-Display *XtDisplayOfObject(

-     Widget object)

-{

-    /* Attempts to LockApp() here will generate endless recursive loops */

-    if (XtIsSubclass(object, hookObjectClass))

-	return DisplayOfScreen(((HookObject)object)->hooks.screen);

-    return XtDisplay(XtIsWidget(object) ? object : _XtWindowedAncestor(object));

-}

-

-#undef XtDisplay

-Display *XtDisplay(

-	Widget widget)

-{

-    /* Attempts to LockApp() here will generate endless recursive loops */

-    return DisplayOfScreen(widget->core.screen);

-}

-

-#undef XtScreenOfObject

-Screen *XtScreenOfObject(

-     Widget object)

-{

-    /* Attempts to LockApp() here will generate endless recursive loops */

-    if (XtIsSubclass(object, hookObjectClass))

-	return ((HookObject)object)->hooks.screen;

-    return XtScreen(XtIsWidget(object) ? object : _XtWindowedAncestor(object));

-}

-

-#undef XtScreen

-Screen *XtScreen(

-	Widget widget)

-{

-    /* Attempts to LockApp() here will generate endless recursive loops */

-    return widget->core.screen;

-}

-

-#undef XtWindowOfObject

-Window XtWindowOfObject(

-     Widget object)

-{

-    return XtWindow(XtIsWidget(object) ? object : _XtWindowedAncestor(object));

-}

-

-

-#undef XtWindow

-Window XtWindow(

-	Widget widget)

-{

-    return widget->core.window;

-}

-

-#undef XtSuperclass

-WidgetClass XtSuperclass(

-    Widget widget)

-{

-    WidgetClass retval;

-

-    LOCK_PROCESS;

-    retval = XtClass(widget)->core_class.superclass;

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-#undef XtClass

-WidgetClass XtClass(

-    Widget widget)

-{

-    WidgetClass retval;

-

-    LOCK_PROCESS;

-    retval = widget->core.widget_class;

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-#undef XtIsManaged

-Boolean XtIsManaged(

-	Widget object)

-{

-    Boolean retval;

-    WIDGET_TO_APPCON(object);

-

-    LOCK_APP(app);

-    if (XtIsRectObj(object))

-	retval = object->core.managed;

-    else

-	retval = False;

-    UNLOCK_APP(app);

-    return retval;

-}

-

-#undef XtIsRealized

-Boolean XtIsRealized (

-    Widget   object)

-{

-    Boolean retval;

-    WIDGET_TO_APPCON(object);

-

-    LOCK_APP(app);

-    retval = XtWindowOfObject(object) != None;

-    UNLOCK_APP(app);

-    return retval;

-} /* XtIsRealized */

-

-#undef XtIsSensitive

-Boolean XtIsSensitive(

-	Widget	object)

-{

-    Boolean retval;

-    WIDGET_TO_APPCON(object);

-

-    LOCK_APP(app);

-    if (XtIsRectObj(object))

-	retval = object->core.sensitive && object->core.ancestor_sensitive;

-    else

-	retval = False;

-    UNLOCK_APP(app);

-    return retval;

-}

-

-/*

- * Internal routine; must be called only after XtIsWidget returns false

- */

-Widget _XtWindowedAncestor(

-    register Widget object)

-{

-    Widget obj = object;

-    for (object = XtParent(object); object && !XtIsWidget(object);)

-	object = XtParent(object);

-

-    if (object == NULL) {

-	String params = XtName(obj);

-	Cardinal num_params = 1;

-	XtErrorMsg("noWidgetAncestor", "windowedAncestor", XtCXtToolkitError,

-		   "Object \"%s\" does not have windowed ancestor",

-		   &params, &num_params);

-    }

-

-    return object;

-}

-

-#undef XtParent

-Widget XtParent(

-    Widget widget)

-{

-    /* Attempts to LockApp() here will generate endless recursive loops */

-    return widget->core.parent;

-}

-

-#undef XtName

-String XtName(

-     Widget object)

-{

-    /* Attempts to LockApp() here will generate endless recursive loops */

-    return XrmQuarkToString(object->core.xrm_name);

-}

-

-

-Boolean XtIsObject(

-    Widget object)

-{

-    WidgetClass wc;

-    String class_name;

-

-    /* perform basic sanity checks */

-    if (object->core.self != object || object->core.xrm_name == NULLQUARK)

-	return False;

-

-    LOCK_PROCESS;

-    wc = object->core.widget_class;

-    if (wc->core_class.class_name == NULL ||

-	wc->core_class.xrm_class == NULLQUARK ||

-	(class_name = XrmClassToString(wc->core_class.xrm_class)) == NULL ||

-	strcmp(wc->core_class.class_name, class_name) != 0) {

-	    UNLOCK_PROCESS;

-	    return False;

-	}

-    UNLOCK_PROCESS;

-

-    if (XtIsWidget(object)) {

-	if (object->core.name == NULL ||

-	    (class_name = XrmNameToString(object->core.xrm_name)) == NULL ||

-	    strcmp(object->core.name, class_name) != 0)

-	    return False;

-    }

-    return True;

-}

-

-#if defined(WIN32)

-static int access_file (

-    char* path,

-    char* pathbuf,

-    int len_pathbuf,

-    char** pathret)

-{

-    if (access (path, F_OK) == 0) {

-	if (strlen (path) < len_pathbuf)

-	    *pathret = pathbuf;

-	else

-	    *pathret = XtMalloc (strlen (path));

-	if (*pathret) {

-	    strcpy (*pathret, path);

-	    return 1;

-	}

-    }

-    return 0;

-}

-

-static int AccessFile (

-    char* path,

-    char* pathbuf,

-    int len_pathbuf,

-    char** pathret)

-{

-    unsigned long drives;

-    int i, len;

-    char* drive;

-    char buf[MAX_PATH];

-    char* bufp;

-

-    /* just try the "raw" name first and see if it works */

-    if (access_file (path, pathbuf, len_pathbuf, pathret))

-	return 1;

-

-#if defined(WIN32) && defined(__MINGW32__)

-    /* don't try others */

-    return 0;

-#endif

-

-    /* try the places set in the environment */

-    drive = getenv ("_XBASEDRIVE");

-#ifdef __UNIXOS2__

-    if (!drive)

-	drive = getenv ("X11ROOT");

-#endif

-    if (!drive)

-	drive = "C:";

-    len = strlen (drive) + strlen (path);

-    bufp = XtStackAlloc (len + 1, buf);

-    strcpy (bufp, drive);

-    strcat (bufp, path);

-    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {

-	XtStackFree (bufp, buf);

-	return 1;

-    }

-

-#ifndef __UNIXOS2__

-    /* one last place to look */

-    drive = getenv ("HOMEDRIVE");

-    if (drive) {

-	len = strlen (drive) + strlen (path);

-	bufp = XtStackAlloc (len + 1, buf);

-	strcpy (bufp, drive);

-	strcat (bufp, path);

-	if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {

-	    XtStackFree (bufp, buf);

-	    return 1;

-	}

-    }

-

-    /* does OS/2 (with or with gcc-emx) have getdrives()? */

-    /* tried everywhere else, go fishing */

-    drives = _getdrives ();

-#define C_DRIVE ('C' - 'A')

-#define Z_DRIVE ('Z' - 'A')

-    for (i = C_DRIVE; i <= Z_DRIVE; i++) { /* don't check on A: or B: */

-	if ((1 << i) & drives) {

-	    len = 2 + strlen (path);

-	    bufp = XtStackAlloc (len + 1, buf);

-	    *bufp = 'A' + i;

-	    *(bufp + 1) = ':';

-	    *(bufp + 2) = '\0';

-	    strcat (bufp, path);

-	    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {

-		XtStackFree (bufp, buf);

-		return 1;

-	    }

-	}

-    }

-#endif

-    return 0;

-}

-#endif

-

-static Boolean TestFile(

-    String path)

-{

-#ifndef VMS

-    int ret = 0;

-    struct stat status;

-#if defined(WIN32)

-    char buf[MAX_PATH];

-    char* bufp;

-    int len;

-    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);

-

-    if (AccessFile (path, buf, MAX_PATH, &bufp))

-	path = bufp;

-

-    (void) SetErrorMode (olderror);

-#endif

-    ret = (access(path, R_OK) == 0 &&		/* exists and is readable */

-	    stat(path, &status) == 0 &&		/* get the status */

-#ifndef X_NOT_POSIX

-	    S_ISDIR(status.st_mode) == 0);	/* not a directory */

-#else

-	    (status.st_mode & S_IFMT) != S_IFDIR);	/* not a directory */

-#endif /* X_NOT_POSIX else */

-    return ret;

-#else /* VMS */

-    return TRUE;	/* Who knows what to do here? */

-#endif /* VMS */

-}

-

-/* return of TRUE = resolved string fit, FALSE = didn't fit.  Not

-   null-terminated and not collapsed if it didn't fit */

-

-static Boolean Resolve(

-    register _Xconst char *source,	/* The source string */

-    register int len,		/* The length in bytes of *source */

-    Substitution sub,	/* Array of string values to substitute */

-    Cardinal num,	/* Number of substitution entries */

-    char *buf,		/* Where to put the resolved string; */

-    char collapse)	/* Character to collapse */

-{

-    register int bytesLeft = PATH_MAX;

-    register char* bp = buf;

-#ifndef DONT_COLLAPSE

-    Boolean atBeginning = TRUE;

-    Boolean prevIsCollapse = FALSE;

-

-#define PUT(ch) \

-    { \

-	if (--bytesLeft == 0) return FALSE; \

-        if (prevIsCollapse) \

-	    if ((*bp = ch) != collapse) { \

-		prevIsCollapse = FALSE; \

-		bp++; \

-	    } \

-	    else bytesLeft++; \

-        else if ((*bp++ = ch) == collapse && !atBeginning) \

-	    prevIsCollapse = TRUE; \

-    }

-#else /* DONT_COLLAPSE */

-

-#define PUT(ch) \

-    { \

-	if (--bytesLeft == 0) return FALSE; \

-	*bp++ = ch; \

-    }

-#endif /* DONT_COLLAPSE */

-#define escape '%'

-

-    while (len--) {

-#ifndef DONT_COLLAPSE

-	if (*source == collapse) {

-	    PUT(*source);

-	    source++;

-	    continue;

-	}

-	else

-#endif /* DONT_COLLAPSE */

-	    if (*source != escape) {

-		PUT(*source);

-	}

-	else {

-	    source++;

-	    if (len-- == 0) {

-		PUT(escape);

-		break;

-	    }

-

-	    if (*source == ':' || *source == escape)

-		PUT(*source)

-	    else {

-		/* Match the character against the match array */

-		register Cardinal j;

-

-		for (j = 0; j < num && sub[j].match != *source; j++) {}

-

-		/* Substitute the substitution string */

-

-		if (j >= num) PUT(*source)

-		else if (sub[j].substitution != NULL) {

-		    char *sp = sub[j].substitution;

-		    while (*sp) {

-			PUT(*sp);

-			sp++;

-		    }

-		}

-	    }

-	}

-	source++;

-#ifndef DONT_COLLAPSE

-	atBeginning = FALSE;

-#endif /* DONT_COLLAPSE */

-    }

-    PUT('\0');

-

-    return TRUE;

-#undef PUT

-#undef escape

-}

-

-

-String XtFindFile(

-    _Xconst char* path,

-    Substitution substitutions,

-    Cardinal num_substitutions,

-    XtFilePredicate predicate)

-{

-    char *buf, *buf1, *buf2, *colon;

-    int len;

-    Boolean firstTime = TRUE;

-

-    buf = buf1 = __XtMalloc((unsigned)PATH_MAX);

-    buf2 = __XtMalloc((unsigned)PATH_MAX);

-

-    if (predicate == NULL) predicate = TestFile;

-

-    while (1) {

-	colon = (String)path;

-	/* skip leading colons */

-	while (*colon) {

-	    if (*colon != ':') break;

-	    colon++;

-	    path++;

-	}

-	/* now look for an un-escaped colon */

-	for ( ; *colon ; colon++) {

-	    if (*colon == '%' && *(path+1)) {

-		colon++;	/* bump it an extra time to skip %. */

-		continue;

-	    }

-	    if (*colon == ':')

-#ifdef __UNIXOS2__

-	      if (colon > (path+1))

-#endif

-		break;

-	}

-	len = colon - path;

-	if (Resolve(path, len, substitutions, num_substitutions,

-		    buf, '/')) {

-	    if (firstTime || strcmp(buf1,buf2) != 0) {

-#ifdef __UNIXOS2__

-		{

-			char *bufx = (char*)__XOS2RedirRoot(buf);

-			strcpy(buf,bufx);

-		}

-#endif

-#ifdef XNL_DEBUG

-		printf("Testing file %s\n", buf);

-#endif /* XNL_DEBUG */

-		/* Check out the file */

-		if ((*predicate) (buf)) {

-		    /* We've found it, return it */

-#ifdef XNL_DEBUG

-		    printf("File found.\n");

-#endif /* XNL_DEBUG */

-		    if (buf == buf1) XtFree(buf2);

-		    else XtFree(buf1);

-		    return buf;

-		}

-		if (buf == buf1)

-		    buf = buf2;

-		else

-		    buf = buf1;

-		firstTime = FALSE;

-	    }

-	}

-

-	/* Nope...any more paths? */

-

-	if (*colon == '\0') break;

-	path = colon+1;

-    }

-

-    /* No file found */

-

-    XtFree(buf1);

-    XtFree(buf2);

-    return NULL;

-}

-

-

-/* The implementation of this routine is operating system dependent */

-/* Should match the code in Xlib _XlcMapOSLocaleName */

-

-static char *ExtractLocaleName(

-    String	lang)

-{

-

-#if defined(hpux) || defined(CSRG_BASED) || defined(sun) || defined(SVR4) || defined(sgi) || defined(__osf__) || defined(AIXV3) || defined(ultrix) || defined(WIN32) || defined(__UNIXOS2__) || defined (linux)

-# ifdef hpux

-/*

- * We need to discriminated between HPUX 9 and HPUX 10. The equivalent

- * code in Xlib in SetLocale.c does include locale.h via X11/Xlocale.h.

- */

-#  include <locale.h>

-#  ifndef _LastCategory

-   /* HPUX 9 and earlier */

-#   define SKIPCOUNT 2

-#   define STARTCHAR ':'

-#   define ENDCHAR ';'

-#  else

-    /* HPUX 10 */

-#   define ENDCHAR ' '

-#  endif

-# else

-#  ifdef ultrix

-#   define SKIPCOUNT 2

-#   define STARTCHAR '\001'

-#   define ENDCHAR '\001'

-#  else

-#   if defined(WIN32) || defined(__UNIXOS2__)

-#    define SKIPCOUNT 1

-#    define STARTCHAR '='

-#    define ENDCHAR ';'

-#    define WHITEFILL

-#   else

-#    if defined(__osf__) || (defined(AIXV3) && !defined(AIXV4))

-#     define STARTCHAR ' '

-#     define ENDCHAR ' '

-#    else

-#     if defined(linux)

-#      define STARTSTR "LC_CTYPE="

-#      define ENDCHAR ';'

-#     else

-#      if !defined(sun) || defined(SVR4)

-#       define STARTCHAR '/'

-#       define ENDCHAR '/'

-#      endif

-#     endif

-#    endif

-#   endif

-#  endif

-# endif

-

-    char           *start;

-    char           *end;

-    int             len;

-# ifdef SKIPCOUNT

-    int		    n;

-# endif

-    static char*    buf = NULL;

-

-    start = lang;

-# ifdef SKIPCOUNT

-    for (n = SKIPCOUNT;

-	 --n >= 0 && start && (start = strchr (start, STARTCHAR));

-	 start++)

-	;

-    if (!start)

-	start = lang;

-# endif

-# ifdef STARTCHAR

-    if (start && (start = strchr (start, STARTCHAR)))

-# elif  defined (STARTSTR)

-    if (start && (start = strstr (start,STARTSTR)))

-# endif

-    {

-# ifdef STARTCHAR

-	start++;

-# elif defined (STARTSTR)

-	start += strlen(STARTSTR);

-# endif

-

-	if ((end = strchr (start, ENDCHAR))) {

-	    len = end - start;

-	    if (buf != NULL) XtFree (buf);

-	    buf = XtMalloc (len + 1);

-	    if (buf == NULL) return NULL;

-	    strncpy(buf, start, len);

-	    *(buf + len) = '\0';

-# ifdef WHITEFILL

-	    for (start = buf; start = strchr(start, ' '); )

-		*start++ = '-';

-# endif

-	    return buf;

-	} else  /* if no ENDCHAR is found we are at the end of the line */

-	    return start;

-    }

-# ifdef WHITEFILL

-    if (strchr(lang, ' ')) {

-	if (buf != NULL) XtFree (buf);

-	else buf = XtMalloc (strlen (lang) + 1);

-	if (buf == NULL) return NULL;

-	strcpy(buf, lang);

-	for (start = buf; start = strchr(start, ' '); )

-	    *start++ = '-';

-	return buf;

-    }

-# endif

-# undef STARTCHAR

-# undef ENDCHAR

-# undef WHITEFILL

-#endif

-

-    return lang;

-}

-

-static void FillInLangSubs(

-    Substitution subs,

-    XtPerDisplay pd)

-{

-    int len;

-    char *string, *p1, *p2, *p3;

-    char **rest;

-    char *ch;

-

-    if (pd->language == NULL ||

-	(pd->language != NULL && pd->language[0] == '\0')) {

-	subs[0].substitution = subs[1].substitution =

-		subs[2].substitution = subs[3].substitution = NULL;

-	return;

-    }

-

-    string = ExtractLocaleName(pd->language);

-

-    if (string == NULL ||

-	(string != NULL && string[0] == '\0')) {

-	subs[0].substitution = subs[1].substitution =

-		subs[2].substitution = subs[3].substitution = NULL;

-	return;

-    }

-

-    len = strlen(string) + 1;

-    subs[0].substitution = string;

-    p1 = subs[1].substitution = __XtMalloc((Cardinal) 3*len);

-    p2 = subs[2].substitution = subs[1].substitution + len;

-    p3 = subs[3].substitution = subs[2].substitution + len;

-

-    /* Everything up to the first "_" goes into p1.  From "_" to "." in

-       p2.  The rest in p3.  If no delimiters, all goes into p1.  We

-       assume p1, p2, and p3 are large enough. */

-

-    *p1 = *p2 = *p3 = '\0';

-

-    ch = strchr(string, '_');

-    if (ch != NULL) {

-	len = ch - string;

-	(void) strncpy(p1, string, len);

-	p1[len] = '\0';

-	string = ch + 1;

-	rest = &p2;

-    } else rest = &p1;

-

-    /* Rest points to where we put the first part */

-

-    ch = strchr(string, '.');

-    if (ch != NULL) {

-	len = ch - string;

-	strncpy(*rest, string, len);

-	(*rest)[len] = '\0';

-	(void) strcpy(p3, ch+1);

-    } else (void) strcpy(*rest, string);

-}

-

-/*

- * default path used if environment variable XFILESEARCHPATH

- * is not defined.  Also substitued for %D.

- * The exact value should be documented in the implementation

- * notes for any Xt implementation.

- */

-static char *implementation_default_path(void)

-{

-#if defined(WIN32)

-    static char xfilesearchpath[] = ":";

-

-    return xfilesearchpath;

-#elif defined(__UNIXOS2__)

-    /* if you know how to pass % thru the compiler let me know */

-    static char xfilesearchpath[] = XFILESEARCHPATHDEFAULT;

-    static Bool fixed;

-    char *ch;

-

-    if (!fixed) {

-	for (ch = xfilesearchpath; ch = strchr(ch, ';'); ch++)

-	    *ch = '%';

-	fixed = True;

-    }

-    return xfilesearchpath;

-#else

-    return XFILESEARCHPATHDEFAULT;

-#endif

-}

-

-

-static SubstitutionRec defaultSubs[] = {

-    {'N', NULL},

-    {'T', NULL},

-    {'S', NULL},

-    {'C', NULL},

-    {'L', NULL},

-    {'l', NULL},

-    {'t', NULL},

-    {'c', NULL}

-};

-

-

-String XtResolvePathname(

-    Display *dpy,

-    _Xconst char* type,

-    _Xconst char* filename,

-    _Xconst char* suffix,

-    _Xconst char* path,

-    Substitution substitutions,

-    Cardinal num_substitutions,

-    XtFilePredicate predicate)

-{

-    XtPerDisplay pd;

-    static char *defaultPath = NULL;

-    char *impl_default = implementation_default_path();

-    int idef_len = strlen(impl_default);

-    char *massagedPath;

-    int bytesAllocd, bytesLeft;

-    char *ch, *result;

-    Substitution merged_substitutions;

-    XrmRepresentation db_type;

-    XrmValue value;

-    XrmName name_list[3];

-    XrmClass class_list[3];

-    Boolean pathMallocd = False;

-

-    LOCK_PROCESS;

-    pd = _XtGetPerDisplay(dpy);

-    if (path == NULL) {

-#ifndef VMS

-	if (defaultPath == NULL) {

-	    defaultPath = getenv("XFILESEARCHPATH");

-	    if (defaultPath == NULL)

-		defaultPath = impl_default;

-	}

-	path = defaultPath;

-#endif /* VMS */

-    }

-

-    if (path == NULL)

-	path = "";	/* NULL would kill us later */

-

-    if (filename == NULL) {

-	filename = XrmClassToString(pd->class);

-    }

-

-    bytesAllocd = bytesLeft = 1000;

-    massagedPath = ALLOCATE_LOCAL(bytesAllocd);

-    if (massagedPath == NULL) _XtAllocError(NULL);

-

-    if (path[0] == ':') {

-	strcpy(massagedPath, "%N%S");

-	ch = &massagedPath[4];

-	bytesLeft -= 4;

-    } else ch = massagedPath;

-

-    /* Insert %N%S between adjacent colons

-     * and default path for %D.

-     * Default path should not have any adjacent colons of its own.

-     */

-

-    while (*path != '\0') {

-	if (bytesLeft < idef_len) {

-	    int bytesUsed = bytesAllocd - bytesLeft;

-	    char *new;

-	    bytesAllocd +=1000;

-	    new = __XtMalloc((Cardinal) bytesAllocd);

-	    strncpy( new, massagedPath, bytesUsed );

-	    ch = new + bytesUsed;

-	    if (pathMallocd)

-		XtFree(massagedPath);

-	    else

-		DEALLOCATE_LOCAL(massagedPath);

-	    pathMallocd = True;

-	    massagedPath = new;

-	    bytesLeft = bytesAllocd - bytesUsed;

-	}

-	if (*path == '%' && *(path+1) == ':') {

-	    *ch++ = '%';

-	    *ch++ = ':';

-	    path += 2;

-	    bytesLeft -= 2;

-	    continue;

-	}

-	if (*path == ':' && *(path+1) == ':') {

-	    strcpy(ch, ":%N%S:");

-	    ch += 6;

-	    bytesLeft -= 6;

-	    while (*path == ':') path++;

-	    continue;

-	}

-	if (*path == '%' && *(path+1) == 'D') {

-	    strcpy(ch, impl_default);

-	    ch += idef_len;

-	    bytesLeft -= idef_len;

-	    path += 2;

-	    continue;

-	}

-	*ch++ = *path++;

-	bytesLeft--;

-    }

-    *ch = '\0';

-#ifdef XNL_DEBUG

-    printf("Massaged path: %s\n", massagedPath);

-#endif /* XNL_DEBUG */

-

-    if (num_substitutions == 0)

-	merged_substitutions = defaultSubs;

-    else {

-	int i = XtNumber(defaultSubs);

-	Substitution sub, def;

-	merged_substitutions = sub = (Substitution)

-	    ALLOCATE_LOCAL((unsigned)(num_substitutions+i)*sizeof(SubstitutionRec));

-	if (sub == NULL) _XtAllocError(NULL);

-	for (def = defaultSubs; i--; sub++, def++) sub->match = def->match;

-	for (i = num_substitutions; i--; ) *sub++ = *substitutions++;

-    }

-    merged_substitutions[0].substitution = (String)filename;

-    merged_substitutions[1].substitution = (String)type;

-    merged_substitutions[2].substitution = (String)suffix;

-    name_list[0] = pd->name;

-    name_list[1] = XrmPermStringToQuark("customization");

-    name_list[2] = NULLQUARK;

-    class_list[0] = pd->class;

-    class_list[1] = XrmPermStringToQuark("Customization");

-    class_list[2] = NULLQUARK;

-    if (XrmQGetResource(XrmGetDatabase(dpy), name_list, class_list,

-			&db_type, &value) &&

-	db_type == _XtQString)

-	merged_substitutions[3].substitution = (char *)value.addr;

-    else

-	merged_substitutions[3].substitution = NULL;

-    FillInLangSubs(&merged_substitutions[4], pd);

-

-    result = XtFindFile(massagedPath, merged_substitutions,

-			num_substitutions + XtNumber(defaultSubs),

-			predicate);

-

-    if (merged_substitutions[5].substitution != NULL)

-	XtFree( (XtPointer)merged_substitutions[5].substitution );

-

-    if (merged_substitutions != defaultSubs)

-	DEALLOCATE_LOCAL(merged_substitutions);

-

-    if (pathMallocd)

-	XtFree(massagedPath);

-    else

-	DEALLOCATE_LOCAL(massagedPath);

-

-    UNLOCK_PROCESS;

-    return result;

-}

-

-

-Boolean XtCallAcceptFocus(

-    Widget widget,

-    Time *time)

-{

-    XtAcceptFocusProc ac;

-    Boolean retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    ac = XtClass(widget)->core_class.accept_focus;

-    UNLOCK_PROCESS;

-

-    if (ac != NULL)

-	retval = (*ac) (widget, time);

-    else

-	retval = FALSE;

-    UNLOCK_APP(app);

-    return retval;

-}

-

-#ifdef XT_GEO_TATTLER

-/**************************************************************************

- GeoTattler:  This is used to debug Geometry management in Xt.

-

-  It uses a pseudo resource XtNgeotattler.

-

-  E.G. if those lines are found in the resource database:

-

-    myapp*draw.XmScale.geoTattler: ON

-    *XmScrollBar.geoTattler:ON

-    *XmRowColumn.exit_button.geoTattler:ON

-

-   then:

-

-    all the XmScale children of the widget named draw,

-    all the XmScrollBars,

-    the widget named exit_button in any XmRowColumn

-

-   will return True to the function IsTattled(), and will generate

-   outlined trace to stdout.

-

-*************************************************************************/

-

-#define XtNgeoTattler "geoTattler"

-#define XtCGeoTattler "GeoTattler"

-

-typedef struct { Boolean   geo_tattler ;} GeoDataRec ;

-

-static XtResource geo_resources[] = {

-    { XtNgeoTattler, XtCGeoTattler, XtRBoolean, sizeof(Boolean),

-      XtOffsetOf(GeoDataRec, geo_tattler),

-      XtRImmediate, (XtPointer) False }

-};

-

-/************************************************************************

-  This function uses XtGetSubresources to find out if a widget

-  needs to be geo-spied by the caller. */

-static Boolean IsTattled (Widget widget)

-{

-    GeoDataRec geo_data ;

-

-    XtGetSubresources(widget, (XtPointer)&geo_data,

-                      (String)NULL, (String)NULL,

-		      geo_resources, XtNumber(geo_resources),

-		      NULL, 0);

-

-    return geo_data.geo_tattler;

-

-}  /* IsTattled */

-

-static int n_tab = 0 ;  /* not MT for now */

-

-void

-_XtGeoTab (int direction)  /* +1 or -1 */

-{

-    n_tab += direction ;

-}

-

-

-void

-_XtGeoTrace (Widget widget, ...)

-{

-    va_list args;

-    char *fmt;

-    int i ;

-    if (IsTattled(widget)) {

-	va_start(args, widget);

-	fmt = va_arg(args, char *);

-	for (i=0; i<n_tab; i++) printf("     ");

-	(void) vprintf(fmt, args);

-	va_end(args);

-    }

-}

-

-#endif /* XT_GEO_TATTLER */

-

+/***********************************************************
+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, 1994, 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.
+
+*/
+
+#define INTRINSIC_C
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "VarargsI.h"        /* for geoTattler */
+#ifndef NO_IDENTIFY_WINDOWS
+#include <X11/Xatom.h>
+#endif
+#ifndef VMS
+#include <sys/stat.h>
+#endif /* VMS */
+
+#include <stdlib.h>
+
+String XtCXtToolkitError = "XtToolkitError";
+
+Boolean XtIsSubclass(
+    Widget    widget,
+    WidgetClass widgetClass)
+{
+    register WidgetClass w;
+    Boolean retval = FALSE;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    for (w = widget->core.widget_class; w != NULL; w = w->core_class.superclass)
+	if (w == widgetClass) {
+	    retval = TRUE;
+	    break;
+	}
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+    return retval;
+} /* XtIsSubclass */
+
+
+Boolean _XtCheckSubclassFlag(
+    Widget object,
+    _XtXtEnum flag)
+{
+    Boolean retval;
+
+    LOCK_PROCESS;
+    if (object->core.widget_class->core_class.class_inited & flag)
+	retval = TRUE;
+    else
+	retval = FALSE;
+    UNLOCK_PROCESS;
+    return retval;
+} /*_XtVerifySubclass */
+
+
+Boolean _XtIsSubclassOf(
+    Widget object,
+    WidgetClass widgetClass,
+    WidgetClass superClass,
+    _XtXtEnum flag)
+{
+    LOCK_PROCESS;
+    if (!(object->core.widget_class->core_class.class_inited & flag)) {
+	UNLOCK_PROCESS;
+	return False;
+    } else {
+	register WidgetClass c = object->core.widget_class;
+	while (c != superClass) {
+	    if (c == widgetClass) {
+		UNLOCK_PROCESS;
+		return True;
+	    }
+	    c = c->core_class.superclass;
+	}
+	UNLOCK_PROCESS;
+	return False;
+    }
+} /*_XtIsSubclassOf */
+
+
+XtPointer XtGetClassExtension(
+    WidgetClass	object_class,
+    Cardinal	byte_offset,
+    XrmQuark	type,
+    long	version,
+    Cardinal	record_size)
+{
+    ObjectClassExtension ext;
+    LOCK_PROCESS;
+
+    ext = *(ObjectClassExtension *)((char *)object_class + byte_offset);
+    while (ext && (ext->record_type != type || ext->version < version
+		   || ext->record_size < record_size)) {
+	ext = (ObjectClassExtension) ext->next_extension;
+    }
+
+    UNLOCK_PROCESS;
+    return (XtPointer) ext;
+}
+
+
+static void ComputeWindowAttributes(
+    Widget		 widget,
+    XtValueMask		 *value_mask,
+    XSetWindowAttributes *values)
+{
+    XtExposeProc expose;
+
+    *value_mask = CWEventMask | CWColormap;
+    (*values).event_mask = XtBuildEventMask(widget);
+    (*values).colormap = widget->core.colormap;
+    if (widget->core.background_pixmap != XtUnspecifiedPixmap) {
+	*value_mask |= CWBackPixmap;
+	(*values).background_pixmap = widget->core.background_pixmap;
+    } else {
+	*value_mask |= CWBackPixel;
+	(*values).background_pixel = widget->core.background_pixel;
+    }
+    if (widget->core.border_pixmap != XtUnspecifiedPixmap) {
+	*value_mask |= CWBorderPixmap;
+	(*values).border_pixmap = widget->core.border_pixmap;
+    } else {
+	*value_mask |= CWBorderPixel;
+	(*values).border_pixel = widget->core.border_pixel;
+    }
+    LOCK_PROCESS;
+    expose = widget->core.widget_class->core_class.expose;
+    UNLOCK_PROCESS;
+    if (expose == (XtExposeProc) NULL) {
+	/* Try to avoid redisplay upon resize by making bit_gravity the same
+	   as the default win_gravity */
+	*value_mask |= CWBitGravity;
+	(*values).bit_gravity = NorthWestGravity;
+    }
+} /* ComputeWindowAttributes */
+
+static void CallChangeManaged(
+    register Widget		widget)
+{
+    register Cardinal		i;
+    XtWidgetProc		change_managed;
+    register WidgetList		children;
+    int    			managed_children = 0;
+
+    register CompositePtr cpPtr;
+    register CompositePartPtr clPtr;
+
+    if (XtIsComposite (widget)) {
+	cpPtr = (CompositePtr)&((CompositeWidget) widget)->composite;
+        clPtr = (CompositePartPtr)&((CompositeWidgetClass)
+                   widget->core.widget_class)->composite_class;
+    } else return;
+
+    children = cpPtr->children;
+    LOCK_PROCESS;
+    change_managed = clPtr->change_managed;
+    UNLOCK_PROCESS;
+
+    /* CallChangeManaged for all children */
+    for (i = cpPtr->num_children; i != 0; --i) {
+	CallChangeManaged (children[i-1]);
+	if (XtIsManaged(children[i-1])) managed_children++;
+    }
+
+    if (change_managed != NULL && managed_children != 0) {
+	CALLGEOTAT(_XtGeoTrace(widget,"Call \"%s\"[%d,%d]'s changemanaged\n",
+		       XtName(widget),
+		       widget->core.width, widget->core.height));
+	(*change_managed) (widget);
+    }
+} /* CallChangeManaged */
+
+
+static void MapChildren(
+    CompositePart *cwp)
+{
+    Cardinal i;
+    WidgetList children;
+    register Widget child;
+
+    children = cwp->children;
+    for (i = 0; i <  cwp->num_children; i++) {
+	child = children[i];
+	if (XtIsWidget (child)){
+	    if (child->core.managed && child->core.mapped_when_managed) {
+		XtMapWidget (children[i]);
+	    }
+	}
+    }
+} /* MapChildren */
+
+
+static Boolean ShouldMapAllChildren(
+    CompositePart *cwp)
+{
+    Cardinal i;
+    WidgetList children;
+    register Widget child;
+
+    children = cwp->children;
+    for (i = 0; i < cwp->num_children; i++) {
+	child = children[i];
+	if (XtIsWidget(child)) {
+	    if (XtIsRealized(child) && (! (child->core.managed
+					  && child->core.mapped_when_managed))){
+		    return False;
+	    }
+	}
+    }
+
+    return True;
+} /* ShouldMapAllChildren */
+
+
+static void RealizeWidget(
+    Widget			widget)
+{
+    XtValueMask			value_mask;
+    XSetWindowAttributes	values;
+    XtRealizeProc		realize;
+    Window			window;
+    Display*			display;
+    String			class_name;
+    Widget			hookobj;
+
+    if (!XtIsWidget(widget) || XtIsRealized(widget)) return;
+    display = XtDisplay(widget);
+    _XtInstallTranslations(widget);
+
+    ComputeWindowAttributes (widget, &value_mask, &values);
+    LOCK_PROCESS;
+    realize = widget->core.widget_class->core_class.realize;
+    class_name = widget->core.widget_class->core_class.class_name;
+    UNLOCK_PROCESS;
+    if (realize == NULL)
+	XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+		      "invalidProcedure","realizeProc",XtCXtToolkitError,
+		      "No realize class procedure defined",
+		      (String *)NULL, (Cardinal *)NULL);
+    else {
+	CALLGEOTAT(_XtGeoTrace(widget,"Call \"%s\"[%d,%d]'s realize proc\n",
+		       XtName(widget),
+		       widget->core.width, widget->core.height));
+	(*realize) (widget, &value_mask, &values);
+    }
+    window = XtWindow(widget);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj,XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHrealizeWidget;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+#ifndef NO_IDENTIFY_WINDOWS
+    if (_XtGetPerDisplay(display)->appContext->identify_windows) {
+	int len_nm, len_cl;
+	char *s;
+
+	len_nm = widget->core.name ? strlen(widget->core.name) : 0;
+	len_cl = strlen(class_name);
+	s = __XtMalloc((unsigned) (len_nm + len_cl + 2));
+	s[0] = '\0';
+	if (len_nm)
+	    strcpy(s, widget->core.name);
+	strcpy(s + len_nm + 1, class_name);
+	XChangeProperty(display, window,
+			XInternAtom(display, "_MIT_OBJ_CLASS",
+				    False),
+			XA_STRING, 8, PropModeReplace, (unsigned char *) s,
+			len_nm + len_cl + 2);
+	XtFree(s);
+    }
+#endif
+#ifdef notdef
+    _XtRegisterAsyncHandlers(widget);
+#endif
+    /* (re)register any grabs extant in the translations */
+    _XtRegisterGrabs(widget);
+    /* reregister any grabs added with XtGrab{Button,Key} */
+    _XtRegisterPassiveGrabs(widget);
+    XtRegisterDrawable (display, window, widget);
+    _XtExtensionSelect(widget);
+
+    if (XtIsComposite (widget)) {
+	Cardinal		i;
+	CompositePart *cwp = &(((CompositeWidget)widget)->composite);
+	WidgetList children = cwp->children;
+	/* Realize all children */
+	for (i = cwp->num_children; i != 0; --i) {
+	    RealizeWidget (children[i-1]);
+	}
+	/* Map children that are managed and mapped_when_managed */
+
+	if (cwp->num_children != 0) {
+	    if (ShouldMapAllChildren(cwp)) {
+		XMapSubwindows (display, window);
+	    } else {
+		MapChildren(cwp);
+	    }
+	}
+    }
+
+    /* If this is the application's popup shell, map it */
+    if (widget->core.parent == NULL && widget->core.mapped_when_managed) {
+	XtMapWidget (widget);
+    }
+} /* RealizeWidget */
+
+void XtRealizeWidget (
+    Widget		widget)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (XtIsRealized (widget)) {
+	UNLOCK_APP(app);
+	return;
+    }
+    CallChangeManaged(widget);
+    RealizeWidget(widget);
+    UNLOCK_APP(app);
+} /* XtRealizeWidget */
+
+
+static void UnrealizeWidget(
+    Widget		widget)
+{
+    CompositeWidget	cw;
+    Cardinal		i;
+    WidgetList		children;
+
+    if (!XtIsWidget(widget) || !XtIsRealized(widget)) return;
+
+    /* If this is the application's popup shell, unmap it? */
+    /* no, the window is being destroyed */
+
+    /* Recurse on children */
+    if (XtIsComposite (widget)) {
+	cw = (CompositeWidget) widget;
+	children = cw->composite.children;
+	/* Unrealize all children */
+	for (i = cw->composite.num_children; i != 0; --i) {
+	    UnrealizeWidget (children[i-1]);
+	}
+	/* Unmap children that are managed and mapped_when_managed? */
+	/* No, it's ok to be managed and unrealized as long as your parent */
+	/* is unrealized. XtUnrealize widget makes sure the "top" widget */
+	/* is unmanaged, we can ignore all descendents */
+    }
+
+    if (XtHasCallbacks(widget, XtNunrealizeCallback) == XtCallbackHasSome)
+	XtCallCallbacks(widget, XtNunrealizeCallback, NULL);
+
+    /* Unregister window */
+    XtUnregisterDrawable(XtDisplay(widget), XtWindow(widget));
+
+    /* Remove Event Handlers */
+    /* remove grabs. Happens automatically when window is destroyed. */
+
+    /* Destroy X Window, done at outer level with one request */
+    widget->core.window = None;
+
+    /* Removing the event handler here saves having to keep track if
+     * the translation table is changed while the widget is unrealized.
+     */
+    _XtRemoveTranslations(widget);
+} /* UnrealizeWidget */
+
+
+void XtUnrealizeWidget (
+    Widget		widget)
+{
+    Window window;
+    Widget hookobj;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    window = XtWindow(widget);
+    if (! XtIsRealized (widget)) {
+	UNLOCK_APP(app);
+	return;
+    }
+    if (widget->core.managed && widget->core.parent != NULL)
+	XtUnmanageChild(widget);
+    UnrealizeWidget(widget);
+    if (window != None)
+	XDestroyWindow(XtDisplay(widget), window);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHunrealizeWidget;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtUnrealizeWidget */
+
+
+void XtCreateWindow(
+    Widget		 widget,
+    unsigned int	 window_class,
+    Visual		 *visual,
+    XtValueMask		 value_mask,
+    XSetWindowAttributes *attributes)
+{
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    if (widget->core.window == None) {
+	if (widget->core.width == 0 || widget->core.height == 0) {
+	    Cardinal count = 1;
+	    XtAppErrorMsg(app,
+		       "invalidDimension", "xtCreateWindow", XtCXtToolkitError,
+		       "Widget %s has zero width and/or height",
+		       &widget->core.name, &count);
+	}
+	widget->core.window =
+	    XCreateWindow (
+		XtDisplay (widget),
+		(widget->core.parent ?
+		    widget->core.parent->core.window :
+		    widget->core.screen->root),
+		(int)widget->core.x, (int)widget->core.y,
+		(unsigned)widget->core.width, (unsigned)widget->core.height,
+		(unsigned)widget->core.border_width, (int) widget->core.depth,
+		window_class, visual, value_mask, attributes);
+    }
+    UNLOCK_APP(app);
+} /* XtCreateWindow */
+
+
+/* ---------------- XtNameToWidget ----------------- */
+
+static Widget NameListToWidget(
+    Widget root,
+    XrmNameList     names,
+    XrmBindingList  bindings,
+    int in_depth, int *out_depth, int *found_depth);
+
+typedef Widget (*NameMatchProc)(XrmNameList,
+    XrmBindingList,
+    WidgetList, Cardinal, int, int *, int *);
+
+static Widget MatchExactChildren(
+    XrmNameList     names,
+    XrmBindingList  bindings,
+    register WidgetList children,
+    register Cardinal num,
+    int in_depth, int *out_depth, int *found_depth)
+{
+    register Cardinal   i;
+    register XrmName    name = *names;
+    Widget w, result = NULL;
+    int d, min = 10000;
+
+    for (i = 0; i < num; i++) {
+	if (name == children[i]->core.xrm_name) {
+	    w = NameListToWidget(children[i], &names[1], &bindings[1],
+		    in_depth+1, &d, found_depth);
+	    if (w != NULL && d < min) {result = w; min = d;}
+	}
+    }
+    *out_depth = min;
+    return result;
+}
+
+static Widget MatchWildChildren(
+    XrmNameList     names,
+    XrmBindingList  bindings,
+    register WidgetList children,
+    register Cardinal num,
+    int in_depth, int *out_depth, int *found_depth)
+{
+    register Cardinal   i;
+    Widget w, result = NULL;
+    int d, min = 10000;
+
+    for (i = 0; i < num; i++) {
+	w = NameListToWidget(children[i], names, bindings,
+		in_depth+1, &d, found_depth);
+	if (w != NULL && d < min) {result = w; min = d;}
+    }
+    *out_depth = min;
+    return result;
+}
+
+static Widget SearchChildren(
+    Widget root,
+    XrmNameList     names,
+    XrmBindingList  bindings,
+    NameMatchProc matchproc,
+    int in_depth, int *out_depth, int *found_depth)
+{
+    Widget w1 = NULL, w2;
+    int d1, d2;
+
+    if (XtIsComposite(root)) {
+	w1 = (*matchproc)(names, bindings,
+		((CompositeWidget) root)->composite.children,
+		((CompositeWidget) root)->composite.num_children,
+		in_depth, &d1, found_depth);
+    } else d1 = 10000;
+    w2 = (*matchproc)(names, bindings, root->core.popup_list,
+	    root->core.num_popups, in_depth, &d2, found_depth);
+    *out_depth = (d1 < d2 ? d1 : d2);
+    return (d1 < d2 ? w1 : w2);
+}
+
+static Widget NameListToWidget(
+    register Widget root,
+    XrmNameList     names,
+    XrmBindingList  bindings,
+    int in_depth, int *out_depth, int *found_depth)
+{
+    Widget w1, w2;
+    int d1, d2;
+
+    if (in_depth >= *found_depth) {
+	*out_depth = 10000;
+	return NULL;
+    }
+
+    if (names[0] == NULLQUARK) {
+	*out_depth = *found_depth = in_depth;
+	return root;
+    }
+
+    if (! XtIsWidget(root)) {
+	*out_depth = 10000;
+	return NULL;
+    }
+
+    if (*bindings == XrmBindTightly) {
+	return SearchChildren(root, names, bindings, MatchExactChildren,
+		in_depth, out_depth, found_depth);
+
+    } else {	/* XrmBindLoosely */
+	w1 = SearchChildren(root, names, bindings, MatchExactChildren,
+		in_depth, &d1, found_depth);
+	w2 = SearchChildren(root, names, bindings, MatchWildChildren,
+		in_depth, &d2, found_depth);
+	*out_depth = (d1 < d2 ? d1 : d2);
+	return (d1 < d2 ? w1 : w2);
+    }
+} /* NameListToWidget */
+
+Widget XtNameToWidget(
+    Widget root,
+    _Xconst char* name)
+{
+    XrmName *names;
+    XrmBinding *bindings;
+    int len, depth, found = 10000;
+    Widget result;
+    WIDGET_TO_APPCON(root);
+
+    len = strlen(name);
+    if (len == 0) return NULL;
+
+    LOCK_APP(app);
+    names = (XrmName *) ALLOCATE_LOCAL((unsigned) (len+1) * sizeof(XrmName));
+    bindings = (XrmBinding *)
+	ALLOCATE_LOCAL((unsigned) (len+1) * sizeof(XrmBinding));
+    if (names == NULL || bindings == NULL) _XtAllocError(NULL);
+
+    XrmStringToBindingQuarkList(name, bindings, names);
+    if (names[0] == NULLQUARK) {
+	DEALLOCATE_LOCAL((char *) bindings);
+	DEALLOCATE_LOCAL((char *) names);
+	UNLOCK_APP(app);
+	return NULL;
+    }
+
+    result = NameListToWidget(root, names, bindings, 0, &depth, &found);
+
+    DEALLOCATE_LOCAL((char *) bindings);
+    DEALLOCATE_LOCAL((char *) names);
+    UNLOCK_APP(app);
+    return result;
+} /* XtNameToWidget */
+
+/* Define user versions of intrinsics macros */
+
+#undef XtDisplayOfObject
+Display *XtDisplayOfObject(
+     Widget object)
+{
+    /* Attempts to LockApp() here will generate endless recursive loops */
+    if (XtIsSubclass(object, hookObjectClass))
+	return DisplayOfScreen(((HookObject)object)->hooks.screen);
+    return XtDisplay(XtIsWidget(object) ? object : _XtWindowedAncestor(object));
+}
+
+#undef XtDisplay
+Display *XtDisplay(
+	Widget widget)
+{
+    /* Attempts to LockApp() here will generate endless recursive loops */
+    return DisplayOfScreen(widget->core.screen);
+}
+
+#undef XtScreenOfObject
+Screen *XtScreenOfObject(
+     Widget object)
+{
+    /* Attempts to LockApp() here will generate endless recursive loops */
+    if (XtIsSubclass(object, hookObjectClass))
+	return ((HookObject)object)->hooks.screen;
+    return XtScreen(XtIsWidget(object) ? object : _XtWindowedAncestor(object));
+}
+
+#undef XtScreen
+Screen *XtScreen(
+	Widget widget)
+{
+    /* Attempts to LockApp() here will generate endless recursive loops */
+    return widget->core.screen;
+}
+
+#undef XtWindowOfObject
+Window XtWindowOfObject(
+     Widget object)
+{
+    return XtWindow(XtIsWidget(object) ? object : _XtWindowedAncestor(object));
+}
+
+
+#undef XtWindow
+Window XtWindow(
+	Widget widget)
+{
+    return widget->core.window;
+}
+
+#undef XtSuperclass
+WidgetClass XtSuperclass(
+    Widget widget)
+{
+    WidgetClass retval;
+
+    LOCK_PROCESS;
+    retval = XtClass(widget)->core_class.superclass;
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+#undef XtClass
+WidgetClass XtClass(
+    Widget widget)
+{
+    WidgetClass retval;
+
+    LOCK_PROCESS;
+    retval = widget->core.widget_class;
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+#undef XtIsManaged
+Boolean XtIsManaged(
+	Widget object)
+{
+    Boolean retval;
+    WIDGET_TO_APPCON(object);
+
+    LOCK_APP(app);
+    if (XtIsRectObj(object))
+	retval = object->core.managed;
+    else
+	retval = False;
+    UNLOCK_APP(app);
+    return retval;
+}
+
+#undef XtIsRealized
+Boolean XtIsRealized (
+    Widget   object)
+{
+    Boolean retval;
+    WIDGET_TO_APPCON(object);
+
+    LOCK_APP(app);
+    retval = XtWindowOfObject(object) != None;
+    UNLOCK_APP(app);
+    return retval;
+} /* XtIsRealized */
+
+#undef XtIsSensitive
+Boolean XtIsSensitive(
+	Widget	object)
+{
+    Boolean retval;
+    WIDGET_TO_APPCON(object);
+
+    LOCK_APP(app);
+    if (XtIsRectObj(object))
+	retval = object->core.sensitive && object->core.ancestor_sensitive;
+    else
+	retval = False;
+    UNLOCK_APP(app);
+    return retval;
+}
+
+/*
+ * Internal routine; must be called only after XtIsWidget returns false
+ */
+Widget _XtWindowedAncestor(
+    register Widget object)
+{
+    Widget obj = object;
+    for (object = XtParent(object); object && !XtIsWidget(object);)
+	object = XtParent(object);
+
+    if (object == NULL) {
+	String params = XtName(obj);
+	Cardinal num_params = 1;
+	XtErrorMsg("noWidgetAncestor", "windowedAncestor", XtCXtToolkitError,
+		   "Object \"%s\" does not have windowed ancestor",
+		   &params, &num_params);
+    }
+
+    return object;
+}
+
+#undef XtParent
+Widget XtParent(
+    Widget widget)
+{
+    /* Attempts to LockApp() here will generate endless recursive loops */
+    return widget->core.parent;
+}
+
+#undef XtName
+String XtName(
+     Widget object)
+{
+    /* Attempts to LockApp() here will generate endless recursive loops */
+    return XrmQuarkToString(object->core.xrm_name);
+}
+
+
+Boolean XtIsObject(
+    Widget object)
+{
+    WidgetClass wc;
+    String class_name;
+
+    /* perform basic sanity checks */
+    if (object->core.self != object || object->core.xrm_name == NULLQUARK)
+	return False;
+
+    LOCK_PROCESS;
+    wc = object->core.widget_class;
+    if (wc->core_class.class_name == NULL ||
+	wc->core_class.xrm_class == NULLQUARK ||
+	(class_name = XrmClassToString(wc->core_class.xrm_class)) == NULL ||
+	strcmp(wc->core_class.class_name, class_name) != 0) {
+	    UNLOCK_PROCESS;
+	    return False;
+	}
+    UNLOCK_PROCESS;
+
+    if (XtIsWidget(object)) {
+	if (object->core.name == NULL ||
+	    (class_name = XrmNameToString(object->core.xrm_name)) == NULL ||
+	    strcmp(object->core.name, class_name) != 0)
+	    return False;
+    }
+    return True;
+}
+
+#if defined(WIN32)
+static int access_file (
+    char* path,
+    char* pathbuf,
+    int len_pathbuf,
+    char** pathret)
+{
+    if (access (path, F_OK) == 0) {
+	if (strlen (path) < len_pathbuf)
+	    *pathret = pathbuf;
+	else
+	    *pathret = XtMalloc (strlen (path));
+	if (*pathret) {
+	    strcpy (*pathret, path);
+	    return 1;
+	}
+    }
+    return 0;
+}
+
+static int AccessFile (
+    char* path,
+    char* pathbuf,
+    int len_pathbuf,
+    char** pathret)
+{
+    unsigned long drives;
+    int i, len;
+    char* drive;
+    char buf[MAX_PATH];
+    char* bufp;
+
+    /* just try the "raw" name first and see if it works */
+    if (access_file (path, pathbuf, len_pathbuf, pathret))
+	return 1;
+
+#if defined(WIN32) && defined(__MINGW32__)
+    /* don't try others */
+    return 0;
+#endif
+
+    /* try the places set in the environment */
+    drive = getenv ("_XBASEDRIVE");
+#ifdef __UNIXOS2__
+    if (!drive)
+	drive = getenv ("X11ROOT");
+#endif
+    if (!drive)
+	drive = "C:";
+    len = strlen (drive) + strlen (path);
+    bufp = XtStackAlloc (len + 1, buf);
+    strcpy (bufp, drive);
+    strcat (bufp, path);
+    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {
+	XtStackFree (bufp, buf);
+	return 1;
+    }
+
+#ifndef __UNIXOS2__
+    /* one last place to look */
+    drive = getenv ("HOMEDRIVE");
+    if (drive) {
+	len = strlen (drive) + strlen (path);
+	bufp = XtStackAlloc (len + 1, buf);
+	strcpy (bufp, drive);
+	strcat (bufp, path);
+	if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {
+	    XtStackFree (bufp, buf);
+	    return 1;
+	}
+    }
+
+    /* does OS/2 (with or with gcc-emx) have getdrives()? */
+    /* tried everywhere else, go fishing */
+    drives = _getdrives ();
+#define C_DRIVE ('C' - 'A')
+#define Z_DRIVE ('Z' - 'A')
+    for (i = C_DRIVE; i <= Z_DRIVE; i++) { /* don't check on A: or B: */
+	if ((1 << i) & drives) {
+	    len = 2 + strlen (path);
+	    bufp = XtStackAlloc (len + 1, buf);
+	    *bufp = 'A' + i;
+	    *(bufp + 1) = ':';
+	    *(bufp + 2) = '\0';
+	    strcat (bufp, path);
+	    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {
+		XtStackFree (bufp, buf);
+		return 1;
+	    }
+	}
+    }
+#endif
+    return 0;
+}
+#endif
+
+static Boolean TestFile(
+    String path)
+{
+#ifndef VMS
+    int ret = 0;
+    struct stat status;
+#if defined(WIN32)
+    char buf[MAX_PATH];
+    char* bufp;
+    int len;
+    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);
+
+    if (AccessFile (path, buf, MAX_PATH, &bufp))
+	path = bufp;
+
+    (void) SetErrorMode (olderror);
+#endif
+    ret = (access(path, R_OK) == 0 &&		/* exists and is readable */
+	    stat(path, &status) == 0 &&		/* get the status */
+#ifndef X_NOT_POSIX
+	    S_ISDIR(status.st_mode) == 0);	/* not a directory */
+#else
+	    (status.st_mode & S_IFMT) != S_IFDIR);	/* not a directory */
+#endif /* X_NOT_POSIX else */
+    return ret;
+#else /* VMS */
+    return TRUE;	/* Who knows what to do here? */
+#endif /* VMS */
+}
+
+/* return of TRUE = resolved string fit, FALSE = didn't fit.  Not
+   null-terminated and not collapsed if it didn't fit */
+
+static Boolean Resolve(
+    register _Xconst char *source,	/* The source string */
+    register int len,		/* The length in bytes of *source */
+    Substitution sub,	/* Array of string values to substitute */
+    Cardinal num,	/* Number of substitution entries */
+    char *buf,		/* Where to put the resolved string; */
+    char collapse)	/* Character to collapse */
+{
+    register int bytesLeft = PATH_MAX;
+    register char* bp = buf;
+#ifndef DONT_COLLAPSE
+    Boolean atBeginning = TRUE;
+    Boolean prevIsCollapse = FALSE;
+
+#define PUT(ch) \
+    { \
+	if (--bytesLeft == 0) return FALSE; \
+        if (prevIsCollapse) \
+	    if ((*bp = ch) != collapse) { \
+		prevIsCollapse = FALSE; \
+		bp++; \
+	    } \
+	    else bytesLeft++; \
+        else if ((*bp++ = ch) == collapse && !atBeginning) \
+	    prevIsCollapse = TRUE; \
+    }
+#else /* DONT_COLLAPSE */
+
+#define PUT(ch) \
+    { \
+	if (--bytesLeft == 0) return FALSE; \
+	*bp++ = ch; \
+    }
+#endif /* DONT_COLLAPSE */
+#define escape '%'
+
+    while (len--) {
+#ifndef DONT_COLLAPSE
+	if (*source == collapse) {
+	    PUT(*source);
+	    source++;
+	    continue;
+	}
+	else
+#endif /* DONT_COLLAPSE */
+	    if (*source != escape) {
+		PUT(*source);
+	}
+	else {
+	    source++;
+	    if (len-- == 0) {
+		PUT(escape);
+		break;
+	    }
+
+	    if (*source == ':' || *source == escape)
+		PUT(*source)
+	    else {
+		/* Match the character against the match array */
+		register Cardinal j;
+
+		for (j = 0; j < num && sub[j].match != *source; j++) {}
+
+		/* Substitute the substitution string */
+
+		if (j >= num) PUT(*source)
+		else if (sub[j].substitution != NULL) {
+		    char *sp = sub[j].substitution;
+		    while (*sp) {
+			PUT(*sp);
+			sp++;
+		    }
+		}
+	    }
+	}
+	source++;
+#ifndef DONT_COLLAPSE
+	atBeginning = FALSE;
+#endif /* DONT_COLLAPSE */
+    }
+    PUT('\0');
+
+    return TRUE;
+#undef PUT
+#undef escape
+}
+
+
+String XtFindFile(
+    _Xconst char* path,
+    Substitution substitutions,
+    Cardinal num_substitutions,
+    XtFilePredicate predicate)
+{
+    char *buf, *buf1, *buf2, *colon;
+    int len;
+    Boolean firstTime = TRUE;
+
+    buf = buf1 = __XtMalloc((unsigned)PATH_MAX);
+    buf2 = __XtMalloc((unsigned)PATH_MAX);
+
+    if (predicate == NULL) predicate = TestFile;
+
+    while (1) {
+	colon = (String)path;
+	/* skip leading colons */
+	while (*colon) {
+	    if (*colon != ':') break;
+	    colon++;
+	    path++;
+	}
+	/* now look for an un-escaped colon */
+	for ( ; *colon ; colon++) {
+	    if (*colon == '%' && *(path+1)) {
+		colon++;	/* bump it an extra time to skip %. */
+		continue;
+	    }
+	    if (*colon == ':')
+#ifdef __UNIXOS2__
+	      if (colon > (path+1))
+#endif
+		break;
+	}
+	len = colon - path;
+	if (Resolve(path, len, substitutions, num_substitutions,
+		    buf, '/')) {
+	    if (firstTime || strcmp(buf1,buf2) != 0) {
+#ifdef __UNIXOS2__
+		{
+			char *bufx = (char*)__XOS2RedirRoot(buf);
+			strcpy(buf,bufx);
+		}
+#endif
+#ifdef XNL_DEBUG
+		printf("Testing file %s\n", buf);
+#endif /* XNL_DEBUG */
+		/* Check out the file */
+		if ((*predicate) (buf)) {
+		    /* We've found it, return it */
+#ifdef XNL_DEBUG
+		    printf("File found.\n");
+#endif /* XNL_DEBUG */
+		    if (buf == buf1) XtFree(buf2);
+		    else XtFree(buf1);
+		    return buf;
+		}
+		if (buf == buf1)
+		    buf = buf2;
+		else
+		    buf = buf1;
+		firstTime = FALSE;
+	    }
+	}
+
+	/* Nope...any more paths? */
+
+	if (*colon == '\0') break;
+	path = colon+1;
+    }
+
+    /* No file found */
+
+    XtFree(buf1);
+    XtFree(buf2);
+    return NULL;
+}
+
+
+/* The implementation of this routine is operating system dependent */
+/* Should match the code in Xlib _XlcMapOSLocaleName */
+
+static char *ExtractLocaleName(
+    String	lang)
+{
+
+#if defined(hpux) || defined(CSRG_BASED) || defined(sun) || defined(SVR4) || defined(sgi) || defined(__osf__) || defined(AIXV3) || defined(ultrix) || defined(WIN32) || defined(__UNIXOS2__) || defined (linux)
+# ifdef hpux
+/*
+ * We need to discriminated between HPUX 9 and HPUX 10. The equivalent
+ * code in Xlib in SetLocale.c does include locale.h via X11/Xlocale.h.
+ */
+#  include <locale.h>
+#  ifndef _LastCategory
+   /* HPUX 9 and earlier */
+#   define SKIPCOUNT 2
+#   define STARTCHAR ':'
+#   define ENDCHAR ';'
+#  else
+    /* HPUX 10 */
+#   define ENDCHAR ' '
+#  endif
+# else
+#  ifdef ultrix
+#   define SKIPCOUNT 2
+#   define STARTCHAR '\001'
+#   define ENDCHAR '\001'
+#  else
+#   if defined(WIN32) || defined(__UNIXOS2__)
+#    define SKIPCOUNT 1
+#    define STARTCHAR '='
+#    define ENDCHAR ';'
+#    define WHITEFILL
+#   else
+#    if defined(__osf__) || (defined(AIXV3) && !defined(AIXV4))
+#     define STARTCHAR ' '
+#     define ENDCHAR ' '
+#    else
+#     if defined(linux)
+#      define STARTSTR "LC_CTYPE="
+#      define ENDCHAR ';'
+#     else
+#      if !defined(sun) || defined(SVR4)
+#       define STARTCHAR '/'
+#       define ENDCHAR '/'
+#      endif
+#     endif
+#    endif
+#   endif
+#  endif
+# endif
+
+    char           *start;
+    char           *end;
+    int             len;
+# ifdef SKIPCOUNT
+    int		    n;
+# endif
+    static char*    buf = NULL;
+
+    start = lang;
+# ifdef SKIPCOUNT
+    for (n = SKIPCOUNT;
+	 --n >= 0 && start && (start = strchr (start, STARTCHAR));
+	 start++)
+	;
+    if (!start)
+	start = lang;
+# endif
+# ifdef STARTCHAR
+    if (start && (start = strchr (start, STARTCHAR)))
+# elif  defined (STARTSTR)
+    if (start && (start = strstr (start,STARTSTR)))
+# endif
+    {
+# ifdef STARTCHAR
+	start++;
+# elif defined (STARTSTR)
+	start += strlen(STARTSTR);
+# endif
+
+	if ((end = strchr (start, ENDCHAR))) {
+	    len = end - start;
+	    if (buf != NULL) XtFree (buf);
+	    buf = XtMalloc (len + 1);
+	    if (buf == NULL) return NULL;
+	    strncpy(buf, start, len);
+	    *(buf + len) = '\0';
+# ifdef WHITEFILL
+	    for (start = buf; start = strchr(start, ' '); )
+		*start++ = '-';
+# endif
+	    return buf;
+	} else  /* if no ENDCHAR is found we are at the end of the line */
+	    return start;
+    }
+# ifdef WHITEFILL
+    if (strchr(lang, ' ')) {
+	if (buf != NULL) XtFree (buf);
+	else buf = XtMalloc (strlen (lang) + 1);
+	if (buf == NULL) return NULL;
+	strcpy(buf, lang);
+	for (start = buf; start = strchr(start, ' '); )
+	    *start++ = '-';
+	return buf;
+    }
+# endif
+# undef STARTCHAR
+# undef ENDCHAR
+# undef WHITEFILL
+#endif
+
+    return lang;
+}
+
+static void FillInLangSubs(
+    Substitution subs,
+    XtPerDisplay pd)
+{
+    int len;
+    char *string, *p1, *p2, *p3;
+    char **rest;
+    char *ch;
+
+    if (pd->language == NULL ||
+	(pd->language != NULL && pd->language[0] == '\0')) {
+	subs[0].substitution = subs[1].substitution =
+		subs[2].substitution = subs[3].substitution = NULL;
+	return;
+    }
+
+    string = ExtractLocaleName(pd->language);
+
+    if (string == NULL ||
+	(string != NULL && string[0] == '\0')) {
+	subs[0].substitution = subs[1].substitution =
+		subs[2].substitution = subs[3].substitution = NULL;
+	return;
+    }
+
+    len = strlen(string) + 1;
+    subs[0].substitution = string;
+    p1 = subs[1].substitution = __XtMalloc((Cardinal) 3*len);
+    p2 = subs[2].substitution = subs[1].substitution + len;
+    p3 = subs[3].substitution = subs[2].substitution + len;
+
+    /* Everything up to the first "_" goes into p1.  From "_" to "." in
+       p2.  The rest in p3.  If no delimiters, all goes into p1.  We
+       assume p1, p2, and p3 are large enough. */
+
+    *p1 = *p2 = *p3 = '\0';
+
+    ch = strchr(string, '_');
+    if (ch != NULL) {
+	len = ch - string;
+	(void) strncpy(p1, string, len);
+	p1[len] = '\0';
+	string = ch + 1;
+	rest = &p2;
+    } else rest = &p1;
+
+    /* Rest points to where we put the first part */
+
+    ch = strchr(string, '.');
+    if (ch != NULL) {
+	len = ch - string;
+	strncpy(*rest, string, len);
+	(*rest)[len] = '\0';
+	(void) strcpy(p3, ch+1);
+    } else (void) strcpy(*rest, string);
+}
+
+/*
+ * default path used if environment variable XFILESEARCHPATH
+ * is not defined.  Also substitued for %D.
+ * The exact value should be documented in the implementation
+ * notes for any Xt implementation.
+ */
+static char *implementation_default_path(void)
+{
+#if defined(WIN32)
+    static char xfilesearchpath[] = ":";
+
+    return xfilesearchpath;
+#elif defined(__UNIXOS2__)
+    /* if you know how to pass % thru the compiler let me know */
+    static char xfilesearchpath[] = XFILESEARCHPATHDEFAULT;
+    static Bool fixed;
+    char *ch;
+
+    if (!fixed) {
+	for (ch = xfilesearchpath; ch = strchr(ch, ';'); ch++)
+	    *ch = '%';
+	fixed = True;
+    }
+    return xfilesearchpath;
+#else
+    return XFILESEARCHPATHDEFAULT;
+#endif
+}
+
+
+static SubstitutionRec defaultSubs[] = {
+    {'N', NULL},
+    {'T', NULL},
+    {'S', NULL},
+    {'C', NULL},
+    {'L', NULL},
+    {'l', NULL},
+    {'t', NULL},
+    {'c', NULL}
+};
+
+
+String XtResolvePathname(
+    Display *dpy,
+    _Xconst char* type,
+    _Xconst char* filename,
+    _Xconst char* suffix,
+    _Xconst char* path,
+    Substitution substitutions,
+    Cardinal num_substitutions,
+    XtFilePredicate predicate)
+{
+    XtPerDisplay pd;
+    static char *defaultPath = NULL;
+    char *impl_default = implementation_default_path();
+    int idef_len = strlen(impl_default);
+    char *massagedPath;
+    int bytesAllocd, bytesLeft;
+    char *ch, *result;
+    Substitution merged_substitutions;
+    XrmRepresentation db_type;
+    XrmValue value;
+    XrmName name_list[3];
+    XrmClass class_list[3];
+    Boolean pathMallocd = False;
+
+    LOCK_PROCESS;
+    pd = _XtGetPerDisplay(dpy);
+    if (path == NULL) {
+#ifndef VMS
+	if (defaultPath == NULL) {
+	    defaultPath = getenv("XFILESEARCHPATH");
+	    if (defaultPath == NULL)
+		defaultPath = impl_default;
+	}
+	path = defaultPath;
+#endif /* VMS */
+    }
+
+    if (path == NULL)
+	path = "";	/* NULL would kill us later */
+
+    if (filename == NULL) {
+	filename = XrmClassToString(pd->class);
+    }
+
+    bytesAllocd = bytesLeft = 1000;
+    massagedPath = ALLOCATE_LOCAL(bytesAllocd);
+    if (massagedPath == NULL) _XtAllocError(NULL);
+
+    if (path[0] == ':') {
+	strcpy(massagedPath, "%N%S");
+	ch = &massagedPath[4];
+	bytesLeft -= 4;
+    } else ch = massagedPath;
+
+    /* Insert %N%S between adjacent colons
+     * and default path for %D.
+     * Default path should not have any adjacent colons of its own.
+     */
+
+    while (*path != '\0') {
+	if (bytesLeft < idef_len) {
+	    int bytesUsed = bytesAllocd - bytesLeft;
+	    char *new;
+	    bytesAllocd +=1000;
+	    new = __XtMalloc((Cardinal) bytesAllocd);
+	    strncpy( new, massagedPath, bytesUsed );
+	    ch = new + bytesUsed;
+	    if (pathMallocd)
+		XtFree(massagedPath);
+	    else
+		DEALLOCATE_LOCAL(massagedPath);
+	    pathMallocd = True;
+	    massagedPath = new;
+	    bytesLeft = bytesAllocd - bytesUsed;
+	}
+	if (*path == '%' && *(path+1) == ':') {
+	    *ch++ = '%';
+	    *ch++ = ':';
+	    path += 2;
+	    bytesLeft -= 2;
+	    continue;
+	}
+	if (*path == ':' && *(path+1) == ':') {
+	    strcpy(ch, ":%N%S:");
+	    ch += 6;
+	    bytesLeft -= 6;
+	    while (*path == ':') path++;
+	    continue;
+	}
+	if (*path == '%' && *(path+1) == 'D') {
+	    strcpy(ch, impl_default);
+	    ch += idef_len;
+	    bytesLeft -= idef_len;
+	    path += 2;
+	    continue;
+	}
+	*ch++ = *path++;
+	bytesLeft--;
+    }
+    *ch = '\0';
+#ifdef XNL_DEBUG
+    printf("Massaged path: %s\n", massagedPath);
+#endif /* XNL_DEBUG */
+
+    if (num_substitutions == 0)
+	merged_substitutions = defaultSubs;
+    else {
+	int i = XtNumber(defaultSubs);
+	Substitution sub, def;
+	merged_substitutions = sub = (Substitution)
+	    ALLOCATE_LOCAL((unsigned)(num_substitutions+i)*sizeof(SubstitutionRec));
+	if (sub == NULL) _XtAllocError(NULL);
+	for (def = defaultSubs; i--; sub++, def++) sub->match = def->match;
+	for (i = num_substitutions; i--; ) *sub++ = *substitutions++;
+    }
+    merged_substitutions[0].substitution = (String)filename;
+    merged_substitutions[1].substitution = (String)type;
+    merged_substitutions[2].substitution = (String)suffix;
+    name_list[0] = pd->name;
+    name_list[1] = XrmPermStringToQuark("customization");
+    name_list[2] = NULLQUARK;
+    class_list[0] = pd->class;
+    class_list[1] = XrmPermStringToQuark("Customization");
+    class_list[2] = NULLQUARK;
+    if (XrmQGetResource(XrmGetDatabase(dpy), name_list, class_list,
+			&db_type, &value) &&
+	db_type == _XtQString)
+	merged_substitutions[3].substitution = (char *)value.addr;
+    else
+	merged_substitutions[3].substitution = NULL;
+    FillInLangSubs(&merged_substitutions[4], pd);
+
+    result = XtFindFile(massagedPath, merged_substitutions,
+			num_substitutions + XtNumber(defaultSubs),
+			predicate);
+
+    if (merged_substitutions[5].substitution != NULL)
+	XtFree( (XtPointer)merged_substitutions[5].substitution );
+
+    if (merged_substitutions != defaultSubs)
+	DEALLOCATE_LOCAL(merged_substitutions);
+
+    if (pathMallocd)
+	XtFree(massagedPath);
+    else
+	DEALLOCATE_LOCAL(massagedPath);
+
+    UNLOCK_PROCESS;
+    return result;
+}
+
+
+Boolean XtCallAcceptFocus(
+    Widget widget,
+    Time *time)
+{
+    XtAcceptFocusProc ac;
+    Boolean retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    ac = XtClass(widget)->core_class.accept_focus;
+    UNLOCK_PROCESS;
+
+    if (ac != NULL)
+	retval = (*ac) (widget, time);
+    else
+	retval = FALSE;
+    UNLOCK_APP(app);
+    return retval;
+}
+
+#ifdef XT_GEO_TATTLER
+/**************************************************************************
+ GeoTattler:  This is used to debug Geometry management in Xt.
+
+  It uses a pseudo resource XtNgeotattler.
+
+  E.G. if those lines are found in the resource database:
+
+    myapp*draw.XmScale.geoTattler: ON
+    *XmScrollBar.geoTattler:ON
+    *XmRowColumn.exit_button.geoTattler:ON
+
+   then:
+
+    all the XmScale children of the widget named draw,
+    all the XmScrollBars,
+    the widget named exit_button in any XmRowColumn
+
+   will return True to the function IsTattled(), and will generate
+   outlined trace to stdout.
+
+*************************************************************************/
+
+#define XtNgeoTattler "geoTattler"
+#define XtCGeoTattler "GeoTattler"
+
+typedef struct { Boolean   geo_tattler ;} GeoDataRec ;
+
+static XtResource geo_resources[] = {
+    { XtNgeoTattler, XtCGeoTattler, XtRBoolean, sizeof(Boolean),
+      XtOffsetOf(GeoDataRec, geo_tattler),
+      XtRImmediate, (XtPointer) False }
+};
+
+/************************************************************************
+  This function uses XtGetSubresources to find out if a widget
+  needs to be geo-spied by the caller. */
+static Boolean IsTattled (Widget widget)
+{
+    GeoDataRec geo_data ;
+
+    XtGetSubresources(widget, (XtPointer)&geo_data,
+                      (String)NULL, (String)NULL,
+		      geo_resources, XtNumber(geo_resources),
+		      NULL, 0);
+
+    return geo_data.geo_tattler;
+
+}  /* IsTattled */
+
+static int n_tab = 0 ;  /* not MT for now */
+
+void
+_XtGeoTab (int direction)  /* +1 or -1 */
+{
+    n_tab += direction ;
+}
+
+
+void
+_XtGeoTrace (Widget widget, ...)
+{
+    va_list args;
+    char *fmt;
+    int i ;
+    if (IsTattled(widget)) {
+	va_start(args, widget);
+	fmt = va_arg(args, char *);
+	for (i=0; i<n_tab; i++) printf("     ");
+	(void) vprintf(fmt, args);
+	va_end(args);
+    }
+}
+
+#endif /* XT_GEO_TATTLER */
+
diff --git a/libXt/src/Keyboard.c b/libXt/src/Keyboard.c
index 4970d2d01..c8ba863ba 100644
--- a/libXt/src/Keyboard.c
+++ b/libXt/src/Keyboard.c
@@ -1,866 +1,866 @@
-/*

-

-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 1988 by Hewlett-Packard Company

-Copyright 1987, 1988, 1989 by Digital Equipment Corporation, Maynard, Massachusetts

-

-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 names of

-Hewlett-Packard or 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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-

-#include "PassivGraI.h"

-#include "EventI.h"

-

-#define _GetWindowedAncestor(w) (XtIsWidget(w) ? w : _XtWindowedAncestor(w))

-

-/* InActiveSubtree cache of the current focus source and its ancestors */

-static Widget	*pathTrace = NULL;

-static int	pathTraceDepth = 0;

-static int	pathTraceMax = 0;

-

-/* FindKeyDestination cache of focus destination and ancestors up to source */

-static Widget	*pseudoTrace = NULL;

-static int	pseudoTraceDepth = 0;

-static int	pseudoTraceMax = 0;

-

-void _XtClearAncestorCache(Widget widget)

-{

-    /* the caller must lock the process lock */

-    if (pathTraceDepth && pathTrace[0] == widget)

-	pathTraceDepth = 0;

-}

-

-static XtServerGrabPtr CheckServerGrabs(

-    XEvent	*event,

-    Widget	*trace,

-    Cardinal	traceDepth)

-{

-    XtServerGrabPtr 	grab;

-    Cardinal		i;

-

-    for (i = traceDepth;  i > 0; i--)

-      {

-	 if ((grab = _XtCheckServerGrabsOnWidget(event, trace[i-1], KEYBOARD)))

-	   return (grab);

-     }

-    return (XtServerGrabPtr)0;

-}

-

-static Boolean IsParent(Widget a, Widget b)

-{

-    for (b = XtParent(b); b; b = XtParent(b)) {

-      if (b == a) return TRUE;

-      if (XtIsShell(b)) return FALSE;

-    }

-    return FALSE;

-}

-

-#define RelRtn(lca, type) {*relTypeRtn = type; return lca;}

-

-static Widget CommonAncestor(

-    register Widget a,

-    register Widget b,

-    XtGeneology  * relTypeRtn)

-{

-    if (a == b)

-      {

-	  RelRtn(a, XtMySelf)

-	}

-    else if (IsParent(a, b))

-      {

-	  RelRtn(a, XtMyAncestor)

-	}

-    else if (IsParent(b, a))

-      {

-	  RelRtn(b, XtMyDescendant)

-	}

-    else

-      for (b = XtParent(b);

-	   b && !XtIsShell(b);

-	   b = XtParent(b))

-	if (IsParent(b, a))

-	  {

-	      RelRtn(b, XtMyCousin)

-	    }

-    RelRtn(NULL, XtUnrelated)

-}

-#undef RelRtn

-

-

-

-

-

-static Widget _FindFocusWidget(

-    Widget 	widget,

-    Widget	*trace,

-    int		traceDepth,

-    Boolean	activeCheck,

-    Boolean	*isTarget)

-{

-    int src;

-    Widget dst;

-    XtPerWidgetInput	pwi = NULL;

-

-    /* For each ancestor, starting at the top, see if it's forwarded */

-

-

-    /* first check the trace list till done or we go to branch */

-    for (src = traceDepth-1, dst = widget; src > 0;)

-      {

-	  if ((pwi = _XtGetPerWidgetInput(trace[src], FALSE)))

-	    {

-		if (pwi->focusKid)

-		  {

-		      dst = pwi->focusKid;

-		      for (src--; src > 0 && trace[src] != dst; src--) {}

-		  }

-		else dst = trace[--src];

-	    }

-	  else dst = trace[--src];

-      }

-

-    if (isTarget) {

-	if (pwi && pwi->focusKid == widget)

-	    *isTarget = TRUE;

-	else

-	    *isTarget = FALSE;

-    }

-

-    if (!activeCheck)

-      while (XtIsWidget(dst)

-	     && (pwi = _XtGetPerWidgetInput(dst, FALSE))

-	     && pwi->focusKid)

-	dst = pwi->focusKid;

-

-    return dst;

-}

-

-

-static Widget FindFocusWidget(

-    Widget		widget,

-    XtPerDisplayInput 	pdi)

-{

-    if (pdi->focusWidget)

-      return  pdi->focusWidget;

-    else

-      return _FindFocusWidget(widget, pdi->trace, pdi->traceDepth, FALSE, NULL);

-}

-

-Widget XtGetKeyboardFocusWidget(Widget widget)

-{

-    XtPerDisplayInput pdi;

-    Widget retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    retval = FindFocusWidget(widget, pdi);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-static Boolean IsOutside(

-    XKeyEvent	*e,

-    Widget	w)

-{

-    Position left, right, top, bottom;

-

-    /*

-     * if the pointer is outside the shell or inside

-     * the window try to see if it would recieve the

-     * focus

-     */

-    XtTranslateCoords(w, 0, 0, &left, &top);

-    /* We need to take borders into consideration */

-    left = left - w->core.border_width;

-    top =  top - w->core.border_width;

-    right = left +  w->core.width + w->core.border_width;

-    bottom = top +  w->core.height + w->core.border_width;

-

-    if (

-	(e->x_root < left) || (e->y_root < top) ||

-        (e->x_root > right) || (e->y_root > bottom))

-      return TRUE;

-    else

-      return FALSE;

-}

-

-static Widget 	FindKeyDestination(

-    Widget		widget,

-    XKeyEvent		*event,

-    XtServerGrabPtr	prevGrab,

-    XtServerGrabType 	prevGrabType,

-    XtServerGrabPtr	devGrab,

-    XtServerGrabType	devGrabType,

-    XtPerDisplayInput	pdi)

-{

-

-    Widget		dspWidget;

-    Widget		focusWidget;

-

-    LOCK_PROCESS;

-    dspWidget =

-      focusWidget =

-	pdi->focusWidget =

-	  _GetWindowedAncestor(FindFocusWidget(widget, pdi));

-

-

-    /*

-     * If a grab is active from a previous activation then dispatch

-     * based on owner_events ala protocol but with focus being

-     * determined by XtSetKeyboardFocus.

-     */

-    if 	(IsAnyGrab(prevGrabType))

-      {

-	  if (prevGrab->ownerEvents)

-	    dspWidget = focusWidget;

-	  else

-	    dspWidget = prevGrab->widget;

-      }

-    else

-      {

-	  /*

-           * If the focus widget is the event widget or a descendant

-	   * then we can avoid the rest of this. Else ugh...

-	   */

-	  if (focusWidget != widget)

-	    {

-		XtGeneology 	ewRelFw; /* relationship of event widget to

-					    focusWidget */

-		Widget		lca;

-

-		lca = CommonAncestor(widget, focusWidget, &ewRelFw);

-

-		/*

-		 * if the event widget is an ancestor of focus due to the pointer

-		 * and/or the grab being in an ancestor and it's a passive grab

-		 * send to grab widget.

-		 * we are also dispatching to widget if ownerEvents and the event

-		 * is outside the client

-		 */

-		if ((ewRelFw == XtMyAncestor) &&

-		    (devGrabType == XtPassiveServerGrab))

-		     {

-			 if (IsOutside(event, widget) ||

-			     event->type ==KeyPress

-			     )

-			   dspWidget = devGrab->widget;

-		     }

-		else

-		  {

-		      /*

-		       * if the grab widget is not an ancestor of the focus

-		       * release the grab in order to avoid locking. There

-		       * is a possible case  in that ownerEvents true will fall

-		       * through and if synch is set and the event widget

-		       * could turn it off we'll lock. check for it ? why not

-		       */

-		      if ((ewRelFw != XtMyAncestor)

-			  && (devGrabType == XtPassiveServerGrab)

-			  && (!IsAnyGrab(prevGrabType))

-			  )

-			{

-			    XtUngrabKeyboard(devGrab->widget,

-					     event->time);

-			    devGrabType = XtNoServerGrab;

-			}

-		      /*

-		       * if there isn't a grab with then check

-		       * for a logical grab that would have been activated

-		       * if the server was using Xt focus instead of server

-		       * focus

-		       */

-		      if (

-			  (event->type != KeyPress) ||

-			  (event->keycode == 0) /* Xlib XIM composed input */

-			  )

-			dspWidget = focusWidget;

-		      else

-			{

-			    XtServerGrabPtr	grab;

-

-			    if (!pseudoTraceDepth ||

-				!(focusWidget == pseudoTrace[0]) ||

-				!(lca == pseudoTrace[pseudoTraceDepth]))

-			      {

-				  /*

-				   * fill ancestor list from lca

-				   * (non-inclusive)to focusWidget by

-				   * passing in lca as breakWidget

-				   */

-				  _XtFillAncestorList(&pseudoTrace,

-						   &pseudoTraceMax,

-						   &pseudoTraceDepth,

-						   focusWidget,

-						   lca);

-				  /* ignore lca */

-				  pseudoTraceDepth--;

-			      }

-			    if ((grab = CheckServerGrabs((XEvent*)event,

-							pseudoTrace,

-							pseudoTraceDepth)))

-			      {

-				  XtDevice device = &pdi->keyboard;

-

-				  device->grabType = XtPseudoPassiveServerGrab;

-				  pdi->activatingKey = event->keycode;

-				  device->grab = *grab;

-

-				  if (grab

-				      )

-				    dspWidget = grab->widget;

-				  else

-				    dspWidget = focusWidget;

-			      }

-			}

-		  }

-	    }

-      }

-    UNLOCK_PROCESS;

-    return dspWidget;

-}

-

-Widget _XtProcessKeyboardEvent(

-    XKeyEvent  *event,

-    Widget widget,

-    XtPerDisplayInput pdi)

-{

-    XtDevice		device = &pdi->keyboard;

-    XtServerGrabPtr	newGrab, devGrab = &device->grab;

-    XtServerGrabRec	prevGrabRec;

-    XtServerGrabType	prevGrabType = device->grabType;

-    Widget		dspWidget = NULL;

-    Boolean		deactivateGrab = FALSE;

-

-    prevGrabRec = *devGrab;

-

-    switch (event->type)

-      {

-	case KeyPress:

-	  {

-	      if (event->keycode != 0 && /* Xlib XIM composed input */

-		  !IsServerGrab(device->grabType) &&

-		  (newGrab = CheckServerGrabs((XEvent*)event,

-					      pdi->trace,

-					      pdi->traceDepth)))

-		{

-		    /*

-		     * honor pseudo-grab from prior event by X

-		     * unlocking keyboard. Not Xt Unlock !

-		     */

-		    if (IsPseudoGrab(prevGrabType))

-		      XUngrabKeyboard(XtDisplay(newGrab->widget),

-				      event->time);

-		    else

-		      {

-			  /* Activate the grab */

-			  device->grab = *newGrab;

-			  pdi->activatingKey = event->keycode;

-			  device->grabType = XtPassiveServerGrab;

-		      }

-		}

-	    }

-	  break;

-

-	case KeyRelease:

-	  {

-	      if (IsEitherPassiveGrab(device->grabType) &&

-		  (event->keycode == pdi->activatingKey))

-		deactivateGrab = TRUE;

-	  }

-	  break;

-      }

-    dspWidget = FindKeyDestination(widget, event,

-				   &prevGrabRec, prevGrabType,

-				   devGrab, device->grabType,

-				   pdi);

-    if (deactivateGrab)

-      {

-	  /* Deactivate the grab */

-	  device->grabType = XtNoServerGrab;

-	  pdi->activatingKey = 0;

-      }

-    return dspWidget;

-}

-

-static Widget GetShell(Widget widget)

-{

-    Widget	shell;

-

-    for (shell = widget;

-	 shell && !XtIsShell(shell);

-	 shell = XtParent(shell)){}

-    return shell;

-}

-

-

-/*

- * Check that widget really has Xt focus due to it having recieved an

- * event

- */

-typedef enum {NotActive = 0, IsActive, IsTarget} ActiveType;

-static ActiveType InActiveSubtree(Widget widget)

-{

-    Boolean		isTarget;

-    ActiveType		retval;

-

-    LOCK_PROCESS;

-    if (!pathTraceDepth || widget != pathTrace[0]) {

-	_XtFillAncestorList(&pathTrace,

-			    &pathTraceMax,

-			    &pathTraceDepth,

-			    widget,

-			    NULL);

-    }

-    if (widget == _FindFocusWidget(widget,

-				   pathTrace,

-				   pathTraceDepth,

-				   TRUE,

-				   &isTarget))

-	retval = (isTarget ? IsTarget : IsActive);

-    else

-	retval = NotActive;

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-

-

-

-/* ARGSUSED */

-void _XtHandleFocus(

-    Widget widget,

-    XtPointer client_data,	/* child who wants focus */

-    XEvent *event,

-    Boolean *cont)		/* unused */

-{

-    XtPerDisplayInput 	pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    XtPerWidgetInput	pwi = (XtPerWidgetInput)client_data;

-    XtGeneology		oldFocalPoint = pwi->focalPoint;

-    XtGeneology		newFocalPoint = pwi->focalPoint;

-

-    switch( event->type ) {

-

-      case KeyPress:

-      case KeyRelease:

-	/*

-	 * We're getting the keyevents used to guarantee propagating

-         * child interest ala ForwardEvent in R3

-	 */

-	return;

-

-      case EnterNotify:

-      case LeaveNotify:

-

-	/*

-	 * If operating in a focus driven model, then enter and

-	 * leave events do not affect the keyboard focus.

-	 */

-	if ((event->xcrossing.detail != NotifyInferior)

-	    &&	(event->xcrossing.focus))

-	  {

-	      switch (oldFocalPoint)

-		{

-		  case XtMyAncestor:

-		    if (event->type == LeaveNotify)

-		      newFocalPoint = XtUnrelated;

-		    break;

-		  case XtUnrelated:

-		    if (event->type == EnterNotify)

-		      newFocalPoint = XtMyAncestor;

-		    break;

-		  case XtMySelf:

-		    break;

-		  case XtMyDescendant:

-		    break;

-

-		}

-	  }

-	break;

-      case FocusIn:

-	switch (event->xfocus.detail)

-	  {

-	    case NotifyNonlinear:

-	    case NotifyAncestor:

-	    case NotifyInferior:

-	      newFocalPoint = XtMySelf;

-	      break;

-	    case NotifyNonlinearVirtual:

-	    case NotifyVirtual:

-	      newFocalPoint = XtMyDescendant;

-	      break;

-	    case NotifyPointer:

-	      newFocalPoint = XtMyAncestor;

-	      break;

-	  }

-	break;

-      case FocusOut:

-	switch (event->xfocus.detail)

-	  {

-	    case NotifyPointer:

-	    case NotifyNonlinear:

-	    case NotifyAncestor:

-	    case NotifyNonlinearVirtual:

-	    case NotifyVirtual:

-	      newFocalPoint = XtUnrelated;

-	      break;

-	    case NotifyInferior:

-	      newFocalPoint = XtMyDescendant;

-	      return;

-	      break;

-	  }

-	break;

-    }

-

-    if (newFocalPoint != oldFocalPoint)

-      {

-	  Boolean 	add;

-	  Widget	descendant = pwi->focusKid;

-

-	  pwi->focalPoint = newFocalPoint;

-

-	  if ((oldFocalPoint == XtUnrelated) &&

-	      InActiveSubtree(widget) != NotActive)

-	    {

-		pdi->focusWidget = NULL; /* invalidate the cache */

-		pwi->haveFocus = TRUE;

-		add = TRUE;

-	    }

-	  else if (newFocalPoint == XtUnrelated)

-	    {

-		pdi->focusWidget = NULL; /* invalidate the cache */

-		pwi->haveFocus = FALSE;

-		add = FALSE;

-	    }

-	  else

-	    return;

-

-	  if (descendant)

-	    {

-		if (add)

-		  {

-		      _XtSendFocusEvent(descendant, FocusIn);

-		  }

-		else

-		  {

-		      _XtSendFocusEvent(descendant, FocusOut);

-		  }

-	    }

-      }

-}

-

-

-static void AddFocusHandler(

-    Widget widget,

-    Widget descendant,

-    XtPerWidgetInput pwi,

-    XtPerWidgetInput psi,

-    XtPerDisplayInput pdi,

-    EventMask oldEventMask)

-{

-    EventMask	 	eventMask, targetEventMask;

-    Widget		target;

-

-    /*

-     * widget must now select for key events if the descendant is

-     * interested in them.

-     *

-     * shell borders are not occluded by the child, they're occluded

-     * by reparenting window managers. !!!

-     */

-    target = descendant ? _GetWindowedAncestor(descendant) : NULL;

-    targetEventMask = XtBuildEventMask(target);

-    eventMask = targetEventMask & (KeyPressMask | KeyReleaseMask);

-    eventMask |= FocusChangeMask | EnterWindowMask | LeaveWindowMask;

-

-    if (oldEventMask) {

-	oldEventMask &= KeyPressMask | KeyReleaseMask;

-	oldEventMask |= FocusChangeMask | EnterWindowMask | LeaveWindowMask;

-

-	if (oldEventMask != eventMask)

-	    XtRemoveEventHandler(widget, (oldEventMask & ~eventMask),

-				 False, _XtHandleFocus, (XtPointer)pwi);

-    }

-

-    if (oldEventMask != eventMask)

-	XtAddEventHandler(widget, eventMask, False,

-			  _XtHandleFocus, (XtPointer)pwi);

-

-    /* What follows is too much grief to go through if the

-     * target doesn't actually care about focus change events,

-     * so just invalidate the focus cache & refill it when

-     * the next input event actually arrives.

-     */

-

-    if (!(targetEventMask & FocusChangeMask)) {

-	pdi->focusWidget = NULL;

-	return;

-    }

-

-    if (XtIsRealized(widget) && !pwi->haveFocus) {

-	if (psi->haveFocus) {

-	    Window root, child;

-	    int root_x, root_y, win_x, win_y;

-	    int left, right, top, bottom;

-	    unsigned int modMask;

-	    ActiveType act;

-

-	    /*

-	     * If the shell has the focus but the source widget

-	     * doesn't, it may only be because the source widget

-	     * wasn't previously tracking focus or crossing events.

-	     * If the target wants focus events, we have to

-	     * now determine whether the source has the focus.

-	     */

-

-	    if ((act = InActiveSubtree(widget)) == IsTarget)

-		pwi->haveFocus = TRUE;

-	    else if (act == IsActive) {

-		/*

-		 * An ancestor contains the focus, so if source

-		 * contains the pointer, then source has the focus.

-		 */

-

-		if (XQueryPointer(XtDisplay(widget), XtWindow(widget),

-				  &root, &child,

-				  &root_x, &root_y, &win_x, &win_y, &modMask))

-		{

-		    /* We need to take borders into consideration */

-		    left = top = -((int) widget->core.border_width);

-		    right = (int) (widget->core.width + (widget->core.border_width << 1));

-		    bottom = (int) (widget->core.height + (widget->core.border_width << 1));

-

-		    if (win_x >= left && win_x < right &&

-			win_y >= top && win_y < bottom)

-			pwi->haveFocus = TRUE;

-		}

-	    }

-	}

-    }

-    if (pwi->haveFocus) {

-	  pdi->focusWidget = NULL; /* invalidate the cache */

-	  _XtSendFocusEvent(target, FocusIn);

-    }

-}

-

-

-/* ARGSUSED */

-static void QueryEventMask(

-    Widget widget,		/* child who gets focus */

-    XtPointer client_data,	/* ancestor giving it */

-    XEvent *event,

-    Boolean *cont)		/* unused */

-{

-    /* widget was once the target of an XtSetKeyboardFocus but

-     * was unrealized at the time.   Make sure ancestor still wants

-     * focus set here then install the handler now that we know the

-     * complete event mask.

-     */

-    Widget ancestor = (Widget)client_data;

-    XtPerWidgetInput pwi = _XtGetPerWidgetInput(ancestor, FALSE);

-

-    if (pwi) {

-	Widget target = pwi->queryEventDescendant;

-

-	/* use of 'target' is non-standard hackery;

-	   allows focus to non-widget */

-	if ( pwi->focusKid == target ) {

-	    AddFocusHandler(ancestor, target, pwi,

-			    _XtGetPerWidgetInput(GetShell(ancestor), TRUE),

-			    _XtGetPerDisplayInput(XtDisplay(ancestor)),

-			    (EventMask)0);

-	}

-	XtRemoveEventHandler(widget, XtAllEvents, True,

-			     QueryEventMask, client_data);

-	pwi->map_handler_added = FALSE;

-    }

-}

-

-

-/* ARGSUSED */

-static void FocusDestroyCallback(

-    Widget  widget,

-    XtPointer closure,		/* Widget */

-    XtPointer call_data)

-{

-    XtSetKeyboardFocus((Widget)closure, NULL);

-}

-

-void XtSetKeyboardFocus(

-    Widget widget,

-    Widget descendant)

-{

-    XtPerDisplayInput pdi;

-    XtPerWidgetInput pwi;

-    Widget oldDesc, oldTarget, target, hookobj;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    pwi = _XtGetPerWidgetInput(widget, TRUE);

-    oldDesc = pwi->focusKid;

-

-    if (descendant == widget) descendant = (Widget)None;

-

-    target = descendant ? _GetWindowedAncestor(descendant) : NULL;

-    oldTarget = oldDesc ? _GetWindowedAncestor(oldDesc) : NULL;

-

-    if (descendant != oldDesc) {

-

-	/* update the forward path */

-	pwi->focusKid = descendant;

-

-

-	/* all the rest handles focus ins and focus outs and misc gunk */

-

-	if (oldDesc) {

-	    /* invalidate FindKeyDestination's ancestor list */

-	    if (pseudoTraceDepth && oldTarget == pseudoTrace[0])

-		pseudoTraceDepth = 0;

-

-	    XtRemoveCallback(oldDesc, XtNdestroyCallback,

-			     FocusDestroyCallback, (XtPointer)widget);

-

-	    if (!oldTarget->core.being_destroyed) {

-		if (pwi->map_handler_added) {

-		    XtRemoveEventHandler(oldTarget, XtAllEvents, True,

-					 QueryEventMask, (XtPointer)widget);

-		    pwi->map_handler_added = FALSE;

-		}

-		if (pwi->haveFocus) {

-		    _XtSendFocusEvent( oldTarget, FocusOut);

-		}

-	    }

-	    else if (pwi->map_handler_added) {

-		pwi->map_handler_added = FALSE;

-	    }

-

-	    if (pwi->haveFocus)

-		pdi->focusWidget = NULL; /* invalidate cache */

-

-	    /*

-	     * If there was a forward path then remove the handler if

-	     * the path is being set to null and it isn't a shell.

-	     * shells always have a handler for tracking focus for the

-	     * hierarchy.

-	     *

-	     * Keep the pwi record on the assumption that the client

-	     * will continue to dynamically assign focus for this widget.

-	     */

-	    if (!XtIsShell(widget) && !descendant) {

-	      XtRemoveEventHandler(widget, XtAllEvents, True,

-				   _XtHandleFocus, (XtPointer)pwi);

-	      pwi->haveFocus = FALSE;

-	  }

-	}

-

-	if (descendant) {

-	    Widget shell = GetShell(widget);

-	    XtPerWidgetInput psi = _XtGetPerWidgetInput(shell, TRUE);

-	    XtAddCallback (descendant, XtNdestroyCallback,

-			   FocusDestroyCallback, (XtPointer) widget);

-

-	    AddFocusHandler(widget, descendant, pwi, psi, pdi,

-			    oldTarget ? XtBuildEventMask(oldTarget) : 0);

-

-	    if (widget != shell)

-		XtAddEventHandler(

-			shell,

-			FocusChangeMask | EnterWindowMask | LeaveWindowMask,

-			False,

-			_XtHandleFocus,

-			(XtPointer)psi

-		       );

-

-	    if (! XtIsRealized(target)) {

-		XtAddEventHandler(target, (EventMask)StructureNotifyMask,

-				  False, QueryEventMask, (XtPointer)widget);

-		pwi->map_handler_added = TRUE;

-		pwi->queryEventDescendant = descendant;

-	    }

-	}

-    }

-    hookobj = XtHooksOfDisplay(XtDisplay(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHsetKeyboardFocus;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) descendant;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

+/*
+
+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 1988 by Hewlett-Packard Company
+Copyright 1987, 1988, 1989 by Digital Equipment Corporation, Maynard, Massachusetts
+
+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 names of
+Hewlett-Packard or 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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+
+#include "PassivGraI.h"
+#include "EventI.h"
+
+#define _GetWindowedAncestor(w) (XtIsWidget(w) ? w : _XtWindowedAncestor(w))
+
+/* InActiveSubtree cache of the current focus source and its ancestors */
+static Widget	*pathTrace = NULL;
+static int	pathTraceDepth = 0;
+static int	pathTraceMax = 0;
+
+/* FindKeyDestination cache of focus destination and ancestors up to source */
+static Widget	*pseudoTrace = NULL;
+static int	pseudoTraceDepth = 0;
+static int	pseudoTraceMax = 0;
+
+void _XtClearAncestorCache(Widget widget)
+{
+    /* the caller must lock the process lock */
+    if (pathTraceDepth && pathTrace[0] == widget)
+	pathTraceDepth = 0;
+}
+
+static XtServerGrabPtr CheckServerGrabs(
+    XEvent	*event,
+    Widget	*trace,
+    Cardinal	traceDepth)
+{
+    XtServerGrabPtr 	grab;
+    Cardinal		i;
+
+    for (i = traceDepth;  i > 0; i--)
+      {
+	 if ((grab = _XtCheckServerGrabsOnWidget(event, trace[i-1], KEYBOARD)))
+	   return (grab);
+     }
+    return (XtServerGrabPtr)0;
+}
+
+static Boolean IsParent(Widget a, Widget b)
+{
+    for (b = XtParent(b); b; b = XtParent(b)) {
+      if (b == a) return TRUE;
+      if (XtIsShell(b)) return FALSE;
+    }
+    return FALSE;
+}
+
+#define RelRtn(lca, type) {*relTypeRtn = type; return lca;}
+
+static Widget CommonAncestor(
+    register Widget a,
+    register Widget b,
+    XtGeneology  * relTypeRtn)
+{
+    if (a == b)
+      {
+	  RelRtn(a, XtMySelf)
+	}
+    else if (IsParent(a, b))
+      {
+	  RelRtn(a, XtMyAncestor)
+	}
+    else if (IsParent(b, a))
+      {
+	  RelRtn(b, XtMyDescendant)
+	}
+    else
+      for (b = XtParent(b);
+	   b && !XtIsShell(b);
+	   b = XtParent(b))
+	if (IsParent(b, a))
+	  {
+	      RelRtn(b, XtMyCousin)
+	    }
+    RelRtn(NULL, XtUnrelated)
+}
+#undef RelRtn
+
+
+
+
+
+static Widget _FindFocusWidget(
+    Widget 	widget,
+    Widget	*trace,
+    int		traceDepth,
+    Boolean	activeCheck,
+    Boolean	*isTarget)
+{
+    int src;
+    Widget dst;
+    XtPerWidgetInput	pwi = NULL;
+
+    /* For each ancestor, starting at the top, see if it's forwarded */
+
+
+    /* first check the trace list till done or we go to branch */
+    for (src = traceDepth-1, dst = widget; src > 0;)
+      {
+	  if ((pwi = _XtGetPerWidgetInput(trace[src], FALSE)))
+	    {
+		if (pwi->focusKid)
+		  {
+		      dst = pwi->focusKid;
+		      for (src--; src > 0 && trace[src] != dst; src--) {}
+		  }
+		else dst = trace[--src];
+	    }
+	  else dst = trace[--src];
+      }
+
+    if (isTarget) {
+	if (pwi && pwi->focusKid == widget)
+	    *isTarget = TRUE;
+	else
+	    *isTarget = FALSE;
+    }
+
+    if (!activeCheck)
+      while (XtIsWidget(dst)
+	     && (pwi = _XtGetPerWidgetInput(dst, FALSE))
+	     && pwi->focusKid)
+	dst = pwi->focusKid;
+
+    return dst;
+}
+
+
+static Widget FindFocusWidget(
+    Widget		widget,
+    XtPerDisplayInput 	pdi)
+{
+    if (pdi->focusWidget)
+      return  pdi->focusWidget;
+    else
+      return _FindFocusWidget(widget, pdi->trace, pdi->traceDepth, FALSE, NULL);
+}
+
+Widget XtGetKeyboardFocusWidget(Widget widget)
+{
+    XtPerDisplayInput pdi;
+    Widget retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    retval = FindFocusWidget(widget, pdi);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+static Boolean IsOutside(
+    XKeyEvent	*e,
+    Widget	w)
+{
+    Position left, right, top, bottom;
+
+    /*
+     * if the pointer is outside the shell or inside
+     * the window try to see if it would recieve the
+     * focus
+     */
+    XtTranslateCoords(w, 0, 0, &left, &top);
+    /* We need to take borders into consideration */
+    left = left - w->core.border_width;
+    top =  top - w->core.border_width;
+    right = left +  w->core.width + w->core.border_width;
+    bottom = top +  w->core.height + w->core.border_width;
+
+    if (
+	(e->x_root < left) || (e->y_root < top) ||
+        (e->x_root > right) || (e->y_root > bottom))
+      return TRUE;
+    else
+      return FALSE;
+}
+
+static Widget 	FindKeyDestination(
+    Widget		widget,
+    XKeyEvent		*event,
+    XtServerGrabPtr	prevGrab,
+    XtServerGrabType 	prevGrabType,
+    XtServerGrabPtr	devGrab,
+    XtServerGrabType	devGrabType,
+    XtPerDisplayInput	pdi)
+{
+
+    Widget		dspWidget;
+    Widget		focusWidget;
+
+    LOCK_PROCESS;
+    dspWidget =
+      focusWidget =
+	pdi->focusWidget =
+	  _GetWindowedAncestor(FindFocusWidget(widget, pdi));
+
+
+    /*
+     * If a grab is active from a previous activation then dispatch
+     * based on owner_events ala protocol but with focus being
+     * determined by XtSetKeyboardFocus.
+     */
+    if 	(IsAnyGrab(prevGrabType))
+      {
+	  if (prevGrab->ownerEvents)
+	    dspWidget = focusWidget;
+	  else
+	    dspWidget = prevGrab->widget;
+      }
+    else
+      {
+	  /*
+           * If the focus widget is the event widget or a descendant
+	   * then we can avoid the rest of this. Else ugh...
+	   */
+	  if (focusWidget != widget)
+	    {
+		XtGeneology 	ewRelFw; /* relationship of event widget to
+					    focusWidget */
+		Widget		lca;
+
+		lca = CommonAncestor(widget, focusWidget, &ewRelFw);
+
+		/*
+		 * if the event widget is an ancestor of focus due to the pointer
+		 * and/or the grab being in an ancestor and it's a passive grab
+		 * send to grab widget.
+		 * we are also dispatching to widget if ownerEvents and the event
+		 * is outside the client
+		 */
+		if ((ewRelFw == XtMyAncestor) &&
+		    (devGrabType == XtPassiveServerGrab))
+		     {
+			 if (IsOutside(event, widget) ||
+			     event->type ==KeyPress
+			     )
+			   dspWidget = devGrab->widget;
+		     }
+		else
+		  {
+		      /*
+		       * if the grab widget is not an ancestor of the focus
+		       * release the grab in order to avoid locking. There
+		       * is a possible case  in that ownerEvents true will fall
+		       * through and if synch is set and the event widget
+		       * could turn it off we'll lock. check for it ? why not
+		       */
+		      if ((ewRelFw != XtMyAncestor)
+			  && (devGrabType == XtPassiveServerGrab)
+			  && (!IsAnyGrab(prevGrabType))
+			  )
+			{
+			    XtUngrabKeyboard(devGrab->widget,
+					     event->time);
+			    devGrabType = XtNoServerGrab;
+			}
+		      /*
+		       * if there isn't a grab with then check
+		       * for a logical grab that would have been activated
+		       * if the server was using Xt focus instead of server
+		       * focus
+		       */
+		      if (
+			  (event->type != KeyPress) ||
+			  (event->keycode == 0) /* Xlib XIM composed input */
+			  )
+			dspWidget = focusWidget;
+		      else
+			{
+			    XtServerGrabPtr	grab;
+
+			    if (!pseudoTraceDepth ||
+				!(focusWidget == pseudoTrace[0]) ||
+				!(lca == pseudoTrace[pseudoTraceDepth]))
+			      {
+				  /*
+				   * fill ancestor list from lca
+				   * (non-inclusive)to focusWidget by
+				   * passing in lca as breakWidget
+				   */
+				  _XtFillAncestorList(&pseudoTrace,
+						   &pseudoTraceMax,
+						   &pseudoTraceDepth,
+						   focusWidget,
+						   lca);
+				  /* ignore lca */
+				  pseudoTraceDepth--;
+			      }
+			    if ((grab = CheckServerGrabs((XEvent*)event,
+							pseudoTrace,
+							pseudoTraceDepth)))
+			      {
+				  XtDevice device = &pdi->keyboard;
+
+				  device->grabType = XtPseudoPassiveServerGrab;
+				  pdi->activatingKey = event->keycode;
+				  device->grab = *grab;
+
+				  if (grab
+				      )
+				    dspWidget = grab->widget;
+				  else
+				    dspWidget = focusWidget;
+			      }
+			}
+		  }
+	    }
+      }
+    UNLOCK_PROCESS;
+    return dspWidget;
+}
+
+Widget _XtProcessKeyboardEvent(
+    XKeyEvent  *event,
+    Widget widget,
+    XtPerDisplayInput pdi)
+{
+    XtDevice		device = &pdi->keyboard;
+    XtServerGrabPtr	newGrab, devGrab = &device->grab;
+    XtServerGrabRec	prevGrabRec;
+    XtServerGrabType	prevGrabType = device->grabType;
+    Widget		dspWidget = NULL;
+    Boolean		deactivateGrab = FALSE;
+
+    prevGrabRec = *devGrab;
+
+    switch (event->type)
+      {
+	case KeyPress:
+	  {
+	      if (event->keycode != 0 && /* Xlib XIM composed input */
+		  !IsServerGrab(device->grabType) &&
+		  (newGrab = CheckServerGrabs((XEvent*)event,
+					      pdi->trace,
+					      pdi->traceDepth)))
+		{
+		    /*
+		     * honor pseudo-grab from prior event by X
+		     * unlocking keyboard. Not Xt Unlock !
+		     */
+		    if (IsPseudoGrab(prevGrabType))
+		      XUngrabKeyboard(XtDisplay(newGrab->widget),
+				      event->time);
+		    else
+		      {
+			  /* Activate the grab */
+			  device->grab = *newGrab;
+			  pdi->activatingKey = event->keycode;
+			  device->grabType = XtPassiveServerGrab;
+		      }
+		}
+	    }
+	  break;
+
+	case KeyRelease:
+	  {
+	      if (IsEitherPassiveGrab(device->grabType) &&
+		  (event->keycode == pdi->activatingKey))
+		deactivateGrab = TRUE;
+	  }
+	  break;
+      }
+    dspWidget = FindKeyDestination(widget, event,
+				   &prevGrabRec, prevGrabType,
+				   devGrab, device->grabType,
+				   pdi);
+    if (deactivateGrab)
+      {
+	  /* Deactivate the grab */
+	  device->grabType = XtNoServerGrab;
+	  pdi->activatingKey = 0;
+      }
+    return dspWidget;
+}
+
+static Widget GetShell(Widget widget)
+{
+    Widget	shell;
+
+    for (shell = widget;
+	 shell && !XtIsShell(shell);
+	 shell = XtParent(shell)){}
+    return shell;
+}
+
+
+/*
+ * Check that widget really has Xt focus due to it having recieved an
+ * event
+ */
+typedef enum {NotActive = 0, IsActive, IsTarget} ActiveType;
+static ActiveType InActiveSubtree(Widget widget)
+{
+    Boolean		isTarget;
+    ActiveType		retval;
+
+    LOCK_PROCESS;
+    if (!pathTraceDepth || widget != pathTrace[0]) {
+	_XtFillAncestorList(&pathTrace,
+			    &pathTraceMax,
+			    &pathTraceDepth,
+			    widget,
+			    NULL);
+    }
+    if (widget == _FindFocusWidget(widget,
+				   pathTrace,
+				   pathTraceDepth,
+				   TRUE,
+				   &isTarget))
+	retval = (isTarget ? IsTarget : IsActive);
+    else
+	retval = NotActive;
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+
+
+
+/* ARGSUSED */
+void _XtHandleFocus(
+    Widget widget,
+    XtPointer client_data,	/* child who wants focus */
+    XEvent *event,
+    Boolean *cont)		/* unused */
+{
+    XtPerDisplayInput 	pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    XtPerWidgetInput	pwi = (XtPerWidgetInput)client_data;
+    XtGeneology		oldFocalPoint = pwi->focalPoint;
+    XtGeneology		newFocalPoint = pwi->focalPoint;
+
+    switch( event->type ) {
+
+      case KeyPress:
+      case KeyRelease:
+	/*
+	 * We're getting the keyevents used to guarantee propagating
+         * child interest ala ForwardEvent in R3
+	 */
+	return;
+
+      case EnterNotify:
+      case LeaveNotify:
+
+	/*
+	 * If operating in a focus driven model, then enter and
+	 * leave events do not affect the keyboard focus.
+	 */
+	if ((event->xcrossing.detail != NotifyInferior)
+	    &&	(event->xcrossing.focus))
+	  {
+	      switch (oldFocalPoint)
+		{
+		  case XtMyAncestor:
+		    if (event->type == LeaveNotify)
+		      newFocalPoint = XtUnrelated;
+		    break;
+		  case XtUnrelated:
+		    if (event->type == EnterNotify)
+		      newFocalPoint = XtMyAncestor;
+		    break;
+		  case XtMySelf:
+		    break;
+		  case XtMyDescendant:
+		    break;
+
+		}
+	  }
+	break;
+      case FocusIn:
+	switch (event->xfocus.detail)
+	  {
+	    case NotifyNonlinear:
+	    case NotifyAncestor:
+	    case NotifyInferior:
+	      newFocalPoint = XtMySelf;
+	      break;
+	    case NotifyNonlinearVirtual:
+	    case NotifyVirtual:
+	      newFocalPoint = XtMyDescendant;
+	      break;
+	    case NotifyPointer:
+	      newFocalPoint = XtMyAncestor;
+	      break;
+	  }
+	break;
+      case FocusOut:
+	switch (event->xfocus.detail)
+	  {
+	    case NotifyPointer:
+	    case NotifyNonlinear:
+	    case NotifyAncestor:
+	    case NotifyNonlinearVirtual:
+	    case NotifyVirtual:
+	      newFocalPoint = XtUnrelated;
+	      break;
+	    case NotifyInferior:
+	      newFocalPoint = XtMyDescendant;
+	      return;
+	      break;
+	  }
+	break;
+    }
+
+    if (newFocalPoint != oldFocalPoint)
+      {
+	  Boolean 	add;
+	  Widget	descendant = pwi->focusKid;
+
+	  pwi->focalPoint = newFocalPoint;
+
+	  if ((oldFocalPoint == XtUnrelated) &&
+	      InActiveSubtree(widget) != NotActive)
+	    {
+		pdi->focusWidget = NULL; /* invalidate the cache */
+		pwi->haveFocus = TRUE;
+		add = TRUE;
+	    }
+	  else if (newFocalPoint == XtUnrelated)
+	    {
+		pdi->focusWidget = NULL; /* invalidate the cache */
+		pwi->haveFocus = FALSE;
+		add = FALSE;
+	    }
+	  else
+	    return;
+
+	  if (descendant)
+	    {
+		if (add)
+		  {
+		      _XtSendFocusEvent(descendant, FocusIn);
+		  }
+		else
+		  {
+		      _XtSendFocusEvent(descendant, FocusOut);
+		  }
+	    }
+      }
+}
+
+
+static void AddFocusHandler(
+    Widget widget,
+    Widget descendant,
+    XtPerWidgetInput pwi,
+    XtPerWidgetInput psi,
+    XtPerDisplayInput pdi,
+    EventMask oldEventMask)
+{
+    EventMask	 	eventMask, targetEventMask;
+    Widget		target;
+
+    /*
+     * widget must now select for key events if the descendant is
+     * interested in them.
+     *
+     * shell borders are not occluded by the child, they're occluded
+     * by reparenting window managers. !!!
+     */
+    target = descendant ? _GetWindowedAncestor(descendant) : NULL;
+    targetEventMask = XtBuildEventMask(target);
+    eventMask = targetEventMask & (KeyPressMask | KeyReleaseMask);
+    eventMask |= FocusChangeMask | EnterWindowMask | LeaveWindowMask;
+
+    if (oldEventMask) {
+	oldEventMask &= KeyPressMask | KeyReleaseMask;
+	oldEventMask |= FocusChangeMask | EnterWindowMask | LeaveWindowMask;
+
+	if (oldEventMask != eventMask)
+	    XtRemoveEventHandler(widget, (oldEventMask & ~eventMask),
+				 False, _XtHandleFocus, (XtPointer)pwi);
+    }
+
+    if (oldEventMask != eventMask)
+	XtAddEventHandler(widget, eventMask, False,
+			  _XtHandleFocus, (XtPointer)pwi);
+
+    /* What follows is too much grief to go through if the
+     * target doesn't actually care about focus change events,
+     * so just invalidate the focus cache & refill it when
+     * the next input event actually arrives.
+     */
+
+    if (!(targetEventMask & FocusChangeMask)) {
+	pdi->focusWidget = NULL;
+	return;
+    }
+
+    if (XtIsRealized(widget) && !pwi->haveFocus) {
+	if (psi->haveFocus) {
+	    Window root, child;
+	    int root_x, root_y, win_x, win_y;
+	    int left, right, top, bottom;
+	    unsigned int modMask;
+	    ActiveType act;
+
+	    /*
+	     * If the shell has the focus but the source widget
+	     * doesn't, it may only be because the source widget
+	     * wasn't previously tracking focus or crossing events.
+	     * If the target wants focus events, we have to
+	     * now determine whether the source has the focus.
+	     */
+
+	    if ((act = InActiveSubtree(widget)) == IsTarget)
+		pwi->haveFocus = TRUE;
+	    else if (act == IsActive) {
+		/*
+		 * An ancestor contains the focus, so if source
+		 * contains the pointer, then source has the focus.
+		 */
+
+		if (XQueryPointer(XtDisplay(widget), XtWindow(widget),
+				  &root, &child,
+				  &root_x, &root_y, &win_x, &win_y, &modMask))
+		{
+		    /* We need to take borders into consideration */
+		    left = top = -((int) widget->core.border_width);
+		    right = (int) (widget->core.width + (widget->core.border_width << 1));
+		    bottom = (int) (widget->core.height + (widget->core.border_width << 1));
+
+		    if (win_x >= left && win_x < right &&
+			win_y >= top && win_y < bottom)
+			pwi->haveFocus = TRUE;
+		}
+	    }
+	}
+    }
+    if (pwi->haveFocus) {
+	  pdi->focusWidget = NULL; /* invalidate the cache */
+	  _XtSendFocusEvent(target, FocusIn);
+    }
+}
+
+
+/* ARGSUSED */
+static void QueryEventMask(
+    Widget widget,		/* child who gets focus */
+    XtPointer client_data,	/* ancestor giving it */
+    XEvent *event,
+    Boolean *cont)		/* unused */
+{
+    /* widget was once the target of an XtSetKeyboardFocus but
+     * was unrealized at the time.   Make sure ancestor still wants
+     * focus set here then install the handler now that we know the
+     * complete event mask.
+     */
+    Widget ancestor = (Widget)client_data;
+    XtPerWidgetInput pwi = _XtGetPerWidgetInput(ancestor, FALSE);
+
+    if (pwi) {
+	Widget target = pwi->queryEventDescendant;
+
+	/* use of 'target' is non-standard hackery;
+	   allows focus to non-widget */
+	if ( pwi->focusKid == target ) {
+	    AddFocusHandler(ancestor, target, pwi,
+			    _XtGetPerWidgetInput(GetShell(ancestor), TRUE),
+			    _XtGetPerDisplayInput(XtDisplay(ancestor)),
+			    (EventMask)0);
+	}
+	XtRemoveEventHandler(widget, XtAllEvents, True,
+			     QueryEventMask, client_data);
+	pwi->map_handler_added = FALSE;
+    }
+}
+
+
+/* ARGSUSED */
+static void FocusDestroyCallback(
+    Widget  widget,
+    XtPointer closure,		/* Widget */
+    XtPointer call_data)
+{
+    XtSetKeyboardFocus((Widget)closure, NULL);
+}
+
+void XtSetKeyboardFocus(
+    Widget widget,
+    Widget descendant)
+{
+    XtPerDisplayInput pdi;
+    XtPerWidgetInput pwi;
+    Widget oldDesc, oldTarget, target, hookobj;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    pwi = _XtGetPerWidgetInput(widget, TRUE);
+    oldDesc = pwi->focusKid;
+
+    if (descendant == widget) descendant = (Widget)None;
+
+    target = descendant ? _GetWindowedAncestor(descendant) : NULL;
+    oldTarget = oldDesc ? _GetWindowedAncestor(oldDesc) : NULL;
+
+    if (descendant != oldDesc) {
+
+	/* update the forward path */
+	pwi->focusKid = descendant;
+
+
+	/* all the rest handles focus ins and focus outs and misc gunk */
+
+	if (oldDesc) {
+	    /* invalidate FindKeyDestination's ancestor list */
+	    if (pseudoTraceDepth && oldTarget == pseudoTrace[0])
+		pseudoTraceDepth = 0;
+
+	    XtRemoveCallback(oldDesc, XtNdestroyCallback,
+			     FocusDestroyCallback, (XtPointer)widget);
+
+	    if (!oldTarget->core.being_destroyed) {
+		if (pwi->map_handler_added) {
+		    XtRemoveEventHandler(oldTarget, XtAllEvents, True,
+					 QueryEventMask, (XtPointer)widget);
+		    pwi->map_handler_added = FALSE;
+		}
+		if (pwi->haveFocus) {
+		    _XtSendFocusEvent( oldTarget, FocusOut);
+		}
+	    }
+	    else if (pwi->map_handler_added) {
+		pwi->map_handler_added = FALSE;
+	    }
+
+	    if (pwi->haveFocus)
+		pdi->focusWidget = NULL; /* invalidate cache */
+
+	    /*
+	     * If there was a forward path then remove the handler if
+	     * the path is being set to null and it isn't a shell.
+	     * shells always have a handler for tracking focus for the
+	     * hierarchy.
+	     *
+	     * Keep the pwi record on the assumption that the client
+	     * will continue to dynamically assign focus for this widget.
+	     */
+	    if (!XtIsShell(widget) && !descendant) {
+	      XtRemoveEventHandler(widget, XtAllEvents, True,
+				   _XtHandleFocus, (XtPointer)pwi);
+	      pwi->haveFocus = FALSE;
+	  }
+	}
+
+	if (descendant) {
+	    Widget shell = GetShell(widget);
+	    XtPerWidgetInput psi = _XtGetPerWidgetInput(shell, TRUE);
+	    XtAddCallback (descendant, XtNdestroyCallback,
+			   FocusDestroyCallback, (XtPointer) widget);
+
+	    AddFocusHandler(widget, descendant, pwi, psi, pdi,
+			    oldTarget ? XtBuildEventMask(oldTarget) : 0);
+
+	    if (widget != shell)
+		XtAddEventHandler(
+			shell,
+			FocusChangeMask | EnterWindowMask | LeaveWindowMask,
+			False,
+			_XtHandleFocus,
+			(XtPointer)psi
+		       );
+
+	    if (! XtIsRealized(target)) {
+		XtAddEventHandler(target, (EventMask)StructureNotifyMask,
+				  False, QueryEventMask, (XtPointer)widget);
+		pwi->map_handler_added = TRUE;
+		pwi->queryEventDescendant = descendant;
+	    }
+	}
+    }
+    hookobj = XtHooksOfDisplay(XtDisplay(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHsetKeyboardFocus;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) descendant;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
diff --git a/libXt/src/Makefile.am b/libXt/src/Makefile.am
index a0d888b26..2b39ec541 100644
--- a/libXt/src/Makefile.am
+++ b/libXt/src/Makefile.am
@@ -1,105 +1,105 @@
-lib_LTLIBRARIES = libXt.la

-

-BUILT_SOURCES = $(BUILT_FILES)

-CLEANFILES = $(BUILT_SOURCES)

-

-SRCH_DEFINES = -DXFILESEARCHPATHDEFAULT=\"$(XFILESEARCHPATHDEFAULT)\"

-ERRORDB_DEFINES = -DERRORDB=\"$(libdir)/X11/XtErrorDB\"

-

-AM_CFLAGS = $(CWARNFLAGS) $(XT_CFLAGS) $(SRCH_DEFINES) $(ERRORDB_DEFINES) \

-	$(XTMALLOC_ZERO_CFLAGS)

-

-INCLUDES = -I$(top_srcdir)/include/ -I$(top_srcdir)/include/X11 \

-	   -I$(top_builddir)/include -I$(top_builddir)/include/X11

-

-nodist_libXt_la_SOURCES = StringDefs.c

-

-libXt_la_SOURCES = \

-	ActionHook.c \

-	Alloc.c \

-	ArgList.c \

-	Callback.c \

-	ClickTime.c \

-	Composite.c \

-	Constraint.c \

-	Convert.c \

-	Converters.c \

-	Core.c \

-	Create.c \

-	Destroy.c \

-	Display.c \

-	Error.c \

-	Event.c \

-	EventUtil.c \

-	Functions.c \

-	GCManager.c \

-	Geometry.c \

-	GetActKey.c \

-	GetResList.c \

-	GetValues.c \

-	HookObj.c \

-	Hooks.c \

-	Initialize.c \

-	Intrinsic.c \

-	Keyboard.c \

-	Manage.c \

-	NextEvent.c \

-	Object.c \

-	PassivGrab.c \

-	Pointer.c \

-	Popup.c \

-	PopupCB.c \

-	RectObj.c \

-	ResConfig.c \

-	Resources.c \

-	Selection.c \

-	SetSens.c \

-	SetValues.c \

-	SetWMCW.c \

-	Shell.c \

-	TMaction.c \

-	TMgrab.c \

-	TMkey.c \

-	TMparse.c \

-	TMprint.c \

-	TMstate.c \

-	Threads.c \

-	VarCreate.c \

-	VarGet.c \

-	Varargs.c \

-	Vendor.c \

-	sharedlib.c

-

-DISTCLEANFILES = StringDefs.c

-

-libXt_la_LIBADD = @XT_LIBS@

-

-libXt_la_LDFLAGS = -version-number 6:0:0 -no-undefined

-

-#

-# The util directory contains a program that builds some of the sources. 

-# The input to this program is given in files. Unfortunately those input

-# files refers to things like

-# 

-# 	util/foo

-# 

-# so the generating program must be run from the top directory.

-# 

-

-BUILT_SOURCE = StringDefs.c 

-BUILT_HEADER = $(top_builddir)/include/X11/StringDefs.h $(top_builddir)/include/X11/Shell.h

-BUILT_FILES = $(BUILT_SOURCE) $(BUILT_HEADER)

-

-STRING_LIST = $(top_srcdir)/util/string.list

-

-all-local: $(BUILT_FILES)

-

-$(BUILT_HEADER): $(BUILT_SOURCE)

-

-$(BUILT_SOURCE):

-	$(AM_V_GEN)$(top_builddir)/util/makestrs -i $(top_srcdir) $(STRINGSABIOPTIONS) < $(STRING_LIST) > StringDefs.c

-	$(AM_V_at)mkdir -p $(top_builddir)/src

-	$(AM_V_at)mkdir -p $(top_builddir)/include/X11

-	$(AM_V_at)cp StringDefs.h $(top_builddir)/include/X11

-	$(AM_V_at)cp Shell.h $(top_builddir)/include/X11

-	$(AM_V_at)rm StringDefs.h Shell.h

+lib_LTLIBRARIES = libXt.la
+
+BUILT_SOURCES = $(BUILT_FILES)
+CLEANFILES = $(BUILT_SOURCES)
+
+SRCH_DEFINES = -DXFILESEARCHPATHDEFAULT=\"$(XFILESEARCHPATHDEFAULT)\"
+ERRORDB_DEFINES = -DERRORDB=\"$(libdir)/X11/XtErrorDB\"
+
+AM_CFLAGS = $(CWARNFLAGS) $(XT_CFLAGS) $(SRCH_DEFINES) $(ERRORDB_DEFINES) \
+	$(XTMALLOC_ZERO_CFLAGS)
+
+INCLUDES = -I$(top_srcdir)/include/ -I$(top_srcdir)/include/X11 \
+	   -I$(top_builddir)/include -I$(top_builddir)/include/X11
+
+nodist_libXt_la_SOURCES = StringDefs.c
+
+libXt_la_SOURCES = \
+	ActionHook.c \
+	Alloc.c \
+	ArgList.c \
+	Callback.c \
+	ClickTime.c \
+	Composite.c \
+	Constraint.c \
+	Convert.c \
+	Converters.c \
+	Core.c \
+	Create.c \
+	Destroy.c \
+	Display.c \
+	Error.c \
+	Event.c \
+	EventUtil.c \
+	Functions.c \
+	GCManager.c \
+	Geometry.c \
+	GetActKey.c \
+	GetResList.c \
+	GetValues.c \
+	HookObj.c \
+	Hooks.c \
+	Initialize.c \
+	Intrinsic.c \
+	Keyboard.c \
+	Manage.c \
+	NextEvent.c \
+	Object.c \
+	PassivGrab.c \
+	Pointer.c \
+	Popup.c \
+	PopupCB.c \
+	RectObj.c \
+	ResConfig.c \
+	Resources.c \
+	Selection.c \
+	SetSens.c \
+	SetValues.c \
+	SetWMCW.c \
+	Shell.c \
+	TMaction.c \
+	TMgrab.c \
+	TMkey.c \
+	TMparse.c \
+	TMprint.c \
+	TMstate.c \
+	Threads.c \
+	VarCreate.c \
+	VarGet.c \
+	Varargs.c \
+	Vendor.c \
+	sharedlib.c
+
+DISTCLEANFILES = StringDefs.c
+
+libXt_la_LIBADD = @XT_LIBS@
+
+libXt_la_LDFLAGS = -version-number 6:0:0 -no-undefined
+
+#
+# The util directory contains a program that builds some of the sources. 
+# The input to this program is given in files. Unfortunately those input
+# files refers to things like
+# 
+# 	util/foo
+# 
+# so the generating program must be run from the top directory.
+# 
+
+BUILT_SOURCE = StringDefs.c 
+BUILT_HEADER = $(top_builddir)/include/X11/StringDefs.h $(top_builddir)/include/X11/Shell.h
+BUILT_FILES = $(BUILT_SOURCE) $(BUILT_HEADER)
+
+STRING_LIST = $(top_srcdir)/util/string.list
+
+all-local: $(BUILT_FILES)
+
+$(BUILT_HEADER): $(BUILT_SOURCE)
+
+$(BUILT_SOURCE):
+	$(AM_V_GEN)$(top_builddir)/util/makestrs -i $(top_srcdir) $(STRINGSABIOPTIONS) < $(STRING_LIST) > StringDefs.c
+	$(AM_V_at)mkdir -p $(top_builddir)/src
+	$(AM_V_at)mkdir -p $(top_builddir)/include/X11
+	$(AM_V_at)cp StringDefs.h $(top_builddir)/include/X11
+	$(AM_V_at)cp Shell.h $(top_builddir)/include/X11
+	$(AM_V_at)rm StringDefs.h Shell.h
diff --git a/libXt/src/Manage.c b/libXt/src/Manage.c
index 4145a8a6c..575be7dfe 100644
--- a/libXt/src/Manage.c
+++ b/libXt/src/Manage.c
@@ -1,499 +1,499 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-

-static String XtNinvalidChild = "invalidChild";

-static String XtNxtUnmanageChildren = "xtUnmanageChildren";

-static String XtNxtManageChildren = "xtManageChildren";

-static String XtNxtChangeManagedSet = "xtChangeManagedSet";

-

-static void UnmanageChildren(

-    WidgetList children,

-    Cardinal num_children,

-    Widget parent,

-    Cardinal* num_unique_children,

-    Boolean call_change_managed,

-    String caller_func)

-{

-    Widget		child;

-    Cardinal		i;

-    XtWidgetProc	change_managed = NULL;

-    Bool		parent_realized = False;

-

-    *num_unique_children = 0;

-

-    if (XtIsComposite((Widget) parent)) {

-	LOCK_PROCESS;

-        change_managed = ((CompositeWidgetClass) parent->core.widget_class)

-		    ->composite_class.change_managed;

-	UNLOCK_PROCESS;

-	parent_realized = XtIsRealized((Widget)parent);

-    } else {

-        XtAppErrorMsg(XtWidgetToApplicationContext((Widget)parent),

-		      "invalidParent",caller_func, XtCXtToolkitError,

-		   "Attempt to unmanage a child when parent is not Composite",

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

-    }

-

-    for (i = 0; i < num_children; i++) {

-	child = children[i];

-	if (child == NULL) {

-	    XtAppWarningMsg(XtWidgetToApplicationContext(parent),

-		  XtNinvalidChild,caller_func,XtCXtToolkitError,

-                  "Null child passed to XtUnmanageChildren",

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

-	    return;

-	}

-        if (child->core.parent != parent) {

-	   XtAppWarningMsg(XtWidgetToApplicationContext(parent),

-		   "ambiguousParent",caller_func,XtCXtToolkitError,

-           "Not all children have same parent in UnmanageChildren",

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

-	} else

-        if (child->core.managed) {

-            (*num_unique_children)++;

-	    CALLGEOTAT(_XtGeoTrace(child,"Child \"%s\" is marked unmanaged\n",

-			   XtName(child)));

-	    child->core.managed = FALSE;

-            if (XtIsWidget(child)

-		&& XtIsRealized(child)

-		&& child->core.mapped_when_managed)

-                    XtUnmapWidget(child);

-            else

-	    { /* RectObj child */

-		Widget pw = child->core.parent;

-		RectObj r = (RectObj) child;

-		while ((pw!=NULL) && (!XtIsWidget(pw))) pw = pw->core.parent;

-		if ((pw!=NULL) && XtIsRealized (pw))

-		    XClearArea (XtDisplay (pw), XtWindow (pw),

-			r->rectangle.x, r->rectangle.y,

-			r->rectangle.width + (r->rectangle.border_width << 1),

-			r->rectangle.height + (r->rectangle.border_width << 1),

-			TRUE);

-	    }

-

-        }

-    }

-    if (call_change_managed && *num_unique_children != 0 &&

-	change_managed != NULL && parent_realized) {

-	CALLGEOTAT(_XtGeoTrace((Widget)parent,

-		       "Call parent: \"%s\"[%d,%d]'s changemanaged proc\n",

-		       XtName((Widget)parent),

-		       parent->core.width,parent->core.height));

-	(*change_managed) (parent);

-    }

-} /* UnmanageChildren */

-

-void XtUnmanageChildren (

-    WidgetList children,

-    Cardinal num_children)

-{

-    Widget parent, hookobj;

-    Cardinal ii;

-#ifdef XTHREADS

-    XtAppContext app;

-#endif

-

-    if (num_children == 0) return;

-    if (children[0] == NULL) {

-	XtWarningMsg(XtNinvalidChild,XtNxtUnmanageChildren,XtCXtToolkitError,

-		     "Null child found in argument list to unmanage",

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

-	return;

-    }

-#ifdef XTHREADS

-    app = XtWidgetToApplicationContext(children[0]);

-#endif

-    LOCK_APP(app);

-    parent = children[0]->core.parent;

-    if (parent->core.being_destroyed) {

-	UNLOCK_APP(app);

-	return;

-    }

-    UnmanageChildren(children, num_children, parent, &ii,

-		     (Boolean)True, XtNxtUnmanageChildren);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(children[0]));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHunmanageChildren;

-	call_data.widget = parent;

-	call_data.event_data = (XtPointer) children;

-	call_data.num_event_data = num_children;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtUnmanageChildren */

-

-void XtUnmanageChild(

-    Widget child)

-{

-    XtUnmanageChildren(&child, (Cardinal)1);

-} /* XtUnmanageChild */

-

-

-static void ManageChildren(

-    WidgetList  children,

-    Cardinal    num_children,

-    Widget	parent,

-    Boolean	call_change_managed,

-    String	caller_func)

-{

-#define MAXCHILDREN 100

-    Widget		child;

-    Cardinal		num_unique_children, i;

-    XtWidgetProc	change_managed = NULL;

-    WidgetList		unique_children;

-    Widget		cache[MAXCHILDREN];

-    Bool		parent_realized = False;

-

-    if (XtIsComposite((Widget) parent)) {

-	LOCK_PROCESS;

-        change_managed = ((CompositeWidgetClass) parent->core.widget_class)

-		    ->composite_class.change_managed;

-	UNLOCK_PROCESS;

-	parent_realized = XtIsRealized((Widget)parent);

-    } else {

-	XtAppErrorMsg(XtWidgetToApplicationContext((Widget)parent),

-		"invalidParent",caller_func, XtCXtToolkitError,

-	    "Attempt to manage a child when parent is not Composite",

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

-    }

-

-    /* Construct new list of children that really need to be operated upon. */

-    if (num_children <= MAXCHILDREN) {

-	unique_children = cache;

-    } else {

-	unique_children = (WidgetList) __XtMalloc(num_children * sizeof(Widget));

-    }

-    num_unique_children = 0;

-    for (i = 0; i < num_children; i++) {

-	child = children[i];

-	if (child == NULL) {

-	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget)parent),

-		XtNinvalidChild,caller_func,XtCXtToolkitError,

-		"null child passed to ManageChildren",

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

-	    if (unique_children != cache) XtFree((char *) unique_children);

-	    return;

-	}

-#ifdef DEBUG

-	if (!XtIsRectObj(child)) {

-	    String params[2];

-	    Cardinal num_params = 2;

-	    params[0] = XtName(child);

-	    params[1] = child->core.widget_class->core_class.class_name;

-	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget)parent),

-			    "notRectObj",caller_func,XtCXtToolkitError,

-			    "child \"%s\", class %s is not a RectObj",

-			    params, &num_params);

-	    continue;

-	}

-#endif /*DEBUG*/

-        if (child->core.parent != parent) {

-	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget)parent),

-		    "ambiguousParent",caller_func,XtCXtToolkitError,

-		"Not all children have same parent in XtManageChildren",

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

-	} else if (! child->core.managed && !child->core.being_destroyed) {

-	    unique_children[num_unique_children++] = child;

-	    CALLGEOTAT(_XtGeoTrace(child,

-			   "Child \"%s\"[%d,%d] is marked managed\n",

-			   XtName(child),

-			   child->core.width,child->core.height));

-	    child->core.managed = TRUE;

-	}

-    }

-

-    if ((call_change_managed || num_unique_children != 0) && parent_realized) {

-	/* Compute geometry of new managed set of children. */

-	if (change_managed != NULL) {

-	    CALLGEOTAT(_XtGeoTrace((Widget)parent,

-			   "Call parent: \"%s\"[%d,%d]'s changemanaged\n",

-			   XtName((Widget)parent),

-			   parent->core.width,parent->core.height));

-	    (*change_managed) ((Widget)parent);

-	}

-

-	/* Realize each child if necessary, then map if necessary */

-	for (i = 0; i < num_unique_children; i++) {

-	    child = unique_children[i];

-	    if (XtIsWidget(child)) {

-		if (! XtIsRealized(child)) XtRealizeWidget(child);

-		if (child->core.mapped_when_managed) XtMapWidget(child);

-	    } else { /* RectObj child */

-		Widget pw = child->core.parent;

-		RectObj r = (RectObj) child;

-		while ((pw!=NULL) && (!XtIsWidget(pw)))

-		    pw = pw->core.parent;

-		if (pw != NULL)

-		    XClearArea (XtDisplay (pw), XtWindow (pw),

-		    r->rectangle.x, r->rectangle.y,

-		    r->rectangle.width + (r->rectangle.border_width << 1),

-		    r->rectangle.height + (r->rectangle.border_width << 1),

-		    TRUE);

-            }

-        }

-    }

-

-    if (unique_children != cache) XtFree((char *) unique_children);

-} /* ManageChildren */

-

-void XtManageChildren(

-    WidgetList children,

-    Cardinal num_children)

-{

-    Widget parent, hookobj;

-#ifdef XTHREADS

-    XtAppContext app;

-#endif

-

-    if (num_children == 0) return;

-    if (children[0] == NULL) {

-	XtWarningMsg(XtNinvalidChild, XtNxtManageChildren, XtCXtToolkitError,

-		     "null child passed to XtManageChildren",

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

-	return;

-    }

-#ifdef XTHREADS

-    app = XtWidgetToApplicationContext(children[0]);

-#endif

-    LOCK_APP(app);

-    parent = children[0]->core.parent;

-    if (parent->core.being_destroyed) {

-	UNLOCK_APP(app);

-	return;

-    }

-    ManageChildren(children, num_children, parent, (Boolean)False,

-		   XtNxtManageChildren);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(children[0]));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHmanageChildren;

-	call_data.widget = parent;

-	call_data.event_data = (XtPointer) children;

-	call_data.num_event_data = num_children;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtManageChildren */

-

-void XtManageChild(

-    Widget child)

-{

-    XtManageChildren(&child, (Cardinal) 1);

-} /* XtManageChild */

-

-

-void XtSetMappedWhenManaged(

-    Widget widget,

-    _XtBoolean mapped_when_managed)

-{

-    Widget hookobj;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (widget->core.mapped_when_managed == mapped_when_managed) {

-	UNLOCK_APP(app);

-	return;

-    }

-    widget->core.mapped_when_managed = mapped_when_managed;

-

-    hookobj = XtHooksOfDisplay(XtDisplay(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHsetMappedWhenManaged;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) (unsigned long) mapped_when_managed;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-

-    if (! XtIsManaged(widget)) {

-	UNLOCK_APP(app);

-	return;

-    }

-

-    if (mapped_when_managed) {

-	/* Didn't used to be mapped when managed.		*/

-	if (XtIsRealized(widget)) XtMapWidget(widget);

-    } else {

-	/* Used to be mapped when managed.			*/

-	if (XtIsRealized(widget)) XtUnmapWidget(widget);

-    }

-    UNLOCK_APP(app);

-} /* XtSetMappedWhenManaged */

-

-

-void XtChangeManagedSet(

-    WidgetList unmanage_children,

-    Cardinal num_unmanage,

-    XtDoChangeProc do_change_proc,

-    XtPointer client_data,

-    WidgetList manage_children,

-    Cardinal num_manage)

-{

-    WidgetList childp;

-    Widget parent;

-    int i;

-    Cardinal some_unmanaged;

-    Boolean call_out;

-    CompositeClassExtension ext;

-    XtAppContext app;

-    Widget hookobj;

-    XtChangeHookDataRec call_data;

-

-    if (num_unmanage == 0 && num_manage == 0)

-	return;

-

-    /* specification doesn't state that library will check for NULL in list */

-

-    childp = num_unmanage ? unmanage_children : manage_children;

-    app = XtWidgetToApplicationContext(*childp);

-    LOCK_APP(app);

-

-    parent = XtParent(*childp);

-    childp = unmanage_children;

-    for (i = num_unmanage; --i >= 0 && XtParent(*childp) == parent; childp++);

-    call_out = (i >= 0);

-    childp = manage_children;

-    for (i = num_manage;   --i >= 0 && XtParent(*childp) == parent; childp++);

-    if (call_out || i >= 0) {

-	XtAppWarningMsg(app, "ambiguousParent", XtNxtChangeManagedSet,

-			XtCXtToolkitError, "Not all children have same parent",

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

-    }

-    if (! XtIsComposite(parent)) {

-	UNLOCK_APP(app);

-	XtAppErrorMsg(app, "invalidParent", XtNxtChangeManagedSet,

-		      XtCXtToolkitError,

-		      "Attempt to manage a child when parent is not Composite",

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

-    }

-    if (parent->core.being_destroyed) {

-	UNLOCK_APP(app);

-	return;

-    }

-

-    call_out = False;

-    if (do_change_proc) {

-	ext = (CompositeClassExtension)

-	    XtGetClassExtension(parent->core.widget_class,

-				XtOffsetOf(CompositeClassRec,

-					   composite_class.extension),

-				NULLQUARK, XtCompositeExtensionVersion,

-				sizeof(CompositeClassExtensionRec));

-	if (!ext || !ext->allows_change_managed_set)

-	    call_out = True;

-    }

-

-    UnmanageChildren(unmanage_children, num_unmanage, parent,

-		     &some_unmanaged, call_out, XtNxtChangeManagedSet);

-

-    hookobj = XtHooksOfDisplay(XtDisplay(parent));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	call_data.type = XtHunmanageSet;

-	call_data.widget = parent;

-	call_data.event_data = (XtPointer) unmanage_children;

-	call_data.num_event_data = num_unmanage;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer) &call_data);

-    }

-

-    if (do_change_proc)

-	(*do_change_proc)(parent, unmanage_children, &num_unmanage,

-			  manage_children, &num_manage, client_data);

-

-    call_out = (some_unmanaged && !call_out);

-    ManageChildren(manage_children, num_manage, parent, call_out,

-		   XtNxtChangeManagedSet);

-

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	call_data.type = XtHmanageSet;

-	call_data.event_data = (XtPointer) manage_children;

-	call_data.num_event_data = num_manage;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer) &call_data);

-    }

-    UNLOCK_APP(app);

-} /* XtChangeManagedSet */

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+
+static String XtNinvalidChild = "invalidChild";
+static String XtNxtUnmanageChildren = "xtUnmanageChildren";
+static String XtNxtManageChildren = "xtManageChildren";
+static String XtNxtChangeManagedSet = "xtChangeManagedSet";
+
+static void UnmanageChildren(
+    WidgetList children,
+    Cardinal num_children,
+    Widget parent,
+    Cardinal* num_unique_children,
+    Boolean call_change_managed,
+    String caller_func)
+{
+    Widget		child;
+    Cardinal		i;
+    XtWidgetProc	change_managed = NULL;
+    Bool		parent_realized = False;
+
+    *num_unique_children = 0;
+
+    if (XtIsComposite((Widget) parent)) {
+	LOCK_PROCESS;
+        change_managed = ((CompositeWidgetClass) parent->core.widget_class)
+		    ->composite_class.change_managed;
+	UNLOCK_PROCESS;
+	parent_realized = XtIsRealized((Widget)parent);
+    } else {
+        XtAppErrorMsg(XtWidgetToApplicationContext((Widget)parent),
+		      "invalidParent",caller_func, XtCXtToolkitError,
+		   "Attempt to unmanage a child when parent is not Composite",
+		      (String *) NULL, (Cardinal *) NULL);
+    }
+
+    for (i = 0; i < num_children; i++) {
+	child = children[i];
+	if (child == NULL) {
+	    XtAppWarningMsg(XtWidgetToApplicationContext(parent),
+		  XtNinvalidChild,caller_func,XtCXtToolkitError,
+                  "Null child passed to XtUnmanageChildren",
+		  (String *)NULL, (Cardinal *)NULL);
+	    return;
+	}
+        if (child->core.parent != parent) {
+	   XtAppWarningMsg(XtWidgetToApplicationContext(parent),
+		   "ambiguousParent",caller_func,XtCXtToolkitError,
+           "Not all children have same parent in UnmanageChildren",
+             (String *)NULL, (Cardinal *)NULL);
+	} else
+        if (child->core.managed) {
+            (*num_unique_children)++;
+	    CALLGEOTAT(_XtGeoTrace(child,"Child \"%s\" is marked unmanaged\n",
+			   XtName(child)));
+	    child->core.managed = FALSE;
+            if (XtIsWidget(child)
+		&& XtIsRealized(child)
+		&& child->core.mapped_when_managed)
+                    XtUnmapWidget(child);
+            else
+	    { /* RectObj child */
+		Widget pw = child->core.parent;
+		RectObj r = (RectObj) child;
+		while ((pw!=NULL) && (!XtIsWidget(pw))) pw = pw->core.parent;
+		if ((pw!=NULL) && XtIsRealized (pw))
+		    XClearArea (XtDisplay (pw), XtWindow (pw),
+			r->rectangle.x, r->rectangle.y,
+			r->rectangle.width + (r->rectangle.border_width << 1),
+			r->rectangle.height + (r->rectangle.border_width << 1),
+			TRUE);
+	    }
+
+        }
+    }
+    if (call_change_managed && *num_unique_children != 0 &&
+	change_managed != NULL && parent_realized) {
+	CALLGEOTAT(_XtGeoTrace((Widget)parent,
+		       "Call parent: \"%s\"[%d,%d]'s changemanaged proc\n",
+		       XtName((Widget)parent),
+		       parent->core.width,parent->core.height));
+	(*change_managed) (parent);
+    }
+} /* UnmanageChildren */
+
+void XtUnmanageChildren (
+    WidgetList children,
+    Cardinal num_children)
+{
+    Widget parent, hookobj;
+    Cardinal ii;
+#ifdef XTHREADS
+    XtAppContext app;
+#endif
+
+    if (num_children == 0) return;
+    if (children[0] == NULL) {
+	XtWarningMsg(XtNinvalidChild,XtNxtUnmanageChildren,XtCXtToolkitError,
+		     "Null child found in argument list to unmanage",
+		     (String *)NULL, (Cardinal *)NULL);
+	return;
+    }
+#ifdef XTHREADS
+    app = XtWidgetToApplicationContext(children[0]);
+#endif
+    LOCK_APP(app);
+    parent = children[0]->core.parent;
+    if (parent->core.being_destroyed) {
+	UNLOCK_APP(app);
+	return;
+    }
+    UnmanageChildren(children, num_children, parent, &ii,
+		     (Boolean)True, XtNxtUnmanageChildren);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(children[0]));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHunmanageChildren;
+	call_data.widget = parent;
+	call_data.event_data = (XtPointer) children;
+	call_data.num_event_data = num_children;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtUnmanageChildren */
+
+void XtUnmanageChild(
+    Widget child)
+{
+    XtUnmanageChildren(&child, (Cardinal)1);
+} /* XtUnmanageChild */
+
+
+static void ManageChildren(
+    WidgetList  children,
+    Cardinal    num_children,
+    Widget	parent,
+    Boolean	call_change_managed,
+    String	caller_func)
+{
+#define MAXCHILDREN 100
+    Widget		child;
+    Cardinal		num_unique_children, i;
+    XtWidgetProc	change_managed = NULL;
+    WidgetList		unique_children;
+    Widget		cache[MAXCHILDREN];
+    Bool		parent_realized = False;
+
+    if (XtIsComposite((Widget) parent)) {
+	LOCK_PROCESS;
+        change_managed = ((CompositeWidgetClass) parent->core.widget_class)
+		    ->composite_class.change_managed;
+	UNLOCK_PROCESS;
+	parent_realized = XtIsRealized((Widget)parent);
+    } else {
+	XtAppErrorMsg(XtWidgetToApplicationContext((Widget)parent),
+		"invalidParent",caller_func, XtCXtToolkitError,
+	    "Attempt to manage a child when parent is not Composite",
+	    (String *) NULL, (Cardinal *) NULL);
+    }
+
+    /* Construct new list of children that really need to be operated upon. */
+    if (num_children <= MAXCHILDREN) {
+	unique_children = cache;
+    } else {
+	unique_children = (WidgetList) __XtMalloc(num_children * sizeof(Widget));
+    }
+    num_unique_children = 0;
+    for (i = 0; i < num_children; i++) {
+	child = children[i];
+	if (child == NULL) {
+	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget)parent),
+		XtNinvalidChild,caller_func,XtCXtToolkitError,
+		"null child passed to ManageChildren",
+		(String *)NULL, (Cardinal *)NULL);
+	    if (unique_children != cache) XtFree((char *) unique_children);
+	    return;
+	}
+#ifdef DEBUG
+	if (!XtIsRectObj(child)) {
+	    String params[2];
+	    Cardinal num_params = 2;
+	    params[0] = XtName(child);
+	    params[1] = child->core.widget_class->core_class.class_name;
+	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget)parent),
+			    "notRectObj",caller_func,XtCXtToolkitError,
+			    "child \"%s\", class %s is not a RectObj",
+			    params, &num_params);
+	    continue;
+	}
+#endif /*DEBUG*/
+        if (child->core.parent != parent) {
+	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget)parent),
+		    "ambiguousParent",caller_func,XtCXtToolkitError,
+		"Not all children have same parent in XtManageChildren",
+		(String *)NULL, (Cardinal *)NULL);
+	} else if (! child->core.managed && !child->core.being_destroyed) {
+	    unique_children[num_unique_children++] = child;
+	    CALLGEOTAT(_XtGeoTrace(child,
+			   "Child \"%s\"[%d,%d] is marked managed\n",
+			   XtName(child),
+			   child->core.width,child->core.height));
+	    child->core.managed = TRUE;
+	}
+    }
+
+    if ((call_change_managed || num_unique_children != 0) && parent_realized) {
+	/* Compute geometry of new managed set of children. */
+	if (change_managed != NULL) {
+	    CALLGEOTAT(_XtGeoTrace((Widget)parent,
+			   "Call parent: \"%s\"[%d,%d]'s changemanaged\n",
+			   XtName((Widget)parent),
+			   parent->core.width,parent->core.height));
+	    (*change_managed) ((Widget)parent);
+	}
+
+	/* Realize each child if necessary, then map if necessary */
+	for (i = 0; i < num_unique_children; i++) {
+	    child = unique_children[i];
+	    if (XtIsWidget(child)) {
+		if (! XtIsRealized(child)) XtRealizeWidget(child);
+		if (child->core.mapped_when_managed) XtMapWidget(child);
+	    } else { /* RectObj child */
+		Widget pw = child->core.parent;
+		RectObj r = (RectObj) child;
+		while ((pw!=NULL) && (!XtIsWidget(pw)))
+		    pw = pw->core.parent;
+		if (pw != NULL)
+		    XClearArea (XtDisplay (pw), XtWindow (pw),
+		    r->rectangle.x, r->rectangle.y,
+		    r->rectangle.width + (r->rectangle.border_width << 1),
+		    r->rectangle.height + (r->rectangle.border_width << 1),
+		    TRUE);
+            }
+        }
+    }
+
+    if (unique_children != cache) XtFree((char *) unique_children);
+} /* ManageChildren */
+
+void XtManageChildren(
+    WidgetList children,
+    Cardinal num_children)
+{
+    Widget parent, hookobj;
+#ifdef XTHREADS
+    XtAppContext app;
+#endif
+
+    if (num_children == 0) return;
+    if (children[0] == NULL) {
+	XtWarningMsg(XtNinvalidChild, XtNxtManageChildren, XtCXtToolkitError,
+		     "null child passed to XtManageChildren",
+		     (String*)NULL, (Cardinal*)NULL);
+	return;
+    }
+#ifdef XTHREADS
+    app = XtWidgetToApplicationContext(children[0]);
+#endif
+    LOCK_APP(app);
+    parent = children[0]->core.parent;
+    if (parent->core.being_destroyed) {
+	UNLOCK_APP(app);
+	return;
+    }
+    ManageChildren(children, num_children, parent, (Boolean)False,
+		   XtNxtManageChildren);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(children[0]));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHmanageChildren;
+	call_data.widget = parent;
+	call_data.event_data = (XtPointer) children;
+	call_data.num_event_data = num_children;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtManageChildren */
+
+void XtManageChild(
+    Widget child)
+{
+    XtManageChildren(&child, (Cardinal) 1);
+} /* XtManageChild */
+
+
+void XtSetMappedWhenManaged(
+    Widget widget,
+    _XtBoolean mapped_when_managed)
+{
+    Widget hookobj;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (widget->core.mapped_when_managed == mapped_when_managed) {
+	UNLOCK_APP(app);
+	return;
+    }
+    widget->core.mapped_when_managed = mapped_when_managed;
+
+    hookobj = XtHooksOfDisplay(XtDisplay(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHsetMappedWhenManaged;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) (unsigned long) mapped_when_managed;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+
+    if (! XtIsManaged(widget)) {
+	UNLOCK_APP(app);
+	return;
+    }
+
+    if (mapped_when_managed) {
+	/* Didn't used to be mapped when managed.		*/
+	if (XtIsRealized(widget)) XtMapWidget(widget);
+    } else {
+	/* Used to be mapped when managed.			*/
+	if (XtIsRealized(widget)) XtUnmapWidget(widget);
+    }
+    UNLOCK_APP(app);
+} /* XtSetMappedWhenManaged */
+
+
+void XtChangeManagedSet(
+    WidgetList unmanage_children,
+    Cardinal num_unmanage,
+    XtDoChangeProc do_change_proc,
+    XtPointer client_data,
+    WidgetList manage_children,
+    Cardinal num_manage)
+{
+    WidgetList childp;
+    Widget parent;
+    int i;
+    Cardinal some_unmanaged;
+    Boolean call_out;
+    CompositeClassExtension ext;
+    XtAppContext app;
+    Widget hookobj;
+    XtChangeHookDataRec call_data;
+
+    if (num_unmanage == 0 && num_manage == 0)
+	return;
+
+    /* specification doesn't state that library will check for NULL in list */
+
+    childp = num_unmanage ? unmanage_children : manage_children;
+    app = XtWidgetToApplicationContext(*childp);
+    LOCK_APP(app);
+
+    parent = XtParent(*childp);
+    childp = unmanage_children;
+    for (i = num_unmanage; --i >= 0 && XtParent(*childp) == parent; childp++);
+    call_out = (i >= 0);
+    childp = manage_children;
+    for (i = num_manage;   --i >= 0 && XtParent(*childp) == parent; childp++);
+    if (call_out || i >= 0) {
+	XtAppWarningMsg(app, "ambiguousParent", XtNxtChangeManagedSet,
+			XtCXtToolkitError, "Not all children have same parent",
+			(String *)NULL, (Cardinal *)NULL);
+    }
+    if (! XtIsComposite(parent)) {
+	UNLOCK_APP(app);
+	XtAppErrorMsg(app, "invalidParent", XtNxtChangeManagedSet,
+		      XtCXtToolkitError,
+		      "Attempt to manage a child when parent is not Composite",
+		      (String *) NULL, (Cardinal *) NULL);
+    }
+    if (parent->core.being_destroyed) {
+	UNLOCK_APP(app);
+	return;
+    }
+
+    call_out = False;
+    if (do_change_proc) {
+	ext = (CompositeClassExtension)
+	    XtGetClassExtension(parent->core.widget_class,
+				XtOffsetOf(CompositeClassRec,
+					   composite_class.extension),
+				NULLQUARK, XtCompositeExtensionVersion,
+				sizeof(CompositeClassExtensionRec));
+	if (!ext || !ext->allows_change_managed_set)
+	    call_out = True;
+    }
+
+    UnmanageChildren(unmanage_children, num_unmanage, parent,
+		     &some_unmanaged, call_out, XtNxtChangeManagedSet);
+
+    hookobj = XtHooksOfDisplay(XtDisplay(parent));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	call_data.type = XtHunmanageSet;
+	call_data.widget = parent;
+	call_data.event_data = (XtPointer) unmanage_children;
+	call_data.num_event_data = num_unmanage;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer) &call_data);
+    }
+
+    if (do_change_proc)
+	(*do_change_proc)(parent, unmanage_children, &num_unmanage,
+			  manage_children, &num_manage, client_data);
+
+    call_out = (some_unmanaged && !call_out);
+    ManageChildren(manage_children, num_manage, parent, call_out,
+		   XtNxtChangeManagedSet);
+
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	call_data.type = XtHmanageSet;
+	call_data.event_data = (XtPointer) manage_children;
+	call_data.num_event_data = num_manage;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer) &call_data);
+    }
+    UNLOCK_APP(app);
+} /* XtChangeManagedSet */
diff --git a/libXt/src/NextEvent.c b/libXt/src/NextEvent.c
index 9828d14f5..181d20e87 100644
--- a/libXt/src/NextEvent.c
+++ b/libXt/src/NextEvent.c
@@ -1,1625 +1,1625 @@
-/***********************************************************

-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, 1994, 1998, 2001  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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include <stdio.h>

-#include <errno.h>

-

-#ifdef __UNIXOS2__

-#include <sys/time.h>

-#endif

-

-static TimerEventRec* freeTimerRecs;

-static WorkProcRec* freeWorkRecs;

-static SignalEventRec* freeSignalRecs;

-

-/* Some systems running NTP daemons are known to return strange usec

- * values from gettimeofday.

- */

-

-#ifndef NEEDS_NTPD_FIXUP

-# if defined(sun) || defined(MOTOROLA) || (defined(__osf__) && defined(__alpha))

-#  define NEEDS_NTPD_FIXUP 1

-# else

-#  define NEEDS_NTPD_FIXUP 0

-# endif

-#endif

-

-#if NEEDS_NTPD_FIXUP

-#define FIXUP_TIMEVAL(t) { \

-	while ((t).tv_usec >= 1000000) { \

-	    (t).tv_usec -= 1000000; \

-	    (t).tv_sec++; \

-	} \

-	while ((t).tv_usec < 0) { \

-	    if ((t).tv_sec > 0) { \

-		(t).tv_usec += 1000000; \

-		(t).tv_sec--; \

-	    } else { \

-		(t).tv_usec = 0; \

-		break; \

-	    } \

-	}}

-#else

-#define FIXUP_TIMEVAL(t)

-#endif /*NEEDS_NTPD_FIXUP*/

-

-/*

- * Private routines

- */

-#define ADD_TIME(dest, src1, src2) { \

-	if(((dest).tv_usec = (src1).tv_usec + (src2).tv_usec) >= 1000000) {\

-	      (dest).tv_usec -= 1000000;\

-	      (dest).tv_sec = (src1).tv_sec + (src2).tv_sec + 1 ; \

-	} else { (dest).tv_sec = (src1).tv_sec + (src2).tv_sec ; \

-	   if(((dest).tv_sec >= 1) && (((dest).tv_usec <0))) { \

-	    (dest).tv_sec --;(dest).tv_usec += 1000000; } } }

-

-

-#define TIMEDELTA(dest, src1, src2) { \

-	if(((dest).tv_usec = (src1).tv_usec - (src2).tv_usec) < 0) {\

-	      (dest).tv_usec += 1000000;\

-	      (dest).tv_sec = (src1).tv_sec - (src2).tv_sec - 1;\

-	} else 	(dest).tv_sec = (src1).tv_sec - (src2).tv_sec;  }

-

-#define IS_AFTER(t1, t2) (((t2).tv_sec > (t1).tv_sec) \

-	|| (((t2).tv_sec == (t1).tv_sec)&& ((t2).tv_usec > (t1).tv_usec)))

-

-#define IS_AT_OR_AFTER(t1, t2) (((t2).tv_sec > (t1).tv_sec) \

-	|| (((t2).tv_sec == (t1).tv_sec)&& ((t2).tv_usec >= (t1).tv_usec)))

-

-#ifdef USE_POLL

-#ifndef XT_DEFAULT_FDLIST_SIZE

-#define XT_DEFAULT_FDLIST_SIZE 32

-#endif

-#endif

-

-static void AdjustHowLong (

-	unsigned long *howlong,

-	struct timeval *start_time)

-{

-	struct timeval new_time, time_spent, lstart_time;

-

-	lstart_time = *start_time;

-	X_GETTIMEOFDAY (&new_time);

-	FIXUP_TIMEVAL(new_time);

-	TIMEDELTA(time_spent, new_time, lstart_time);

-	if(*howlong <= (unsigned long)(time_spent.tv_sec*1000+time_spent.tv_usec/1000))

-	    *howlong = (unsigned long)0;  /* Timed out */

-	else

-	    *howlong -= (time_spent.tv_sec*1000+time_spent.tv_usec/1000);

-}

-

-typedef struct {

-    struct timeval cur_time;

-    struct timeval start_time;

-    struct timeval wait_time;

-    struct timeval new_time;

-    struct timeval time_spent;

-    struct timeval max_wait_time;

-#ifndef USE_POLL

-    struct timeval *wait_time_ptr;

-#else

-    int poll_wait;

-#endif

-} wait_times_t, *wait_times_ptr_t;

-

-static struct timeval  zero_time = { 0 , 0};

-#ifndef USE_POLL

-static fd_set zero_fd;

-#else

-#define X_BLOCK -1

-#define X_DONT_BLOCK 0

-#endif

-

-static void InitTimes (

-    Boolean block,

-    unsigned long* howlong,

-    wait_times_ptr_t wt)

-{

-    if (block) {

-	X_GETTIMEOFDAY (&wt->cur_time);

-	FIXUP_TIMEVAL(wt->cur_time);

-	wt->start_time = wt->cur_time;

-	if(howlong == NULL) { /* special case for ever */

-#ifndef USE_POLL

-	    wt->wait_time_ptr = NULL;

-#else

-	    wt->poll_wait = X_BLOCK;

-#endif

-	} else { /* block until at most */

-	    wt->max_wait_time.tv_sec = *howlong/1000;

-	    wt->max_wait_time.tv_usec = (*howlong %1000)*1000;

-#ifndef USE_POLL

-	    wt->wait_time_ptr = &wt->max_wait_time;

-#else

-	    wt->poll_wait = *howlong;

-#endif

-	}

-    } else {  /* don't block */

-	wt->max_wait_time = zero_time;

-#ifndef USE_POLL

-	wt->wait_time_ptr = &wt->max_wait_time;

-#else

-	wt->poll_wait = X_DONT_BLOCK;

-#endif

-    }

-}

-

-typedef struct {

-#ifndef USE_POLL

-    fd_set rmask, wmask, emask;

-    int nfds;

-#else

-    struct pollfd* fdlist;

-    struct pollfd* stack;

-    int fdlistlen, num_dpys;

-#endif

-} wait_fds_t, *wait_fds_ptr_t;

-

-static void InitFds (

-    XtAppContext app,

-    Boolean ignoreEvents,

-    Boolean ignoreInputs,

-    wait_fds_ptr_t wf)

-{

-    int ii;

-    app->rebuild_fdlist = FALSE;

-#ifndef USE_POLL

-    wf->nfds = app->fds.nfds;

-    if( !ignoreInputs ) {

-	wf->rmask = app->fds.rmask;

-	wf->wmask = app->fds.wmask;

-	wf->emask = app->fds.emask;

-     } else

-	wf->rmask = wf->wmask = wf->emask = zero_fd;

-

-     if (!ignoreEvents)

-	for (ii = 0; ii < app->count; ii++) {

-	    FD_SET (ConnectionNumber(app->list[ii]), &wf->rmask);

-	}

-#else

-#ifndef POLLRDNORM

-#define POLLRDNORM 0

-#endif

-

-#ifndef POLLRDBAND

-#define POLLRDBAND 0

-#endif

-

-#ifndef POLLWRNORM

-#define POLLWRNORM 0

-#endif

-

-#ifndef POLLWRBAND

-#define POLLWRBAND 0

-#endif

-

-#define XPOLL_READ (POLLIN|POLLRDNORM|POLLPRI|POLLRDBAND)

-#define XPOLL_WRITE (POLLOUT|POLLWRNORM|POLLWRBAND)

-#define XPOLL_EXCEPT 0

-

-    if (!ignoreEvents)

-	wf->fdlistlen = wf->num_dpys = app->count;

-    else

-	wf->fdlistlen = wf->num_dpys = 0;

-

-    if (!ignoreInputs && app->input_list != NULL) {

-	int ii;

-	for (ii = 0; ii < (int) app->input_max; ii++)

-	    if (app->input_list[ii] != NULL)

-		wf->fdlistlen++;

-    }

-

-    if (!wf->fdlist || wf->fdlist == wf->stack) {

-	wf->fdlist = (struct pollfd*)

-	    XtStackAlloc (sizeof (struct pollfd) * wf->fdlistlen, wf->stack);

-    } else {

-	wf->fdlist = (struct pollfd*)

-	    XtRealloc ((char*) wf->fdlist,

-		       sizeof (struct pollfd) * wf->fdlistlen);

-    }

-

-    if (wf->fdlistlen) {

-	struct pollfd* fdlp = wf->fdlist;

-	InputEvent* iep;

-

-	if (!ignoreEvents)

-	    for (ii = 0 ; ii < wf->num_dpys; ii++, fdlp++) {

-		fdlp->fd = ConnectionNumber (app->list[ii]);

-		fdlp->events = POLLIN;

-	    }

-	if (!ignoreInputs && app->input_list != NULL)

-	    for (ii = 0; ii < app->input_max; ii++)

-		if (app->input_list[ii] != NULL) {

-		    iep = app->input_list[ii];

-		    fdlp->fd = ii;

-		    fdlp->events = 0;

-		    for ( ; iep; iep = iep->ie_next) {

-			if (iep->ie_condition & XtInputReadMask)

-			    fdlp->events |= XPOLL_READ;

-			if (iep->ie_condition & XtInputWriteMask)

-			    fdlp->events |= XPOLL_WRITE;

-			if (iep->ie_condition & XtInputExceptMask)

-			    fdlp->events |= XPOLL_EXCEPT;

-		    }

-		    fdlp++;

-		}

-    }

-#endif

-}

-

-static void AdjustTimes (

-    XtAppContext app,

-    Boolean block,

-    unsigned long* howlong,

-    Boolean ignoreTimers,

-    wait_times_ptr_t wt)

-{

-    if (app->timerQueue != NULL && !ignoreTimers && block) {

-	if (IS_AFTER (wt->cur_time, app->timerQueue->te_timer_value)) {

-	    TIMEDELTA (wt->wait_time, app->timerQueue->te_timer_value, wt->cur_time);

-	    if (howlong == NULL || IS_AFTER (wt->wait_time, wt->max_wait_time))

-#ifndef USE_POLL

-		wt->wait_time_ptr = &wt->wait_time;

-	    else

-		wt->wait_time_ptr = &wt->max_wait_time;

-	} else

-	    wt->wait_time_ptr = &zero_time;

-    }

-#else

-		wt->poll_wait = wt->wait_time.tv_sec * 1000 + wt->wait_time.tv_usec / 1000;

-	    else

-		wt->poll_wait = wt->max_wait_time.tv_sec * 1000 + wt->max_wait_time.tv_usec / 1000;

-	} else

-	    wt->poll_wait = X_DONT_BLOCK;

-    }

-#endif

-}

-

-

-static int IoWait (

-    wait_times_ptr_t wt,

-    wait_fds_ptr_t wf)

-{

-#ifndef USE_POLL

-    return Select (wf->nfds, &wf->rmask, &wf->wmask, &wf->emask,

-		   wt->wait_time_ptr);

-#else

-    return poll (wf->fdlist, wf->fdlistlen, wt->poll_wait);

-#endif

-}

-

-

-static void FindInputs (

-    XtAppContext app,

-    wait_fds_ptr_t wf,

-    int nfds,

-    Boolean ignoreEvents,

-    Boolean ignoreInputs,

-    int* dpy_no,

-    int* found_input)

-{

-    XtInputMask condition;

-    InputEvent *ep;

-    int ii;

-#ifndef USE_POLL /* { check ready file descriptors block */

-#ifdef XTHREADS

-    fd_set rmask;

-#endif

-    int dd;

-    *dpy_no = -1;

-    *found_input = False;

-

-#ifdef XTHREADS

-    rmask = app->fds.rmask;

-    for (dd = app->count; dd-- > 0; )

-	FD_SET (ConnectionNumber (app->list[dd]), &rmask);

-#endif

-

-    for (ii = 0; ii < wf->nfds && nfds > 0; ii++) {

-	condition = 0;

-	if (FD_ISSET (ii, &wf->rmask)

-#ifdef XTHREADS

-	    && FD_ISSET (ii, &rmask)

-#endif

-	) {

-	    nfds--;

-	    if (!ignoreEvents) {

-		for (dd = 0; dd < app->count; dd++) {

-		    if (ii == ConnectionNumber (app->list[dd])) {

-			if (*dpy_no == -1) {

-			    if (XEventsQueued (app->list[dd], QueuedAfterReading ))

-				*dpy_no = dd;

-				/*

-				 * An error event could have arrived

-				 * without any real events, or events

-				 * could have been swallowed by Xlib,

-				 * or the connection may be broken.

-				 * We can't tell the difference, so

-				 * assume Xlib will eventually discover

-				 * a broken connection.

-				 */

-			}

-			goto ENDILOOP;

-		    }

-		}

-	    }

-	    condition = XtInputReadMask;

-	}

-	if (FD_ISSET (ii, &wf->wmask)

-#ifdef XTHREADS

-	    && FD_ISSET (ii, &app->fds.wmask)

-#endif

-	) {

-	    condition |= XtInputWriteMask;

-	    nfds--;

-	}

-	if (FD_ISSET (ii, &wf->emask)

-#ifdef XTHREADS

-	    && FD_ISSET (ii, &app->fds.emask)

-#endif

-	) {

-	    condition |= XtInputExceptMask;

-	    nfds--;

-	}

-	if (condition) {

-	    for (ep = app->input_list[ii]; ep; ep = ep->ie_next)

-		if (condition & ep->ie_condition) {

-		    /* make sure this input isn't already marked outstanding */

-		    InputEvent	*oq;

-		    for (oq = app->outstandingQueue; oq; oq = oq->ie_oq)

-			if (oq == ep)

-			    break;

-		    if (!oq)

-		    {

-			ep->ie_oq = app->outstandingQueue;

-			app->outstandingQueue = ep;

-		    }

-		}

-	    *found_input = True;

-	}

-ENDILOOP:   ;

-    } /* endfor */

-#else /* }{ */

-    struct pollfd* fdlp;

-

-    *dpy_no = -1;

-    *found_input = False;

-

-    if (!ignoreEvents) {

-	fdlp = wf->fdlist;

-	for (ii = 0; ii < wf->num_dpys; ii++, fdlp++) {

-	    if (*dpy_no == -1 && fdlp->revents & (POLLIN|POLLHUP|POLLERR) &&

-#ifdef XTHREADS

-		!(fdlp->revents & POLLNVAL) &&

-#endif

-		XEventsQueued (app->list[ii], QueuedAfterReading)) {

-		*dpy_no = ii;

-		break;

-	    }

-	}

-    }

-

-    if (!ignoreInputs) {

-	fdlp = &wf->fdlist[wf->num_dpys];

-	for (ii = wf->num_dpys; ii < wf->fdlistlen; ii++, fdlp++) {

-	    condition = 0;

-	    if (fdlp->revents) {

-		if (fdlp->revents & (XPOLL_READ|POLLHUP|POLLERR)

-#ifdef XTHREADS

-		    && !(fdlp->revents & POLLNVAL)

-#endif

-		)

-		    condition = XtInputReadMask;

-		if (fdlp->revents & XPOLL_WRITE)

-		    condition |= XtInputWriteMask;

-		if (fdlp->revents & XPOLL_EXCEPT)

-		    condition |= XtInputExceptMask;

-	    }

-	    if (condition) {

-		*found_input = True;

-		for (ep = app->input_list[fdlp->fd]; ep; ep = ep->ie_next)

-		    if (condition & ep->ie_condition) {

-			InputEvent	*oq;

-			/* make sure this input isn't already marked outstanding */

-			for (oq = app->outstandingQueue; oq; oq = oq->ie_oq)

-			    if (oq == ep)

-				break;

-			if (!oq)

-			{

-			    ep->ie_oq = app->outstandingQueue;

-			    app->outstandingQueue = ep;

-			}

-		    }

-	    }

-	}

-    }

-#endif /* } */

-}

-

-/*

- * Routine to block in the toolkit.  This should be the only call to select.

- *

- * This routine returns when there is something to be done.

- *

- * Before calling this with ignoreInputs==False, app->outstandingQueue should

- * be checked; this routine will not verify that an alternate input source

- * has not already been enqueued.

- *

- *

- * _XtWaitForSomething( appContext,

- *                      ignoreEvent, ignoreTimers, ignoreInputs, ignoreSignals,

- *			block, drop_lock, howlong)

- * XtAppContext app;	     (Displays to check wait on)

- *

- * Boolean ignoreEvents;     (Don't return if XEvents are available

- *                              Also implies forget XEvents exist)

- *

- * Boolean ignoreTimers;     (Ditto for timers)

- *

- * Boolean ignoreInputs;     (Ditto for input callbacks )

- *

- * Boolean ignoreSignals;    (Ditto for signals)

- *

- * Boolean block;	     (Okay to block)

- *

- * Boolean drop_lock         (drop lock before going into select/poll)

- *

- * TimeVal howlong;	     (howlong to wait for if blocking and not

- *				doing Timers... Null means forever.

- *				Maybe should mean shortest of both)

- * Returns display for which input is available, if any

- * and if ignoreEvents==False, else returns -1

- *

- * if ignoring everything && block=True && howlong=NULL, you'll have

- * lots of time for coffee; better not try it!  In fact, it probably

- * makes little sense to do this regardless of the value of howlong

- * (bottom line is, we don't bother checking here).

- *

- * If drop_lock is FALSE, the app->lock->mutex is not unlocked before

- * entering select/poll. It is illegal for drop_lock to be FALSE if

- * ignoreTimers, ignoreInputs, or ignoreSignals is FALSE.

- */

-int _XtWaitForSomething(

-    XtAppContext app,

-    _XtBoolean ignoreEvents,

-    _XtBoolean ignoreTimers,

-    _XtBoolean ignoreInputs,

-    _XtBoolean ignoreSignals,

-    _XtBoolean block,

-#ifdef XTHREADS

-    _XtBoolean drop_lock,

-#endif

-    unsigned long *howlong)

-{

-    wait_times_t wt;

-    wait_fds_t wf;

-    int nfds, dpy_no, found_input, dd;

-#ifdef XTHREADS

-    Boolean push_thread = TRUE;

-    Boolean pushed_thread = FALSE;

-    int level = 0;

-#endif

-#ifdef USE_POLL

-    struct pollfd fdlist[XT_DEFAULT_FDLIST_SIZE];

-#endif

-

-#ifdef XTHREADS

-    /* assert ((ignoreTimers && ignoreInputs && ignoreSignals) || drop_lock); */

-    /* If not multi-threaded, never drop lock */

-    if (app->lock == (ThreadAppProc) NULL)

-	drop_lock = FALSE;

-#endif

-

-    InitTimes (block, howlong, &wt);

-

-#ifdef USE_POLL

-    wf.fdlist = NULL;

-    wf.stack = fdlist;

-    wf.fdlistlen = wf.num_dpys = 0;

-#endif

-

-WaitLoop:

-    app->rebuild_fdlist = TRUE;

-

-    while (1) {

-	AdjustTimes (app, block, howlong, ignoreTimers, &wt);

-

-	if (block && app->block_hook_list) {

-	    BlockHook hook;

-	    for (hook = app->block_hook_list;

-		 hook != NULL;

-		 hook = hook->next)

-		(*hook->proc) (hook->closure);

-

-	    if (!ignoreEvents)

-		/* see if the hook(s) generated any protocol */

-		for (dd = 0; dd < app->count; dd++)

-		    if (XEventsQueued(app->list[dd], QueuedAlready)) {

-#ifdef USE_POLL

-			XtStackFree ((XtPointer) wf.fdlist, fdlist);

-#endif

-			return dd;

-		    }

-	}

-

-	if (app->rebuild_fdlist)

-	    InitFds (app, ignoreEvents, ignoreInputs, &wf);

-

-#ifdef XTHREADS /* { */

-	if (drop_lock) {

-	    YIELD_APP_LOCK(app, &push_thread, &pushed_thread, &level);

-	    nfds = IoWait (&wt, &wf);

-	    RESTORE_APP_LOCK(app, level, &pushed_thread);

-	} else

-#endif /* } */

-	nfds = IoWait (&wt, &wf);

-	if (nfds == -1) {

-	    /*

-	     *  interrupt occured recalculate time value and wait again.

-	     */

-	    if (errno == EINTR || errno == EAGAIN) {

-		if (errno == EAGAIN) {

-		    errno = 0;  /* errno is not self reseting */

-		    continue;

-		}

-	        errno = 0;  /* errno is not self reseting */

-

-		/* was it interrupted by a signal that we care about? */

-		if (!ignoreSignals && app->signalQueue != NULL) {

-		    SignalEventRec *se_ptr = app->signalQueue;

-		    while (se_ptr != NULL) {

-			if (se_ptr->se_notice) {

-			    if (block && howlong != NULL)

-				AdjustHowLong (howlong, &wt.start_time);

-#ifdef USE_POLL

-			    XtStackFree ((XtPointer) wf.fdlist, fdlist);

-#endif

-			    return -1;

-			}

-			se_ptr = se_ptr->se_next;

-		    }

-		}

-

-		if (!ignoreEvents)

-		    /* get Xlib to detect a bad connection */

-		    for (dd = 0; dd < app->count; dd++)

-			if (XEventsQueued(app->list[dd], QueuedAfterReading)) {

-#ifdef USE_POLL

-			    XtStackFree ((XtPointer) wf.fdlist, fdlist);

-#endif

-			    return dd;

-			}

-

-		if (block) {

-#ifndef USE_POLL

-		    if (wt.wait_time_ptr == NULL)

-#else

-		    if (wt.poll_wait == X_BLOCK)

-#endif

-			continue;

-		    X_GETTIMEOFDAY (&wt.new_time);

-		    FIXUP_TIMEVAL (wt.new_time);

-		    TIMEDELTA (wt.time_spent, wt.new_time, wt.cur_time);

-		    wt.cur_time = wt.new_time;

-#ifndef USE_POLL

-		    if (IS_AFTER (wt.time_spent, *wt.wait_time_ptr)) {

-			TIMEDELTA (wt.wait_time, *wt.wait_time_ptr, wt.time_spent);

-			wt.wait_time_ptr = &wt.wait_time;

-			continue;

-		    } else

-#else

-		    if ((wt.time_spent.tv_sec * 1000 + wt.time_spent.tv_usec / 1000) < wt.poll_wait) {

-			wt.poll_wait -= (wt.time_spent.tv_sec * 1000 + wt.time_spent.tv_usec / 1000);

-			continue;

-		    } else

-#endif

-			nfds = 0;

-		}

-	    } else {

-		char Errno[12];

-		String param = Errno;

-		Cardinal param_count = 1;

-

-		sprintf( Errno, "%d", errno);

-		XtAppWarningMsg(app, "communicationError","select",

-			XtCXtToolkitError,"Select failed; error code %s",

-			&param, &param_count);

-		continue;

-	    }

-	} /* timed out or input available */

-	break;

-    }

-

-    if (nfds == 0) {

-	/* Timed out */

-	if (howlong)

-	    *howlong = (unsigned long)0;

-#ifdef USE_POLL

-	XtStackFree ((XtPointer) wf.fdlist, fdlist);

-#endif

-	return -1;

-    }

-

-    if (block && howlong != NULL)

-	AdjustHowLong (howlong, &wt.start_time);

-

-    if (ignoreInputs && ignoreEvents) {

-#ifdef USE_POLL

-	XtStackFree ((XtPointer) wf.fdlist, fdlist);

-#endif

-	return -1;

-    } else

-	FindInputs (app, &wf, nfds,

-		    ignoreEvents, ignoreInputs,

-		    &dpy_no, &found_input);

-

-    if (dpy_no >= 0 || found_input) {

-#ifdef USE_POLL

-	XtStackFree ((XtPointer) wf.fdlist, fdlist);

-#endif

-	return dpy_no;

-    }

-    goto WaitLoop;

-}

-

-#define IeCallProc(ptr) \

-    (*ptr->ie_proc) (ptr->ie_closure, &ptr->ie_source, (XtInputId*)&ptr);

-

-#define TeCallProc(ptr) \

-    (*ptr->te_proc) (ptr->te_closure, (XtIntervalId*)&ptr);

-

-#define SeCallProc(ptr) \

-    (*ptr->se_proc) (ptr->se_closure, (XtSignalId*)&ptr);

-

-/*

- * Public Routines

- */

-

-XtIntervalId XtAddTimeOut(

-	unsigned long interval,

-	XtTimerCallbackProc proc,

-	XtPointer closure)

-{

-	return XtAppAddTimeOut(_XtDefaultAppContext(),

-		interval, proc, closure);

-}

-

-static void QueueTimerEvent(

-    XtAppContext app,

-    TimerEventRec *ptr)

-{

-        TimerEventRec *t,**tt;

-        tt = &app->timerQueue;

-        t  = *tt;

-        while (t != NULL &&

-                IS_AFTER(t->te_timer_value, ptr->te_timer_value)) {

-          tt = &t->te_next;

-          t  = *tt;

-         }

-         ptr->te_next = t;

-         *tt = ptr;

-}

-

-XtIntervalId XtAppAddTimeOut(

-	XtAppContext app,

-	unsigned long interval,

-	XtTimerCallbackProc proc,

-	XtPointer closure)

-{

-	TimerEventRec *tptr;

-	struct timeval current_time;

-

-	LOCK_APP(app);

-	LOCK_PROCESS;

-	if (freeTimerRecs) {

-	    tptr = freeTimerRecs;

-	    freeTimerRecs = tptr->te_next;

-	}

-	else tptr = XtNew(TimerEventRec);

-	UNLOCK_PROCESS;

-

-	tptr->te_next = NULL;

-	tptr->te_closure = closure;

-	tptr->te_proc = proc;

-	tptr->app = app;

-	tptr->te_timer_value.tv_sec = interval/1000;

-	tptr->te_timer_value.tv_usec = (interval%1000)*1000;

-        X_GETTIMEOFDAY (&current_time);

-	FIXUP_TIMEVAL(current_time);

-        ADD_TIME(tptr->te_timer_value,tptr->te_timer_value,current_time);

-	QueueTimerEvent(app, tptr);

-	UNLOCK_APP(app);

-	return( (XtIntervalId) tptr);

-}

-

-void  XtRemoveTimeOut(

-	XtIntervalId id)

-{

-	TimerEventRec *t, *last, *tid = (TimerEventRec *) id;

-	XtAppContext app = tid->app;

-

-	/* find it */

-	LOCK_APP(app);

-	for(t = app->timerQueue, last = NULL;

-	    t != NULL && t != tid;

-	    t = t->te_next) last = t;

-

-	if (t == NULL) {

-	    UNLOCK_APP(app);

-	    return; /* couldn't find it */

-	}

-	if(last == NULL) { /* first one on the list */

-	    app->timerQueue = t->te_next;

-	} else last->te_next = t->te_next;

-

-	LOCK_PROCESS;

-	t->te_next = freeTimerRecs;

-	freeTimerRecs = t;

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-}

-

-XtWorkProcId XtAddWorkProc(

-	XtWorkProc proc,

-	XtPointer closure)

-{

-	return XtAppAddWorkProc(_XtDefaultAppContext(), proc, closure);

-}

-

-XtWorkProcId XtAppAddWorkProc(

-	XtAppContext app,

-	XtWorkProc proc,

-	XtPointer closure)

-{

-	WorkProcRec *wptr;

-

-	LOCK_APP(app);

-	LOCK_PROCESS;

-	if (freeWorkRecs) {

-	    wptr = freeWorkRecs;

-	    freeWorkRecs = wptr->next;

-	} else wptr = XtNew(WorkProcRec);

-	UNLOCK_PROCESS;

-	wptr->next = app->workQueue;

-	wptr->closure = closure;

-	wptr->proc = proc;

-	wptr->app = app;

-	app->workQueue = wptr;

-	UNLOCK_APP(app);

-	return (XtWorkProcId) wptr;

-}

-

-void  XtRemoveWorkProc(

-	XtWorkProcId id)

-{

-	WorkProcRec *wid= (WorkProcRec *) id, *w, *last;

-	XtAppContext app = wid->app;

-

-	LOCK_APP(app);

-	/* find it */

-	for(w = app->workQueue, last = NULL;

-	    w != NULL && w != wid; w = w->next) last = w;

-

-	if (w == NULL) {

-	    UNLOCK_APP(app);

-	    return; /* couldn't find it */

-	}

-

-	if(last == NULL) app->workQueue = w->next;

-	else last->next = w->next;

-	LOCK_PROCESS;

-	w->next = freeWorkRecs;

-	freeWorkRecs = w;

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-}

-

-XtSignalId XtAddSignal(

-	XtSignalCallbackProc proc,

-	XtPointer closure)

-{

-	return XtAppAddSignal(_XtDefaultAppContext(), proc, closure);

-}

-

-XtSignalId XtAppAddSignal(

-	XtAppContext app,

-	XtSignalCallbackProc proc,

-	XtPointer closure)

-{

-	SignalEventRec *sptr;

-

-	LOCK_APP(app);

-	LOCK_PROCESS;

-	if (freeSignalRecs) {

-	    sptr = freeSignalRecs;

-	    freeSignalRecs = sptr->se_next;

-	} else

-	    sptr = XtNew(SignalEventRec);

-	UNLOCK_PROCESS;

-	sptr->se_next = app->signalQueue;

-	sptr->se_closure = closure;

-	sptr->se_proc = proc;

-	sptr->app = app;

-	sptr->se_notice = FALSE;

-	app->signalQueue = sptr;

-	UNLOCK_APP(app);

-	return (XtSignalId) sptr;

-}

-

-void XtRemoveSignal(

-	XtSignalId id)

-{

-	SignalEventRec *sid = (SignalEventRec*) id, *s, *last = NULL;

-	XtAppContext app = sid->app;

-

-	LOCK_APP(app);

-	for (s = app->signalQueue; s != NULL && s != sid; s = s->se_next)

-	    last = s;

-	if (s == NULL) {

-	    UNLOCK_APP(app);

-	    return;

-	}

-	if (last == NULL)

-	    app->signalQueue = s->se_next;

-	else

-	    last->se_next = s->se_next;

-	LOCK_PROCESS;

-	s->se_next = freeSignalRecs;

-	freeSignalRecs = s;

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-}

-

-void XtNoticeSignal(

-	XtSignalId id)

-{

-	/*

-	 * It would be overkill to lock the app to set this flag.

-	 * In the worst case, 2..n threads would be modifying this

-	 * flag. The last one wins. Since signals occur asynchronously

-	 * anyway, this can occur with or without threads.

-	 *

-	 * The other issue is that thread t1 sets the flag in a

-	 * signalrec that has been deleted in thread t2. We rely

-	 * on a detail of the implementation, i.e. free'd signalrecs

-	 * aren't really free'd, they're just moved to a list of

-	 * free recs, so deref'ing one won't hurt anything.

-	 *

-	 * Lastly, and perhaps most importantly, since POSIX threads

-	 * says that the handling of asynchronous signals in a synchronous

-	 * threads environment is undefined. Therefor it would be an

-	 * error for both signals and threads to be in use in the same

-	 * program.

-	 */

-	SignalEventRec *sid = (SignalEventRec*) id;

-	sid->se_notice = TRUE;

-}

-

-XtInputId XtAddInput(

-	int source,

-	XtPointer Condition,

-	XtInputCallbackProc proc,

-	XtPointer closure)

-{

-	return XtAppAddInput(_XtDefaultAppContext(),

-		source, Condition, proc, closure);

-}

-

-XtInputId XtAppAddInput(

-	XtAppContext app,

-	int source,

-	XtPointer Condition,

-	XtInputCallbackProc proc,

-	XtPointer closure)

-{

-	InputEvent* sptr;

-	XtInputMask condition = (XtInputMask) Condition;

-

-	LOCK_APP(app);

-	if (!condition ||

-	    condition & ~(XtInputReadMask|XtInputWriteMask|XtInputExceptMask))

-	    XtAppErrorMsg(app,"invalidParameter","xtAddInput",XtCXtToolkitError,

-			  "invalid condition passed to XtAppAddInput",

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

-

-	if (app->input_max <= source) {

-	    Cardinal n = source + 1;

-	    int ii;

-	    app->input_list = (InputEvent**)XtRealloc((char*) app->input_list,

-						      n * sizeof(InputEvent*));

-	    for (ii = app->input_max; ii < (int) n; ii++)

-		app->input_list[ii] = (InputEvent*) NULL;

-	    app->input_max = n;

-	}

-	sptr = XtNew(InputEvent);

-	sptr->ie_proc = proc;

-	sptr->ie_closure = closure;

-	sptr->app = app;

-	sptr->ie_oq = NULL;

-	sptr->ie_source = source;

-	sptr->ie_condition = condition;

-	sptr->ie_next = app->input_list[source];

-	app->input_list[source] = sptr;

-

-#ifndef USE_POLL

-	if (condition & XtInputReadMask)   FD_SET(source, &app->fds.rmask);

-	if (condition & XtInputWriteMask)  FD_SET(source, &app->fds.wmask);

-	if (condition & XtInputExceptMask) FD_SET(source, &app->fds.emask);

-

-	if (app->fds.nfds < (source+1)) app->fds.nfds = source+1;

-#else

-	if (sptr->ie_next == NULL)

-	    app->fds.nfds++;

-#endif

-	app->input_count++;

-	app->rebuild_fdlist = TRUE;

-	UNLOCK_APP(app);

-	return((XtInputId)sptr);

-}

-

-void XtRemoveInput(

-	register XtInputId  id)

-{

-  	register InputEvent *sptr, *lptr;

-	XtAppContext app = ((InputEvent *)id)->app;

-	register int source = ((InputEvent *)id)->ie_source;

-	Boolean found = False;

-

-	LOCK_APP(app);

-	sptr = app->outstandingQueue;

-	lptr = NULL;

-	for (; sptr != NULL; sptr = sptr->ie_oq) {

-	    if (sptr == (InputEvent *)id) {

-		if (lptr == NULL) app->outstandingQueue = sptr->ie_oq;

-		else lptr->ie_oq = sptr->ie_oq;

-	    }

-	    lptr = sptr;

-	}

-

-	if(app->input_list && (sptr = app->input_list[source]) != NULL) {

-		for( lptr = NULL ; sptr; sptr = sptr->ie_next ){

-			if(sptr == (InputEvent *) id) {

-#ifndef USE_POLL

-				XtInputMask condition = 0;

-#endif

-				if(lptr == NULL) {

-				    app->input_list[source] = sptr->ie_next;

-				} else {

-				    lptr->ie_next = sptr->ie_next;

-				}

-#ifndef USE_POLL

-				for (lptr = app->input_list[source];

-				     lptr; lptr = lptr->ie_next)

-				    condition |= lptr->ie_condition;

-				if ((sptr->ie_condition & XtInputReadMask) &&

-				    !(condition & XtInputReadMask))

-				   FD_CLR(source, &app->fds.rmask);

-				if ((sptr->ie_condition & XtInputWriteMask) &&

-				    !(condition & XtInputWriteMask))

-				   FD_CLR(source, &app->fds.wmask);

-				if ((sptr->ie_condition & XtInputExceptMask) &&

-				    !(condition & XtInputExceptMask))

-				   FD_CLR(source, &app->fds.emask);

-#endif

-				XtFree((char *) sptr);

-				found = True;

-				break;

-			}

-			lptr = sptr;

-		}

-	}

-

-	if (found) {

-	    app->input_count--;

-#ifdef USE_POLL

-	    if (app->input_list[source] == NULL)

-		app->fds.nfds--;

-#endif

-	    app->rebuild_fdlist = TRUE;

-	} else

-	    XtAppWarningMsg(app, "invalidProcedure","inputHandler",

-			    XtCXtToolkitError,

-			    "XtRemoveInput: Input handler not found",

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

-	UNLOCK_APP(app);

-}

-

-void _XtRemoveAllInputs(

-    XtAppContext app)

-{

-    int i;

-    for (i = 0; i < app->input_max; i++) {

-	InputEvent* ep = app->input_list[i];

-	while (ep) {

-	    InputEvent *next = ep->ie_next;

-	    XtFree( (char*)ep );

-	    ep = next;

-	}

-    }

-    XtFree((char *) app->input_list);

-}

-

-/* Do alternate input and timer callbacks if there are any */

-

-static void DoOtherSources(

-	XtAppContext app)

-{

-	TimerEventRec *te_ptr;

-	InputEvent *ie_ptr;

-	struct timeval  cur_time;

-

-#define DrainQueue() \

-	for (ie_ptr = app->outstandingQueue; ie_ptr != NULL;) { \

-	    app->outstandingQueue = ie_ptr->ie_oq;		\

-	    ie_ptr ->ie_oq = NULL;				\

-	    IeCallProc(ie_ptr);					\

-	    ie_ptr = app->outstandingQueue;			\

-	}

-/*enddef*/

-	DrainQueue();

-	if (app->input_count > 0) {

-	    /* Call _XtWaitForSomething to get input queued up */

-	    (void) _XtWaitForSomething (app,

-					TRUE, TRUE, FALSE, TRUE,

-					FALSE,

-#ifdef XTHREADS

-					TRUE,

-#endif

-					(unsigned long *)NULL);

-	    DrainQueue();

-	}

-	if (app->timerQueue != NULL) {	/* check timeout queue */

-	    X_GETTIMEOFDAY (&cur_time);

-	    FIXUP_TIMEVAL(cur_time);

-	    while(IS_AT_OR_AFTER (app->timerQueue->te_timer_value, cur_time)) {

-		te_ptr = app->timerQueue;

-		app->timerQueue = te_ptr->te_next;

-		te_ptr->te_next = NULL;

-		if (te_ptr->te_proc != NULL)

-		    TeCallProc(te_ptr);

-		LOCK_PROCESS;

-		te_ptr->te_next = freeTimerRecs;

-		freeTimerRecs = te_ptr;

-		UNLOCK_PROCESS;

-		if (app->timerQueue == NULL) break;

-	    }

-	}

-	if (app->signalQueue != NULL) {

-	    SignalEventRec *se_ptr = app->signalQueue;

-	    while (se_ptr != NULL) {

-		if (se_ptr->se_notice) {

-		    se_ptr->se_notice = FALSE;

-		    if (se_ptr->se_proc != NULL)

-			SeCallProc(se_ptr);

-		}

-		se_ptr = se_ptr->se_next;

-	    }

-	}

-#undef DrainQueue

-}

-

-/* If there are any work procs, call them.  Return whether we did so */

-

-static Boolean CallWorkProc(

-	XtAppContext app)

-{

-	register WorkProcRec *w = app->workQueue;

-	Boolean delete;

-

-	if (w == NULL) return FALSE;

-

-	app->workQueue = w->next;

-

-	delete = (*(w->proc)) (w->closure);

-

-	if (delete) {

-	    LOCK_PROCESS;

-	    w->next = freeWorkRecs;

-	    freeWorkRecs = w;

-	    UNLOCK_PROCESS;

-	}

-	else {

-	    w->next = app->workQueue;

-	    app->workQueue = w;

-	}

-	return TRUE;

-}

-

-/*

- * XtNextEvent()

- * return next event;

- */

-

-void XtNextEvent(

-	XEvent *event)

-{

-	XtAppNextEvent(_XtDefaultAppContext(), event);

-}

-

-void _XtRefreshMapping(

-    XEvent* event,

-    _XtBoolean dispatch)

-{

-    XtPerDisplay pd;

-

-    LOCK_PROCESS;

-    pd = _XtGetPerDisplay(event->xmapping.display);

-    if (event->xmapping.request != MappingPointer &&

-	pd && pd->keysyms && (event->xmapping.serial >= pd->keysyms_serial))

-	_XtBuildKeysymTables( event->xmapping.display, pd );

-    XRefreshKeyboardMapping(&event->xmapping);

-    if (dispatch && pd && pd->mapping_callbacks)

-	XtCallCallbackList((Widget) NULL,

-			   (XtCallbackList)pd->mapping_callbacks,

-			   (XtPointer)event );

-    UNLOCK_PROCESS;

-}

-

-void XtAppNextEvent(

-	XtAppContext app,

-	XEvent *event)

-{

-    int i, d;

-

-    LOCK_APP(app);

-    for (;;) {

-	if (app->count == 0)

-	    DoOtherSources(app);

-	else {

-	    for (i = 1; i <= app->count; i++) {

-		d = (i + app->last) % app->count;

-		if (d == 0) DoOtherSources(app);

-		if (XEventsQueued(app->list[d], QueuedAfterReading))

-		    goto GotEvent;

-	    }

-	    for (i = 1; i <= app->count; i++) {

-		d = (i + app->last) % app->count;

-		if (XEventsQueued(app->list[d], QueuedAfterFlush))

-		    goto GotEvent;

-	    }

-	}

-

-	/* We're ready to wait...if there is a work proc, call it */

-	if (CallWorkProc(app)) continue;

-

-	d = _XtWaitForSomething (app,

-				 FALSE, FALSE, FALSE, FALSE,

-				 TRUE,

-#ifdef XTHREADS

-				 TRUE,

-#endif

-				 (unsigned long *) NULL);

-

-	if (d != -1) {

-	  GotEvent:

-	    XNextEvent (app->list[d], event);

-#ifdef XTHREADS

-	    /* assert(app->list[d] == event->xany.display); */

-#endif

-	    app->last = d;

-	    if (event->xany.type == MappingNotify)

-		_XtRefreshMapping(event, False);

-	    UNLOCK_APP(app);

-	    return;

-	}

-

-    } /* for */

-}

-

-void XtProcessEvent(

-	XtInputMask mask)

-{

-	XtAppProcessEvent(_XtDefaultAppContext(), mask);

-}

-

-void XtAppProcessEvent(

-	XtAppContext app,

-	XtInputMask mask)

-{

-	int i, d;

-	XEvent event;

-	struct timeval cur_time;

-

-	LOCK_APP(app);

-	if (mask == 0) {

-	    UNLOCK_APP(app);

-	    return;

-	}

-

-	for (;;) {

-

-	    if (mask & XtIMSignal && app->signalQueue != NULL) {

-		SignalEventRec *se_ptr = app->signalQueue;

-		while (se_ptr != NULL) {

-		    if (se_ptr->se_notice) {

-			se_ptr->se_notice = FALSE;

-			SeCallProc(se_ptr);

-			UNLOCK_APP(app);

-			return;

-		    }

-		    se_ptr = se_ptr->se_next;

-		}

-	    }

-

-	    if (mask & XtIMTimer && app->timerQueue != NULL) {

-		X_GETTIMEOFDAY (&cur_time);

-		FIXUP_TIMEVAL(cur_time);

-		if (IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)){

-		    TimerEventRec *te_ptr = app->timerQueue;

-		    app->timerQueue = app->timerQueue->te_next;

-		    te_ptr->te_next = NULL;

-                    if (te_ptr->te_proc != NULL)

-		        TeCallProc(te_ptr);

-		    LOCK_PROCESS;

-		    te_ptr->te_next = freeTimerRecs;

-		    freeTimerRecs = te_ptr;

-		    UNLOCK_PROCESS;

-		    UNLOCK_APP(app);

-		    return;

-		}

-	    }

-

-	    if (mask & XtIMAlternateInput) {

-		if (app->input_count > 0 && app->outstandingQueue == NULL) {

-		    /* Call _XtWaitForSomething to get input queued up */

-		    (void) _XtWaitForSomething (app,

-						TRUE, TRUE, FALSE, TRUE,

-						FALSE,

-#ifdef XTHREADS

-						TRUE,

-#endif

-						(unsigned long *)NULL);

-		}

-		if (app->outstandingQueue != NULL) {

-		    InputEvent *ie_ptr = app->outstandingQueue;

-		    app->outstandingQueue = ie_ptr->ie_oq;

-		    ie_ptr->ie_oq = NULL;

-		    IeCallProc(ie_ptr);

-		    UNLOCK_APP(app);

-		    return;

-		}

-	    }

-

-	    if (mask & XtIMXEvent) {

-		for (i = 1; i <= app->count; i++) {

-		    d = (i + app->last) % app->count;

-		    if (XEventsQueued(app->list[d], QueuedAfterReading))

-			goto GotEvent;

-		}

-		for (i = 1; i <= app->count; i++) {

-		    d = (i + app->last) % app->count;

-		    if (XEventsQueued(app->list[d], QueuedAfterFlush))

-			goto GotEvent;

-		}

-	    }

-

-	    /* Nothing to do...wait for something */

-

-	    if (CallWorkProc(app)) continue;

-

-	    d = _XtWaitForSomething (app,

-				    (mask & XtIMXEvent ? FALSE : TRUE),

-				    (mask & XtIMTimer ? FALSE : TRUE),

-				    (mask & XtIMAlternateInput ? FALSE : TRUE),

-				    (mask & XtIMSignal ? FALSE : TRUE),

-				    TRUE,

-#ifdef XTHREADS

-				    TRUE,

-#endif

-				    (unsigned long *) NULL);

-

-	    if (mask & XtIMXEvent && d != -1) {

-	      GotEvent:

-		XNextEvent(app->list[d], &event);

-#ifdef XTHREADS

-		/* assert(app->list[d] == event.xany.display); */

-#endif

-		app->last = d;

-		if (event.xany.type == MappingNotify) {

-		    _XtRefreshMapping(&event, False);

-		}

-		XtDispatchEvent(&event);

-		UNLOCK_APP(app);

-		return;

-	    }

-

-	}

-}

-

-Boolean XtPending(void)

-{

-	return (XtAppPending(_XtDefaultAppContext()) != 0);

-}

-

-XtInputMask XtAppPending(

-	XtAppContext app)

-{

-	struct timeval cur_time;

-	int d;

-	XtInputMask ret = 0;

-

-/*

- * Check for pending X events

- */

-	LOCK_APP(app);

-	for (d = 0; d < app->count; d++) {

-	    if (XEventsQueued(app->list[d], QueuedAfterReading)) {

-		ret = XtIMXEvent;

-		break;

-	    }

-	}

-	if (ret == 0) {

-	    for (d = 0; d < app->count; d++) {

-		if (XEventsQueued(app->list[d], QueuedAfterFlush)) {

-		    ret = XtIMXEvent;

-		    break;

-		}

-	    }

-	}

-

-	if (app->signalQueue != NULL) {

-	    SignalEventRec *se_ptr = app->signalQueue;

-	    while (se_ptr != NULL) {

-		if (se_ptr->se_notice) {

-		    ret |= XtIMSignal;

-		    break;

-		}

-		se_ptr = se_ptr->se_next;

-	    }

-	}

-

-/*

- * Check for pending alternate input

- */

-	if (app->timerQueue != NULL) {	/* check timeout queue */

-	    X_GETTIMEOFDAY (&cur_time);

-	    FIXUP_TIMEVAL(cur_time);

-	    if ((IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time))  &&

-                (app->timerQueue->te_proc != NULL)) {

-		ret |= XtIMTimer;

-	    }

-	}

-

-	if (app->outstandingQueue != NULL) ret |= XtIMAlternateInput;

-	else {

-	    /* This won't cause a wait, but will enqueue any input */

-

-	    if(_XtWaitForSomething (app,

-				    FALSE, TRUE, FALSE, TRUE,

-				    FALSE,

-#ifdef XTHREADS

-				    TRUE,

-#endif

-				    (unsigned long *) NULL) != -1)

-		ret |= XtIMXEvent;

-	    if (app->outstandingQueue != NULL) ret |= XtIMAlternateInput;

-	}

-	UNLOCK_APP(app);

-	return ret;

-}

-

-/* Peek at alternate input and timer callbacks if there are any */

-

-static Boolean PeekOtherSources(

-	XtAppContext app)

-{

-	struct timeval  cur_time;

-

-	if (app->outstandingQueue != NULL) return TRUE;

-

-	if (app->signalQueue != NULL) {

-	    SignalEventRec *se_ptr = app->signalQueue;

-	    while (se_ptr != NULL) {

-		if (se_ptr->se_notice)

-		    return TRUE;

-		se_ptr = se_ptr->se_next;

-	    }

-	}

-

-	if (app->input_count > 0) {

-	    /* Call _XtWaitForSomething to get input queued up */

-	    (void) _XtWaitForSomething (app,

-					TRUE, TRUE, FALSE, TRUE,

-					FALSE,

-#ifdef XTHREADS

-					TRUE,

-#endif

-					(unsigned long *)NULL);

-	    if (app->outstandingQueue != NULL) return TRUE;

-	}

-

-	if (app->timerQueue != NULL) {	/* check timeout queue */

-	    X_GETTIMEOFDAY (&cur_time);

-	    FIXUP_TIMEVAL(cur_time);

-	    if (IS_AT_OR_AFTER (app->timerQueue->te_timer_value, cur_time))

-		return TRUE;

-	}

-

-	return FALSE;

-}

-

-Boolean XtPeekEvent(

-	XEvent *event)

-{

-	return XtAppPeekEvent(_XtDefaultAppContext(), event);

-}

-

-Boolean XtAppPeekEvent_SkipTimer;

-

-Boolean XtAppPeekEvent(

-	XtAppContext app,

-	XEvent *event)

-{

-	int i, d;

-	Boolean foundCall = FALSE;

-

-	LOCK_APP(app);

-	for (i = 1; i <= app->count; i++) {

-	    d = (i + app->last) % app->count;

-	    if (d == 0) foundCall = PeekOtherSources(app);

-	    if (XEventsQueued(app->list[d], QueuedAfterReading))

-		goto GotEvent;

-	}

-	for (i = 1; i <= app->count; i++) {

-	    d = (i + app->last) % app->count;

-	    if (XEventsQueued(app->list[d], QueuedAfterFlush))

-		goto GotEvent;

-	}

-

-	if (foundCall) {

-	    event->xany.type = 0;

-	    event->xany.display = NULL;

-	    event->xany.window = 0;

-	    UNLOCK_APP(app);

-	    return FALSE;

-	}

-

-	while (1) {

-		d = _XtWaitForSomething (app,

-			FALSE, FALSE, FALSE, FALSE,

-			TRUE,

-#ifdef XTHREADS

-			TRUE,

-#endif

-			(unsigned long *) NULL);

-

-		if (d != -1) {  /* event */

-			GotEvent:

-			XPeekEvent(app->list[d], event);

-			app->last = (d == 0 ? app->count : d) - 1;

-			UNLOCK_APP(app);

-			return TRUE;

-		}

-		else {  /* input or timer or signal */

-			/*

-			 * Check to see why a -1 was returned, if a timer expired,

-			 * call it and block some more

-			 */

-			if ((app->timerQueue != NULL) && ! XtAppPeekEvent_SkipTimer) {  /* timer */

-				struct timeval cur_time;

-				Bool did_timer = False;

-

-				X_GETTIMEOFDAY (&cur_time);

-				FIXUP_TIMEVAL(cur_time);

-				while (IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)) {

-					TimerEventRec *te_ptr = app->timerQueue;

-					app->timerQueue = app->timerQueue->te_next;

-					te_ptr->te_next = NULL;

-					if (te_ptr->te_proc != NULL) {

-					    TeCallProc(te_ptr);

-					    did_timer = True;

-					}

-					LOCK_PROCESS;

-					te_ptr->te_next = freeTimerRecs;

-					freeTimerRecs = te_ptr;

-					UNLOCK_PROCESS;

-					if (app->timerQueue == NULL) break;

-				}

-				if (did_timer)

-				{

-				    for (d = 0; d < app->count; d++)

-				    /* the timer's procedure may have caused an event */

-					    if (XEventsQueued(app->list[d], QueuedAfterFlush)) {

-						    goto GotEvent;

-					    }

-				    continue;  /* keep blocking */

-				}

-			}

-			/*

-			 * spec is vague here; we'll assume signals also return FALSE,

-			 * of course to determine whether a signal is pending requires

-			 * walking the signalQueue looking for se_notice flags which

-			 * this code doesn't do.

-			 */

-#if 0

-			if (app->signalQueue != NULL) {  /* signal */

-				event->xany.type = 0;

-				event->xany.display = NULL;

-				event->xany.window = 0;

-				UNLOCK_APP(app);

-				return FALSE;

-			}

-			else

-#endif

-			{  /* input */

-				event->xany.type = 0;

-				event->xany.display = NULL;

-				event->xany.window = 0;

-				UNLOCK_APP(app);

-				return FALSE;

-			}

-		}

-	} /* end while */

-}

+/***********************************************************
+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, 1994, 1998, 2001  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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include <stdio.h>
+#include <errno.h>
+
+#ifdef __UNIXOS2__
+#include <sys/time.h>
+#endif
+
+static TimerEventRec* freeTimerRecs;
+static WorkProcRec* freeWorkRecs;
+static SignalEventRec* freeSignalRecs;
+
+/* Some systems running NTP daemons are known to return strange usec
+ * values from gettimeofday.
+ */
+
+#ifndef NEEDS_NTPD_FIXUP
+# if defined(sun) || defined(MOTOROLA) || (defined(__osf__) && defined(__alpha))
+#  define NEEDS_NTPD_FIXUP 1
+# else
+#  define NEEDS_NTPD_FIXUP 0
+# endif
+#endif
+
+#if NEEDS_NTPD_FIXUP
+#define FIXUP_TIMEVAL(t) { \
+	while ((t).tv_usec >= 1000000) { \
+	    (t).tv_usec -= 1000000; \
+	    (t).tv_sec++; \
+	} \
+	while ((t).tv_usec < 0) { \
+	    if ((t).tv_sec > 0) { \
+		(t).tv_usec += 1000000; \
+		(t).tv_sec--; \
+	    } else { \
+		(t).tv_usec = 0; \
+		break; \
+	    } \
+	}}
+#else
+#define FIXUP_TIMEVAL(t)
+#endif /*NEEDS_NTPD_FIXUP*/
+
+/*
+ * Private routines
+ */
+#define ADD_TIME(dest, src1, src2) { \
+	if(((dest).tv_usec = (src1).tv_usec + (src2).tv_usec) >= 1000000) {\
+	      (dest).tv_usec -= 1000000;\
+	      (dest).tv_sec = (src1).tv_sec + (src2).tv_sec + 1 ; \
+	} else { (dest).tv_sec = (src1).tv_sec + (src2).tv_sec ; \
+	   if(((dest).tv_sec >= 1) && (((dest).tv_usec <0))) { \
+	    (dest).tv_sec --;(dest).tv_usec += 1000000; } } }
+
+
+#define TIMEDELTA(dest, src1, src2) { \
+	if(((dest).tv_usec = (src1).tv_usec - (src2).tv_usec) < 0) {\
+	      (dest).tv_usec += 1000000;\
+	      (dest).tv_sec = (src1).tv_sec - (src2).tv_sec - 1;\
+	} else 	(dest).tv_sec = (src1).tv_sec - (src2).tv_sec;  }
+
+#define IS_AFTER(t1, t2) (((t2).tv_sec > (t1).tv_sec) \
+	|| (((t2).tv_sec == (t1).tv_sec)&& ((t2).tv_usec > (t1).tv_usec)))
+
+#define IS_AT_OR_AFTER(t1, t2) (((t2).tv_sec > (t1).tv_sec) \
+	|| (((t2).tv_sec == (t1).tv_sec)&& ((t2).tv_usec >= (t1).tv_usec)))
+
+#ifdef USE_POLL
+#ifndef XT_DEFAULT_FDLIST_SIZE
+#define XT_DEFAULT_FDLIST_SIZE 32
+#endif
+#endif
+
+static void AdjustHowLong (
+	unsigned long *howlong,
+	struct timeval *start_time)
+{
+	struct timeval new_time, time_spent, lstart_time;
+
+	lstart_time = *start_time;
+	X_GETTIMEOFDAY (&new_time);
+	FIXUP_TIMEVAL(new_time);
+	TIMEDELTA(time_spent, new_time, lstart_time);
+	if(*howlong <= (unsigned long)(time_spent.tv_sec*1000+time_spent.tv_usec/1000))
+	    *howlong = (unsigned long)0;  /* Timed out */
+	else
+	    *howlong -= (time_spent.tv_sec*1000+time_spent.tv_usec/1000);
+}
+
+typedef struct {
+    struct timeval cur_time;
+    struct timeval start_time;
+    struct timeval wait_time;
+    struct timeval new_time;
+    struct timeval time_spent;
+    struct timeval max_wait_time;
+#ifndef USE_POLL
+    struct timeval *wait_time_ptr;
+#else
+    int poll_wait;
+#endif
+} wait_times_t, *wait_times_ptr_t;
+
+static struct timeval  zero_time = { 0 , 0};
+#ifndef USE_POLL
+static fd_set zero_fd;
+#else
+#define X_BLOCK -1
+#define X_DONT_BLOCK 0
+#endif
+
+static void InitTimes (
+    Boolean block,
+    unsigned long* howlong,
+    wait_times_ptr_t wt)
+{
+    if (block) {
+	X_GETTIMEOFDAY (&wt->cur_time);
+	FIXUP_TIMEVAL(wt->cur_time);
+	wt->start_time = wt->cur_time;
+	if(howlong == NULL) { /* special case for ever */
+#ifndef USE_POLL
+	    wt->wait_time_ptr = NULL;
+#else
+	    wt->poll_wait = X_BLOCK;
+#endif
+	} else { /* block until at most */
+	    wt->max_wait_time.tv_sec = *howlong/1000;
+	    wt->max_wait_time.tv_usec = (*howlong %1000)*1000;
+#ifndef USE_POLL
+	    wt->wait_time_ptr = &wt->max_wait_time;
+#else
+	    wt->poll_wait = *howlong;
+#endif
+	}
+    } else {  /* don't block */
+	wt->max_wait_time = zero_time;
+#ifndef USE_POLL
+	wt->wait_time_ptr = &wt->max_wait_time;
+#else
+	wt->poll_wait = X_DONT_BLOCK;
+#endif
+    }
+}
+
+typedef struct {
+#ifndef USE_POLL
+    fd_set rmask, wmask, emask;
+    int nfds;
+#else
+    struct pollfd* fdlist;
+    struct pollfd* stack;
+    int fdlistlen, num_dpys;
+#endif
+} wait_fds_t, *wait_fds_ptr_t;
+
+static void InitFds (
+    XtAppContext app,
+    Boolean ignoreEvents,
+    Boolean ignoreInputs,
+    wait_fds_ptr_t wf)
+{
+    int ii;
+    app->rebuild_fdlist = FALSE;
+#ifndef USE_POLL
+    wf->nfds = app->fds.nfds;
+    if( !ignoreInputs ) {
+	wf->rmask = app->fds.rmask;
+	wf->wmask = app->fds.wmask;
+	wf->emask = app->fds.emask;
+     } else
+	wf->rmask = wf->wmask = wf->emask = zero_fd;
+
+     if (!ignoreEvents)
+	for (ii = 0; ii < app->count; ii++) {
+	    FD_SET (ConnectionNumber(app->list[ii]), &wf->rmask);
+	}
+#else
+#ifndef POLLRDNORM
+#define POLLRDNORM 0
+#endif
+
+#ifndef POLLRDBAND
+#define POLLRDBAND 0
+#endif
+
+#ifndef POLLWRNORM
+#define POLLWRNORM 0
+#endif
+
+#ifndef POLLWRBAND
+#define POLLWRBAND 0
+#endif
+
+#define XPOLL_READ (POLLIN|POLLRDNORM|POLLPRI|POLLRDBAND)
+#define XPOLL_WRITE (POLLOUT|POLLWRNORM|POLLWRBAND)
+#define XPOLL_EXCEPT 0
+
+    if (!ignoreEvents)
+	wf->fdlistlen = wf->num_dpys = app->count;
+    else
+	wf->fdlistlen = wf->num_dpys = 0;
+
+    if (!ignoreInputs && app->input_list != NULL) {
+	int ii;
+	for (ii = 0; ii < (int) app->input_max; ii++)
+	    if (app->input_list[ii] != NULL)
+		wf->fdlistlen++;
+    }
+
+    if (!wf->fdlist || wf->fdlist == wf->stack) {
+	wf->fdlist = (struct pollfd*)
+	    XtStackAlloc (sizeof (struct pollfd) * wf->fdlistlen, wf->stack);
+    } else {
+	wf->fdlist = (struct pollfd*)
+	    XtRealloc ((char*) wf->fdlist,
+		       sizeof (struct pollfd) * wf->fdlistlen);
+    }
+
+    if (wf->fdlistlen) {
+	struct pollfd* fdlp = wf->fdlist;
+	InputEvent* iep;
+
+	if (!ignoreEvents)
+	    for (ii = 0 ; ii < wf->num_dpys; ii++, fdlp++) {
+		fdlp->fd = ConnectionNumber (app->list[ii]);
+		fdlp->events = POLLIN;
+	    }
+	if (!ignoreInputs && app->input_list != NULL)
+	    for (ii = 0; ii < app->input_max; ii++)
+		if (app->input_list[ii] != NULL) {
+		    iep = app->input_list[ii];
+		    fdlp->fd = ii;
+		    fdlp->events = 0;
+		    for ( ; iep; iep = iep->ie_next) {
+			if (iep->ie_condition & XtInputReadMask)
+			    fdlp->events |= XPOLL_READ;
+			if (iep->ie_condition & XtInputWriteMask)
+			    fdlp->events |= XPOLL_WRITE;
+			if (iep->ie_condition & XtInputExceptMask)
+			    fdlp->events |= XPOLL_EXCEPT;
+		    }
+		    fdlp++;
+		}
+    }
+#endif
+}
+
+static void AdjustTimes (
+    XtAppContext app,
+    Boolean block,
+    unsigned long* howlong,
+    Boolean ignoreTimers,
+    wait_times_ptr_t wt)
+{
+    if (app->timerQueue != NULL && !ignoreTimers && block) {
+	if (IS_AFTER (wt->cur_time, app->timerQueue->te_timer_value)) {
+	    TIMEDELTA (wt->wait_time, app->timerQueue->te_timer_value, wt->cur_time);
+	    if (howlong == NULL || IS_AFTER (wt->wait_time, wt->max_wait_time))
+#ifndef USE_POLL
+		wt->wait_time_ptr = &wt->wait_time;
+	    else
+		wt->wait_time_ptr = &wt->max_wait_time;
+	} else
+	    wt->wait_time_ptr = &zero_time;
+    }
+#else
+		wt->poll_wait = wt->wait_time.tv_sec * 1000 + wt->wait_time.tv_usec / 1000;
+	    else
+		wt->poll_wait = wt->max_wait_time.tv_sec * 1000 + wt->max_wait_time.tv_usec / 1000;
+	} else
+	    wt->poll_wait = X_DONT_BLOCK;
+    }
+#endif
+}
+
+
+static int IoWait (
+    wait_times_ptr_t wt,
+    wait_fds_ptr_t wf)
+{
+#ifndef USE_POLL
+    return Select (wf->nfds, &wf->rmask, &wf->wmask, &wf->emask,
+		   wt->wait_time_ptr);
+#else
+    return poll (wf->fdlist, wf->fdlistlen, wt->poll_wait);
+#endif
+}
+
+
+static void FindInputs (
+    XtAppContext app,
+    wait_fds_ptr_t wf,
+    int nfds,
+    Boolean ignoreEvents,
+    Boolean ignoreInputs,
+    int* dpy_no,
+    int* found_input)
+{
+    XtInputMask condition;
+    InputEvent *ep;
+    int ii;
+#ifndef USE_POLL /* { check ready file descriptors block */
+#ifdef XTHREADS
+    fd_set rmask;
+#endif
+    int dd;
+    *dpy_no = -1;
+    *found_input = False;
+
+#ifdef XTHREADS
+    rmask = app->fds.rmask;
+    for (dd = app->count; dd-- > 0; )
+	FD_SET (ConnectionNumber (app->list[dd]), &rmask);
+#endif
+
+    for (ii = 0; ii < wf->nfds && nfds > 0; ii++) {
+	condition = 0;
+	if (FD_ISSET (ii, &wf->rmask)
+#ifdef XTHREADS
+	    && FD_ISSET (ii, &rmask)
+#endif
+	) {
+	    nfds--;
+	    if (!ignoreEvents) {
+		for (dd = 0; dd < app->count; dd++) {
+		    if (ii == ConnectionNumber (app->list[dd])) {
+			if (*dpy_no == -1) {
+			    if (XEventsQueued (app->list[dd], QueuedAfterReading ))
+				*dpy_no = dd;
+				/*
+				 * An error event could have arrived
+				 * without any real events, or events
+				 * could have been swallowed by Xlib,
+				 * or the connection may be broken.
+				 * We can't tell the difference, so
+				 * assume Xlib will eventually discover
+				 * a broken connection.
+				 */
+			}
+			goto ENDILOOP;
+		    }
+		}
+	    }
+	    condition = XtInputReadMask;
+	}
+	if (FD_ISSET (ii, &wf->wmask)
+#ifdef XTHREADS
+	    && FD_ISSET (ii, &app->fds.wmask)
+#endif
+	) {
+	    condition |= XtInputWriteMask;
+	    nfds--;
+	}
+	if (FD_ISSET (ii, &wf->emask)
+#ifdef XTHREADS
+	    && FD_ISSET (ii, &app->fds.emask)
+#endif
+	) {
+	    condition |= XtInputExceptMask;
+	    nfds--;
+	}
+	if (condition) {
+	    for (ep = app->input_list[ii]; ep; ep = ep->ie_next)
+		if (condition & ep->ie_condition) {
+		    /* make sure this input isn't already marked outstanding */
+		    InputEvent	*oq;
+		    for (oq = app->outstandingQueue; oq; oq = oq->ie_oq)
+			if (oq == ep)
+			    break;
+		    if (!oq)
+		    {
+			ep->ie_oq = app->outstandingQueue;
+			app->outstandingQueue = ep;
+		    }
+		}
+	    *found_input = True;
+	}
+ENDILOOP:   ;
+    } /* endfor */
+#else /* }{ */
+    struct pollfd* fdlp;
+
+    *dpy_no = -1;
+    *found_input = False;
+
+    if (!ignoreEvents) {
+	fdlp = wf->fdlist;
+	for (ii = 0; ii < wf->num_dpys; ii++, fdlp++) {
+	    if (*dpy_no == -1 && fdlp->revents & (POLLIN|POLLHUP|POLLERR) &&
+#ifdef XTHREADS
+		!(fdlp->revents & POLLNVAL) &&
+#endif
+		XEventsQueued (app->list[ii], QueuedAfterReading)) {
+		*dpy_no = ii;
+		break;
+	    }
+	}
+    }
+
+    if (!ignoreInputs) {
+	fdlp = &wf->fdlist[wf->num_dpys];
+	for (ii = wf->num_dpys; ii < wf->fdlistlen; ii++, fdlp++) {
+	    condition = 0;
+	    if (fdlp->revents) {
+		if (fdlp->revents & (XPOLL_READ|POLLHUP|POLLERR)
+#ifdef XTHREADS
+		    && !(fdlp->revents & POLLNVAL)
+#endif
+		)
+		    condition = XtInputReadMask;
+		if (fdlp->revents & XPOLL_WRITE)
+		    condition |= XtInputWriteMask;
+		if (fdlp->revents & XPOLL_EXCEPT)
+		    condition |= XtInputExceptMask;
+	    }
+	    if (condition) {
+		*found_input = True;
+		for (ep = app->input_list[fdlp->fd]; ep; ep = ep->ie_next)
+		    if (condition & ep->ie_condition) {
+			InputEvent	*oq;
+			/* make sure this input isn't already marked outstanding */
+			for (oq = app->outstandingQueue; oq; oq = oq->ie_oq)
+			    if (oq == ep)
+				break;
+			if (!oq)
+			{
+			    ep->ie_oq = app->outstandingQueue;
+			    app->outstandingQueue = ep;
+			}
+		    }
+	    }
+	}
+    }
+#endif /* } */
+}
+
+/*
+ * Routine to block in the toolkit.  This should be the only call to select.
+ *
+ * This routine returns when there is something to be done.
+ *
+ * Before calling this with ignoreInputs==False, app->outstandingQueue should
+ * be checked; this routine will not verify that an alternate input source
+ * has not already been enqueued.
+ *
+ *
+ * _XtWaitForSomething( appContext,
+ *                      ignoreEvent, ignoreTimers, ignoreInputs, ignoreSignals,
+ *			block, drop_lock, howlong)
+ * XtAppContext app;	     (Displays to check wait on)
+ *
+ * Boolean ignoreEvents;     (Don't return if XEvents are available
+ *                              Also implies forget XEvents exist)
+ *
+ * Boolean ignoreTimers;     (Ditto for timers)
+ *
+ * Boolean ignoreInputs;     (Ditto for input callbacks )
+ *
+ * Boolean ignoreSignals;    (Ditto for signals)
+ *
+ * Boolean block;	     (Okay to block)
+ *
+ * Boolean drop_lock         (drop lock before going into select/poll)
+ *
+ * TimeVal howlong;	     (howlong to wait for if blocking and not
+ *				doing Timers... Null means forever.
+ *				Maybe should mean shortest of both)
+ * Returns display for which input is available, if any
+ * and if ignoreEvents==False, else returns -1
+ *
+ * if ignoring everything && block=True && howlong=NULL, you'll have
+ * lots of time for coffee; better not try it!  In fact, it probably
+ * makes little sense to do this regardless of the value of howlong
+ * (bottom line is, we don't bother checking here).
+ *
+ * If drop_lock is FALSE, the app->lock->mutex is not unlocked before
+ * entering select/poll. It is illegal for drop_lock to be FALSE if
+ * ignoreTimers, ignoreInputs, or ignoreSignals is FALSE.
+ */
+int _XtWaitForSomething(
+    XtAppContext app,
+    _XtBoolean ignoreEvents,
+    _XtBoolean ignoreTimers,
+    _XtBoolean ignoreInputs,
+    _XtBoolean ignoreSignals,
+    _XtBoolean block,
+#ifdef XTHREADS
+    _XtBoolean drop_lock,
+#endif
+    unsigned long *howlong)
+{
+    wait_times_t wt;
+    wait_fds_t wf;
+    int nfds, dpy_no, found_input, dd;
+#ifdef XTHREADS
+    Boolean push_thread = TRUE;
+    Boolean pushed_thread = FALSE;
+    int level = 0;
+#endif
+#ifdef USE_POLL
+    struct pollfd fdlist[XT_DEFAULT_FDLIST_SIZE];
+#endif
+
+#ifdef XTHREADS
+    /* assert ((ignoreTimers && ignoreInputs && ignoreSignals) || drop_lock); */
+    /* If not multi-threaded, never drop lock */
+    if (app->lock == (ThreadAppProc) NULL)
+	drop_lock = FALSE;
+#endif
+
+    InitTimes (block, howlong, &wt);
+
+#ifdef USE_POLL
+    wf.fdlist = NULL;
+    wf.stack = fdlist;
+    wf.fdlistlen = wf.num_dpys = 0;
+#endif
+
+WaitLoop:
+    app->rebuild_fdlist = TRUE;
+
+    while (1) {
+	AdjustTimes (app, block, howlong, ignoreTimers, &wt);
+
+	if (block && app->block_hook_list) {
+	    BlockHook hook;
+	    for (hook = app->block_hook_list;
+		 hook != NULL;
+		 hook = hook->next)
+		(*hook->proc) (hook->closure);
+
+	    if (!ignoreEvents)
+		/* see if the hook(s) generated any protocol */
+		for (dd = 0; dd < app->count; dd++)
+		    if (XEventsQueued(app->list[dd], QueuedAlready)) {
+#ifdef USE_POLL
+			XtStackFree ((XtPointer) wf.fdlist, fdlist);
+#endif
+			return dd;
+		    }
+	}
+
+	if (app->rebuild_fdlist)
+	    InitFds (app, ignoreEvents, ignoreInputs, &wf);
+
+#ifdef XTHREADS /* { */
+	if (drop_lock) {
+	    YIELD_APP_LOCK(app, &push_thread, &pushed_thread, &level);
+	    nfds = IoWait (&wt, &wf);
+	    RESTORE_APP_LOCK(app, level, &pushed_thread);
+	} else
+#endif /* } */
+	nfds = IoWait (&wt, &wf);
+	if (nfds == -1) {
+	    /*
+	     *  interrupt occured recalculate time value and wait again.
+	     */
+	    if (errno == EINTR || errno == EAGAIN) {
+		if (errno == EAGAIN) {
+		    errno = 0;  /* errno is not self reseting */
+		    continue;
+		}
+	        errno = 0;  /* errno is not self reseting */
+
+		/* was it interrupted by a signal that we care about? */
+		if (!ignoreSignals && app->signalQueue != NULL) {
+		    SignalEventRec *se_ptr = app->signalQueue;
+		    while (se_ptr != NULL) {
+			if (se_ptr->se_notice) {
+			    if (block && howlong != NULL)
+				AdjustHowLong (howlong, &wt.start_time);
+#ifdef USE_POLL
+			    XtStackFree ((XtPointer) wf.fdlist, fdlist);
+#endif
+			    return -1;
+			}
+			se_ptr = se_ptr->se_next;
+		    }
+		}
+
+		if (!ignoreEvents)
+		    /* get Xlib to detect a bad connection */
+		    for (dd = 0; dd < app->count; dd++)
+			if (XEventsQueued(app->list[dd], QueuedAfterReading)) {
+#ifdef USE_POLL
+			    XtStackFree ((XtPointer) wf.fdlist, fdlist);
+#endif
+			    return dd;
+			}
+
+		if (block) {
+#ifndef USE_POLL
+		    if (wt.wait_time_ptr == NULL)
+#else
+		    if (wt.poll_wait == X_BLOCK)
+#endif
+			continue;
+		    X_GETTIMEOFDAY (&wt.new_time);
+		    FIXUP_TIMEVAL (wt.new_time);
+		    TIMEDELTA (wt.time_spent, wt.new_time, wt.cur_time);
+		    wt.cur_time = wt.new_time;
+#ifndef USE_POLL
+		    if (IS_AFTER (wt.time_spent, *wt.wait_time_ptr)) {
+			TIMEDELTA (wt.wait_time, *wt.wait_time_ptr, wt.time_spent);
+			wt.wait_time_ptr = &wt.wait_time;
+			continue;
+		    } else
+#else
+		    if ((wt.time_spent.tv_sec * 1000 + wt.time_spent.tv_usec / 1000) < wt.poll_wait) {
+			wt.poll_wait -= (wt.time_spent.tv_sec * 1000 + wt.time_spent.tv_usec / 1000);
+			continue;
+		    } else
+#endif
+			nfds = 0;
+		}
+	    } else {
+		char Errno[12];
+		String param = Errno;
+		Cardinal param_count = 1;
+
+		sprintf( Errno, "%d", errno);
+		XtAppWarningMsg(app, "communicationError","select",
+			XtCXtToolkitError,"Select failed; error code %s",
+			&param, &param_count);
+		continue;
+	    }
+	} /* timed out or input available */
+	break;
+    }
+
+    if (nfds == 0) {
+	/* Timed out */
+	if (howlong)
+	    *howlong = (unsigned long)0;
+#ifdef USE_POLL
+	XtStackFree ((XtPointer) wf.fdlist, fdlist);
+#endif
+	return -1;
+    }
+
+    if (block && howlong != NULL)
+	AdjustHowLong (howlong, &wt.start_time);
+
+    if (ignoreInputs && ignoreEvents) {
+#ifdef USE_POLL
+	XtStackFree ((XtPointer) wf.fdlist, fdlist);
+#endif
+	return -1;
+    } else
+	FindInputs (app, &wf, nfds,
+		    ignoreEvents, ignoreInputs,
+		    &dpy_no, &found_input);
+
+    if (dpy_no >= 0 || found_input) {
+#ifdef USE_POLL
+	XtStackFree ((XtPointer) wf.fdlist, fdlist);
+#endif
+	return dpy_no;
+    }
+    goto WaitLoop;
+}
+
+#define IeCallProc(ptr) \
+    (*ptr->ie_proc) (ptr->ie_closure, &ptr->ie_source, (XtInputId*)&ptr);
+
+#define TeCallProc(ptr) \
+    (*ptr->te_proc) (ptr->te_closure, (XtIntervalId*)&ptr);
+
+#define SeCallProc(ptr) \
+    (*ptr->se_proc) (ptr->se_closure, (XtSignalId*)&ptr);
+
+/*
+ * Public Routines
+ */
+
+XtIntervalId XtAddTimeOut(
+	unsigned long interval,
+	XtTimerCallbackProc proc,
+	XtPointer closure)
+{
+	return XtAppAddTimeOut(_XtDefaultAppContext(),
+		interval, proc, closure);
+}
+
+static void QueueTimerEvent(
+    XtAppContext app,
+    TimerEventRec *ptr)
+{
+        TimerEventRec *t,**tt;
+        tt = &app->timerQueue;
+        t  = *tt;
+        while (t != NULL &&
+                IS_AFTER(t->te_timer_value, ptr->te_timer_value)) {
+          tt = &t->te_next;
+          t  = *tt;
+         }
+         ptr->te_next = t;
+         *tt = ptr;
+}
+
+XtIntervalId XtAppAddTimeOut(
+	XtAppContext app,
+	unsigned long interval,
+	XtTimerCallbackProc proc,
+	XtPointer closure)
+{
+	TimerEventRec *tptr;
+	struct timeval current_time;
+
+	LOCK_APP(app);
+	LOCK_PROCESS;
+	if (freeTimerRecs) {
+	    tptr = freeTimerRecs;
+	    freeTimerRecs = tptr->te_next;
+	}
+	else tptr = XtNew(TimerEventRec);
+	UNLOCK_PROCESS;
+
+	tptr->te_next = NULL;
+	tptr->te_closure = closure;
+	tptr->te_proc = proc;
+	tptr->app = app;
+	tptr->te_timer_value.tv_sec = interval/1000;
+	tptr->te_timer_value.tv_usec = (interval%1000)*1000;
+        X_GETTIMEOFDAY (&current_time);
+	FIXUP_TIMEVAL(current_time);
+        ADD_TIME(tptr->te_timer_value,tptr->te_timer_value,current_time);
+	QueueTimerEvent(app, tptr);
+	UNLOCK_APP(app);
+	return( (XtIntervalId) tptr);
+}
+
+void  XtRemoveTimeOut(
+	XtIntervalId id)
+{
+	TimerEventRec *t, *last, *tid = (TimerEventRec *) id;
+	XtAppContext app = tid->app;
+
+	/* find it */
+	LOCK_APP(app);
+	for(t = app->timerQueue, last = NULL;
+	    t != NULL && t != tid;
+	    t = t->te_next) last = t;
+
+	if (t == NULL) {
+	    UNLOCK_APP(app);
+	    return; /* couldn't find it */
+	}
+	if(last == NULL) { /* first one on the list */
+	    app->timerQueue = t->te_next;
+	} else last->te_next = t->te_next;
+
+	LOCK_PROCESS;
+	t->te_next = freeTimerRecs;
+	freeTimerRecs = t;
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+}
+
+XtWorkProcId XtAddWorkProc(
+	XtWorkProc proc,
+	XtPointer closure)
+{
+	return XtAppAddWorkProc(_XtDefaultAppContext(), proc, closure);
+}
+
+XtWorkProcId XtAppAddWorkProc(
+	XtAppContext app,
+	XtWorkProc proc,
+	XtPointer closure)
+{
+	WorkProcRec *wptr;
+
+	LOCK_APP(app);
+	LOCK_PROCESS;
+	if (freeWorkRecs) {
+	    wptr = freeWorkRecs;
+	    freeWorkRecs = wptr->next;
+	} else wptr = XtNew(WorkProcRec);
+	UNLOCK_PROCESS;
+	wptr->next = app->workQueue;
+	wptr->closure = closure;
+	wptr->proc = proc;
+	wptr->app = app;
+	app->workQueue = wptr;
+	UNLOCK_APP(app);
+	return (XtWorkProcId) wptr;
+}
+
+void  XtRemoveWorkProc(
+	XtWorkProcId id)
+{
+	WorkProcRec *wid= (WorkProcRec *) id, *w, *last;
+	XtAppContext app = wid->app;
+
+	LOCK_APP(app);
+	/* find it */
+	for(w = app->workQueue, last = NULL;
+	    w != NULL && w != wid; w = w->next) last = w;
+
+	if (w == NULL) {
+	    UNLOCK_APP(app);
+	    return; /* couldn't find it */
+	}
+
+	if(last == NULL) app->workQueue = w->next;
+	else last->next = w->next;
+	LOCK_PROCESS;
+	w->next = freeWorkRecs;
+	freeWorkRecs = w;
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+}
+
+XtSignalId XtAddSignal(
+	XtSignalCallbackProc proc,
+	XtPointer closure)
+{
+	return XtAppAddSignal(_XtDefaultAppContext(), proc, closure);
+}
+
+XtSignalId XtAppAddSignal(
+	XtAppContext app,
+	XtSignalCallbackProc proc,
+	XtPointer closure)
+{
+	SignalEventRec *sptr;
+
+	LOCK_APP(app);
+	LOCK_PROCESS;
+	if (freeSignalRecs) {
+	    sptr = freeSignalRecs;
+	    freeSignalRecs = sptr->se_next;
+	} else
+	    sptr = XtNew(SignalEventRec);
+	UNLOCK_PROCESS;
+	sptr->se_next = app->signalQueue;
+	sptr->se_closure = closure;
+	sptr->se_proc = proc;
+	sptr->app = app;
+	sptr->se_notice = FALSE;
+	app->signalQueue = sptr;
+	UNLOCK_APP(app);
+	return (XtSignalId) sptr;
+}
+
+void XtRemoveSignal(
+	XtSignalId id)
+{
+	SignalEventRec *sid = (SignalEventRec*) id, *s, *last = NULL;
+	XtAppContext app = sid->app;
+
+	LOCK_APP(app);
+	for (s = app->signalQueue; s != NULL && s != sid; s = s->se_next)
+	    last = s;
+	if (s == NULL) {
+	    UNLOCK_APP(app);
+	    return;
+	}
+	if (last == NULL)
+	    app->signalQueue = s->se_next;
+	else
+	    last->se_next = s->se_next;
+	LOCK_PROCESS;
+	s->se_next = freeSignalRecs;
+	freeSignalRecs = s;
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+}
+
+void XtNoticeSignal(
+	XtSignalId id)
+{
+	/*
+	 * It would be overkill to lock the app to set this flag.
+	 * In the worst case, 2..n threads would be modifying this
+	 * flag. The last one wins. Since signals occur asynchronously
+	 * anyway, this can occur with or without threads.
+	 *
+	 * The other issue is that thread t1 sets the flag in a
+	 * signalrec that has been deleted in thread t2. We rely
+	 * on a detail of the implementation, i.e. free'd signalrecs
+	 * aren't really free'd, they're just moved to a list of
+	 * free recs, so deref'ing one won't hurt anything.
+	 *
+	 * Lastly, and perhaps most importantly, since POSIX threads
+	 * says that the handling of asynchronous signals in a synchronous
+	 * threads environment is undefined. Therefor it would be an
+	 * error for both signals and threads to be in use in the same
+	 * program.
+	 */
+	SignalEventRec *sid = (SignalEventRec*) id;
+	sid->se_notice = TRUE;
+}
+
+XtInputId XtAddInput(
+	int source,
+	XtPointer Condition,
+	XtInputCallbackProc proc,
+	XtPointer closure)
+{
+	return XtAppAddInput(_XtDefaultAppContext(),
+		source, Condition, proc, closure);
+}
+
+XtInputId XtAppAddInput(
+	XtAppContext app,
+	int source,
+	XtPointer Condition,
+	XtInputCallbackProc proc,
+	XtPointer closure)
+{
+	InputEvent* sptr;
+	XtInputMask condition = (XtInputMask) Condition;
+
+	LOCK_APP(app);
+	if (!condition ||
+	    condition & ~(XtInputReadMask|XtInputWriteMask|XtInputExceptMask))
+	    XtAppErrorMsg(app,"invalidParameter","xtAddInput",XtCXtToolkitError,
+			  "invalid condition passed to XtAppAddInput",
+			  (String *)NULL, (Cardinal *)NULL);
+
+	if (app->input_max <= source) {
+	    Cardinal n = source + 1;
+	    int ii;
+	    app->input_list = (InputEvent**)XtRealloc((char*) app->input_list,
+						      n * sizeof(InputEvent*));
+	    for (ii = app->input_max; ii < (int) n; ii++)
+		app->input_list[ii] = (InputEvent*) NULL;
+	    app->input_max = n;
+	}
+	sptr = XtNew(InputEvent);
+	sptr->ie_proc = proc;
+	sptr->ie_closure = closure;
+	sptr->app = app;
+	sptr->ie_oq = NULL;
+	sptr->ie_source = source;
+	sptr->ie_condition = condition;
+	sptr->ie_next = app->input_list[source];
+	app->input_list[source] = sptr;
+
+#ifndef USE_POLL
+	if (condition & XtInputReadMask)   FD_SET(source, &app->fds.rmask);
+	if (condition & XtInputWriteMask)  FD_SET(source, &app->fds.wmask);
+	if (condition & XtInputExceptMask) FD_SET(source, &app->fds.emask);
+
+	if (app->fds.nfds < (source+1)) app->fds.nfds = source+1;
+#else
+	if (sptr->ie_next == NULL)
+	    app->fds.nfds++;
+#endif
+	app->input_count++;
+	app->rebuild_fdlist = TRUE;
+	UNLOCK_APP(app);
+	return((XtInputId)sptr);
+}
+
+void XtRemoveInput(
+	register XtInputId  id)
+{
+  	register InputEvent *sptr, *lptr;
+	XtAppContext app = ((InputEvent *)id)->app;
+	register int source = ((InputEvent *)id)->ie_source;
+	Boolean found = False;
+
+	LOCK_APP(app);
+	sptr = app->outstandingQueue;
+	lptr = NULL;
+	for (; sptr != NULL; sptr = sptr->ie_oq) {
+	    if (sptr == (InputEvent *)id) {
+		if (lptr == NULL) app->outstandingQueue = sptr->ie_oq;
+		else lptr->ie_oq = sptr->ie_oq;
+	    }
+	    lptr = sptr;
+	}
+
+	if(app->input_list && (sptr = app->input_list[source]) != NULL) {
+		for( lptr = NULL ; sptr; sptr = sptr->ie_next ){
+			if(sptr == (InputEvent *) id) {
+#ifndef USE_POLL
+				XtInputMask condition = 0;
+#endif
+				if(lptr == NULL) {
+				    app->input_list[source] = sptr->ie_next;
+				} else {
+				    lptr->ie_next = sptr->ie_next;
+				}
+#ifndef USE_POLL
+				for (lptr = app->input_list[source];
+				     lptr; lptr = lptr->ie_next)
+				    condition |= lptr->ie_condition;
+				if ((sptr->ie_condition & XtInputReadMask) &&
+				    !(condition & XtInputReadMask))
+				   FD_CLR(source, &app->fds.rmask);
+				if ((sptr->ie_condition & XtInputWriteMask) &&
+				    !(condition & XtInputWriteMask))
+				   FD_CLR(source, &app->fds.wmask);
+				if ((sptr->ie_condition & XtInputExceptMask) &&
+				    !(condition & XtInputExceptMask))
+				   FD_CLR(source, &app->fds.emask);
+#endif
+				XtFree((char *) sptr);
+				found = True;
+				break;
+			}
+			lptr = sptr;
+		}
+	}
+
+	if (found) {
+	    app->input_count--;
+#ifdef USE_POLL
+	    if (app->input_list[source] == NULL)
+		app->fds.nfds--;
+#endif
+	    app->rebuild_fdlist = TRUE;
+	} else
+	    XtAppWarningMsg(app, "invalidProcedure","inputHandler",
+			    XtCXtToolkitError,
+			    "XtRemoveInput: Input handler not found",
+			    (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+}
+
+void _XtRemoveAllInputs(
+    XtAppContext app)
+{
+    int i;
+    for (i = 0; i < app->input_max; i++) {
+	InputEvent* ep = app->input_list[i];
+	while (ep) {
+	    InputEvent *next = ep->ie_next;
+	    XtFree( (char*)ep );
+	    ep = next;
+	}
+    }
+    XtFree((char *) app->input_list);
+}
+
+/* Do alternate input and timer callbacks if there are any */
+
+static void DoOtherSources(
+	XtAppContext app)
+{
+	TimerEventRec *te_ptr;
+	InputEvent *ie_ptr;
+	struct timeval  cur_time;
+
+#define DrainQueue() \
+	for (ie_ptr = app->outstandingQueue; ie_ptr != NULL;) { \
+	    app->outstandingQueue = ie_ptr->ie_oq;		\
+	    ie_ptr ->ie_oq = NULL;				\
+	    IeCallProc(ie_ptr);					\
+	    ie_ptr = app->outstandingQueue;			\
+	}
+/*enddef*/
+	DrainQueue();
+	if (app->input_count > 0) {
+	    /* Call _XtWaitForSomething to get input queued up */
+	    (void) _XtWaitForSomething (app,
+					TRUE, TRUE, FALSE, TRUE,
+					FALSE,
+#ifdef XTHREADS
+					TRUE,
+#endif
+					(unsigned long *)NULL);
+	    DrainQueue();
+	}
+	if (app->timerQueue != NULL) {	/* check timeout queue */
+	    X_GETTIMEOFDAY (&cur_time);
+	    FIXUP_TIMEVAL(cur_time);
+	    while(IS_AT_OR_AFTER (app->timerQueue->te_timer_value, cur_time)) {
+		te_ptr = app->timerQueue;
+		app->timerQueue = te_ptr->te_next;
+		te_ptr->te_next = NULL;
+		if (te_ptr->te_proc != NULL)
+		    TeCallProc(te_ptr);
+		LOCK_PROCESS;
+		te_ptr->te_next = freeTimerRecs;
+		freeTimerRecs = te_ptr;
+		UNLOCK_PROCESS;
+		if (app->timerQueue == NULL) break;
+	    }
+	}
+	if (app->signalQueue != NULL) {
+	    SignalEventRec *se_ptr = app->signalQueue;
+	    while (se_ptr != NULL) {
+		if (se_ptr->se_notice) {
+		    se_ptr->se_notice = FALSE;
+		    if (se_ptr->se_proc != NULL)
+			SeCallProc(se_ptr);
+		}
+		se_ptr = se_ptr->se_next;
+	    }
+	}
+#undef DrainQueue
+}
+
+/* If there are any work procs, call them.  Return whether we did so */
+
+static Boolean CallWorkProc(
+	XtAppContext app)
+{
+	register WorkProcRec *w = app->workQueue;
+	Boolean delete;
+
+	if (w == NULL) return FALSE;
+
+	app->workQueue = w->next;
+
+	delete = (*(w->proc)) (w->closure);
+
+	if (delete) {
+	    LOCK_PROCESS;
+	    w->next = freeWorkRecs;
+	    freeWorkRecs = w;
+	    UNLOCK_PROCESS;
+	}
+	else {
+	    w->next = app->workQueue;
+	    app->workQueue = w;
+	}
+	return TRUE;
+}
+
+/*
+ * XtNextEvent()
+ * return next event;
+ */
+
+void XtNextEvent(
+	XEvent *event)
+{
+	XtAppNextEvent(_XtDefaultAppContext(), event);
+}
+
+void _XtRefreshMapping(
+    XEvent* event,
+    _XtBoolean dispatch)
+{
+    XtPerDisplay pd;
+
+    LOCK_PROCESS;
+    pd = _XtGetPerDisplay(event->xmapping.display);
+    if (event->xmapping.request != MappingPointer &&
+	pd && pd->keysyms && (event->xmapping.serial >= pd->keysyms_serial))
+	_XtBuildKeysymTables( event->xmapping.display, pd );
+    XRefreshKeyboardMapping(&event->xmapping);
+    if (dispatch && pd && pd->mapping_callbacks)
+	XtCallCallbackList((Widget) NULL,
+			   (XtCallbackList)pd->mapping_callbacks,
+			   (XtPointer)event );
+    UNLOCK_PROCESS;
+}
+
+void XtAppNextEvent(
+	XtAppContext app,
+	XEvent *event)
+{
+    int i, d;
+
+    LOCK_APP(app);
+    for (;;) {
+	if (app->count == 0)
+	    DoOtherSources(app);
+	else {
+	    for (i = 1; i <= app->count; i++) {
+		d = (i + app->last) % app->count;
+		if (d == 0) DoOtherSources(app);
+		if (XEventsQueued(app->list[d], QueuedAfterReading))
+		    goto GotEvent;
+	    }
+	    for (i = 1; i <= app->count; i++) {
+		d = (i + app->last) % app->count;
+		if (XEventsQueued(app->list[d], QueuedAfterFlush))
+		    goto GotEvent;
+	    }
+	}
+
+	/* We're ready to wait...if there is a work proc, call it */
+	if (CallWorkProc(app)) continue;
+
+	d = _XtWaitForSomething (app,
+				 FALSE, FALSE, FALSE, FALSE,
+				 TRUE,
+#ifdef XTHREADS
+				 TRUE,
+#endif
+				 (unsigned long *) NULL);
+
+	if (d != -1) {
+	  GotEvent:
+	    XNextEvent (app->list[d], event);
+#ifdef XTHREADS
+	    /* assert(app->list[d] == event->xany.display); */
+#endif
+	    app->last = d;
+	    if (event->xany.type == MappingNotify)
+		_XtRefreshMapping(event, False);
+	    UNLOCK_APP(app);
+	    return;
+	}
+
+    } /* for */
+}
+
+void XtProcessEvent(
+	XtInputMask mask)
+{
+	XtAppProcessEvent(_XtDefaultAppContext(), mask);
+}
+
+void XtAppProcessEvent(
+	XtAppContext app,
+	XtInputMask mask)
+{
+	int i, d;
+	XEvent event;
+	struct timeval cur_time;
+
+	LOCK_APP(app);
+	if (mask == 0) {
+	    UNLOCK_APP(app);
+	    return;
+	}
+
+	for (;;) {
+
+	    if (mask & XtIMSignal && app->signalQueue != NULL) {
+		SignalEventRec *se_ptr = app->signalQueue;
+		while (se_ptr != NULL) {
+		    if (se_ptr->se_notice) {
+			se_ptr->se_notice = FALSE;
+			SeCallProc(se_ptr);
+			UNLOCK_APP(app);
+			return;
+		    }
+		    se_ptr = se_ptr->se_next;
+		}
+	    }
+
+	    if (mask & XtIMTimer && app->timerQueue != NULL) {
+		X_GETTIMEOFDAY (&cur_time);
+		FIXUP_TIMEVAL(cur_time);
+		if (IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)){
+		    TimerEventRec *te_ptr = app->timerQueue;
+		    app->timerQueue = app->timerQueue->te_next;
+		    te_ptr->te_next = NULL;
+                    if (te_ptr->te_proc != NULL)
+		        TeCallProc(te_ptr);
+		    LOCK_PROCESS;
+		    te_ptr->te_next = freeTimerRecs;
+		    freeTimerRecs = te_ptr;
+		    UNLOCK_PROCESS;
+		    UNLOCK_APP(app);
+		    return;
+		}
+	    }
+
+	    if (mask & XtIMAlternateInput) {
+		if (app->input_count > 0 && app->outstandingQueue == NULL) {
+		    /* Call _XtWaitForSomething to get input queued up */
+		    (void) _XtWaitForSomething (app,
+						TRUE, TRUE, FALSE, TRUE,
+						FALSE,
+#ifdef XTHREADS
+						TRUE,
+#endif
+						(unsigned long *)NULL);
+		}
+		if (app->outstandingQueue != NULL) {
+		    InputEvent *ie_ptr = app->outstandingQueue;
+		    app->outstandingQueue = ie_ptr->ie_oq;
+		    ie_ptr->ie_oq = NULL;
+		    IeCallProc(ie_ptr);
+		    UNLOCK_APP(app);
+		    return;
+		}
+	    }
+
+	    if (mask & XtIMXEvent) {
+		for (i = 1; i <= app->count; i++) {
+		    d = (i + app->last) % app->count;
+		    if (XEventsQueued(app->list[d], QueuedAfterReading))
+			goto GotEvent;
+		}
+		for (i = 1; i <= app->count; i++) {
+		    d = (i + app->last) % app->count;
+		    if (XEventsQueued(app->list[d], QueuedAfterFlush))
+			goto GotEvent;
+		}
+	    }
+
+	    /* Nothing to do...wait for something */
+
+	    if (CallWorkProc(app)) continue;
+
+	    d = _XtWaitForSomething (app,
+				    (mask & XtIMXEvent ? FALSE : TRUE),
+				    (mask & XtIMTimer ? FALSE : TRUE),
+				    (mask & XtIMAlternateInput ? FALSE : TRUE),
+				    (mask & XtIMSignal ? FALSE : TRUE),
+				    TRUE,
+#ifdef XTHREADS
+				    TRUE,
+#endif
+				    (unsigned long *) NULL);
+
+	    if (mask & XtIMXEvent && d != -1) {
+	      GotEvent:
+		XNextEvent(app->list[d], &event);
+#ifdef XTHREADS
+		/* assert(app->list[d] == event.xany.display); */
+#endif
+		app->last = d;
+		if (event.xany.type == MappingNotify) {
+		    _XtRefreshMapping(&event, False);
+		}
+		XtDispatchEvent(&event);
+		UNLOCK_APP(app);
+		return;
+	    }
+
+	}
+}
+
+Boolean XtPending(void)
+{
+	return (XtAppPending(_XtDefaultAppContext()) != 0);
+}
+
+XtInputMask XtAppPending(
+	XtAppContext app)
+{
+	struct timeval cur_time;
+	int d;
+	XtInputMask ret = 0;
+
+/*
+ * Check for pending X events
+ */
+	LOCK_APP(app);
+	for (d = 0; d < app->count; d++) {
+	    if (XEventsQueued(app->list[d], QueuedAfterReading)) {
+		ret = XtIMXEvent;
+		break;
+	    }
+	}
+	if (ret == 0) {
+	    for (d = 0; d < app->count; d++) {
+		if (XEventsQueued(app->list[d], QueuedAfterFlush)) {
+		    ret = XtIMXEvent;
+		    break;
+		}
+	    }
+	}
+
+	if (app->signalQueue != NULL) {
+	    SignalEventRec *se_ptr = app->signalQueue;
+	    while (se_ptr != NULL) {
+		if (se_ptr->se_notice) {
+		    ret |= XtIMSignal;
+		    break;
+		}
+		se_ptr = se_ptr->se_next;
+	    }
+	}
+
+/*
+ * Check for pending alternate input
+ */
+	if (app->timerQueue != NULL) {	/* check timeout queue */
+	    X_GETTIMEOFDAY (&cur_time);
+	    FIXUP_TIMEVAL(cur_time);
+	    if ((IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time))  &&
+                (app->timerQueue->te_proc != NULL)) {
+		ret |= XtIMTimer;
+	    }
+	}
+
+	if (app->outstandingQueue != NULL) ret |= XtIMAlternateInput;
+	else {
+	    /* This won't cause a wait, but will enqueue any input */
+
+	    if(_XtWaitForSomething (app,
+				    FALSE, TRUE, FALSE, TRUE,
+				    FALSE,
+#ifdef XTHREADS
+				    TRUE,
+#endif
+				    (unsigned long *) NULL) != -1)
+		ret |= XtIMXEvent;
+	    if (app->outstandingQueue != NULL) ret |= XtIMAlternateInput;
+	}
+	UNLOCK_APP(app);
+	return ret;
+}
+
+/* Peek at alternate input and timer callbacks if there are any */
+
+static Boolean PeekOtherSources(
+	XtAppContext app)
+{
+	struct timeval  cur_time;
+
+	if (app->outstandingQueue != NULL) return TRUE;
+
+	if (app->signalQueue != NULL) {
+	    SignalEventRec *se_ptr = app->signalQueue;
+	    while (se_ptr != NULL) {
+		if (se_ptr->se_notice)
+		    return TRUE;
+		se_ptr = se_ptr->se_next;
+	    }
+	}
+
+	if (app->input_count > 0) {
+	    /* Call _XtWaitForSomething to get input queued up */
+	    (void) _XtWaitForSomething (app,
+					TRUE, TRUE, FALSE, TRUE,
+					FALSE,
+#ifdef XTHREADS
+					TRUE,
+#endif
+					(unsigned long *)NULL);
+	    if (app->outstandingQueue != NULL) return TRUE;
+	}
+
+	if (app->timerQueue != NULL) {	/* check timeout queue */
+	    X_GETTIMEOFDAY (&cur_time);
+	    FIXUP_TIMEVAL(cur_time);
+	    if (IS_AT_OR_AFTER (app->timerQueue->te_timer_value, cur_time))
+		return TRUE;
+	}
+
+	return FALSE;
+}
+
+Boolean XtPeekEvent(
+	XEvent *event)
+{
+	return XtAppPeekEvent(_XtDefaultAppContext(), event);
+}
+
+Boolean XtAppPeekEvent_SkipTimer;
+
+Boolean XtAppPeekEvent(
+	XtAppContext app,
+	XEvent *event)
+{
+	int i, d;
+	Boolean foundCall = FALSE;
+
+	LOCK_APP(app);
+	for (i = 1; i <= app->count; i++) {
+	    d = (i + app->last) % app->count;
+	    if (d == 0) foundCall = PeekOtherSources(app);
+	    if (XEventsQueued(app->list[d], QueuedAfterReading))
+		goto GotEvent;
+	}
+	for (i = 1; i <= app->count; i++) {
+	    d = (i + app->last) % app->count;
+	    if (XEventsQueued(app->list[d], QueuedAfterFlush))
+		goto GotEvent;
+	}
+
+	if (foundCall) {
+	    event->xany.type = 0;
+	    event->xany.display = NULL;
+	    event->xany.window = 0;
+	    UNLOCK_APP(app);
+	    return FALSE;
+	}
+
+	while (1) {
+		d = _XtWaitForSomething (app,
+			FALSE, FALSE, FALSE, FALSE,
+			TRUE,
+#ifdef XTHREADS
+			TRUE,
+#endif
+			(unsigned long *) NULL);
+
+		if (d != -1) {  /* event */
+			GotEvent:
+			XPeekEvent(app->list[d], event);
+			app->last = (d == 0 ? app->count : d) - 1;
+			UNLOCK_APP(app);
+			return TRUE;
+		}
+		else {  /* input or timer or signal */
+			/*
+			 * Check to see why a -1 was returned, if a timer expired,
+			 * call it and block some more
+			 */
+			if ((app->timerQueue != NULL) && ! XtAppPeekEvent_SkipTimer) {  /* timer */
+				struct timeval cur_time;
+				Bool did_timer = False;
+
+				X_GETTIMEOFDAY (&cur_time);
+				FIXUP_TIMEVAL(cur_time);
+				while (IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)) {
+					TimerEventRec *te_ptr = app->timerQueue;
+					app->timerQueue = app->timerQueue->te_next;
+					te_ptr->te_next = NULL;
+					if (te_ptr->te_proc != NULL) {
+					    TeCallProc(te_ptr);
+					    did_timer = True;
+					}
+					LOCK_PROCESS;
+					te_ptr->te_next = freeTimerRecs;
+					freeTimerRecs = te_ptr;
+					UNLOCK_PROCESS;
+					if (app->timerQueue == NULL) break;
+				}
+				if (did_timer)
+				{
+				    for (d = 0; d < app->count; d++)
+				    /* the timer's procedure may have caused an event */
+					    if (XEventsQueued(app->list[d], QueuedAfterFlush)) {
+						    goto GotEvent;
+					    }
+				    continue;  /* keep blocking */
+				}
+			}
+			/*
+			 * spec is vague here; we'll assume signals also return FALSE,
+			 * of course to determine whether a signal is pending requires
+			 * walking the signalQueue looking for se_notice flags which
+			 * this code doesn't do.
+			 */
+#if 0
+			if (app->signalQueue != NULL) {  /* signal */
+				event->xany.type = 0;
+				event->xany.display = NULL;
+				event->xany.window = 0;
+				UNLOCK_APP(app);
+				return FALSE;
+			}
+			else
+#endif
+			{  /* input */
+				event->xany.type = 0;
+				event->xany.display = NULL;
+				event->xany.window = 0;
+				UNLOCK_APP(app);
+				return FALSE;
+			}
+		}
+	} /* end while */
+}
diff --git a/libXt/src/Object.c b/libXt/src/Object.c
index b81058b6c..ae1ac757b 100644
--- a/libXt/src/Object.c
+++ b/libXt/src/Object.c
@@ -1,304 +1,304 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-

-static XtResource resources[] = {

-        {XtNdestroyCallback, XtCCallback, XtRCallback,sizeof(XtPointer),

-         XtOffsetOf(ObjectRec,object.destroy_callbacks),

-	 XtRCallback, (XtPointer)NULL}

-    };

-

-static void ObjectClassPartInitialize(WidgetClass);

-static Boolean ObjectSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-static void ObjectDestroy(Widget);

-

-externaldef(objectclassrec) ObjectClassRec objectClassRec = {

-  {

-    /* superclass	  */	NULL,

-    /* class_name	  */	"Object",

-    /* widget_size	  */	sizeof(ObjectRec),

-    /* class_initialize   */    NULL,

-    /* class_part_initialize*/	ObjectClassPartInitialize,

-    /* class_inited       */	FALSE,

-    /* initialize	  */	NULL,

-    /* initialize_hook    */	NULL,

-    /* pad                */    NULL,

-    /* pad		  */	NULL,

-    /* pad       	  */	0,

-    /* resources	  */	resources,

-    /* num_resources	  */    XtNumber(resources),

-    /* xrm_class	  */	NULLQUARK,

-    /* pad                */    FALSE,

-    /* pad                */    FALSE,

-    /* pad                */    FALSE,

-    /* pad                */    FALSE,

-    /* destroy		  */	ObjectDestroy,

-    /* pad		  */	NULL,

-    /* pad		  */	NULL,

-    /* set_values	  */	ObjectSetValues,

-    /* set_values_hook    */	NULL,

-    /* pad                */    NULL,

-    /* get_values_hook    */	NULL,

-    /* pad                */    NULL,

-    /* version		  */	XtVersion,

-    /* callback_offsets   */    NULL,

-    /* pad                */    NULL,

-    /* pad                */    NULL,

-    /* pad                */    NULL,

-    /* extension	    */  NULL

-}

-};

-

-externaldef(objectClass) WidgetClass objectClass

-                          = (WidgetClass)&objectClassRec;

-

-/*

- * Start of object routines.

- */

-

-

-static void ConstructCallbackOffsets(

-    WidgetClass widgetClass)

-{

-    static XrmQuark QCallback = NULLQUARK;

-    register int i;

-    register int tableSize;

-    register CallbackTable newTable;

-    register CallbackTable superTable;

-    register XrmResourceList resourceList;

-    ObjectClass objectClass = (ObjectClass)widgetClass;

-

-    /*

-      This function builds an array of pointers to the resource

-      structures which describe the callbacks for this widget class.

-      This array is special in that the 0th entry is the number of

-      callback pointers.

-     */

-

-    if (QCallback == NULLQUARK)

-	QCallback = XrmPermStringToQuark(XtRCallback);

-

-    if (objectClass->object_class.superclass != NULL) {

-	superTable = (CallbackTable)

-	    ((ObjectClass) objectClass->object_class.superclass)->

-		object_class.callback_private;

-	tableSize = (int)(long) superTable[0];

-    } else {

-	superTable = (CallbackTable) NULL;

-	tableSize = 0;

-    }

-

-    /* Count the number of callbacks */

-    resourceList = (XrmResourceList) objectClass->object_class.resources;

-    for (i = objectClass->object_class.num_resources; --i >= 0; resourceList++)

-	if (resourceList->xrm_type == QCallback)

-	    tableSize++;

-

-    /*

-     * Allocate and load the table.  Make sure that the new callback

-     * offsets occur in the table ahead of the superclass callback

-     * offsets so that resource overrides work.

-     */

-    newTable = (CallbackTable)

-	__XtMalloc(sizeof(XrmResource *) * (tableSize + 1));

-

-    newTable[0] = (XrmResource *)(long) tableSize;

-

-    if (superTable)

-	tableSize -= (int)(long) superTable[0];

-    resourceList = (XrmResourceList) objectClass->object_class.resources;

-    for (i=1; tableSize > 0; resourceList++)

-	if (resourceList->xrm_type == QCallback) {

-	    newTable[i++] = resourceList;

-	    tableSize--;

-	}

-

-    if (superTable)

-	for (tableSize = (int)(long) *superTable++;

-	    --tableSize >= 0; superTable++)

-	    newTable[i++] = *superTable;

-

-    objectClass->object_class.callback_private = (XtPointer) newTable;

-}

-

-static void InheritObjectExtensionMethods(

-    WidgetClass widget_class)

-{

-    ObjectClass oc = (ObjectClass) widget_class;

-    ObjectClassExtension ext, super_ext = NULL;

-

-    ext = (ObjectClassExtension)

-	XtGetClassExtension(widget_class,

-		    XtOffsetOf(ObjectClassRec, object_class.extension),

-			    NULLQUARK, XtObjectExtensionVersion,

-			    sizeof(ObjectClassExtensionRec));

-

-    if (oc->object_class.superclass)

-	super_ext = (ObjectClassExtension)

-	    XtGetClassExtension(oc->object_class.superclass,

-			XtOffsetOf(ObjectClassRec, object_class.extension),

-				NULLQUARK, XtObjectExtensionVersion,

-				sizeof(ObjectClassExtensionRec));

-    LOCK_PROCESS;

-    if (ext) {

-	if (ext->allocate == XtInheritAllocate)

-	    ext->allocate = (super_ext ? super_ext->allocate : NULL);

-	if (ext->deallocate == XtInheritDeallocate)

-	    ext->deallocate = (super_ext ? super_ext->deallocate : NULL);

-    } else if (super_ext) {

-	/* Be careful to inherit only what is appropriate */

-	ext = (ObjectClassExtension)

-	    __XtCalloc(1, sizeof(ObjectClassExtensionRec));

-	ext->next_extension = oc->object_class.extension;

-	ext->record_type = NULLQUARK;

-	ext->version = XtObjectExtensionVersion;

-	ext->record_size = sizeof(ObjectClassExtensionRec);

-	ext->allocate = super_ext->allocate;

-	ext->deallocate = super_ext->deallocate;

-	oc->object_class.extension = (XtPointer) ext;

-    }

-    UNLOCK_PROCESS;

-}

-

-static void ObjectClassPartInitialize(

-    register WidgetClass wc)

-{

-   ObjectClass oc = (ObjectClass)wc;

-

-   oc->object_class.xrm_class =

-       XrmPermStringToQuark(oc->object_class.class_name);

-

-   if (oc->object_class.resources)

-       _XtCompileResourceList(oc->object_class.resources,

-			      oc->object_class.num_resources);

-

-   ConstructCallbackOffsets(wc);

-   _XtResourceDependencies(wc);

-   InheritObjectExtensionMethods(wc);

-}

-

-

-/*ARGSUSED*/

-static Boolean ObjectSetValues(

-    Widget	old,

-    Widget	request,

-    Widget	widget,

-    ArgList	args,

-    Cardinal *	num_args)

-{

-    register CallbackTable offsets;

-    register int i;

-    register InternalCallbackList *ol, *nl;

-

-    LOCK_PROCESS;

-    /* Compile any callback lists into internal form */

-    offsets = (CallbackTable) XtClass(widget)->core_class.callback_private;

-

-    for (i= (int)(long) *(offsets++); --i >= 0; offsets++) {

-	ol = (InternalCallbackList *)

-	    ((char *) old - (*offsets)->xrm_offset - 1);

-	nl = (InternalCallbackList *)

-	    ((char *) widget - (*offsets)->xrm_offset - 1);

-	if (*ol != *nl) {

-	    if (*ol != NULL)

-		XtFree((char *) *ol);

-	    if (*nl != NULL)

-		*nl = _XtCompileCallbackList((XtCallbackList) *nl);

-	}

-    }

-    UNLOCK_PROCESS;

-    return False;

-}

-

-

-static void ObjectDestroy (

-    register Widget    widget)

-{

-    register CallbackTable offsets;

-    register int i;

-    register InternalCallbackList cl;

-

-    /* Remove all callbacks associated with widget */

-    LOCK_PROCESS;

-    offsets = (CallbackTable)

-	widget->core.widget_class->core_class.callback_private;

-

-    for (i = (int)(long) *(offsets++); --i >= 0; offsets++) {

-	cl = *(InternalCallbackList *)

-	    ((char *) widget - (*offsets)->xrm_offset - 1);

-	if (cl) XtFree((char *) cl);

-    }

-    UNLOCK_PROCESS;

-} /* ObjectDestroy */

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+
+static XtResource resources[] = {
+        {XtNdestroyCallback, XtCCallback, XtRCallback,sizeof(XtPointer),
+         XtOffsetOf(ObjectRec,object.destroy_callbacks),
+	 XtRCallback, (XtPointer)NULL}
+    };
+
+static void ObjectClassPartInitialize(WidgetClass);
+static Boolean ObjectSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+static void ObjectDestroy(Widget);
+
+externaldef(objectclassrec) ObjectClassRec objectClassRec = {
+  {
+    /* superclass	  */	NULL,
+    /* class_name	  */	"Object",
+    /* widget_size	  */	sizeof(ObjectRec),
+    /* class_initialize   */    NULL,
+    /* class_part_initialize*/	ObjectClassPartInitialize,
+    /* class_inited       */	FALSE,
+    /* initialize	  */	NULL,
+    /* initialize_hook    */	NULL,
+    /* pad                */    NULL,
+    /* pad		  */	NULL,
+    /* pad       	  */	0,
+    /* resources	  */	resources,
+    /* num_resources	  */    XtNumber(resources),
+    /* xrm_class	  */	NULLQUARK,
+    /* pad                */    FALSE,
+    /* pad                */    FALSE,
+    /* pad                */    FALSE,
+    /* pad                */    FALSE,
+    /* destroy		  */	ObjectDestroy,
+    /* pad		  */	NULL,
+    /* pad		  */	NULL,
+    /* set_values	  */	ObjectSetValues,
+    /* set_values_hook    */	NULL,
+    /* pad                */    NULL,
+    /* get_values_hook    */	NULL,
+    /* pad                */    NULL,
+    /* version		  */	XtVersion,
+    /* callback_offsets   */    NULL,
+    /* pad                */    NULL,
+    /* pad                */    NULL,
+    /* pad                */    NULL,
+    /* extension	    */  NULL
+}
+};
+
+externaldef(objectClass) WidgetClass objectClass
+                          = (WidgetClass)&objectClassRec;
+
+/*
+ * Start of object routines.
+ */
+
+
+static void ConstructCallbackOffsets(
+    WidgetClass widgetClass)
+{
+    static XrmQuark QCallback = NULLQUARK;
+    register int i;
+    register int tableSize;
+    register CallbackTable newTable;
+    register CallbackTable superTable;
+    register XrmResourceList resourceList;
+    ObjectClass objectClass = (ObjectClass)widgetClass;
+
+    /*
+      This function builds an array of pointers to the resource
+      structures which describe the callbacks for this widget class.
+      This array is special in that the 0th entry is the number of
+      callback pointers.
+     */
+
+    if (QCallback == NULLQUARK)
+	QCallback = XrmPermStringToQuark(XtRCallback);
+
+    if (objectClass->object_class.superclass != NULL) {
+	superTable = (CallbackTable)
+	    ((ObjectClass) objectClass->object_class.superclass)->
+		object_class.callback_private;
+	tableSize = (int)(long) superTable[0];
+    } else {
+	superTable = (CallbackTable) NULL;
+	tableSize = 0;
+    }
+
+    /* Count the number of callbacks */
+    resourceList = (XrmResourceList) objectClass->object_class.resources;
+    for (i = objectClass->object_class.num_resources; --i >= 0; resourceList++)
+	if (resourceList->xrm_type == QCallback)
+	    tableSize++;
+
+    /*
+     * Allocate and load the table.  Make sure that the new callback
+     * offsets occur in the table ahead of the superclass callback
+     * offsets so that resource overrides work.
+     */
+    newTable = (CallbackTable)
+	__XtMalloc(sizeof(XrmResource *) * (tableSize + 1));
+
+    newTable[0] = (XrmResource *)(long) tableSize;
+
+    if (superTable)
+	tableSize -= (int)(long) superTable[0];
+    resourceList = (XrmResourceList) objectClass->object_class.resources;
+    for (i=1; tableSize > 0; resourceList++)
+	if (resourceList->xrm_type == QCallback) {
+	    newTable[i++] = resourceList;
+	    tableSize--;
+	}
+
+    if (superTable)
+	for (tableSize = (int)(long) *superTable++;
+	    --tableSize >= 0; superTable++)
+	    newTable[i++] = *superTable;
+
+    objectClass->object_class.callback_private = (XtPointer) newTable;
+}
+
+static void InheritObjectExtensionMethods(
+    WidgetClass widget_class)
+{
+    ObjectClass oc = (ObjectClass) widget_class;
+    ObjectClassExtension ext, super_ext = NULL;
+
+    ext = (ObjectClassExtension)
+	XtGetClassExtension(widget_class,
+		    XtOffsetOf(ObjectClassRec, object_class.extension),
+			    NULLQUARK, XtObjectExtensionVersion,
+			    sizeof(ObjectClassExtensionRec));
+
+    if (oc->object_class.superclass)
+	super_ext = (ObjectClassExtension)
+	    XtGetClassExtension(oc->object_class.superclass,
+			XtOffsetOf(ObjectClassRec, object_class.extension),
+				NULLQUARK, XtObjectExtensionVersion,
+				sizeof(ObjectClassExtensionRec));
+    LOCK_PROCESS;
+    if (ext) {
+	if (ext->allocate == XtInheritAllocate)
+	    ext->allocate = (super_ext ? super_ext->allocate : NULL);
+	if (ext->deallocate == XtInheritDeallocate)
+	    ext->deallocate = (super_ext ? super_ext->deallocate : NULL);
+    } else if (super_ext) {
+	/* Be careful to inherit only what is appropriate */
+	ext = (ObjectClassExtension)
+	    __XtCalloc(1, sizeof(ObjectClassExtensionRec));
+	ext->next_extension = oc->object_class.extension;
+	ext->record_type = NULLQUARK;
+	ext->version = XtObjectExtensionVersion;
+	ext->record_size = sizeof(ObjectClassExtensionRec);
+	ext->allocate = super_ext->allocate;
+	ext->deallocate = super_ext->deallocate;
+	oc->object_class.extension = (XtPointer) ext;
+    }
+    UNLOCK_PROCESS;
+}
+
+static void ObjectClassPartInitialize(
+    register WidgetClass wc)
+{
+   ObjectClass oc = (ObjectClass)wc;
+
+   oc->object_class.xrm_class =
+       XrmPermStringToQuark(oc->object_class.class_name);
+
+   if (oc->object_class.resources)
+       _XtCompileResourceList(oc->object_class.resources,
+			      oc->object_class.num_resources);
+
+   ConstructCallbackOffsets(wc);
+   _XtResourceDependencies(wc);
+   InheritObjectExtensionMethods(wc);
+}
+
+
+/*ARGSUSED*/
+static Boolean ObjectSetValues(
+    Widget	old,
+    Widget	request,
+    Widget	widget,
+    ArgList	args,
+    Cardinal *	num_args)
+{
+    register CallbackTable offsets;
+    register int i;
+    register InternalCallbackList *ol, *nl;
+
+    LOCK_PROCESS;
+    /* Compile any callback lists into internal form */
+    offsets = (CallbackTable) XtClass(widget)->core_class.callback_private;
+
+    for (i= (int)(long) *(offsets++); --i >= 0; offsets++) {
+	ol = (InternalCallbackList *)
+	    ((char *) old - (*offsets)->xrm_offset - 1);
+	nl = (InternalCallbackList *)
+	    ((char *) widget - (*offsets)->xrm_offset - 1);
+	if (*ol != *nl) {
+	    if (*ol != NULL)
+		XtFree((char *) *ol);
+	    if (*nl != NULL)
+		*nl = _XtCompileCallbackList((XtCallbackList) *nl);
+	}
+    }
+    UNLOCK_PROCESS;
+    return False;
+}
+
+
+static void ObjectDestroy (
+    register Widget    widget)
+{
+    register CallbackTable offsets;
+    register int i;
+    register InternalCallbackList cl;
+
+    /* Remove all callbacks associated with widget */
+    LOCK_PROCESS;
+    offsets = (CallbackTable)
+	widget->core.widget_class->core_class.callback_private;
+
+    for (i = (int)(long) *(offsets++); --i >= 0; offsets++) {
+	cl = *(InternalCallbackList *)
+	    ((char *) widget - (*offsets)->xrm_offset - 1);
+	if (cl) XtFree((char *) cl);
+    }
+    UNLOCK_PROCESS;
+} /* ObjectDestroy */
diff --git a/libXt/src/PassivGrab.c b/libXt/src/PassivGrab.c
index d97ada27f..8d3a1d151 100644
--- a/libXt/src/PassivGrab.c
+++ b/libXt/src/PassivGrab.c
@@ -1,1064 +1,1064 @@
-/*

-

-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 1988 by Hewlett-Packard Company

-Copyright 1987, 1988, 1989,1990 by Digital Equipment Corporation, Maynard, Massachusetts

-

-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 names of

-Hewlett-Packard or 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, 1989, 1990, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "PassivGraI.h"

-

-/* typedef unsigned long Mask; */

-#define BITMASK(i) (((Mask)1) << ((i) & 31))

-#define MASKIDX(i) ((i) >> 5)

-#define MASKWORD(buf, i) buf[MASKIDX(i)]

-#define BITSET(buf, i) MASKWORD(buf, i) |= BITMASK(i)

-#define BITCLEAR(buf, i) MASKWORD(buf, i) &= ~BITMASK(i)

-#define GETBIT(buf, i) (MASKWORD(buf, i) & BITMASK(i))

-#define MasksPerDetailMask 8

-

-#define pDisplay(grabPtr) (((grabPtr)->widget)->core.screen->display)

-#define pWindow(grabPtr) (((grabPtr)->widget)->core.window)

-

-

-/***************************************************************************/

-/*********************** Internal Support Routines *************************/

-/***************************************************************************/

-

-/*

- * Turn off (clear) the bit in the specified detail mask which is associated

- * with the detail.

- */

-

-static void DeleteDetailFromMask(

-    Mask **ppDetailMask,

-    unsigned short detail)

-{

-    Mask *pDetailMask = *ppDetailMask;

-

-    if (!pDetailMask) {

-	int i;

-	pDetailMask = (Mask *)__XtMalloc(sizeof(Mask) * MasksPerDetailMask);

-	for (i = MasksPerDetailMask; --i >= 0; )

-	    pDetailMask[i] = ~0;

-	*ppDetailMask = pDetailMask;

-    }

-    BITCLEAR((pDetailMask), detail);

-}

-

-

-/*

- * Make an exact copy of the specified detail mask.

- */

-

-static Mask *CopyDetailMask(

-    Mask *pOriginalDetailMask)

-{

-    Mask *pTempMask;

-    int i;

-

-    if (!pOriginalDetailMask)

-	return NULL;

-

-    pTempMask = (Mask *)__XtMalloc(sizeof(Mask) * MasksPerDetailMask);

-

-    for ( i = 0; i < MasksPerDetailMask; i++)

-      pTempMask[i]= pOriginalDetailMask[i];

-

-    return pTempMask;

-}

-

-

-/*

- * Allocate a new grab entry, and fill in all of the fields using the

- * specified parameters.

- */

-

-static XtServerGrabPtr CreateGrab(

-    Widget	widget,

-    Boolean	ownerEvents,

-    Modifiers	modifiers,

-    KeyCode 	keybut,

-    int		pointer_mode,

-    int		keyboard_mode,

-    Mask	event_mask,

-    Window 	confine_to,

-    Cursor 	cursor,

-    Boolean	need_ext)

-{

-    XtServerGrabPtr grab;

-

-    if (confine_to || cursor)

-	need_ext = True;

-    grab = (XtServerGrabPtr)__XtMalloc(sizeof(XtServerGrabRec) +

-				     (need_ext ? sizeof(XtServerGrabExtRec)

-				      : 0));

-    grab->next = NULL;

-    grab->widget = widget;

-    grab->ownerEvents = ownerEvents;

-    grab->pointerMode = pointer_mode;

-    grab->keyboardMode = keyboard_mode;

-    grab->eventMask = event_mask;

-    grab->hasExt = need_ext;

-    grab->confineToIsWidgetWin = (XtWindow (widget) == confine_to);

-    grab->modifiers = modifiers;

-    grab->keybut = keybut;

-    if (need_ext) {

-	XtServerGrabExtPtr ext = GRABEXT(grab);

-	ext->pModifiersMask = NULL;

-	ext->pKeyButMask = NULL;

-	ext->confineTo = confine_to;

-	ext->cursor = cursor;

-    }

-    return grab;

-}

-

-

-/*

- * Free up the space occupied by a grab entry.

- */

-

-static void FreeGrab(

-    XtServerGrabPtr pGrab)

-{

-    if (pGrab->hasExt) {

-	XtServerGrabExtPtr ext = GRABEXT(pGrab);

-	if (ext->pModifiersMask)

-	    XtFree((char *)ext->pModifiersMask);

-	if (ext->pKeyButMask)

-	    XtFree((char *)ext->pKeyButMask);

-    }

-    XtFree((char *)pGrab);

-}

-

-typedef struct _DetailRec {

-    unsigned short 	exact;

-    Mask  		*pMask;

-} DetailRec, *DetailPtr;

-

-/*

- * If the first detail is set to 'exception' and the second detail

- * is contained in the mask of the first, then TRUE is returned.

- */

-

-static Bool IsInGrabMask(

-    register DetailPtr firstDetail,

-    register DetailPtr secondDetail,

-    unsigned short exception)

-{

-    if (firstDetail->exact == exception) {

-	if (!firstDetail->pMask)

-	    return TRUE;

-

-	/* (at present) never called with two non-null pMasks */

-	if (secondDetail->exact == exception)

-	    return FALSE;

-

-	if (GETBIT(firstDetail->pMask, secondDetail->exact))

-	    return TRUE;

-    }

-

-    return FALSE;

-}

-

-

-/*

- * If neither of the details is set to 'exception', and they match

- * exactly, then TRUE is returned.

- */

-

-static Bool IdenticalExactDetails(

-    unsigned short firstExact,

-    unsigned short secondExact,

-    unsigned short exception)

-{

-    if ((firstExact == exception) || (secondExact == exception))

-	return FALSE;

-

-    if (firstExact == secondExact)

-	return TRUE;

-

-    return FALSE;

-}

-

-

-/*

- * If the first detail is set to 'exception', and its mask has the bit

- * enabled which corresponds to the second detail, OR if neither of the

- * details is set to 'exception' and the details match exactly, then

- * TRUE is returned.

- */

-

-static Bool DetailSupersedesSecond(

-    register DetailPtr firstDetail,

-    register DetailPtr secondDetail,

-    unsigned short exception)

-{

-    if (IsInGrabMask(firstDetail, secondDetail, exception))

-	return TRUE;

-

-    if (IdenticalExactDetails(firstDetail->exact, secondDetail->exact,

-			      exception))

-	return TRUE;

-

-    return FALSE;

-}

-

-

-/*

- * If the two grab events match exactly, or if the first grab entry

- * 'encompasses' the second grab entry, then TRUE is returned.

- */

-

-static Bool GrabSupersedesSecond(

-    register XtServerGrabPtr pFirstGrab,

-    register XtServerGrabPtr pSecondGrab)

-{

-    DetailRec first, second;

-

-    first.exact = pFirstGrab->modifiers;

-    if (pFirstGrab->hasExt)

-	first.pMask = GRABEXT(pFirstGrab)->pModifiersMask;

-    else

-	first.pMask = NULL;

-    second.exact = pSecondGrab->modifiers;

-    if (pSecondGrab->hasExt)

-	second.pMask = GRABEXT(pSecondGrab)->pModifiersMask;

-    else

-	second.pMask = NULL;

-    if (!DetailSupersedesSecond(&first, &second, (unsigned short)AnyModifier))

-      return FALSE;

-

-    first.exact = pFirstGrab->keybut;

-    if (pFirstGrab->hasExt)

-	first.pMask = GRABEXT(pFirstGrab)->pKeyButMask;

-    else

-	first.pMask = NULL;

-    second.exact = pSecondGrab->keybut;

-    if (pSecondGrab->hasExt)

-	second.pMask = GRABEXT(pSecondGrab)->pKeyButMask;

-    else

-	second.pMask = NULL;

-    if (DetailSupersedesSecond(&first, &second, (unsigned short)AnyKey))

-      return TRUE;

-

-    return FALSE;

-}

-

-

-/*

- * Two grabs are considered to be matching if either of the following are true:

- *

- * 1) The two grab entries match exactly, or the first grab entry

- *    encompasses the second grab entry.

- * 2) The second grab entry encompasses the first grab entry.

- * 3) The keycodes match exactly, and one entry's modifiers encompasses

- *    the others.

- * 4) The keycode for one entry encompasses the other, and the detail

- *    for the other entry encompasses the first.

- */

-

-static Bool GrabMatchesSecond(

-    register XtServerGrabPtr pFirstGrab,

-    register XtServerGrabPtr pSecondGrab)

-{

-    DetailRec firstD, firstM, secondD, secondM;

-

-    if (pDisplay(pFirstGrab) != pDisplay(pSecondGrab))

-	return FALSE;

-

-    if (GrabSupersedesSecond(pFirstGrab, pSecondGrab))

-	return TRUE;

-

-    if (GrabSupersedesSecond(pSecondGrab, pFirstGrab))

-	return TRUE;

-

-    firstD.exact = pFirstGrab->keybut;

-    firstM.exact = pFirstGrab->modifiers;

-    if (pFirstGrab->hasExt) {

-	firstD.pMask = GRABEXT(pFirstGrab)->pKeyButMask;

-	firstM.pMask = GRABEXT(pFirstGrab)->pModifiersMask;

-    } else {

-	firstD.pMask = NULL;

-	firstM.pMask = NULL;

-    }

-    secondD.exact = pSecondGrab->keybut;

-    secondM.exact = pSecondGrab->modifiers;

-    if (pSecondGrab->hasExt) {

-	secondD.pMask = GRABEXT(pSecondGrab)->pKeyButMask;

-	secondM.pMask = GRABEXT(pSecondGrab)->pModifiersMask;

-    } else {

-	secondD.pMask = NULL;

-	secondM.pMask = NULL;

-    }

-

-    if (DetailSupersedesSecond(&secondD, &firstD, (unsigned short)AnyKey) &&

-	DetailSupersedesSecond(&firstM, &secondM, (unsigned short)AnyModifier))

-	return TRUE;

-

-    if (DetailSupersedesSecond(&firstD, &secondD, (unsigned short)AnyKey) &&

-	DetailSupersedesSecond(&secondM, &firstM, (unsigned short)AnyModifier))

-	return TRUE;

-

-    return FALSE;

-}

-

-

-/*

- * Delete a grab combination from the passive grab list.  Each entry will

- * be checked to see if it is affected by the grab being deleted.  This

- * may result in multiple entries being modified/deleted.

- */

-

-static void DeleteServerGrabFromList(

-    XtServerGrabPtr 	*passiveListPtr,

-    XtServerGrabPtr 	pMinuendGrab)

-{

-    register XtServerGrabPtr *next;

-    register XtServerGrabPtr grab;

-    register XtServerGrabExtPtr ext;

-

-    for (next = passiveListPtr; (grab = *next); )

-    {

-	if (GrabMatchesSecond(grab, pMinuendGrab) &&

-	    (pDisplay(grab) == pDisplay(pMinuendGrab)))

-	{

-	    if (GrabSupersedesSecond(pMinuendGrab, grab))

-	    {

-		/*

-		 * The entry being deleted encompasses the list entry,

-		 * so delete the list entry.

-		 */

-		*next = grab->next;

-		FreeGrab(grab);

-		continue;

-	    }

-

-	    if (!grab->hasExt) {

-		grab = (XtServerGrabPtr)

-		    XtRealloc((char *)grab, (sizeof(XtServerGrabRec) +

-					     sizeof(XtServerGrabExtRec)));

-		*next = grab;

-		grab->hasExt = True;

-		ext = GRABEXT(grab);

-		ext->pKeyButMask = NULL;

-		ext->pModifiersMask = NULL;

-		ext->confineTo = None;

-		ext->cursor = None;

-	    } else

-		ext = GRABEXT(grab);

-	    if ((grab->keybut == AnyKey) && (grab->modifiers != AnyModifier))

-	    {

-		/*

-		 * If the list entry has the key detail of AnyKey, and

-		 * a modifier detail not set to AnyModifier, then we

-		 * simply need to turn off the key detail bit in the

-		 * list entry's key detail mask.

-		 */

-		DeleteDetailFromMask(&ext->pKeyButMask, pMinuendGrab->keybut);

-	    } else if ((grab->modifiers == AnyModifier) &&

-		       (grab->keybut != AnyKey)) {

-		/*

-		 * The list entry has a specific key detail, but its

-		 * modifier detail is set to AnyModifier; so, we only

-		 * need to turn off the specified modifier combination

-		 * in the list entry's modifier mask.

-		 */

-		DeleteDetailFromMask(&ext->pModifiersMask,

-				     pMinuendGrab->modifiers);

-	    } else if ((pMinuendGrab->keybut != AnyKey) &&

-		       (pMinuendGrab->modifiers != AnyModifier)) {

-		/*

-		 * The list entry has a key detail of AnyKey and a

-		 * modifier detail of AnyModifier; the entry being

-		 * deleted has a specific key and a specific modifier

-		 * combination.  Therefore, we need to mask off the

-		 * keycode from the list entry, and also create a

-		 * new entry for this keycode, which has a modifier

-		 * mask set to AnyModifier & ~(deleted modifiers).

-		 */

-		XtServerGrabPtr pNewGrab;

-

-		DeleteDetailFromMask(&ext->pKeyButMask, pMinuendGrab->keybut);

-		pNewGrab = CreateGrab(grab->widget,

-				      (Boolean)grab->ownerEvents,

-				      (Modifiers)AnyModifier,

-				      pMinuendGrab->keybut,

-				      (int)grab->pointerMode,

-				      (int)grab->keyboardMode,

-				      (Mask)0, (Window)0, (Cursor)0, True);

-		GRABEXT(pNewGrab)->pModifiersMask =

-		    CopyDetailMask(ext->pModifiersMask);

-

-		DeleteDetailFromMask(&GRABEXT(pNewGrab)->pModifiersMask,

-				     pMinuendGrab->modifiers);

-

-		pNewGrab->next = *passiveListPtr;

-		*passiveListPtr = pNewGrab;

-	    } else if (pMinuendGrab->keybut == AnyKey) {

-		/*

-		 * The list entry has keycode AnyKey and modifier

-		 * AnyModifier; the entry being deleted has

-		 * keycode AnyKey and specific modifiers.  So we

-		 * simply need to mask off the specified modifier

-		 * combination.

-		 */

-		DeleteDetailFromMask(&ext->pModifiersMask,

-				     pMinuendGrab->modifiers);

-	    } else {

-		/*

-		 * The list entry has keycode AnyKey and modifier

-		 * AnyModifier; the entry being deleted has a

-		 * specific keycode and modifier AnyModifier.  So

-		 * we simply need to mask off the specified

-		 * keycode.

-		 */

-		DeleteDetailFromMask(&ext->pKeyButMask, pMinuendGrab->keybut);

-	    }

-	}

-	next = &(*next)->next;

-    }

-}

-

-static void DestroyPassiveList(

-    XtServerGrabPtr	*passiveListPtr)

-{

-    XtServerGrabPtr	next, grab;

-

-    for (next = *passiveListPtr; next; ) {

-	grab = next;

-	next = grab->next;

-

-	/* not necessary to explicitly ungrab key or button;

-	 * window is being destroyed so server will take care of it.

-	 */

-

-	FreeGrab(grab);

-    }

-}

-

-

-/*

- * This function is called at widget destroy time to clean up

- */

-/*ARGSUSED*/

-void _XtDestroyServerGrabs(

-    Widget		w,

-    XtPointer		closure,

-    XtPointer		call_data) /* unused */

-{

-    XtPerWidgetInput	pwi = (XtPerWidgetInput)closure;

-    XtPerDisplayInput	pdi;

-

-    LOCK_PROCESS;

-    pdi = _XtGetPerDisplayInput(XtDisplay(w));

-    _XtClearAncestorCache(w);

-    UNLOCK_PROCESS;

-

-    /* Remove the active grab, if necessary */

-    if ((pdi->keyboard.grabType != XtNoServerGrab) &&

-	(pdi->keyboard.grab.widget == w)) {

-	pdi->keyboard.grabType = XtNoServerGrab;

-	pdi->activatingKey = (KeyCode)0;

-    }

-    if ((pdi->pointer.grabType != XtNoServerGrab) &&

-	(pdi->pointer.grab.widget == w))

-	pdi->pointer.grabType = XtNoServerGrab;

-

-    DestroyPassiveList(&pwi->keyList);

-    DestroyPassiveList(&pwi->ptrList);

-

-    _XtFreePerWidgetInput(w, pwi);

-}

-

-/*

- * If the incoming event is on the passive grab list, then activate

- * the grab.  The grab will remain in effect until the key is released.

- */

-

-XtServerGrabPtr _XtCheckServerGrabsOnWidget (

-    XEvent 		*event,

-    Widget		widget,

-    _XtBoolean		isKeyboard)

-{

-    register XtServerGrabPtr grab;

-    XtServerGrabRec 	tempGrab;

-    XtServerGrabPtr	*passiveListPtr;

-    XtPerWidgetInput	pwi;

-

-    LOCK_PROCESS;

-    pwi = _XtGetPerWidgetInput(widget, FALSE);

-    UNLOCK_PROCESS;

-    if (!pwi)

-	return (XtServerGrabPtr)NULL;

-    if (isKeyboard)

-	passiveListPtr = &pwi->keyList;

-    else

-	passiveListPtr = &pwi->ptrList;

-

-    /*

-     * if either there is no entry in the context manager or the entry

-     * is empty, or the keyboard is grabed, then no work to be done

-     */

-    if (!*passiveListPtr)

-	return (XtServerGrabPtr)NULL;

-

-    /* Take only the lower thirteen bits as modifier state.  The X Keyboard

-     * Extension may be representing keyboard group state in two upper bits.

-     */

-    tempGrab.widget = widget;

-    tempGrab.keybut = event->xkey.keycode; /* also xbutton.button */

-    tempGrab.modifiers = event->xkey.state & 0x1FFF; /*also xbutton.state*/

-    tempGrab.hasExt = False;

-

-    for (grab = *passiveListPtr; grab; grab = grab->next) {

-	if (GrabMatchesSecond(&tempGrab, grab))

-	    return (grab);

-    }

-    return (XtServerGrabPtr)NULL;

-}

-

-/*

- * This handler is needed to guarantee that we see releases on passive

- * button grabs for widgets that haven't selected for button release.

- */

-

-/*ARGSUSED*/

-static void  ActiveHandler (

-    Widget 		widget,

-    XtPointer		pdi,

-    XEvent 		*event,

-    Boolean		*cont)

-{

-    /* nothing */

-}

-

-

-/*

- *	MakeGrab

- */

-static void  MakeGrab(

-    XtServerGrabPtr	grab,

-    XtServerGrabPtr	*passiveListPtr,

-    Boolean		isKeyboard,

-    XtPerDisplayInput	pdi,

-    XtPerWidgetInput	pwi)

-{

-    if (!isKeyboard && !pwi->active_handler_added) {

-	XtAddEventHandler(grab->widget, ButtonReleaseMask, FALSE,

-			  ActiveHandler, (XtPointer)pdi);

-	pwi->active_handler_added = TRUE;

-    }

-

-    if (isKeyboard) {

-	XGrabKey(pDisplay(grab),

-		 grab->keybut, grab->modifiers,

-		 pWindow(grab), grab->ownerEvents,

-		 grab->pointerMode, grab->keyboardMode);

-    } else {

-	Window confineTo = None;

-	Cursor cursor = None;

-

-	if (grab->hasExt) {

-	    if (grab->confineToIsWidgetWin)

-		confineTo = XtWindow (grab->widget);

-	    else

-		confineTo = GRABEXT(grab)->confineTo;

-	    cursor = GRABEXT(grab)->cursor;

-	}

-	XGrabButton(pDisplay(grab),

-		    grab->keybut, grab->modifiers,

-		    pWindow(grab), grab->ownerEvents, grab->eventMask,

-		    grab->pointerMode, grab->keyboardMode,

-		    confineTo, cursor);

-    }

-

-    /* Add the new grab entry to the passive key grab list */

-    grab->next = *passiveListPtr;

-    *passiveListPtr = grab;

-}

-

-static void MakeGrabs(

-    XtServerGrabPtr	*passiveListPtr,

-    Boolean		isKeyboard,

-    XtPerDisplayInput	pdi)

-{

-    XtServerGrabPtr	next = *passiveListPtr;

-    XtServerGrabPtr	grab;

-    XtPerWidgetInput	pwi;

-    /*

-     * make MakeGrab build a new list that has had the merge

-     * processing done on it. Start with an empty list

-     * (passiveListPtr).

-     */

-    LOCK_PROCESS;

-    *passiveListPtr = NULL;

-    while (next)

-      {

-	  grab = next;

-	  next = grab->next;

-	  pwi = _XtGetPerWidgetInput(grab->widget, FALSE);

-	  MakeGrab(grab, passiveListPtr, isKeyboard, pdi, pwi);

-      }

-    UNLOCK_PROCESS;

-}

-

-/*

- * This function is the event handler attached to the associated widget

- * when grabs need to be added, but the widget is not yet realized.  When

- * it is first mapped, this handler will be invoked, and it will add all

- * needed grabs.

- */

-

-/*ARGSUSED*/

-static void  RealizeHandler (

-    Widget 		widget,

-    XtPointer		closure,

-    XEvent 		*event,	/* unused */

-    Boolean		*cont)	/* unused */

-{

-    XtPerWidgetInput	pwi = (XtPerWidgetInput)closure;

-    XtPerDisplayInput	pdi;

-

-    LOCK_PROCESS;

-    pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    UNLOCK_PROCESS;

-    MakeGrabs(&pwi->keyList, KEYBOARD, pdi);

-    MakeGrabs(&pwi->ptrList, POINTER, pdi);

-

-    XtRemoveEventHandler(widget, XtAllEvents, True,

-			 RealizeHandler, (XtPointer)pwi);

-    pwi->realize_handler_added = FALSE;

-}

-

-/***************************************************************************/

-/**************************** Global Routines ******************************/

-/***************************************************************************/

-

-

-/*

- * Routine used by an application to set up a passive grab for a key/modifier

- * combination.

- */

-

-static

-void GrabKeyOrButton (

-    Widget	widget,

-    KeyCode	keyOrButton,

-    Modifiers	modifiers,

-    Boolean	owner_events,

-    int 	pointer_mode,

-    int 	keyboard_mode,

-    Mask	event_mask,

-    Window 	confine_to,

-    Cursor 	cursor,

-    Boolean	isKeyboard)

-{

-    XtServerGrabPtr	*passiveListPtr;

-    XtServerGrabPtr 	newGrab;

-    XtPerWidgetInput	pwi;

-    XtPerDisplayInput	pdi;

-

-

-    XtCheckSubclass(widget, coreWidgetClass, "in XtGrabKey or XtGrabButton");

-    LOCK_PROCESS;

-    pwi = _XtGetPerWidgetInput(widget, TRUE);

-    if (isKeyboard)

-      passiveListPtr = &pwi->keyList;

-    else

-      passiveListPtr = &pwi->ptrList;

-    pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    UNLOCK_PROCESS;

-    newGrab = CreateGrab(widget, owner_events, modifiers,

-			 keyOrButton, pointer_mode, keyboard_mode,

-			 event_mask, confine_to, cursor, False);

-    /*

-     *  if the widget is realized then process the entry into the grab

-     * list. else if the list is empty (i.e. first time) then add the

-     * event handler. then add the raw entry to the list for processing

-     * in the handler at realize time.

-     */

-    if (XtIsRealized(widget))

-      MakeGrab(newGrab, passiveListPtr, isKeyboard, pdi, pwi);

-    else {

-	if (!pwi->realize_handler_added)

-	    {

-		XtAddEventHandler(widget, StructureNotifyMask, FALSE,

-				  RealizeHandler,

-				  (XtPointer)pwi);

-		pwi->realize_handler_added = TRUE;

-	    }

-

-	while (*passiveListPtr)

-	    passiveListPtr = &(*passiveListPtr)->next;

-	*passiveListPtr = newGrab;

-    }

-}

-

-

-static

-void   UngrabKeyOrButton (

-    Widget	widget,

-    int		keyOrButton,

-    Modifiers	modifiers,

-    Boolean	isKeyboard)

-{

-    XtServerGrabRec 	tempGrab;

-    XtPerWidgetInput	pwi;

-

-    XtCheckSubclass(widget, coreWidgetClass,

-		    "in XtUngrabKey or XtUngrabButton");

-

-    /* Build a temporary grab list entry */

-    tempGrab.widget = widget;

-    tempGrab.modifiers = modifiers;

-    tempGrab.keybut = keyOrButton;

-    tempGrab.hasExt = False;

-

-    LOCK_PROCESS;

-    pwi = _XtGetPerWidgetInput(widget, FALSE);

-    UNLOCK_PROCESS;

-    /*

-     * if there is no entry in the context manager then somethings wrong

-     */

-    if (!pwi)

-      {

-	  XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		       "invalidGrab", "ungrabKeyOrButton", XtCXtToolkitError,

-		       "Attempt to remove nonexistent passive grab",

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

-	  return;

-      }

-

-    if (XtIsRealized(widget))

-      {

-	  if (isKeyboard)

-	    XUngrabKey(widget->core.screen->display,

-		       keyOrButton, (unsigned int)modifiers,

-		       widget->core.window);

-	  else

-	    XUngrabButton(widget->core.screen->display,

-			  keyOrButton, (unsigned int)modifiers,

-			  widget->core.window);

-      }

-

-

-    /* Delete all entries which are encompassed by the specified grab. */

-    DeleteServerGrabFromList(isKeyboard ? &pwi->keyList : &pwi->ptrList,

-			     &tempGrab);

-}

-

-void  XtGrabKey (

-    Widget	widget,

-    _XtKeyCode	keycode,

-    Modifiers	modifiers,

-    _XtBoolean	owner_events,

-    int 	pointer_mode,

-    int 	keyboard_mode)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    GrabKeyOrButton(widget, (KeyCode)keycode, modifiers, owner_events,

-		    pointer_mode, keyboard_mode,

-		    (Mask)0, (Window)None, (Cursor)None, KEYBOARD);

-    UNLOCK_APP(app);

-}

-

-void  XtGrabButton(

-    Widget	widget,

-    int		button,

-    Modifiers	modifiers,

-    _XtBoolean	owner_events,

-    unsigned int event_mask,

-    int 	pointer_mode,

-    int 	keyboard_mode,

-    Window 	confine_to,

-    Cursor 	cursor)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    GrabKeyOrButton(widget, (KeyCode)button, modifiers, owner_events,

-		    pointer_mode, keyboard_mode,

-		    (Mask)event_mask, confine_to, cursor, POINTER);

-    UNLOCK_APP(app);

-}

-

-

-/*

- * Routine used by an application to clear a passive grab for a key/modifier

- * combination.

- */

-

-void   XtUngrabKey (

-    Widget	widget,

-    _XtKeyCode	keycode,

-    Modifiers	modifiers)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    UngrabKeyOrButton(widget, (int)keycode, modifiers, KEYBOARD);

-    UNLOCK_APP(app);

-}

-

-void   XtUngrabButton (

-    Widget	widget,

-    unsigned int button,

-    Modifiers	modifiers)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    UngrabKeyOrButton(widget, (KeyCode)button, modifiers, POINTER);

-    UNLOCK_APP(app);

-}

-

-/*

- * Active grab of Device. clear any client side grabs so we dont lock

- */

-static int GrabDevice (

-    Widget	widget,

-    Boolean	owner_events,

-    int 	pointer_mode,

-    int 	keyboard_mode,

-    Mask	event_mask,

-    Window 	confine_to,

-    Cursor 	cursor,

-    Time	time,

-    Boolean	isKeyboard)

-{

-    XtPerDisplayInput	pdi;

-    int			returnVal;

-

-    XtCheckSubclass(widget, coreWidgetClass,

-		    "in XtGrabKeyboard or XtGrabPointer");

-    if (!XtIsRealized(widget))

-	return GrabNotViewable;

-    LOCK_PROCESS;

-    pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    UNLOCK_PROCESS;

-    if (!isKeyboard)

-      returnVal = XGrabPointer(XtDisplay(widget), XtWindow(widget),

-			       owner_events, event_mask,

-			       pointer_mode, keyboard_mode,

-			       confine_to, cursor, time);

-    else

-      returnVal = XGrabKeyboard(XtDisplay(widget), XtWindow(widget),

-				owner_events, pointer_mode,

-				keyboard_mode, time);

-

-    if (returnVal == GrabSuccess) {

-	  XtDevice		device;

-

-	  device = isKeyboard ? &pdi->keyboard : &pdi->pointer;

-	  /* fill in the server grab rec */

-	  device->grab.widget = widget;

-	  device->grab.modifiers = 0;

-	  device->grab.keybut = 0;

-	  device->grab.ownerEvents = owner_events;

-	  device->grab.pointerMode = pointer_mode;

-	  device->grab.keyboardMode = keyboard_mode;

-	  device->grab.hasExt = False;

-	  device->grabType = XtActiveServerGrab;

-	  pdi->activatingKey = (KeyCode)0;

-      }

-    return returnVal;

-}

-

-static void   UngrabDevice(

-    Widget	widget,

-    Time	time,

-    Boolean	isKeyboard)

-{

-    XtPerDisplayInput pdi;

-    XtDevice device;

-

-    LOCK_PROCESS;

-    pdi = _XtGetPerDisplayInput(XtDisplay(widget));

-    UNLOCK_PROCESS;

-    device = isKeyboard ? &pdi->keyboard : &pdi->pointer;

-    XtCheckSubclass(widget, coreWidgetClass,

-		    "in XtUngrabKeyboard or XtUngrabPointer");

-

-    if (device->grabType != XtNoServerGrab) {

-

-	if (device->grabType != XtPseudoPassiveServerGrab

-	    && XtIsRealized(widget)) {

-	    if (isKeyboard)

-		XUngrabKeyboard(XtDisplay(widget), time);

-	    else

-		XUngrabPointer(XtDisplay(widget), time);

-	}

-	device->grabType = XtNoServerGrab;

-	pdi->activatingKey = (KeyCode)0;

-    }

-}

-

-

-/*

- * Active grab of keyboard. clear any client side grabs so we dont lock

- */

-int XtGrabKeyboard (

-    Widget	widget,

-    _XtBoolean	owner_events,

-    int 	pointer_mode,

-    int 	keyboard_mode,

-    Time	time)

-{

-    int retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    retval = GrabDevice (widget, owner_events,

-			pointer_mode, keyboard_mode,

-			(Mask)0, (Window)None, (Cursor)None, time, KEYBOARD);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-

-/*

- * Ungrab the keyboard

- */

-

-void   XtUngrabKeyboard(

-    Widget	widget,

-    Time	time)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    UngrabDevice(widget, time, KEYBOARD);

-    UNLOCK_APP(app);

-}

-

-

-

-

-/*

- * grab the pointer

- */

-int XtGrabPointer (

-    Widget	widget,

-    _XtBoolean	owner_events,

-    unsigned int event_mask,

-    int 	pointer_mode,

-    int 	keyboard_mode,

-    Window 	confine_to,

-    Cursor 	cursor,

-    Time	time)

-{

-    int retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    retval = GrabDevice (widget, owner_events,

-			pointer_mode, keyboard_mode,

-			(Mask)event_mask, confine_to,

-			cursor, time, POINTER);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-

-/*

- * Ungrab the pointer

- */

-

-void   XtUngrabPointer(

-    Widget	widget,

-    Time	time)

-{

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    UngrabDevice(widget, time, POINTER);

-    UNLOCK_APP(app);

-}

-

-

-void _XtRegisterPassiveGrabs (

-    Widget	widget)

-{

-    XtPerWidgetInput	pwi = _XtGetPerWidgetInput (widget, FALSE);

-

-    if (pwi != NULL && !pwi->realize_handler_added) {

-	XtAddEventHandler(widget, StructureNotifyMask, FALSE,

-			  RealizeHandler,

-			  (XtPointer)pwi);

-	pwi->realize_handler_added = TRUE;

-    }

-}

+/*
+
+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 1988 by Hewlett-Packard Company
+Copyright 1987, 1988, 1989,1990 by Digital Equipment Corporation, Maynard, Massachusetts
+
+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 names of
+Hewlett-Packard or 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, 1989, 1990, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "PassivGraI.h"
+
+/* typedef unsigned long Mask; */
+#define BITMASK(i) (((Mask)1) << ((i) & 31))
+#define MASKIDX(i) ((i) >> 5)
+#define MASKWORD(buf, i) buf[MASKIDX(i)]
+#define BITSET(buf, i) MASKWORD(buf, i) |= BITMASK(i)
+#define BITCLEAR(buf, i) MASKWORD(buf, i) &= ~BITMASK(i)
+#define GETBIT(buf, i) (MASKWORD(buf, i) & BITMASK(i))
+#define MasksPerDetailMask 8
+
+#define pDisplay(grabPtr) (((grabPtr)->widget)->core.screen->display)
+#define pWindow(grabPtr) (((grabPtr)->widget)->core.window)
+
+
+/***************************************************************************/
+/*********************** Internal Support Routines *************************/
+/***************************************************************************/
+
+/*
+ * Turn off (clear) the bit in the specified detail mask which is associated
+ * with the detail.
+ */
+
+static void DeleteDetailFromMask(
+    Mask **ppDetailMask,
+    unsigned short detail)
+{
+    Mask *pDetailMask = *ppDetailMask;
+
+    if (!pDetailMask) {
+	int i;
+	pDetailMask = (Mask *)__XtMalloc(sizeof(Mask) * MasksPerDetailMask);
+	for (i = MasksPerDetailMask; --i >= 0; )
+	    pDetailMask[i] = ~0;
+	*ppDetailMask = pDetailMask;
+    }
+    BITCLEAR((pDetailMask), detail);
+}
+
+
+/*
+ * Make an exact copy of the specified detail mask.
+ */
+
+static Mask *CopyDetailMask(
+    Mask *pOriginalDetailMask)
+{
+    Mask *pTempMask;
+    int i;
+
+    if (!pOriginalDetailMask)
+	return NULL;
+
+    pTempMask = (Mask *)__XtMalloc(sizeof(Mask) * MasksPerDetailMask);
+
+    for ( i = 0; i < MasksPerDetailMask; i++)
+      pTempMask[i]= pOriginalDetailMask[i];
+
+    return pTempMask;
+}
+
+
+/*
+ * Allocate a new grab entry, and fill in all of the fields using the
+ * specified parameters.
+ */
+
+static XtServerGrabPtr CreateGrab(
+    Widget	widget,
+    Boolean	ownerEvents,
+    Modifiers	modifiers,
+    KeyCode 	keybut,
+    int		pointer_mode,
+    int		keyboard_mode,
+    Mask	event_mask,
+    Window 	confine_to,
+    Cursor 	cursor,
+    Boolean	need_ext)
+{
+    XtServerGrabPtr grab;
+
+    if (confine_to || cursor)
+	need_ext = True;
+    grab = (XtServerGrabPtr)__XtMalloc(sizeof(XtServerGrabRec) +
+				     (need_ext ? sizeof(XtServerGrabExtRec)
+				      : 0));
+    grab->next = NULL;
+    grab->widget = widget;
+    grab->ownerEvents = ownerEvents;
+    grab->pointerMode = pointer_mode;
+    grab->keyboardMode = keyboard_mode;
+    grab->eventMask = event_mask;
+    grab->hasExt = need_ext;
+    grab->confineToIsWidgetWin = (XtWindow (widget) == confine_to);
+    grab->modifiers = modifiers;
+    grab->keybut = keybut;
+    if (need_ext) {
+	XtServerGrabExtPtr ext = GRABEXT(grab);
+	ext->pModifiersMask = NULL;
+	ext->pKeyButMask = NULL;
+	ext->confineTo = confine_to;
+	ext->cursor = cursor;
+    }
+    return grab;
+}
+
+
+/*
+ * Free up the space occupied by a grab entry.
+ */
+
+static void FreeGrab(
+    XtServerGrabPtr pGrab)
+{
+    if (pGrab->hasExt) {
+	XtServerGrabExtPtr ext = GRABEXT(pGrab);
+	if (ext->pModifiersMask)
+	    XtFree((char *)ext->pModifiersMask);
+	if (ext->pKeyButMask)
+	    XtFree((char *)ext->pKeyButMask);
+    }
+    XtFree((char *)pGrab);
+}
+
+typedef struct _DetailRec {
+    unsigned short 	exact;
+    Mask  		*pMask;
+} DetailRec, *DetailPtr;
+
+/*
+ * If the first detail is set to 'exception' and the second detail
+ * is contained in the mask of the first, then TRUE is returned.
+ */
+
+static Bool IsInGrabMask(
+    register DetailPtr firstDetail,
+    register DetailPtr secondDetail,
+    unsigned short exception)
+{
+    if (firstDetail->exact == exception) {
+	if (!firstDetail->pMask)
+	    return TRUE;
+
+	/* (at present) never called with two non-null pMasks */
+	if (secondDetail->exact == exception)
+	    return FALSE;
+
+	if (GETBIT(firstDetail->pMask, secondDetail->exact))
+	    return TRUE;
+    }
+
+    return FALSE;
+}
+
+
+/*
+ * If neither of the details is set to 'exception', and they match
+ * exactly, then TRUE is returned.
+ */
+
+static Bool IdenticalExactDetails(
+    unsigned short firstExact,
+    unsigned short secondExact,
+    unsigned short exception)
+{
+    if ((firstExact == exception) || (secondExact == exception))
+	return FALSE;
+
+    if (firstExact == secondExact)
+	return TRUE;
+
+    return FALSE;
+}
+
+
+/*
+ * If the first detail is set to 'exception', and its mask has the bit
+ * enabled which corresponds to the second detail, OR if neither of the
+ * details is set to 'exception' and the details match exactly, then
+ * TRUE is returned.
+ */
+
+static Bool DetailSupersedesSecond(
+    register DetailPtr firstDetail,
+    register DetailPtr secondDetail,
+    unsigned short exception)
+{
+    if (IsInGrabMask(firstDetail, secondDetail, exception))
+	return TRUE;
+
+    if (IdenticalExactDetails(firstDetail->exact, secondDetail->exact,
+			      exception))
+	return TRUE;
+
+    return FALSE;
+}
+
+
+/*
+ * If the two grab events match exactly, or if the first grab entry
+ * 'encompasses' the second grab entry, then TRUE is returned.
+ */
+
+static Bool GrabSupersedesSecond(
+    register XtServerGrabPtr pFirstGrab,
+    register XtServerGrabPtr pSecondGrab)
+{
+    DetailRec first, second;
+
+    first.exact = pFirstGrab->modifiers;
+    if (pFirstGrab->hasExt)
+	first.pMask = GRABEXT(pFirstGrab)->pModifiersMask;
+    else
+	first.pMask = NULL;
+    second.exact = pSecondGrab->modifiers;
+    if (pSecondGrab->hasExt)
+	second.pMask = GRABEXT(pSecondGrab)->pModifiersMask;
+    else
+	second.pMask = NULL;
+    if (!DetailSupersedesSecond(&first, &second, (unsigned short)AnyModifier))
+      return FALSE;
+
+    first.exact = pFirstGrab->keybut;
+    if (pFirstGrab->hasExt)
+	first.pMask = GRABEXT(pFirstGrab)->pKeyButMask;
+    else
+	first.pMask = NULL;
+    second.exact = pSecondGrab->keybut;
+    if (pSecondGrab->hasExt)
+	second.pMask = GRABEXT(pSecondGrab)->pKeyButMask;
+    else
+	second.pMask = NULL;
+    if (DetailSupersedesSecond(&first, &second, (unsigned short)AnyKey))
+      return TRUE;
+
+    return FALSE;
+}
+
+
+/*
+ * Two grabs are considered to be matching if either of the following are true:
+ *
+ * 1) The two grab entries match exactly, or the first grab entry
+ *    encompasses the second grab entry.
+ * 2) The second grab entry encompasses the first grab entry.
+ * 3) The keycodes match exactly, and one entry's modifiers encompasses
+ *    the others.
+ * 4) The keycode for one entry encompasses the other, and the detail
+ *    for the other entry encompasses the first.
+ */
+
+static Bool GrabMatchesSecond(
+    register XtServerGrabPtr pFirstGrab,
+    register XtServerGrabPtr pSecondGrab)
+{
+    DetailRec firstD, firstM, secondD, secondM;
+
+    if (pDisplay(pFirstGrab) != pDisplay(pSecondGrab))
+	return FALSE;
+
+    if (GrabSupersedesSecond(pFirstGrab, pSecondGrab))
+	return TRUE;
+
+    if (GrabSupersedesSecond(pSecondGrab, pFirstGrab))
+	return TRUE;
+
+    firstD.exact = pFirstGrab->keybut;
+    firstM.exact = pFirstGrab->modifiers;
+    if (pFirstGrab->hasExt) {
+	firstD.pMask = GRABEXT(pFirstGrab)->pKeyButMask;
+	firstM.pMask = GRABEXT(pFirstGrab)->pModifiersMask;
+    } else {
+	firstD.pMask = NULL;
+	firstM.pMask = NULL;
+    }
+    secondD.exact = pSecondGrab->keybut;
+    secondM.exact = pSecondGrab->modifiers;
+    if (pSecondGrab->hasExt) {
+	secondD.pMask = GRABEXT(pSecondGrab)->pKeyButMask;
+	secondM.pMask = GRABEXT(pSecondGrab)->pModifiersMask;
+    } else {
+	secondD.pMask = NULL;
+	secondM.pMask = NULL;
+    }
+
+    if (DetailSupersedesSecond(&secondD, &firstD, (unsigned short)AnyKey) &&
+	DetailSupersedesSecond(&firstM, &secondM, (unsigned short)AnyModifier))
+	return TRUE;
+
+    if (DetailSupersedesSecond(&firstD, &secondD, (unsigned short)AnyKey) &&
+	DetailSupersedesSecond(&secondM, &firstM, (unsigned short)AnyModifier))
+	return TRUE;
+
+    return FALSE;
+}
+
+
+/*
+ * Delete a grab combination from the passive grab list.  Each entry will
+ * be checked to see if it is affected by the grab being deleted.  This
+ * may result in multiple entries being modified/deleted.
+ */
+
+static void DeleteServerGrabFromList(
+    XtServerGrabPtr 	*passiveListPtr,
+    XtServerGrabPtr 	pMinuendGrab)
+{
+    register XtServerGrabPtr *next;
+    register XtServerGrabPtr grab;
+    register XtServerGrabExtPtr ext;
+
+    for (next = passiveListPtr; (grab = *next); )
+    {
+	if (GrabMatchesSecond(grab, pMinuendGrab) &&
+	    (pDisplay(grab) == pDisplay(pMinuendGrab)))
+	{
+	    if (GrabSupersedesSecond(pMinuendGrab, grab))
+	    {
+		/*
+		 * The entry being deleted encompasses the list entry,
+		 * so delete the list entry.
+		 */
+		*next = grab->next;
+		FreeGrab(grab);
+		continue;
+	    }
+
+	    if (!grab->hasExt) {
+		grab = (XtServerGrabPtr)
+		    XtRealloc((char *)grab, (sizeof(XtServerGrabRec) +
+					     sizeof(XtServerGrabExtRec)));
+		*next = grab;
+		grab->hasExt = True;
+		ext = GRABEXT(grab);
+		ext->pKeyButMask = NULL;
+		ext->pModifiersMask = NULL;
+		ext->confineTo = None;
+		ext->cursor = None;
+	    } else
+		ext = GRABEXT(grab);
+	    if ((grab->keybut == AnyKey) && (grab->modifiers != AnyModifier))
+	    {
+		/*
+		 * If the list entry has the key detail of AnyKey, and
+		 * a modifier detail not set to AnyModifier, then we
+		 * simply need to turn off the key detail bit in the
+		 * list entry's key detail mask.
+		 */
+		DeleteDetailFromMask(&ext->pKeyButMask, pMinuendGrab->keybut);
+	    } else if ((grab->modifiers == AnyModifier) &&
+		       (grab->keybut != AnyKey)) {
+		/*
+		 * The list entry has a specific key detail, but its
+		 * modifier detail is set to AnyModifier; so, we only
+		 * need to turn off the specified modifier combination
+		 * in the list entry's modifier mask.
+		 */
+		DeleteDetailFromMask(&ext->pModifiersMask,
+				     pMinuendGrab->modifiers);
+	    } else if ((pMinuendGrab->keybut != AnyKey) &&
+		       (pMinuendGrab->modifiers != AnyModifier)) {
+		/*
+		 * The list entry has a key detail of AnyKey and a
+		 * modifier detail of AnyModifier; the entry being
+		 * deleted has a specific key and a specific modifier
+		 * combination.  Therefore, we need to mask off the
+		 * keycode from the list entry, and also create a
+		 * new entry for this keycode, which has a modifier
+		 * mask set to AnyModifier & ~(deleted modifiers).
+		 */
+		XtServerGrabPtr pNewGrab;
+
+		DeleteDetailFromMask(&ext->pKeyButMask, pMinuendGrab->keybut);
+		pNewGrab = CreateGrab(grab->widget,
+				      (Boolean)grab->ownerEvents,
+				      (Modifiers)AnyModifier,
+				      pMinuendGrab->keybut,
+				      (int)grab->pointerMode,
+				      (int)grab->keyboardMode,
+				      (Mask)0, (Window)0, (Cursor)0, True);
+		GRABEXT(pNewGrab)->pModifiersMask =
+		    CopyDetailMask(ext->pModifiersMask);
+
+		DeleteDetailFromMask(&GRABEXT(pNewGrab)->pModifiersMask,
+				     pMinuendGrab->modifiers);
+
+		pNewGrab->next = *passiveListPtr;
+		*passiveListPtr = pNewGrab;
+	    } else if (pMinuendGrab->keybut == AnyKey) {
+		/*
+		 * The list entry has keycode AnyKey and modifier
+		 * AnyModifier; the entry being deleted has
+		 * keycode AnyKey and specific modifiers.  So we
+		 * simply need to mask off the specified modifier
+		 * combination.
+		 */
+		DeleteDetailFromMask(&ext->pModifiersMask,
+				     pMinuendGrab->modifiers);
+	    } else {
+		/*
+		 * The list entry has keycode AnyKey and modifier
+		 * AnyModifier; the entry being deleted has a
+		 * specific keycode and modifier AnyModifier.  So
+		 * we simply need to mask off the specified
+		 * keycode.
+		 */
+		DeleteDetailFromMask(&ext->pKeyButMask, pMinuendGrab->keybut);
+	    }
+	}
+	next = &(*next)->next;
+    }
+}
+
+static void DestroyPassiveList(
+    XtServerGrabPtr	*passiveListPtr)
+{
+    XtServerGrabPtr	next, grab;
+
+    for (next = *passiveListPtr; next; ) {
+	grab = next;
+	next = grab->next;
+
+	/* not necessary to explicitly ungrab key or button;
+	 * window is being destroyed so server will take care of it.
+	 */
+
+	FreeGrab(grab);
+    }
+}
+
+
+/*
+ * This function is called at widget destroy time to clean up
+ */
+/*ARGSUSED*/
+void _XtDestroyServerGrabs(
+    Widget		w,
+    XtPointer		closure,
+    XtPointer		call_data) /* unused */
+{
+    XtPerWidgetInput	pwi = (XtPerWidgetInput)closure;
+    XtPerDisplayInput	pdi;
+
+    LOCK_PROCESS;
+    pdi = _XtGetPerDisplayInput(XtDisplay(w));
+    _XtClearAncestorCache(w);
+    UNLOCK_PROCESS;
+
+    /* Remove the active grab, if necessary */
+    if ((pdi->keyboard.grabType != XtNoServerGrab) &&
+	(pdi->keyboard.grab.widget == w)) {
+	pdi->keyboard.grabType = XtNoServerGrab;
+	pdi->activatingKey = (KeyCode)0;
+    }
+    if ((pdi->pointer.grabType != XtNoServerGrab) &&
+	(pdi->pointer.grab.widget == w))
+	pdi->pointer.grabType = XtNoServerGrab;
+
+    DestroyPassiveList(&pwi->keyList);
+    DestroyPassiveList(&pwi->ptrList);
+
+    _XtFreePerWidgetInput(w, pwi);
+}
+
+/*
+ * If the incoming event is on the passive grab list, then activate
+ * the grab.  The grab will remain in effect until the key is released.
+ */
+
+XtServerGrabPtr _XtCheckServerGrabsOnWidget (
+    XEvent 		*event,
+    Widget		widget,
+    _XtBoolean		isKeyboard)
+{
+    register XtServerGrabPtr grab;
+    XtServerGrabRec 	tempGrab;
+    XtServerGrabPtr	*passiveListPtr;
+    XtPerWidgetInput	pwi;
+
+    LOCK_PROCESS;
+    pwi = _XtGetPerWidgetInput(widget, FALSE);
+    UNLOCK_PROCESS;
+    if (!pwi)
+	return (XtServerGrabPtr)NULL;
+    if (isKeyboard)
+	passiveListPtr = &pwi->keyList;
+    else
+	passiveListPtr = &pwi->ptrList;
+
+    /*
+     * if either there is no entry in the context manager or the entry
+     * is empty, or the keyboard is grabed, then no work to be done
+     */
+    if (!*passiveListPtr)
+	return (XtServerGrabPtr)NULL;
+
+    /* Take only the lower thirteen bits as modifier state.  The X Keyboard
+     * Extension may be representing keyboard group state in two upper bits.
+     */
+    tempGrab.widget = widget;
+    tempGrab.keybut = event->xkey.keycode; /* also xbutton.button */
+    tempGrab.modifiers = event->xkey.state & 0x1FFF; /*also xbutton.state*/
+    tempGrab.hasExt = False;
+
+    for (grab = *passiveListPtr; grab; grab = grab->next) {
+	if (GrabMatchesSecond(&tempGrab, grab))
+	    return (grab);
+    }
+    return (XtServerGrabPtr)NULL;
+}
+
+/*
+ * This handler is needed to guarantee that we see releases on passive
+ * button grabs for widgets that haven't selected for button release.
+ */
+
+/*ARGSUSED*/
+static void  ActiveHandler (
+    Widget 		widget,
+    XtPointer		pdi,
+    XEvent 		*event,
+    Boolean		*cont)
+{
+    /* nothing */
+}
+
+
+/*
+ *	MakeGrab
+ */
+static void  MakeGrab(
+    XtServerGrabPtr	grab,
+    XtServerGrabPtr	*passiveListPtr,
+    Boolean		isKeyboard,
+    XtPerDisplayInput	pdi,
+    XtPerWidgetInput	pwi)
+{
+    if (!isKeyboard && !pwi->active_handler_added) {
+	XtAddEventHandler(grab->widget, ButtonReleaseMask, FALSE,
+			  ActiveHandler, (XtPointer)pdi);
+	pwi->active_handler_added = TRUE;
+    }
+
+    if (isKeyboard) {
+	XGrabKey(pDisplay(grab),
+		 grab->keybut, grab->modifiers,
+		 pWindow(grab), grab->ownerEvents,
+		 grab->pointerMode, grab->keyboardMode);
+    } else {
+	Window confineTo = None;
+	Cursor cursor = None;
+
+	if (grab->hasExt) {
+	    if (grab->confineToIsWidgetWin)
+		confineTo = XtWindow (grab->widget);
+	    else
+		confineTo = GRABEXT(grab)->confineTo;
+	    cursor = GRABEXT(grab)->cursor;
+	}
+	XGrabButton(pDisplay(grab),
+		    grab->keybut, grab->modifiers,
+		    pWindow(grab), grab->ownerEvents, grab->eventMask,
+		    grab->pointerMode, grab->keyboardMode,
+		    confineTo, cursor);
+    }
+
+    /* Add the new grab entry to the passive key grab list */
+    grab->next = *passiveListPtr;
+    *passiveListPtr = grab;
+}
+
+static void MakeGrabs(
+    XtServerGrabPtr	*passiveListPtr,
+    Boolean		isKeyboard,
+    XtPerDisplayInput	pdi)
+{
+    XtServerGrabPtr	next = *passiveListPtr;
+    XtServerGrabPtr	grab;
+    XtPerWidgetInput	pwi;
+    /*
+     * make MakeGrab build a new list that has had the merge
+     * processing done on it. Start with an empty list
+     * (passiveListPtr).
+     */
+    LOCK_PROCESS;
+    *passiveListPtr = NULL;
+    while (next)
+      {
+	  grab = next;
+	  next = grab->next;
+	  pwi = _XtGetPerWidgetInput(grab->widget, FALSE);
+	  MakeGrab(grab, passiveListPtr, isKeyboard, pdi, pwi);
+      }
+    UNLOCK_PROCESS;
+}
+
+/*
+ * This function is the event handler attached to the associated widget
+ * when grabs need to be added, but the widget is not yet realized.  When
+ * it is first mapped, this handler will be invoked, and it will add all
+ * needed grabs.
+ */
+
+/*ARGSUSED*/
+static void  RealizeHandler (
+    Widget 		widget,
+    XtPointer		closure,
+    XEvent 		*event,	/* unused */
+    Boolean		*cont)	/* unused */
+{
+    XtPerWidgetInput	pwi = (XtPerWidgetInput)closure;
+    XtPerDisplayInput	pdi;
+
+    LOCK_PROCESS;
+    pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    UNLOCK_PROCESS;
+    MakeGrabs(&pwi->keyList, KEYBOARD, pdi);
+    MakeGrabs(&pwi->ptrList, POINTER, pdi);
+
+    XtRemoveEventHandler(widget, XtAllEvents, True,
+			 RealizeHandler, (XtPointer)pwi);
+    pwi->realize_handler_added = FALSE;
+}
+
+/***************************************************************************/
+/**************************** Global Routines ******************************/
+/***************************************************************************/
+
+
+/*
+ * Routine used by an application to set up a passive grab for a key/modifier
+ * combination.
+ */
+
+static
+void GrabKeyOrButton (
+    Widget	widget,
+    KeyCode	keyOrButton,
+    Modifiers	modifiers,
+    Boolean	owner_events,
+    int 	pointer_mode,
+    int 	keyboard_mode,
+    Mask	event_mask,
+    Window 	confine_to,
+    Cursor 	cursor,
+    Boolean	isKeyboard)
+{
+    XtServerGrabPtr	*passiveListPtr;
+    XtServerGrabPtr 	newGrab;
+    XtPerWidgetInput	pwi;
+    XtPerDisplayInput	pdi;
+
+
+    XtCheckSubclass(widget, coreWidgetClass, "in XtGrabKey or XtGrabButton");
+    LOCK_PROCESS;
+    pwi = _XtGetPerWidgetInput(widget, TRUE);
+    if (isKeyboard)
+      passiveListPtr = &pwi->keyList;
+    else
+      passiveListPtr = &pwi->ptrList;
+    pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    UNLOCK_PROCESS;
+    newGrab = CreateGrab(widget, owner_events, modifiers,
+			 keyOrButton, pointer_mode, keyboard_mode,
+			 event_mask, confine_to, cursor, False);
+    /*
+     *  if the widget is realized then process the entry into the grab
+     * list. else if the list is empty (i.e. first time) then add the
+     * event handler. then add the raw entry to the list for processing
+     * in the handler at realize time.
+     */
+    if (XtIsRealized(widget))
+      MakeGrab(newGrab, passiveListPtr, isKeyboard, pdi, pwi);
+    else {
+	if (!pwi->realize_handler_added)
+	    {
+		XtAddEventHandler(widget, StructureNotifyMask, FALSE,
+				  RealizeHandler,
+				  (XtPointer)pwi);
+		pwi->realize_handler_added = TRUE;
+	    }
+
+	while (*passiveListPtr)
+	    passiveListPtr = &(*passiveListPtr)->next;
+	*passiveListPtr = newGrab;
+    }
+}
+
+
+static
+void   UngrabKeyOrButton (
+    Widget	widget,
+    int		keyOrButton,
+    Modifiers	modifiers,
+    Boolean	isKeyboard)
+{
+    XtServerGrabRec 	tempGrab;
+    XtPerWidgetInput	pwi;
+
+    XtCheckSubclass(widget, coreWidgetClass,
+		    "in XtUngrabKey or XtUngrabButton");
+
+    /* Build a temporary grab list entry */
+    tempGrab.widget = widget;
+    tempGrab.modifiers = modifiers;
+    tempGrab.keybut = keyOrButton;
+    tempGrab.hasExt = False;
+
+    LOCK_PROCESS;
+    pwi = _XtGetPerWidgetInput(widget, FALSE);
+    UNLOCK_PROCESS;
+    /*
+     * if there is no entry in the context manager then somethings wrong
+     */
+    if (!pwi)
+      {
+	  XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		       "invalidGrab", "ungrabKeyOrButton", XtCXtToolkitError,
+		       "Attempt to remove nonexistent passive grab",
+		       (String *)NULL, (Cardinal *)NULL);
+	  return;
+      }
+
+    if (XtIsRealized(widget))
+      {
+	  if (isKeyboard)
+	    XUngrabKey(widget->core.screen->display,
+		       keyOrButton, (unsigned int)modifiers,
+		       widget->core.window);
+	  else
+	    XUngrabButton(widget->core.screen->display,
+			  keyOrButton, (unsigned int)modifiers,
+			  widget->core.window);
+      }
+
+
+    /* Delete all entries which are encompassed by the specified grab. */
+    DeleteServerGrabFromList(isKeyboard ? &pwi->keyList : &pwi->ptrList,
+			     &tempGrab);
+}
+
+void  XtGrabKey (
+    Widget	widget,
+    _XtKeyCode	keycode,
+    Modifiers	modifiers,
+    _XtBoolean	owner_events,
+    int 	pointer_mode,
+    int 	keyboard_mode)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    GrabKeyOrButton(widget, (KeyCode)keycode, modifiers, owner_events,
+		    pointer_mode, keyboard_mode,
+		    (Mask)0, (Window)None, (Cursor)None, KEYBOARD);
+    UNLOCK_APP(app);
+}
+
+void  XtGrabButton(
+    Widget	widget,
+    int		button,
+    Modifiers	modifiers,
+    _XtBoolean	owner_events,
+    unsigned int event_mask,
+    int 	pointer_mode,
+    int 	keyboard_mode,
+    Window 	confine_to,
+    Cursor 	cursor)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    GrabKeyOrButton(widget, (KeyCode)button, modifiers, owner_events,
+		    pointer_mode, keyboard_mode,
+		    (Mask)event_mask, confine_to, cursor, POINTER);
+    UNLOCK_APP(app);
+}
+
+
+/*
+ * Routine used by an application to clear a passive grab for a key/modifier
+ * combination.
+ */
+
+void   XtUngrabKey (
+    Widget	widget,
+    _XtKeyCode	keycode,
+    Modifiers	modifiers)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    UngrabKeyOrButton(widget, (int)keycode, modifiers, KEYBOARD);
+    UNLOCK_APP(app);
+}
+
+void   XtUngrabButton (
+    Widget	widget,
+    unsigned int button,
+    Modifiers	modifiers)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    UngrabKeyOrButton(widget, (KeyCode)button, modifiers, POINTER);
+    UNLOCK_APP(app);
+}
+
+/*
+ * Active grab of Device. clear any client side grabs so we dont lock
+ */
+static int GrabDevice (
+    Widget	widget,
+    Boolean	owner_events,
+    int 	pointer_mode,
+    int 	keyboard_mode,
+    Mask	event_mask,
+    Window 	confine_to,
+    Cursor 	cursor,
+    Time	time,
+    Boolean	isKeyboard)
+{
+    XtPerDisplayInput	pdi;
+    int			returnVal;
+
+    XtCheckSubclass(widget, coreWidgetClass,
+		    "in XtGrabKeyboard or XtGrabPointer");
+    if (!XtIsRealized(widget))
+	return GrabNotViewable;
+    LOCK_PROCESS;
+    pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    UNLOCK_PROCESS;
+    if (!isKeyboard)
+      returnVal = XGrabPointer(XtDisplay(widget), XtWindow(widget),
+			       owner_events, event_mask,
+			       pointer_mode, keyboard_mode,
+			       confine_to, cursor, time);
+    else
+      returnVal = XGrabKeyboard(XtDisplay(widget), XtWindow(widget),
+				owner_events, pointer_mode,
+				keyboard_mode, time);
+
+    if (returnVal == GrabSuccess) {
+	  XtDevice		device;
+
+	  device = isKeyboard ? &pdi->keyboard : &pdi->pointer;
+	  /* fill in the server grab rec */
+	  device->grab.widget = widget;
+	  device->grab.modifiers = 0;
+	  device->grab.keybut = 0;
+	  device->grab.ownerEvents = owner_events;
+	  device->grab.pointerMode = pointer_mode;
+	  device->grab.keyboardMode = keyboard_mode;
+	  device->grab.hasExt = False;
+	  device->grabType = XtActiveServerGrab;
+	  pdi->activatingKey = (KeyCode)0;
+      }
+    return returnVal;
+}
+
+static void   UngrabDevice(
+    Widget	widget,
+    Time	time,
+    Boolean	isKeyboard)
+{
+    XtPerDisplayInput pdi;
+    XtDevice device;
+
+    LOCK_PROCESS;
+    pdi = _XtGetPerDisplayInput(XtDisplay(widget));
+    UNLOCK_PROCESS;
+    device = isKeyboard ? &pdi->keyboard : &pdi->pointer;
+    XtCheckSubclass(widget, coreWidgetClass,
+		    "in XtUngrabKeyboard or XtUngrabPointer");
+
+    if (device->grabType != XtNoServerGrab) {
+
+	if (device->grabType != XtPseudoPassiveServerGrab
+	    && XtIsRealized(widget)) {
+	    if (isKeyboard)
+		XUngrabKeyboard(XtDisplay(widget), time);
+	    else
+		XUngrabPointer(XtDisplay(widget), time);
+	}
+	device->grabType = XtNoServerGrab;
+	pdi->activatingKey = (KeyCode)0;
+    }
+}
+
+
+/*
+ * Active grab of keyboard. clear any client side grabs so we dont lock
+ */
+int XtGrabKeyboard (
+    Widget	widget,
+    _XtBoolean	owner_events,
+    int 	pointer_mode,
+    int 	keyboard_mode,
+    Time	time)
+{
+    int retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    retval = GrabDevice (widget, owner_events,
+			pointer_mode, keyboard_mode,
+			(Mask)0, (Window)None, (Cursor)None, time, KEYBOARD);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+
+/*
+ * Ungrab the keyboard
+ */
+
+void   XtUngrabKeyboard(
+    Widget	widget,
+    Time	time)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    UngrabDevice(widget, time, KEYBOARD);
+    UNLOCK_APP(app);
+}
+
+
+
+
+/*
+ * grab the pointer
+ */
+int XtGrabPointer (
+    Widget	widget,
+    _XtBoolean	owner_events,
+    unsigned int event_mask,
+    int 	pointer_mode,
+    int 	keyboard_mode,
+    Window 	confine_to,
+    Cursor 	cursor,
+    Time	time)
+{
+    int retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    retval = GrabDevice (widget, owner_events,
+			pointer_mode, keyboard_mode,
+			(Mask)event_mask, confine_to,
+			cursor, time, POINTER);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+
+/*
+ * Ungrab the pointer
+ */
+
+void   XtUngrabPointer(
+    Widget	widget,
+    Time	time)
+{
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    UngrabDevice(widget, time, POINTER);
+    UNLOCK_APP(app);
+}
+
+
+void _XtRegisterPassiveGrabs (
+    Widget	widget)
+{
+    XtPerWidgetInput	pwi = _XtGetPerWidgetInput (widget, FALSE);
+
+    if (pwi != NULL && !pwi->realize_handler_added) {
+	XtAddEventHandler(widget, StructureNotifyMask, FALSE,
+			  RealizeHandler,
+			  (XtPointer)pwi);
+	pwi->realize_handler_added = TRUE;
+    }
+}
diff --git a/libXt/src/Pointer.c b/libXt/src/Pointer.c
index 4dac27367..4e537173d 100644
--- a/libXt/src/Pointer.c
+++ b/libXt/src/Pointer.c
@@ -1,113 +1,113 @@
-/********************************************************

-

-Copyright 1988 by Hewlett-Packard Company

-Copyright 1987, 1988, 1989 by Digital Equipment Corporation, Maynard

-

-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 names of

-Hewlett-Packard or 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, 1989, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "PassivGraI.h"

-

-

-#define AllButtonsMask (Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask)

-

-Widget _XtProcessPointerEvent(

-    XButtonEvent  	*event,

-    Widget 		widget,

-    XtPerDisplayInput 	pdi)

-{

-    XtDevice		device = &pdi->pointer;

-    XtServerGrabPtr	newGrab = NULL, devGrab = &device->grab;

-    Widget		dspWidget = NULL;

-    Boolean		deactivateGrab = FALSE;

-

-    switch (event->type)

-      {

-	case ButtonPress:

-	  {

-	      if (!IsServerGrab(device->grabType))

-		{

-		    Cardinal		i;

-

-		    for (i = pdi->traceDepth;

-			 i > 0 && !newGrab;

-			 i--)

-		      newGrab = _XtCheckServerGrabsOnWidget((XEvent*)event,

-							    pdi->trace[i-1],

-							    POINTER);

-		}

-	      if (newGrab)

-		{

-		    /* Activate the grab */

-		    device->grab = *newGrab;

-		    device->grabType = XtPassiveServerGrab;

-		}

-	  }

-	  break;

-

-	case ButtonRelease:

-	  {

-	      if ((device->grabType == XtPassiveServerGrab) &&

-		  !(event->state & ~(Button1Mask << (event->button - 1)) &

-		    AllButtonsMask))

-		deactivateGrab = TRUE;

-	  }

-	  break;

-      }

-

-    if (IsServerGrab(device->grabType) && !(devGrab)->ownerEvents)

-      dspWidget = (devGrab)->widget;

-    else

-      dspWidget = widget;

-

-    if (deactivateGrab)

-      device->grabType = XtNoServerGrab;

-

-    return dspWidget;

-}

+/********************************************************
+
+Copyright 1988 by Hewlett-Packard Company
+Copyright 1987, 1988, 1989 by Digital Equipment Corporation, Maynard
+
+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 names of
+Hewlett-Packard or 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, 1989, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "PassivGraI.h"
+
+
+#define AllButtonsMask (Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask)
+
+Widget _XtProcessPointerEvent(
+    XButtonEvent  	*event,
+    Widget 		widget,
+    XtPerDisplayInput 	pdi)
+{
+    XtDevice		device = &pdi->pointer;
+    XtServerGrabPtr	newGrab = NULL, devGrab = &device->grab;
+    Widget		dspWidget = NULL;
+    Boolean		deactivateGrab = FALSE;
+
+    switch (event->type)
+      {
+	case ButtonPress:
+	  {
+	      if (!IsServerGrab(device->grabType))
+		{
+		    Cardinal		i;
+
+		    for (i = pdi->traceDepth;
+			 i > 0 && !newGrab;
+			 i--)
+		      newGrab = _XtCheckServerGrabsOnWidget((XEvent*)event,
+							    pdi->trace[i-1],
+							    POINTER);
+		}
+	      if (newGrab)
+		{
+		    /* Activate the grab */
+		    device->grab = *newGrab;
+		    device->grabType = XtPassiveServerGrab;
+		}
+	  }
+	  break;
+
+	case ButtonRelease:
+	  {
+	      if ((device->grabType == XtPassiveServerGrab) &&
+		  !(event->state & ~(Button1Mask << (event->button - 1)) &
+		    AllButtonsMask))
+		deactivateGrab = TRUE;
+	  }
+	  break;
+      }
+
+    if (IsServerGrab(device->grabType) && !(devGrab)->ownerEvents)
+      dspWidget = (devGrab)->widget;
+    else
+      dspWidget = widget;
+
+    if (deactivateGrab)
+      device->grabType = XtNoServerGrab;
+
+    return dspWidget;
+}
diff --git a/libXt/src/Popup.c b/libXt/src/Popup.c
index 6250a1f1f..3f4554b69 100644
--- a/libXt/src/Popup.c
+++ b/libXt/src/Popup.c
@@ -1,195 +1,195 @@
-/***********************************************************

-

-Copyright 1987, 1988, 1994, 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.

-

-

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

-

-******************************************************************/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "ShellP.h"

-

-void _XtPopup(

-    Widget      widget,

-    XtGrabKind  grab_kind,

-    _XtBoolean  spring_loaded)

-{

-    register ShellWidget shell_widget = (ShellWidget) widget;

-

-    if (! XtIsShell(widget)) {

-	XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-		"invalidClass","xtPopup",XtCXtToolkitError,

-                "XtPopup requires a subclass of shellWidgetClass",

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

-    }

-

-    if (! shell_widget->shell.popped_up) {

-	XtGrabKind call_data = grab_kind;

-	XtCallCallbacks(widget, XtNpopupCallback, (XtPointer)&call_data);

-	shell_widget->shell.popped_up = TRUE;

-	shell_widget->shell.grab_kind = grab_kind;

-	shell_widget->shell.spring_loaded = spring_loaded;

-	if (shell_widget->shell.create_popup_child_proc != NULL) {

-	    (*(shell_widget->shell.create_popup_child_proc))(widget);

-	}

-	if (grab_kind == XtGrabExclusive) {

-	    XtAddGrab(widget, TRUE, spring_loaded);

-	} else if (grab_kind == XtGrabNonexclusive) {

-	    XtAddGrab(widget, FALSE, spring_loaded);

-	}

-	XtRealizeWidget(widget);

-	XMapRaised(XtDisplay(widget), XtWindow(widget));

-    } else

-	XRaiseWindow(XtDisplay(widget), XtWindow(widget));

-

-} /* _XtPopup */

-

-void XtPopup (Widget widget, XtGrabKind grab_kind)

-{

-    Widget hookobj;

-

-    switch (grab_kind) {

-

-      case XtGrabNone:

-      case XtGrabExclusive:

-      case XtGrabNonexclusive:

-	break;

-

-      default:

-	XtAppWarningMsg(

-		XtWidgetToApplicationContext(widget),

-		"invalidGrabKind","xtPopup",XtCXtToolkitError,

-		"grab kind argument has invalid value; XtGrabNone assumed",

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

-	grab_kind = XtGrabNone;

-    }

-

-    _XtPopup(widget, grab_kind, FALSE);

-

-    hookobj = XtHooksOfDisplay(XtDisplay(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHpopup;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer)grab_kind;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-} /* XtPopup */

-

-void XtPopupSpringLoaded (

-    Widget widget)

-{

-    Widget hookobj;

-

-    _XtPopup(widget, XtGrabExclusive, True);

-

-    hookobj = XtHooksOfDisplay(XtDisplay(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHpopupSpringLoaded;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-}

-

-void XtPopdown(

-    Widget  widget)

-{

-    /* Unmap a shell widget if it is mapped, and remove from grab list */

-    Widget hookobj;

-    ShellWidget shell_widget = (ShellWidget) widget;

-    XtGrabKind grab_kind;

-

-    if (! XtIsShell(widget)) {

-	XtAppErrorMsg(XtWidgetToApplicationContext(widget),

-		"invalidClass","xtPopdown",XtCXtToolkitError,

-            "XtPopdown requires a subclass of shellWidgetClass",

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

-    }

-

-#ifndef X_NO_XT_POPDOWN_CONFORMANCE

-    if (!shell_widget->shell.popped_up)

-        return;

-#endif

-

-    grab_kind = shell_widget->shell.grab_kind;

-    XWithdrawWindow(XtDisplay(widget), XtWindow(widget),

-		    XScreenNumberOfScreen(XtScreen(widget)));

-    if (grab_kind != XtGrabNone)

-	XtRemoveGrab(widget);

-    shell_widget->shell.popped_up = FALSE;

-    XtCallCallbacks(widget, XtNpopdownCallback, (XtPointer)&grab_kind);

-

-    hookobj = XtHooksOfDisplay(XtDisplay(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHpopdown;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-} /* XtPopdown */

-

-/* ARGSUSED */

-void XtCallbackPopdown(

-    Widget  widget,

-    XtPointer closure,

-    XtPointer call_data)

-{

-    register XtPopdownID id = (XtPopdownID) closure;

-

-    XtPopdown(id->shell_widget);

-    if (id->enable_widget != NULL) {

-	XtSetSensitive(id->enable_widget, TRUE);

-    }

-} /* XtCallbackPopdown */

+/***********************************************************
+
+Copyright 1987, 1988, 1994, 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.
+
+
+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.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "ShellP.h"
+
+void _XtPopup(
+    Widget      widget,
+    XtGrabKind  grab_kind,
+    _XtBoolean  spring_loaded)
+{
+    register ShellWidget shell_widget = (ShellWidget) widget;
+
+    if (! XtIsShell(widget)) {
+	XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+		"invalidClass","xtPopup",XtCXtToolkitError,
+                "XtPopup requires a subclass of shellWidgetClass",
+                  (String *)NULL, (Cardinal *)NULL);
+    }
+
+    if (! shell_widget->shell.popped_up) {
+	XtGrabKind call_data = grab_kind;
+	XtCallCallbacks(widget, XtNpopupCallback, (XtPointer)&call_data);
+	shell_widget->shell.popped_up = TRUE;
+	shell_widget->shell.grab_kind = grab_kind;
+	shell_widget->shell.spring_loaded = spring_loaded;
+	if (shell_widget->shell.create_popup_child_proc != NULL) {
+	    (*(shell_widget->shell.create_popup_child_proc))(widget);
+	}
+	if (grab_kind == XtGrabExclusive) {
+	    XtAddGrab(widget, TRUE, spring_loaded);
+	} else if (grab_kind == XtGrabNonexclusive) {
+	    XtAddGrab(widget, FALSE, spring_loaded);
+	}
+	XtRealizeWidget(widget);
+	XMapRaised(XtDisplay(widget), XtWindow(widget));
+    } else
+	XRaiseWindow(XtDisplay(widget), XtWindow(widget));
+
+} /* _XtPopup */
+
+void XtPopup (Widget widget, XtGrabKind grab_kind)
+{
+    Widget hookobj;
+
+    switch (grab_kind) {
+
+      case XtGrabNone:
+      case XtGrabExclusive:
+      case XtGrabNonexclusive:
+	break;
+
+      default:
+	XtAppWarningMsg(
+		XtWidgetToApplicationContext(widget),
+		"invalidGrabKind","xtPopup",XtCXtToolkitError,
+		"grab kind argument has invalid value; XtGrabNone assumed",
+		(String *)NULL, (Cardinal *)NULL);
+	grab_kind = XtGrabNone;
+    }
+
+    _XtPopup(widget, grab_kind, FALSE);
+
+    hookobj = XtHooksOfDisplay(XtDisplay(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHpopup;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer)grab_kind;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+} /* XtPopup */
+
+void XtPopupSpringLoaded (
+    Widget widget)
+{
+    Widget hookobj;
+
+    _XtPopup(widget, XtGrabExclusive, True);
+
+    hookobj = XtHooksOfDisplay(XtDisplay(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHpopupSpringLoaded;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+}
+
+void XtPopdown(
+    Widget  widget)
+{
+    /* Unmap a shell widget if it is mapped, and remove from grab list */
+    Widget hookobj;
+    ShellWidget shell_widget = (ShellWidget) widget;
+    XtGrabKind grab_kind;
+
+    if (! XtIsShell(widget)) {
+	XtAppErrorMsg(XtWidgetToApplicationContext(widget),
+		"invalidClass","xtPopdown",XtCXtToolkitError,
+            "XtPopdown requires a subclass of shellWidgetClass",
+              (String *)NULL, (Cardinal *)NULL);
+    }
+
+#ifndef X_NO_XT_POPDOWN_CONFORMANCE
+    if (!shell_widget->shell.popped_up)
+        return;
+#endif
+
+    grab_kind = shell_widget->shell.grab_kind;
+    XWithdrawWindow(XtDisplay(widget), XtWindow(widget),
+		    XScreenNumberOfScreen(XtScreen(widget)));
+    if (grab_kind != XtGrabNone)
+	XtRemoveGrab(widget);
+    shell_widget->shell.popped_up = FALSE;
+    XtCallCallbacks(widget, XtNpopdownCallback, (XtPointer)&grab_kind);
+
+    hookobj = XtHooksOfDisplay(XtDisplay(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHpopdown;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+} /* XtPopdown */
+
+/* ARGSUSED */
+void XtCallbackPopdown(
+    Widget  widget,
+    XtPointer closure,
+    XtPointer call_data)
+{
+    register XtPopdownID id = (XtPopdownID) closure;
+
+    XtPopdown(id->shell_widget);
+    if (id->enable_widget != NULL) {
+	XtSetSensitive(id->enable_widget, TRUE);
+    }
+} /* XtCallbackPopdown */
diff --git a/libXt/src/PopupCB.c b/libXt/src/PopupCB.c
index 43b41a443..dece66b1f 100644
--- a/libXt/src/PopupCB.c
+++ b/libXt/src/PopupCB.c
@@ -1,82 +1,82 @@
-/***********************************************************

-

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

-

-

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

-

-******************************************************************/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-

-/* ARGSUSED */

-void XtCallbackNone(

-    Widget  widget,

-    XtPointer closure,

-    XtPointer call_data)

-{

-    XtSetSensitive(widget, FALSE);

-    _XtPopup((Widget) closure, XtGrabNone, FALSE);

-} /* XtCallbackNone */

-

-/* ARGSUSED */

-void XtCallbackNonexclusive(

-    Widget  widget,

-    XtPointer closure,

-    XtPointer call_data)

-{

-

-    XtSetSensitive(widget, FALSE);

-    _XtPopup((Widget) closure, XtGrabNonexclusive, FALSE);

-} /* XtCallbackNonexclusive */

-

-/* ARGSUSED */

-void XtCallbackExclusive(

-    Widget  widget,

-    XtPointer closure,

-    XtPointer call_data)

-{

-    XtSetSensitive(widget, FALSE);

-    _XtPopup((Widget) closure, XtGrabExclusive, FALSE);

-} /* XtCallbackExclusive */

+/***********************************************************
+
+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.
+
+
+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.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+
+/* ARGSUSED */
+void XtCallbackNone(
+    Widget  widget,
+    XtPointer closure,
+    XtPointer call_data)
+{
+    XtSetSensitive(widget, FALSE);
+    _XtPopup((Widget) closure, XtGrabNone, FALSE);
+} /* XtCallbackNone */
+
+/* ARGSUSED */
+void XtCallbackNonexclusive(
+    Widget  widget,
+    XtPointer closure,
+    XtPointer call_data)
+{
+
+    XtSetSensitive(widget, FALSE);
+    _XtPopup((Widget) closure, XtGrabNonexclusive, FALSE);
+} /* XtCallbackNonexclusive */
+
+/* ARGSUSED */
+void XtCallbackExclusive(
+    Widget  widget,
+    XtPointer closure,
+    XtPointer call_data)
+{
+    XtSetSensitive(widget, FALSE);
+    _XtPopup((Widget) closure, XtGrabExclusive, FALSE);
+} /* XtCallbackExclusive */
diff --git a/libXt/src/RectObj.c b/libXt/src/RectObj.c
index 0d03fd502..73e962506 100644
--- a/libXt/src/RectObj.c
+++ b/libXt/src/RectObj.c
@@ -1,190 +1,190 @@
-/***********************************************************

-

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

-

-

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

-

-******************************************************************/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "CreateI.h"

-

-/******************************************************************

- *

- * Rectangle Object Resources

- *

- ******************************************************************/

-

-static void XtCopyAncestorSensitive(Widget, int, XrmValue *);

-

-static XtResource resources[] = {

-

-    {XtNancestorSensitive, XtCSensitive, XtRBoolean, sizeof(Boolean),

-      XtOffsetOf(RectObjRec,rectangle.ancestor_sensitive),XtRCallProc,

-      (XtPointer)XtCopyAncestorSensitive},

-    {XtNx, XtCPosition, XtRPosition, sizeof(Position),

-         XtOffsetOf(RectObjRec,rectangle.x), XtRImmediate, (XtPointer)0},

-    {XtNy, XtCPosition, XtRPosition, sizeof(Position),

-         XtOffsetOf(RectObjRec,rectangle.y), XtRImmediate, (XtPointer)0},

-    {XtNwidth, XtCWidth, XtRDimension, sizeof(Dimension),

-         XtOffsetOf(RectObjRec,rectangle.width), XtRImmediate, (XtPointer)0},

-    {XtNheight, XtCHeight, XtRDimension, sizeof(Dimension),

-         XtOffsetOf(RectObjRec,rectangle.height), XtRImmediate, (XtPointer)0},

-    {XtNborderWidth, XtCBorderWidth, XtRDimension, sizeof(Dimension),

-         XtOffsetOf(RectObjRec,rectangle.border_width), XtRImmediate,

-	 (XtPointer)1},

-    {XtNsensitive, XtCSensitive, XtRBoolean, sizeof(Boolean),

-         XtOffsetOf(RectObjRec,rectangle.sensitive), XtRImmediate,

-	 (XtPointer)True}

-    };

-

-static void RectClassPartInitialize(WidgetClass);

-static void RectSetValuesAlmost(Widget, Widget, XtWidgetGeometry *, XtWidgetGeometry *);

-

-externaldef(rectobjclassrec) RectObjClassRec rectObjClassRec = {

-  {

-    /* superclass	  */	(WidgetClass)&objectClassRec,

-    /* class_name	  */	"Rect",

-    /* widget_size	  */	sizeof(RectObjRec),

-    /* class_initialize   */    NULL,

-    /* class_part_initialize*/	RectClassPartInitialize,

-    /* class_inited       */	FALSE,

-    /* initialize	  */	NULL,

-    /* initialize_hook    */	NULL,

-    /* realize		  */	NULL,

-    /* actions		  */	NULL,

-    /* num_actions	  */	0,

-    /* resources	  */	resources,

-    /* num_resources	  */	XtNumber(resources),

-    /* xrm_class	  */	NULLQUARK,

-    /* compress_motion	  */	FALSE,

-    /* compress_exposure  */	TRUE,

-    /* compress_enterleave*/ 	FALSE,

-    /* visible_interest	  */	FALSE,

-    /* destroy		  */	NULL,

-    /* resize		  */	NULL,

-    /* expose		  */	NULL,

-    /* set_values	  */	NULL,

-    /* set_values_hook    */	NULL,

-    /* set_values_almost  */	RectSetValuesAlmost,

-    /* get_values_hook    */	NULL,

-    /* accept_focus	  */	NULL,

-    /* version		  */	XtVersion,

-    /* callback_offsets   */    NULL,

-    /* tm_table           */    NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */	NULL,

-    /* extension	    */  NULL

-  }

-};

-

-externaldef(rectObjClass)

-WidgetClass rectObjClass = (WidgetClass)&rectObjClassRec;

-

-/*ARGSUSED*/

-static void XtCopyAncestorSensitive(

-    Widget      widget,

-    int		offset,

-    XrmValue    *value)

-{

-    static Boolean  sensitive;

-    Widget parent = widget->core.parent;

-

-    sensitive = (parent->core.ancestor_sensitive & parent->core.sensitive);

-    value->addr = (XPointer)(&sensitive);

-}

-

-

-/*

- * Start of rectangle object methods

- */

-

-

-static void RectClassPartInitialize(

-    register WidgetClass wc)

-{

-    register RectObjClass roc = (RectObjClass)wc;

-    register RectObjClass super = ((RectObjClass)roc->rect_class.superclass);

-

-    /* We don't need to check for null super since we'll get to object

-       eventually, and it had better define them!  */

-

-

-    if (roc->rect_class.resize == XtInheritResize) {

-	roc->rect_class.resize = super->rect_class.resize;

-    }

-

-    if (roc->rect_class.expose == XtInheritExpose) {

-	roc->rect_class.expose = super->rect_class.expose;

-    }

-

-    if (roc->rect_class.set_values_almost == XtInheritSetValuesAlmost) {

-	roc->rect_class.set_values_almost = super->rect_class.set_values_almost;

-    }

-

-

-    if (roc->rect_class.query_geometry == XtInheritQueryGeometry) {

-	roc->rect_class.query_geometry = super->rect_class.query_geometry;

-    }

-}

-

-/*

- * Why there isn't an Initialize Method:

- *

- * Initialization of the RectObj non-Resource field is done by the

- * intrinsics in _XtCreateWidget in order that the field is initialized

- * for use by converters during instance resource resolution.

- */

-

-/*ARGSUSED*/

-static void RectSetValuesAlmost(

-    Widget		old,

-    Widget		new,

-    XtWidgetGeometry    *request,

-    XtWidgetGeometry    *reply)

-{

-    *request = *reply;

-}

+/***********************************************************
+
+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.
+
+
+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.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "CreateI.h"
+
+/******************************************************************
+ *
+ * Rectangle Object Resources
+ *
+ ******************************************************************/
+
+static void XtCopyAncestorSensitive(Widget, int, XrmValue *);
+
+static XtResource resources[] = {
+
+    {XtNancestorSensitive, XtCSensitive, XtRBoolean, sizeof(Boolean),
+      XtOffsetOf(RectObjRec,rectangle.ancestor_sensitive),XtRCallProc,
+      (XtPointer)XtCopyAncestorSensitive},
+    {XtNx, XtCPosition, XtRPosition, sizeof(Position),
+         XtOffsetOf(RectObjRec,rectangle.x), XtRImmediate, (XtPointer)0},
+    {XtNy, XtCPosition, XtRPosition, sizeof(Position),
+         XtOffsetOf(RectObjRec,rectangle.y), XtRImmediate, (XtPointer)0},
+    {XtNwidth, XtCWidth, XtRDimension, sizeof(Dimension),
+         XtOffsetOf(RectObjRec,rectangle.width), XtRImmediate, (XtPointer)0},
+    {XtNheight, XtCHeight, XtRDimension, sizeof(Dimension),
+         XtOffsetOf(RectObjRec,rectangle.height), XtRImmediate, (XtPointer)0},
+    {XtNborderWidth, XtCBorderWidth, XtRDimension, sizeof(Dimension),
+         XtOffsetOf(RectObjRec,rectangle.border_width), XtRImmediate,
+	 (XtPointer)1},
+    {XtNsensitive, XtCSensitive, XtRBoolean, sizeof(Boolean),
+         XtOffsetOf(RectObjRec,rectangle.sensitive), XtRImmediate,
+	 (XtPointer)True}
+    };
+
+static void RectClassPartInitialize(WidgetClass);
+static void RectSetValuesAlmost(Widget, Widget, XtWidgetGeometry *, XtWidgetGeometry *);
+
+externaldef(rectobjclassrec) RectObjClassRec rectObjClassRec = {
+  {
+    /* superclass	  */	(WidgetClass)&objectClassRec,
+    /* class_name	  */	"Rect",
+    /* widget_size	  */	sizeof(RectObjRec),
+    /* class_initialize   */    NULL,
+    /* class_part_initialize*/	RectClassPartInitialize,
+    /* class_inited       */	FALSE,
+    /* initialize	  */	NULL,
+    /* initialize_hook    */	NULL,
+    /* realize		  */	NULL,
+    /* actions		  */	NULL,
+    /* num_actions	  */	0,
+    /* resources	  */	resources,
+    /* num_resources	  */	XtNumber(resources),
+    /* xrm_class	  */	NULLQUARK,
+    /* compress_motion	  */	FALSE,
+    /* compress_exposure  */	TRUE,
+    /* compress_enterleave*/ 	FALSE,
+    /* visible_interest	  */	FALSE,
+    /* destroy		  */	NULL,
+    /* resize		  */	NULL,
+    /* expose		  */	NULL,
+    /* set_values	  */	NULL,
+    /* set_values_hook    */	NULL,
+    /* set_values_almost  */	RectSetValuesAlmost,
+    /* get_values_hook    */	NULL,
+    /* accept_focus	  */	NULL,
+    /* version		  */	XtVersion,
+    /* callback_offsets   */    NULL,
+    /* tm_table           */    NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */	NULL,
+    /* extension	    */  NULL
+  }
+};
+
+externaldef(rectObjClass)
+WidgetClass rectObjClass = (WidgetClass)&rectObjClassRec;
+
+/*ARGSUSED*/
+static void XtCopyAncestorSensitive(
+    Widget      widget,
+    int		offset,
+    XrmValue    *value)
+{
+    static Boolean  sensitive;
+    Widget parent = widget->core.parent;
+
+    sensitive = (parent->core.ancestor_sensitive & parent->core.sensitive);
+    value->addr = (XPointer)(&sensitive);
+}
+
+
+/*
+ * Start of rectangle object methods
+ */
+
+
+static void RectClassPartInitialize(
+    register WidgetClass wc)
+{
+    register RectObjClass roc = (RectObjClass)wc;
+    register RectObjClass super = ((RectObjClass)roc->rect_class.superclass);
+
+    /* We don't need to check for null super since we'll get to object
+       eventually, and it had better define them!  */
+
+
+    if (roc->rect_class.resize == XtInheritResize) {
+	roc->rect_class.resize = super->rect_class.resize;
+    }
+
+    if (roc->rect_class.expose == XtInheritExpose) {
+	roc->rect_class.expose = super->rect_class.expose;
+    }
+
+    if (roc->rect_class.set_values_almost == XtInheritSetValuesAlmost) {
+	roc->rect_class.set_values_almost = super->rect_class.set_values_almost;
+    }
+
+
+    if (roc->rect_class.query_geometry == XtInheritQueryGeometry) {
+	roc->rect_class.query_geometry = super->rect_class.query_geometry;
+    }
+}
+
+/*
+ * Why there isn't an Initialize Method:
+ *
+ * Initialization of the RectObj non-Resource field is done by the
+ * intrinsics in _XtCreateWidget in order that the field is initialized
+ * for use by converters during instance resource resolution.
+ */
+
+/*ARGSUSED*/
+static void RectSetValuesAlmost(
+    Widget		old,
+    Widget		new,
+    XtWidgetGeometry    *request,
+    XtWidgetGeometry    *reply)
+{
+    *request = *reply;
+}
diff --git a/libXt/src/ResConfig.c b/libXt/src/ResConfig.c
index 88590986f..68da5364c 100644
--- a/libXt/src/ResConfig.c
+++ b/libXt/src/ResConfig.c
@@ -1,999 +1,999 @@
-/*

-

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

-

-*/

-/*****************************************************************

-

-(C) COPYRIGHT International Business Machines Corp. 1992,1997

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

-

-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 IBM CORPORATION BE LIABLE FOR ANY CLAIM, DAMAGES, INCLUDING,

-BUT NOT LIMITED TO CONSEQUENTIAL OR INCIDENTAL 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 IBM Corporation 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 IBM

-Corporation.

-

-******************************************************************/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "Intrinsic.h"

-#include "IntrinsicI.h"

-#include "Core.h"

-#include "CoreP.h"

-#include "ShellP.h"

-#include "StringDefs.h"

-#include "ResConfigP.h"

-#include <X11/Xatom.h>

-#include <stdio.h>

-#include <stdlib.h>

-

-#define MAX_BUFFER 512

-

-static void _search_child(Widget, char *, char *, char *, char *, char, char *);

-static void _set_and_search(Widget, char *, char *, char *, char *, char , char *);

-static int _locate_children(Widget, Widget **);

-

-#if defined(sun) && !defined(SVR4)

-# define Strtoul(a,b,c) (unsigned long)strtol(a,b,c)

-#else

-# define Strtoul(a,b,c) strtoul(a,b,c)

-#endif

-

-

-/*

- * NAME: _set_resource_values

- *

- * FUNCTION:

- *	This function sets the value on the widget.  It must first determine

- *	if the last part is a valid resource for that widget.  (eg.

- *	labelString is a valid resource for label but not for bulletin board)

- *	It must also add the resource to the application's resource database

- *	and then query it out using specific resource strings that it builds

- *	from the widget information.  This ensures that a customizing tool

- *	on-the-fly paradigm is followed:  an application that is

- *	instantaneously updated should look the same as one that is restarted

- *	and uses the .Xdefaults file.

- *

- * PARAMETERS:

- *	w		the widget to match

- *	resource	the resource string to be matched

- *	value		the value to be set

- *	last_part	the last resource part (e.g. *background)

- *

- * RETURN VALUES: void

- *

- * ERRORS: none

- */

-static void

-_set_resource_values (

-	Widget w,

-	char *resource,

-	char *value,

-	char *last_part)

-{

-	XrmDatabase 	db = NULL;

-	char		*resource_name = NULL;

-	char		*resource_class = NULL;

-	char		*return_type;

-	XrmValue	return_value;

-	char		*resource_value;

-	Widget		cur = w;

-	char		*temp;

-	XtResourceList	resources_return = NULL;

-	Cardinal 	num_resources_return = 0;

-	Cardinal	res_index;

-	Boolean		found_resource = False;

-	Display		*dpy;

-	XrmDatabase	tmp_db;

-

-	if (!XtIsWidget (w))

-		dpy = XtDisplay (w->core.parent);

-	else

-		dpy = XtDisplay (w);

-	tmp_db = XtDatabase(dpy);

-

-	/*

-	 * get a list of all the valid resources for this widget

-	 */

-	XtGetResourceList (w->core.widget_class,

-		&resources_return, &num_resources_return);

-

-	/*

-	 * try to match the last_part of the resource string with

-	 * a resource in this resource list

-	 */

-	for (res_index=0; res_index<num_resources_return; res_index++) {

-		if ((strcmp (last_part,

-			resources_return[res_index].resource_name) == 0) ||

-		    (strcmp (last_part,

-			resources_return[res_index].resource_class) == 0)) {

-			found_resource = True;

-			break;

-		}

-	}

-

-	/*

-	 * if resource is not a valid resource for this widget

-	 * or the resource name or class are NULL

-	 * then exit this function

-	 */

-	if (!found_resource

-		|| !resources_return[res_index].resource_name

-		|| !resources_return[res_index].resource_class) {

-		XtFree ((char *) resources_return);

-		return;

-	}

-

-	/*

-	 * build the full resource name and class specifications so

-	 * that you can query the resource database

-	 * 	eg: .app.button1.foreground

-	 * 	    .App.XmPushButton.Foreground

-	 */

-	while (cur != NULL) {

-		/*

-		 * create resource name string

-		 */

-		if (resource_name) {

-			XtAsprintf (&temp, ".%s%s", cur->core.name, resource_name);

-			XtFree (resource_name);

-		} else if (!XtIsWidget (cur) || !cur->core.name) {

-			cur = XtParent(cur);

-			continue;

-		} else {

-			XtAsprintf (&temp, ".%s", cur->core.name);

-		}

-		resource_name = temp;

-

-		/*

-		 * create resource class string

-		 */

-		if ((XtIsTopLevelShell (cur)) && (XtParent (cur) == NULL)) {

-			ApplicationShellWidget	top =

-				(ApplicationShellWidget) (cur);

-

-			if (resource_class) {

-				XtAsprintf (&temp, ".%s%s",

-					top->application.class, resource_class);

-			} else {

-				XtAsprintf (&temp, ".%s",

-					top->application.class);

-			}

-		} else {

-			if (resource_class) {

-				XtAsprintf (&temp, ".%s%s",

-					cur->core.widget_class->core_class.class_name,

-					resource_class);

-			} else {

-				XtAsprintf (&temp, ".%s",

-					cur->core.widget_class->core_class.class_name);

-			}

-		}

-		if (resource_class != NULL)

-			XtFree (resource_class);

-		resource_class = temp;

-

-		cur = XtParent(cur);

-	}

-

-	/*

-	 * add the resource name to the end of the resource name string

-	 */

-	XtAsprintf (&temp, "%s.%s", resource_name,

-		resources_return[res_index].resource_name);

-	if (resource_name != NULL)

-		XtFree (resource_name);

-	resource_name = temp;

-

-	/*

-	 * add the resource class to the end of the resource class string

-	 */

-	XtAsprintf (&temp, "%s.%s", resource_class,

-		resources_return[res_index].resource_class);

-	if (resource_class != NULL)

-		XtFree (resource_class);

-	resource_class = temp;

-

-#ifdef DEBUG

-	fprintf (stderr, "resource_name = %s\n", resource_name);

-	fprintf (stderr, "resource_class = %s\n", resource_class);

-#endif

-

-	/*

-	 * put the resource and its value in a resource database and

-	 * then query it back out again using the specific name and

-	 * class resource strings that were built above.  This is

-	 * necessary to maintain a precedence similar to the .Xdefaults

-	 * file

-	 */

-	XrmPutStringResource (&db, resource, value);

-	XrmMergeDatabases (db, &tmp_db);

-	XrmGetResource (tmp_db, resource_name, resource_class,

-		&return_type, &return_value);

-	if (return_type)

-		resource_value = XtNewString (return_value.addr);

-	else

-		resource_value = XtNewString (value);

-

-#ifdef DEBUG

-	fprintf (stderr,

-		"Apply:\n\twidget = %s\n\tlast_part = %s\n\tvalue = %s\n",

-		(w->core.name == NULL) ? "NULL" : w->core.name,

-		resources_return[res_index].resource_name,

-		resource_value);

-#endif

-	/*

-	 * use XtVaSetValues with XtVaTypedArg to convert the value of

-	 * type String the the same type as the resource (last_part).

-	 * Then set the value.

-	 */

-	XtVaSetValues (w,

-		XtVaTypedArg, resources_return[res_index].resource_name,

-		XtRString, resource_value,

-		strlen (resource_value) + 1,

-		NULL);

-

-	XtFree ((char *) resources_return);

-	XtFree (resource_name);

-	XtFree (resource_class);

-	XtFree (resource_value);

-}

-

-/*

- * NAME: _apply_values_to_children

- *

- * FUNCTION:

- *	Once the resource string matches the value must be applied to

- *	all children if applicable. (eg. App*Form.background must apply

- *	background to all children of the Form widget)

- *

- * PARAMETERS:

- *	w		the widget to match

- *	remainder	the part of the resource string left over

- *	resource	the resource string to be matched

- *	value		the value to be set

- *	last_token	the last * or . before the final resoruce part

- *	last_part	the last resource part (e.g. *background)

- *

- * RETURN VALUES: void

- *

- * ERRORS: none

- */

-static void

-_apply_values_to_children (

-	Widget w,

-	char *remainder,

-	char *resource,

-	char *value,

-	char last_token,

-	char *last_part)

-{

-	int 	i;

-	int	num_children;

-	Widget	*children;

-

-	/*

-	 * Recursively search through the children

-	 */

-	num_children = _locate_children (w, &children);

-

-	for (i=0; i<num_children; i++) {

-

-#ifdef DEBUG

-		if (XtIsWidget (children[i]) && XtIsWidget (w))

-			fprintf (stderr, "searching child %s of parent %s\n",

-				children[i]->core.name, w->core.name);

-		else

-			fprintf (stderr,"searching child (NULL) of parent %s\n",

-				w->core.name);

-		if (!XtIsWidget (children[i]))

-			fprintf (stderr, "children[%d] is NOT a widget\n", i);

-		if (!XtIsWidget (w))

-			fprintf (stderr, "w is NOT a widget\n");

-#endif

-

-		_set_resource_values (children[i], resource, value, last_part);

-		_apply_values_to_children (children[i], remainder,

-				resource, value, last_token, last_part);

-	}

-

-	XtFree ((char *)children);

-}

-

-/*

- * NAME: _search_child

- *

- * FUNCTION:

- *	descends through each child of the tree

- *

- * PARAMETERS:

- *	w		the widget whose children are to be searched

- *	indx		index into the resource string

- *	remainder	the remaining part of the resource string

- *	resource	the resource string to be matched

- *	value		the value to be applied

- *	last_token	the last * or . before the final resoruce part

- *	last_part	the last resource part (e.g. *background)

- *

- * RETURN VALUES: none

- *

- * ERRORS: none

- */

-static void

-_search_child (

-	Widget w,

-	char *indx,

-	char *remainder,

-	char *resource,

-	char *value,

-	char last_token,

-	char *last_part)

-{

-	int 	i;

-	int	num_children;

-	Widget	*children;

-

-	/*

-	 * Recursively search through the children

-	 */

-	num_children = _locate_children (w, &children);

-	for (i=0; i<num_children; i++) {

-		_set_and_search (children[i], indx, remainder, resource,

-			value, last_token, last_part);

-	}

-

-	XtFree ((char *)children);

-}

-

-/*

- * NAME: _get_part

- *

- * FUNCTION:

- * 	This routine will return the token and following part of the resource

- * 	when given the current index it will update the index accordingly

- *

- * PARAMETERS:

- *	remainder	the part of the resource string left over

- *	indx		the index into the resource string

- *	part		the parsed off part of the resource string

- *

- * RETURN VALUES:

- *	char		the token (* or . or ?) preceding the resource part

- *	indx		the index into the resource string

- *	part		the parsed off part of the resource string

- *

- * ERRORS: none

- */

-/* ARGSUSED */

-static char

-_get_part (

-	char *remainder,

-	char **indx,

-	char **part)

-{

-	char	buffer[MAX_BUFFER];

-	char	*buf_ptr;

-	char	token = **indx;

-	int	i = 0;

-

-	/*

-	 * copy the remainder part into the buffer

-	 */

-	buf_ptr = buffer;

-	(*indx)++;			/* get rid of the token		*/

-	while (**indx && (**indx != '.') && (**indx != '*')) {

-		*buf_ptr++ = *(*indx)++;

-		if (++i >= MAX_BUFFER - 1)

-			break;

-	}

-	*buf_ptr = '\0';

-

-	*part = XtNewString (buffer);	/* return a new string to part	*/

-

-	if (strcmp (*indx, "") == 0)

-		*indx = NULL;

-

-	return (token);			/* return the token		*/

-}

-

-/*

- * NAME: _match_resource_to_widget

- *

- * FUNCTION:

- *	This function matches the resource part to the widget name or class

- *

- * PARAMETERS:

- *	w		the widget to match

- *	part		the parsed off part of the resource string

- *

- * RETURN VALUES:

- *	Boolean		true if a match occurs

- *

- * ERRORS: none

- */

-static Boolean

-_match_resource_to_widget (

-	Widget w,

-	char *part)

-{

-	/*

-	 * Match any widget at this level if the ? is used

-	 */

-	if (strcmp (part, "?") == 0)

-		return (True);

-

-	/*

-	 * if the object is really a widget then its name can be matched

-	 * otherwise only use its class.  Note that if you try to reference

-	 * a widget name when the object is not a widget, you may get a

-	 * core dump from an invalid pointer reference.

-	 */

-	if (XtIsWidget (w)) {

-		if ((strcmp (w->core.name, part) == 0) ||

-		    (strcmp (w->core.widget_class->core_class.class_name,

-							part) == 0))

-			return (True);

-		else

-			return (False);

-	} else {

-		if ((strcmp (w->core.widget_class->core_class.class_name,

-							part) == 0))

-			return (True);

-		else

-			return (False);

-	}

-}

-

-/*

- * NAME: _set_and_search

- *

- * FUNCTION:

- * 	The algorithm to search the widget tree and apply a resource string

- *

- * PARAMETERS:

- *	w		the widget to match

- *	indx		the index into the resource string

- *	remainder	the part of the resource string left over

- *	resource	the resource string to be matched

- *	value		the value to be set

- *	last_token	the last * or . before the final resoruce part

- *	last_part	the last resource part (e.g. *background)

- *

- * RETURN VALUES: none

- *

- * ERRORS: none

- *

- * ALGORITHM:

- * loop (look at all children)

- * 	if (resource segment and current widget match)

- *		if '.'

- *			if at end of resource string

- *				set values (	.=over all children

- *						*=this widget only)

- *			else

- *				descend the widget tree

- *				and parse off resource segment

- *			exit the loop

- *		if '*'

- *			if at end of resource string

- *				set values (	.=over all children

- *						*=this widget only)

- *			descend and parse

- *	else

- *		if '.'

- *			continue looping

- *		if '*'

- *			descend but don't parse

- *			continue looping

- * end loop

- *

- * NOTE:  the _set_resource_values routine will not allow a value to be

- *	set on a resource against the rules of the resource database manager

- */

-static void

-_set_and_search (

-	Widget w,

-	char *indx,

-	char *remainder,

-	char *resource,

-	char *value,

-	char last_token,

-	char *last_part)

-{

-	char	*part;

-	char	*local_index = indx;

-	char	token;

-

-	/*

-	 * parse off one part, return token and the new index

-	 */

-	token = _get_part (remainder, &local_index, &part);

-

-	if (_match_resource_to_widget (w, part)) {

-		if (token == '.') {

-			if (local_index == NULL) {

-				if (last_token == '.') {

-					_set_resource_values (w, resource,

-						value, last_part);

-				} else if (last_token == '*') {

-					_set_resource_values (w, resource,

-						value, last_part);

-					_apply_values_to_children (w,

-						remainder, resource, value,

-						last_token, last_part);

-				}

-			} else

-				_search_child (w, local_index, remainder,

-					resource, value, last_token, last_part);

-			return;

-		}

-		if (token == '*') {

-			if (local_index == NULL) {

-				if (last_token == '.') {

-					_set_resource_values (w, resource,

-						value, last_part);

-				} else if (last_token == '*') {

-					_set_resource_values (w, resource,

-						value, last_part);

-					_apply_values_to_children ( w,

-						remainder, resource, value,

-						last_token, last_part);

-				}

-			} else

-				_search_child (w, local_index, remainder,

-					resource, value, last_token, last_part);

-		}

-	} else {/* if the widget name and class don't match the part */

-		/* if (token == '.') just continue looping */

-

-		if (token == '*') {

-			_search_child (w, indx, remainder, resource, value,

-				last_token, last_part);

-		}

-	}

-

-	XtFree (part);

-}

-

-/*

- * NAME: _get_last_part

- *

- * FUNCTION:

- * 	This routine will parse off the last segment of a resource string

- * 	and its token and return them.  the remainder of resource is also

- * 	returned.  strcoll is used to guarantee no problems with

- *	international strings.

- *

- * PARAMETERS:

- *	remainder	the part of the resource string left over

- *	part		the parsed off part of the resource string

- *

- * RETURN VALUES:

- *	char		the token (* or . or ?) preceding the resource part

- *	remainder	the part of the resource string left over

- *	part		the parsed off part of the resource string

- *

- * ERRORS: none

- */

-static char

-_get_last_part (

-	char *remainder,

-	char **part)

-{

-	char	*loose, *tight;

-

-	loose = strrchr (remainder, '*');

-	tight = strrchr (remainder, '.');

-

-	if ((loose == NULL) && (tight == NULL)) {

-		*part = XtNewString (remainder);

-		return ('.');

-	}

-	if ((loose == NULL) || (tight && (strcoll (loose, tight) < 0))) {

-		*tight++ = '\0';	/* shorten the remainder string */

-		*part = XtNewString (tight);

-		return ('.');

-	}

-	if ((tight == NULL) || (loose && (strcoll (tight, loose) < 0))) {

-		*loose++ = '\0';

-		*part = XtNewString (loose);

-		return ('*');

-	}

-	*part = NULL;

-

-	return ('0');	/* error - return 0 */

-}

-

-/*

- * NAME: _search_widget_tree

- *

- * FUNCTION:

- *	This function tries to match a resource string to the widgets

- *	it applies to.  The functions it invokes to do this then set

- *	the value for that resource to each widget.

- *

- *	The resource string has to be parsed into the following format:

- *		resource = App*Form*button1.background

- *		remainder = *Form*button1

- *		last_part = background		last_token = .

- *	As the widget tree is recursively descended, these variables are

- *	passed.  The remainder is parsed at each level in the widget

- *	tree as the _set_and_search function attempts to match

- *	the resource part (eg. part = Form  token = *) to a widget.  When

- *	the entire resource string has been matched, the _set_resource_values

- *	functions is called to apply the value to the widget or widgets.

- *

- * PARAMETERS:

- *	w		a widget from whose toplevel shell ancestor

- *			the search will start

- *	resource	the resource string to match

- *	value		the value to apply

- *

- * RETURN VALUES: none

- *

- * ERRORS: none

- */

-static void

-_search_widget_tree (

-	Widget w,

-	char *resource,

-	char *value)

-{

-	Widget	parent = w;

-	char	*last_part;

-	char	*remainder = NULL;

-	char	last_token;

-	char	*indx, *copy;

-	char	*loose, *tight;

-	int	loose_len, tight_len;

-

-	/*

-	 * Find the root of the tree given any widget

-	 */

-	while (XtParent(parent) != NULL) {

-		parent = XtParent(parent);

-	}

-#ifdef DEBUG

-	if (XtIsWidget (w) && XtIsWidget (parent))

-		fprintf (stderr, "widget = %s parent = %s\n",

-			w->core.name, parent->core.name);

-	else

-		fprintf (stderr, "widget = NULL parent = NULL\n");

-#endif

-

-	/*

-	 * parse off the Class name that was prepended to this string in

-	 * a customizing tool

-	 */

-	loose = strchr (resource, '*');

-	tight = strchr (resource, '.');

-	if ((loose == NULL) && (tight == NULL))

-		return;

-

-	loose_len = (loose) ? strlen (loose) : 0;

-	tight_len = (tight) ? strlen (tight) : 0;

-

-	if ((loose == NULL) || (tight_len > loose_len))

-		remainder = XtNewString (tight);

-	else if ((tight == NULL) || (loose_len > tight_len))

-		remainder = XtNewString (loose);

-

-	/*

-	 * Parse last segment off of resource string, (eg. background, font,

-	 * etc.)

-	 */

-	last_token = _get_last_part (remainder, &last_part);

-	/*

-	 * this case covers resources of only one level (eg. *background)

-	 */

-	if (remainder[0] == 0) {

-		_set_resource_values (w, resource, value, last_part);

-		if (last_token == '*')

-			_apply_values_to_children (parent, remainder, resource,

-				value, last_token, last_part);

-	/*

-	 * all other resource strings are recursively applied to the widget tree.

-	 * Prepend a '.' to the remainder string if there is no leading token.

-	 */

-	} else {

-		if (remainder[0] != '*' && remainder[0] != '.') {

-			XtAsprintf (&copy, ".%s", remainder);

-			XtFree (remainder);

-			remainder = copy;

-		}

-		indx = remainder;

-		_set_and_search (parent, indx, remainder, resource, value,

-			last_token, last_part);

-	}

-

-	XtFree (remainder);

-	XtFree (last_part);

-}

-

-/*

- * NAME: _locate_children

- *

- * FUNCTION:

- *	returns a list of all of a widget's children

- *

- * PARAMETERS:

- *	w		the parent to search for its children

- *	children	the list of children that is created

- *	normal		flag for normal children

- *	popup		flag for popup children

- *

- * RETURN VALUES:

- *	int		the number of children

- *	children	the list of children found

- *

- * ERRORS: none

- */

-static int

-_locate_children (

-	Widget parent,

-	Widget **children)

-{

-	CompositeWidget comp = (CompositeWidget) parent;

-	Cardinal	i;

-	int	num_children = 0;

-	int	current = 0;

-

-	/*

-	 * count the number of children

-	 */

-	if (XtIsWidget (parent))

-		num_children += parent->core.num_popups;

-	if (XtIsComposite (parent))

-		num_children += comp->composite.num_children;

-	if (num_children == 0) {

-		*children = NULL;

-		return (0);

-	}

-

-	*children = (Widget *)

-		XtMalloc ((Cardinal) sizeof(Widget) * num_children);

-

-	if (XtIsComposite (parent)) {

-		for (i=0; i<comp->composite.num_children; i++) {

-			(*children)[current] = comp->composite.children[i];

-			current++;

-		}

-	}

-

-	if (XtIsWidget (parent)) {

-		for (i=0; i<parent->core.num_popups; i++) {

-			(*children)[current] = comp->core.popup_list[i];

-			current++;

-		}

-	}

-

-	return (num_children);

-}

-

-#ifdef DEBUG

-/*

- * NAME: dump_widget_tree

- *

- * FUNCTION:

- *	recursively printout entire widget tree

- *

- * PARAMETERS:

- *	w		the widget to match

- *	indent		the amount to indent each line

- *

- * RETURN VALUES: void

- *

- * ERRORS: none

- */

-static void

-dump_widget_tree (

-	Widget w,

-	int	indent)

-{

-	int 	i,j;

-	int	num_children;

-	Widget	*children;

-

-	/*

-	 * Recursively search through the children

-	 */

-	num_children = _locate_children (w, &children);

-	indent += 2;

-	for (i=0; i<num_children; i++) {

-		if (children[i] != NULL) {

-			for (j=0; j<indent; j++)

-				fprintf (stderr, " ");

-			if (XtIsWidget (children[i])) {

-				fprintf (stderr, "(%s)\t",children[i]->core.name);

-				fprintf (stderr, "(%s)\n",

-			children[i]->core.widget_class->core_class.class_name);

-			} else {

-				fprintf (stderr, "(NULL)\t");

-				fprintf (stderr, "(%s)\n",

-			children[i]->core.widget_class->core_class.class_name);

-			}

-		}

-		dump_widget_tree (children[i], indent);

-	}

-

-	XtFree ((char *)children);

-}

-#endif

-

-/*

- * NAME: _XtResourceConfiguationEH

- *

- * FUNCTION:

- *	This function is the event handler for the on-the-fly communication

- *	with a resource customization tool.  This event handler must be

- *      registered for the toplevel shell of each app.  This is best done

- *      in the _XtCreatePopupShell and _XtAppCreateShell functions in Xt's

- *	Create.c source file.

- *

- * 	The property used to communicate with a customizing tool is

- *	placed on the toplevel shell window of the application.  The

- *	customizing tool places a property on this window which causes

- *	this event handler to be invoked via the PropertyNotify event.

- *	This event handler reads the property and then deletes it from

- *	the server.  The contents of the property are a resource string

- *	and value.  The event handler then calls functions to walk the

- *	applications widget tree, determining which widgets are affected

- *	by the resource string, and then applying the value with XtSetValues.

- *

- * PARAMETERS:

- *	w		the widget that invoked this event handler

- *	client_data	not used

- *	event		the event structure

- *

- * RETURN VALUES: none

- *

- * ERRORS: none

- */

-/* ARGSUSED */

-void

-_XtResourceConfigurationEH (

-	Widget w,

-	XtPointer client_data,

-	XEvent *event)

-{

-	Atom		actual_type;

-	int		actual_format;

-	unsigned long	nitems;

-	unsigned long	leftover;

-	unsigned char	*data = NULL;

-	unsigned long	resource_len;

-	char		*data_ptr;

-	char		*resource;

-	char		*value;

-#ifdef DEBUG

-	int		indent = 0;

-#endif

-	XtPerDisplay	pd;

-

-#ifdef DEBUG

-	fprintf (stderr, "in _XtResourceConfiguationEH atom = %d\n",event->xproperty.atom);

-	fprintf (stderr, "    window = %x\n", XtWindow (w));

-	if (XtIsWidget (w))

-		fprintf (stderr, "    widget = %x   name = %s\n", w, w->core.name);

-#endif

-

-	pd = _XtGetPerDisplay (XtDisplay (w));

-

-	/*

-	 * The window on which a customizing tool places the property

-	 * is determined at this point.  It should be the applications

-	 * toplevel shell window.

-	 *

-	 * A customizing tool sends a "ping" to the application on

-	 * the RCM_INIT property.  The application answers the ping

-	 * by deleting the property.

-	 */

-	if (event->xproperty.atom == pd->rcm_init) {

-		XDeleteProperty (XtDisplay(w), XtWindow (w), pd->rcm_init);

-

-#ifdef DEBUG

-		if (XtIsWidget (w))

-			fprintf (stderr, "%s\n", w->core.name);

-		else

-			fprintf (stderr, "NULL name\n");

-		dump_widget_tree(w, indent);

-

-		fprintf (stderr, "answer ping\n");

-#endif

-	}

-

-	/*

-	 * This event handler ignores any property notify events that

-	 * are not RCM_INIT or RCM_DATA

-	 */

-	if (event->xproperty.atom != pd->rcm_data)

-		return;

-

-	/*

-	 * Retrieve the data from the property

-	 */

-#ifdef DEBUG

-	fprintf (stderr, "receiving RCM_DATA property\n");

-#endif

-	if (XGetWindowProperty (XtDisplay(w),

-		XtWindow (w),

-		pd->rcm_data, 0L, 8192L,

-		TRUE, XA_STRING,

-		&actual_type, &actual_format, &nitems, &leftover,

-		&data ) == Success && actual_type == XA_STRING

-			   && actual_format == 8) {

-	/*

-	 *      data format is:

-	 *

-	 *      resource_length, resource, value

-	 *

-	 *      convert the resource_length to a long, skip over it, put a

-	 *      zero byte at the end of the resource, and pick off the

-	 *      resource and value fields.

-	 */

-		if (data) {

-			resource_len = Strtoul ((void *)data, &data_ptr, 10);

-			data_ptr++;

-

-			data_ptr[resource_len] = '\0';

-

-			resource = XtNewString (data_ptr);

-			value = XtNewString (&data_ptr[resource_len + 1]);

-#ifdef DEBUG

-			fprintf (stderr, "resource_len=%d\n",resource_len);

-			fprintf (stderr, "resource = %s\t value = %s\n",

-					resource, value);

-#endif

-			/*

-			 * descend the application widget tree and

-			 * apply the value to the appropriate widgets

-			 */

-			_search_widget_tree (w, resource, value);

-

-			XtFree (resource);

-			XtFree (value);

-		}

-	}

-

-	if (data)

-		XFree ((char *)data);

-}

+/*
+
+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.
+
+*/
+/*****************************************************************
+
+(C) COPYRIGHT International Business Machines Corp. 1992,1997
+    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.
+
+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 IBM CORPORATION BE LIABLE FOR ANY CLAIM, DAMAGES, INCLUDING,
+BUT NOT LIMITED TO CONSEQUENTIAL OR INCIDENTAL 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 IBM Corporation 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 IBM
+Corporation.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "Intrinsic.h"
+#include "IntrinsicI.h"
+#include "Core.h"
+#include "CoreP.h"
+#include "ShellP.h"
+#include "StringDefs.h"
+#include "ResConfigP.h"
+#include <X11/Xatom.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#define MAX_BUFFER 512
+
+static void _search_child(Widget, char *, char *, char *, char *, char, char *);
+static void _set_and_search(Widget, char *, char *, char *, char *, char , char *);
+static int _locate_children(Widget, Widget **);
+
+#if defined(sun) && !defined(SVR4)
+# define Strtoul(a,b,c) (unsigned long)strtol(a,b,c)
+#else
+# define Strtoul(a,b,c) strtoul(a,b,c)
+#endif
+
+
+/*
+ * NAME: _set_resource_values
+ *
+ * FUNCTION:
+ *	This function sets the value on the widget.  It must first determine
+ *	if the last part is a valid resource for that widget.  (eg.
+ *	labelString is a valid resource for label but not for bulletin board)
+ *	It must also add the resource to the application's resource database
+ *	and then query it out using specific resource strings that it builds
+ *	from the widget information.  This ensures that a customizing tool
+ *	on-the-fly paradigm is followed:  an application that is
+ *	instantaneously updated should look the same as one that is restarted
+ *	and uses the .Xdefaults file.
+ *
+ * PARAMETERS:
+ *	w		the widget to match
+ *	resource	the resource string to be matched
+ *	value		the value to be set
+ *	last_part	the last resource part (e.g. *background)
+ *
+ * RETURN VALUES: void
+ *
+ * ERRORS: none
+ */
+static void
+_set_resource_values (
+	Widget w,
+	char *resource,
+	char *value,
+	char *last_part)
+{
+	XrmDatabase 	db = NULL;
+	char		*resource_name = NULL;
+	char		*resource_class = NULL;
+	char		*return_type;
+	XrmValue	return_value;
+	char		*resource_value;
+	Widget		cur = w;
+	char		*temp;
+	XtResourceList	resources_return = NULL;
+	Cardinal 	num_resources_return = 0;
+	Cardinal	res_index;
+	Boolean		found_resource = False;
+	Display		*dpy;
+	XrmDatabase	tmp_db;
+
+	if (!XtIsWidget (w))
+		dpy = XtDisplay (w->core.parent);
+	else
+		dpy = XtDisplay (w);
+	tmp_db = XtDatabase(dpy);
+
+	/*
+	 * get a list of all the valid resources for this widget
+	 */
+	XtGetResourceList (w->core.widget_class,
+		&resources_return, &num_resources_return);
+
+	/*
+	 * try to match the last_part of the resource string with
+	 * a resource in this resource list
+	 */
+	for (res_index=0; res_index<num_resources_return; res_index++) {
+		if ((strcmp (last_part,
+			resources_return[res_index].resource_name) == 0) ||
+		    (strcmp (last_part,
+			resources_return[res_index].resource_class) == 0)) {
+			found_resource = True;
+			break;
+		}
+	}
+
+	/*
+	 * if resource is not a valid resource for this widget
+	 * or the resource name or class are NULL
+	 * then exit this function
+	 */
+	if (!found_resource
+		|| !resources_return[res_index].resource_name
+		|| !resources_return[res_index].resource_class) {
+		XtFree ((char *) resources_return);
+		return;
+	}
+
+	/*
+	 * build the full resource name and class specifications so
+	 * that you can query the resource database
+	 * 	eg: .app.button1.foreground
+	 * 	    .App.XmPushButton.Foreground
+	 */
+	while (cur != NULL) {
+		/*
+		 * create resource name string
+		 */
+		if (resource_name) {
+			XtAsprintf (&temp, ".%s%s", cur->core.name, resource_name);
+			XtFree (resource_name);
+		} else if (!XtIsWidget (cur) || !cur->core.name) {
+			cur = XtParent(cur);
+			continue;
+		} else {
+			XtAsprintf (&temp, ".%s", cur->core.name);
+		}
+		resource_name = temp;
+
+		/*
+		 * create resource class string
+		 */
+		if ((XtIsTopLevelShell (cur)) && (XtParent (cur) == NULL)) {
+			ApplicationShellWidget	top =
+				(ApplicationShellWidget) (cur);
+
+			if (resource_class) {
+				XtAsprintf (&temp, ".%s%s",
+					top->application.class, resource_class);
+			} else {
+				XtAsprintf (&temp, ".%s",
+					top->application.class);
+			}
+		} else {
+			if (resource_class) {
+				XtAsprintf (&temp, ".%s%s",
+					cur->core.widget_class->core_class.class_name,
+					resource_class);
+			} else {
+				XtAsprintf (&temp, ".%s",
+					cur->core.widget_class->core_class.class_name);
+			}
+		}
+		if (resource_class != NULL)
+			XtFree (resource_class);
+		resource_class = temp;
+
+		cur = XtParent(cur);
+	}
+
+	/*
+	 * add the resource name to the end of the resource name string
+	 */
+	XtAsprintf (&temp, "%s.%s", resource_name,
+		resources_return[res_index].resource_name);
+	if (resource_name != NULL)
+		XtFree (resource_name);
+	resource_name = temp;
+
+	/*
+	 * add the resource class to the end of the resource class string
+	 */
+	XtAsprintf (&temp, "%s.%s", resource_class,
+		resources_return[res_index].resource_class);
+	if (resource_class != NULL)
+		XtFree (resource_class);
+	resource_class = temp;
+
+#ifdef DEBUG
+	fprintf (stderr, "resource_name = %s\n", resource_name);
+	fprintf (stderr, "resource_class = %s\n", resource_class);
+#endif
+
+	/*
+	 * put the resource and its value in a resource database and
+	 * then query it back out again using the specific name and
+	 * class resource strings that were built above.  This is
+	 * necessary to maintain a precedence similar to the .Xdefaults
+	 * file
+	 */
+	XrmPutStringResource (&db, resource, value);
+	XrmMergeDatabases (db, &tmp_db);
+	XrmGetResource (tmp_db, resource_name, resource_class,
+		&return_type, &return_value);
+	if (return_type)
+		resource_value = XtNewString (return_value.addr);
+	else
+		resource_value = XtNewString (value);
+
+#ifdef DEBUG
+	fprintf (stderr,
+		"Apply:\n\twidget = %s\n\tlast_part = %s\n\tvalue = %s\n",
+		(w->core.name == NULL) ? "NULL" : w->core.name,
+		resources_return[res_index].resource_name,
+		resource_value);
+#endif
+	/*
+	 * use XtVaSetValues with XtVaTypedArg to convert the value of
+	 * type String the the same type as the resource (last_part).
+	 * Then set the value.
+	 */
+	XtVaSetValues (w,
+		XtVaTypedArg, resources_return[res_index].resource_name,
+		XtRString, resource_value,
+		strlen (resource_value) + 1,
+		NULL);
+
+	XtFree ((char *) resources_return);
+	XtFree (resource_name);
+	XtFree (resource_class);
+	XtFree (resource_value);
+}
+
+/*
+ * NAME: _apply_values_to_children
+ *
+ * FUNCTION:
+ *	Once the resource string matches the value must be applied to
+ *	all children if applicable. (eg. App*Form.background must apply
+ *	background to all children of the Form widget)
+ *
+ * PARAMETERS:
+ *	w		the widget to match
+ *	remainder	the part of the resource string left over
+ *	resource	the resource string to be matched
+ *	value		the value to be set
+ *	last_token	the last * or . before the final resoruce part
+ *	last_part	the last resource part (e.g. *background)
+ *
+ * RETURN VALUES: void
+ *
+ * ERRORS: none
+ */
+static void
+_apply_values_to_children (
+	Widget w,
+	char *remainder,
+	char *resource,
+	char *value,
+	char last_token,
+	char *last_part)
+{
+	int 	i;
+	int	num_children;
+	Widget	*children;
+
+	/*
+	 * Recursively search through the children
+	 */
+	num_children = _locate_children (w, &children);
+
+	for (i=0; i<num_children; i++) {
+
+#ifdef DEBUG
+		if (XtIsWidget (children[i]) && XtIsWidget (w))
+			fprintf (stderr, "searching child %s of parent %s\n",
+				children[i]->core.name, w->core.name);
+		else
+			fprintf (stderr,"searching child (NULL) of parent %s\n",
+				w->core.name);
+		if (!XtIsWidget (children[i]))
+			fprintf (stderr, "children[%d] is NOT a widget\n", i);
+		if (!XtIsWidget (w))
+			fprintf (stderr, "w is NOT a widget\n");
+#endif
+
+		_set_resource_values (children[i], resource, value, last_part);
+		_apply_values_to_children (children[i], remainder,
+				resource, value, last_token, last_part);
+	}
+
+	XtFree ((char *)children);
+}
+
+/*
+ * NAME: _search_child
+ *
+ * FUNCTION:
+ *	descends through each child of the tree
+ *
+ * PARAMETERS:
+ *	w		the widget whose children are to be searched
+ *	indx		index into the resource string
+ *	remainder	the remaining part of the resource string
+ *	resource	the resource string to be matched
+ *	value		the value to be applied
+ *	last_token	the last * or . before the final resoruce part
+ *	last_part	the last resource part (e.g. *background)
+ *
+ * RETURN VALUES: none
+ *
+ * ERRORS: none
+ */
+static void
+_search_child (
+	Widget w,
+	char *indx,
+	char *remainder,
+	char *resource,
+	char *value,
+	char last_token,
+	char *last_part)
+{
+	int 	i;
+	int	num_children;
+	Widget	*children;
+
+	/*
+	 * Recursively search through the children
+	 */
+	num_children = _locate_children (w, &children);
+	for (i=0; i<num_children; i++) {
+		_set_and_search (children[i], indx, remainder, resource,
+			value, last_token, last_part);
+	}
+
+	XtFree ((char *)children);
+}
+
+/*
+ * NAME: _get_part
+ *
+ * FUNCTION:
+ * 	This routine will return the token and following part of the resource
+ * 	when given the current index it will update the index accordingly
+ *
+ * PARAMETERS:
+ *	remainder	the part of the resource string left over
+ *	indx		the index into the resource string
+ *	part		the parsed off part of the resource string
+ *
+ * RETURN VALUES:
+ *	char		the token (* or . or ?) preceding the resource part
+ *	indx		the index into the resource string
+ *	part		the parsed off part of the resource string
+ *
+ * ERRORS: none
+ */
+/* ARGSUSED */
+static char
+_get_part (
+	char *remainder,
+	char **indx,
+	char **part)
+{
+	char	buffer[MAX_BUFFER];
+	char	*buf_ptr;
+	char	token = **indx;
+	int	i = 0;
+
+	/*
+	 * copy the remainder part into the buffer
+	 */
+	buf_ptr = buffer;
+	(*indx)++;			/* get rid of the token		*/
+	while (**indx && (**indx != '.') && (**indx != '*')) {
+		*buf_ptr++ = *(*indx)++;
+		if (++i >= MAX_BUFFER - 1)
+			break;
+	}
+	*buf_ptr = '\0';
+
+	*part = XtNewString (buffer);	/* return a new string to part	*/
+
+	if (strcmp (*indx, "") == 0)
+		*indx = NULL;
+
+	return (token);			/* return the token		*/
+}
+
+/*
+ * NAME: _match_resource_to_widget
+ *
+ * FUNCTION:
+ *	This function matches the resource part to the widget name or class
+ *
+ * PARAMETERS:
+ *	w		the widget to match
+ *	part		the parsed off part of the resource string
+ *
+ * RETURN VALUES:
+ *	Boolean		true if a match occurs
+ *
+ * ERRORS: none
+ */
+static Boolean
+_match_resource_to_widget (
+	Widget w,
+	char *part)
+{
+	/*
+	 * Match any widget at this level if the ? is used
+	 */
+	if (strcmp (part, "?") == 0)
+		return (True);
+
+	/*
+	 * if the object is really a widget then its name can be matched
+	 * otherwise only use its class.  Note that if you try to reference
+	 * a widget name when the object is not a widget, you may get a
+	 * core dump from an invalid pointer reference.
+	 */
+	if (XtIsWidget (w)) {
+		if ((strcmp (w->core.name, part) == 0) ||
+		    (strcmp (w->core.widget_class->core_class.class_name,
+							part) == 0))
+			return (True);
+		else
+			return (False);
+	} else {
+		if ((strcmp (w->core.widget_class->core_class.class_name,
+							part) == 0))
+			return (True);
+		else
+			return (False);
+	}
+}
+
+/*
+ * NAME: _set_and_search
+ *
+ * FUNCTION:
+ * 	The algorithm to search the widget tree and apply a resource string
+ *
+ * PARAMETERS:
+ *	w		the widget to match
+ *	indx		the index into the resource string
+ *	remainder	the part of the resource string left over
+ *	resource	the resource string to be matched
+ *	value		the value to be set
+ *	last_token	the last * or . before the final resoruce part
+ *	last_part	the last resource part (e.g. *background)
+ *
+ * RETURN VALUES: none
+ *
+ * ERRORS: none
+ *
+ * ALGORITHM:
+ * loop (look at all children)
+ * 	if (resource segment and current widget match)
+ *		if '.'
+ *			if at end of resource string
+ *				set values (	.=over all children
+ *						*=this widget only)
+ *			else
+ *				descend the widget tree
+ *				and parse off resource segment
+ *			exit the loop
+ *		if '*'
+ *			if at end of resource string
+ *				set values (	.=over all children
+ *						*=this widget only)
+ *			descend and parse
+ *	else
+ *		if '.'
+ *			continue looping
+ *		if '*'
+ *			descend but don't parse
+ *			continue looping
+ * end loop
+ *
+ * NOTE:  the _set_resource_values routine will not allow a value to be
+ *	set on a resource against the rules of the resource database manager
+ */
+static void
+_set_and_search (
+	Widget w,
+	char *indx,
+	char *remainder,
+	char *resource,
+	char *value,
+	char last_token,
+	char *last_part)
+{
+	char	*part;
+	char	*local_index = indx;
+	char	token;
+
+	/*
+	 * parse off one part, return token and the new index
+	 */
+	token = _get_part (remainder, &local_index, &part);
+
+	if (_match_resource_to_widget (w, part)) {
+		if (token == '.') {
+			if (local_index == NULL) {
+				if (last_token == '.') {
+					_set_resource_values (w, resource,
+						value, last_part);
+				} else if (last_token == '*') {
+					_set_resource_values (w, resource,
+						value, last_part);
+					_apply_values_to_children (w,
+						remainder, resource, value,
+						last_token, last_part);
+				}
+			} else
+				_search_child (w, local_index, remainder,
+					resource, value, last_token, last_part);
+			return;
+		}
+		if (token == '*') {
+			if (local_index == NULL) {
+				if (last_token == '.') {
+					_set_resource_values (w, resource,
+						value, last_part);
+				} else if (last_token == '*') {
+					_set_resource_values (w, resource,
+						value, last_part);
+					_apply_values_to_children ( w,
+						remainder, resource, value,
+						last_token, last_part);
+				}
+			} else
+				_search_child (w, local_index, remainder,
+					resource, value, last_token, last_part);
+		}
+	} else {/* if the widget name and class don't match the part */
+		/* if (token == '.') just continue looping */
+
+		if (token == '*') {
+			_search_child (w, indx, remainder, resource, value,
+				last_token, last_part);
+		}
+	}
+
+	XtFree (part);
+}
+
+/*
+ * NAME: _get_last_part
+ *
+ * FUNCTION:
+ * 	This routine will parse off the last segment of a resource string
+ * 	and its token and return them.  the remainder of resource is also
+ * 	returned.  strcoll is used to guarantee no problems with
+ *	international strings.
+ *
+ * PARAMETERS:
+ *	remainder	the part of the resource string left over
+ *	part		the parsed off part of the resource string
+ *
+ * RETURN VALUES:
+ *	char		the token (* or . or ?) preceding the resource part
+ *	remainder	the part of the resource string left over
+ *	part		the parsed off part of the resource string
+ *
+ * ERRORS: none
+ */
+static char
+_get_last_part (
+	char *remainder,
+	char **part)
+{
+	char	*loose, *tight;
+
+	loose = strrchr (remainder, '*');
+	tight = strrchr (remainder, '.');
+
+	if ((loose == NULL) && (tight == NULL)) {
+		*part = XtNewString (remainder);
+		return ('.');
+	}
+	if ((loose == NULL) || (tight && (strcoll (loose, tight) < 0))) {
+		*tight++ = '\0';	/* shorten the remainder string */
+		*part = XtNewString (tight);
+		return ('.');
+	}
+	if ((tight == NULL) || (loose && (strcoll (tight, loose) < 0))) {
+		*loose++ = '\0';
+		*part = XtNewString (loose);
+		return ('*');
+	}
+	*part = NULL;
+
+	return ('0');	/* error - return 0 */
+}
+
+/*
+ * NAME: _search_widget_tree
+ *
+ * FUNCTION:
+ *	This function tries to match a resource string to the widgets
+ *	it applies to.  The functions it invokes to do this then set
+ *	the value for that resource to each widget.
+ *
+ *	The resource string has to be parsed into the following format:
+ *		resource = App*Form*button1.background
+ *		remainder = *Form*button1
+ *		last_part = background		last_token = .
+ *	As the widget tree is recursively descended, these variables are
+ *	passed.  The remainder is parsed at each level in the widget
+ *	tree as the _set_and_search function attempts to match
+ *	the resource part (eg. part = Form  token = *) to a widget.  When
+ *	the entire resource string has been matched, the _set_resource_values
+ *	functions is called to apply the value to the widget or widgets.
+ *
+ * PARAMETERS:
+ *	w		a widget from whose toplevel shell ancestor
+ *			the search will start
+ *	resource	the resource string to match
+ *	value		the value to apply
+ *
+ * RETURN VALUES: none
+ *
+ * ERRORS: none
+ */
+static void
+_search_widget_tree (
+	Widget w,
+	char *resource,
+	char *value)
+{
+	Widget	parent = w;
+	char	*last_part;
+	char	*remainder = NULL;
+	char	last_token;
+	char	*indx, *copy;
+	char	*loose, *tight;
+	int	loose_len, tight_len;
+
+	/*
+	 * Find the root of the tree given any widget
+	 */
+	while (XtParent(parent) != NULL) {
+		parent = XtParent(parent);
+	}
+#ifdef DEBUG
+	if (XtIsWidget (w) && XtIsWidget (parent))
+		fprintf (stderr, "widget = %s parent = %s\n",
+			w->core.name, parent->core.name);
+	else
+		fprintf (stderr, "widget = NULL parent = NULL\n");
+#endif
+
+	/*
+	 * parse off the Class name that was prepended to this string in
+	 * a customizing tool
+	 */
+	loose = strchr (resource, '*');
+	tight = strchr (resource, '.');
+	if ((loose == NULL) && (tight == NULL))
+		return;
+
+	loose_len = (loose) ? strlen (loose) : 0;
+	tight_len = (tight) ? strlen (tight) : 0;
+
+	if ((loose == NULL) || (tight_len > loose_len))
+		remainder = XtNewString (tight);
+	else if ((tight == NULL) || (loose_len > tight_len))
+		remainder = XtNewString (loose);
+
+	/*
+	 * Parse last segment off of resource string, (eg. background, font,
+	 * etc.)
+	 */
+	last_token = _get_last_part (remainder, &last_part);
+	/*
+	 * this case covers resources of only one level (eg. *background)
+	 */
+	if (remainder[0] == 0) {
+		_set_resource_values (w, resource, value, last_part);
+		if (last_token == '*')
+			_apply_values_to_children (parent, remainder, resource,
+				value, last_token, last_part);
+	/*
+	 * all other resource strings are recursively applied to the widget tree.
+	 * Prepend a '.' to the remainder string if there is no leading token.
+	 */
+	} else {
+		if (remainder[0] != '*' && remainder[0] != '.') {
+			XtAsprintf (&copy, ".%s", remainder);
+			XtFree (remainder);
+			remainder = copy;
+		}
+		indx = remainder;
+		_set_and_search (parent, indx, remainder, resource, value,
+			last_token, last_part);
+	}
+
+	XtFree (remainder);
+	XtFree (last_part);
+}
+
+/*
+ * NAME: _locate_children
+ *
+ * FUNCTION:
+ *	returns a list of all of a widget's children
+ *
+ * PARAMETERS:
+ *	w		the parent to search for its children
+ *	children	the list of children that is created
+ *	normal		flag for normal children
+ *	popup		flag for popup children
+ *
+ * RETURN VALUES:
+ *	int		the number of children
+ *	children	the list of children found
+ *
+ * ERRORS: none
+ */
+static int
+_locate_children (
+	Widget parent,
+	Widget **children)
+{
+	CompositeWidget comp = (CompositeWidget) parent;
+	Cardinal	i;
+	int	num_children = 0;
+	int	current = 0;
+
+	/*
+	 * count the number of children
+	 */
+	if (XtIsWidget (parent))
+		num_children += parent->core.num_popups;
+	if (XtIsComposite (parent))
+		num_children += comp->composite.num_children;
+	if (num_children == 0) {
+		*children = NULL;
+		return (0);
+	}
+
+	*children = (Widget *)
+		XtMalloc ((Cardinal) sizeof(Widget) * num_children);
+
+	if (XtIsComposite (parent)) {
+		for (i=0; i<comp->composite.num_children; i++) {
+			(*children)[current] = comp->composite.children[i];
+			current++;
+		}
+	}
+
+	if (XtIsWidget (parent)) {
+		for (i=0; i<parent->core.num_popups; i++) {
+			(*children)[current] = comp->core.popup_list[i];
+			current++;
+		}
+	}
+
+	return (num_children);
+}
+
+#ifdef DEBUG
+/*
+ * NAME: dump_widget_tree
+ *
+ * FUNCTION:
+ *	recursively printout entire widget tree
+ *
+ * PARAMETERS:
+ *	w		the widget to match
+ *	indent		the amount to indent each line
+ *
+ * RETURN VALUES: void
+ *
+ * ERRORS: none
+ */
+static void
+dump_widget_tree (
+	Widget w,
+	int	indent)
+{
+	int 	i,j;
+	int	num_children;
+	Widget	*children;
+
+	/*
+	 * Recursively search through the children
+	 */
+	num_children = _locate_children (w, &children);
+	indent += 2;
+	for (i=0; i<num_children; i++) {
+		if (children[i] != NULL) {
+			for (j=0; j<indent; j++)
+				fprintf (stderr, " ");
+			if (XtIsWidget (children[i])) {
+				fprintf (stderr, "(%s)\t",children[i]->core.name);
+				fprintf (stderr, "(%s)\n",
+			children[i]->core.widget_class->core_class.class_name);
+			} else {
+				fprintf (stderr, "(NULL)\t");
+				fprintf (stderr, "(%s)\n",
+			children[i]->core.widget_class->core_class.class_name);
+			}
+		}
+		dump_widget_tree (children[i], indent);
+	}
+
+	XtFree ((char *)children);
+}
+#endif
+
+/*
+ * NAME: _XtResourceConfiguationEH
+ *
+ * FUNCTION:
+ *	This function is the event handler for the on-the-fly communication
+ *	with a resource customization tool.  This event handler must be
+ *      registered for the toplevel shell of each app.  This is best done
+ *      in the _XtCreatePopupShell and _XtAppCreateShell functions in Xt's
+ *	Create.c source file.
+ *
+ * 	The property used to communicate with a customizing tool is
+ *	placed on the toplevel shell window of the application.  The
+ *	customizing tool places a property on this window which causes
+ *	this event handler to be invoked via the PropertyNotify event.
+ *	This event handler reads the property and then deletes it from
+ *	the server.  The contents of the property are a resource string
+ *	and value.  The event handler then calls functions to walk the
+ *	applications widget tree, determining which widgets are affected
+ *	by the resource string, and then applying the value with XtSetValues.
+ *
+ * PARAMETERS:
+ *	w		the widget that invoked this event handler
+ *	client_data	not used
+ *	event		the event structure
+ *
+ * RETURN VALUES: none
+ *
+ * ERRORS: none
+ */
+/* ARGSUSED */
+void
+_XtResourceConfigurationEH (
+	Widget w,
+	XtPointer client_data,
+	XEvent *event)
+{
+	Atom		actual_type;
+	int		actual_format;
+	unsigned long	nitems;
+	unsigned long	leftover;
+	unsigned char	*data = NULL;
+	unsigned long	resource_len;
+	char		*data_ptr;
+	char		*resource;
+	char		*value;
+#ifdef DEBUG
+	int		indent = 0;
+#endif
+	XtPerDisplay	pd;
+
+#ifdef DEBUG
+	fprintf (stderr, "in _XtResourceConfiguationEH atom = %d\n",event->xproperty.atom);
+	fprintf (stderr, "    window = %x\n", XtWindow (w));
+	if (XtIsWidget (w))
+		fprintf (stderr, "    widget = %x   name = %s\n", w, w->core.name);
+#endif
+
+	pd = _XtGetPerDisplay (XtDisplay (w));
+
+	/*
+	 * The window on which a customizing tool places the property
+	 * is determined at this point.  It should be the applications
+	 * toplevel shell window.
+	 *
+	 * A customizing tool sends a "ping" to the application on
+	 * the RCM_INIT property.  The application answers the ping
+	 * by deleting the property.
+	 */
+	if (event->xproperty.atom == pd->rcm_init) {
+		XDeleteProperty (XtDisplay(w), XtWindow (w), pd->rcm_init);
+
+#ifdef DEBUG
+		if (XtIsWidget (w))
+			fprintf (stderr, "%s\n", w->core.name);
+		else
+			fprintf (stderr, "NULL name\n");
+		dump_widget_tree(w, indent);
+
+		fprintf (stderr, "answer ping\n");
+#endif
+	}
+
+	/*
+	 * This event handler ignores any property notify events that
+	 * are not RCM_INIT or RCM_DATA
+	 */
+	if (event->xproperty.atom != pd->rcm_data)
+		return;
+
+	/*
+	 * Retrieve the data from the property
+	 */
+#ifdef DEBUG
+	fprintf (stderr, "receiving RCM_DATA property\n");
+#endif
+	if (XGetWindowProperty (XtDisplay(w),
+		XtWindow (w),
+		pd->rcm_data, 0L, 8192L,
+		TRUE, XA_STRING,
+		&actual_type, &actual_format, &nitems, &leftover,
+		&data ) == Success && actual_type == XA_STRING
+			   && actual_format == 8) {
+	/*
+	 *      data format is:
+	 *
+	 *      resource_length, resource, value
+	 *
+	 *      convert the resource_length to a long, skip over it, put a
+	 *      zero byte at the end of the resource, and pick off the
+	 *      resource and value fields.
+	 */
+		if (data) {
+			resource_len = Strtoul ((void *)data, &data_ptr, 10);
+			data_ptr++;
+
+			data_ptr[resource_len] = '\0';
+
+			resource = XtNewString (data_ptr);
+			value = XtNewString (&data_ptr[resource_len + 1]);
+#ifdef DEBUG
+			fprintf (stderr, "resource_len=%d\n",resource_len);
+			fprintf (stderr, "resource = %s\t value = %s\n",
+					resource, value);
+#endif
+			/*
+			 * descend the application widget tree and
+			 * apply the value to the appropriate widgets
+			 */
+			_search_widget_tree (w, resource, value);
+
+			XtFree (resource);
+			XtFree (value);
+		}
+	}
+
+	if (data)
+		XFree ((char *)data);
+}
diff --git a/libXt/src/Resources.c b/libXt/src/Resources.c
index e7ec96c7d..dc0f563cc 100644
--- a/libXt/src/Resources.c
+++ b/libXt/src/Resources.c
@@ -1,1189 +1,1189 @@
-/***********************************************************

-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, 1994, 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"

-#include "VarargsI.h"

-#include "Shell.h"

-#include "ShellP.h"

-#include "StringDefs.h"

-#include <stdio.h>

-

-static XrmClass	QBoolean, QString, QCallProc, QImmediate;

-static XrmName QinitialResourcesPersistent, QInitialResourcesPersistent;

-static XrmClass QTranslations, QTranslationTable;

-static XrmName Qtranslations, QbaseTranslations;

-static XrmName Qscreen;

-static XrmClass QScreen;

-

-#ifdef CRAY

-void Cjump();

-char *Cjumpp = (char *) Cjump;

-void Cjump() {}

-#endif

-

-void _XtCopyFromParent(

-    Widget      widget,

-    int		offset,

-    XrmValue    *value)

-{

-    if (widget->core.parent == NULL) {

-	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"invalidParent","xtCopyFromParent",XtCXtToolkitError,

-                  "CopyFromParent must have non-NULL parent",

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

-        value->addr = NULL;

-        return;

-    }

-    value->addr = (XPointer)(((char *)widget->core.parent) + offset);

-} /* _XtCopyFromParent */

-

-

-void _XtCopyFromArg(

-    XtArgVal src,

-    char* dst,

-    register unsigned int size)

-{

-    if (size > sizeof(XtArgVal))

-	(void) memmove((char *) dst, (char *)  src, (int) size);

-    else {

-	union {

-	    long	longval;

-#ifdef LONG64

-	    int		intval;

-#endif

-	    short	shortval;

-	    char	charval;

-	    char*	charptr;

-	    XtPointer	ptr;

-	} u;

-	char *p = (char*)&u;

-	if	(size == sizeof(long))	    u.longval = (long)src;

-#ifdef LONG64

-	else if (size == sizeof(int))	    u.intval = (int)src;

-#endif

-	else if (size == sizeof(short))	    u.shortval = (short)src;

-	else if (size == sizeof(char))	    u.charval = (char)src;

-	else if (size == sizeof(XtPointer)) u.ptr = (XtPointer)src;

-	else if (size == sizeof(char*))	    u.charptr = (char*)src;

-	else				    p = (char*)&src;

-

-	(void) memmove(dst, p, (int) size);

-    }

-} /* _XtCopyFromArg */

-

-void _XtCopyToArg(

-    char* src,

-    XtArgVal *dst,

-    register unsigned int size)

-{

-    if (!*dst) {

-#ifdef GETVALUES_BUG

-	/* old GetValues semantics (storing directly into arglists) are bad,

-	 * but preserve for compatibility as long as arglist contains NULL.

-	 */

-	union {

-	    long	longval;

-#ifdef LONG64

-	    int		intval;

-#endif

-	    short	shortval;

-	    char	charval;

-	    char*	charptr;

-	    XtPointer	ptr;

-	} u;

-	if (size <= sizeof(XtArgVal)) {

-	    (void) memmove((char*)&u, (char*)src, (int)size );

-	    if	    (size == sizeof(long)) 	*dst = (XtArgVal)u.longval;

-#ifdef LONG64

-	    else if (size == sizeof(int))	*dst = (XtArgVal)u.intval;

-#endif

-	    else if (size == sizeof(short))	*dst = (XtArgVal)u.shortval;

-	    else if (size == sizeof(char))	*dst = (XtArgVal)u.charval;

-	    else if (size == sizeof(char*))	*dst = (XtArgVal)u.charptr;

-	    else if (size == sizeof(XtPointer))	*dst = (XtArgVal)u.ptr;

-	    else (void) memmove((char*)dst, (char*)src, (int)size );

-	}

-	else

-	    (void) memmove((char*)dst, (char*)src, (int)size );

-#else

-	XtErrorMsg("invalidGetValues", "xtGetValues", XtCXtToolkitError,

-	    "NULL ArgVal in XtGetValues", (String*) NULL, (Cardinal*) NULL);

-#endif

-    }

-    else {

-	/* proper GetValues semantics: argval is pointer to destination */

-	(void) memmove((char*)*dst, (char*)src, (int)size );

-    }

-} /* _XtCopyToArg */

-

-static void CopyToArg(

-    char* src,

-    XtArgVal *dst,

-    register unsigned int size)

-{

-    if (!*dst) {

-	/* old GetValues semantics (storing directly into arglists) are bad,

-	 * but preserve for compatibility as long as arglist contains NULL.

-	 */

-	union {

-	    long	longval;

-#ifdef LONG64

-	    int		intval;

-#endif

-	    short	shortval;

-	    char	charval;

-	    char*	charptr;

-	    XtPointer	ptr;

-	} u;

-	if (size <= sizeof(XtArgVal)) {

-	    (void) memmove((char*)&u, (char*)src, (int)size );

-	    if	    (size == sizeof(long)) 	*dst = (XtArgVal)u.longval;

-#ifdef LONG64

-	    else if (size == sizeof(int))	*dst = (XtArgVal)u.intval;

-#endif

-	    else if (size == sizeof(short))	*dst = (XtArgVal)u.shortval;

-	    else if (size == sizeof(char))	*dst = (XtArgVal)u.charval;

-	    else if (size == sizeof(char*))	*dst = (XtArgVal)u.charptr;

-	    else if (size == sizeof(XtPointer))	*dst = (XtArgVal)u.ptr;

-	    else (void) memmove((char*)dst, (char*)src, (int)size );

-	}

-	else

-	    (void) memmove((char*)dst, (char*)src, (int)size );

-    }

-    else {

-	/* proper GetValues semantics: argval is pointer to destination */

-	(void) memmove((char*)*dst, (char*)src, (int)size );

-    }

-} /* CopyToArg */

-

-

-static Cardinal CountTreeDepth(

-    Widget w)

-{

-    Cardinal count;

-

-    for (count = 1; w != NULL; w = (Widget) w->core.parent) 

-	count++;

-

-    return count;

-}

-

-static void GetNamesAndClasses(

-    register Widget	  w,

-    register XrmNameList  names,

-    register XrmClassList classes)

-{

-    register Cardinal length, j;

-    register XrmQuark t;

-    WidgetClass class;

-

-    /* Return null-terminated quark arrays, with length the number of

-       quarks (not including NULL) */

-

-    LOCK_PROCESS;

-    for (length = 0; w != NULL; w = (Widget) w->core.parent) {

-	names[length] = w->core.xrm_name;

-	class = XtClass(w);

-	/* KLUDGE KLUDGE KLUDGE KLUDGE */

-	if (w->core.parent == NULL && XtIsApplicationShell(w)) {

-	    classes[length] =

-		((ApplicationShellWidget) w)->application.xrm_class;

-	} else classes[length] = class->core_class.xrm_class;

-	length++;

-     }

-    UNLOCK_PROCESS;

-    /* They're in backwards order, flop them around */

-    for (j = 0; j < length/2; j++) {

-	t = names[j];

-	names[j] = names[length-j-1];

-	names[length-j-1] = t;

-        t = classes[j];

-	classes[j] = classes[length-j-1];

-	classes[length-j-1] = t;

-    }

-    names[length] = NULLQUARK;

-    classes[length] = NULLQUARK;

-} /* GetNamesAndClasses */

-

-

-/* Spiffy fast compiled form of resource list.				*/

-/* XtResourceLists are compiled in-place into XrmResourceLists		*/

-/* All atoms are replaced by quarks, and offsets are -offset-1 to	*/

-/* indicate that this list has been compiled already			*/

-

-void _XtCompileResourceList(

-    register XtResourceList resources,

-    	     Cardinal       num_resources)

-{

-    register Cardinal count;

-

-#define xrmres  ((XrmResourceList) resources)

-#define PSToQ   XrmPermStringToQuark

-

-    for (count = 0; count < num_resources; resources++, count++) {

-    	xrmres->xrm_name	 = PSToQ(resources->resource_name);

-    	xrmres->xrm_class	 = PSToQ(resources->resource_class);

-    	xrmres->xrm_type	 = PSToQ(resources->resource_type);

-        xrmres->xrm_offset	 = (Cardinal)

-		(-(int)resources->resource_offset - 1);

-    	xrmres->xrm_default_type = PSToQ(resources->default_type);

-    }

-#undef PSToQ

-#undef xrmres

-} /* _XtCompileResourceList */

-

-/* Like _XtCompileResourceList, but strings are not permanent */

-static void  XrmCompileResourceListEphem(

-    register XtResourceList resources,

-    	     Cardinal       num_resources)

-{

-    register Cardinal count;

-

-#define xrmres  ((XrmResourceList) resources)

-

-    for (count = 0; count < num_resources; resources++, count++) {

-    	xrmres->xrm_name	 = StringToName(resources->resource_name);

-    	xrmres->xrm_class	 = StringToClass(resources->resource_class);

-    	xrmres->xrm_type	 = StringToQuark(resources->resource_type);

-        xrmres->xrm_offset	 = (Cardinal)

-		(-(int)resources->resource_offset - 1);

-    	xrmres->xrm_default_type = StringToQuark(resources->default_type);

-    }

-#undef xrmres

-} /* XrmCompileResourceListEphem */

-

-static void BadSize(

-    Cardinal size,

-    XrmQuark name)

-{

-    String params[2];

-    Cardinal num_params = 2;

-

-    params[0] = (String)(long) size;

-    params[1] = XrmQuarkToString(name);

-    XtWarningMsg("invalidSizeOverride", "xtDependencies", XtCXtToolkitError,

-	"Representation size %d must match superclass's to override %s",

-	params, &num_params);

-} /* BadType */

-

-/*

- * Create a new resource list, with the class resources following the

- * superclass's resources.  If a resource in the class list overrides

- * a superclass resource, then just replace the superclass entry in place.

- *

- * At the same time, add a level of indirection to the XtResourceList to

- * create and XrmResourceList.

- */

-void _XtDependencies(

-    XtResourceList  *class_resp,	/* VAR */

-    Cardinal	    *class_num_resp,    /* VAR */

-    XrmResourceList *super_res,

-    Cardinal	    super_num_res,

-    Cardinal	    super_widget_size)

-{

-    register XrmResourceList *new_res;

-	     Cardinal	     new_num_res;

-	     XrmResourceList class_res = (XrmResourceList) *class_resp;

-	     Cardinal        class_num_res = *class_num_resp;

-    register Cardinal	     i, j;

-	     Cardinal        new_next;

-

-    if (class_num_res == 0) {

-	/* Just point to superclass resource list */

-	*class_resp = (XtResourceList) super_res;

-	*class_num_resp = super_num_res;

-	return;

-    }

-

-    /* Allocate and initialize new_res with superclass resource pointers */

-    new_num_res = super_num_res + class_num_res;

-    new_res = (XrmResourceList *) __XtMalloc(new_num_res*sizeof(XrmResourceList));

-    if (super_num_res > 0)

-	XtMemmove(new_res, super_res, super_num_res * sizeof(XrmResourceList));

-    

-    /* Put pointers to class resource entries into new_res */

-    new_next = super_num_res;

-    for (i = 0; i < class_num_res; i++) {

-	if ((Cardinal)(-class_res[i].xrm_offset-1) < super_widget_size) {

-	    /* Probably an override of superclass resources--look for overlap */

-	    for (j = 0; j < super_num_res; j++) {

-		if (class_res[i].xrm_offset == new_res[j]->xrm_offset) {

-		    /* Spec is silent on what fields subclass can override.

-		     * The only two of real concern are type & size.

-		     * Although allowing type to be over-ridden introduces

-		     * the possibility of errors, it's at present the only

-		     * reasonable way to allow a subclass to force a private

-		     * converter to be invoked for a subset of fields.

-		     */

-		    /* We do insist that size be identical to superclass */

-		    if (class_res[i].xrm_size != new_res[j]->xrm_size) {

-			BadSize(class_res[i].xrm_size,

-				(XrmQuark) class_res[i].xrm_name);

-			class_res[i].xrm_size = new_res[j]->xrm_size;

-		    }

-		    new_res[j] = &(class_res[i]);

-		    new_num_res--;

-		    goto NextResource;

-		}

-	    } /* for j */

-	}

-	/* Not an overlap, add an entry to new_res */

-	new_res[new_next++] = &(class_res[i]);

-NextResource:;

-    } /* for i */

-

-    /* Okay, stuff new resources back into class record */

-    *class_resp = (XtResourceList) new_res;

-    *class_num_resp = new_num_res;

-} /* _XtDependencies */

-

-

-void _XtResourceDependencies(

-    WidgetClass wc)

-{

-    WidgetClass sc;

-

-    sc = wc->core_class.superclass;

-    if (sc == NULL) {

-	_XtDependencies(&(wc->core_class.resources),

-			&(wc->core_class.num_resources),

-			(XrmResourceList *) NULL, (unsigned)0, (unsigned)0);

-    } else {

-	_XtDependencies(&(wc->core_class.resources),

-			&(wc->core_class.num_resources),

-			(XrmResourceList *) sc->core_class.resources,

-			sc->core_class.num_resources,

-			sc->core_class.widget_size);

-    }

-} /* _XtResourceDependencies */

-

-void _XtConstraintResDependencies(

-    ConstraintWidgetClass wc)

-{

-    ConstraintWidgetClass sc;

-

-    if (wc == (ConstraintWidgetClass) constraintWidgetClass) {

-	_XtDependencies(&(wc->constraint_class.resources),

-			&(wc->constraint_class.num_resources),

-			(XrmResourceList *)NULL, (unsigned)0, (unsigned)0);

-    } else {

-	sc = (ConstraintWidgetClass) wc->core_class.superclass;

-	_XtDependencies(&(wc->constraint_class.resources),

-			&(wc->constraint_class.num_resources),

-			(XrmResourceList *) sc->constraint_class.resources,

-			sc->constraint_class.num_resources,

-			sc->constraint_class.constraint_size);

-    }

-} /* _XtConstraintResDependencies */

-

-

-

-    

-XrmResourceList* _XtCreateIndirectionTable (

-    XtResourceList  resources,

-    Cardinal	    num_resources)

-{

-    register Cardinal idx;

-    XrmResourceList* table;

-

-    table = (XrmResourceList*)__XtMalloc(num_resources * sizeof(XrmResourceList));

-    for (idx = 0; idx < num_resources; idx++)

-        table[idx] = (XrmResourceList)(&(resources[idx]));

-    return table;

-}

-

-static XtCacheRef *GetResources(

-    Widget	    widget,	    /* Widget resources are associated with */

-    char*	    base,	    /* Base address of memory to write to   */

-    XrmNameList     names,	    /* Full inheritance name of widget      */

-    XrmClassList    classes,	    /* Full inheritance class of widget     */

-    XrmResourceList*  table,	    /* The list of resources required.      */

-    unsigned	    num_resources,  /* number of items in resource list     */

-    XrmQuarkList    quark_args,     /* Arg names quarkified		    */

-    ArgList	    args,	    /* ArgList to override resources	    */

-    unsigned	    num_args,       /* number of items in arg list	    */

-    XtTypedArgList  typed_args,	    /* Typed arg list to override resources */

-    Cardinal*	    pNumTypedArgs,  /* number of items in typed arg list    */

-    Boolean	    tm_hack)	    /* do baseTranslations		    */

-{

-/*

- * assert: *pNumTypedArgs == 0 if num_args > 0

- * assert: num_args == 0 if *pNumTypedArgs > 0

- */

-#define SEARCHLISTLEN 100

-#define MAXRESOURCES  400

-

-    XrmValue	    value;

-    XrmQuark	    rawType;

-    XrmValue	    convValue;

-    XrmHashTable    stackSearchList[SEARCHLISTLEN];

-    XrmHashTable    *searchList = stackSearchList;

-    unsigned int    searchListSize = SEARCHLISTLEN;

-    Boolean	    found[MAXRESOURCES];

-    int		    typed[MAXRESOURCES];

-    XtCacheRef	    cache_ref[MAXRESOURCES];

-    XtCacheRef      *cache_ptr, *cache_base;

-    Boolean	    persistent_resources = True;

-    Boolean	    found_persistence = False;

-    int		    num_typed_args = *pNumTypedArgs;

-    XrmDatabase     db;

-    Boolean	    do_tm_hack = False;

-

-    if ((args == NULL) && (num_args != 0)) {

-    	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"invalidArgCount","getResources",XtCXtToolkitError,

-                 "argument count > 0 on NULL argument list",

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

-	num_args = 0;

-    }

-    if (num_resources == 0) {

-	return NULL;

-    } else if (num_resources >= MAXRESOURCES) {

-    	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"invalidResourceCount","getResources",XtCXtToolkitError,

-              "too many resources",

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

-	return NULL;

-    } else if (table == NULL) {

-    	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"invalidResourceCount","getResources",XtCXtToolkitError,

-              "resource count > 0 on NULL resource list",

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

-	return NULL;

-    }

-

-    /* Mark each resource as not found on arg list */

-    bzero((char *) found, (int) (num_resources * sizeof(Boolean)));

-    bzero((char *) typed, (int) (num_resources * sizeof(int)));

-

-    /* Copy the args into the resources, mark each as found */

-    {

-	register ArgList	    arg;

-	register XtTypedArgList	    typed_arg;

-	register XrmName	    argName;

-	register Cardinal	    j;

-	register int	    i;

-	register XrmResourceList rx;

-	register XrmResourceList *res;

-	for (arg = args, i = 0; (Cardinal)i < num_args; i++, arg++) {

-	    argName = quark_args[i];

-	    if (argName == QinitialResourcesPersistent) {

-		persistent_resources = (Boolean)arg->value;

-		found_persistence = True;

-		continue;

-	    }

-	    for (j = 0, res = table; j < num_resources; j++, res++) {

-		rx = *res;

-		if (argName == rx->xrm_name) {

-		    _XtCopyFromArg(

-			arg->value,

-			base - rx->xrm_offset - 1,

-			rx->xrm_size);

-		    found[j] = TRUE;

-		    break;

-		}

-	    }

-	}

-	for (typed_arg = typed_args, i = 0; i < num_typed_args;

-	     i++, typed_arg++) {

-	    register XrmRepresentation argType;

-	    argName = quark_args[i];

-	    argType = (typed_arg->type == NULL) ? NULLQUARK 

-		: XrmStringToRepresentation(typed_arg->type);

-	    if (argName == QinitialResourcesPersistent) {

-		persistent_resources = (Boolean)typed_arg->value;

-		found_persistence = True;   

-		break;

-	    }

-	    for (j = 0, res = table; j < num_resources; j++, res++) {

-		rx = *res;

-		if (argName == rx->xrm_name) {

-		    if (argType != NULLQUARK && argType != rx->xrm_type) {

-			typed[j] = i + 1;

-		    } else {

-			_XtCopyFromArg(

-				       typed_arg->value,

-				       base - rx->xrm_offset - 1,

-				       rx->xrm_size);

-		    }

-		    found[j] = TRUE;

-		    break;

-		}   

-	    }

-	}

-    }

-

-    /* Ask resource manager for a list of database levels that we can

-       do a single-level search on each resource */

-

-    db = XtScreenDatabase(XtScreenOfObject(widget));

-    while (!XrmQGetSearchList(db, names, classes,

-			      searchList, searchListSize)) {

-	if (searchList == stackSearchList)

-	    searchList = NULL;

-	searchList = (XrmHashTable*)XtRealloc((char*)searchList,

-					      sizeof(XrmHashTable) *

-					      (searchListSize *= 2));

-    }

-    

-    if (persistent_resources)

-	cache_base = NULL;

-    else

-	cache_base = cache_ref;

-    /* geez, this is an ugly mess */

-    if (XtIsShell(widget)) {

-	register XrmResourceList  *res;

-	register Cardinal	  j;

-	Screen *oldscreen = widget->core.screen;

-

-	/* look up screen resource first, since real rdb depends on it */

-	for (res = table, j = 0; j < num_resources; j++, res++) {

-	    if ((*res)->xrm_name != Qscreen)

-		continue;

-	    if (typed[j]) {

-		register XtTypedArg* arg = typed_args + typed[j] - 1;

-		XrmQuark from_type;

-		XrmValue from_val, to_val;

-

-		from_type = StringToQuark(arg->type);

-		from_val.size = arg->size;

-		if ((from_type == QString) || ((unsigned) arg->size > sizeof(XtArgVal)))

-		    from_val.addr = (XPointer)arg->value;

-		else

-		    from_val.addr = (XPointer)&arg->value;

-		to_val.size = sizeof(Screen*);

-		to_val.addr = (XPointer)&widget->core.screen;

-		found[j] = _XtConvert(widget, from_type, &from_val,

-				      QScreen, &to_val, cache_base);

-		if (cache_base && *cache_base)

-		    cache_base++;

-	    }

-	    if (!found[j]) {

-		if (XrmQGetSearchResource(searchList, Qscreen, QScreen,

-				      &rawType, &value)) {

-		    if (rawType != QScreen) {

-			convValue.size = sizeof(Screen*);

-			convValue.addr = (XPointer)&widget->core.screen;

-			(void)_XtConvert(widget, rawType, &value,

-					 QScreen, &convValue, cache_base);

-			if (cache_base && *cache_base)

-			    cache_base++;

-		    } else {

-			widget->core.screen = *((Screen **)value.addr);

-		    }

-		}

-	    }

-	    break;

-	}

-	/* now get the database to use for the rest of the resources */

-	if (widget->core.screen != oldscreen) {

-	    db = XtScreenDatabase(widget->core.screen);

-	    while (!XrmQGetSearchList(db, names, classes,

-				      searchList, searchListSize)) {

-		if (searchList == stackSearchList)

-		    searchList = NULL;

-		searchList = (XrmHashTable*)XtRealloc((char*)searchList,

-						      sizeof(XrmHashTable) *

-						      (searchListSize *= 2));

-	    }

-	}

-    }

-

-    /* go to the resource manager for those resources not found yet */

-    /* if it's not in the resource database use the default value   */

-

-    {

-	register XrmResourceList  rx;

-	register XrmResourceList  *res;

-	register Cardinal	  j;

-	register XrmRepresentation xrm_type;

-	register XrmRepresentation xrm_default_type;

-	char	char_val;

-	short	short_val;

-	int	int_val;

-	long	long_val;

-	char*	char_ptr;

-

-	if (!found_persistence) {

-	    if (XrmQGetSearchResource(searchList, QinitialResourcesPersistent,

-			QInitialResourcesPersistent, &rawType, &value)) {

-		if (rawType != QBoolean) {

-		    convValue.size = sizeof(Boolean);

-		    convValue.addr = (XPointer)&persistent_resources;

-		    (void)_XtConvert(widget, rawType, &value, QBoolean,

-				     &convValue, NULL);

-		}

-		else

-		    persistent_resources = *(Boolean*)value.addr;

-	    }

-	}

-	if (persistent_resources)

-	    cache_ptr = NULL;

-	else if (cache_base)

-	    cache_ptr = cache_base;

-	else

-	    cache_ptr = cache_ref;

-

-	for (res = table, j = 0; j < num_resources; j++, res++) {

-	    rx = *res;

-	    xrm_type = rx->xrm_type;

-	    if (typed[j]) {

-		register XtTypedArg* arg = typed_args + typed[j] - 1;

-

-		/*

-                 * This resource value has been specified as a typed arg and 

-		 * has to be converted. Typed arg conversions are done here 

-		 * to correctly interpose them with normal resource conversions.

-                 */

-		XrmQuark	    from_type;

-		XrmValue            from_val, to_val;

-		Boolean		    converted;

-                 

-		from_type = StringToQuark(arg->type);

-    		from_val.size = arg->size;

-		if ((from_type == QString) || ((unsigned) arg->size > sizeof(XtArgVal)))

-        	    from_val.addr = (XPointer)arg->value;

-	        else

-            	    from_val.addr = (XPointer)&arg->value;

-		to_val.size = rx->xrm_size;

-		to_val.addr = base - rx->xrm_offset - 1;

-		converted = _XtConvert(widget, from_type, &from_val,

-				       xrm_type, &to_val, cache_ptr);

-		if (converted) {

-

-		    /* Copy the converted value back into the typed argument.

-		     * normally the data should be <= sizeof(XtArgVal) and

-		     * is stored directly into the 'value' field .... BUT

-		     * if the resource size is greater than sizeof(XtArgVal)

-		     * then we dynamically alloc a block of store to hold the

-		     * data and zap a copy in there !!! .... freeing it later

-		     * the size field in the typed arg is negated to indicate

-		     * that the store pointed to by the value field is

-		     * dynamic .......

-		     * "freeing" happens in the case of _XtCreate after the

-		     * CallInitialize ..... other clients of GetResources

-		     * using typed args should be aware of the need to free

-		     * this store .....

-		     */

-

-		    if(rx->xrm_size > sizeof(XtArgVal)) {

-			arg->value = (XtArgVal) __XtMalloc(rx->xrm_size);

-			arg->size = -(arg->size);

-		    } else { /* will fit - copy directly into value field */

-			arg->value = (XtArgVal) NULL;

-		    }

-		    CopyToArg((char *)(base - rx->xrm_offset - 1),

-				 &arg->value, rx->xrm_size);

-

-		} else {

-		   /* Conversion failed. Get default value. */

-		   found[j] = False;

-		}

-

-		if (cache_ptr && *cache_ptr)

-		    cache_ptr++;

-	    }

-

-	    if (!found[j]) {

-		Boolean	already_copied = False;

-		Boolean have_value = False;

-

-		if (XrmQGetSearchResource(searchList,

-			rx->xrm_name, rx->xrm_class, &rawType, &value)) {

-		    if (rawType != xrm_type) {

-			convValue.size = rx->xrm_size;

-			convValue.addr = (XPointer)(base - rx->xrm_offset - 1);

-			already_copied = have_value =

-			    _XtConvert(widget, rawType, &value,

-				       xrm_type, &convValue, cache_ptr);

-			if (cache_ptr && *cache_ptr)

-			    cache_ptr++;

-		    } else have_value = True;

-		    if (have_value && rx->xrm_name == Qtranslations)

-			do_tm_hack = True;

-		}

-		LOCK_PROCESS;

-		if (!have_value

-		    && ((rx->xrm_default_type == QImmediate)

-			|| (rx->xrm_default_type == xrm_type)

-			|| (rx->xrm_default_addr != NULL))) {

-		    /* Convert default value to proper type */

-		    xrm_default_type = rx->xrm_default_type;

-		    if (xrm_default_type == QCallProc) {

-#ifdef CRAY

- 			if ( (int) Cjumpp != (int) Cjump)

- 			    (*(XtResourceDefaultProc)

-			      (((int)(rx->xrm_default_addr))<<2))(

- 				 widget,-(rx->xrm_offset+1), &value);

-			else

-#endif

-			(*(XtResourceDefaultProc)(rx->xrm_default_addr))(

-			      widget,-(rx->xrm_offset+1), &value);

-

-		    } else if (xrm_default_type == QImmediate) {

-			/* XtRImmediate == XtRString for type XtRString */

-			if (xrm_type == QString) {

-			    value.addr = rx->xrm_default_addr;

-			} else if (rx->xrm_size == sizeof(int)) {

-			    int_val = (int)(long)rx->xrm_default_addr;

-			    value.addr = (XPointer) &int_val;

-			} else if (rx->xrm_size == sizeof(short)) {

-			    short_val = (short)(long)rx->xrm_default_addr;

-			    value.addr = (XPointer) &short_val;

-			} else if (rx->xrm_size == sizeof(char)) {

-			    char_val = (char)(long)rx->xrm_default_addr;

-			    value.addr = (XPointer) &char_val;

-			} else if (rx->xrm_size == sizeof(long)) {

-			    long_val = (long)rx->xrm_default_addr;

-			    value.addr = (XPointer) &long_val;

-			} else if (rx->xrm_size == sizeof(char*)) {

-			    char_ptr = (char*)rx->xrm_default_addr;

-			    value.addr = (XPointer) &char_ptr;

-			} else {

-			    value.addr = (XPointer) &(rx->xrm_default_addr);

-			}

-		    } else if (xrm_default_type == xrm_type) {

-			value.addr = rx->xrm_default_addr;

-		    } else {

-			value.addr = rx->xrm_default_addr;

-			if (xrm_default_type == QString) {

-			    value.size = strlen((char *)value.addr) + 1;

-			} else {

-			    value.size = sizeof(XtPointer);

-			}

-			convValue.size = rx->xrm_size;

-			convValue.addr = (XPointer)(base - rx->xrm_offset - 1);

-			already_copied =

-			    _XtConvert(widget, xrm_default_type, &value,

-				       xrm_type, &convValue, cache_ptr);

-			if (!already_copied)

-			    value.addr = NULL;

-			if (cache_ptr && *cache_ptr)

-			    cache_ptr++;

-		    }

-		}

-		if (!already_copied) {

-		    if (xrm_type == QString) {

-			*((String*)(base - rx->xrm_offset - 1)) = value.addr;

-		    } else {

-			if (value.addr != NULL) {

-			    XtMemmove(base - rx->xrm_offset - 1,

-				      value.addr, rx->xrm_size);

-			} else {

-			    /* didn't get value, initialize to NULL... */

-			    XtBZero(base - rx->xrm_offset - 1, rx->xrm_size);

-			}

-		    }

-		}

-		UNLOCK_PROCESS;

-

-		if (typed[j]) {

-		    /*

-		     * This resource value was specified as a typed arg.

-		     * However, the default value is being used here since

-		     * type type conversion failed, so we compress the list.

-		     */

-		    register XtTypedArg* arg = typed_args + typed[j] - 1;

-		    register int i;

-

-		    for (i = num_typed_args - typed[j]; i > 0; i--, arg++) {

-			*arg = *(arg+1);

-		    }

-		    num_typed_args--;

-		}

-	    } 

-	}

-	if (tm_hack)

-	    widget->core.tm.current_state = NULL;

-	if (tm_hack &&

-	    (!widget->core.tm.translations ||

-	     (do_tm_hack &&

-	      widget->core.tm.translations->operation != XtTableReplace)) &&

-	    XrmQGetSearchResource(searchList, QbaseTranslations,

-				  QTranslations, &rawType, &value)) {

-	    if (rawType != QTranslationTable) {

-		convValue.size = sizeof(XtTranslations);

-		convValue.addr = (XPointer)&widget->core.tm.current_state;

-		(void)_XtConvert(widget, rawType, &value,

-				 QTranslationTable, &convValue, cache_ptr);

-		if (cache_ptr && *cache_ptr)

-		    cache_ptr++;

-	    } else {

-		/* value.addr can be NULL see: !already_copied */

-		if (value.addr)

-		    *((XtTranslations *)&widget->core.tm.current_state) =

-			*((XtTranslations *)value.addr);

-	    }

-	}

-    }

-    if ((Cardinal)num_typed_args != *pNumTypedArgs) *pNumTypedArgs = num_typed_args;

-    if (searchList != stackSearchList) XtFree((char*)searchList);

-    if (!cache_ptr)

-	cache_ptr = cache_base;

-    if (cache_ptr && cache_ptr != cache_ref) {

-	int cache_ref_size = cache_ptr - cache_ref;

-	XtCacheRef *refs = (XtCacheRef*)

-	    __XtMalloc((unsigned)sizeof(XtCacheRef)*(cache_ref_size + 1));

-	(void) memmove(refs, cache_ref, sizeof(XtCacheRef)*cache_ref_size );

-	refs[cache_ref_size] = NULL;

-	return refs;

-    }

-    return (XtCacheRef*)NULL;

-}

-

-

-

-static void CacheArgs(

-    ArgList	    args,

-    Cardinal	    num_args,

-    XtTypedArgList  typed_args,

-    Cardinal	    num_typed_args,

-    XrmQuarkList    quark_cache,

-    Cardinal	    num_quarks,

-    XrmQuarkList    *pQuarks)       /* RETURN */

-{

-    register XrmQuarkList   quarks;

-    register Cardinal       i;

-    register Cardinal       count;

-

-    count = (args != NULL) ? num_args : num_typed_args;

-

-    if (num_quarks < count) {

-	quarks = (XrmQuarkList) __XtMalloc(count * sizeof(XrmQuark));

-    } else {

-	quarks = quark_cache;

-    }

-    *pQuarks = quarks;

-

-    if (args != NULL) {

-	for (i = count; i; i--)

-	    *quarks++ = StringToQuark((args++)->name);

-    }

-    else {

-	for (i = count; i; i--)

-	    *quarks++ = StringToQuark((typed_args++)->name);

-    }

-}

-

-#define FreeCache(cache, pointer) \

-	  if (cache != pointer) XtFree((char *)pointer)

-

-

-XtCacheRef *_XtGetResources(

-    register 	Widget	  	w,

-    		ArgList	  	args,

-    		Cardinal  	num_args,

-		XtTypedArgList	typed_args,

-		Cardinal*	num_typed_args)

-{

-    XrmName	    *names, names_s[50];

-    XrmClass	    *classes, classes_s[50];

-    XrmQuark	    quark_cache[100];

-    XrmQuarkList    quark_args;

-    WidgetClass     wc;

-    ConstraintWidgetClass   cwc;

-    XtCacheRef	    *cache_refs, *cache_refs_core;

-    Cardinal	    count;

-

-    wc = XtClass(w);

-

-    count = CountTreeDepth(w);

-    names = (XrmName*) XtStackAlloc (count * sizeof(XrmName), names_s);

-    classes = (XrmClass*) XtStackAlloc (count * sizeof(XrmClass), classes_s);

-    if (names == NULL || classes == NULL) _XtAllocError(NULL);

-

-    /* Get names, classes for widget and ancestors */

-    GetNamesAndClasses(w, names, classes);

-   

-    /* Compile arg list into quarks */

-    CacheArgs(args, num_args, typed_args, *num_typed_args, quark_cache,

-	      XtNumber(quark_cache), &quark_args);

-

-    /* Get normal resources */

-    LOCK_PROCESS;

-    cache_refs = GetResources(w, (char*)w, names, classes,

-	(XrmResourceList *) wc->core_class.resources,

-	wc->core_class.num_resources, quark_args, args, num_args,

-	typed_args, num_typed_args, XtIsWidget(w));

-

-    if (w->core.constraints != NULL) {

-	cwc = (ConstraintWidgetClass) XtClass(w->core.parent);

-	cache_refs_core =

-	    GetResources(w, (char*)w->core.constraints, names, classes,

-	    (XrmResourceList *) cwc->constraint_class.resources,

-	    cwc->constraint_class.num_resources,

-	    quark_args, args, num_args, typed_args, num_typed_args, False);

-	if (cache_refs_core) {

-	    XtFree((char *)cache_refs_core);

-	}

-    }

-    FreeCache(quark_cache, quark_args);

-    UNLOCK_PROCESS;

-    XtStackFree((XtPointer)names, names_s);

-    XtStackFree((XtPointer)classes, classes_s);

-    return cache_refs;

-} /* _XtGetResources */

-

-

-void _XtGetSubresources (

-    Widget	  w,			/* Widget "parent" of subobject   */

-    XtPointer	  base,			/* Base address to write to       */

-    const char*   name,			/* name of subobject		    */

-    const char*   class,		/* class of subobject		    */

-    XtResourceList resources,		/* resource list for subobject    */

-    Cardinal	  num_resources,	                                    

-    ArgList	  args,			/* arg list to override resources */

-    Cardinal	  num_args,

-    XtTypedArgList typed_args,

-    Cardinal      num_typed_args)

-{

-    XrmName	  *names, names_s[50];

-    XrmClass	  *classes, classes_s[50];

-    XrmQuark	  quark_cache[100];

-    XrmQuarkList  quark_args;

-    XrmResourceList* table;

-    Cardinal	  count, ntyped_args = num_typed_args;

-    XtCacheRef    *Resrc = NULL;

-    WIDGET_TO_APPCON(w);

-

-    if (num_resources == 0) return;

-

-    LOCK_APP(app);

-    count = CountTreeDepth(w);

-    count++;	/* make sure there's enough room for name and class */

-    names = (XrmName*) XtStackAlloc(count * sizeof(XrmName), names_s);

-    classes = (XrmClass*) XtStackAlloc(count * sizeof(XrmClass), classes_s);

-    if (names == NULL || classes == NULL) _XtAllocError(NULL);

-

-    /* Get full name, class of subobject */

-    GetNamesAndClasses(w, names, classes);

-    count -= 2;

-    names[count] = StringToName(name);

-    classes[count] = StringToClass(class);

-    count++;

-    names[count] = NULLQUARK;

-    classes[count] = NULLQUARK;

-

-    /* Compile arg list into quarks */

-    CacheArgs(args, num_args, typed_args, num_typed_args,

-	      quark_cache, XtNumber(quark_cache), &quark_args);

-

-    /* Compile resource list if needed */

-    if (((int) resources->resource_offset) >= 0) {

-	XrmCompileResourceListEphem(resources, num_resources);

-    }

-    table = _XtCreateIndirectionTable(resources, num_resources); 

-    Resrc = GetResources(w, (char*)base, names, classes, table, num_resources,

-			quark_args, args, num_args,

-			typed_args, &ntyped_args, False);

-    FreeCache(quark_cache, quark_args);

-    XtFree((char *)table);

-    XtFree((char *)Resrc);

-    XtStackFree((XtPointer)names, names_s);

-    XtStackFree((XtPointer)classes, classes_s);

-    UNLOCK_APP(app);

-}

-

-void XtGetSubresources (

-    Widget	  w,			/* Widget "parent" of subobject   */

-    XtPointer	  base,			/* Base address to write to       */

-    _Xconst char* name,			/* name of subobject		    */

-    _Xconst char* class,		/* class of subobject		    */

-    XtResourceList resources,		/* resource list for subobject    */

-    Cardinal	  num_resources,	                                    

-    ArgList	  args,			/* arg list to override resources */

-    Cardinal	  num_args)

-{

-    _XtGetSubresources (w, base, name, class, resources, num_resources, args, num_args, NULL, 0);

-}

-

-

-void _XtGetApplicationResources (

-    Widget	    w,		  /* Application shell widget       */

-    XtPointer	    base,	  /* Base address to write to       */

-    XtResourceList  resources,	  /* resource list for subobject    */

-    Cardinal	    num_resources,

-    ArgList	    args,	  /* arg list to override resources */

-    Cardinal	    num_args,

-    XtTypedArgList  typed_args,

-    Cardinal	    num_typed_args)

-{

-    XrmName	    *names, names_s[50];

-    XrmClass	    *classes, classes_s[50];

-    XrmQuark	    quark_cache[100];

-    XrmQuarkList    quark_args;

-    XrmResourceList* table;

-    Cardinal        count, ntyped_args = num_typed_args;

-#ifdef XTHREADS

-    XtAppContext    app;

-#endif

-    XtCacheRef	    *Resrc = NULL;

-

-    if (num_resources == 0) return;

-

-#ifdef XTHREADS

-    if (w == NULL) app = _XtDefaultAppContext();

-    else app = XtWidgetToApplicationContext(w);

-#endif

-

-    LOCK_APP(app);

-    /* Get full name, class of application */

-    if (w == NULL) {

-	/* hack for R2 compatibility */

-	XtPerDisplay pd = _XtGetPerDisplay(_XtDefaultAppContext()->list[0]);

-	names = (XrmName*) XtStackAlloc (2 * sizeof(XrmName), names_s);

-	classes = (XrmClass*) XtStackAlloc (2 * sizeof(XrmClass), classes_s);

-	names[0] = pd->name;

-	names[1] = NULLQUARK;

-	classes[0] = pd->class;

-	classes[1] = NULLQUARK;

-    }

-    else {

-	count = CountTreeDepth(w);

-        names = (XrmName*) XtStackAlloc(count * sizeof(XrmName), names_s);

-        classes = (XrmClass*) XtStackAlloc(count * sizeof(XrmClass), classes_s);

-	if (names == NULL || classes == NULL) _XtAllocError(NULL);

-	GetNamesAndClasses(w, names, classes);

-    }

-

-    /* Compile arg list into quarks */

-    CacheArgs(args, num_args, typed_args, num_typed_args,  quark_cache, 

-	XtNumber(quark_cache), &quark_args);

-    /* Compile resource list if needed */

-    if (((int) resources->resource_offset) >= 0) {

-#ifdef	CRAY2

- 	if (base == 0) {	/* this client is non-portable, but... */

- 	    int count;

-	    XtResourceList  res = resources;

-	    for (count = 0; count < num_resources; res++, count++) {

- 		res->resource_offset *= sizeof(long);

- 	    }

- 	}

-#endif	/* CRAY2 */

-	XrmCompileResourceListEphem(resources, num_resources);

-    }

-    table = _XtCreateIndirectionTable(resources,num_resources);

-

-    Resrc = GetResources(w, (char*)base, names, classes, table, num_resources,

-			quark_args, args, num_args,

-			typed_args, &ntyped_args, False);

-    FreeCache(quark_cache, quark_args);

-    XtFree((char *)table);

-    XtFree((char *)Resrc);

-    if (w != NULL) {

-	XtStackFree((XtPointer)names, names_s);

-	XtStackFree((XtPointer)classes, classes_s);

-    }

-    UNLOCK_APP(app);

-}

-

-void XtGetApplicationResources (

-    Widget	    w,		  /* Application shell widget       */

-    XtPointer	    base,	  /* Base address to write to       */

-    XtResourceList  resources,	  /* resource list for subobject    */

-    Cardinal	    num_resources,

-    ArgList	    args,	  /* arg list to override resources */

-    Cardinal	    num_args)

-{

-    _XtGetApplicationResources(w, base, resources, num_resources, args, num_args, NULL, 0);

-}

-

-static Boolean initialized = FALSE;

-

-void _XtResourceListInitialize(void)

-{

-    LOCK_PROCESS;

-    if (initialized) {

-	XtWarningMsg("initializationError","xtInitialize",XtCXtToolkitError,

-                  "Initializing Resource Lists twice",

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

-	UNLOCK_PROCESS;

-    	return;

-    }

-    initialized = TRUE;

-    UNLOCK_PROCESS;

-

-    QBoolean = XrmPermStringToQuark(XtCBoolean);

-    QString = XrmPermStringToQuark(XtCString);

-    QCallProc = XrmPermStringToQuark(XtRCallProc);

-    QImmediate = XrmPermStringToQuark(XtRImmediate);

-    QinitialResourcesPersistent = XrmPermStringToQuark(XtNinitialResourcesPersistent);

-    QInitialResourcesPersistent = XrmPermStringToQuark(XtCInitialResourcesPersistent);

-    Qtranslations = XrmPermStringToQuark(XtNtranslations);

-    QbaseTranslations = XrmPermStringToQuark("baseTranslations");

-    QTranslations = XrmPermStringToQuark(XtCTranslations);

-    QTranslationTable = XrmPermStringToQuark(XtRTranslationTable);

-    Qscreen = XrmPermStringToQuark(XtNscreen);

-    QScreen = XrmPermStringToQuark(XtCScreen);

-}

+/***********************************************************
+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, 1994, 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"
+#include "VarargsI.h"
+#include "Shell.h"
+#include "ShellP.h"
+#include "StringDefs.h"
+#include <stdio.h>
+
+static XrmClass	QBoolean, QString, QCallProc, QImmediate;
+static XrmName QinitialResourcesPersistent, QInitialResourcesPersistent;
+static XrmClass QTranslations, QTranslationTable;
+static XrmName Qtranslations, QbaseTranslations;
+static XrmName Qscreen;
+static XrmClass QScreen;
+
+#ifdef CRAY
+void Cjump();
+char *Cjumpp = (char *) Cjump;
+void Cjump() {}
+#endif
+
+void _XtCopyFromParent(
+    Widget      widget,
+    int		offset,
+    XrmValue    *value)
+{
+    if (widget->core.parent == NULL) {
+	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"invalidParent","xtCopyFromParent",XtCXtToolkitError,
+                  "CopyFromParent must have non-NULL parent",
+		  (String *)NULL, (Cardinal *)NULL);
+        value->addr = NULL;
+        return;
+    }
+    value->addr = (XPointer)(((char *)widget->core.parent) + offset);
+} /* _XtCopyFromParent */
+
+
+void _XtCopyFromArg(
+    XtArgVal src,
+    char* dst,
+    register unsigned int size)
+{
+    if (size > sizeof(XtArgVal))
+	(void) memmove((char *) dst, (char *)  src, (int) size);
+    else {
+	union {
+	    long	longval;
+#ifdef LONG64
+	    int		intval;
+#endif
+	    short	shortval;
+	    char	charval;
+	    char*	charptr;
+	    XtPointer	ptr;
+	} u;
+	char *p = (char*)&u;
+	if	(size == sizeof(long))	    u.longval = (long)src;
+#ifdef LONG64
+	else if (size == sizeof(int))	    u.intval = (int)src;
+#endif
+	else if (size == sizeof(short))	    u.shortval = (short)src;
+	else if (size == sizeof(char))	    u.charval = (char)src;
+	else if (size == sizeof(XtPointer)) u.ptr = (XtPointer)src;
+	else if (size == sizeof(char*))	    u.charptr = (char*)src;
+	else				    p = (char*)&src;
+
+	(void) memmove(dst, p, (int) size);
+    }
+} /* _XtCopyFromArg */
+
+void _XtCopyToArg(
+    char* src,
+    XtArgVal *dst,
+    register unsigned int size)
+{
+    if (!*dst) {
+#ifdef GETVALUES_BUG
+	/* old GetValues semantics (storing directly into arglists) are bad,
+	 * but preserve for compatibility as long as arglist contains NULL.
+	 */
+	union {
+	    long	longval;
+#ifdef LONG64
+	    int		intval;
+#endif
+	    short	shortval;
+	    char	charval;
+	    char*	charptr;
+	    XtPointer	ptr;
+	} u;
+	if (size <= sizeof(XtArgVal)) {
+	    (void) memmove((char*)&u, (char*)src, (int)size );
+	    if	    (size == sizeof(long)) 	*dst = (XtArgVal)u.longval;
+#ifdef LONG64
+	    else if (size == sizeof(int))	*dst = (XtArgVal)u.intval;
+#endif
+	    else if (size == sizeof(short))	*dst = (XtArgVal)u.shortval;
+	    else if (size == sizeof(char))	*dst = (XtArgVal)u.charval;
+	    else if (size == sizeof(char*))	*dst = (XtArgVal)u.charptr;
+	    else if (size == sizeof(XtPointer))	*dst = (XtArgVal)u.ptr;
+	    else (void) memmove((char*)dst, (char*)src, (int)size );
+	}
+	else
+	    (void) memmove((char*)dst, (char*)src, (int)size );
+#else
+	XtErrorMsg("invalidGetValues", "xtGetValues", XtCXtToolkitError,
+	    "NULL ArgVal in XtGetValues", (String*) NULL, (Cardinal*) NULL);
+#endif
+    }
+    else {
+	/* proper GetValues semantics: argval is pointer to destination */
+	(void) memmove((char*)*dst, (char*)src, (int)size );
+    }
+} /* _XtCopyToArg */
+
+static void CopyToArg(
+    char* src,
+    XtArgVal *dst,
+    register unsigned int size)
+{
+    if (!*dst) {
+	/* old GetValues semantics (storing directly into arglists) are bad,
+	 * but preserve for compatibility as long as arglist contains NULL.
+	 */
+	union {
+	    long	longval;
+#ifdef LONG64
+	    int		intval;
+#endif
+	    short	shortval;
+	    char	charval;
+	    char*	charptr;
+	    XtPointer	ptr;
+	} u;
+	if (size <= sizeof(XtArgVal)) {
+	    (void) memmove((char*)&u, (char*)src, (int)size );
+	    if	    (size == sizeof(long)) 	*dst = (XtArgVal)u.longval;
+#ifdef LONG64
+	    else if (size == sizeof(int))	*dst = (XtArgVal)u.intval;
+#endif
+	    else if (size == sizeof(short))	*dst = (XtArgVal)u.shortval;
+	    else if (size == sizeof(char))	*dst = (XtArgVal)u.charval;
+	    else if (size == sizeof(char*))	*dst = (XtArgVal)u.charptr;
+	    else if (size == sizeof(XtPointer))	*dst = (XtArgVal)u.ptr;
+	    else (void) memmove((char*)dst, (char*)src, (int)size );
+	}
+	else
+	    (void) memmove((char*)dst, (char*)src, (int)size );
+    }
+    else {
+	/* proper GetValues semantics: argval is pointer to destination */
+	(void) memmove((char*)*dst, (char*)src, (int)size );
+    }
+} /* CopyToArg */
+
+
+static Cardinal CountTreeDepth(
+    Widget w)
+{
+    Cardinal count;
+
+    for (count = 1; w != NULL; w = (Widget) w->core.parent) 
+	count++;
+
+    return count;
+}
+
+static void GetNamesAndClasses(
+    register Widget	  w,
+    register XrmNameList  names,
+    register XrmClassList classes)
+{
+    register Cardinal length, j;
+    register XrmQuark t;
+    WidgetClass class;
+
+    /* Return null-terminated quark arrays, with length the number of
+       quarks (not including NULL) */
+
+    LOCK_PROCESS;
+    for (length = 0; w != NULL; w = (Widget) w->core.parent) {
+	names[length] = w->core.xrm_name;
+	class = XtClass(w);
+	/* KLUDGE KLUDGE KLUDGE KLUDGE */
+	if (w->core.parent == NULL && XtIsApplicationShell(w)) {
+	    classes[length] =
+		((ApplicationShellWidget) w)->application.xrm_class;
+	} else classes[length] = class->core_class.xrm_class;
+	length++;
+     }
+    UNLOCK_PROCESS;
+    /* They're in backwards order, flop them around */
+    for (j = 0; j < length/2; j++) {
+	t = names[j];
+	names[j] = names[length-j-1];
+	names[length-j-1] = t;
+        t = classes[j];
+	classes[j] = classes[length-j-1];
+	classes[length-j-1] = t;
+    }
+    names[length] = NULLQUARK;
+    classes[length] = NULLQUARK;
+} /* GetNamesAndClasses */
+
+
+/* Spiffy fast compiled form of resource list.				*/
+/* XtResourceLists are compiled in-place into XrmResourceLists		*/
+/* All atoms are replaced by quarks, and offsets are -offset-1 to	*/
+/* indicate that this list has been compiled already			*/
+
+void _XtCompileResourceList(
+    register XtResourceList resources,
+    	     Cardinal       num_resources)
+{
+    register Cardinal count;
+
+#define xrmres  ((XrmResourceList) resources)
+#define PSToQ   XrmPermStringToQuark
+
+    for (count = 0; count < num_resources; resources++, count++) {
+    	xrmres->xrm_name	 = PSToQ(resources->resource_name);
+    	xrmres->xrm_class	 = PSToQ(resources->resource_class);
+    	xrmres->xrm_type	 = PSToQ(resources->resource_type);
+        xrmres->xrm_offset	 = (Cardinal)
+		(-(int)resources->resource_offset - 1);
+    	xrmres->xrm_default_type = PSToQ(resources->default_type);
+    }
+#undef PSToQ
+#undef xrmres
+} /* _XtCompileResourceList */
+
+/* Like _XtCompileResourceList, but strings are not permanent */
+static void  XrmCompileResourceListEphem(
+    register XtResourceList resources,
+    	     Cardinal       num_resources)
+{
+    register Cardinal count;
+
+#define xrmres  ((XrmResourceList) resources)
+
+    for (count = 0; count < num_resources; resources++, count++) {
+    	xrmres->xrm_name	 = StringToName(resources->resource_name);
+    	xrmres->xrm_class	 = StringToClass(resources->resource_class);
+    	xrmres->xrm_type	 = StringToQuark(resources->resource_type);
+        xrmres->xrm_offset	 = (Cardinal)
+		(-(int)resources->resource_offset - 1);
+    	xrmres->xrm_default_type = StringToQuark(resources->default_type);
+    }
+#undef xrmres
+} /* XrmCompileResourceListEphem */
+
+static void BadSize(
+    Cardinal size,
+    XrmQuark name)
+{
+    String params[2];
+    Cardinal num_params = 2;
+
+    params[0] = (String)(long) size;
+    params[1] = XrmQuarkToString(name);
+    XtWarningMsg("invalidSizeOverride", "xtDependencies", XtCXtToolkitError,
+	"Representation size %d must match superclass's to override %s",
+	params, &num_params);
+} /* BadType */
+
+/*
+ * Create a new resource list, with the class resources following the
+ * superclass's resources.  If a resource in the class list overrides
+ * a superclass resource, then just replace the superclass entry in place.
+ *
+ * At the same time, add a level of indirection to the XtResourceList to
+ * create and XrmResourceList.
+ */
+void _XtDependencies(
+    XtResourceList  *class_resp,	/* VAR */
+    Cardinal	    *class_num_resp,    /* VAR */
+    XrmResourceList *super_res,
+    Cardinal	    super_num_res,
+    Cardinal	    super_widget_size)
+{
+    register XrmResourceList *new_res;
+	     Cardinal	     new_num_res;
+	     XrmResourceList class_res = (XrmResourceList) *class_resp;
+	     Cardinal        class_num_res = *class_num_resp;
+    register Cardinal	     i, j;
+	     Cardinal        new_next;
+
+    if (class_num_res == 0) {
+	/* Just point to superclass resource list */
+	*class_resp = (XtResourceList) super_res;
+	*class_num_resp = super_num_res;
+	return;
+    }
+
+    /* Allocate and initialize new_res with superclass resource pointers */
+    new_num_res = super_num_res + class_num_res;
+    new_res = (XrmResourceList *) __XtMalloc(new_num_res*sizeof(XrmResourceList));
+    if (super_num_res > 0)
+	XtMemmove(new_res, super_res, super_num_res * sizeof(XrmResourceList));
+    
+    /* Put pointers to class resource entries into new_res */
+    new_next = super_num_res;
+    for (i = 0; i < class_num_res; i++) {
+	if ((Cardinal)(-class_res[i].xrm_offset-1) < super_widget_size) {
+	    /* Probably an override of superclass resources--look for overlap */
+	    for (j = 0; j < super_num_res; j++) {
+		if (class_res[i].xrm_offset == new_res[j]->xrm_offset) {
+		    /* Spec is silent on what fields subclass can override.
+		     * The only two of real concern are type & size.
+		     * Although allowing type to be over-ridden introduces
+		     * the possibility of errors, it's at present the only
+		     * reasonable way to allow a subclass to force a private
+		     * converter to be invoked for a subset of fields.
+		     */
+		    /* We do insist that size be identical to superclass */
+		    if (class_res[i].xrm_size != new_res[j]->xrm_size) {
+			BadSize(class_res[i].xrm_size,
+				(XrmQuark) class_res[i].xrm_name);
+			class_res[i].xrm_size = new_res[j]->xrm_size;
+		    }
+		    new_res[j] = &(class_res[i]);
+		    new_num_res--;
+		    goto NextResource;
+		}
+	    } /* for j */
+	}
+	/* Not an overlap, add an entry to new_res */
+	new_res[new_next++] = &(class_res[i]);
+NextResource:;
+    } /* for i */
+
+    /* Okay, stuff new resources back into class record */
+    *class_resp = (XtResourceList) new_res;
+    *class_num_resp = new_num_res;
+} /* _XtDependencies */
+
+
+void _XtResourceDependencies(
+    WidgetClass wc)
+{
+    WidgetClass sc;
+
+    sc = wc->core_class.superclass;
+    if (sc == NULL) {
+	_XtDependencies(&(wc->core_class.resources),
+			&(wc->core_class.num_resources),
+			(XrmResourceList *) NULL, (unsigned)0, (unsigned)0);
+    } else {
+	_XtDependencies(&(wc->core_class.resources),
+			&(wc->core_class.num_resources),
+			(XrmResourceList *) sc->core_class.resources,
+			sc->core_class.num_resources,
+			sc->core_class.widget_size);
+    }
+} /* _XtResourceDependencies */
+
+void _XtConstraintResDependencies(
+    ConstraintWidgetClass wc)
+{
+    ConstraintWidgetClass sc;
+
+    if (wc == (ConstraintWidgetClass) constraintWidgetClass) {
+	_XtDependencies(&(wc->constraint_class.resources),
+			&(wc->constraint_class.num_resources),
+			(XrmResourceList *)NULL, (unsigned)0, (unsigned)0);
+    } else {
+	sc = (ConstraintWidgetClass) wc->core_class.superclass;
+	_XtDependencies(&(wc->constraint_class.resources),
+			&(wc->constraint_class.num_resources),
+			(XrmResourceList *) sc->constraint_class.resources,
+			sc->constraint_class.num_resources,
+			sc->constraint_class.constraint_size);
+    }
+} /* _XtConstraintResDependencies */
+
+
+
+    
+XrmResourceList* _XtCreateIndirectionTable (
+    XtResourceList  resources,
+    Cardinal	    num_resources)
+{
+    register Cardinal idx;
+    XrmResourceList* table;
+
+    table = (XrmResourceList*)__XtMalloc(num_resources * sizeof(XrmResourceList));
+    for (idx = 0; idx < num_resources; idx++)
+        table[idx] = (XrmResourceList)(&(resources[idx]));
+    return table;
+}
+
+static XtCacheRef *GetResources(
+    Widget	    widget,	    /* Widget resources are associated with */
+    char*	    base,	    /* Base address of memory to write to   */
+    XrmNameList     names,	    /* Full inheritance name of widget      */
+    XrmClassList    classes,	    /* Full inheritance class of widget     */
+    XrmResourceList*  table,	    /* The list of resources required.      */
+    unsigned	    num_resources,  /* number of items in resource list     */
+    XrmQuarkList    quark_args,     /* Arg names quarkified		    */
+    ArgList	    args,	    /* ArgList to override resources	    */
+    unsigned	    num_args,       /* number of items in arg list	    */
+    XtTypedArgList  typed_args,	    /* Typed arg list to override resources */
+    Cardinal*	    pNumTypedArgs,  /* number of items in typed arg list    */
+    Boolean	    tm_hack)	    /* do baseTranslations		    */
+{
+/*
+ * assert: *pNumTypedArgs == 0 if num_args > 0
+ * assert: num_args == 0 if *pNumTypedArgs > 0
+ */
+#define SEARCHLISTLEN 100
+#define MAXRESOURCES  400
+
+    XrmValue	    value;
+    XrmQuark	    rawType;
+    XrmValue	    convValue;
+    XrmHashTable    stackSearchList[SEARCHLISTLEN];
+    XrmHashTable    *searchList = stackSearchList;
+    unsigned int    searchListSize = SEARCHLISTLEN;
+    Boolean	    found[MAXRESOURCES];
+    int		    typed[MAXRESOURCES];
+    XtCacheRef	    cache_ref[MAXRESOURCES];
+    XtCacheRef      *cache_ptr, *cache_base;
+    Boolean	    persistent_resources = True;
+    Boolean	    found_persistence = False;
+    int		    num_typed_args = *pNumTypedArgs;
+    XrmDatabase     db;
+    Boolean	    do_tm_hack = False;
+
+    if ((args == NULL) && (num_args != 0)) {
+    	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"invalidArgCount","getResources",XtCXtToolkitError,
+                 "argument count > 0 on NULL argument list",
+                   (String *)NULL, (Cardinal *)NULL);
+	num_args = 0;
+    }
+    if (num_resources == 0) {
+	return NULL;
+    } else if (num_resources >= MAXRESOURCES) {
+    	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"invalidResourceCount","getResources",XtCXtToolkitError,
+              "too many resources",
+	      (String *)NULL, (Cardinal *)NULL);
+	return NULL;
+    } else if (table == NULL) {
+    	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"invalidResourceCount","getResources",XtCXtToolkitError,
+              "resource count > 0 on NULL resource list",
+	      (String *)NULL, (Cardinal *)NULL);
+	return NULL;
+    }
+
+    /* Mark each resource as not found on arg list */
+    bzero((char *) found, (int) (num_resources * sizeof(Boolean)));
+    bzero((char *) typed, (int) (num_resources * sizeof(int)));
+
+    /* Copy the args into the resources, mark each as found */
+    {
+	register ArgList	    arg;
+	register XtTypedArgList	    typed_arg;
+	register XrmName	    argName;
+	register Cardinal	    j;
+	register int	    i;
+	register XrmResourceList rx;
+	register XrmResourceList *res;
+	for (arg = args, i = 0; (Cardinal)i < num_args; i++, arg++) {
+	    argName = quark_args[i];
+	    if (argName == QinitialResourcesPersistent) {
+		persistent_resources = (Boolean)arg->value;
+		found_persistence = True;
+		continue;
+	    }
+	    for (j = 0, res = table; j < num_resources; j++, res++) {
+		rx = *res;
+		if (argName == rx->xrm_name) {
+		    _XtCopyFromArg(
+			arg->value,
+			base - rx->xrm_offset - 1,
+			rx->xrm_size);
+		    found[j] = TRUE;
+		    break;
+		}
+	    }
+	}
+	for (typed_arg = typed_args, i = 0; i < num_typed_args;
+	     i++, typed_arg++) {
+	    register XrmRepresentation argType;
+	    argName = quark_args[i];
+	    argType = (typed_arg->type == NULL) ? NULLQUARK 
+		: XrmStringToRepresentation(typed_arg->type);
+	    if (argName == QinitialResourcesPersistent) {
+		persistent_resources = (Boolean)typed_arg->value;
+		found_persistence = True;   
+		break;
+	    }
+	    for (j = 0, res = table; j < num_resources; j++, res++) {
+		rx = *res;
+		if (argName == rx->xrm_name) {
+		    if (argType != NULLQUARK && argType != rx->xrm_type) {
+			typed[j] = i + 1;
+		    } else {
+			_XtCopyFromArg(
+				       typed_arg->value,
+				       base - rx->xrm_offset - 1,
+				       rx->xrm_size);
+		    }
+		    found[j] = TRUE;
+		    break;
+		}   
+	    }
+	}
+    }
+
+    /* Ask resource manager for a list of database levels that we can
+       do a single-level search on each resource */
+
+    db = XtScreenDatabase(XtScreenOfObject(widget));
+    while (!XrmQGetSearchList(db, names, classes,
+			      searchList, searchListSize)) {
+	if (searchList == stackSearchList)
+	    searchList = NULL;
+	searchList = (XrmHashTable*)XtRealloc((char*)searchList,
+					      sizeof(XrmHashTable) *
+					      (searchListSize *= 2));
+    }
+    
+    if (persistent_resources)
+	cache_base = NULL;
+    else
+	cache_base = cache_ref;
+    /* geez, this is an ugly mess */
+    if (XtIsShell(widget)) {
+	register XrmResourceList  *res;
+	register Cardinal	  j;
+	Screen *oldscreen = widget->core.screen;
+
+	/* look up screen resource first, since real rdb depends on it */
+	for (res = table, j = 0; j < num_resources; j++, res++) {
+	    if ((*res)->xrm_name != Qscreen)
+		continue;
+	    if (typed[j]) {
+		register XtTypedArg* arg = typed_args + typed[j] - 1;
+		XrmQuark from_type;
+		XrmValue from_val, to_val;
+
+		from_type = StringToQuark(arg->type);
+		from_val.size = arg->size;
+		if ((from_type == QString) || ((unsigned) arg->size > sizeof(XtArgVal)))
+		    from_val.addr = (XPointer)arg->value;
+		else
+		    from_val.addr = (XPointer)&arg->value;
+		to_val.size = sizeof(Screen*);
+		to_val.addr = (XPointer)&widget->core.screen;
+		found[j] = _XtConvert(widget, from_type, &from_val,
+				      QScreen, &to_val, cache_base);
+		if (cache_base && *cache_base)
+		    cache_base++;
+	    }
+	    if (!found[j]) {
+		if (XrmQGetSearchResource(searchList, Qscreen, QScreen,
+				      &rawType, &value)) {
+		    if (rawType != QScreen) {
+			convValue.size = sizeof(Screen*);
+			convValue.addr = (XPointer)&widget->core.screen;
+			(void)_XtConvert(widget, rawType, &value,
+					 QScreen, &convValue, cache_base);
+			if (cache_base && *cache_base)
+			    cache_base++;
+		    } else {
+			widget->core.screen = *((Screen **)value.addr);
+		    }
+		}
+	    }
+	    break;
+	}
+	/* now get the database to use for the rest of the resources */
+	if (widget->core.screen != oldscreen) {
+	    db = XtScreenDatabase(widget->core.screen);
+	    while (!XrmQGetSearchList(db, names, classes,
+				      searchList, searchListSize)) {
+		if (searchList == stackSearchList)
+		    searchList = NULL;
+		searchList = (XrmHashTable*)XtRealloc((char*)searchList,
+						      sizeof(XrmHashTable) *
+						      (searchListSize *= 2));
+	    }
+	}
+    }
+
+    /* go to the resource manager for those resources not found yet */
+    /* if it's not in the resource database use the default value   */
+
+    {
+	register XrmResourceList  rx;
+	register XrmResourceList  *res;
+	register Cardinal	  j;
+	register XrmRepresentation xrm_type;
+	register XrmRepresentation xrm_default_type;
+	char	char_val;
+	short	short_val;
+	int	int_val;
+	long	long_val;
+	char*	char_ptr;
+
+	if (!found_persistence) {
+	    if (XrmQGetSearchResource(searchList, QinitialResourcesPersistent,
+			QInitialResourcesPersistent, &rawType, &value)) {
+		if (rawType != QBoolean) {
+		    convValue.size = sizeof(Boolean);
+		    convValue.addr = (XPointer)&persistent_resources;
+		    (void)_XtConvert(widget, rawType, &value, QBoolean,
+				     &convValue, NULL);
+		}
+		else
+		    persistent_resources = *(Boolean*)value.addr;
+	    }
+	}
+	if (persistent_resources)
+	    cache_ptr = NULL;
+	else if (cache_base)
+	    cache_ptr = cache_base;
+	else
+	    cache_ptr = cache_ref;
+
+	for (res = table, j = 0; j < num_resources; j++, res++) {
+	    rx = *res;
+	    xrm_type = rx->xrm_type;
+	    if (typed[j]) {
+		register XtTypedArg* arg = typed_args + typed[j] - 1;
+
+		/*
+                 * This resource value has been specified as a typed arg and 
+		 * has to be converted. Typed arg conversions are done here 
+		 * to correctly interpose them with normal resource conversions.
+                 */
+		XrmQuark	    from_type;
+		XrmValue            from_val, to_val;
+		Boolean		    converted;
+                 
+		from_type = StringToQuark(arg->type);
+    		from_val.size = arg->size;
+		if ((from_type == QString) || ((unsigned) arg->size > sizeof(XtArgVal)))
+        	    from_val.addr = (XPointer)arg->value;
+	        else
+            	    from_val.addr = (XPointer)&arg->value;
+		to_val.size = rx->xrm_size;
+		to_val.addr = base - rx->xrm_offset - 1;
+		converted = _XtConvert(widget, from_type, &from_val,
+				       xrm_type, &to_val, cache_ptr);
+		if (converted) {
+
+		    /* Copy the converted value back into the typed argument.
+		     * normally the data should be <= sizeof(XtArgVal) and
+		     * is stored directly into the 'value' field .... BUT
+		     * if the resource size is greater than sizeof(XtArgVal)
+		     * then we dynamically alloc a block of store to hold the
+		     * data and zap a copy in there !!! .... freeing it later
+		     * the size field in the typed arg is negated to indicate
+		     * that the store pointed to by the value field is
+		     * dynamic .......
+		     * "freeing" happens in the case of _XtCreate after the
+		     * CallInitialize ..... other clients of GetResources
+		     * using typed args should be aware of the need to free
+		     * this store .....
+		     */
+
+		    if(rx->xrm_size > sizeof(XtArgVal)) {
+			arg->value = (XtArgVal) __XtMalloc(rx->xrm_size);
+			arg->size = -(arg->size);
+		    } else { /* will fit - copy directly into value field */
+			arg->value = (XtArgVal) NULL;
+		    }
+		    CopyToArg((char *)(base - rx->xrm_offset - 1),
+				 &arg->value, rx->xrm_size);
+
+		} else {
+		   /* Conversion failed. Get default value. */
+		   found[j] = False;
+		}
+
+		if (cache_ptr && *cache_ptr)
+		    cache_ptr++;
+	    }
+
+	    if (!found[j]) {
+		Boolean	already_copied = False;
+		Boolean have_value = False;
+
+		if (XrmQGetSearchResource(searchList,
+			rx->xrm_name, rx->xrm_class, &rawType, &value)) {
+		    if (rawType != xrm_type) {
+			convValue.size = rx->xrm_size;
+			convValue.addr = (XPointer)(base - rx->xrm_offset - 1);
+			already_copied = have_value =
+			    _XtConvert(widget, rawType, &value,
+				       xrm_type, &convValue, cache_ptr);
+			if (cache_ptr && *cache_ptr)
+			    cache_ptr++;
+		    } else have_value = True;
+		    if (have_value && rx->xrm_name == Qtranslations)
+			do_tm_hack = True;
+		}
+		LOCK_PROCESS;
+		if (!have_value
+		    && ((rx->xrm_default_type == QImmediate)
+			|| (rx->xrm_default_type == xrm_type)
+			|| (rx->xrm_default_addr != NULL))) {
+		    /* Convert default value to proper type */
+		    xrm_default_type = rx->xrm_default_type;
+		    if (xrm_default_type == QCallProc) {
+#ifdef CRAY
+ 			if ( (int) Cjumpp != (int) Cjump)
+ 			    (*(XtResourceDefaultProc)
+			      (((int)(rx->xrm_default_addr))<<2))(
+ 				 widget,-(rx->xrm_offset+1), &value);
+			else
+#endif
+			(*(XtResourceDefaultProc)(rx->xrm_default_addr))(
+			      widget,-(rx->xrm_offset+1), &value);
+
+		    } else if (xrm_default_type == QImmediate) {
+			/* XtRImmediate == XtRString for type XtRString */
+			if (xrm_type == QString) {
+			    value.addr = rx->xrm_default_addr;
+			} else if (rx->xrm_size == sizeof(int)) {
+			    int_val = (int)(long)rx->xrm_default_addr;
+			    value.addr = (XPointer) &int_val;
+			} else if (rx->xrm_size == sizeof(short)) {
+			    short_val = (short)(long)rx->xrm_default_addr;
+			    value.addr = (XPointer) &short_val;
+			} else if (rx->xrm_size == sizeof(char)) {
+			    char_val = (char)(long)rx->xrm_default_addr;
+			    value.addr = (XPointer) &char_val;
+			} else if (rx->xrm_size == sizeof(long)) {
+			    long_val = (long)rx->xrm_default_addr;
+			    value.addr = (XPointer) &long_val;
+			} else if (rx->xrm_size == sizeof(char*)) {
+			    char_ptr = (char*)rx->xrm_default_addr;
+			    value.addr = (XPointer) &char_ptr;
+			} else {
+			    value.addr = (XPointer) &(rx->xrm_default_addr);
+			}
+		    } else if (xrm_default_type == xrm_type) {
+			value.addr = rx->xrm_default_addr;
+		    } else {
+			value.addr = rx->xrm_default_addr;
+			if (xrm_default_type == QString) {
+			    value.size = strlen((char *)value.addr) + 1;
+			} else {
+			    value.size = sizeof(XtPointer);
+			}
+			convValue.size = rx->xrm_size;
+			convValue.addr = (XPointer)(base - rx->xrm_offset - 1);
+			already_copied =
+			    _XtConvert(widget, xrm_default_type, &value,
+				       xrm_type, &convValue, cache_ptr);
+			if (!already_copied)
+			    value.addr = NULL;
+			if (cache_ptr && *cache_ptr)
+			    cache_ptr++;
+		    }
+		}
+		if (!already_copied) {
+		    if (xrm_type == QString) {
+			*((String*)(base - rx->xrm_offset - 1)) = value.addr;
+		    } else {
+			if (value.addr != NULL) {
+			    XtMemmove(base - rx->xrm_offset - 1,
+				      value.addr, rx->xrm_size);
+			} else {
+			    /* didn't get value, initialize to NULL... */
+			    XtBZero(base - rx->xrm_offset - 1, rx->xrm_size);
+			}
+		    }
+		}
+		UNLOCK_PROCESS;
+
+		if (typed[j]) {
+		    /*
+		     * This resource value was specified as a typed arg.
+		     * However, the default value is being used here since
+		     * type type conversion failed, so we compress the list.
+		     */
+		    register XtTypedArg* arg = typed_args + typed[j] - 1;
+		    register int i;
+
+		    for (i = num_typed_args - typed[j]; i > 0; i--, arg++) {
+			*arg = *(arg+1);
+		    }
+		    num_typed_args--;
+		}
+	    } 
+	}
+	if (tm_hack)
+	    widget->core.tm.current_state = NULL;
+	if (tm_hack &&
+	    (!widget->core.tm.translations ||
+	     (do_tm_hack &&
+	      widget->core.tm.translations->operation != XtTableReplace)) &&
+	    XrmQGetSearchResource(searchList, QbaseTranslations,
+				  QTranslations, &rawType, &value)) {
+	    if (rawType != QTranslationTable) {
+		convValue.size = sizeof(XtTranslations);
+		convValue.addr = (XPointer)&widget->core.tm.current_state;
+		(void)_XtConvert(widget, rawType, &value,
+				 QTranslationTable, &convValue, cache_ptr);
+		if (cache_ptr && *cache_ptr)
+		    cache_ptr++;
+	    } else {
+		/* value.addr can be NULL see: !already_copied */
+		if (value.addr)
+		    *((XtTranslations *)&widget->core.tm.current_state) =
+			*((XtTranslations *)value.addr);
+	    }
+	}
+    }
+    if ((Cardinal)num_typed_args != *pNumTypedArgs) *pNumTypedArgs = num_typed_args;
+    if (searchList != stackSearchList) XtFree((char*)searchList);
+    if (!cache_ptr)
+	cache_ptr = cache_base;
+    if (cache_ptr && cache_ptr != cache_ref) {
+	int cache_ref_size = cache_ptr - cache_ref;
+	XtCacheRef *refs = (XtCacheRef*)
+	    __XtMalloc((unsigned)sizeof(XtCacheRef)*(cache_ref_size + 1));
+	(void) memmove(refs, cache_ref, sizeof(XtCacheRef)*cache_ref_size );
+	refs[cache_ref_size] = NULL;
+	return refs;
+    }
+    return (XtCacheRef*)NULL;
+}
+
+
+
+static void CacheArgs(
+    ArgList	    args,
+    Cardinal	    num_args,
+    XtTypedArgList  typed_args,
+    Cardinal	    num_typed_args,
+    XrmQuarkList    quark_cache,
+    Cardinal	    num_quarks,
+    XrmQuarkList    *pQuarks)       /* RETURN */
+{
+    register XrmQuarkList   quarks;
+    register Cardinal       i;
+    register Cardinal       count;
+
+    count = (args != NULL) ? num_args : num_typed_args;
+
+    if (num_quarks < count) {
+	quarks = (XrmQuarkList) __XtMalloc(count * sizeof(XrmQuark));
+    } else {
+	quarks = quark_cache;
+    }
+    *pQuarks = quarks;
+
+    if (args != NULL) {
+	for (i = count; i; i--)
+	    *quarks++ = StringToQuark((args++)->name);
+    }
+    else {
+	for (i = count; i; i--)
+	    *quarks++ = StringToQuark((typed_args++)->name);
+    }
+}
+
+#define FreeCache(cache, pointer) \
+	  if (cache != pointer) XtFree((char *)pointer)
+
+
+XtCacheRef *_XtGetResources(
+    register 	Widget	  	w,
+    		ArgList	  	args,
+    		Cardinal  	num_args,
+		XtTypedArgList	typed_args,
+		Cardinal*	num_typed_args)
+{
+    XrmName	    *names, names_s[50];
+    XrmClass	    *classes, classes_s[50];
+    XrmQuark	    quark_cache[100];
+    XrmQuarkList    quark_args;
+    WidgetClass     wc;
+    ConstraintWidgetClass   cwc;
+    XtCacheRef	    *cache_refs, *cache_refs_core;
+    Cardinal	    count;
+
+    wc = XtClass(w);
+
+    count = CountTreeDepth(w);
+    names = (XrmName*) XtStackAlloc (count * sizeof(XrmName), names_s);
+    classes = (XrmClass*) XtStackAlloc (count * sizeof(XrmClass), classes_s);
+    if (names == NULL || classes == NULL) _XtAllocError(NULL);
+
+    /* Get names, classes for widget and ancestors */
+    GetNamesAndClasses(w, names, classes);
+   
+    /* Compile arg list into quarks */
+    CacheArgs(args, num_args, typed_args, *num_typed_args, quark_cache,
+	      XtNumber(quark_cache), &quark_args);
+
+    /* Get normal resources */
+    LOCK_PROCESS;
+    cache_refs = GetResources(w, (char*)w, names, classes,
+	(XrmResourceList *) wc->core_class.resources,
+	wc->core_class.num_resources, quark_args, args, num_args,
+	typed_args, num_typed_args, XtIsWidget(w));
+
+    if (w->core.constraints != NULL) {
+	cwc = (ConstraintWidgetClass) XtClass(w->core.parent);
+	cache_refs_core =
+	    GetResources(w, (char*)w->core.constraints, names, classes,
+	    (XrmResourceList *) cwc->constraint_class.resources,
+	    cwc->constraint_class.num_resources,
+	    quark_args, args, num_args, typed_args, num_typed_args, False);
+	if (cache_refs_core) {
+	    XtFree((char *)cache_refs_core);
+	}
+    }
+    FreeCache(quark_cache, quark_args);
+    UNLOCK_PROCESS;
+    XtStackFree((XtPointer)names, names_s);
+    XtStackFree((XtPointer)classes, classes_s);
+    return cache_refs;
+} /* _XtGetResources */
+
+
+void _XtGetSubresources (
+    Widget	  w,			/* Widget "parent" of subobject   */
+    XtPointer	  base,			/* Base address to write to       */
+    const char*   name,			/* name of subobject		    */
+    const char*   class,		/* class of subobject		    */
+    XtResourceList resources,		/* resource list for subobject    */
+    Cardinal	  num_resources,	                                    
+    ArgList	  args,			/* arg list to override resources */
+    Cardinal	  num_args,
+    XtTypedArgList typed_args,
+    Cardinal      num_typed_args)
+{
+    XrmName	  *names, names_s[50];
+    XrmClass	  *classes, classes_s[50];
+    XrmQuark	  quark_cache[100];
+    XrmQuarkList  quark_args;
+    XrmResourceList* table;
+    Cardinal	  count, ntyped_args = num_typed_args;
+    XtCacheRef    *Resrc = NULL;
+    WIDGET_TO_APPCON(w);
+
+    if (num_resources == 0) return;
+
+    LOCK_APP(app);
+    count = CountTreeDepth(w);
+    count++;	/* make sure there's enough room for name and class */
+    names = (XrmName*) XtStackAlloc(count * sizeof(XrmName), names_s);
+    classes = (XrmClass*) XtStackAlloc(count * sizeof(XrmClass), classes_s);
+    if (names == NULL || classes == NULL) _XtAllocError(NULL);
+
+    /* Get full name, class of subobject */
+    GetNamesAndClasses(w, names, classes);
+    count -= 2;
+    names[count] = StringToName(name);
+    classes[count] = StringToClass(class);
+    count++;
+    names[count] = NULLQUARK;
+    classes[count] = NULLQUARK;
+
+    /* Compile arg list into quarks */
+    CacheArgs(args, num_args, typed_args, num_typed_args,
+	      quark_cache, XtNumber(quark_cache), &quark_args);
+
+    /* Compile resource list if needed */
+    if (((int) resources->resource_offset) >= 0) {
+	XrmCompileResourceListEphem(resources, num_resources);
+    }
+    table = _XtCreateIndirectionTable(resources, num_resources); 
+    Resrc = GetResources(w, (char*)base, names, classes, table, num_resources,
+			quark_args, args, num_args,
+			typed_args, &ntyped_args, False);
+    FreeCache(quark_cache, quark_args);
+    XtFree((char *)table);
+    XtFree((char *)Resrc);
+    XtStackFree((XtPointer)names, names_s);
+    XtStackFree((XtPointer)classes, classes_s);
+    UNLOCK_APP(app);
+}
+
+void XtGetSubresources (
+    Widget	  w,			/* Widget "parent" of subobject   */
+    XtPointer	  base,			/* Base address to write to       */
+    _Xconst char* name,			/* name of subobject		    */
+    _Xconst char* class,		/* class of subobject		    */
+    XtResourceList resources,		/* resource list for subobject    */
+    Cardinal	  num_resources,	                                    
+    ArgList	  args,			/* arg list to override resources */
+    Cardinal	  num_args)
+{
+    _XtGetSubresources (w, base, name, class, resources, num_resources, args, num_args, NULL, 0);
+}
+
+
+void _XtGetApplicationResources (
+    Widget	    w,		  /* Application shell widget       */
+    XtPointer	    base,	  /* Base address to write to       */
+    XtResourceList  resources,	  /* resource list for subobject    */
+    Cardinal	    num_resources,
+    ArgList	    args,	  /* arg list to override resources */
+    Cardinal	    num_args,
+    XtTypedArgList  typed_args,
+    Cardinal	    num_typed_args)
+{
+    XrmName	    *names, names_s[50];
+    XrmClass	    *classes, classes_s[50];
+    XrmQuark	    quark_cache[100];
+    XrmQuarkList    quark_args;
+    XrmResourceList* table;
+    Cardinal        count, ntyped_args = num_typed_args;
+#ifdef XTHREADS
+    XtAppContext    app;
+#endif
+    XtCacheRef	    *Resrc = NULL;
+
+    if (num_resources == 0) return;
+
+#ifdef XTHREADS
+    if (w == NULL) app = _XtDefaultAppContext();
+    else app = XtWidgetToApplicationContext(w);
+#endif
+
+    LOCK_APP(app);
+    /* Get full name, class of application */
+    if (w == NULL) {
+	/* hack for R2 compatibility */
+	XtPerDisplay pd = _XtGetPerDisplay(_XtDefaultAppContext()->list[0]);
+	names = (XrmName*) XtStackAlloc (2 * sizeof(XrmName), names_s);
+	classes = (XrmClass*) XtStackAlloc (2 * sizeof(XrmClass), classes_s);
+	names[0] = pd->name;
+	names[1] = NULLQUARK;
+	classes[0] = pd->class;
+	classes[1] = NULLQUARK;
+    }
+    else {
+	count = CountTreeDepth(w);
+        names = (XrmName*) XtStackAlloc(count * sizeof(XrmName), names_s);
+        classes = (XrmClass*) XtStackAlloc(count * sizeof(XrmClass), classes_s);
+	if (names == NULL || classes == NULL) _XtAllocError(NULL);
+	GetNamesAndClasses(w, names, classes);
+    }
+
+    /* Compile arg list into quarks */
+    CacheArgs(args, num_args, typed_args, num_typed_args,  quark_cache, 
+	XtNumber(quark_cache), &quark_args);
+    /* Compile resource list if needed */
+    if (((int) resources->resource_offset) >= 0) {
+#ifdef	CRAY2
+ 	if (base == 0) {	/* this client is non-portable, but... */
+ 	    int count;
+	    XtResourceList  res = resources;
+	    for (count = 0; count < num_resources; res++, count++) {
+ 		res->resource_offset *= sizeof(long);
+ 	    }
+ 	}
+#endif	/* CRAY2 */
+	XrmCompileResourceListEphem(resources, num_resources);
+    }
+    table = _XtCreateIndirectionTable(resources,num_resources);
+
+    Resrc = GetResources(w, (char*)base, names, classes, table, num_resources,
+			quark_args, args, num_args,
+			typed_args, &ntyped_args, False);
+    FreeCache(quark_cache, quark_args);
+    XtFree((char *)table);
+    XtFree((char *)Resrc);
+    if (w != NULL) {
+	XtStackFree((XtPointer)names, names_s);
+	XtStackFree((XtPointer)classes, classes_s);
+    }
+    UNLOCK_APP(app);
+}
+
+void XtGetApplicationResources (
+    Widget	    w,		  /* Application shell widget       */
+    XtPointer	    base,	  /* Base address to write to       */
+    XtResourceList  resources,	  /* resource list for subobject    */
+    Cardinal	    num_resources,
+    ArgList	    args,	  /* arg list to override resources */
+    Cardinal	    num_args)
+{
+    _XtGetApplicationResources(w, base, resources, num_resources, args, num_args, NULL, 0);
+}
+
+static Boolean initialized = FALSE;
+
+void _XtResourceListInitialize(void)
+{
+    LOCK_PROCESS;
+    if (initialized) {
+	XtWarningMsg("initializationError","xtInitialize",XtCXtToolkitError,
+                  "Initializing Resource Lists twice",
+		  (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_PROCESS;
+    	return;
+    }
+    initialized = TRUE;
+    UNLOCK_PROCESS;
+
+    QBoolean = XrmPermStringToQuark(XtCBoolean);
+    QString = XrmPermStringToQuark(XtCString);
+    QCallProc = XrmPermStringToQuark(XtRCallProc);
+    QImmediate = XrmPermStringToQuark(XtRImmediate);
+    QinitialResourcesPersistent = XrmPermStringToQuark(XtNinitialResourcesPersistent);
+    QInitialResourcesPersistent = XrmPermStringToQuark(XtCInitialResourcesPersistent);
+    Qtranslations = XrmPermStringToQuark(XtNtranslations);
+    QbaseTranslations = XrmPermStringToQuark("baseTranslations");
+    QTranslations = XrmPermStringToQuark(XtCTranslations);
+    QTranslationTable = XrmPermStringToQuark(XtRTranslationTable);
+    Qscreen = XrmPermStringToQuark(XtNscreen);
+    QScreen = XrmPermStringToQuark(XtCScreen);
+}
diff --git a/libXt/src/Selection.c b/libXt/src/Selection.c
index 841e25a9e..5dff73e4a 100644
--- a/libXt/src/Selection.c
+++ b/libXt/src/Selection.c
@@ -1,2305 +1,2305 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "SelectionI.h"

-#include <X11/Xatom.h>

-#include <stdio.h>

-#include <unistd.h>

-

-void _XtSetDefaultSelectionTimeout(

-	unsigned long *timeout)

-{

-	*timeout = 5000; /* default to 5 seconds */

-}

-

-void XtSetSelectionTimeout(

-	unsigned long timeout)

-{

-	XtAppSetSelectionTimeout(_XtDefaultAppContext(), timeout);

-}

-

-void XtAppSetSelectionTimeout(

-	XtAppContext app,

-	unsigned long timeout)

-{

-	LOCK_APP(app);

-	app->selectionTimeout = timeout;

-	UNLOCK_APP(app);

-}

-

-unsigned long XtGetSelectionTimeout(void)

-{

-	return XtAppGetSelectionTimeout(_XtDefaultAppContext());

-}

-

-unsigned long XtAppGetSelectionTimeout(

-	XtAppContext app)

-{

-	unsigned long retval;

-

-	LOCK_APP(app);

-	retval = app->selectionTimeout;

-	UNLOCK_APP(app);

-	return retval;

-}

-

-

-/* General utilities */

-

-static void HandleSelectionReplies(Widget, XtPointer, XEvent *, Boolean *);

-static void ReqTimedOut(XtPointer, XtIntervalId *);

-static void HandlePropertyGone(Widget, XtPointer, XEvent *, Boolean *);

-static void HandleGetIncrement(Widget, XtPointer, XEvent *, Boolean *);

-static void HandleIncremental(Display *, Widget, Atom, CallBackInfo, unsigned long);

-

-static XContext selectPropertyContext = 0;

-static XContext paramPropertyContext = 0;

-static XContext multipleContext = 0;

-

-/* Multiple utilities */

-static void AddSelectionRequests(Widget, Atom, int, Atom *, XtSelectionCallbackProc *, int, XtPointer *, Boolean *, Atom *);

-static Boolean IsGatheringRequest(Widget, Atom);

-

-#define PREALLOCED 32

-

-/* Parameter utilities */

-static void AddParamInfo(Widget, Atom, Atom);

-static void RemoveParamInfo(Widget, Atom);

-static Atom GetParamInfo(Widget, Atom);

-

-static int StorageSize[3] = {1, sizeof(short), sizeof(long)};

-#define BYTELENGTH(length, format) ((length) * StorageSize[(format)>>4])

-#define NUMELEM(bytelength, format) ((bytelength) / StorageSize[(format)>>4])

-

-/* Xlib and Xt are permitted to have different memory allocators, and in the

- * XtSelectionCallbackProc the client is instructed to free the selection

- * value with XtFree, so the selection value received from XGetWindowProperty

- * should be copied to memory allocated through Xt.  But copying is

- * undesirable since the selection value may be large, and, under normal

- * library configuration copying is unnecessary.

- */

-#ifdef XTTRACEMEMORY

-#define XT_COPY_SELECTION	1

-#endif

-

-/*ARGSUSED*/

-static void FreePropList(

- Widget w,			/* unused */

- XtPointer closure,

- XtPointer callData)		/* unused */

-{

-    PropList sarray = (PropList)closure;

-    LOCK_PROCESS;

-    XDeleteContext(sarray->dpy, DefaultRootWindow(sarray->dpy),

-		   selectPropertyContext);

-    UNLOCK_PROCESS;

-    XtFree((char*)sarray->list);

-    XtFree((char*)closure);

-}

-

-

-static PropList GetPropList(

-    Display *dpy)

-{

-    PropList sarray;

-    Atom atoms[4];

-    static char* names[] = {

-	"INCR",

-	"MULTIPLE",

-	"TIMESTAMP",

-	"_XT_SELECTION_0" };

-

-    LOCK_PROCESS;

-    if (selectPropertyContext == 0)

-	selectPropertyContext = XUniqueContext();

-    if (XFindContext(dpy, DefaultRootWindow(dpy), selectPropertyContext,

-		     (XPointer *)&sarray)) {

-	XtPerDisplay pd = _XtGetPerDisplay(dpy);

-	sarray = (PropList) __XtMalloc((unsigned) sizeof(PropListRec));

-	sarray->dpy = dpy;

-	XInternAtoms(dpy, names, 4, FALSE, atoms);

-	sarray->incr_atom = atoms[0];

-	sarray->indirect_atom = atoms[1];

-	sarray->timestamp_atom = atoms[2];

-	sarray->propCount = 1;

-	sarray->list =

-	    (SelectionProp)__XtMalloc((unsigned) sizeof(SelectionPropRec));

-	sarray->list[0].prop = atoms[3];

-	sarray->list[0].avail = TRUE;

-	(void) XSaveContext(dpy, DefaultRootWindow(dpy), selectPropertyContext,

-			    (char *) sarray);

-	_XtAddCallback( &pd->destroy_callbacks,

-			FreePropList, (XtPointer)sarray );

-    }

-    UNLOCK_PROCESS;

-    return sarray;

-}

-

-

-static Atom GetSelectionProperty(

-    Display *dpy)

-{

- SelectionProp p;

- int propCount;

- char propname[80];

- PropList sarray = GetPropList(dpy);

-

- for (p = sarray->list, propCount=sarray->propCount;

-	propCount;

-	p++, propCount--) {

-   if (p->avail) {

-      p->avail = FALSE;

-      return(p->prop);

-   }

- }

- propCount = sarray->propCount++;

- sarray->list = (SelectionProp) XtRealloc((XtPointer)sarray->list,

-  		(unsigned)(sarray->propCount*sizeof(SelectionPropRec)));

- (void) snprintf(propname, sizeof(propname), "_XT_SELECTION_%d", propCount);

- sarray->list[propCount].prop = XInternAtom(dpy, propname, FALSE);

- sarray->list[propCount].avail = FALSE;

- return(sarray->list[propCount].prop);

-}

-

-static void FreeSelectionProperty(

-    Display *dpy,

-    Atom prop)

-{

- SelectionProp p;

- PropList sarray;

- if (prop == None) return;

- LOCK_PROCESS;

- if (XFindContext(dpy, DefaultRootWindow(dpy), selectPropertyContext,

-		  (XPointer *)&sarray))

-    XtAppErrorMsg(XtDisplayToApplicationContext(dpy),

-	    "noSelectionProperties", "freeSelectionProperty", XtCXtToolkitError,

-		"internal error: no selection property context for display",

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

- UNLOCK_PROCESS;

- for (p = sarray->list; p; p++)

-   if (p->prop == prop) {

-      p->avail = TRUE;

-      return;

-      }

-}

-

-static void FreeInfo(

-    CallBackInfo info)

-{

-    XtFree((char*)info->incremental);

-    XtFree((char*)info->callbacks);

-    XtFree((char*)info->req_closure);

-    XtFree((char*)info->target);

-    XtFree((char*)info);

-}

-

-static CallBackInfo MakeInfo(

-    Select ctx,

-    XtSelectionCallbackProc *callbacks,

-    XtPointer *closures,

-    int count,

-    Widget widget,

-    Time time,

-    Boolean *incremental,

-    Atom *properties)

-{

-    	CallBackInfo info = XtNew(CallBackInfoRec);

-

-	info->ctx = ctx;

-	info->callbacks = (XtSelectionCallbackProc *)

-	    __XtMalloc((unsigned) (count * sizeof(XtSelectionCallbackProc)));

-	(void) memmove((char*)info->callbacks, (char*)callbacks,

-		       count * sizeof(XtSelectionCallbackProc));

-	info->req_closure =

-	    (XtPointer*)__XtMalloc((unsigned) (count * sizeof(XtPointer)));

-	(void) memmove((char*)info->req_closure, (char*)closures,

-		       count * sizeof(XtPointer));

-	if (count == 1 && properties != NULL && properties[0] != None)

-	    info->property = properties[0];

-	else {

-	    info->property = GetSelectionProperty(XtDisplay(widget));

-	    XDeleteProperty(XtDisplay(widget), XtWindow(widget),

-			    info->property);

-	}

-	info->proc = HandleSelectionReplies;

-	info->widget = widget;

-	info->time = time;

-	info->incremental = (Boolean*) __XtMalloc(count * sizeof(Boolean));

-	(void) memmove((char*)info->incremental, (char*) incremental,

-		       count * sizeof(Boolean));

-	info->current = 0;

-	info->value = NULL;

-	return (info);

-}

-

-static void RequestSelectionValue(

-    CallBackInfo info,

-    Atom selection,

-    Atom target)

-{

-#ifndef DEBUG_WO_TIMERS

-    XtAppContext app = XtWidgetToApplicationContext(info->widget);

-	info->timeout = XtAppAddTimeOut(app,

-			 app->selectionTimeout, ReqTimedOut, (XtPointer)info);

-#endif

-	XtAddEventHandler(info->widget, (EventMask)0, TRUE,

-			  HandleSelectionReplies, (XtPointer)info);

-	XConvertSelection(info->ctx->dpy, selection, target,

-			  info->property, XtWindow(info->widget), info->time);

-}

-

-

-static XContext selectContext = 0;

-

-static Select NewContext(

-    Display *dpy,

-    Atom selection)

-{

-    /* assert(selectContext != 0) */

-    Select ctx = XtNew(SelectRec);

-    ctx->dpy = dpy;

-    ctx->selection = selection;

-    ctx->widget = NULL;

-    ctx->prop_list = GetPropList(dpy);

-    ctx->ref_count = 0;

-    ctx->free_when_done = FALSE;

-    ctx->was_disowned = FALSE;

-    LOCK_PROCESS;

-    (void)XSaveContext(dpy, (Window)selection, selectContext, (char *)ctx);

-    UNLOCK_PROCESS;

-    return ctx;

-}

-

-static Select FindCtx(

-    Display *dpy,

-    Atom selection)

-{

-    Select ctx;

-

-    LOCK_PROCESS;

-    if (selectContext == 0)

-	selectContext = XUniqueContext();

-    if (XFindContext(dpy, (Window)selection, selectContext, (XPointer *)&ctx))

-	ctx = NewContext(dpy, selection);

-    UNLOCK_PROCESS;

-    return ctx;

-}

-

-/*ARGSUSED*/

-static void WidgetDestroyed(

-    Widget widget,

-    XtPointer closure, XtPointer data)

-{

-    Select ctx = (Select) closure;

-    if (ctx->widget == widget) {

-	if (ctx->free_when_done)

-	    XtFree((char*)ctx);

-	else

-	    ctx->widget = NULL;

-    }

-}

-

-/* Selection Owner code */

-

-static void HandleSelectionEvents(Widget, XtPointer, XEvent *, Boolean *);

-

-static Boolean LoseSelection(

-    Select ctx,

-    Widget widget,

-    Atom selection,

-    Time time)

-{

-    if ((ctx->widget == widget) &&

-	(ctx->selection == selection) && /* paranoia */

-	!ctx->was_disowned &&

-	((time == CurrentTime) || (time >= ctx->time)))

-    {

-	XtRemoveEventHandler(widget, (EventMask)0, TRUE,

-			     HandleSelectionEvents, (XtPointer)ctx);

-	XtRemoveCallback(widget, XtNdestroyCallback,

-			 WidgetDestroyed, (XtPointer)ctx);

-	ctx->was_disowned = TRUE; /* widget officially loses ownership */

-	/* now inform widget */

-	if (ctx->loses) {

-	    if (ctx->incremental)

-	       (*(XtLoseSelectionIncrProc)ctx->loses)

-		   (widget, &ctx->selection, ctx->owner_closure);

-	    else  (*ctx->loses)(widget, &ctx->selection);

-	}

-	return(TRUE);

-    }

-    else return(FALSE);

-}

-

-static XContext selectWindowContext = 0;

-

-/* %%% Xlib.h should make this public! */

-typedef int (*xErrorHandler)(Display*, XErrorEvent*);

-

-static xErrorHandler oldErrorHandler = NULL;

-static unsigned long firstProtectRequest;

-static Window errorWindow;

-

-static int LocalErrorHandler (

-    Display *dpy,

-    XErrorEvent *error)

-{

-    int retval;

-

-    /* If BadWindow error on selection requestor, nothing to do but let

-     * the transfer timeout.  Otherwise, invoke saved error handler. */

-

-    LOCK_PROCESS;

-

-    if (error->error_code == BadWindow && error->resourceid == errorWindow &&

-	error->serial >= firstProtectRequest) {

-	UNLOCK_PROCESS;

-	return 0;

-    }

-

-    if (oldErrorHandler == NULL) {

-	UNLOCK_PROCESS;

-	return 0;  /* should never happen */

-    }

-

-    retval = (*oldErrorHandler)(dpy, error);

-    UNLOCK_PROCESS;

-    return retval;

-}

-

-static void StartProtectedSection(

-    Display *dpy,

-    Window window)

-{

-    /* protect ourselves against request window being destroyed

-     * before completion of transfer */

-

-    LOCK_PROCESS;

-    oldErrorHandler = XSetErrorHandler(LocalErrorHandler);

-    firstProtectRequest = NextRequest(dpy);

-    errorWindow = window;

-    UNLOCK_PROCESS;

-}

-

-static void EndProtectedSection(

-    Display *dpy)

-{

-    /* flush any generated errors on requestor and

-     * restore original error handler */

-

-    XSync(dpy, False);

-

-    LOCK_PROCESS;

-    XSetErrorHandler(oldErrorHandler);

-    oldErrorHandler = NULL;

-    UNLOCK_PROCESS;

-}

-

-static void AddHandler(

-    Request req,

-    EventMask mask,

-    XtEventHandler proc,

-    XtPointer closure)

-{

-    Display *dpy = req->ctx->dpy;

-    Window window = req->requestor;

-    Widget widget = XtWindowToWidget(dpy, window);

-

-    if (widget != NULL) req->widget = widget;

-    else widget = req->widget;

-

-    if (XtWindow(widget) == window)

-	XtAddEventHandler(widget, mask, False, proc, closure);

-    else {

-	RequestWindowRec *requestWindowRec;

-	LOCK_PROCESS;

-	if (selectWindowContext == 0)

-	    selectWindowContext = XUniqueContext();

-	if (XFindContext(dpy, window, selectWindowContext,

-			 (XPointer *)&requestWindowRec)) {

-	    requestWindowRec = XtNew(RequestWindowRec);

-	    requestWindowRec->active_transfer_count = 0;

-	    (void)XSaveContext(dpy, window, selectWindowContext,

-			       (char *)requestWindowRec);

-	}

-	UNLOCK_PROCESS;

-	if (requestWindowRec->active_transfer_count++ == 0) {

-	    XtRegisterDrawable(dpy, window, widget);

-	    XSelectInput(dpy, window, mask);

-	}

-	XtAddRawEventHandler(widget, mask, FALSE, proc, closure);

-    }

-}

-

-static void RemoveHandler(

-    Request req,

-    EventMask mask,

-    XtEventHandler proc,

-    XtPointer closure)

-{

-    Display *dpy = req->ctx->dpy;

-    Window window = req->requestor;

-    Widget widget = req->widget;

-

-    if ((XtWindowToWidget(dpy, window) == widget) &&

-        (XtWindow(widget) != window)) {

-	/* we had to hang this window onto our widget; take it off */

-	RequestWindowRec* requestWindowRec;

-	XtRemoveRawEventHandler(widget, mask, TRUE, proc, closure);

-	LOCK_PROCESS;

-	(void)XFindContext(dpy, window, selectWindowContext,

-			   (XPointer *)&requestWindowRec);

-	UNLOCK_PROCESS;

-	if (--requestWindowRec->active_transfer_count == 0) {

-	    XtUnregisterDrawable(dpy, window);

-	    StartProtectedSection(dpy, window);

-	    XSelectInput(dpy, window, 0L);

-	    EndProtectedSection(dpy);

-	    LOCK_PROCESS;

-	    (void)XDeleteContext(dpy, window, selectWindowContext);

-	    UNLOCK_PROCESS;

-	    XtFree((char*)requestWindowRec);

-	}

-    } else {

-        XtRemoveEventHandler(widget, mask, TRUE,  proc, closure);

-    }

-}

-

-/* ARGSUSED */

-static void OwnerTimedOut(

-    XtPointer closure,

-    XtIntervalId   *id)

-{

-    Request req = (Request)closure;

-    Select ctx = req->ctx;

-

-    if (ctx->incremental && (ctx->owner_cancel != NULL)) {

-	(*ctx->owner_cancel)(ctx->widget, &ctx->selection,

-			     &req->target, (XtRequestId*)&req,

-			     ctx->owner_closure);

-    } else {

-	if (ctx->notify == NULL)

-	    XtFree((char*)req->value);

-	else {

-	    /* the requestor hasn't deleted the property, but

-	     * the owner needs to free the value.

-	     */

-	    if (ctx->incremental)

-		(*(XtSelectionDoneIncrProc)ctx->notify)

-			      (ctx->widget, &ctx->selection, &req->target,

-			       (XtRequestId*)&req, ctx->owner_closure);

-	    else

-		(*ctx->notify)(ctx->widget, &ctx->selection, &req->target);

-	}

-    }

-

-    RemoveHandler(req, (EventMask)PropertyChangeMask,

-		  HandlePropertyGone, closure);

-    XtFree((char*)req);

-    if (--ctx->ref_count == 0 && ctx->free_when_done)

-	XtFree((char*)ctx);

-}

-

-static void SendIncrement(

-    Request incr)

-{

-    Display *dpy = incr->ctx->dpy;

-

-    unsigned long incrSize = MAX_SELECTION_INCR(dpy);

-    if (incrSize > incr->bytelength - incr->offset)

-        incrSize = incr->bytelength - incr->offset;

-    StartProtectedSection(dpy, incr->requestor);

-    XChangeProperty(dpy, incr->requestor, incr->property,

-    	    incr->type, incr->format, PropModeReplace,

-	    (unsigned char *)incr->value + incr->offset,

-	    NUMELEM((int)incrSize, incr->format));

-    EndProtectedSection(dpy);

-    incr->offset += incrSize;

-}

-

-static void AllSent(

-    Request req)

-{

-    Select ctx = req->ctx;

-    StartProtectedSection(ctx->dpy, req->requestor);

-    XChangeProperty(ctx->dpy, req->requestor,

-		    req->property, req->type,  req->format,

-		    PropModeReplace, (unsigned char *) NULL, 0);

-    EndProtectedSection(ctx->dpy);

-    req->allSent = TRUE;

-

-    if (ctx->notify == NULL) XtFree((char*)req->value);

-}

-

-/*ARGSUSED*/

-static void HandlePropertyGone(

-    Widget widget,

-    XtPointer closure,

-    XEvent *ev,

-    Boolean *cont)

-{

-    XPropertyEvent *event = (XPropertyEvent *) ev;

-    Request req = (Request)closure;

-    Select ctx = req->ctx;

-

-    if ((event->type != PropertyNotify) ||

-        (event->state != PropertyDelete) ||

-	(event->atom != req->property) ||

-	(event->window != req->requestor))

-      return;

-#ifndef DEBUG_WO_TIMERS

-    XtRemoveTimeOut(req->timeout);

-#endif

-    if (req->allSent) {

-	if (ctx->notify) {

-	    if (ctx->incremental) {

-		(*(XtSelectionDoneIncrProc)ctx->notify)

-			      (ctx->widget, &ctx->selection, &req->target,

-			       (XtRequestId*)&req, ctx->owner_closure);

-	    }

-	    else (*ctx->notify)(ctx->widget, &ctx->selection, &req->target);

-	}

-	RemoveHandler(req, (EventMask)PropertyChangeMask,

-		      HandlePropertyGone, closure);

-	XtFree((char*)req);

-	if (--ctx->ref_count == 0 && ctx->free_when_done)

-	    XtFree((char*)ctx);

-    } else  { /* is this part of an incremental transfer? */

-	if (ctx->incremental) {

-	     if (req->bytelength == 0)

-		AllSent(req);

-	     else {

-		unsigned long size = MAX_SELECTION_INCR(ctx->dpy);

-    		SendIncrement(req);

-		(*(XtConvertSelectionIncrProc)ctx->convert)

-			   (ctx->widget, &ctx->selection, &req->target,

-			    &req->type, &req->value,

-			    &req->bytelength, &req->format,

-			    &size, ctx->owner_closure, (XtPointer*)&req);

-		if (req->bytelength)

-		    req->bytelength = BYTELENGTH(req->bytelength, req->format);

-		req->offset = 0;

-	    }

-	} else {

-	    if (req->offset < req->bytelength)

-		SendIncrement(req);

-	    else AllSent(req);

-	}

-#ifndef DEBUG_WO_TIMERS

-	{

-	  XtAppContext app = XtWidgetToApplicationContext(req->widget);

-	  req->timeout = XtAppAddTimeOut(app,

-			 app->selectionTimeout, OwnerTimedOut, (XtPointer)req);

-	}

-#endif

-    }

-}

-

-static void PrepareIncremental(

-    Request req,

-    Widget widget,

-    Window window,

-    Atom property,

-    Atom target,

-    Atom targetType,

-    XtPointer value,

-    unsigned long length,

-    int format)

-{

-	req->type = targetType;

-	req->value = value;

-	req->bytelength = BYTELENGTH(length,format);

-	req->format = format;

-	req->offset = 0;

-	req->target = target;

-	req->widget = widget;

-	req->allSent = FALSE;

-#ifndef DEBUG_WO_TIMERS

-	{

-	XtAppContext app = XtWidgetToApplicationContext(widget);

-	req->timeout = XtAppAddTimeOut(app,

-			 app->selectionTimeout, OwnerTimedOut, (XtPointer)req);

-	}

-#endif

-	AddHandler(req, (EventMask)PropertyChangeMask,

-		   HandlePropertyGone, (XtPointer)req);

-/* now send client INCR property */

-	XChangeProperty(req->ctx->dpy, window, req->property,

-			req->ctx->prop_list->incr_atom,

-			32, PropModeReplace,

-			(unsigned char *)&req->bytelength, 1);

-}

-

-static Boolean GetConversion(

-    Select ctx,			/* logical owner */

-    XSelectionRequestEvent* event,

-    Atom target,

-    Atom property,		/* requestor's property */

-    Widget widget)		/* physical owner (receives events) */

-{

-    XtPointer value = NULL;

-    unsigned long length;

-    int format;

-    Atom targetType;

-    Request req = XtNew(RequestRec);

-    Boolean timestamp_target = (target == ctx->prop_list->timestamp_atom);

-

-    req->ctx = ctx;

-    req->event = *event;

-    req->property = property;

-    req->requestor = event->requestor;

-

-    if (timestamp_target) {

-	value = __XtMalloc(sizeof(long));

-	*(long*)value = ctx->time;

-	targetType = XA_INTEGER;

-	length = 1;

-	format = 32;

-    }

-    else {

-	ctx->ref_count++;

-	if (ctx->incremental == TRUE) {

-	     unsigned long size = MAX_SELECTION_INCR(ctx->dpy);

-	     if ((*(XtConvertSelectionIncrProc)ctx->convert)

-			       (ctx->widget, &event->selection, &target,

-				&targetType, &value, &length, &format,

-				&size, ctx->owner_closure, (XtRequestId*)&req)

-		     == FALSE) {

-		 XtFree((char*)req);

-		 ctx->ref_count--;

-		 return(FALSE);

-	     }

-	     StartProtectedSection(ctx->dpy, event->requestor);

-	     PrepareIncremental(req, widget, event->requestor, property,

-				target, targetType, value, length, format);

-	     return(TRUE);

-	}

-	ctx->req = req;

-	if ((*ctx->convert)(ctx->widget, &event->selection, &target,

-			    &targetType, &value, &length, &format) == FALSE) {

-	    XtFree((char*)req);

-	    ctx->req = NULL;

-	    ctx->ref_count--;

-	    return(FALSE);

-	}

-	ctx->req = NULL;

-    }

-    StartProtectedSection(ctx->dpy, event->requestor);

-    if (BYTELENGTH(length,format) <= (unsigned long) MAX_SELECTION_INCR(ctx->dpy)) {

-	if (! timestamp_target) {

-	    if (ctx->notify != NULL) {

-		  req->target = target;

-		  req->widget = widget;

-		  req->allSent = TRUE;

-#ifndef DEBUG_WO_TIMERS

-		  {

-		  XtAppContext app = XtWidgetToApplicationContext(req->widget);

-		  req->timeout = XtAppAddTimeOut(app,

-			 app->selectionTimeout, OwnerTimedOut, (XtPointer)req);

-		  }

-#endif

-	          AddHandler(req, (EventMask)PropertyChangeMask,

-			     HandlePropertyGone, (XtPointer)req);

-	      }

-	      else ctx->ref_count--;

-        }

-	XChangeProperty(ctx->dpy, event->requestor, property,

-			targetType, format, PropModeReplace,

-			(unsigned char *)value, (int)length);

-	/* free storage for client if no notify proc */

-	if (timestamp_target || ctx->notify == NULL) {

-	    XtFree((char*)value);

-	    XtFree((char*)req);

-	}

-    } else {

-	 PrepareIncremental(req, widget, event->requestor, property,

-			    target, targetType, value, length, format);

-    }

-    return(TRUE);

-}

-

-/*ARGSUSED*/

-static void HandleSelectionEvents(

-    Widget widget,

-    XtPointer closure,

-    XEvent *event,

-    Boolean *cont)

-{

-    Select ctx;

-    XSelectionEvent ev;

-    Atom target;

-    int count;

-    Boolean writeback = FALSE;

-

-    ctx = (Select) closure;

-    switch (event->type) {

-      case SelectionClear:

-	/* if this event is not for the selection we registered for,

-	 * don't do anything */

-	if (ctx->selection != event->xselectionclear.selection ||

-	    ctx->serial > event->xselectionclear.serial)

-	    break;

-	(void) LoseSelection(ctx, widget, event->xselectionclear.selection,

-			event->xselectionclear.time);

-	break;

-      case SelectionRequest:

-	/* if this event is not for the selection we registered for,

-	 * don't do anything */

-	if (ctx->selection != event->xselectionrequest.selection)

-	    break;

-	ev.type = SelectionNotify;

-	ev.display = event->xselectionrequest.display;

-	ev.requestor = event->xselectionrequest.requestor;

-	ev.selection = event->xselectionrequest.selection;

-	ev.time = event->xselectionrequest.time;

-	ev.target = event->xselectionrequest.target;

-	if (event->xselectionrequest.property == None) /* obsolete requestor */

-	   event->xselectionrequest.property = event->xselectionrequest.target;

-	if (ctx->widget != widget || ctx->was_disowned

-	   || ((event->xselectionrequest.time != CurrentTime)

-	        && (event->xselectionrequest.time < ctx->time))) {

-	    ev.property = None;

-	    StartProtectedSection(ev.display, ev.requestor);

-	} else {

-	   if (ev.target == ctx->prop_list->indirect_atom) {

-	      IndirectPair *p;

-	      int format;

-	      unsigned long bytesafter, length;

-	      unsigned char *value;

-	      ev.property = event->xselectionrequest.property;

-	      StartProtectedSection(ev.display, ev.requestor);

-	      (void) XGetWindowProperty(ev.display, ev.requestor,

-			event->xselectionrequest.property, 0L, 1000000,

-			False,(Atom)AnyPropertyType, &target, &format, &length,

-			&bytesafter, &value);

-	      count = BYTELENGTH(length, format) / sizeof(IndirectPair);

-	      for (p = (IndirectPair *)value; count; p++, count--) {

-		  EndProtectedSection(ctx->dpy);

-		  if (!GetConversion(ctx, (XSelectionRequestEvent*)event,

-				     p->target, p->property, widget)) {

-

-			p->target = None;

-			writeback = TRUE;

-			StartProtectedSection(ctx->dpy, ev.requestor);

-		  }

-	      }

-	      if (writeback)

-		XChangeProperty(ev.display, ev.requestor,

-			event->xselectionrequest.property, target,

-			format, PropModeReplace, value, (int)length);

-	      XFree((char *)value);

-	  } else /* not multiple */ {

-	       if (GetConversion(ctx, (XSelectionRequestEvent*)event,

-				 event->xselectionrequest.target,

-				 event->xselectionrequest.property,

-				 widget))

-		   ev.property = event->xselectionrequest.property;

-	       else {

-		   ev.property = None;

-		   StartProtectedSection(ctx->dpy, ev.requestor);

-	       }

-	   }

-      }

-      (void) XSendEvent(ctx->dpy, ev.requestor, False, (unsigned long)NULL,

-		   (XEvent *) &ev);

-

-      EndProtectedSection(ctx->dpy);

-

-      break;

-    }

-}

-

-static Boolean OwnSelection(

-    Widget widget,

-    Atom selection,

-    Time time,

-    XtConvertSelectionProc convert,

-    XtLoseSelectionProc lose,

-    XtSelectionDoneProc notify,

-    XtCancelConvertSelectionProc cancel,

-    XtPointer closure,

-    Boolean incremental)

-{

-    Select ctx;

-    Select oldctx = NULL;

-

-    if (!XtIsRealized(widget)) return False;

-

-    ctx = FindCtx(XtDisplay(widget), selection);

-    if (ctx->widget != widget || ctx->time != time ||

-	ctx->ref_count || ctx->was_disowned)

-    {

-	Boolean replacement = FALSE;

-	Window window = XtWindow(widget);

-	unsigned long serial = XNextRequest(ctx->dpy);

-        XSetSelectionOwner(ctx->dpy, selection, window, time);

-        if (XGetSelectionOwner(ctx->dpy, selection) != window)

-	    return FALSE;

-	if (ctx->ref_count) {	/* exchange is in-progress */

-#ifdef DEBUG_ACTIVE

-	    printf( "Active exchange for widget \"%s\"; selection=0x%lx, ref_count=%d\n",

-		    XtName(widget), (long)selection, ctx->ref_count );

-#endif

-	    if (ctx->widget != widget ||

-		ctx->convert != convert ||

-		ctx->loses != lose ||

-		ctx->notify != notify ||

-		ctx->owner_cancel != cancel ||

-		ctx->incremental != incremental ||

-		ctx->owner_closure != closure)

-	    {

-		if (ctx->widget == widget) {

-		    XtRemoveEventHandler(widget, (EventMask)0, TRUE,

-					HandleSelectionEvents, (XtPointer)ctx);

-		    XtRemoveCallback(widget, XtNdestroyCallback,

-				     WidgetDestroyed, (XtPointer)ctx);

-		    replacement = TRUE;

-		}

-		else if (!ctx->was_disowned) {

-		    oldctx = ctx;

-		}

-		ctx->free_when_done = TRUE;

-		ctx = NewContext(XtDisplay(widget), selection);

-	    }

-	    else if (!ctx->was_disowned) { /* current owner is new owner */

-		ctx->time = time;

-		return TRUE;

-	    }

-	}

-    	if (ctx->widget != widget || ctx->was_disowned || replacement) {

-	    if (ctx->widget && !ctx->was_disowned && !replacement) {

-		oldctx = ctx;

-		oldctx->free_when_done = TRUE;

-		ctx = NewContext(XtDisplay(widget), selection);

-	    }

-	    XtAddEventHandler(widget, (EventMask)0, TRUE,

-			      HandleSelectionEvents, (XtPointer)ctx);

-	    XtAddCallback(widget, XtNdestroyCallback,

-			  WidgetDestroyed, (XtPointer)ctx);

-	}

-	ctx->widget = widget;	/* Selection offically changes hands. */

-	ctx->time = time;

-	ctx->serial = serial;

-    }

-    ctx->convert = convert;

-    ctx->loses = lose;

-    ctx->notify = notify;

-    ctx->owner_cancel = cancel;

-    ctx->incremental = incremental;

-    ctx->owner_closure = closure;

-    ctx->was_disowned = FALSE;

-

-    /* Defer calling the previous selection owner's lose selection procedure

-     * until the new selection is established, to allow the previous

-     * selection owner to ask for the new selection to be converted in

-     * the lose selection procedure.  The context pointer is the closure

-     * of the event handler and the destroy callback, so the old context

-     * pointer and the record contents must be preserved for LoseSelection.

-     */

-    if (oldctx) {

-	(void) LoseSelection(oldctx, oldctx->widget, selection, oldctx->time);

-	if (!oldctx->ref_count && oldctx->free_when_done)

-	    XtFree((char*)oldctx);

-    }

-    return TRUE;

-}

-

-

-Boolean XtOwnSelection(

-    Widget widget,

-    Atom selection,

-    Time time,

-    XtConvertSelectionProc convert,

-    XtLoseSelectionProc lose,

-    XtSelectionDoneProc notify)

-{

-    Boolean retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    retval = OwnSelection(widget, selection, time, convert, lose, notify,

-			(XtCancelConvertSelectionProc)NULL,

-			(XtPointer)NULL, FALSE);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-

-Boolean XtOwnSelectionIncremental(

-    Widget widget,

-    Atom selection,

-    Time time,

-    XtConvertSelectionIncrProc convert,

-    XtLoseSelectionIncrProc lose,

-    XtSelectionDoneIncrProc notify,

-    XtCancelConvertSelectionProc cancel,

-    XtPointer closure)

-{

-    Boolean retval;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    retval = OwnSelection(widget, selection, time,

-			(XtConvertSelectionProc)convert,

-			(XtLoseSelectionProc)lose,

-			(XtSelectionDoneProc)notify,

-			cancel, closure, TRUE);

-    UNLOCK_APP(app);

-    return retval;

-}

-

-

-void XtDisownSelection(

-    Widget widget,

-    Atom selection,

-    Time time)

-{

-    Select ctx;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    ctx = FindCtx(XtDisplay(widget), selection);

-    if (LoseSelection(ctx, widget, selection, time))

-	XSetSelectionOwner(XtDisplay(widget), selection, None, time);

-    UNLOCK_APP(app);

-}

-

-/* Selection Requestor code */

-

-static Boolean IsINCRtype(

-    CallBackInfo info,

-    Window window,

-    Atom prop)

-{

-    unsigned long bytesafter;

-    unsigned long length;

-    int format;

-    Atom type;

-    unsigned char *value;

-

-    if (prop == None) return False;

-

-    (void)XGetWindowProperty(XtDisplay(info->widget), window, prop, 0L, 0L,

-			     False, info->ctx->prop_list->incr_atom,

-			     &type, &format, &length, &bytesafter, &value);

-

-    return (type == info->ctx->prop_list->incr_atom);

-}

-

-/*ARGSUSED*/

-static void ReqCleanup(

-    Widget widget,

-    XtPointer closure,

-    XEvent *ev,

-    Boolean *cont)

-{

-    CallBackInfo info = (CallBackInfo)closure;

-    unsigned long bytesafter, length;

-    char *value;

-    int format;

-    Atom target;

-

-    if (ev->type == SelectionNotify) {

-	XSelectionEvent *event = (XSelectionEvent *) ev;

-	if (!MATCH_SELECT(event, info)) return; /* not really for us */

-         XtRemoveEventHandler(widget, (EventMask)0, TRUE,

-			   ReqCleanup, (XtPointer) info );

-	if (IsINCRtype(info, XtWindow(widget), event->property)) {

-	    info->proc = HandleGetIncrement;

-	    XtAddEventHandler(info->widget, (EventMask) PropertyChangeMask,

-			      FALSE, ReqCleanup, (XtPointer) info);

-	} else {

-	   if (event->property != None)

-		XDeleteProperty(event->display, XtWindow(widget),

-				event->property);

-           FreeSelectionProperty(XtDisplay(widget), info->property);

-	   FreeInfo(info);

-	}

-    } else if ((ev->type == PropertyNotify) &&

-		(ev->xproperty.state == PropertyNewValue) &&

-	        (ev->xproperty.atom == info->property)) {

-	XPropertyEvent *event = (XPropertyEvent *) ev;

-        (void) XGetWindowProperty(event->display, XtWindow(widget),

-			   event->atom, 0L, 1000000, True, AnyPropertyType,

-			   &target, &format, &length, &bytesafter,

-			   (unsigned char **) &value);

-	XFree(value);

-	if (length == 0) {

-           XtRemoveEventHandler(widget, (EventMask) PropertyChangeMask, FALSE,

-			   ReqCleanup, (XtPointer) info );

-           FreeSelectionProperty(XtDisplay(widget), info->property);

-	   XtFree(info->value);	/* requestor never got this, so free now */

-	   FreeInfo(info);

-	}

-    }

-}

-

-/* ARGSUSED */

-static void ReqTimedOut(

-    XtPointer closure,

-    XtIntervalId   *id)

-{

-    XtPointer value = NULL;

-    unsigned long length = 0;

-    int format = 8;

-    Atom resulttype = XT_CONVERT_FAIL;

-    CallBackInfo info = (CallBackInfo)closure;

-    unsigned long bytesafter;

-    unsigned long proplength;

-    Atom type;

-    IndirectPair *pairs;

-    XtPointer *c;

-    int i;

-

-    if (*info->target == info->ctx->prop_list->indirect_atom) {

-        (void) XGetWindowProperty(XtDisplay(info->widget),

-			   XtWindow(info->widget), info->property, 0L,

-			   10000000, True, AnyPropertyType, &type, &format,

-			   &proplength, &bytesafter, (unsigned char **) &pairs);

-       XFree((char*)pairs);

-       for (proplength = proplength / IndirectPairWordSize, i = 0, c = info->req_closure;

-	           proplength; proplength--, c++, i++)

-	    (*info->callbacks[i])(info->widget, *c,

-   	          &info->ctx->selection, &resulttype, value, &length, &format);

-    } else {

-	(*info->callbacks[0])(info->widget, *info->req_closure,

-	    &info->ctx->selection, &resulttype, value, &length, &format);

-    }

-

-    /* change event handlers for straggler events */

-    if (info->proc == (XtEventHandler)HandleSelectionReplies) {

-        XtRemoveEventHandler(info->widget, (EventMask)0,

-			TRUE, info->proc, (XtPointer) info);

-	XtAddEventHandler(info->widget, (EventMask)0, TRUE,

-		ReqCleanup, (XtPointer) info);

-    } else {

-        XtRemoveEventHandler(info->widget,(EventMask) PropertyChangeMask,

-			FALSE, info->proc, (XtPointer) info);

-	XtAddEventHandler(info->widget, (EventMask) PropertyChangeMask,

-		FALSE, ReqCleanup, (XtPointer) info);

-    }

-

-}

-

-/*ARGSUSED*/

-static void HandleGetIncrement(

-    Widget widget,

-    XtPointer closure,

-    XEvent *ev,

-    Boolean *cont)

-{

-    XPropertyEvent *event = (XPropertyEvent *) ev;

-    CallBackInfo info = (CallBackInfo) closure;

-    Select ctx = info->ctx;

-    char *value;

-    unsigned long bytesafter;

-    unsigned long length;

-    int bad;

-    int n = info->current;

-

-    if ((event->state != PropertyNewValue) || (event->atom != info->property))

-	 return;

-

-    bad = XGetWindowProperty(event->display, XtWindow(widget),

-			     event->atom, 0L,

-			     10000000, True, AnyPropertyType, &info->type,

-			     &info->format, &length, &bytesafter,

-			     (unsigned char **) &value);

-    if (bad)

-      return;

-#ifndef DEBUG_WO_TIMERS

-    XtRemoveTimeOut(info->timeout);

-#endif

-    if (length == 0) {

-       unsigned long u_offset = NUMELEM(info->offset, info->format);

-       (*info->callbacks[n])(widget, *info->req_closure, &ctx->selection,

-			     &info->type,

-			     (info->offset == 0 ? value : info->value),

-			     &u_offset, &info->format);

-       /* assert ((info->offset != 0) == (info->incremental[n]) */

-       if (info->offset != 0) XFree(value);

-       XtRemoveEventHandler(widget, (EventMask) PropertyChangeMask, FALSE,

-		HandleGetIncrement, (XtPointer) info);

-       FreeSelectionProperty(event->display, info->property);

-       FreeInfo(info);

-    } else { /* add increment to collection */

-      if (info->incremental[n]) {

-#ifdef XT_COPY_SELECTION

-	  int size = BYTELENGTH(length, info->format) + 1;

-	  char *tmp = __XtMalloc((Cardinal) size);

-	  (void) memmove(tmp, value, size);

-	  XFree(value);

-	  value = tmp;

-#endif

-        (*info->callbacks[n])(widget, *info->req_closure, &ctx->selection,

-			      &info->type, value, &length, &info->format);

-      } else {

-	  int size = BYTELENGTH(length, info->format);

-	  if (info->offset + size > info->bytelength) {

-	      /* allocate enough for this and the next increment */

-	      info->bytelength = info->offset + size * 2;

-	      info->value = XtRealloc(info->value,

-				      (Cardinal) info->bytelength);

-	  }

-	  (void) memmove(&info->value[info->offset], value, size);

-	  info->offset += size;

-	  XFree(value);

-      }

-     /* reset timer */

-#ifndef DEBUG_WO_TIMERS

-     {

-     XtAppContext app = XtWidgetToApplicationContext(info->widget);

-     info->timeout = XtAppAddTimeOut(app,

-			 app->selectionTimeout, ReqTimedOut, (XtPointer) info);

-     }

-#endif

-   }

-}

-

-

-static void HandleNone(

-    Widget widget,

-    XtSelectionCallbackProc callback,

-    XtPointer closure,

-    Atom selection)

-{

-    unsigned long length = 0;

-    int format = 8;

-    Atom type = None;

-

-    (*callback)(widget, closure, &selection,

-		&type, NULL, &length, &format);

-}

-

-

-static long IncrPropSize(

-     Widget widget,

-     unsigned char* value,

-     int format,

-     unsigned long length)

-{

-    unsigned long size;

-    if (format == 32) {

-	size = ((long*)value)[length-1]; /* %%% what order for longs? */

-	return size;

-    }

-    else {

-	XtAppWarningMsg( XtWidgetToApplicationContext(widget),

-			"badFormat","xtGetSelectionValue",XtCXtToolkitError,

-	"Selection owner returned type INCR property with format != 32",

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

-	return 0;

-    }

-}

-

-

-static

-Boolean HandleNormal(

-    Display *dpy,

-    Widget widget,

-    Atom property,

-    CallBackInfo info,

-    XtPointer closure,

-    Atom selection)

-{

-    unsigned long bytesafter;

-    unsigned long length;

-    int format;

-    Atom type;

-    unsigned char *value;

-    int number = info->current;

-

-    (void) XGetWindowProperty(dpy, XtWindow(widget), property, 0L,

-			      10000000, False, AnyPropertyType,

-			      &type, &format, &length, &bytesafter, &value);

-

-    if (type == info->ctx->prop_list->incr_atom) {

-	unsigned long size = IncrPropSize(widget, value, format, length);

-	XFree((char *)value);

-	if (info->property != property) {

-	    /* within MULTIPLE */

-	    CallBackInfo ninfo;

-	    ninfo = MakeInfo(info->ctx, &info->callbacks[number],

-			     &info->req_closure[number], 1, widget,

-			     info->time, &info->incremental[number], &property);

-	    ninfo->target = (Atom *) __XtMalloc((unsigned) sizeof(Atom));

-	    *ninfo->target = info->target[number + 1];

-	    info = ninfo;

-	}

-	HandleIncremental(dpy, widget, property, info, size);

-	return FALSE;

-    }

-

-    XDeleteProperty(dpy, XtWindow(widget), property);

-#ifdef XT_COPY_SELECTION

-    if (value) {   /* it could have been deleted after the SelectionNotify */

-	int size = BYTELENGTH(length, info->format) + 1;

-	char *tmp = __XtMalloc((Cardinal) size);

-	(void) memmove(tmp, value, size);

-	XFree(value);

-	value = (unsigned char *) tmp;

-    }

-#endif

-    (*info->callbacks[number])(widget, closure, &selection,

-			       &type, (XtPointer)value, &length, &format);

-

-    if (info->incremental[number]) {

-	/* let requestor know the whole thing has been received */

-	value = (unsigned char*)__XtMalloc((unsigned)1);

-	length = 0;

-	(*info->callbacks[number])(widget, closure, &selection,

-				   &type, (XtPointer)value, &length, &format);

-    }

-    return TRUE;

-}

-

-static void HandleIncremental(

-    Display *dpy,

-    Widget widget,

-    Atom property,

-    CallBackInfo info,

-    unsigned long size)

-{

-    XtAddEventHandler(widget, (EventMask) PropertyChangeMask, FALSE,

-		      HandleGetIncrement, (XtPointer) info);

-

-    /* now start the transfer */

-    XDeleteProperty(dpy, XtWindow(widget), property);

-    XFlush(dpy);

-

-    info->bytelength = size;

-    if (info->incremental[info->current]) /* requestor wants incremental too */

-	info->value = NULL;	/* so no need for buffer to assemble value */

-    else

-	info->value = (char *) __XtMalloc((unsigned) info->bytelength);

-    info->offset = 0;

-

-    /* reset the timer */

-    info->proc = HandleGetIncrement;

-#ifndef DEBUG_WO_TIMERS

-    {

-    XtAppContext app = XtWidgetToApplicationContext(info->widget);

-    info->timeout = XtAppAddTimeOut(app,

-			 app->selectionTimeout, ReqTimedOut, (XtPointer) info);

-    }

-#endif

-}

-

-/*ARGSUSED*/

-static void HandleSelectionReplies(

-    Widget widget,

-    XtPointer closure,

-    XEvent *ev,

-    Boolean *cont)

-{

-    XSelectionEvent *event = (XSelectionEvent *) ev;

-    Display *dpy = event->display;

-    CallBackInfo info = (CallBackInfo) closure;

-    Select ctx = info->ctx;

-    IndirectPair *pairs, *p;

-    unsigned long bytesafter;

-    unsigned long length;

-    int format;

-    Atom type;

-    XtPointer *c;

-

-    if (event->type != SelectionNotify) return;

-    if (!MATCH_SELECT(event, info)) return; /* not really for us */

-#ifndef DEBUG_WO_TIMERS

-    XtRemoveTimeOut(info->timeout);

-#endif

-    XtRemoveEventHandler(widget, (EventMask)0, TRUE,

-		HandleSelectionReplies, (XtPointer) info );

-    if (event->target == ctx->prop_list->indirect_atom) {

-        (void) XGetWindowProperty(dpy, XtWindow(widget), info->property, 0L,

-			   10000000, True, AnyPropertyType, &type, &format,

-			   &length, &bytesafter, (unsigned char **) &pairs);

-       for (length = length / IndirectPairWordSize, p = pairs,

-	    c = info->req_closure;

-	    length; length--, p++, c++, info->current++) {

-	    if (event->property == None || format != 32 || p->target == None

-		|| /* bug compatibility */ p->property == None) {

-		HandleNone(widget, info->callbacks[info->current],

-			   *c, event->selection);

-		if (p->property != None)

-                    FreeSelectionProperty(XtDisplay(widget), p->property);

-	    } else {

-		if (HandleNormal(dpy, widget, p->property, info, *c,

-				 event->selection)) {

-		    FreeSelectionProperty(XtDisplay(widget), p->property);

-		}

-	    }

-       }

-       XFree((char*)pairs);

-       FreeSelectionProperty(dpy, info->property);

-       FreeInfo(info);

-    } else if (event->property == None) {

-	HandleNone(widget, info->callbacks[0], *info->req_closure, event->selection);

-        FreeSelectionProperty(XtDisplay(widget), info->property);

-	FreeInfo(info);

-    } else {

-	if (HandleNormal(dpy, widget, event->property, info,

-			 *info->req_closure, event->selection)) {

-	    FreeSelectionProperty(XtDisplay(widget), info->property);

-	    FreeInfo(info);

-	}

-    }

-}

-

-static void DoLocalTransfer(

-    Request req,

-    Atom selection,

-    Atom target,

-    Widget widget,		/* The widget requesting the value. */

-    XtSelectionCallbackProc callback,

-    XtPointer closure,	/* the closure for the callback, not the conversion */

-    Boolean incremental,

-    Atom property)

-{

-    Select ctx = req->ctx;

-    XtPointer value = NULL, temp, total = NULL;

-    unsigned long length;

-    int format;

-    Atom resulttype;

-    unsigned long totallength = 0;

-

-        req->event.type = 0;

-        req->event.target = target;

-        req->event.property = req->property = property;

-        req->event.requestor = req->requestor = XtWindow(widget);

-

-	if (ctx->incremental) {

-	   unsigned long size = MAX_SELECTION_INCR(ctx->dpy);

-	   if (!(*(XtConvertSelectionIncrProc)ctx->convert)

-			   (ctx->widget, &selection, &target,

-			    &resulttype, &value, &length, &format,

-			    &size, ctx->owner_closure, (XtRequestId*)&req)) {

-	       HandleNone(widget, callback, closure, selection);

-	   }

-	   else {

-		if (incremental) {

-		  Boolean allSent = FALSE;

-	          while (!allSent) {

-	    	      if (ctx->notify && (value != NULL)) {

-              	        int bytelength = BYTELENGTH(length,format);

-	                /* both sides think they own this storage */

-	                temp = __XtMalloc((unsigned)bytelength);

-	                (void) memmove(temp, value, bytelength);

-	                value = temp;

-	              }

-		      /* use care; older clients were never warned that

-		       * they must return a value even if length==0

-		       */

-		     if (value == NULL) value = __XtMalloc((unsigned)1);

-		     (*callback)(widget, closure, &selection,

-			&resulttype, value, &length, &format);

-		     if (length) {

-			 /* should owner be notified on end-of-piece?

-			  * Spec is unclear, but non-local transfers don't.

-			  */

-			 (*(XtConvertSelectionIncrProc)ctx->convert)

-					(ctx->widget, &selection, &target,

-					 &resulttype, &value, &length, &format,

-					 &size, ctx->owner_closure,

-					 (XtRequestId*)&req);

-		     }

-		     else allSent = TRUE;

-		  }

-	        } else {

-	          while (length) {

-		    int bytelength = BYTELENGTH(length, format);

-		    total = XtRealloc(total,

-			    (unsigned) (totallength += bytelength));

-		    (void) memmove((char*)total + totallength - bytelength,

-			    value,

-			    bytelength);

-		    (*(XtConvertSelectionIncrProc)ctx->convert)

-			   (ctx->widget, &selection, &target,

-			    &resulttype, &value, &length, &format,

-			    &size, ctx->owner_closure, (XtRequestId*)&req);

-		  }

-		  if (total == NULL) total = __XtMalloc(1);

-		  totallength = NUMELEM(totallength, format);

-		  (*callback)(widget, closure, &selection, &resulttype,

-		    total,  &totallength, &format);

-	      }

-	      if (ctx->notify)

-		  (*(XtSelectionDoneIncrProc)ctx->notify)

-				(ctx->widget, &selection, &target,

-				 (XtRequestId*)&req, ctx->owner_closure);

-	      else XtFree((char*)value);

-	  }

-	} else { /* not incremental owner */

-	  if (!(*ctx->convert)(ctx->widget, &selection, &target,

-			     &resulttype, &value, &length, &format)) {

-	    HandleNone(widget, callback, closure, selection);

-	  } else {

-	      if (ctx->notify && (value != NULL)) {

-                int bytelength = BYTELENGTH(length,format);

-	        /* both sides think they own this storage; better copy */

-	        temp = __XtMalloc((unsigned)bytelength);

-	        (void) memmove(temp, value, bytelength);

-	        value = temp;

-	      }

-	      if (value == NULL) value = __XtMalloc((unsigned)1);

-	      (*callback)(widget, closure, &selection, &resulttype,

-			  value, &length, &format);

-	      if (ctx->notify)

-	         (*ctx->notify)(ctx->widget, &selection, &target);

-	  }

-      }

-}

-

-static void GetSelectionValue(

-    Widget widget,

-    Atom selection,

-    Atom target,

-    XtSelectionCallbackProc callback,

-    XtPointer closure,

-    Time time,

-    Boolean incremental,

-    Atom property)

-{

-    Select ctx;

-    CallBackInfo info;

-    Atom properties[1];

-

-    properties[0] = property;

-

-    ctx = FindCtx(XtDisplay(widget), selection);

-    if (ctx->widget && !ctx->was_disowned) {

-	RequestRec req;

-	ctx->req = &req;

-	req.ctx = ctx;

-	req.event.time = time;

-	ctx->ref_count++;

-	DoLocalTransfer(&req, selection, target, widget,

-			callback, closure, incremental, property);

-	if (--ctx->ref_count == 0 && ctx->free_when_done)

-	    XtFree((char*)ctx);

-	else

-	    ctx->req = NULL;

-    }

-    else {

-	info = MakeInfo(ctx, &callback, &closure, 1, widget,

-			time, &incremental, properties);

-	info->target = (Atom *)__XtMalloc((unsigned) sizeof(Atom));

-	 *(info->target) = target;

-	RequestSelectionValue(info, selection, target);

-    }

-}

-

-

-void XtGetSelectionValue(

-    Widget widget,

-    Atom selection,

-    Atom target,

-    XtSelectionCallbackProc callback,

-    XtPointer closure,

-    Time time)

-{

-    Atom property;

-    Boolean incr = False;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    property = GetParamInfo(widget, selection);

-    RemoveParamInfo(widget, selection);

-

-    if (IsGatheringRequest(widget, selection)) {

-      AddSelectionRequests(widget, selection, 1, &target, &callback, 1,

-			   &closure, &incr, &property);

-    } else {

-      GetSelectionValue(widget, selection, target, callback,

-			closure, time, FALSE, property);

-    }

-    UNLOCK_APP(app);

-}

-

-

-void XtGetSelectionValueIncremental(

-    Widget widget,

-    Atom selection,

-    Atom target,

-    XtSelectionCallbackProc callback,

-    XtPointer closure,

-    Time time)

-{

-    Atom property;

-    Boolean incr = TRUE;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    property = GetParamInfo(widget, selection);

-    RemoveParamInfo(widget, selection);

-

-    if (IsGatheringRequest(widget, selection)) {

-      AddSelectionRequests(widget, selection, 1, &target, &callback, 1,

-			   &closure, &incr, &property);

-    } else {

-      GetSelectionValue(widget, selection, target, callback,

-			closure, time, TRUE, property);

-    }

-

-    UNLOCK_APP(app);

-}

-

-

-static void GetSelectionValues(

-    Widget widget,

-    Atom selection,

-    Atom *targets,

-    int count,

-    XtSelectionCallbackProc *callbacks,

-    int num_callbacks,

-    XtPointer *closures,

-    Time time,

-    Boolean *incremental,

-    Atom *properties)

-{

-    Select ctx;

-    CallBackInfo info;

-    IndirectPair *pairs, *p;

-    Atom *t;

-

-    if (count == 0) return;

-    ctx = FindCtx(XtDisplay(widget), selection);

-    if (ctx->widget && !ctx->was_disowned) {

-        int j, i;

-	RequestRec req;

-	ctx->req = &req;

-	req.ctx = ctx;

-	req.event.time = time;

-	ctx->ref_count++;

-	for (i = 0, j = 0; count; count--, i++, j++ ) {

-	  if (j >= num_callbacks) j = 0;

-

-	  DoLocalTransfer(&req, selection, targets[i], widget,

-			  callbacks[j], closures[i], incremental[i],

-			  properties ? properties[i] : None);

-

-	}

-	if (--ctx->ref_count == 0 && ctx->free_when_done)

-	    XtFree((char*)ctx);

-	else

-	    ctx->req = NULL;

-    } else {

-        XtSelectionCallbackProc *passed_callbacks;

-	XtSelectionCallbackProc stack_cbs[32];

-        int i = 0, j = 0;

-

-	passed_callbacks = (XtSelectionCallbackProc *)

-	  XtStackAlloc(sizeof(XtSelectionCallbackProc) * count, stack_cbs);

-

-	/* To deal with the old calls from XtGetSelectionValues* we

-	   will repeat however many callbacks have been passed into

-	   the array */

-	for(i = 0; i < count; i++) {

-	  if (j >= num_callbacks) j = 0;

-	  passed_callbacks[i] = callbacks[j];

-	  j++;

-	}

-	info = MakeInfo(ctx, passed_callbacks, closures, count, widget,

-			time, incremental, properties);

-	XtStackFree((XtPointer) passed_callbacks, stack_cbs);

-

-	info->target = (Atom *)__XtMalloc((unsigned) ((count+1) * sizeof(Atom)));

-        (*info->target) = ctx->prop_list->indirect_atom;

-	(void) memmove((char *) info->target+sizeof(Atom), (char *) targets,

-		       count * sizeof(Atom));

-	pairs = (IndirectPair*)__XtMalloc((unsigned)(count*sizeof(IndirectPair)));

-	for (p = &pairs[count-1], t = &targets[count-1], i = count - 1;

-	     p >= pairs;  p--, t--, i--) {

-	   p->target = *t;

-	   if (properties == NULL || properties[i] == None) {

-	     p->property = GetSelectionProperty(XtDisplay(widget));

-	     XDeleteProperty(XtDisplay(widget), XtWindow(widget),

-			     p->property);

-	   } else {

-	     p->property = properties[i];

-	   }

-	}

-	XChangeProperty(XtDisplay(widget), XtWindow(widget),

-			info->property, info->property,

-			32, PropModeReplace, (unsigned char *) pairs,

-			count * IndirectPairWordSize);

-	XtFree((char*)pairs);

-	RequestSelectionValue(info, selection, ctx->prop_list->indirect_atom);

-    }

-}

-

-

-void XtGetSelectionValues(

-    Widget widget,

-    Atom selection,

-    Atom *targets,

-    int count,

-    XtSelectionCallbackProc callback,

-    XtPointer *closures,

-    Time time)

-{

-    Boolean incremental_values[32];

-    Boolean *incremental;

-    int i;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    incremental = XtStackAlloc(count * sizeof(Boolean), incremental_values);

-    for(i = 0; i < count; i++) incremental[i] = FALSE;

-    if (IsGatheringRequest(widget, selection)) {

-      AddSelectionRequests(widget, selection, count, targets, &callback,

-			   1, closures, incremental, NULL);

-    } else {

-      GetSelectionValues(widget, selection, targets, count, &callback, 1,

-			 closures, time, incremental, NULL);

-    }

-    XtStackFree((XtPointer) incremental, incremental_values);

-    UNLOCK_APP(app);

-}

-

-

-void XtGetSelectionValuesIncremental(

-    Widget widget,

-    Atom selection,

-    Atom *targets,

-    int count,

-    XtSelectionCallbackProc callback,

-    XtPointer *closures,

-    Time time)

-{

-    Boolean incremental_values[32];

-    Boolean *incremental;

-    int i;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    incremental = XtStackAlloc(count * sizeof(Boolean), incremental_values);

-    for(i = 0; i < count; i++) incremental[i] = TRUE;

-    if (IsGatheringRequest(widget, selection)) {

-      AddSelectionRequests(widget, selection, count, targets, &callback,

-			   1, closures, incremental, NULL);

-    } else {

-      GetSelectionValues(widget, selection, targets, count,

-			 &callback, 1, closures, time, incremental, NULL);

-    }

-    XtStackFree((XtPointer) incremental, incremental_values);

-    UNLOCK_APP(app);

-}

-

-

-static Request GetRequestRecord(

-    Widget widget,

-    Atom selection,

-    XtRequestId id)

-{

-    Request req = (Request)id;

-    Select ctx = NULL;

-

-    if (   (req == NULL

-	    && ((ctx = FindCtx( XtDisplay(widget), selection )) == NULL

-		|| ctx->req == NULL

-		|| ctx->selection != selection

-		|| ctx->widget == NULL))

-	|| (req != NULL

-	    && (req->ctx == NULL

-		|| req->ctx->selection != selection

-		|| req->ctx->widget != widget)))

-    {

-	String params = XtName(widget);

-	Cardinal num_params = 1;

-	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-			 "notInConvertSelection", "xtGetSelectionRequest",

-			 XtCXtToolkitError,

-			 "XtGetSelectionRequest or XtGetSelectionParameters called for widget \"%s\" outside of ConvertSelection proc",

-			 &params, &num_params

-		       );

-	return NULL;

-    }

-

-    if (req == NULL) {

-	/* non-incremental owner; only one request can be

-	 * outstanding at a time, so it's safe to keep ptr in ctx */

-	req = ctx->req;

-    }

-    return req;

-}

-

-XSelectionRequestEvent *XtGetSelectionRequest(

-    Widget widget,

-    Atom selection,

-    XtRequestId id)

-{

-    Request req = (Request)id;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-

-    req = GetRequestRecord(widget, selection, id);

-

-    if (! req) {

-	UNLOCK_APP(app);

-	return (XSelectionRequestEvent*) NULL;

-    }

-

-    if (req->event.type == 0) {

-	/* owner is local; construct the remainder of the event */

-	req->event.type = SelectionRequest;

-	req->event.serial = LastKnownRequestProcessed(XtDisplay(widget));

-	req->event.send_event = True;

-	req->event.display = XtDisplay(widget);

-	req->event.owner = XtWindow(req->ctx->widget);

-	req->event.selection = selection;

-    }

-    UNLOCK_APP(app);

-    return &req->event;

-}

-

-/* Property atom access */

-Atom XtReservePropertyAtom(

-     Widget w)

-{

-  return(GetSelectionProperty(XtDisplay(w)));

-}

-

-void XtReleasePropertyAtom(

-     Widget w,

-     Atom atom)

-{

-  FreeSelectionProperty(XtDisplay(w), atom);

-}

-

-

-/* Multiple utilities */

-

-/* All requests are put in a single list per widget.  It is

-   very unlikely anyone will be gathering multiple MULTIPLE

-   requests at the same time,  so the loss in efficiency for

-   this case is acceptable */

-

-/* Queue one or more requests to the one we're gathering */

-static void AddSelectionRequests(

-     Widget wid,

-     Atom sel,

-     int count,

-     Atom *targets,

-     XtSelectionCallbackProc *callbacks,

-     int num_cb,

-     XtPointer *closures,

-     Boolean *incrementals,

-     Atom *properties)

-{

-  QueuedRequestInfo qi;

-  Window window = XtWindow(wid);

-  Display *dpy = XtDisplay(wid);

-

-  LOCK_PROCESS;

-  if (multipleContext == 0) multipleContext = XUniqueContext();

-

-  qi = NULL;

-  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &qi);

-

-  if (qi != NULL) {

-    QueuedRequest *req = qi->requests;

-    int start = qi->count;

-    int i = 0;

-    int j = 0;

-

-    qi->count += count;

-    req = (QueuedRequest*) XtRealloc((char*) req,

-				     (start + count) *

-				     sizeof(QueuedRequest));

-    while(i < count) {

-      QueuedRequest newreq = (QueuedRequest)

-	__XtMalloc(sizeof(QueuedRequestRec));

-      newreq->selection = sel;

-      newreq->target = targets[i];

-      if (properties != NULL)

-	newreq->param = properties[i];

-      else {

-	newreq->param = GetSelectionProperty(dpy);

-	XDeleteProperty(dpy, window, newreq->param);

-      }

-      newreq->callback = callbacks[j];

-      newreq->closure = closures[i];

-      newreq->incremental = incrementals[i];

-

-      req[start] = newreq;

-      start++;

-      i++;

-      j++;

-      if (j > num_cb) j = 0;

-    }

-

-    qi->requests = req;

-  } else {

-    /* Impossible */

-  }

-

-  UNLOCK_PROCESS;

-}

-

-/* Only call IsGatheringRequest when we have a lock already */

-

-static Boolean IsGatheringRequest(

-     Widget wid,

-     Atom sel)

-{

-  QueuedRequestInfo qi;

-  Window window = XtWindow(wid);

-  Display *dpy = XtDisplay(wid);

-  Boolean found = False;

-  int i;

-

-  if (multipleContext == 0) multipleContext = XUniqueContext();

-

-  qi = NULL;

-  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &qi);

-

-  if (qi != NULL) {

-    i = 0;

-    while(qi->selections[i] != None) {

-      if (qi->selections[i] == sel) {

-	found = True;

-	break;

-      }

-      i++;

-    }

-  }

-

-  return(found);

-}

-

-/* Cleanup request scans the request queue and releases any

-   properties queued, and removes any requests queued */

-static void CleanupRequest(

-     Display *dpy,

-     QueuedRequestInfo qi,

-     Atom sel)

-{

-  int i, j, n;

-

-  i = 0;

-

-  /* Remove this selection from the list */

-  n = 0;

-  while(qi->selections[n] != sel &&

-	qi->selections[n] != None) n++;

-  if (qi->selections[n] == sel) {

-    while(qi->selections[n] != None) {

-      qi->selections[n] = qi->selections[n + 1];

-      n++;

-    }

-  }

-

-  while(i < qi->count) {

-    QueuedRequest req = qi->requests[i];

-

-    if (req->selection == sel) {

-      /* Match */

-      if (req->param != None)

-	FreeSelectionProperty(dpy, req->param);

-      qi->count--;

-

-      for(j = i; j < qi->count; j++)

-	qi->requests[j] = qi->requests[j + 1];

-

-      XtFree((char*) req);

-    } else {

-      i++;

-    }

-  }

-}

-

-void XtCreateSelectionRequest(

-    Widget widget,

-    Atom selection)

-{

-  QueuedRequestInfo queueInfo;

-  Window window = XtWindow(widget);

-  Display *dpy = XtDisplay(widget);

-  int n;

-

-  LOCK_PROCESS;

-  if (multipleContext == 0) multipleContext = XUniqueContext();

-

-  queueInfo = NULL;

-  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &queueInfo);

-

-  /* If there is one,  then cancel it */

-  if (queueInfo != NULL)

-    CleanupRequest(dpy, queueInfo, selection);

-  else {

-    /* Create it */

-    queueInfo = (QueuedRequestInfo) __XtMalloc(sizeof(QueuedRequestInfoRec));

-    queueInfo->count = 0;

-    queueInfo->selections = (Atom*) __XtMalloc(sizeof(Atom) * 2);

-    queueInfo->selections[0] = None;

-    queueInfo->requests = (QueuedRequest *)

-      __XtMalloc(sizeof(QueuedRequest));

-  }

-

-  /* Append this selection to list */

-  n = 0;

-  while(queueInfo->selections[n] != None) n++;

-  queueInfo->selections =

-    (Atom*) XtRealloc((char*) queueInfo->selections,

-		      (n + 2) * sizeof(Atom));

-  queueInfo->selections[n] = selection;

-  queueInfo->selections[n + 1] = None;

-

-  (void) XSaveContext(dpy, window, multipleContext, (char*) queueInfo);

-  UNLOCK_PROCESS;

-}

-

-void XtSendSelectionRequest(

-    Widget widget,

-    Atom selection,

-    Time time)

-{

-  QueuedRequestInfo queueInfo;

-  Window window = XtWindow(widget);

-  Display *dpy = XtDisplay(widget);

-

-  LOCK_PROCESS;

-  if (multipleContext == 0) multipleContext = XUniqueContext();

-

-  queueInfo = NULL;

-  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &queueInfo);

-  if (queueInfo != NULL) {

-    int count = 0;

-    int i;

-    QueuedRequest *req = queueInfo->requests;

-

-    /* Construct the requests and send it using

-       GetSelectionValues */

-    for(i = 0; i < queueInfo->count; i++)

-      if (req[i]->selection == selection) count++;

-

-    if (count > 0) {

-      if (count == 1) {

-	for(i = 0; i < queueInfo->count; i++)

-	  if (req[i]->selection == selection) break;

-

-	/* special case a multiple which isn't needed */

-	GetSelectionValue(widget, selection, req[i]->target,

-			  req[i]->callback, req[i]->closure, time,

-			  req[i]->incremental, req[i]->param);

-      } else {

-	Atom *targets;

-	Atom t[PREALLOCED];

-	XtSelectionCallbackProc *cbs;

-	XtSelectionCallbackProc c[PREALLOCED];

-	XtPointer *closures;

-	XtPointer cs[PREALLOCED];

-	Boolean *incrs;

-	Boolean ins[PREALLOCED];

-	Atom *props;

-	Atom p[PREALLOCED];

-	int i = 0;

-	int j = 0;

-

-	/* Allocate */

-	targets = (Atom *) XtStackAlloc(count * sizeof(Atom), t);

-	cbs = (XtSelectionCallbackProc *)

-	  XtStackAlloc(count * sizeof(XtSelectionCallbackProc), c);

-	closures = (XtPointer *) XtStackAlloc(count * sizeof(XtPointer), cs);

-	incrs = (Boolean *) XtStackAlloc(count * sizeof(Boolean), ins);

-	props = (Atom *) XtStackAlloc(count * sizeof(Atom), p);

-

-	/* Copy */

-	for(i = 0; i < queueInfo->count; i++) {

-	  if (req[i]->selection == selection) {

-	    targets[j] = req[i]->target;

-	    cbs[j] = req[i]->callback;

-	    closures[j] = req[i]->closure;

-	    incrs[j] = req[i]->incremental;

-	    props[j] = req[i]->param;

-	    j++;

-	  }

-	}

-

-	/* Make the request */

-	GetSelectionValues(widget, selection, targets, count,

-			   cbs, count, closures, time, incrs, props);

-

-	/* Free */

-	XtStackFree((XtPointer) targets, t);

-	XtStackFree((XtPointer) cbs, c);

-	XtStackFree((XtPointer) closures, cs);

-	XtStackFree((XtPointer) incrs, ins);

-	XtStackFree((XtPointer) props, p);

-      }

-    }

-  }

-

-  CleanupRequest(dpy, queueInfo, selection);

-  UNLOCK_PROCESS;

-}

-

-void XtCancelSelectionRequest(

-    Widget widget,

-    Atom selection)

-{

-  QueuedRequestInfo queueInfo;

-  Window window = XtWindow(widget);

-  Display *dpy = XtDisplay(widget);

-

-  LOCK_PROCESS;

-  if (multipleContext == 0) multipleContext = XUniqueContext();

-

-  queueInfo = NULL;

-  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &queueInfo);

-  /* If there is one,  then cancel it */

-  if (queueInfo != NULL)

-    CleanupRequest(dpy, queueInfo, selection);

-  UNLOCK_PROCESS;

-}

-

-/* Parameter utilities */

-

-/* Parameters on a selection request */

-/* Places data on allocated parameter atom,  then records the

-   parameter atom data for use in the next call to one of

-   the XtGetSelectionValue functions. */

-void XtSetSelectionParameters(

-    Widget requestor,

-    Atom selection,

-    Atom type,

-    XtPointer value,

-    unsigned long length,

-    int format)

-{

-  Display *dpy = XtDisplay(requestor);

-  Window window = XtWindow(requestor);

-  Atom property = GetParamInfo(requestor, selection);

-

-  if (property == None) {

-    property = GetSelectionProperty(dpy);

-    AddParamInfo(requestor, selection, property);

-  }

-

-  XChangeProperty(dpy, window, property,

-		  type, format, PropModeReplace,

-		  (unsigned char *) value, length);

-}

-

-/* Retrieves data passed in a parameter. Data for this is stored

-   on the originator's window */

-void XtGetSelectionParameters(

-    Widget owner,

-    Atom selection,

-    XtRequestId request_id,

-    Atom* type_return,

-    XtPointer* value_return,

-    unsigned long* length_return,

-    int* format_return)

-{

-    Request req;

-    Display *dpy = XtDisplay(owner);

-    WIDGET_TO_APPCON(owner);

-

-    *value_return = NULL;

-    *length_return = *format_return = 0;

-    *type_return = None;

-

-    LOCK_APP(app);

-

-    req = GetRequestRecord(owner, selection, request_id);

-

-    if (req && req->property) {

-	unsigned long bytes_after;	/* unused */

-	StartProtectedSection(dpy, req->requestor);

-	XGetWindowProperty(dpy, req->requestor, req->property, 0L, 10000000,

-			   False, AnyPropertyType, type_return, format_return,

-			   length_return, &bytes_after,

-			   (unsigned char**) value_return);

-	EndProtectedSection(dpy);

-#ifdef XT_COPY_SELECTION

-	if (*value_return) {

-	    int size = BYTELENGTH(*length_return, *format_return) + 1;

-	    char *tmp = __XtMalloc((Cardinal) size);

-	    (void) memmove(tmp, *value_return, size);

-	    XFree(*value_return);

-	    *value_return = tmp;

-	}

-#endif

-    }

-    UNLOCK_APP(app);

-}

-

-/*  Parameters are temporarily stashed in an XContext.  A list is used because

- *  there may be more than one selection request in progress.  The context

- *  data is deleted when the list is empty.  In the future, the parameter

- *  context could be merged with other contexts used during selections.

- */

-

-static void AddParamInfo(

-    Widget w,

-    Atom selection,

-    Atom param_atom)

-{

-    int n;

-    Param p;

-    ParamInfo pinfo;

-

-    LOCK_PROCESS;

-    if (paramPropertyContext == 0)

-	paramPropertyContext = XUniqueContext();

-

-    if (XFindContext(XtDisplay(w), XtWindow(w), paramPropertyContext,

-		     (XPointer *) &pinfo)) {

-	pinfo = (ParamInfo) __XtMalloc(sizeof(ParamInfoRec));

-	pinfo->count = 1;

-	pinfo->paramlist = XtNew(ParamRec);

-	p = pinfo->paramlist;

-	(void) XSaveContext(XtDisplay(w), XtWindow(w), paramPropertyContext,

-			    (char *)pinfo);

-    }

-    else {

-	for (n = pinfo->count, p = pinfo->paramlist; n; n--, p++) {

-	    if (p->selection == None || p->selection == selection)

-		break;

-	}

-	if (n == 0) {

-	    pinfo->count++;

-	    pinfo->paramlist = (Param)

-		XtRealloc((char*) pinfo->paramlist,

-			  pinfo->count * sizeof(ParamRec));

-	    p = &pinfo->paramlist[pinfo->count - 1];

-	    (void) XSaveContext(XtDisplay(w), XtWindow(w),

-				paramPropertyContext, (char *)pinfo);

-	}

-    }

-    p->selection = selection;

-    p->param = param_atom;

-    UNLOCK_PROCESS;

-}

-

-static void RemoveParamInfo(

-    Widget w,

-    Atom selection)

-{

-    int n;

-    Param p;

-    ParamInfo pinfo;

-    Boolean retain = False;

-

-    LOCK_PROCESS;

-    if (paramPropertyContext

-	&& (XFindContext(XtDisplay(w), XtWindow(w), paramPropertyContext,

-			 (XPointer *) &pinfo) == 0)) {

-

-	/* Find and invalidate the parameter data. */

-	for (n = pinfo->count, p = pinfo->paramlist; n; n--, p++) {

-	    if (p->selection != None) {

-		if (p->selection == selection)

-		    p->selection = None;

-		else

-		    retain = True;

-	    }

-	}

-	/* If there's no valid data remaining, release the context entry. */

-	if (! retain) {

-	    XtFree((char*) pinfo->paramlist);

-	    XtFree((char*) pinfo);

-	    XDeleteContext(XtDisplay(w), XtWindow(w), paramPropertyContext);

-	}

-    }

-    UNLOCK_PROCESS;

-}

-

-static Atom GetParamInfo(

-    Widget w,

-    Atom selection)

-{

-    int n;

-    Param p;

-    ParamInfo pinfo;

-    Atom atom = None;

-

-    LOCK_PROCESS;

-    if (paramPropertyContext

-	&& (XFindContext(XtDisplay(w), XtWindow(w), paramPropertyContext,

-			 (XPointer *) &pinfo) == 0)) {

-

-	for (n = pinfo->count, p = pinfo->paramlist; n; n--, p++)

-	    if (p->selection == selection) {

-		atom = p->param;

-		break;

-	    }

-    }

-    UNLOCK_PROCESS;

-    return atom;

-}

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "SelectionI.h"
+#include <X11/Xatom.h>
+#include <stdio.h>
+#include <unistd.h>
+
+void _XtSetDefaultSelectionTimeout(
+	unsigned long *timeout)
+{
+	*timeout = 5000; /* default to 5 seconds */
+}
+
+void XtSetSelectionTimeout(
+	unsigned long timeout)
+{
+	XtAppSetSelectionTimeout(_XtDefaultAppContext(), timeout);
+}
+
+void XtAppSetSelectionTimeout(
+	XtAppContext app,
+	unsigned long timeout)
+{
+	LOCK_APP(app);
+	app->selectionTimeout = timeout;
+	UNLOCK_APP(app);
+}
+
+unsigned long XtGetSelectionTimeout(void)
+{
+	return XtAppGetSelectionTimeout(_XtDefaultAppContext());
+}
+
+unsigned long XtAppGetSelectionTimeout(
+	XtAppContext app)
+{
+	unsigned long retval;
+
+	LOCK_APP(app);
+	retval = app->selectionTimeout;
+	UNLOCK_APP(app);
+	return retval;
+}
+
+
+/* General utilities */
+
+static void HandleSelectionReplies(Widget, XtPointer, XEvent *, Boolean *);
+static void ReqTimedOut(XtPointer, XtIntervalId *);
+static void HandlePropertyGone(Widget, XtPointer, XEvent *, Boolean *);
+static void HandleGetIncrement(Widget, XtPointer, XEvent *, Boolean *);
+static void HandleIncremental(Display *, Widget, Atom, CallBackInfo, unsigned long);
+
+static XContext selectPropertyContext = 0;
+static XContext paramPropertyContext = 0;
+static XContext multipleContext = 0;
+
+/* Multiple utilities */
+static void AddSelectionRequests(Widget, Atom, int, Atom *, XtSelectionCallbackProc *, int, XtPointer *, Boolean *, Atom *);
+static Boolean IsGatheringRequest(Widget, Atom);
+
+#define PREALLOCED 32
+
+/* Parameter utilities */
+static void AddParamInfo(Widget, Atom, Atom);
+static void RemoveParamInfo(Widget, Atom);
+static Atom GetParamInfo(Widget, Atom);
+
+static int StorageSize[3] = {1, sizeof(short), sizeof(long)};
+#define BYTELENGTH(length, format) ((length) * StorageSize[(format)>>4])
+#define NUMELEM(bytelength, format) ((bytelength) / StorageSize[(format)>>4])
+
+/* Xlib and Xt are permitted to have different memory allocators, and in the
+ * XtSelectionCallbackProc the client is instructed to free the selection
+ * value with XtFree, so the selection value received from XGetWindowProperty
+ * should be copied to memory allocated through Xt.  But copying is
+ * undesirable since the selection value may be large, and, under normal
+ * library configuration copying is unnecessary.
+ */
+#ifdef XTTRACEMEMORY
+#define XT_COPY_SELECTION	1
+#endif
+
+/*ARGSUSED*/
+static void FreePropList(
+ Widget w,			/* unused */
+ XtPointer closure,
+ XtPointer callData)		/* unused */
+{
+    PropList sarray = (PropList)closure;
+    LOCK_PROCESS;
+    XDeleteContext(sarray->dpy, DefaultRootWindow(sarray->dpy),
+		   selectPropertyContext);
+    UNLOCK_PROCESS;
+    XtFree((char*)sarray->list);
+    XtFree((char*)closure);
+}
+
+
+static PropList GetPropList(
+    Display *dpy)
+{
+    PropList sarray;
+    Atom atoms[4];
+    static char* names[] = {
+	"INCR",
+	"MULTIPLE",
+	"TIMESTAMP",
+	"_XT_SELECTION_0" };
+
+    LOCK_PROCESS;
+    if (selectPropertyContext == 0)
+	selectPropertyContext = XUniqueContext();
+    if (XFindContext(dpy, DefaultRootWindow(dpy), selectPropertyContext,
+		     (XPointer *)&sarray)) {
+	XtPerDisplay pd = _XtGetPerDisplay(dpy);
+	sarray = (PropList) __XtMalloc((unsigned) sizeof(PropListRec));
+	sarray->dpy = dpy;
+	XInternAtoms(dpy, names, 4, FALSE, atoms);
+	sarray->incr_atom = atoms[0];
+	sarray->indirect_atom = atoms[1];
+	sarray->timestamp_atom = atoms[2];
+	sarray->propCount = 1;
+	sarray->list =
+	    (SelectionProp)__XtMalloc((unsigned) sizeof(SelectionPropRec));
+	sarray->list[0].prop = atoms[3];
+	sarray->list[0].avail = TRUE;
+	(void) XSaveContext(dpy, DefaultRootWindow(dpy), selectPropertyContext,
+			    (char *) sarray);
+	_XtAddCallback( &pd->destroy_callbacks,
+			FreePropList, (XtPointer)sarray );
+    }
+    UNLOCK_PROCESS;
+    return sarray;
+}
+
+
+static Atom GetSelectionProperty(
+    Display *dpy)
+{
+ SelectionProp p;
+ int propCount;
+ char propname[80];
+ PropList sarray = GetPropList(dpy);
+
+ for (p = sarray->list, propCount=sarray->propCount;
+	propCount;
+	p++, propCount--) {
+   if (p->avail) {
+      p->avail = FALSE;
+      return(p->prop);
+   }
+ }
+ propCount = sarray->propCount++;
+ sarray->list = (SelectionProp) XtRealloc((XtPointer)sarray->list,
+  		(unsigned)(sarray->propCount*sizeof(SelectionPropRec)));
+ (void) snprintf(propname, sizeof(propname), "_XT_SELECTION_%d", propCount);
+ sarray->list[propCount].prop = XInternAtom(dpy, propname, FALSE);
+ sarray->list[propCount].avail = FALSE;
+ return(sarray->list[propCount].prop);
+}
+
+static void FreeSelectionProperty(
+    Display *dpy,
+    Atom prop)
+{
+ SelectionProp p;
+ PropList sarray;
+ if (prop == None) return;
+ LOCK_PROCESS;
+ if (XFindContext(dpy, DefaultRootWindow(dpy), selectPropertyContext,
+		  (XPointer *)&sarray))
+    XtAppErrorMsg(XtDisplayToApplicationContext(dpy),
+	    "noSelectionProperties", "freeSelectionProperty", XtCXtToolkitError,
+		"internal error: no selection property context for display",
+		 (String *)NULL,  (Cardinal *)NULL );
+ UNLOCK_PROCESS;
+ for (p = sarray->list; p; p++)
+   if (p->prop == prop) {
+      p->avail = TRUE;
+      return;
+      }
+}
+
+static void FreeInfo(
+    CallBackInfo info)
+{
+    XtFree((char*)info->incremental);
+    XtFree((char*)info->callbacks);
+    XtFree((char*)info->req_closure);
+    XtFree((char*)info->target);
+    XtFree((char*)info);
+}
+
+static CallBackInfo MakeInfo(
+    Select ctx,
+    XtSelectionCallbackProc *callbacks,
+    XtPointer *closures,
+    int count,
+    Widget widget,
+    Time time,
+    Boolean *incremental,
+    Atom *properties)
+{
+    	CallBackInfo info = XtNew(CallBackInfoRec);
+
+	info->ctx = ctx;
+	info->callbacks = (XtSelectionCallbackProc *)
+	    __XtMalloc((unsigned) (count * sizeof(XtSelectionCallbackProc)));
+	(void) memmove((char*)info->callbacks, (char*)callbacks,
+		       count * sizeof(XtSelectionCallbackProc));
+	info->req_closure =
+	    (XtPointer*)__XtMalloc((unsigned) (count * sizeof(XtPointer)));
+	(void) memmove((char*)info->req_closure, (char*)closures,
+		       count * sizeof(XtPointer));
+	if (count == 1 && properties != NULL && properties[0] != None)
+	    info->property = properties[0];
+	else {
+	    info->property = GetSelectionProperty(XtDisplay(widget));
+	    XDeleteProperty(XtDisplay(widget), XtWindow(widget),
+			    info->property);
+	}
+	info->proc = HandleSelectionReplies;
+	info->widget = widget;
+	info->time = time;
+	info->incremental = (Boolean*) __XtMalloc(count * sizeof(Boolean));
+	(void) memmove((char*)info->incremental, (char*) incremental,
+		       count * sizeof(Boolean));
+	info->current = 0;
+	info->value = NULL;
+	return (info);
+}
+
+static void RequestSelectionValue(
+    CallBackInfo info,
+    Atom selection,
+    Atom target)
+{
+#ifndef DEBUG_WO_TIMERS
+    XtAppContext app = XtWidgetToApplicationContext(info->widget);
+	info->timeout = XtAppAddTimeOut(app,
+			 app->selectionTimeout, ReqTimedOut, (XtPointer)info);
+#endif
+	XtAddEventHandler(info->widget, (EventMask)0, TRUE,
+			  HandleSelectionReplies, (XtPointer)info);
+	XConvertSelection(info->ctx->dpy, selection, target,
+			  info->property, XtWindow(info->widget), info->time);
+}
+
+
+static XContext selectContext = 0;
+
+static Select NewContext(
+    Display *dpy,
+    Atom selection)
+{
+    /* assert(selectContext != 0) */
+    Select ctx = XtNew(SelectRec);
+    ctx->dpy = dpy;
+    ctx->selection = selection;
+    ctx->widget = NULL;
+    ctx->prop_list = GetPropList(dpy);
+    ctx->ref_count = 0;
+    ctx->free_when_done = FALSE;
+    ctx->was_disowned = FALSE;
+    LOCK_PROCESS;
+    (void)XSaveContext(dpy, (Window)selection, selectContext, (char *)ctx);
+    UNLOCK_PROCESS;
+    return ctx;
+}
+
+static Select FindCtx(
+    Display *dpy,
+    Atom selection)
+{
+    Select ctx;
+
+    LOCK_PROCESS;
+    if (selectContext == 0)
+	selectContext = XUniqueContext();
+    if (XFindContext(dpy, (Window)selection, selectContext, (XPointer *)&ctx))
+	ctx = NewContext(dpy, selection);
+    UNLOCK_PROCESS;
+    return ctx;
+}
+
+/*ARGSUSED*/
+static void WidgetDestroyed(
+    Widget widget,
+    XtPointer closure, XtPointer data)
+{
+    Select ctx = (Select) closure;
+    if (ctx->widget == widget) {
+	if (ctx->free_when_done)
+	    XtFree((char*)ctx);
+	else
+	    ctx->widget = NULL;
+    }
+}
+
+/* Selection Owner code */
+
+static void HandleSelectionEvents(Widget, XtPointer, XEvent *, Boolean *);
+
+static Boolean LoseSelection(
+    Select ctx,
+    Widget widget,
+    Atom selection,
+    Time time)
+{
+    if ((ctx->widget == widget) &&
+	(ctx->selection == selection) && /* paranoia */
+	!ctx->was_disowned &&
+	((time == CurrentTime) || (time >= ctx->time)))
+    {
+	XtRemoveEventHandler(widget, (EventMask)0, TRUE,
+			     HandleSelectionEvents, (XtPointer)ctx);
+	XtRemoveCallback(widget, XtNdestroyCallback,
+			 WidgetDestroyed, (XtPointer)ctx);
+	ctx->was_disowned = TRUE; /* widget officially loses ownership */
+	/* now inform widget */
+	if (ctx->loses) {
+	    if (ctx->incremental)
+	       (*(XtLoseSelectionIncrProc)ctx->loses)
+		   (widget, &ctx->selection, ctx->owner_closure);
+	    else  (*ctx->loses)(widget, &ctx->selection);
+	}
+	return(TRUE);
+    }
+    else return(FALSE);
+}
+
+static XContext selectWindowContext = 0;
+
+/* %%% Xlib.h should make this public! */
+typedef int (*xErrorHandler)(Display*, XErrorEvent*);
+
+static xErrorHandler oldErrorHandler = NULL;
+static unsigned long firstProtectRequest;
+static Window errorWindow;
+
+static int LocalErrorHandler (
+    Display *dpy,
+    XErrorEvent *error)
+{
+    int retval;
+
+    /* If BadWindow error on selection requestor, nothing to do but let
+     * the transfer timeout.  Otherwise, invoke saved error handler. */
+
+    LOCK_PROCESS;
+
+    if (error->error_code == BadWindow && error->resourceid == errorWindow &&
+	error->serial >= firstProtectRequest) {
+	UNLOCK_PROCESS;
+	return 0;
+    }
+
+    if (oldErrorHandler == NULL) {
+	UNLOCK_PROCESS;
+	return 0;  /* should never happen */
+    }
+
+    retval = (*oldErrorHandler)(dpy, error);
+    UNLOCK_PROCESS;
+    return retval;
+}
+
+static void StartProtectedSection(
+    Display *dpy,
+    Window window)
+{
+    /* protect ourselves against request window being destroyed
+     * before completion of transfer */
+
+    LOCK_PROCESS;
+    oldErrorHandler = XSetErrorHandler(LocalErrorHandler);
+    firstProtectRequest = NextRequest(dpy);
+    errorWindow = window;
+    UNLOCK_PROCESS;
+}
+
+static void EndProtectedSection(
+    Display *dpy)
+{
+    /* flush any generated errors on requestor and
+     * restore original error handler */
+
+    XSync(dpy, False);
+
+    LOCK_PROCESS;
+    XSetErrorHandler(oldErrorHandler);
+    oldErrorHandler = NULL;
+    UNLOCK_PROCESS;
+}
+
+static void AddHandler(
+    Request req,
+    EventMask mask,
+    XtEventHandler proc,
+    XtPointer closure)
+{
+    Display *dpy = req->ctx->dpy;
+    Window window = req->requestor;
+    Widget widget = XtWindowToWidget(dpy, window);
+
+    if (widget != NULL) req->widget = widget;
+    else widget = req->widget;
+
+    if (XtWindow(widget) == window)
+	XtAddEventHandler(widget, mask, False, proc, closure);
+    else {
+	RequestWindowRec *requestWindowRec;
+	LOCK_PROCESS;
+	if (selectWindowContext == 0)
+	    selectWindowContext = XUniqueContext();
+	if (XFindContext(dpy, window, selectWindowContext,
+			 (XPointer *)&requestWindowRec)) {
+	    requestWindowRec = XtNew(RequestWindowRec);
+	    requestWindowRec->active_transfer_count = 0;
+	    (void)XSaveContext(dpy, window, selectWindowContext,
+			       (char *)requestWindowRec);
+	}
+	UNLOCK_PROCESS;
+	if (requestWindowRec->active_transfer_count++ == 0) {
+	    XtRegisterDrawable(dpy, window, widget);
+	    XSelectInput(dpy, window, mask);
+	}
+	XtAddRawEventHandler(widget, mask, FALSE, proc, closure);
+    }
+}
+
+static void RemoveHandler(
+    Request req,
+    EventMask mask,
+    XtEventHandler proc,
+    XtPointer closure)
+{
+    Display *dpy = req->ctx->dpy;
+    Window window = req->requestor;
+    Widget widget = req->widget;
+
+    if ((XtWindowToWidget(dpy, window) == widget) &&
+        (XtWindow(widget) != window)) {
+	/* we had to hang this window onto our widget; take it off */
+	RequestWindowRec* requestWindowRec;
+	XtRemoveRawEventHandler(widget, mask, TRUE, proc, closure);
+	LOCK_PROCESS;
+	(void)XFindContext(dpy, window, selectWindowContext,
+			   (XPointer *)&requestWindowRec);
+	UNLOCK_PROCESS;
+	if (--requestWindowRec->active_transfer_count == 0) {
+	    XtUnregisterDrawable(dpy, window);
+	    StartProtectedSection(dpy, window);
+	    XSelectInput(dpy, window, 0L);
+	    EndProtectedSection(dpy);
+	    LOCK_PROCESS;
+	    (void)XDeleteContext(dpy, window, selectWindowContext);
+	    UNLOCK_PROCESS;
+	    XtFree((char*)requestWindowRec);
+	}
+    } else {
+        XtRemoveEventHandler(widget, mask, TRUE,  proc, closure);
+    }
+}
+
+/* ARGSUSED */
+static void OwnerTimedOut(
+    XtPointer closure,
+    XtIntervalId   *id)
+{
+    Request req = (Request)closure;
+    Select ctx = req->ctx;
+
+    if (ctx->incremental && (ctx->owner_cancel != NULL)) {
+	(*ctx->owner_cancel)(ctx->widget, &ctx->selection,
+			     &req->target, (XtRequestId*)&req,
+			     ctx->owner_closure);
+    } else {
+	if (ctx->notify == NULL)
+	    XtFree((char*)req->value);
+	else {
+	    /* the requestor hasn't deleted the property, but
+	     * the owner needs to free the value.
+	     */
+	    if (ctx->incremental)
+		(*(XtSelectionDoneIncrProc)ctx->notify)
+			      (ctx->widget, &ctx->selection, &req->target,
+			       (XtRequestId*)&req, ctx->owner_closure);
+	    else
+		(*ctx->notify)(ctx->widget, &ctx->selection, &req->target);
+	}
+    }
+
+    RemoveHandler(req, (EventMask)PropertyChangeMask,
+		  HandlePropertyGone, closure);
+    XtFree((char*)req);
+    if (--ctx->ref_count == 0 && ctx->free_when_done)
+	XtFree((char*)ctx);
+}
+
+static void SendIncrement(
+    Request incr)
+{
+    Display *dpy = incr->ctx->dpy;
+
+    unsigned long incrSize = MAX_SELECTION_INCR(dpy);
+    if (incrSize > incr->bytelength - incr->offset)
+        incrSize = incr->bytelength - incr->offset;
+    StartProtectedSection(dpy, incr->requestor);
+    XChangeProperty(dpy, incr->requestor, incr->property,
+    	    incr->type, incr->format, PropModeReplace,
+	    (unsigned char *)incr->value + incr->offset,
+	    NUMELEM((int)incrSize, incr->format));
+    EndProtectedSection(dpy);
+    incr->offset += incrSize;
+}
+
+static void AllSent(
+    Request req)
+{
+    Select ctx = req->ctx;
+    StartProtectedSection(ctx->dpy, req->requestor);
+    XChangeProperty(ctx->dpy, req->requestor,
+		    req->property, req->type,  req->format,
+		    PropModeReplace, (unsigned char *) NULL, 0);
+    EndProtectedSection(ctx->dpy);
+    req->allSent = TRUE;
+
+    if (ctx->notify == NULL) XtFree((char*)req->value);
+}
+
+/*ARGSUSED*/
+static void HandlePropertyGone(
+    Widget widget,
+    XtPointer closure,
+    XEvent *ev,
+    Boolean *cont)
+{
+    XPropertyEvent *event = (XPropertyEvent *) ev;
+    Request req = (Request)closure;
+    Select ctx = req->ctx;
+
+    if ((event->type != PropertyNotify) ||
+        (event->state != PropertyDelete) ||
+	(event->atom != req->property) ||
+	(event->window != req->requestor))
+      return;
+#ifndef DEBUG_WO_TIMERS
+    XtRemoveTimeOut(req->timeout);
+#endif
+    if (req->allSent) {
+	if (ctx->notify) {
+	    if (ctx->incremental) {
+		(*(XtSelectionDoneIncrProc)ctx->notify)
+			      (ctx->widget, &ctx->selection, &req->target,
+			       (XtRequestId*)&req, ctx->owner_closure);
+	    }
+	    else (*ctx->notify)(ctx->widget, &ctx->selection, &req->target);
+	}
+	RemoveHandler(req, (EventMask)PropertyChangeMask,
+		      HandlePropertyGone, closure);
+	XtFree((char*)req);
+	if (--ctx->ref_count == 0 && ctx->free_when_done)
+	    XtFree((char*)ctx);
+    } else  { /* is this part of an incremental transfer? */
+	if (ctx->incremental) {
+	     if (req->bytelength == 0)
+		AllSent(req);
+	     else {
+		unsigned long size = MAX_SELECTION_INCR(ctx->dpy);
+    		SendIncrement(req);
+		(*(XtConvertSelectionIncrProc)ctx->convert)
+			   (ctx->widget, &ctx->selection, &req->target,
+			    &req->type, &req->value,
+			    &req->bytelength, &req->format,
+			    &size, ctx->owner_closure, (XtPointer*)&req);
+		if (req->bytelength)
+		    req->bytelength = BYTELENGTH(req->bytelength, req->format);
+		req->offset = 0;
+	    }
+	} else {
+	    if (req->offset < req->bytelength)
+		SendIncrement(req);
+	    else AllSent(req);
+	}
+#ifndef DEBUG_WO_TIMERS
+	{
+	  XtAppContext app = XtWidgetToApplicationContext(req->widget);
+	  req->timeout = XtAppAddTimeOut(app,
+			 app->selectionTimeout, OwnerTimedOut, (XtPointer)req);
+	}
+#endif
+    }
+}
+
+static void PrepareIncremental(
+    Request req,
+    Widget widget,
+    Window window,
+    Atom property,
+    Atom target,
+    Atom targetType,
+    XtPointer value,
+    unsigned long length,
+    int format)
+{
+	req->type = targetType;
+	req->value = value;
+	req->bytelength = BYTELENGTH(length,format);
+	req->format = format;
+	req->offset = 0;
+	req->target = target;
+	req->widget = widget;
+	req->allSent = FALSE;
+#ifndef DEBUG_WO_TIMERS
+	{
+	XtAppContext app = XtWidgetToApplicationContext(widget);
+	req->timeout = XtAppAddTimeOut(app,
+			 app->selectionTimeout, OwnerTimedOut, (XtPointer)req);
+	}
+#endif
+	AddHandler(req, (EventMask)PropertyChangeMask,
+		   HandlePropertyGone, (XtPointer)req);
+/* now send client INCR property */
+	XChangeProperty(req->ctx->dpy, window, req->property,
+			req->ctx->prop_list->incr_atom,
+			32, PropModeReplace,
+			(unsigned char *)&req->bytelength, 1);
+}
+
+static Boolean GetConversion(
+    Select ctx,			/* logical owner */
+    XSelectionRequestEvent* event,
+    Atom target,
+    Atom property,		/* requestor's property */
+    Widget widget)		/* physical owner (receives events) */
+{
+    XtPointer value = NULL;
+    unsigned long length;
+    int format;
+    Atom targetType;
+    Request req = XtNew(RequestRec);
+    Boolean timestamp_target = (target == ctx->prop_list->timestamp_atom);
+
+    req->ctx = ctx;
+    req->event = *event;
+    req->property = property;
+    req->requestor = event->requestor;
+
+    if (timestamp_target) {
+	value = __XtMalloc(sizeof(long));
+	*(long*)value = ctx->time;
+	targetType = XA_INTEGER;
+	length = 1;
+	format = 32;
+    }
+    else {
+	ctx->ref_count++;
+	if (ctx->incremental == TRUE) {
+	     unsigned long size = MAX_SELECTION_INCR(ctx->dpy);
+	     if ((*(XtConvertSelectionIncrProc)ctx->convert)
+			       (ctx->widget, &event->selection, &target,
+				&targetType, &value, &length, &format,
+				&size, ctx->owner_closure, (XtRequestId*)&req)
+		     == FALSE) {
+		 XtFree((char*)req);
+		 ctx->ref_count--;
+		 return(FALSE);
+	     }
+	     StartProtectedSection(ctx->dpy, event->requestor);
+	     PrepareIncremental(req, widget, event->requestor, property,
+				target, targetType, value, length, format);
+	     return(TRUE);
+	}
+	ctx->req = req;
+	if ((*ctx->convert)(ctx->widget, &event->selection, &target,
+			    &targetType, &value, &length, &format) == FALSE) {
+	    XtFree((char*)req);
+	    ctx->req = NULL;
+	    ctx->ref_count--;
+	    return(FALSE);
+	}
+	ctx->req = NULL;
+    }
+    StartProtectedSection(ctx->dpy, event->requestor);
+    if (BYTELENGTH(length,format) <= (unsigned long) MAX_SELECTION_INCR(ctx->dpy)) {
+	if (! timestamp_target) {
+	    if (ctx->notify != NULL) {
+		  req->target = target;
+		  req->widget = widget;
+		  req->allSent = TRUE;
+#ifndef DEBUG_WO_TIMERS
+		  {
+		  XtAppContext app = XtWidgetToApplicationContext(req->widget);
+		  req->timeout = XtAppAddTimeOut(app,
+			 app->selectionTimeout, OwnerTimedOut, (XtPointer)req);
+		  }
+#endif
+	          AddHandler(req, (EventMask)PropertyChangeMask,
+			     HandlePropertyGone, (XtPointer)req);
+	      }
+	      else ctx->ref_count--;
+        }
+	XChangeProperty(ctx->dpy, event->requestor, property,
+			targetType, format, PropModeReplace,
+			(unsigned char *)value, (int)length);
+	/* free storage for client if no notify proc */
+	if (timestamp_target || ctx->notify == NULL) {
+	    XtFree((char*)value);
+	    XtFree((char*)req);
+	}
+    } else {
+	 PrepareIncremental(req, widget, event->requestor, property,
+			    target, targetType, value, length, format);
+    }
+    return(TRUE);
+}
+
+/*ARGSUSED*/
+static void HandleSelectionEvents(
+    Widget widget,
+    XtPointer closure,
+    XEvent *event,
+    Boolean *cont)
+{
+    Select ctx;
+    XSelectionEvent ev;
+    Atom target;
+    int count;
+    Boolean writeback = FALSE;
+
+    ctx = (Select) closure;
+    switch (event->type) {
+      case SelectionClear:
+	/* if this event is not for the selection we registered for,
+	 * don't do anything */
+	if (ctx->selection != event->xselectionclear.selection ||
+	    ctx->serial > event->xselectionclear.serial)
+	    break;
+	(void) LoseSelection(ctx, widget, event->xselectionclear.selection,
+			event->xselectionclear.time);
+	break;
+      case SelectionRequest:
+	/* if this event is not for the selection we registered for,
+	 * don't do anything */
+	if (ctx->selection != event->xselectionrequest.selection)
+	    break;
+	ev.type = SelectionNotify;
+	ev.display = event->xselectionrequest.display;
+	ev.requestor = event->xselectionrequest.requestor;
+	ev.selection = event->xselectionrequest.selection;
+	ev.time = event->xselectionrequest.time;
+	ev.target = event->xselectionrequest.target;
+	if (event->xselectionrequest.property == None) /* obsolete requestor */
+	   event->xselectionrequest.property = event->xselectionrequest.target;
+	if (ctx->widget != widget || ctx->was_disowned
+	   || ((event->xselectionrequest.time != CurrentTime)
+	        && (event->xselectionrequest.time < ctx->time))) {
+	    ev.property = None;
+	    StartProtectedSection(ev.display, ev.requestor);
+	} else {
+	   if (ev.target == ctx->prop_list->indirect_atom) {
+	      IndirectPair *p;
+	      int format;
+	      unsigned long bytesafter, length;
+	      unsigned char *value;
+	      ev.property = event->xselectionrequest.property;
+	      StartProtectedSection(ev.display, ev.requestor);
+	      (void) XGetWindowProperty(ev.display, ev.requestor,
+			event->xselectionrequest.property, 0L, 1000000,
+			False,(Atom)AnyPropertyType, &target, &format, &length,
+			&bytesafter, &value);
+	      count = BYTELENGTH(length, format) / sizeof(IndirectPair);
+	      for (p = (IndirectPair *)value; count; p++, count--) {
+		  EndProtectedSection(ctx->dpy);
+		  if (!GetConversion(ctx, (XSelectionRequestEvent*)event,
+				     p->target, p->property, widget)) {
+
+			p->target = None;
+			writeback = TRUE;
+			StartProtectedSection(ctx->dpy, ev.requestor);
+		  }
+	      }
+	      if (writeback)
+		XChangeProperty(ev.display, ev.requestor,
+			event->xselectionrequest.property, target,
+			format, PropModeReplace, value, (int)length);
+	      XFree((char *)value);
+	  } else /* not multiple */ {
+	       if (GetConversion(ctx, (XSelectionRequestEvent*)event,
+				 event->xselectionrequest.target,
+				 event->xselectionrequest.property,
+				 widget))
+		   ev.property = event->xselectionrequest.property;
+	       else {
+		   ev.property = None;
+		   StartProtectedSection(ctx->dpy, ev.requestor);
+	       }
+	   }
+      }
+      (void) XSendEvent(ctx->dpy, ev.requestor, False, (unsigned long)NULL,
+		   (XEvent *) &ev);
+
+      EndProtectedSection(ctx->dpy);
+
+      break;
+    }
+}
+
+static Boolean OwnSelection(
+    Widget widget,
+    Atom selection,
+    Time time,
+    XtConvertSelectionProc convert,
+    XtLoseSelectionProc lose,
+    XtSelectionDoneProc notify,
+    XtCancelConvertSelectionProc cancel,
+    XtPointer closure,
+    Boolean incremental)
+{
+    Select ctx;
+    Select oldctx = NULL;
+
+    if (!XtIsRealized(widget)) return False;
+
+    ctx = FindCtx(XtDisplay(widget), selection);
+    if (ctx->widget != widget || ctx->time != time ||
+	ctx->ref_count || ctx->was_disowned)
+    {
+	Boolean replacement = FALSE;
+	Window window = XtWindow(widget);
+	unsigned long serial = XNextRequest(ctx->dpy);
+        XSetSelectionOwner(ctx->dpy, selection, window, time);
+        if (XGetSelectionOwner(ctx->dpy, selection) != window)
+	    return FALSE;
+	if (ctx->ref_count) {	/* exchange is in-progress */
+#ifdef DEBUG_ACTIVE
+	    printf( "Active exchange for widget \"%s\"; selection=0x%lx, ref_count=%d\n",
+		    XtName(widget), (long)selection, ctx->ref_count );
+#endif
+	    if (ctx->widget != widget ||
+		ctx->convert != convert ||
+		ctx->loses != lose ||
+		ctx->notify != notify ||
+		ctx->owner_cancel != cancel ||
+		ctx->incremental != incremental ||
+		ctx->owner_closure != closure)
+	    {
+		if (ctx->widget == widget) {
+		    XtRemoveEventHandler(widget, (EventMask)0, TRUE,
+					HandleSelectionEvents, (XtPointer)ctx);
+		    XtRemoveCallback(widget, XtNdestroyCallback,
+				     WidgetDestroyed, (XtPointer)ctx);
+		    replacement = TRUE;
+		}
+		else if (!ctx->was_disowned) {
+		    oldctx = ctx;
+		}
+		ctx->free_when_done = TRUE;
+		ctx = NewContext(XtDisplay(widget), selection);
+	    }
+	    else if (!ctx->was_disowned) { /* current owner is new owner */
+		ctx->time = time;
+		return TRUE;
+	    }
+	}
+    	if (ctx->widget != widget || ctx->was_disowned || replacement) {
+	    if (ctx->widget && !ctx->was_disowned && !replacement) {
+		oldctx = ctx;
+		oldctx->free_when_done = TRUE;
+		ctx = NewContext(XtDisplay(widget), selection);
+	    }
+	    XtAddEventHandler(widget, (EventMask)0, TRUE,
+			      HandleSelectionEvents, (XtPointer)ctx);
+	    XtAddCallback(widget, XtNdestroyCallback,
+			  WidgetDestroyed, (XtPointer)ctx);
+	}
+	ctx->widget = widget;	/* Selection offically changes hands. */
+	ctx->time = time;
+	ctx->serial = serial;
+    }
+    ctx->convert = convert;
+    ctx->loses = lose;
+    ctx->notify = notify;
+    ctx->owner_cancel = cancel;
+    ctx->incremental = incremental;
+    ctx->owner_closure = closure;
+    ctx->was_disowned = FALSE;
+
+    /* Defer calling the previous selection owner's lose selection procedure
+     * until the new selection is established, to allow the previous
+     * selection owner to ask for the new selection to be converted in
+     * the lose selection procedure.  The context pointer is the closure
+     * of the event handler and the destroy callback, so the old context
+     * pointer and the record contents must be preserved for LoseSelection.
+     */
+    if (oldctx) {
+	(void) LoseSelection(oldctx, oldctx->widget, selection, oldctx->time);
+	if (!oldctx->ref_count && oldctx->free_when_done)
+	    XtFree((char*)oldctx);
+    }
+    return TRUE;
+}
+
+
+Boolean XtOwnSelection(
+    Widget widget,
+    Atom selection,
+    Time time,
+    XtConvertSelectionProc convert,
+    XtLoseSelectionProc lose,
+    XtSelectionDoneProc notify)
+{
+    Boolean retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    retval = OwnSelection(widget, selection, time, convert, lose, notify,
+			(XtCancelConvertSelectionProc)NULL,
+			(XtPointer)NULL, FALSE);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+
+Boolean XtOwnSelectionIncremental(
+    Widget widget,
+    Atom selection,
+    Time time,
+    XtConvertSelectionIncrProc convert,
+    XtLoseSelectionIncrProc lose,
+    XtSelectionDoneIncrProc notify,
+    XtCancelConvertSelectionProc cancel,
+    XtPointer closure)
+{
+    Boolean retval;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    retval = OwnSelection(widget, selection, time,
+			(XtConvertSelectionProc)convert,
+			(XtLoseSelectionProc)lose,
+			(XtSelectionDoneProc)notify,
+			cancel, closure, TRUE);
+    UNLOCK_APP(app);
+    return retval;
+}
+
+
+void XtDisownSelection(
+    Widget widget,
+    Atom selection,
+    Time time)
+{
+    Select ctx;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    ctx = FindCtx(XtDisplay(widget), selection);
+    if (LoseSelection(ctx, widget, selection, time))
+	XSetSelectionOwner(XtDisplay(widget), selection, None, time);
+    UNLOCK_APP(app);
+}
+
+/* Selection Requestor code */
+
+static Boolean IsINCRtype(
+    CallBackInfo info,
+    Window window,
+    Atom prop)
+{
+    unsigned long bytesafter;
+    unsigned long length;
+    int format;
+    Atom type;
+    unsigned char *value;
+
+    if (prop == None) return False;
+
+    (void)XGetWindowProperty(XtDisplay(info->widget), window, prop, 0L, 0L,
+			     False, info->ctx->prop_list->incr_atom,
+			     &type, &format, &length, &bytesafter, &value);
+
+    return (type == info->ctx->prop_list->incr_atom);
+}
+
+/*ARGSUSED*/
+static void ReqCleanup(
+    Widget widget,
+    XtPointer closure,
+    XEvent *ev,
+    Boolean *cont)
+{
+    CallBackInfo info = (CallBackInfo)closure;
+    unsigned long bytesafter, length;
+    char *value;
+    int format;
+    Atom target;
+
+    if (ev->type == SelectionNotify) {
+	XSelectionEvent *event = (XSelectionEvent *) ev;
+	if (!MATCH_SELECT(event, info)) return; /* not really for us */
+         XtRemoveEventHandler(widget, (EventMask)0, TRUE,
+			   ReqCleanup, (XtPointer) info );
+	if (IsINCRtype(info, XtWindow(widget), event->property)) {
+	    info->proc = HandleGetIncrement;
+	    XtAddEventHandler(info->widget, (EventMask) PropertyChangeMask,
+			      FALSE, ReqCleanup, (XtPointer) info);
+	} else {
+	   if (event->property != None)
+		XDeleteProperty(event->display, XtWindow(widget),
+				event->property);
+           FreeSelectionProperty(XtDisplay(widget), info->property);
+	   FreeInfo(info);
+	}
+    } else if ((ev->type == PropertyNotify) &&
+		(ev->xproperty.state == PropertyNewValue) &&
+	        (ev->xproperty.atom == info->property)) {
+	XPropertyEvent *event = (XPropertyEvent *) ev;
+        (void) XGetWindowProperty(event->display, XtWindow(widget),
+			   event->atom, 0L, 1000000, True, AnyPropertyType,
+			   &target, &format, &length, &bytesafter,
+			   (unsigned char **) &value);
+	XFree(value);
+	if (length == 0) {
+           XtRemoveEventHandler(widget, (EventMask) PropertyChangeMask, FALSE,
+			   ReqCleanup, (XtPointer) info );
+           FreeSelectionProperty(XtDisplay(widget), info->property);
+	   XtFree(info->value);	/* requestor never got this, so free now */
+	   FreeInfo(info);
+	}
+    }
+}
+
+/* ARGSUSED */
+static void ReqTimedOut(
+    XtPointer closure,
+    XtIntervalId   *id)
+{
+    XtPointer value = NULL;
+    unsigned long length = 0;
+    int format = 8;
+    Atom resulttype = XT_CONVERT_FAIL;
+    CallBackInfo info = (CallBackInfo)closure;
+    unsigned long bytesafter;
+    unsigned long proplength;
+    Atom type;
+    IndirectPair *pairs;
+    XtPointer *c;
+    int i;
+
+    if (*info->target == info->ctx->prop_list->indirect_atom) {
+        (void) XGetWindowProperty(XtDisplay(info->widget),
+			   XtWindow(info->widget), info->property, 0L,
+			   10000000, True, AnyPropertyType, &type, &format,
+			   &proplength, &bytesafter, (unsigned char **) &pairs);
+       XFree((char*)pairs);
+       for (proplength = proplength / IndirectPairWordSize, i = 0, c = info->req_closure;
+	           proplength; proplength--, c++, i++)
+	    (*info->callbacks[i])(info->widget, *c,
+   	          &info->ctx->selection, &resulttype, value, &length, &format);
+    } else {
+	(*info->callbacks[0])(info->widget, *info->req_closure,
+	    &info->ctx->selection, &resulttype, value, &length, &format);
+    }
+
+    /* change event handlers for straggler events */
+    if (info->proc == (XtEventHandler)HandleSelectionReplies) {
+        XtRemoveEventHandler(info->widget, (EventMask)0,
+			TRUE, info->proc, (XtPointer) info);
+	XtAddEventHandler(info->widget, (EventMask)0, TRUE,
+		ReqCleanup, (XtPointer) info);
+    } else {
+        XtRemoveEventHandler(info->widget,(EventMask) PropertyChangeMask,
+			FALSE, info->proc, (XtPointer) info);
+	XtAddEventHandler(info->widget, (EventMask) PropertyChangeMask,
+		FALSE, ReqCleanup, (XtPointer) info);
+    }
+
+}
+
+/*ARGSUSED*/
+static void HandleGetIncrement(
+    Widget widget,
+    XtPointer closure,
+    XEvent *ev,
+    Boolean *cont)
+{
+    XPropertyEvent *event = (XPropertyEvent *) ev;
+    CallBackInfo info = (CallBackInfo) closure;
+    Select ctx = info->ctx;
+    char *value;
+    unsigned long bytesafter;
+    unsigned long length;
+    int bad;
+    int n = info->current;
+
+    if ((event->state != PropertyNewValue) || (event->atom != info->property))
+	 return;
+
+    bad = XGetWindowProperty(event->display, XtWindow(widget),
+			     event->atom, 0L,
+			     10000000, True, AnyPropertyType, &info->type,
+			     &info->format, &length, &bytesafter,
+			     (unsigned char **) &value);
+    if (bad)
+      return;
+#ifndef DEBUG_WO_TIMERS
+    XtRemoveTimeOut(info->timeout);
+#endif
+    if (length == 0) {
+       unsigned long u_offset = NUMELEM(info->offset, info->format);
+       (*info->callbacks[n])(widget, *info->req_closure, &ctx->selection,
+			     &info->type,
+			     (info->offset == 0 ? value : info->value),
+			     &u_offset, &info->format);
+       /* assert ((info->offset != 0) == (info->incremental[n]) */
+       if (info->offset != 0) XFree(value);
+       XtRemoveEventHandler(widget, (EventMask) PropertyChangeMask, FALSE,
+		HandleGetIncrement, (XtPointer) info);
+       FreeSelectionProperty(event->display, info->property);
+       FreeInfo(info);
+    } else { /* add increment to collection */
+      if (info->incremental[n]) {
+#ifdef XT_COPY_SELECTION
+	  int size = BYTELENGTH(length, info->format) + 1;
+	  char *tmp = __XtMalloc((Cardinal) size);
+	  (void) memmove(tmp, value, size);
+	  XFree(value);
+	  value = tmp;
+#endif
+        (*info->callbacks[n])(widget, *info->req_closure, &ctx->selection,
+			      &info->type, value, &length, &info->format);
+      } else {
+	  int size = BYTELENGTH(length, info->format);
+	  if (info->offset + size > info->bytelength) {
+	      /* allocate enough for this and the next increment */
+	      info->bytelength = info->offset + size * 2;
+	      info->value = XtRealloc(info->value,
+				      (Cardinal) info->bytelength);
+	  }
+	  (void) memmove(&info->value[info->offset], value, size);
+	  info->offset += size;
+	  XFree(value);
+      }
+     /* reset timer */
+#ifndef DEBUG_WO_TIMERS
+     {
+     XtAppContext app = XtWidgetToApplicationContext(info->widget);
+     info->timeout = XtAppAddTimeOut(app,
+			 app->selectionTimeout, ReqTimedOut, (XtPointer) info);
+     }
+#endif
+   }
+}
+
+
+static void HandleNone(
+    Widget widget,
+    XtSelectionCallbackProc callback,
+    XtPointer closure,
+    Atom selection)
+{
+    unsigned long length = 0;
+    int format = 8;
+    Atom type = None;
+
+    (*callback)(widget, closure, &selection,
+		&type, NULL, &length, &format);
+}
+
+
+static long IncrPropSize(
+     Widget widget,
+     unsigned char* value,
+     int format,
+     unsigned long length)
+{
+    unsigned long size;
+    if (format == 32) {
+	size = ((long*)value)[length-1]; /* %%% what order for longs? */
+	return size;
+    }
+    else {
+	XtAppWarningMsg( XtWidgetToApplicationContext(widget),
+			"badFormat","xtGetSelectionValue",XtCXtToolkitError,
+	"Selection owner returned type INCR property with format != 32",
+			(String*)NULL, (Cardinal*)NULL );
+	return 0;
+    }
+}
+
+
+static
+Boolean HandleNormal(
+    Display *dpy,
+    Widget widget,
+    Atom property,
+    CallBackInfo info,
+    XtPointer closure,
+    Atom selection)
+{
+    unsigned long bytesafter;
+    unsigned long length;
+    int format;
+    Atom type;
+    unsigned char *value;
+    int number = info->current;
+
+    (void) XGetWindowProperty(dpy, XtWindow(widget), property, 0L,
+			      10000000, False, AnyPropertyType,
+			      &type, &format, &length, &bytesafter, &value);
+
+    if (type == info->ctx->prop_list->incr_atom) {
+	unsigned long size = IncrPropSize(widget, value, format, length);
+	XFree((char *)value);
+	if (info->property != property) {
+	    /* within MULTIPLE */
+	    CallBackInfo ninfo;
+	    ninfo = MakeInfo(info->ctx, &info->callbacks[number],
+			     &info->req_closure[number], 1, widget,
+			     info->time, &info->incremental[number], &property);
+	    ninfo->target = (Atom *) __XtMalloc((unsigned) sizeof(Atom));
+	    *ninfo->target = info->target[number + 1];
+	    info = ninfo;
+	}
+	HandleIncremental(dpy, widget, property, info, size);
+	return FALSE;
+    }
+
+    XDeleteProperty(dpy, XtWindow(widget), property);
+#ifdef XT_COPY_SELECTION
+    if (value) {   /* it could have been deleted after the SelectionNotify */
+	int size = BYTELENGTH(length, info->format) + 1;
+	char *tmp = __XtMalloc((Cardinal) size);
+	(void) memmove(tmp, value, size);
+	XFree(value);
+	value = (unsigned char *) tmp;
+    }
+#endif
+    (*info->callbacks[number])(widget, closure, &selection,
+			       &type, (XtPointer)value, &length, &format);
+
+    if (info->incremental[number]) {
+	/* let requestor know the whole thing has been received */
+	value = (unsigned char*)__XtMalloc((unsigned)1);
+	length = 0;
+	(*info->callbacks[number])(widget, closure, &selection,
+				   &type, (XtPointer)value, &length, &format);
+    }
+    return TRUE;
+}
+
+static void HandleIncremental(
+    Display *dpy,
+    Widget widget,
+    Atom property,
+    CallBackInfo info,
+    unsigned long size)
+{
+    XtAddEventHandler(widget, (EventMask) PropertyChangeMask, FALSE,
+		      HandleGetIncrement, (XtPointer) info);
+
+    /* now start the transfer */
+    XDeleteProperty(dpy, XtWindow(widget), property);
+    XFlush(dpy);
+
+    info->bytelength = size;
+    if (info->incremental[info->current]) /* requestor wants incremental too */
+	info->value = NULL;	/* so no need for buffer to assemble value */
+    else
+	info->value = (char *) __XtMalloc((unsigned) info->bytelength);
+    info->offset = 0;
+
+    /* reset the timer */
+    info->proc = HandleGetIncrement;
+#ifndef DEBUG_WO_TIMERS
+    {
+    XtAppContext app = XtWidgetToApplicationContext(info->widget);
+    info->timeout = XtAppAddTimeOut(app,
+			 app->selectionTimeout, ReqTimedOut, (XtPointer) info);
+    }
+#endif
+}
+
+/*ARGSUSED*/
+static void HandleSelectionReplies(
+    Widget widget,
+    XtPointer closure,
+    XEvent *ev,
+    Boolean *cont)
+{
+    XSelectionEvent *event = (XSelectionEvent *) ev;
+    Display *dpy = event->display;
+    CallBackInfo info = (CallBackInfo) closure;
+    Select ctx = info->ctx;
+    IndirectPair *pairs, *p;
+    unsigned long bytesafter;
+    unsigned long length;
+    int format;
+    Atom type;
+    XtPointer *c;
+
+    if (event->type != SelectionNotify) return;
+    if (!MATCH_SELECT(event, info)) return; /* not really for us */
+#ifndef DEBUG_WO_TIMERS
+    XtRemoveTimeOut(info->timeout);
+#endif
+    XtRemoveEventHandler(widget, (EventMask)0, TRUE,
+		HandleSelectionReplies, (XtPointer) info );
+    if (event->target == ctx->prop_list->indirect_atom) {
+        (void) XGetWindowProperty(dpy, XtWindow(widget), info->property, 0L,
+			   10000000, True, AnyPropertyType, &type, &format,
+			   &length, &bytesafter, (unsigned char **) &pairs);
+       for (length = length / IndirectPairWordSize, p = pairs,
+	    c = info->req_closure;
+	    length; length--, p++, c++, info->current++) {
+	    if (event->property == None || format != 32 || p->target == None
+		|| /* bug compatibility */ p->property == None) {
+		HandleNone(widget, info->callbacks[info->current],
+			   *c, event->selection);
+		if (p->property != None)
+                    FreeSelectionProperty(XtDisplay(widget), p->property);
+	    } else {
+		if (HandleNormal(dpy, widget, p->property, info, *c,
+				 event->selection)) {
+		    FreeSelectionProperty(XtDisplay(widget), p->property);
+		}
+	    }
+       }
+       XFree((char*)pairs);
+       FreeSelectionProperty(dpy, info->property);
+       FreeInfo(info);
+    } else if (event->property == None) {
+	HandleNone(widget, info->callbacks[0], *info->req_closure, event->selection);
+        FreeSelectionProperty(XtDisplay(widget), info->property);
+	FreeInfo(info);
+    } else {
+	if (HandleNormal(dpy, widget, event->property, info,
+			 *info->req_closure, event->selection)) {
+	    FreeSelectionProperty(XtDisplay(widget), info->property);
+	    FreeInfo(info);
+	}
+    }
+}
+
+static void DoLocalTransfer(
+    Request req,
+    Atom selection,
+    Atom target,
+    Widget widget,		/* The widget requesting the value. */
+    XtSelectionCallbackProc callback,
+    XtPointer closure,	/* the closure for the callback, not the conversion */
+    Boolean incremental,
+    Atom property)
+{
+    Select ctx = req->ctx;
+    XtPointer value = NULL, temp, total = NULL;
+    unsigned long length;
+    int format;
+    Atom resulttype;
+    unsigned long totallength = 0;
+
+        req->event.type = 0;
+        req->event.target = target;
+        req->event.property = req->property = property;
+        req->event.requestor = req->requestor = XtWindow(widget);
+
+	if (ctx->incremental) {
+	   unsigned long size = MAX_SELECTION_INCR(ctx->dpy);
+	   if (!(*(XtConvertSelectionIncrProc)ctx->convert)
+			   (ctx->widget, &selection, &target,
+			    &resulttype, &value, &length, &format,
+			    &size, ctx->owner_closure, (XtRequestId*)&req)) {
+	       HandleNone(widget, callback, closure, selection);
+	   }
+	   else {
+		if (incremental) {
+		  Boolean allSent = FALSE;
+	          while (!allSent) {
+	    	      if (ctx->notify && (value != NULL)) {
+              	        int bytelength = BYTELENGTH(length,format);
+	                /* both sides think they own this storage */
+	                temp = __XtMalloc((unsigned)bytelength);
+	                (void) memmove(temp, value, bytelength);
+	                value = temp;
+	              }
+		      /* use care; older clients were never warned that
+		       * they must return a value even if length==0
+		       */
+		     if (value == NULL) value = __XtMalloc((unsigned)1);
+		     (*callback)(widget, closure, &selection,
+			&resulttype, value, &length, &format);
+		     if (length) {
+			 /* should owner be notified on end-of-piece?
+			  * Spec is unclear, but non-local transfers don't.
+			  */
+			 (*(XtConvertSelectionIncrProc)ctx->convert)
+					(ctx->widget, &selection, &target,
+					 &resulttype, &value, &length, &format,
+					 &size, ctx->owner_closure,
+					 (XtRequestId*)&req);
+		     }
+		     else allSent = TRUE;
+		  }
+	        } else {
+	          while (length) {
+		    int bytelength = BYTELENGTH(length, format);
+		    total = XtRealloc(total,
+			    (unsigned) (totallength += bytelength));
+		    (void) memmove((char*)total + totallength - bytelength,
+			    value,
+			    bytelength);
+		    (*(XtConvertSelectionIncrProc)ctx->convert)
+			   (ctx->widget, &selection, &target,
+			    &resulttype, &value, &length, &format,
+			    &size, ctx->owner_closure, (XtRequestId*)&req);
+		  }
+		  if (total == NULL) total = __XtMalloc(1);
+		  totallength = NUMELEM(totallength, format);
+		  (*callback)(widget, closure, &selection, &resulttype,
+		    total,  &totallength, &format);
+	      }
+	      if (ctx->notify)
+		  (*(XtSelectionDoneIncrProc)ctx->notify)
+				(ctx->widget, &selection, &target,
+				 (XtRequestId*)&req, ctx->owner_closure);
+	      else XtFree((char*)value);
+	  }
+	} else { /* not incremental owner */
+	  if (!(*ctx->convert)(ctx->widget, &selection, &target,
+			     &resulttype, &value, &length, &format)) {
+	    HandleNone(widget, callback, closure, selection);
+	  } else {
+	      if (ctx->notify && (value != NULL)) {
+                int bytelength = BYTELENGTH(length,format);
+	        /* both sides think they own this storage; better copy */
+	        temp = __XtMalloc((unsigned)bytelength);
+	        (void) memmove(temp, value, bytelength);
+	        value = temp;
+	      }
+	      if (value == NULL) value = __XtMalloc((unsigned)1);
+	      (*callback)(widget, closure, &selection, &resulttype,
+			  value, &length, &format);
+	      if (ctx->notify)
+	         (*ctx->notify)(ctx->widget, &selection, &target);
+	  }
+      }
+}
+
+static void GetSelectionValue(
+    Widget widget,
+    Atom selection,
+    Atom target,
+    XtSelectionCallbackProc callback,
+    XtPointer closure,
+    Time time,
+    Boolean incremental,
+    Atom property)
+{
+    Select ctx;
+    CallBackInfo info;
+    Atom properties[1];
+
+    properties[0] = property;
+
+    ctx = FindCtx(XtDisplay(widget), selection);
+    if (ctx->widget && !ctx->was_disowned) {
+	RequestRec req;
+	ctx->req = &req;
+	req.ctx = ctx;
+	req.event.time = time;
+	ctx->ref_count++;
+	DoLocalTransfer(&req, selection, target, widget,
+			callback, closure, incremental, property);
+	if (--ctx->ref_count == 0 && ctx->free_when_done)
+	    XtFree((char*)ctx);
+	else
+	    ctx->req = NULL;
+    }
+    else {
+	info = MakeInfo(ctx, &callback, &closure, 1, widget,
+			time, &incremental, properties);
+	info->target = (Atom *)__XtMalloc((unsigned) sizeof(Atom));
+	 *(info->target) = target;
+	RequestSelectionValue(info, selection, target);
+    }
+}
+
+
+void XtGetSelectionValue(
+    Widget widget,
+    Atom selection,
+    Atom target,
+    XtSelectionCallbackProc callback,
+    XtPointer closure,
+    Time time)
+{
+    Atom property;
+    Boolean incr = False;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    property = GetParamInfo(widget, selection);
+    RemoveParamInfo(widget, selection);
+
+    if (IsGatheringRequest(widget, selection)) {
+      AddSelectionRequests(widget, selection, 1, &target, &callback, 1,
+			   &closure, &incr, &property);
+    } else {
+      GetSelectionValue(widget, selection, target, callback,
+			closure, time, FALSE, property);
+    }
+    UNLOCK_APP(app);
+}
+
+
+void XtGetSelectionValueIncremental(
+    Widget widget,
+    Atom selection,
+    Atom target,
+    XtSelectionCallbackProc callback,
+    XtPointer closure,
+    Time time)
+{
+    Atom property;
+    Boolean incr = TRUE;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    property = GetParamInfo(widget, selection);
+    RemoveParamInfo(widget, selection);
+
+    if (IsGatheringRequest(widget, selection)) {
+      AddSelectionRequests(widget, selection, 1, &target, &callback, 1,
+			   &closure, &incr, &property);
+    } else {
+      GetSelectionValue(widget, selection, target, callback,
+			closure, time, TRUE, property);
+    }
+
+    UNLOCK_APP(app);
+}
+
+
+static void GetSelectionValues(
+    Widget widget,
+    Atom selection,
+    Atom *targets,
+    int count,
+    XtSelectionCallbackProc *callbacks,
+    int num_callbacks,
+    XtPointer *closures,
+    Time time,
+    Boolean *incremental,
+    Atom *properties)
+{
+    Select ctx;
+    CallBackInfo info;
+    IndirectPair *pairs, *p;
+    Atom *t;
+
+    if (count == 0) return;
+    ctx = FindCtx(XtDisplay(widget), selection);
+    if (ctx->widget && !ctx->was_disowned) {
+        int j, i;
+	RequestRec req;
+	ctx->req = &req;
+	req.ctx = ctx;
+	req.event.time = time;
+	ctx->ref_count++;
+	for (i = 0, j = 0; count; count--, i++, j++ ) {
+	  if (j >= num_callbacks) j = 0;
+
+	  DoLocalTransfer(&req, selection, targets[i], widget,
+			  callbacks[j], closures[i], incremental[i],
+			  properties ? properties[i] : None);
+
+	}
+	if (--ctx->ref_count == 0 && ctx->free_when_done)
+	    XtFree((char*)ctx);
+	else
+	    ctx->req = NULL;
+    } else {
+        XtSelectionCallbackProc *passed_callbacks;
+	XtSelectionCallbackProc stack_cbs[32];
+        int i = 0, j = 0;
+
+	passed_callbacks = (XtSelectionCallbackProc *)
+	  XtStackAlloc(sizeof(XtSelectionCallbackProc) * count, stack_cbs);
+
+	/* To deal with the old calls from XtGetSelectionValues* we
+	   will repeat however many callbacks have been passed into
+	   the array */
+	for(i = 0; i < count; i++) {
+	  if (j >= num_callbacks) j = 0;
+	  passed_callbacks[i] = callbacks[j];
+	  j++;
+	}
+	info = MakeInfo(ctx, passed_callbacks, closures, count, widget,
+			time, incremental, properties);
+	XtStackFree((XtPointer) passed_callbacks, stack_cbs);
+
+	info->target = (Atom *)__XtMalloc((unsigned) ((count+1) * sizeof(Atom)));
+        (*info->target) = ctx->prop_list->indirect_atom;
+	(void) memmove((char *) info->target+sizeof(Atom), (char *) targets,
+		       count * sizeof(Atom));
+	pairs = (IndirectPair*)__XtMalloc((unsigned)(count*sizeof(IndirectPair)));
+	for (p = &pairs[count-1], t = &targets[count-1], i = count - 1;
+	     p >= pairs;  p--, t--, i--) {
+	   p->target = *t;
+	   if (properties == NULL || properties[i] == None) {
+	     p->property = GetSelectionProperty(XtDisplay(widget));
+	     XDeleteProperty(XtDisplay(widget), XtWindow(widget),
+			     p->property);
+	   } else {
+	     p->property = properties[i];
+	   }
+	}
+	XChangeProperty(XtDisplay(widget), XtWindow(widget),
+			info->property, info->property,
+			32, PropModeReplace, (unsigned char *) pairs,
+			count * IndirectPairWordSize);
+	XtFree((char*)pairs);
+	RequestSelectionValue(info, selection, ctx->prop_list->indirect_atom);
+    }
+}
+
+
+void XtGetSelectionValues(
+    Widget widget,
+    Atom selection,
+    Atom *targets,
+    int count,
+    XtSelectionCallbackProc callback,
+    XtPointer *closures,
+    Time time)
+{
+    Boolean incremental_values[32];
+    Boolean *incremental;
+    int i;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    incremental = XtStackAlloc(count * sizeof(Boolean), incremental_values);
+    for(i = 0; i < count; i++) incremental[i] = FALSE;
+    if (IsGatheringRequest(widget, selection)) {
+      AddSelectionRequests(widget, selection, count, targets, &callback,
+			   1, closures, incremental, NULL);
+    } else {
+      GetSelectionValues(widget, selection, targets, count, &callback, 1,
+			 closures, time, incremental, NULL);
+    }
+    XtStackFree((XtPointer) incremental, incremental_values);
+    UNLOCK_APP(app);
+}
+
+
+void XtGetSelectionValuesIncremental(
+    Widget widget,
+    Atom selection,
+    Atom *targets,
+    int count,
+    XtSelectionCallbackProc callback,
+    XtPointer *closures,
+    Time time)
+{
+    Boolean incremental_values[32];
+    Boolean *incremental;
+    int i;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    incremental = XtStackAlloc(count * sizeof(Boolean), incremental_values);
+    for(i = 0; i < count; i++) incremental[i] = TRUE;
+    if (IsGatheringRequest(widget, selection)) {
+      AddSelectionRequests(widget, selection, count, targets, &callback,
+			   1, closures, incremental, NULL);
+    } else {
+      GetSelectionValues(widget, selection, targets, count,
+			 &callback, 1, closures, time, incremental, NULL);
+    }
+    XtStackFree((XtPointer) incremental, incremental_values);
+    UNLOCK_APP(app);
+}
+
+
+static Request GetRequestRecord(
+    Widget widget,
+    Atom selection,
+    XtRequestId id)
+{
+    Request req = (Request)id;
+    Select ctx = NULL;
+
+    if (   (req == NULL
+	    && ((ctx = FindCtx( XtDisplay(widget), selection )) == NULL
+		|| ctx->req == NULL
+		|| ctx->selection != selection
+		|| ctx->widget == NULL))
+	|| (req != NULL
+	    && (req->ctx == NULL
+		|| req->ctx->selection != selection
+		|| req->ctx->widget != widget)))
+    {
+	String params = XtName(widget);
+	Cardinal num_params = 1;
+	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+			 "notInConvertSelection", "xtGetSelectionRequest",
+			 XtCXtToolkitError,
+			 "XtGetSelectionRequest or XtGetSelectionParameters called for widget \"%s\" outside of ConvertSelection proc",
+			 &params, &num_params
+		       );
+	return NULL;
+    }
+
+    if (req == NULL) {
+	/* non-incremental owner; only one request can be
+	 * outstanding at a time, so it's safe to keep ptr in ctx */
+	req = ctx->req;
+    }
+    return req;
+}
+
+XSelectionRequestEvent *XtGetSelectionRequest(
+    Widget widget,
+    Atom selection,
+    XtRequestId id)
+{
+    Request req = (Request)id;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+
+    req = GetRequestRecord(widget, selection, id);
+
+    if (! req) {
+	UNLOCK_APP(app);
+	return (XSelectionRequestEvent*) NULL;
+    }
+
+    if (req->event.type == 0) {
+	/* owner is local; construct the remainder of the event */
+	req->event.type = SelectionRequest;
+	req->event.serial = LastKnownRequestProcessed(XtDisplay(widget));
+	req->event.send_event = True;
+	req->event.display = XtDisplay(widget);
+	req->event.owner = XtWindow(req->ctx->widget);
+	req->event.selection = selection;
+    }
+    UNLOCK_APP(app);
+    return &req->event;
+}
+
+/* Property atom access */
+Atom XtReservePropertyAtom(
+     Widget w)
+{
+  return(GetSelectionProperty(XtDisplay(w)));
+}
+
+void XtReleasePropertyAtom(
+     Widget w,
+     Atom atom)
+{
+  FreeSelectionProperty(XtDisplay(w), atom);
+}
+
+
+/* Multiple utilities */
+
+/* All requests are put in a single list per widget.  It is
+   very unlikely anyone will be gathering multiple MULTIPLE
+   requests at the same time,  so the loss in efficiency for
+   this case is acceptable */
+
+/* Queue one or more requests to the one we're gathering */
+static void AddSelectionRequests(
+     Widget wid,
+     Atom sel,
+     int count,
+     Atom *targets,
+     XtSelectionCallbackProc *callbacks,
+     int num_cb,
+     XtPointer *closures,
+     Boolean *incrementals,
+     Atom *properties)
+{
+  QueuedRequestInfo qi;
+  Window window = XtWindow(wid);
+  Display *dpy = XtDisplay(wid);
+
+  LOCK_PROCESS;
+  if (multipleContext == 0) multipleContext = XUniqueContext();
+
+  qi = NULL;
+  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &qi);
+
+  if (qi != NULL) {
+    QueuedRequest *req = qi->requests;
+    int start = qi->count;
+    int i = 0;
+    int j = 0;
+
+    qi->count += count;
+    req = (QueuedRequest*) XtRealloc((char*) req,
+				     (start + count) *
+				     sizeof(QueuedRequest));
+    while(i < count) {
+      QueuedRequest newreq = (QueuedRequest)
+	__XtMalloc(sizeof(QueuedRequestRec));
+      newreq->selection = sel;
+      newreq->target = targets[i];
+      if (properties != NULL)
+	newreq->param = properties[i];
+      else {
+	newreq->param = GetSelectionProperty(dpy);
+	XDeleteProperty(dpy, window, newreq->param);
+      }
+      newreq->callback = callbacks[j];
+      newreq->closure = closures[i];
+      newreq->incremental = incrementals[i];
+
+      req[start] = newreq;
+      start++;
+      i++;
+      j++;
+      if (j > num_cb) j = 0;
+    }
+
+    qi->requests = req;
+  } else {
+    /* Impossible */
+  }
+
+  UNLOCK_PROCESS;
+}
+
+/* Only call IsGatheringRequest when we have a lock already */
+
+static Boolean IsGatheringRequest(
+     Widget wid,
+     Atom sel)
+{
+  QueuedRequestInfo qi;
+  Window window = XtWindow(wid);
+  Display *dpy = XtDisplay(wid);
+  Boolean found = False;
+  int i;
+
+  if (multipleContext == 0) multipleContext = XUniqueContext();
+
+  qi = NULL;
+  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &qi);
+
+  if (qi != NULL) {
+    i = 0;
+    while(qi->selections[i] != None) {
+      if (qi->selections[i] == sel) {
+	found = True;
+	break;
+      }
+      i++;
+    }
+  }
+
+  return(found);
+}
+
+/* Cleanup request scans the request queue and releases any
+   properties queued, and removes any requests queued */
+static void CleanupRequest(
+     Display *dpy,
+     QueuedRequestInfo qi,
+     Atom sel)
+{
+  int i, j, n;
+
+  i = 0;
+
+  /* Remove this selection from the list */
+  n = 0;
+  while(qi->selections[n] != sel &&
+	qi->selections[n] != None) n++;
+  if (qi->selections[n] == sel) {
+    while(qi->selections[n] != None) {
+      qi->selections[n] = qi->selections[n + 1];
+      n++;
+    }
+  }
+
+  while(i < qi->count) {
+    QueuedRequest req = qi->requests[i];
+
+    if (req->selection == sel) {
+      /* Match */
+      if (req->param != None)
+	FreeSelectionProperty(dpy, req->param);
+      qi->count--;
+
+      for(j = i; j < qi->count; j++)
+	qi->requests[j] = qi->requests[j + 1];
+
+      XtFree((char*) req);
+    } else {
+      i++;
+    }
+  }
+}
+
+void XtCreateSelectionRequest(
+    Widget widget,
+    Atom selection)
+{
+  QueuedRequestInfo queueInfo;
+  Window window = XtWindow(widget);
+  Display *dpy = XtDisplay(widget);
+  int n;
+
+  LOCK_PROCESS;
+  if (multipleContext == 0) multipleContext = XUniqueContext();
+
+  queueInfo = NULL;
+  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &queueInfo);
+
+  /* If there is one,  then cancel it */
+  if (queueInfo != NULL)
+    CleanupRequest(dpy, queueInfo, selection);
+  else {
+    /* Create it */
+    queueInfo = (QueuedRequestInfo) __XtMalloc(sizeof(QueuedRequestInfoRec));
+    queueInfo->count = 0;
+    queueInfo->selections = (Atom*) __XtMalloc(sizeof(Atom) * 2);
+    queueInfo->selections[0] = None;
+    queueInfo->requests = (QueuedRequest *)
+      __XtMalloc(sizeof(QueuedRequest));
+  }
+
+  /* Append this selection to list */
+  n = 0;
+  while(queueInfo->selections[n] != None) n++;
+  queueInfo->selections =
+    (Atom*) XtRealloc((char*) queueInfo->selections,
+		      (n + 2) * sizeof(Atom));
+  queueInfo->selections[n] = selection;
+  queueInfo->selections[n + 1] = None;
+
+  (void) XSaveContext(dpy, window, multipleContext, (char*) queueInfo);
+  UNLOCK_PROCESS;
+}
+
+void XtSendSelectionRequest(
+    Widget widget,
+    Atom selection,
+    Time time)
+{
+  QueuedRequestInfo queueInfo;
+  Window window = XtWindow(widget);
+  Display *dpy = XtDisplay(widget);
+
+  LOCK_PROCESS;
+  if (multipleContext == 0) multipleContext = XUniqueContext();
+
+  queueInfo = NULL;
+  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &queueInfo);
+  if (queueInfo != NULL) {
+    int count = 0;
+    int i;
+    QueuedRequest *req = queueInfo->requests;
+
+    /* Construct the requests and send it using
+       GetSelectionValues */
+    for(i = 0; i < queueInfo->count; i++)
+      if (req[i]->selection == selection) count++;
+
+    if (count > 0) {
+      if (count == 1) {
+	for(i = 0; i < queueInfo->count; i++)
+	  if (req[i]->selection == selection) break;
+
+	/* special case a multiple which isn't needed */
+	GetSelectionValue(widget, selection, req[i]->target,
+			  req[i]->callback, req[i]->closure, time,
+			  req[i]->incremental, req[i]->param);
+      } else {
+	Atom *targets;
+	Atom t[PREALLOCED];
+	XtSelectionCallbackProc *cbs;
+	XtSelectionCallbackProc c[PREALLOCED];
+	XtPointer *closures;
+	XtPointer cs[PREALLOCED];
+	Boolean *incrs;
+	Boolean ins[PREALLOCED];
+	Atom *props;
+	Atom p[PREALLOCED];
+	int i = 0;
+	int j = 0;
+
+	/* Allocate */
+	targets = (Atom *) XtStackAlloc(count * sizeof(Atom), t);
+	cbs = (XtSelectionCallbackProc *)
+	  XtStackAlloc(count * sizeof(XtSelectionCallbackProc), c);
+	closures = (XtPointer *) XtStackAlloc(count * sizeof(XtPointer), cs);
+	incrs = (Boolean *) XtStackAlloc(count * sizeof(Boolean), ins);
+	props = (Atom *) XtStackAlloc(count * sizeof(Atom), p);
+
+	/* Copy */
+	for(i = 0; i < queueInfo->count; i++) {
+	  if (req[i]->selection == selection) {
+	    targets[j] = req[i]->target;
+	    cbs[j] = req[i]->callback;
+	    closures[j] = req[i]->closure;
+	    incrs[j] = req[i]->incremental;
+	    props[j] = req[i]->param;
+	    j++;
+	  }
+	}
+
+	/* Make the request */
+	GetSelectionValues(widget, selection, targets, count,
+			   cbs, count, closures, time, incrs, props);
+
+	/* Free */
+	XtStackFree((XtPointer) targets, t);
+	XtStackFree((XtPointer) cbs, c);
+	XtStackFree((XtPointer) closures, cs);
+	XtStackFree((XtPointer) incrs, ins);
+	XtStackFree((XtPointer) props, p);
+      }
+    }
+  }
+
+  CleanupRequest(dpy, queueInfo, selection);
+  UNLOCK_PROCESS;
+}
+
+void XtCancelSelectionRequest(
+    Widget widget,
+    Atom selection)
+{
+  QueuedRequestInfo queueInfo;
+  Window window = XtWindow(widget);
+  Display *dpy = XtDisplay(widget);
+
+  LOCK_PROCESS;
+  if (multipleContext == 0) multipleContext = XUniqueContext();
+
+  queueInfo = NULL;
+  (void) XFindContext(dpy, window, multipleContext, (XPointer*) &queueInfo);
+  /* If there is one,  then cancel it */
+  if (queueInfo != NULL)
+    CleanupRequest(dpy, queueInfo, selection);
+  UNLOCK_PROCESS;
+}
+
+/* Parameter utilities */
+
+/* Parameters on a selection request */
+/* Places data on allocated parameter atom,  then records the
+   parameter atom data for use in the next call to one of
+   the XtGetSelectionValue functions. */
+void XtSetSelectionParameters(
+    Widget requestor,
+    Atom selection,
+    Atom type,
+    XtPointer value,
+    unsigned long length,
+    int format)
+{
+  Display *dpy = XtDisplay(requestor);
+  Window window = XtWindow(requestor);
+  Atom property = GetParamInfo(requestor, selection);
+
+  if (property == None) {
+    property = GetSelectionProperty(dpy);
+    AddParamInfo(requestor, selection, property);
+  }
+
+  XChangeProperty(dpy, window, property,
+		  type, format, PropModeReplace,
+		  (unsigned char *) value, length);
+}
+
+/* Retrieves data passed in a parameter. Data for this is stored
+   on the originator's window */
+void XtGetSelectionParameters(
+    Widget owner,
+    Atom selection,
+    XtRequestId request_id,
+    Atom* type_return,
+    XtPointer* value_return,
+    unsigned long* length_return,
+    int* format_return)
+{
+    Request req;
+    Display *dpy = XtDisplay(owner);
+    WIDGET_TO_APPCON(owner);
+
+    *value_return = NULL;
+    *length_return = *format_return = 0;
+    *type_return = None;
+
+    LOCK_APP(app);
+
+    req = GetRequestRecord(owner, selection, request_id);
+
+    if (req && req->property) {
+	unsigned long bytes_after;	/* unused */
+	StartProtectedSection(dpy, req->requestor);
+	XGetWindowProperty(dpy, req->requestor, req->property, 0L, 10000000,
+			   False, AnyPropertyType, type_return, format_return,
+			   length_return, &bytes_after,
+			   (unsigned char**) value_return);
+	EndProtectedSection(dpy);
+#ifdef XT_COPY_SELECTION
+	if (*value_return) {
+	    int size = BYTELENGTH(*length_return, *format_return) + 1;
+	    char *tmp = __XtMalloc((Cardinal) size);
+	    (void) memmove(tmp, *value_return, size);
+	    XFree(*value_return);
+	    *value_return = tmp;
+	}
+#endif
+    }
+    UNLOCK_APP(app);
+}
+
+/*  Parameters are temporarily stashed in an XContext.  A list is used because
+ *  there may be more than one selection request in progress.  The context
+ *  data is deleted when the list is empty.  In the future, the parameter
+ *  context could be merged with other contexts used during selections.
+ */
+
+static void AddParamInfo(
+    Widget w,
+    Atom selection,
+    Atom param_atom)
+{
+    int n;
+    Param p;
+    ParamInfo pinfo;
+
+    LOCK_PROCESS;
+    if (paramPropertyContext == 0)
+	paramPropertyContext = XUniqueContext();
+
+    if (XFindContext(XtDisplay(w), XtWindow(w), paramPropertyContext,
+		     (XPointer *) &pinfo)) {
+	pinfo = (ParamInfo) __XtMalloc(sizeof(ParamInfoRec));
+	pinfo->count = 1;
+	pinfo->paramlist = XtNew(ParamRec);
+	p = pinfo->paramlist;
+	(void) XSaveContext(XtDisplay(w), XtWindow(w), paramPropertyContext,
+			    (char *)pinfo);
+    }
+    else {
+	for (n = pinfo->count, p = pinfo->paramlist; n; n--, p++) {
+	    if (p->selection == None || p->selection == selection)
+		break;
+	}
+	if (n == 0) {
+	    pinfo->count++;
+	    pinfo->paramlist = (Param)
+		XtRealloc((char*) pinfo->paramlist,
+			  pinfo->count * sizeof(ParamRec));
+	    p = &pinfo->paramlist[pinfo->count - 1];
+	    (void) XSaveContext(XtDisplay(w), XtWindow(w),
+				paramPropertyContext, (char *)pinfo);
+	}
+    }
+    p->selection = selection;
+    p->param = param_atom;
+    UNLOCK_PROCESS;
+}
+
+static void RemoveParamInfo(
+    Widget w,
+    Atom selection)
+{
+    int n;
+    Param p;
+    ParamInfo pinfo;
+    Boolean retain = False;
+
+    LOCK_PROCESS;
+    if (paramPropertyContext
+	&& (XFindContext(XtDisplay(w), XtWindow(w), paramPropertyContext,
+			 (XPointer *) &pinfo) == 0)) {
+
+	/* Find and invalidate the parameter data. */
+	for (n = pinfo->count, p = pinfo->paramlist; n; n--, p++) {
+	    if (p->selection != None) {
+		if (p->selection == selection)
+		    p->selection = None;
+		else
+		    retain = True;
+	    }
+	}
+	/* If there's no valid data remaining, release the context entry. */
+	if (! retain) {
+	    XtFree((char*) pinfo->paramlist);
+	    XtFree((char*) pinfo);
+	    XDeleteContext(XtDisplay(w), XtWindow(w), paramPropertyContext);
+	}
+    }
+    UNLOCK_PROCESS;
+}
+
+static Atom GetParamInfo(
+    Widget w,
+    Atom selection)
+{
+    int n;
+    Param p;
+    ParamInfo pinfo;
+    Atom atom = None;
+
+    LOCK_PROCESS;
+    if (paramPropertyContext
+	&& (XFindContext(XtDisplay(w), XtWindow(w), paramPropertyContext,
+			 (XPointer *) &pinfo) == 0)) {
+
+	for (n = pinfo->count, p = pinfo->paramlist; n; n--, p++)
+	    if (p->selection == selection) {
+		atom = p->param;
+		break;
+	    }
+    }
+    UNLOCK_PROCESS;
+    return atom;
+}
diff --git a/libXt/src/SetSens.c b/libXt/src/SetSens.c
index b77bb7996..fd7777c53 100644
--- a/libXt/src/SetSens.c
+++ b/libXt/src/SetSens.c
@@ -1,136 +1,136 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-

-/*

- *	XtSetSensitive()

- */

-

-static void SetAncestorSensitive(

-    register Widget widget,

-    Boolean	    ancestor_sensitive)

-{

-    Arg			args[1];

-    register Cardinal   i;

-    register WidgetList children;

-

-    if (widget->core.ancestor_sensitive == ancestor_sensitive) return;

-

-    XtSetArg(args[0], XtNancestorSensitive, ancestor_sensitive);

-    XtSetValues(widget, args, XtNumber(args));

-

-    /* If widget's sensitive is TRUE, propagate new ancestor_sensitive to

-       children's ancestor_sensitive; else do nothing as children's

-       ancestor_sensitive is already FALSE */

-    

-    if (widget->core.sensitive && XtIsComposite(widget)) {

-	children = ((CompositeWidget) widget)->composite.children;

-	for (i=0; i < ((CompositeWidget)widget)->composite.num_children; i++) {

-	    SetAncestorSensitive (children[i], ancestor_sensitive);

-	}

-    }

-} /* SetAncestorSensitive */

-

-

-void XtSetSensitive(

-    register Widget widget,

-    _XtBoolean	    sensitive)

-{

-    Arg			args[1];

-    register Cardinal   i;

-    register WidgetList children;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (widget->core.sensitive == sensitive) {

-	UNLOCK_APP(app);

-	return;

-    }

-

-    XtSetArg(args[0], XtNsensitive, sensitive);

-    XtSetValues(widget, args, XtNumber(args));

-

-    /* If widget's ancestor_sensitive is TRUE, propagate new sensitive to

-       children's ancestor_sensitive; else do nothing as children's

-       ancestor_sensitive is already FALSE */

-    

-    if (widget->core.ancestor_sensitive && XtIsComposite (widget)) {

-	children = ((CompositeWidget) widget)->composite.children;

-	for (i = 0; i < ((CompositeWidget)widget)->composite.num_children; i++){

-	    SetAncestorSensitive (children[i], sensitive);

-	}

-    }

-    UNLOCK_APP(app);

-} /* XtSetSensitive */

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+
+/*
+ *	XtSetSensitive()
+ */
+
+static void SetAncestorSensitive(
+    register Widget widget,
+    Boolean	    ancestor_sensitive)
+{
+    Arg			args[1];
+    register Cardinal   i;
+    register WidgetList children;
+
+    if (widget->core.ancestor_sensitive == ancestor_sensitive) return;
+
+    XtSetArg(args[0], XtNancestorSensitive, ancestor_sensitive);
+    XtSetValues(widget, args, XtNumber(args));
+
+    /* If widget's sensitive is TRUE, propagate new ancestor_sensitive to
+       children's ancestor_sensitive; else do nothing as children's
+       ancestor_sensitive is already FALSE */
+    
+    if (widget->core.sensitive && XtIsComposite(widget)) {
+	children = ((CompositeWidget) widget)->composite.children;
+	for (i=0; i < ((CompositeWidget)widget)->composite.num_children; i++) {
+	    SetAncestorSensitive (children[i], ancestor_sensitive);
+	}
+    }
+} /* SetAncestorSensitive */
+
+
+void XtSetSensitive(
+    register Widget widget,
+    _XtBoolean	    sensitive)
+{
+    Arg			args[1];
+    register Cardinal   i;
+    register WidgetList children;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (widget->core.sensitive == sensitive) {
+	UNLOCK_APP(app);
+	return;
+    }
+
+    XtSetArg(args[0], XtNsensitive, sensitive);
+    XtSetValues(widget, args, XtNumber(args));
+
+    /* If widget's ancestor_sensitive is TRUE, propagate new sensitive to
+       children's ancestor_sensitive; else do nothing as children's
+       ancestor_sensitive is already FALSE */
+    
+    if (widget->core.ancestor_sensitive && XtIsComposite (widget)) {
+	children = ((CompositeWidget) widget)->composite.children;
+	for (i = 0; i < ((CompositeWidget)widget)->composite.num_children; i++){
+	    SetAncestorSensitive (children[i], sensitive);
+	}
+    }
+    UNLOCK_APP(app);
+} /* XtSetSensitive */
diff --git a/libXt/src/SetValues.c b/libXt/src/SetValues.c
index 8c7467540..e432ec75d 100644
--- a/libXt/src/SetValues.c
+++ b/libXt/src/SetValues.c
@@ -1,451 +1,451 @@
-/***********************************************************

-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, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-

-/*

- *	XtSetValues(), XtSetSubvalues()

- */

-

-

-static void SetValues(

-  char*			base,		/* Base address to write values to   */

-  XrmResourceList*	res,		/* The current resource values.      */

-  register Cardinal	num_resources,	/* number of items in resources      */

-  ArgList 		args,		/* The resource values to set        */

-  Cardinal		num_args)	/* number of items in arg list       */

-{

-    register ArgList		arg;

-    register Cardinal 	        i;

-    register XrmName		argName;

-    register XrmResourceList*   xrmres;

-

-    /* Resource lists are assumed to be in compiled form already via the

-       initial XtGetResources, XtGetSubresources calls */

-

-    for (arg = args ; num_args != 0; num_args--, arg++) {

-	argName = StringToName(arg->name);

-	for (xrmres = res, i = 0; i < num_resources; i++, xrmres++) {

-	    if (argName == (*xrmres)->xrm_name) {

-		_XtCopyFromArg(arg->value,

-		    base - (*xrmres)->xrm_offset - 1,

-		    (*xrmres)->xrm_size);

-		break;

-	    }

-	}

-    }

-} /* SetValues */

-

-static Boolean CallSetValues (

-    WidgetClass class,

-    Widget      current,

-    Widget      request,

-    Widget      new,

-    ArgList     args,

-    Cardinal    num_args)

-{

-    Boolean redisplay = FALSE;

-    WidgetClass superclass;

-    XtArgsFunc set_values_hook;

-    XtSetValuesFunc set_values;

-

-    LOCK_PROCESS;

-    superclass = class->core_class.superclass;

-    UNLOCK_PROCESS;

-    if (superclass)

-        redisplay =

-	    CallSetValues(superclass, current, request, new, args, num_args);

-

-    LOCK_PROCESS;

-    set_values = class->core_class.set_values;

-    UNLOCK_PROCESS;

-    if (set_values)

-        redisplay |= (*set_values) (current, request, new, args, &num_args);

-

-    LOCK_PROCESS;

-    set_values_hook = class->core_class.set_values_hook;

-    UNLOCK_PROCESS;

-    if (set_values_hook)

-	redisplay |= (*set_values_hook) (new, args, &num_args);

-    return (redisplay);

-}

-

-static Boolean

-CallConstraintSetValues (

-    ConstraintWidgetClass class,

-    Widget      current,

-    Widget      request,

-    Widget      new,

-    ArgList     args,

-    Cardinal    num_args)

-{

-    Boolean redisplay = FALSE;

-    XtSetValuesFunc set_values;

-    ConstraintWidgetClass superclass;

-

-    if ((WidgetClass)class != constraintWidgetClass) {

-	if (class == NULL)

-	    XtAppErrorMsg(XtWidgetToApplicationContext(current),

-		    "invalidClass","constraintSetValue",XtCXtToolkitError,

-                 "Subclass of Constraint required in CallConstraintSetValues",

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

-	LOCK_PROCESS;

-	superclass = (ConstraintWidgetClass) class->core_class.superclass;

-	UNLOCK_PROCESS;

-	redisplay =

-	   CallConstraintSetValues(superclass,

-				   current, request, new, args, num_args);

-    }

-    LOCK_PROCESS;

-    set_values = class->constraint_class.set_values;

-    UNLOCK_PROCESS;

-    if (set_values)

-        redisplay |= (*set_values) (current, request, new, args, &num_args);

-    return (redisplay);

-}

-

-void XtSetSubvalues(

-  XtPointer             base,           /* Base address to write values to   */

-  register XtResourceList resources,    /* The current resource values.      */

-  register Cardinal     num_resources,  /* number of items in resources      */

-  ArgList               args,           /* The resource values to set        */

-  Cardinal              num_args)       /* number of items in arg list       */

-{

-      register XrmResourceList*   xrmres;

-      xrmres = _XtCreateIndirectionTable (resources, num_resources);

-      SetValues((char*)base,xrmres,num_resources, args, num_args);

-      XtFree((char *)xrmres);

-}

-

-

-void XtSetValues(

-    register Widget   w,

-	     ArgList  args,

-	     Cardinal num_args)

-{

-    register Widget oldw, reqw;

-    /* need to use strictest alignment rules possible in next two decls. */

-    double	    oldwCache[100], reqwCache[100];

-    double	    oldcCache[20], reqcCache[20];

-    Cardinal	    widgetSize, constraintSize;

-    Boolean	    redisplay, cleared_rect_obj = False;

-    XtGeometryResult result;

-    XtWidgetGeometry geoReq, geoReply;

-    WidgetClass     wc;

-    ConstraintWidgetClass cwc = NULL;

-    Boolean	    hasConstraints;

-    XtAlmostProc set_values_almost;

-    XtAppContext app = XtWidgetToApplicationContext(w);

-    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));

-

-    LOCK_APP(app);

-    wc = XtClass(w);

-    if ((args == NULL) && (num_args != 0)) {

-        XtAppErrorMsg(app,

-		"invalidArgCount","xtSetValues",XtCXtToolkitError,

-                "Argument count > 0 on NULL argument list in XtSetValues",

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

-    }

-

-    /* Allocate and copy current widget into old widget */

-

-    LOCK_PROCESS;

-    widgetSize = wc->core_class.widget_size;

-    UNLOCK_PROCESS;

-    oldw = (Widget) XtStackAlloc(widgetSize, oldwCache);

-    reqw = (Widget) XtStackAlloc (widgetSize, reqwCache);

-    (void) memmove((char *) oldw, (char *) w, (int) widgetSize);

-

-    /* Set resource values */

-

-    LOCK_PROCESS;

-    SetValues((char*)w, (XrmResourceList *) wc->core_class.resources,

-	wc->core_class.num_resources, args, num_args);

-    UNLOCK_PROCESS;

-

-    (void) memmove ((char *) reqw, (char *) w, (int) widgetSize);

-

-    hasConstraints = (XtParent(w) != NULL && !XtIsShell(w) && XtIsConstraint(XtParent(w)));

-

-    /* Some widget sets apparently do ugly things by freeing the

-     * constraints on some children, thus the extra test here */

-    if (hasConstraints) {

-	cwc = (ConstraintWidgetClass) XtClass(w->core.parent);

-	if (w->core.constraints) {

-	    LOCK_PROCESS;

-	    constraintSize = cwc->constraint_class.constraint_size;

-	    UNLOCK_PROCESS;

-	} else constraintSize = 0;

-    } else constraintSize = 0;

-

-    if (constraintSize) {

-	/* Allocate and copy current constraints into oldw */

-	oldw->core.constraints = XtStackAlloc(constraintSize, oldcCache);

-	reqw->core.constraints = XtStackAlloc(constraintSize, reqcCache);

-	(void) memmove((char *) oldw->core.constraints,

-		       (char *) w->core.constraints, (int) constraintSize);

-

-	/* Set constraint values */

-	LOCK_PROCESS;

-	SetValues((char*)w->core.constraints,

-	    (XrmResourceList *)(cwc->constraint_class.resources),

-	    cwc->constraint_class.num_resources, args, num_args);

-	UNLOCK_PROCESS;

-	(void) memmove((char *) reqw->core.constraints,

-		       (char *) w->core.constraints, (int) constraintSize);

-    }

-

-    /* Inform widget of changes, then inform parent of changes */

-    redisplay = CallSetValues (wc, oldw, reqw, w, args, num_args);

-    if (hasConstraints) {

-	redisplay |= CallConstraintSetValues(cwc, oldw, reqw, w, args, num_args);

-    }

-

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-	XtChangeHookSetValuesDataRec set_val;

-

-	set_val.old = oldw;

-	set_val.req = reqw;

-	set_val.args = args;

-	set_val.num_args = num_args;

-	call_data.type = XtHsetValues;

-	call_data.widget = w;

-	call_data.event_data = (XtPointer) &set_val;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-

-    if (XtIsRectObj(w)) {

-	/* Now perform geometry request if needed */

-	geoReq.request_mode = 0;

-	if (oldw->core.x	!= w->core.x) {

-	    geoReq.x		= w->core.x;

-	    w->core.x		= oldw->core.x;

-	    geoReq.request_mode |= CWX;

-	}

-	if (oldw->core.y	!= w->core.y) {

-	    geoReq.y		= w->core.y;

-	    w->core.y		= oldw->core.y;

-	    geoReq.request_mode |= CWY;

-	}

-	if (oldw->core.width	!= w->core.width) {

-	    geoReq.width	= w->core.width;

-	    w->core.width	= oldw->core.width;

-	    geoReq.request_mode |= CWWidth;

-	}

-	if (oldw->core.height	!= w->core.height) {

-	    geoReq.height	= w->core.height;

-	    w->core.height	= oldw->core.height;

-	    geoReq.request_mode |= CWHeight;

-	}

-	if (oldw->core.border_width != w->core.border_width) {

-	    geoReq.border_width	    = w->core.border_width;

-	    w->core.border_width    = oldw->core.border_width;

-	    geoReq.request_mode	    |= CWBorderWidth;

-	}

-

-	if (geoReq.request_mode != 0) {

-	    /* Pass on any requests for unchanged geometry values */

-	    if (geoReq.request_mode !=

-		(CWX | CWY | CWWidth | CWHeight | CWBorderWidth)) {

-		for ( ; num_args != 0; num_args--, args++) {

-		    if (! (geoReq.request_mode & CWX) &&

-			strcmp(XtNx, args->name) == 0) {

-			geoReq.x = w->core.x;

-			geoReq.request_mode |= CWX;

-		    } else if (! (geoReq.request_mode & CWY) &&

-			       strcmp(XtNy, args->name) == 0) {

-			geoReq.y = w->core.y;

-			geoReq.request_mode |= CWY;

-		    } else if (! (geoReq.request_mode & CWWidth) &&

-			       strcmp(XtNwidth, args->name) == 0) {

-			geoReq.width = w->core.width;

-			geoReq.request_mode |= CWWidth;

-		    } else if (! (geoReq.request_mode & CWHeight) &&

-			       strcmp(XtNheight, args->name) == 0) {

-			geoReq.height = w->core.height;

-			geoReq.request_mode |= CWHeight;

-		    } else if (! (geoReq.request_mode & CWBorderWidth) &&

-			       strcmp(XtNborderWidth, args->name) == 0) {

-			geoReq.border_width = w->core.border_width;

-			geoReq.request_mode |= CWBorderWidth;

-		    }

-		}

-	    }

-	    CALLGEOTAT(_XtGeoTrace(w,

-		     "\nXtSetValues sees some geometry changes for \"%s\".\n",

-			   XtName(w)));

-	    CALLGEOTAT(_XtGeoTab(1));

-	    do {

-		XtGeometryHookDataRec call_data;

-

-		if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {

-		    call_data.type = XtHpreGeometry;

-		    call_data.widget = w;

-		    call_data.request = &geoReq;

-		    XtCallCallbackList(hookobj,

-			((HookObject)hookobj)->hooks.geometryhook_callbacks,

-			(XtPointer)&call_data);

-		    call_data.result = result =

-			_XtMakeGeometryRequest(w, &geoReq, &geoReply,

-					       &cleared_rect_obj);

-		    call_data.type = XtHpostGeometry;

-		    call_data.reply = &geoReply;

-		    XtCallCallbackList(hookobj,

-			((HookObject)hookobj)->hooks.geometryhook_callbacks,

-			(XtPointer)&call_data);

-		} else {

-		    result = _XtMakeGeometryRequest(w, &geoReq, &geoReply,

-						    &cleared_rect_obj);

-		}

-		if (result == XtGeometryYes || result == XtGeometryDone)

-		    break;

-

-		/* An Almost or No reply.  Call widget and let it munge

-		   request, reply */

-		LOCK_PROCESS;

-		set_values_almost = wc->core_class.set_values_almost;

-		UNLOCK_PROCESS;

-		if (set_values_almost == NULL) {

-		    XtAppWarningMsg(app,

-			    "invalidProcedure","set_values_almost",

-			  XtCXtToolkitError,

-			  "set_values_almost procedure shouldn't be NULL",

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

-		    break;

-		}

-		if (result == XtGeometryNo) geoReply.request_mode = 0;

-		CALLGEOTAT(_XtGeoTrace(w,"calling SetValuesAlmost.\n"));

-		(*set_values_almost) (oldw, w, &geoReq, &geoReply);

-	    } while (geoReq.request_mode != 0);

-	    /* call resize proc if we changed size and parent

-	     * didn't already invoke resize */

-	    {

-	    XtWidgetProc resize;

-	    LOCK_PROCESS;

-	    resize = wc->core_class.resize;

-	    UNLOCK_PROCESS;

-	    if ((w->core.width != oldw->core.width ||

-		 w->core.height != oldw->core.height)

-		&& result != XtGeometryDone

-		&& resize != (XtWidgetProc) NULL) {

-		CALLGEOTAT(_XtGeoTrace(w,

-				 "XtSetValues calls \"%s\"'s resize proc.\n",

-			       XtName(w)));

-		(*resize)(w);

-	      }

-	    }

-	    CALLGEOTAT(_XtGeoTab(-1));

-	}

-	/* Redisplay if needed.  No point in clearing if the window is

-	 * about to disappear, as the Expose event will just go straight

-	 * to the bit bucket. */

-        if (XtIsWidget(w)) {

-            /* widgets can distinguish between redisplay and resize, since

-             the server will cause an expose on resize */

-            if (redisplay && XtIsRealized(w) && !w->core.being_destroyed) {

-                CALLGEOTAT(_XtGeoTrace(w,

-				 "XtSetValues calls ClearArea on \"%s\".\n",

-			       XtName(w)));

-		XClearArea (XtDisplay(w), XtWindow(w), 0, 0, 0, 0, TRUE);

-	    }

-        } else { /*non-window object */

-	  if (redisplay && ! cleared_rect_obj ) {

-	      Widget pw = _XtWindowedAncestor(w);

-	      if (XtIsRealized(pw) && !pw->core.being_destroyed) {

-		  RectObj r = (RectObj)w;

-		  int bw2 = r->rectangle.border_width << 1;

-		  CALLGEOTAT(_XtGeoTrace(w,

-		   "XtSetValues calls ClearArea on \"%s\"'s parent \"%s\".\n",

-				 XtName(w),XtName(pw)));

-		  XClearArea (XtDisplay (pw), XtWindow (pw),

-			      r->rectangle.x, r->rectangle.y,

-			      r->rectangle.width + bw2,

-			      r->rectangle.height + bw2,TRUE);

-	      }

-	  }

-        }

-    }

-

-

-    /* Free dynamic storage */

-    if (constraintSize) {

-        XtStackFree(oldw->core.constraints, oldcCache);

-        XtStackFree(reqw->core.constraints, reqcCache);

-    }

-    XtStackFree((XtPointer)oldw, oldwCache);

-    XtStackFree((XtPointer)reqw, reqwCache);

-    UNLOCK_APP(app);

-} /* XtSetValues */

+/***********************************************************
+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, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+
+/*
+ *	XtSetValues(), XtSetSubvalues()
+ */
+
+
+static void SetValues(
+  char*			base,		/* Base address to write values to   */
+  XrmResourceList*	res,		/* The current resource values.      */
+  register Cardinal	num_resources,	/* number of items in resources      */
+  ArgList 		args,		/* The resource values to set        */
+  Cardinal		num_args)	/* number of items in arg list       */
+{
+    register ArgList		arg;
+    register Cardinal 	        i;
+    register XrmName		argName;
+    register XrmResourceList*   xrmres;
+
+    /* Resource lists are assumed to be in compiled form already via the
+       initial XtGetResources, XtGetSubresources calls */
+
+    for (arg = args ; num_args != 0; num_args--, arg++) {
+	argName = StringToName(arg->name);
+	for (xrmres = res, i = 0; i < num_resources; i++, xrmres++) {
+	    if (argName == (*xrmres)->xrm_name) {
+		_XtCopyFromArg(arg->value,
+		    base - (*xrmres)->xrm_offset - 1,
+		    (*xrmres)->xrm_size);
+		break;
+	    }
+	}
+    }
+} /* SetValues */
+
+static Boolean CallSetValues (
+    WidgetClass class,
+    Widget      current,
+    Widget      request,
+    Widget      new,
+    ArgList     args,
+    Cardinal    num_args)
+{
+    Boolean redisplay = FALSE;
+    WidgetClass superclass;
+    XtArgsFunc set_values_hook;
+    XtSetValuesFunc set_values;
+
+    LOCK_PROCESS;
+    superclass = class->core_class.superclass;
+    UNLOCK_PROCESS;
+    if (superclass)
+        redisplay =
+	    CallSetValues(superclass, current, request, new, args, num_args);
+
+    LOCK_PROCESS;
+    set_values = class->core_class.set_values;
+    UNLOCK_PROCESS;
+    if (set_values)
+        redisplay |= (*set_values) (current, request, new, args, &num_args);
+
+    LOCK_PROCESS;
+    set_values_hook = class->core_class.set_values_hook;
+    UNLOCK_PROCESS;
+    if (set_values_hook)
+	redisplay |= (*set_values_hook) (new, args, &num_args);
+    return (redisplay);
+}
+
+static Boolean
+CallConstraintSetValues (
+    ConstraintWidgetClass class,
+    Widget      current,
+    Widget      request,
+    Widget      new,
+    ArgList     args,
+    Cardinal    num_args)
+{
+    Boolean redisplay = FALSE;
+    XtSetValuesFunc set_values;
+    ConstraintWidgetClass superclass;
+
+    if ((WidgetClass)class != constraintWidgetClass) {
+	if (class == NULL)
+	    XtAppErrorMsg(XtWidgetToApplicationContext(current),
+		    "invalidClass","constraintSetValue",XtCXtToolkitError,
+                 "Subclass of Constraint required in CallConstraintSetValues",
+                  (String *)NULL, (Cardinal *)NULL);
+	LOCK_PROCESS;
+	superclass = (ConstraintWidgetClass) class->core_class.superclass;
+	UNLOCK_PROCESS;
+	redisplay =
+	   CallConstraintSetValues(superclass,
+				   current, request, new, args, num_args);
+    }
+    LOCK_PROCESS;
+    set_values = class->constraint_class.set_values;
+    UNLOCK_PROCESS;
+    if (set_values)
+        redisplay |= (*set_values) (current, request, new, args, &num_args);
+    return (redisplay);
+}
+
+void XtSetSubvalues(
+  XtPointer             base,           /* Base address to write values to   */
+  register XtResourceList resources,    /* The current resource values.      */
+  register Cardinal     num_resources,  /* number of items in resources      */
+  ArgList               args,           /* The resource values to set        */
+  Cardinal              num_args)       /* number of items in arg list       */
+{
+      register XrmResourceList*   xrmres;
+      xrmres = _XtCreateIndirectionTable (resources, num_resources);
+      SetValues((char*)base,xrmres,num_resources, args, num_args);
+      XtFree((char *)xrmres);
+}
+
+
+void XtSetValues(
+    register Widget   w,
+	     ArgList  args,
+	     Cardinal num_args)
+{
+    register Widget oldw, reqw;
+    /* need to use strictest alignment rules possible in next two decls. */
+    double	    oldwCache[100], reqwCache[100];
+    double	    oldcCache[20], reqcCache[20];
+    Cardinal	    widgetSize, constraintSize;
+    Boolean	    redisplay, cleared_rect_obj = False;
+    XtGeometryResult result;
+    XtWidgetGeometry geoReq, geoReply;
+    WidgetClass     wc;
+    ConstraintWidgetClass cwc = NULL;
+    Boolean	    hasConstraints;
+    XtAlmostProc set_values_almost;
+    XtAppContext app = XtWidgetToApplicationContext(w);
+    Widget hookobj = XtHooksOfDisplay(XtDisplayOfObject(w));
+
+    LOCK_APP(app);
+    wc = XtClass(w);
+    if ((args == NULL) && (num_args != 0)) {
+        XtAppErrorMsg(app,
+		"invalidArgCount","xtSetValues",XtCXtToolkitError,
+                "Argument count > 0 on NULL argument list in XtSetValues",
+                 (String *)NULL, (Cardinal *)NULL);
+    }
+
+    /* Allocate and copy current widget into old widget */
+
+    LOCK_PROCESS;
+    widgetSize = wc->core_class.widget_size;
+    UNLOCK_PROCESS;
+    oldw = (Widget) XtStackAlloc(widgetSize, oldwCache);
+    reqw = (Widget) XtStackAlloc (widgetSize, reqwCache);
+    (void) memmove((char *) oldw, (char *) w, (int) widgetSize);
+
+    /* Set resource values */
+
+    LOCK_PROCESS;
+    SetValues((char*)w, (XrmResourceList *) wc->core_class.resources,
+	wc->core_class.num_resources, args, num_args);
+    UNLOCK_PROCESS;
+
+    (void) memmove ((char *) reqw, (char *) w, (int) widgetSize);
+
+    hasConstraints = (XtParent(w) != NULL && !XtIsShell(w) && XtIsConstraint(XtParent(w)));
+
+    /* Some widget sets apparently do ugly things by freeing the
+     * constraints on some children, thus the extra test here */
+    if (hasConstraints) {
+	cwc = (ConstraintWidgetClass) XtClass(w->core.parent);
+	if (w->core.constraints) {
+	    LOCK_PROCESS;
+	    constraintSize = cwc->constraint_class.constraint_size;
+	    UNLOCK_PROCESS;
+	} else constraintSize = 0;
+    } else constraintSize = 0;
+
+    if (constraintSize) {
+	/* Allocate and copy current constraints into oldw */
+	oldw->core.constraints = XtStackAlloc(constraintSize, oldcCache);
+	reqw->core.constraints = XtStackAlloc(constraintSize, reqcCache);
+	(void) memmove((char *) oldw->core.constraints,
+		       (char *) w->core.constraints, (int) constraintSize);
+
+	/* Set constraint values */
+	LOCK_PROCESS;
+	SetValues((char*)w->core.constraints,
+	    (XrmResourceList *)(cwc->constraint_class.resources),
+	    cwc->constraint_class.num_resources, args, num_args);
+	UNLOCK_PROCESS;
+	(void) memmove((char *) reqw->core.constraints,
+		       (char *) w->core.constraints, (int) constraintSize);
+    }
+
+    /* Inform widget of changes, then inform parent of changes */
+    redisplay = CallSetValues (wc, oldw, reqw, w, args, num_args);
+    if (hasConstraints) {
+	redisplay |= CallConstraintSetValues(cwc, oldw, reqw, w, args, num_args);
+    }
+
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+	XtChangeHookSetValuesDataRec set_val;
+
+	set_val.old = oldw;
+	set_val.req = reqw;
+	set_val.args = args;
+	set_val.num_args = num_args;
+	call_data.type = XtHsetValues;
+	call_data.widget = w;
+	call_data.event_data = (XtPointer) &set_val;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+
+    if (XtIsRectObj(w)) {
+	/* Now perform geometry request if needed */
+	geoReq.request_mode = 0;
+	if (oldw->core.x	!= w->core.x) {
+	    geoReq.x		= w->core.x;
+	    w->core.x		= oldw->core.x;
+	    geoReq.request_mode |= CWX;
+	}
+	if (oldw->core.y	!= w->core.y) {
+	    geoReq.y		= w->core.y;
+	    w->core.y		= oldw->core.y;
+	    geoReq.request_mode |= CWY;
+	}
+	if (oldw->core.width	!= w->core.width) {
+	    geoReq.width	= w->core.width;
+	    w->core.width	= oldw->core.width;
+	    geoReq.request_mode |= CWWidth;
+	}
+	if (oldw->core.height	!= w->core.height) {
+	    geoReq.height	= w->core.height;
+	    w->core.height	= oldw->core.height;
+	    geoReq.request_mode |= CWHeight;
+	}
+	if (oldw->core.border_width != w->core.border_width) {
+	    geoReq.border_width	    = w->core.border_width;
+	    w->core.border_width    = oldw->core.border_width;
+	    geoReq.request_mode	    |= CWBorderWidth;
+	}
+
+	if (geoReq.request_mode != 0) {
+	    /* Pass on any requests for unchanged geometry values */
+	    if (geoReq.request_mode !=
+		(CWX | CWY | CWWidth | CWHeight | CWBorderWidth)) {
+		for ( ; num_args != 0; num_args--, args++) {
+		    if (! (geoReq.request_mode & CWX) &&
+			strcmp(XtNx, args->name) == 0) {
+			geoReq.x = w->core.x;
+			geoReq.request_mode |= CWX;
+		    } else if (! (geoReq.request_mode & CWY) &&
+			       strcmp(XtNy, args->name) == 0) {
+			geoReq.y = w->core.y;
+			geoReq.request_mode |= CWY;
+		    } else if (! (geoReq.request_mode & CWWidth) &&
+			       strcmp(XtNwidth, args->name) == 0) {
+			geoReq.width = w->core.width;
+			geoReq.request_mode |= CWWidth;
+		    } else if (! (geoReq.request_mode & CWHeight) &&
+			       strcmp(XtNheight, args->name) == 0) {
+			geoReq.height = w->core.height;
+			geoReq.request_mode |= CWHeight;
+		    } else if (! (geoReq.request_mode & CWBorderWidth) &&
+			       strcmp(XtNborderWidth, args->name) == 0) {
+			geoReq.border_width = w->core.border_width;
+			geoReq.request_mode |= CWBorderWidth;
+		    }
+		}
+	    }
+	    CALLGEOTAT(_XtGeoTrace(w,
+		     "\nXtSetValues sees some geometry changes for \"%s\".\n",
+			   XtName(w)));
+	    CALLGEOTAT(_XtGeoTab(1));
+	    do {
+		XtGeometryHookDataRec call_data;
+
+		if (XtHasCallbacks(hookobj, XtNgeometryHook) == XtCallbackHasSome) {
+		    call_data.type = XtHpreGeometry;
+		    call_data.widget = w;
+		    call_data.request = &geoReq;
+		    XtCallCallbackList(hookobj,
+			((HookObject)hookobj)->hooks.geometryhook_callbacks,
+			(XtPointer)&call_data);
+		    call_data.result = result =
+			_XtMakeGeometryRequest(w, &geoReq, &geoReply,
+					       &cleared_rect_obj);
+		    call_data.type = XtHpostGeometry;
+		    call_data.reply = &geoReply;
+		    XtCallCallbackList(hookobj,
+			((HookObject)hookobj)->hooks.geometryhook_callbacks,
+			(XtPointer)&call_data);
+		} else {
+		    result = _XtMakeGeometryRequest(w, &geoReq, &geoReply,
+						    &cleared_rect_obj);
+		}
+		if (result == XtGeometryYes || result == XtGeometryDone)
+		    break;
+
+		/* An Almost or No reply.  Call widget and let it munge
+		   request, reply */
+		LOCK_PROCESS;
+		set_values_almost = wc->core_class.set_values_almost;
+		UNLOCK_PROCESS;
+		if (set_values_almost == NULL) {
+		    XtAppWarningMsg(app,
+			    "invalidProcedure","set_values_almost",
+			  XtCXtToolkitError,
+			  "set_values_almost procedure shouldn't be NULL",
+			  (String *)NULL, (Cardinal *)NULL);
+		    break;
+		}
+		if (result == XtGeometryNo) geoReply.request_mode = 0;
+		CALLGEOTAT(_XtGeoTrace(w,"calling SetValuesAlmost.\n"));
+		(*set_values_almost) (oldw, w, &geoReq, &geoReply);
+	    } while (geoReq.request_mode != 0);
+	    /* call resize proc if we changed size and parent
+	     * didn't already invoke resize */
+	    {
+	    XtWidgetProc resize;
+	    LOCK_PROCESS;
+	    resize = wc->core_class.resize;
+	    UNLOCK_PROCESS;
+	    if ((w->core.width != oldw->core.width ||
+		 w->core.height != oldw->core.height)
+		&& result != XtGeometryDone
+		&& resize != (XtWidgetProc) NULL) {
+		CALLGEOTAT(_XtGeoTrace(w,
+				 "XtSetValues calls \"%s\"'s resize proc.\n",
+			       XtName(w)));
+		(*resize)(w);
+	      }
+	    }
+	    CALLGEOTAT(_XtGeoTab(-1));
+	}
+	/* Redisplay if needed.  No point in clearing if the window is
+	 * about to disappear, as the Expose event will just go straight
+	 * to the bit bucket. */
+        if (XtIsWidget(w)) {
+            /* widgets can distinguish between redisplay and resize, since
+             the server will cause an expose on resize */
+            if (redisplay && XtIsRealized(w) && !w->core.being_destroyed) {
+                CALLGEOTAT(_XtGeoTrace(w,
+				 "XtSetValues calls ClearArea on \"%s\".\n",
+			       XtName(w)));
+		XClearArea (XtDisplay(w), XtWindow(w), 0, 0, 0, 0, TRUE);
+	    }
+        } else { /*non-window object */
+	  if (redisplay && ! cleared_rect_obj ) {
+	      Widget pw = _XtWindowedAncestor(w);
+	      if (XtIsRealized(pw) && !pw->core.being_destroyed) {
+		  RectObj r = (RectObj)w;
+		  int bw2 = r->rectangle.border_width << 1;
+		  CALLGEOTAT(_XtGeoTrace(w,
+		   "XtSetValues calls ClearArea on \"%s\"'s parent \"%s\".\n",
+				 XtName(w),XtName(pw)));
+		  XClearArea (XtDisplay (pw), XtWindow (pw),
+			      r->rectangle.x, r->rectangle.y,
+			      r->rectangle.width + bw2,
+			      r->rectangle.height + bw2,TRUE);
+	      }
+	  }
+        }
+    }
+
+
+    /* Free dynamic storage */
+    if (constraintSize) {
+        XtStackFree(oldw->core.constraints, oldcCache);
+        XtStackFree(reqw->core.constraints, reqcCache);
+    }
+    XtStackFree((XtPointer)oldw, oldwCache);
+    XtStackFree((XtPointer)reqw, reqwCache);
+    UNLOCK_APP(app);
+} /* XtSetValues */
diff --git a/libXt/src/SetWMCW.c b/libXt/src/SetWMCW.c
index d2a1bc032..8a065d776 100644
--- a/libXt/src/SetWMCW.c
+++ b/libXt/src/SetWMCW.c
@@ -1,169 +1,169 @@
-/*

- *

- * Author:  Chris D. Peterson, MIT X Consortium

- */

-

-/************************************************************

-

-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 1989, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include <X11/Xatom.h>

-

-/*	Function Name: XtSetWMColormapWindows

- *

- *	Description: Sets the value of the WM_COLORMAP_WINDOWS

- *                   property on a widget's window.

- *

- *	Arguments:  widget - specifies the widget on whose window the

- *   		           - WM_COLORMAP_WINDOWS property will be stored.

- *

- *                  list - Specifies a list of widgets whose windows are to be

- *		           listed in the WM_COLORMAP_WINDOWS property.

- *                  count - Specifies the number of widgets in list.

- *

- *	Returns: none.

- */

-

-void

-XtSetWMColormapWindows(

-    Widget widget,

-    Widget *list,

-    Cardinal count)

-{

-    Window *data;

-    Widget *checked, *top, *temp, hookobj;

-    Cardinal i, j, checked_count;

-    Boolean match;

-    Atom xa_wm_colormap_windows;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if ( !XtIsRealized(widget) || (count == 0) ) {

-	UNLOCK_APP(app);

-	return;

-    }

-

-    top = checked = (Widget *) __XtMalloc( (Cardinal) sizeof(Widget) * count);

-

-

-/*

- * The specification calls for only adding the windows that have unique

- * colormaps to the property to this function, so we will make a pass through

- * the widget list removing all the widgets with non-unique colormaps.

- *

- * We will also remove any unrealized widgets from the list at this time.

- */

-

-    for (checked_count = 0, i = 0; i < count; i++) {

-	if (!XtIsRealized(list[i])) continue;

-

-	*checked = list[i];

-	match = FALSE;

-

-/*

- * Don't check first element for matching colormap since there is nothing

- * to check it against.

- */

-

-	if (checked != top)

-	    for (j = 0, temp = top; j < checked_count ; j++, temp++)

-		if ( (*temp)->core.colormap == (*checked)->core.colormap) {

-		    match = TRUE;

-		    break;

-		}

-

-/*

- * If no colormap was found to match then add this widget to the linked list.

- */

-

-	if (!match) {

-	    checked++;

-	    checked_count++;

-	}

-    }

-

-/*

- * Now that we have the list of widgets we need to convert it to a list of

- * windows and set the property.

- */

-

-    data = (Window *) __XtMalloc( (Cardinal) sizeof(Window) * checked_count);

-

-    for ( i = 0 ; i < checked_count ; i++)

-	data[i] = XtWindow(top[i]);

-

-    xa_wm_colormap_windows = XInternAtom(XtDisplay(widget),

-					 "WM_COLORMAP_WINDOWS", FALSE);

-

-    XChangeProperty(XtDisplay(widget), XtWindow(widget),

-		    xa_wm_colormap_windows, XA_WINDOW, 32,

-		    PropModeReplace, (unsigned char *) data, (int) i);

-

-    hookobj = XtHooksOfDisplay(XtDisplay(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHsetWMColormapWindows;

-	call_data.widget = widget;

-	call_data.event_data = (XtPointer) list;

-	call_data.num_event_data = count;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-

-    XtFree( (char *) data);

-    XtFree( (char *) top);

-    UNLOCK_APP(app);

-}

+/*
+ *
+ * Author:  Chris D. Peterson, MIT X Consortium
+ */
+
+/************************************************************
+
+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 1989, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include <X11/Xatom.h>
+
+/*	Function Name: XtSetWMColormapWindows
+ *
+ *	Description: Sets the value of the WM_COLORMAP_WINDOWS
+ *                   property on a widget's window.
+ *
+ *	Arguments:  widget - specifies the widget on whose window the
+ *   		           - WM_COLORMAP_WINDOWS property will be stored.
+ *
+ *                  list - Specifies a list of widgets whose windows are to be
+ *		           listed in the WM_COLORMAP_WINDOWS property.
+ *                  count - Specifies the number of widgets in list.
+ *
+ *	Returns: none.
+ */
+
+void
+XtSetWMColormapWindows(
+    Widget widget,
+    Widget *list,
+    Cardinal count)
+{
+    Window *data;
+    Widget *checked, *top, *temp, hookobj;
+    Cardinal i, j, checked_count;
+    Boolean match;
+    Atom xa_wm_colormap_windows;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if ( !XtIsRealized(widget) || (count == 0) ) {
+	UNLOCK_APP(app);
+	return;
+    }
+
+    top = checked = (Widget *) __XtMalloc( (Cardinal) sizeof(Widget) * count);
+
+
+/*
+ * The specification calls for only adding the windows that have unique
+ * colormaps to the property to this function, so we will make a pass through
+ * the widget list removing all the widgets with non-unique colormaps.
+ *
+ * We will also remove any unrealized widgets from the list at this time.
+ */
+
+    for (checked_count = 0, i = 0; i < count; i++) {
+	if (!XtIsRealized(list[i])) continue;
+
+	*checked = list[i];
+	match = FALSE;
+
+/*
+ * Don't check first element for matching colormap since there is nothing
+ * to check it against.
+ */
+
+	if (checked != top)
+	    for (j = 0, temp = top; j < checked_count ; j++, temp++)
+		if ( (*temp)->core.colormap == (*checked)->core.colormap) {
+		    match = TRUE;
+		    break;
+		}
+
+/*
+ * If no colormap was found to match then add this widget to the linked list.
+ */
+
+	if (!match) {
+	    checked++;
+	    checked_count++;
+	}
+    }
+
+/*
+ * Now that we have the list of widgets we need to convert it to a list of
+ * windows and set the property.
+ */
+
+    data = (Window *) __XtMalloc( (Cardinal) sizeof(Window) * checked_count);
+
+    for ( i = 0 ; i < checked_count ; i++)
+	data[i] = XtWindow(top[i]);
+
+    xa_wm_colormap_windows = XInternAtom(XtDisplay(widget),
+					 "WM_COLORMAP_WINDOWS", FALSE);
+
+    XChangeProperty(XtDisplay(widget), XtWindow(widget),
+		    xa_wm_colormap_windows, XA_WINDOW, 32,
+		    PropModeReplace, (unsigned char *) data, (int) i);
+
+    hookobj = XtHooksOfDisplay(XtDisplay(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHsetWMColormapWindows;
+	call_data.widget = widget;
+	call_data.event_data = (XtPointer) list;
+	call_data.num_event_data = count;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+
+    XtFree( (char *) data);
+    XtFree( (char *) top);
+    UNLOCK_APP(app);
+}
diff --git a/libXt/src/Shell.c b/libXt/src/Shell.c
index c0003a2a1..b78b62af6 100644
--- a/libXt/src/Shell.c
+++ b/libXt/src/Shell.c
@@ -1,3434 +1,3434 @@
-/***********************************************************

-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, 1994, 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.

-

-*/

-

-#ifndef DEFAULT_WM_TIMEOUT

-#define DEFAULT_WM_TIMEOUT 5000

-#endif

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "Shell.h"

-#include "ShellP.h"

-#include "ShellI.h"

-#include "Vendor.h"

-#include "VendorP.h"

-#include <X11/Xatom.h>

-#include <X11/Xlocale.h>

-#ifndef _MSC_VER

-#include <X11/ICE/ICElib.h>

-#endif

-#include <stdio.h>

-#include <stdlib.h>

-#include <unistd.h>

-

-#ifdef EDITRES

-#include <X11/Xmu/Editres.h>

-#endif

-

-/***************************************************************************

- *

- * Note: per the Xt spec, the Shell geometry management assumes in

- * several places that there is only one managed child.  This is

- * *not* a bug.  Any subclass that assumes otherwise is broken.

- *

- ***************************************************************************/

-

-#define BIGSIZE ((Dimension)32767)

-

-/***************************************************************************

- *

- * Default values for resource lists

- *

- ***************************************************************************/

-

-#ifdef CRAY

-void _XtShellDepth(Widget, int, XrmValue *);

-void _XtShellColormap(Widget, int, XrmValue *);

-void _XtShellAncestorSensitive(Widget, int, XrmValue *);

-void _XtTitleEncoding(Widget, int, XrmValue *);

-#else

-static void _XtShellDepth(Widget, int, XrmValue *);

-static void _XtShellColormap(Widget, int, XrmValue *);

-static void _XtShellAncestorSensitive(Widget, int, XrmValue *);

-static void _XtTitleEncoding(Widget, int, XrmValue *);

-#endif

-

-/***************************************************************************

- *

- * Shell class record

- *

- ***************************************************************************/

-

-#define Offset(x)	(XtOffsetOf(ShellRec, x))

-static XtResource shellResources[]=

-{

-	{XtNx, XtCPosition, XtRPosition, sizeof(Position),

-	    Offset(core.x), XtRImmediate, (XtPointer)BIGSIZE},

-	{XtNy, XtCPosition, XtRPosition, sizeof(Position),

-	    Offset(core.y), XtRImmediate, (XtPointer)BIGSIZE},

-	{ XtNdepth, XtCDepth, XtRInt, sizeof(int),

-	    Offset(core.depth), XtRCallProc, (XtPointer) _XtShellDepth},

-	{ XtNcolormap, XtCColormap, XtRColormap, sizeof(Colormap),

-	    Offset(core.colormap), XtRCallProc, (XtPointer) _XtShellColormap},

-	{ XtNancestorSensitive, XtCSensitive, XtRBoolean, sizeof(Boolean),

-	    Offset(core.ancestor_sensitive), XtRCallProc,

-	    (XtPointer) _XtShellAncestorSensitive},

-	{ XtNallowShellResize, XtCAllowShellResize, XtRBoolean,

-	    sizeof(Boolean), Offset(shell.allow_shell_resize),

-	    XtRImmediate, (XtPointer)False},

-	{ XtNgeometry, XtCGeometry, XtRString, sizeof(String),

-	    Offset(shell.geometry), XtRString, (XtPointer)NULL},

-	{ XtNcreatePopupChildProc, XtCCreatePopupChildProc, XtRFunction,

-	    sizeof(XtCreatePopupChildProc), Offset(shell.create_popup_child_proc),

-	    XtRFunction, NULL},

-	{ XtNsaveUnder, XtCSaveUnder, XtRBoolean, sizeof(Boolean),

-	    Offset(shell.save_under), XtRImmediate, (XtPointer)False},

-	{ XtNpopupCallback, XtCCallback, XtRCallback, sizeof(XtCallbackList),

-	    Offset(shell.popup_callback), XtRCallback, (XtPointer) NULL},

-	{ XtNpopdownCallback, XtCCallback, XtRCallback, sizeof(XtCallbackList),

-	    Offset(shell.popdown_callback), XtRCallback, (XtPointer) NULL},

-	{ XtNoverrideRedirect, XtCOverrideRedirect,

-	    XtRBoolean, sizeof(Boolean), Offset(shell.override_redirect),

-	    XtRImmediate, (XtPointer)False},

-	{ XtNvisual, XtCVisual, XtRVisual, sizeof(Visual*),

-	    Offset(shell.visual), XtRImmediate, (XtPointer)CopyFromParent}

-};

-

-static void ClassPartInitialize(WidgetClass);

-static void Initialize(Widget, Widget, ArgList, Cardinal *);

-static void Realize(Widget, Mask *, XSetWindowAttributes *);

-static void Resize(Widget);

-static Boolean SetValues(Widget, Widget, Widget, ArgList , Cardinal *);

-static void GetValuesHook(Widget, ArgList, Cardinal*);

-static void ChangeManaged(Widget);

-static XtGeometryResult GeometryManager(Widget, XtWidgetGeometry *, XtWidgetGeometry *);

-static XtGeometryResult RootGeometryManager(Widget gw, XtWidgetGeometry *request, XtWidgetGeometry *reply);

-static void Destroy(Widget);

-

-static ShellClassExtensionRec shellClassExtRec = {

-    NULL,

-    NULLQUARK,

-    XtShellExtensionVersion,

-    sizeof(ShellClassExtensionRec),

-    RootGeometryManager

-};

-

-externaldef(shellclassrec) ShellClassRec shellClassRec = {

-  {   /* Core */

-    /* superclass	  */	(WidgetClass) &compositeClassRec,

-    /* class_name	  */	"Shell",

-    /* size		  */	sizeof(ShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	ClassPartInitialize,

-    /* Class init'ed ?	  */	FALSE,

-    /* initialize	  */	Initialize,

-    /* initialize_notify  */	NULL,

-    /* realize		  */	Realize,

-    /* actions		  */	NULL,

-    /* num_actions	  */	0,

-    /* resources	  */	shellResources,

-    /* resource_count	  */	XtNumber(shellResources),

-    /* xrm_class	  */	NULLQUARK,

-    /* compress_motion	  */	FALSE,

-    /* compress_exposure  */	TRUE,

-    /* compress_enterleave*/	FALSE,

-    /* visible_interest	  */	FALSE,

-    /* destroy		  */	Destroy,

-    /* resize		  */	Resize,

-    /* expose		  */	NULL,

-    /* set_values	  */	SetValues,

-    /* set_values_hook	  */	NULL,

-    /* set_values_almost  */	XtInheritSetValuesAlmost,

-    /* get_values_hook	  */	GetValuesHook,

-    /* accept_focus	  */	NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets	  */	NULL,

-    /* tm_table		  */	NULL,

-    /* query_geometry	  */	NULL,

-    /* display_accelerator*/	NULL,

-    /* extension	  */	NULL

-  },{ /* Composite */

-    /* geometry_manager	  */	GeometryManager,

-    /* change_managed	  */	ChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	  */	NULL

-  },{ /* Shell */

-    /* extension	  */	(XtPointer)&shellClassExtRec

-  }

-};

-

-externaldef(shellwidgetclass) WidgetClass shellWidgetClass = (WidgetClass) (&shellClassRec);

-

-/***************************************************************************

- *

- * OverrideShell class record

- *

- ***************************************************************************/

-

-static XtResource overrideResources[]=

-{

-	{ XtNoverrideRedirect, XtCOverrideRedirect,

-	    XtRBoolean, sizeof(Boolean), Offset(shell.override_redirect),

-	    XtRImmediate, (XtPointer)True},

-	{ XtNsaveUnder, XtCSaveUnder, XtRBoolean, sizeof(Boolean),

-	    Offset(shell.save_under), XtRImmediate, (XtPointer)True},

-};

-

-externaldef(overrideshellclassrec) OverrideShellClassRec overrideShellClassRec = {

-  {

-    /* superclass         */    (WidgetClass) &shellClassRec,

-    /* class_name         */    "OverrideShell",

-    /* size               */    sizeof(OverrideShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?    */	FALSE,

-    /* initialize         */    NULL,

-    /* initialize_notify    */	NULL,

-    /* realize            */    XtInheritRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    overrideResources,

-    /* resource_count     */	XtNumber(overrideResources),

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/ 	FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    NULL,

-    /* resize             */    XtInheritResize,

-    /* expose             */    NULL,

-    /* set_values         */    NULL,

-    /* set_values_hook      */	NULL,

-    /* set_values_almost    */	XtInheritSetValuesAlmost,

-    /* get_values_hook      */	NULL,

-    /* accept_focus       */    NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets   */    NULL,

-    /* tm_table		    */  NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */  NULL,

-    /* extension	    */  NULL

-  },{

-    /* geometry_manager   */    XtInheritGeometryManager,

-    /* change_managed     */    XtInheritChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  }

-};

-

-externaldef(overrideshellwidgetclass) WidgetClass overrideShellWidgetClass =

-	(WidgetClass) (&overrideShellClassRec);

-

-/***************************************************************************

- *

- * WMShell class record

- *

- ***************************************************************************/

-

-#undef Offset

-#define Offset(x)	(XtOffsetOf(WMShellRec, x))

-

-static int default_unspecified_shell_int = XtUnspecifiedShellInt;

-/*

- * Warning, casting XtUnspecifiedShellInt (which is -1) to an (XtPointer)

- * can result is loss of bits on some machines (i.e. crays)

- */

-

-static XtResource wmResources[]=

-{

-	{ XtNtitle, XtCTitle, XtRString, sizeof(String),

-	    Offset(wm.title), XtRString, NULL},

-	{ XtNtitleEncoding, XtCTitleEncoding, XtRAtom, sizeof(Atom),

-	    Offset(wm.title_encoding),

-	    XtRCallProc, (XtPointer) _XtTitleEncoding},

-	{ XtNwmTimeout, XtCWmTimeout, XtRInt, sizeof(int),

-	    Offset(wm.wm_timeout), XtRImmediate,(XtPointer)DEFAULT_WM_TIMEOUT},

-	{ XtNwaitForWm, XtCWaitForWm, XtRBoolean, sizeof(Boolean),

-	    Offset(wm.wait_for_wm), XtRImmediate, (XtPointer)True},

-	{ XtNtransient, XtCTransient, XtRBoolean, sizeof(Boolean),

-	    Offset(wm.transient), XtRImmediate, (XtPointer)False},

-/* size_hints minus things stored in core */

-	{ XtNbaseWidth, XtCBaseWidth, XtRInt, sizeof(int),

-	    Offset(wm.base_width),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNbaseHeight, XtCBaseHeight, XtRInt, sizeof(int),

-	    Offset(wm.base_height),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNwinGravity, XtCWinGravity, XtRGravity, sizeof(int),

-	    Offset(wm.win_gravity),

-	    XtRGravity, (XtPointer) &default_unspecified_shell_int},

-	{ XtNminWidth, XtCMinWidth, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.min_width),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNminHeight, XtCMinHeight, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.min_height),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNmaxWidth, XtCMaxWidth, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.max_width),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNmaxHeight, XtCMaxHeight, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.max_height),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNwidthInc, XtCWidthInc, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.width_inc),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNheightInc, XtCHeightInc, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.height_inc),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNminAspectX, XtCMinAspectX, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.min_aspect.x),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNminAspectY, XtCMinAspectY, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.min_aspect.y),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNmaxAspectX, XtCMaxAspectX, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.max_aspect.x),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNmaxAspectY, XtCMaxAspectY, XtRInt, sizeof(int),

-	    Offset(wm.size_hints.max_aspect.y),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-/* wm_hints */

-	{ XtNinput, XtCInput, XtRBool, sizeof(Bool),

-	    Offset(wm.wm_hints.input), XtRImmediate, (XtPointer)False},

-	{ XtNinitialState, XtCInitialState, XtRInitialState, sizeof(int),

-	    Offset(wm.wm_hints.initial_state),

-	    XtRImmediate, (XtPointer)NormalState},

-	{ XtNiconPixmap, XtCIconPixmap, XtRBitmap, sizeof(Pixmap),

-	    Offset(wm.wm_hints.icon_pixmap), XtRPixmap, NULL},

-	{ XtNiconWindow, XtCIconWindow, XtRWindow, sizeof(Window),

-	    Offset(wm.wm_hints.icon_window), XtRWindow,   (XtPointer) NULL},

-	{ XtNiconX, XtCIconX, XtRInt, sizeof(int),

-	    Offset(wm.wm_hints.icon_x),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNiconY, XtCIconY, XtRInt, sizeof(int),

-	    Offset(wm.wm_hints.icon_y),

-	    XtRInt, (XtPointer) &default_unspecified_shell_int},

-	{ XtNiconMask, XtCIconMask, XtRBitmap, sizeof(Pixmap),

-	    Offset(wm.wm_hints.icon_mask), XtRPixmap, NULL},

-	{ XtNwindowGroup, XtCWindowGroup, XtRWindow, sizeof(Window),

-	    Offset(wm.wm_hints.window_group),

-	    XtRImmediate, (XtPointer)XtUnspecifiedWindow},

-	{ XtNclientLeader, XtCClientLeader, XtRWidget, sizeof(Widget),

-	    Offset(wm.client_leader), XtRWidget, NULL},

-	{ XtNwindowRole, XtCWindowRole, XtRString, sizeof(String),

-	    Offset(wm.window_role), XtRString, (XtPointer) NULL},

-	{ XtNurgency, XtCUrgency, XtRBoolean, sizeof(Boolean),

-	    Offset(wm.urgency), XtRImmediate, (XtPointer) False}

-};

-

-static void WMInitialize(Widget, Widget, ArgList, Cardinal *);

-static Boolean WMSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-static void WMDestroy(Widget);

-

-externaldef(wmshellclassrec) WMShellClassRec wmShellClassRec = {

-  {

-    /* superclass         */    (WidgetClass) &shellClassRec,

-    /* class_name         */    "WMShell",

-    /* size               */    sizeof(WMShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?    */	FALSE,

-    /* initialize         */    WMInitialize,

-    /* initialize_notify    */	NULL,

-    /* realize            */    XtInheritRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    wmResources,

-    /* resource_count     */	XtNumber(wmResources),

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/	FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    WMDestroy,

-    /* resize             */    XtInheritResize,

-    /* expose             */    NULL,

-    /* set_values         */    WMSetValues,

-    /* set_values_hook      */	NULL,

-    /* set_values_almost    */	XtInheritSetValuesAlmost,

-    /* get_values_hook      */	NULL,

-    /* accept_focus       */    NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets   */    NULL,

-    /* tm_table		    */  NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */  NULL,

-    /* extension	    */  NULL

-  },{

-    /* geometry_manager   */    XtInheritGeometryManager,

-    /* change_managed     */    XtInheritChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  }

-};

-

-externaldef(wmshellwidgetclass) WidgetClass wmShellWidgetClass = (WidgetClass) (&wmShellClassRec);

-

-/***************************************************************************

- *

- * TransientShell class record

- *

- ***************************************************************************/

-

-#undef Offset

-#define Offset(x)	(XtOffsetOf(TransientShellRec, x))

-

-static XtResource transientResources[]=

-{

-	{ XtNtransient, XtCTransient, XtRBoolean, sizeof(Boolean),

-	    Offset(wm.transient), XtRImmediate, (XtPointer)True},

-	{ XtNtransientFor, XtCTransientFor, XtRWidget, sizeof(Widget),

-	    Offset(transient.transient_for), XtRWidget, NULL},

-	{ XtNsaveUnder, XtCSaveUnder, XtRBoolean, sizeof(Boolean),

-	    Offset(shell.save_under), XtRImmediate, (XtPointer)True},

-};

-

-static void TransientRealize(Widget, Mask *, XSetWindowAttributes *);

-static Boolean TransientSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-

-externaldef(transientshellclassrec) TransientShellClassRec transientShellClassRec = {

-  {

-    /* superclass	  */	(WidgetClass) &vendorShellClassRec,

-    /* class_name	  */	"TransientShell",

-    /* size		  */	sizeof(TransientShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?	  */	FALSE,

-    /* initialize	  */	NULL,

-    /* initialize_notify  */	NULL,

-    /* realize		  */	TransientRealize,

-    /* actions		  */	NULL,

-    /* num_actions	  */	0,

-    /* resources	  */	transientResources,

-    /* resource_count	  */	XtNumber(transientResources),

-    /* xrm_class	  */	NULLQUARK,

-    /* compress_motion	  */	FALSE,

-    /* compress_exposure  */	TRUE,

-    /* compress_enterleave*/	FALSE,

-    /* visible_interest	  */	FALSE,

-    /* destroy		  */	NULL,

-    /* resize		  */	XtInheritResize,

-    /* expose		  */	NULL,

-    /* set_values	  */	TransientSetValues,

-    /* set_values_hook	  */	NULL,

-    /* set_values_almost  */	XtInheritSetValuesAlmost,

-    /* get_values_hook	  */	NULL,

-    /* accept_focus	  */	NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets	  */	NULL,

-    /* tm_table		  */	XtInheritTranslations,

-    /* query_geometry	  */	NULL,

-    /* display_accelerator*/	NULL,

-    /* extension	  */	NULL

-  },{

-    /* geometry_manager	  */	XtInheritGeometryManager,

-    /* change_managed	  */	XtInheritChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  }

-};

-

-externaldef(transientshellwidgetclass) WidgetClass transientShellWidgetClass =

-	(WidgetClass) (&transientShellClassRec);

-

-/***************************************************************************

- *

- * TopLevelShell class record

- *

- ***************************************************************************/

-

-#undef Offset

-#define Offset(x)	(XtOffsetOf(TopLevelShellRec, x))

-

-static XtResource topLevelResources[]=

-{

-	{ XtNiconName, XtCIconName, XtRString, sizeof(String),

-	    Offset(topLevel.icon_name), XtRString, (XtPointer) NULL},

-	{ XtNiconNameEncoding, XtCIconNameEncoding, XtRAtom, sizeof(Atom),

-	    Offset(topLevel.icon_name_encoding),

-	    XtRCallProc, (XtPointer) _XtTitleEncoding},

-	{ XtNiconic, XtCIconic, XtRBoolean, sizeof(Boolean),

-	    Offset(topLevel.iconic), XtRImmediate, (XtPointer)False}

-};

-

-static void TopLevelInitialize(Widget, Widget, ArgList, Cardinal *);

-static Boolean TopLevelSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-static void TopLevelDestroy(Widget);

-

-externaldef(toplevelshellclassrec) TopLevelShellClassRec topLevelShellClassRec = {

-  {

-    /* superclass         */    (WidgetClass) &vendorShellClassRec,

-    /* class_name         */    "TopLevelShell",

-    /* size               */    sizeof(TopLevelShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?    */	FALSE,

-    /* initialize         */    TopLevelInitialize,

-    /* initialize_notify    */	NULL,

-    /* realize            */    XtInheritRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    topLevelResources,

-    /* resource_count     */	XtNumber(topLevelResources),

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/ 	FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    TopLevelDestroy,

-    /* resize             */    XtInheritResize,

-    /* expose             */    NULL,

-    /* set_values         */    TopLevelSetValues,

-    /* set_values_hook      */	NULL,

-    /* set_values_almost    */	XtInheritSetValuesAlmost,

-    /* get_values_hook      */	NULL,

-    /* accept_focus       */    NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets   */    NULL,

-    /* tm_table		    */  XtInheritTranslations,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */  NULL,

-    /* extension	    */  NULL

-  },{

-    /* geometry_manager   */    XtInheritGeometryManager,

-    /* change_managed     */    XtInheritChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  }

-};

-

-externaldef(toplevelshellwidgetclass) WidgetClass topLevelShellWidgetClass =

-	(WidgetClass) (&topLevelShellClassRec);

-

-/***************************************************************************

- *

- * ApplicationShell class record

- *

- ***************************************************************************/

-

-#undef Offset

-#define Offset(x)	(XtOffsetOf(ApplicationShellRec, x))

-

-static XtResource applicationResources[]=

-{

-    {XtNargc, XtCArgc, XtRInt, sizeof(int),

-	  Offset(application.argc), XtRImmediate, (XtPointer)0},

-    {XtNargv, XtCArgv, XtRStringArray, sizeof(String*),

-	  Offset(application.argv), XtRPointer, (XtPointer) NULL}

-};

-#undef Offset

-

-static void ApplicationInitialize(Widget, Widget, ArgList, Cardinal *);

-static void ApplicationDestroy(Widget);

-static Boolean ApplicationSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-static void ApplicationShellInsertChild(Widget);

-

-static CompositeClassExtensionRec compositeClassExtension = {

-    /* next_extension	*/	NULL,

-    /* record_type	*/	NULLQUARK,

-    /* version		*/	XtCompositeExtensionVersion,

-    /* record_size	*/	sizeof(CompositeClassExtensionRec),

-    /* accepts_objects	*/	TRUE,

-    /* allows_change_managed_set */ FALSE

-};

-

-

-externaldef(applicationshellclassrec) ApplicationShellClassRec applicationShellClassRec = {

-  {

-    /* superclass         */    (WidgetClass) &topLevelShellClassRec,

-    /* class_name         */    "ApplicationShell",

-    /* size               */    sizeof(ApplicationShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?    */	FALSE,

-    /* initialize         */    ApplicationInitialize,

-    /* initialize_notify  */	NULL,

-    /* realize            */    XtInheritRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    applicationResources,

-    /* resource_count     */	XtNumber(applicationResources),

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/    FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    ApplicationDestroy,

-    /* resize             */    XtInheritResize,

-    /* expose             */    NULL,

-    /* set_values         */    ApplicationSetValues,

-    /* set_values_hook    */	NULL,

-    /* set_values_almost  */	XtInheritSetValuesAlmost,

-    /* get_values_hook    */	NULL,

-    /* accept_focus       */    NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets   */    NULL,

-    /* tm_table		  */	XtInheritTranslations,

-    /* query_geometry	  */	NULL,

-    /* display_accelerator*/	NULL,

-    /* extension	  */	NULL

-  },{

-    /* geometry_manager   */    XtInheritGeometryManager,

-    /* change_managed     */    XtInheritChangeManaged,

-    /* insert_child	  */	ApplicationShellInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	  */	(XtPointer)&compositeClassExtension

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  }

-};

-

-externaldef(applicationshellwidgetclass) WidgetClass applicationShellWidgetClass =

-	(WidgetClass) (&applicationShellClassRec);

-

-/***************************************************************************

- *

- * SessionShell class record

- *

- ***************************************************************************/

-

-#undef Offset

-#define Offset(x)	(XtOffsetOf(SessionShellRec, x))

-

-static XtResource sessionResources[]=

-{

-#ifndef XT_NO_SM

- {XtNconnection, XtCConnection, XtRSmcConn, sizeof(SmcConn),

-       Offset(session.connection), XtRSmcConn, (XtPointer) NULL},

-#endif

- {XtNsessionID, XtCSessionID, XtRString, sizeof(String),

-       Offset(session.session_id), XtRString, (XtPointer) NULL},

- {XtNrestartCommand, XtCRestartCommand, XtRCommandArgArray, sizeof(String*),

-       Offset(session.restart_command), XtRPointer, (XtPointer) NULL},

- {XtNcloneCommand, XtCCloneCommand, XtRCommandArgArray, sizeof(String*),

-       Offset(session.clone_command), XtRPointer, (XtPointer) NULL},

- {XtNdiscardCommand, XtCDiscardCommand, XtRCommandArgArray, sizeof(String*),

-       Offset(session.discard_command), XtRPointer, (XtPointer) NULL},

- {XtNresignCommand, XtCResignCommand, XtRCommandArgArray, sizeof(String*),

-       Offset(session.resign_command), XtRPointer, (XtPointer) NULL},

- {XtNshutdownCommand, XtCShutdownCommand, XtRCommandArgArray, sizeof(String*),

-       Offset(session.shutdown_command), XtRPointer, (XtPointer) NULL},

- {XtNenvironment, XtCEnvironment, XtREnvironmentArray, sizeof(String*),

-       Offset(session.environment), XtRPointer, (XtPointer) NULL},

- {XtNcurrentDirectory, XtCCurrentDirectory, XtRDirectoryString, sizeof(String),

-       Offset(session.current_dir), XtRString, (XtPointer) NULL},

- {XtNprogramPath, XtCProgramPath, XtRString, sizeof(String),

-      Offset(session.program_path), XtRString, (XtPointer) NULL},

-#ifndef XT_NO_SM

- {XtNrestartStyle, XtCRestartStyle, XtRRestartStyle, sizeof(unsigned char),

-      Offset(session.restart_style), XtRImmediate,

-      (XtPointer) SmRestartIfRunning},

-#endif

- {XtNjoinSession, XtCJoinSession, XtRBoolean, sizeof(Boolean),

-       Offset(session.join_session), XtRImmediate, (XtPointer) True},

- {XtNsaveCallback, XtCCallback, XtRCallback, sizeof(XtPointer),

-       Offset(session.save_callbacks), XtRCallback, (XtPointer) NULL},

- {XtNinteractCallback, XtCCallback, XtRCallback, sizeof(XtPointer),

-       Offset(session.interact_callbacks), XtRCallback, (XtPointer)NULL},

- {XtNcancelCallback, XtCCallback, XtRCallback, sizeof(XtPointer),

-       Offset(session.cancel_callbacks), XtRCallback, (XtPointer) NULL},

- {XtNsaveCompleteCallback, XtCCallback, XtRCallback, sizeof(XtPointer),

-       Offset(session.save_complete_callbacks), XtRCallback, (XtPointer) NULL},

- {XtNdieCallback, XtCCallback, XtRCallback, sizeof(XtPointer),

-       Offset(session.die_callbacks), XtRCallback, (XtPointer) NULL},

- {XtNerrorCallback, XtCCallback, XtRCallback, sizeof(XtPointer),

-       Offset(session.error_callbacks), XtRCallback, (XtPointer) NULL}

-};

-#undef Offset

-

-static void SessionInitialize(Widget, Widget, ArgList, Cardinal *);

-static void SessionDestroy(Widget);

-static Boolean SessionSetValues(Widget, Widget, Widget, ArgList, Cardinal *);

-

-static CompositeClassExtensionRec sessionCompositeClassExtension = {

-    /* next_extension	*/	NULL,

-    /* record_type	*/	NULLQUARK,

-    /* version		*/	XtCompositeExtensionVersion,

-    /* record_size	*/	sizeof(CompositeClassExtensionRec),

-    /* accepts_objects	*/	TRUE,

-    /* allows_change_managed_set */ FALSE

-};

-

-

-externaldef(sessionshellclassrec) SessionShellClassRec sessionShellClassRec = {

-  {

-    /* superclass         */    (WidgetClass) &applicationShellClassRec,

-    /* class_name         */    "SessionShell",

-    /* size               */    sizeof(SessionShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?    */	FALSE,

-    /* initialize         */    SessionInitialize,

-    /* initialize_notify  */	NULL,

-    /* realize            */    XtInheritRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    sessionResources,

-    /* resource_count     */	XtNumber(sessionResources),

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/    FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    SessionDestroy,

-    /* resize             */    XtInheritResize,

-    /* expose             */    NULL,

-    /* set_values         */    SessionSetValues,

-    /* set_values_hook    */	NULL,

-    /* set_values_almost  */	XtInheritSetValuesAlmost,

-    /* get_values_hook    */	NULL,

-    /* accept_focus       */    NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets   */    NULL,

-    /* tm_table		  */	XtInheritTranslations,

-    /* query_geometry	  */	NULL,

-    /* display_accelerator*/	NULL,

-    /* extension	  */	NULL

-  },{

-    /* geometry_manager   */    XtInheritGeometryManager,

-    /* change_managed     */    XtInheritChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	  */	(XtPointer)&sessionCompositeClassExtension

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension	  */	NULL

-  },{

-    /* extension          */    NULL

-  }

-};

-

-externaldef(sessionshellwidgetclass) WidgetClass sessionShellWidgetClass =

-	(WidgetClass) (&sessionShellClassRec);

-

-/****************************************************************************

- * Whew!

- ****************************************************************************/

-

-static void ComputeWMSizeHints(

-    WMShellWidget w,

-    XSizeHints *hints)

-{

-    register long flags;

-    hints->flags = flags = w->wm.size_hints.flags;

-#define copy(field) hints->field = w->wm.size_hints.field

-    if (flags & (USPosition | PPosition)) {

-	copy(x);

-	copy(y);

-    }

-    if (flags & (USSize | PSize)) {

-	copy(width);

-	copy(height);

-    }

-    if (flags & PMinSize) {

-	copy(min_width);

-	copy(min_height);

-    }

-    if (flags & PMaxSize) {

-	copy(max_width);

-	copy(max_height);

-    }

-    if (flags & PResizeInc) {

-	copy(width_inc);

-	copy(height_inc);

-    }

-    if (flags & PAspect) {

-	copy(min_aspect.x);

-	copy(min_aspect.y);

-	copy(max_aspect.x);

-	copy(max_aspect.y);

-    }

-#undef copy

-#define copy(field) hints->field = w->wm.field

-    if (flags & PBaseSize) {

-	copy(base_width);

-	copy(base_height);

-    }

-    if (flags & PWinGravity)

-	copy(win_gravity);

-#undef copy

-}

-

-static void _SetWMSizeHints(

-    WMShellWidget w)

-{

-    XSizeHints *size_hints = XAllocSizeHints();

-

-    if (size_hints == NULL) _XtAllocError("XAllocSizeHints");

-    ComputeWMSizeHints(w, size_hints);

-    XSetWMNormalHints(XtDisplay((Widget)w), XtWindow((Widget)w), size_hints);

-    XFree((char*)size_hints);

-}

-

-static ShellClassExtension _FindClassExtension(

-    WidgetClass widget_class)

-{

-    ShellClassExtension ext;

-    for (ext = (ShellClassExtension)((ShellWidgetClass)widget_class)

-	       ->shell_class.extension;

-	 ext != NULL && ext->record_type != NULLQUARK;

-	 ext = (ShellClassExtension)ext->next_extension);

-

-    if (ext != NULL) {

-	if (  ext->version == XtShellExtensionVersion

-	      && ext->record_size == sizeof(ShellClassExtensionRec)) {

-	    /* continue */

-	} else {

-	    String params[1];

-	    Cardinal num_params = 1;

-	    params[0] = widget_class->core_class.class_name;

-	    XtErrorMsg( "invalidExtension", "shellClassPartInitialize",

-		        XtCXtToolkitError,

-		 "widget class %s has invalid ShellClassExtension record",

-		 params, &num_params);

-	}

-    }

-    return ext;

-}

-

-static void ClassPartInitialize(WidgetClass widget_class)

-{

-    ShellClassExtension ext = _FindClassExtension(widget_class);

-    if (ext != NULL) {

-	if (ext->root_geometry_manager == XtInheritRootGeometryManager) {

-	    ext->root_geometry_manager =

-		_FindClassExtension(widget_class->core_class.superclass)

-		    ->root_geometry_manager;

-	}

-    } else {

-	/* if not found, spec requires XtInheritRootGeometryManager */

-	XtPointer *extP

-	    = &((ShellWidgetClass)widget_class)->shell_class.extension;

-	ext = XtNew(ShellClassExtensionRec);

-	(void) memmove((char*)ext,

-		       (char*)_FindClassExtension(widget_class->core_class.superclass),

-		       sizeof(ShellClassExtensionRec));

-	ext->next_extension = *extP;

-	*extP = (XtPointer)ext;

-    }

-}

-

-

-static void EventHandler(Widget wid, XtPointer closure, XEvent *event, Boolean *continue_to_dispatch);

-static void _popup_set_prop(ShellWidget);

-

-

-/*ARGSUSED*/

-static void XtCopyDefaultDepth(

-    Widget      widget,

-    int		offset,

-    XrmValue    *value)

-{

-    value->addr = (XPointer)(&DefaultDepthOfScreen(XtScreenOfObject(widget)));

-}

-

-#ifndef CRAY

-static

-#endif

-void _XtShellDepth(

-    Widget widget,

-    int closure,

-    XrmValue *value)

-{

-   if (widget->core.parent == NULL) XtCopyDefaultDepth(widget,closure,value);

-   else _XtCopyFromParent (widget,closure,value);

-}

-

-/*ARGSUSED*/

-static void XtCopyDefaultColormap(

-    Widget      widget,

-    int		offset,

-    XrmValue    *value)

-{

-    value->addr = (XPointer)(&DefaultColormapOfScreen(XtScreenOfObject(widget)));

-}

-

-#ifndef CRAY

-static

-#endif

-void _XtShellColormap(

-    Widget widget,

-    int closure,

-    XrmValue *value)

-{

-   if (widget->core.parent == NULL)

-	   XtCopyDefaultColormap(widget,closure,value);

-   else _XtCopyFromParent (widget,closure,value);

-}

-

-#ifndef CRAY

-static

-#endif

-void _XtShellAncestorSensitive(

-    Widget widget,

-    int closure,

-    XrmValue *value)

-{

-   static Boolean true = True;

-   if (widget->core.parent == NULL) value->addr = (XPointer)(&true);

-   else _XtCopyFromParent (widget,closure,value);

-}

-

-/*ARGSUSED*/

-#ifndef CRAY

-static

-#endif

-void _XtTitleEncoding(

-    Widget widget,

-    int offset,

-    XrmValue *value)

-{

-    static Atom atom;

-    if (XtWidgetToApplicationContext(widget)->langProcRec.proc) atom = None;

-    else atom = XA_STRING;

-    value->addr = (XPointer) &atom;

-}

-

-

-/* ARGSUSED */

-static void Initialize(

-	Widget req,

-	Widget new,

-	ArgList args,		/* unused */

-	Cardinal *num_args)	/* unused */

-{

-	ShellWidget w = (ShellWidget) new;

-

-	w->shell.popped_up = FALSE;

-	w->shell.client_specified =

-	    _XtShellNotReparented | _XtShellPositionValid;

-

-	if (w->core.x == BIGSIZE) {

-	    w->core.x = 0;

-	    if (w->core.y == BIGSIZE) w->core.y = 0;

-	} else {

-	    if (w->core.y == BIGSIZE) w->core.y = 0;

-	    else w->shell.client_specified |= _XtShellPPositionOK;

-	}

-

-	XtAddEventHandler(new, (EventMask) StructureNotifyMask,

-		TRUE, EventHandler, (XtPointer) NULL);

-

-#ifdef EDITRES

-	XtAddEventHandler(new, (EventMask) 0, TRUE,

-			  _XEditResCheckMessages, NULL);

-#endif

-}

-

-/* ARGSUSED */

-static void WMInitialize(

-	Widget req, Widget new,

-	ArgList args,		/* unused */

-	Cardinal *num_args)	/* unused */

-{

-	WMShellWidget w = (WMShellWidget) new;

-	TopLevelShellWidget tls = (TopLevelShellWidget) new;	/* maybe */

-

-	if(w->wm.title == NULL) {

-	    if (XtIsTopLevelShell(new) &&

-		    tls->topLevel.icon_name != NULL &&

-		    strlen(tls->topLevel.icon_name) != 0) {

-		w->wm.title = XtNewString(tls->topLevel.icon_name);

-	    } else {

-		w->wm.title = XtNewString(w->core.name);

-	    }

-	} else {

-	    w->wm.title = XtNewString(w->wm.title);

-	}

-	w->wm.size_hints.flags = 0;

-	w->wm.wm_hints.flags = 0;

-	if (w->wm.window_role)

-	    w->wm.window_role = XtNewString(w->wm.window_role);

-}

-

-

-/* ARGSUSED */

-static void TopLevelInitialize(

-	Widget req, Widget new,

-	ArgList args,		/* unused */

-	Cardinal *num_args)	/* unused */

-{

-	TopLevelShellWidget w = (TopLevelShellWidget) new;

-

-	if (w->topLevel.icon_name == NULL) {

-	    w->topLevel.icon_name = XtNewString(w->core.name);

-	} else {

-	    w->topLevel.icon_name = XtNewString(w->topLevel.icon_name);

-	}

-

-	if (w->topLevel.iconic)

-	    w->wm.wm_hints.initial_state = IconicState;

-}

-

-static String *NewArgv(int, String *);

-static String *NewStringArray(String *);

-static void FreeStringArray(String *);

-

-/* ARGSUSED */

-static void ApplicationInitialize(

-    Widget req, Widget new,

-    ArgList args,		/* unused */

-    Cardinal *num_args)		/* unused */

-{

-    ApplicationShellWidget w = (ApplicationShellWidget)new;

-

-    if (w->application.argc > 0)

-	w->application.argv = NewArgv(w->application.argc,

-				      w->application.argv);

-}

-

-#define XtSaveInactive 0

-#define XtSaveActive   1

-#define XtInteractPending    2

-#define XtInteractActive     3

-

-#define XtCloneCommandMask	(1L<<0)

-#define XtCurrentDirectoryMask	(1L<<1)

-#define XtDiscardCommandMask	(1L<<2)

-#define XtEnvironmentMask	(1L<<3)

-#define XtProgramMask		(1L<<4)

-#define XtResignCommandMask	(1L<<5)

-#define XtRestartCommandMask	(1L<<6)

-#define XtRestartStyleHintMask	(1L<<7)

-#define XtShutdownCommandMask	(1L<<8)

-

-static void JoinSession(SessionShellWidget);

-static void SetSessionProperties(SessionShellWidget, Boolean, unsigned long, unsigned long);

-#ifndef XT_NO_SM

-static void StopManagingSession(SessionShellWidget, SmcConn);

-#endif

-

-typedef struct _XtSaveYourselfRec {

-    XtSaveYourself next;

-    int            save_type;

-    int            interact_style;

-    Boolean        shutdown;

-    Boolean        fast;

-    Boolean        cancel_shutdown;

-    int		   phase;

-    int            interact_dialog_type;

-    Boolean	   request_cancel;

-    Boolean	   request_next_phase;

-    Boolean        save_success;

-    int            save_tokens;

-    int            interact_tokens;

-} XtSaveYourselfRec;

-

-/* ARGSUSED */

-static void SessionInitialize(

-    Widget req, Widget new,

-    ArgList args,		/* unused */

-    Cardinal *num_args)		/* unused */

-{

-#ifndef XT_NO_SM

-    SessionShellWidget w = (SessionShellWidget)new;

-

-    if (w->session.session_id) w->session.session_id =

-	XtNewString(w->session.session_id);

-    if (w->session.restart_command) w->session.restart_command =

-	NewStringArray(w->session.restart_command);

-    if (w->session.clone_command) w->session.clone_command =

-	NewStringArray(w->session.clone_command);

-    if (w->session.discard_command) w->session.discard_command =

-	NewStringArray(w->session.discard_command);

-    if (w->session.resign_command) w->session.resign_command =

-	NewStringArray(w->session.resign_command);

-    if (w->session.shutdown_command) w->session.shutdown_command =

-	NewStringArray(w->session.shutdown_command);

-    if (w->session.environment) w->session.environment =

-	NewStringArray(w->session.environment);

-    if (w->session.current_dir) w->session.current_dir =

-	XtNewString(w->session.current_dir);

-    if (w->session.program_path) w->session.program_path =

-	XtNewString(w->session.program_path);

-

-    w->session.checkpoint_state = XtSaveInactive;

-    w->session.input_id = 0;

-    w->session.save = NULL;

-

-    if ((w->session.join_session) &&

-	(w->application.argv || w->session.restart_command))

-	JoinSession(w);

-

-    if (w->session.connection)

-	SetSessionProperties(w, True, 0L, 0L);

-#endif /* !XT_NO_SM */

-}

-

-static void Resize(

-    Widget w)

-{

-    register ShellWidget sw = (ShellWidget)w;

-    Widget childwid;

-    Cardinal i;

-    for(i = 0; i < sw->composite.num_children; i++) {

-        if (XtIsManaged(sw->composite.children[i])) {

-             childwid = sw->composite.children[i];

-             XtResizeWidget(childwid, sw->core.width, sw->core.height,

-                           childwid->core.border_width);

-	     break;		/* can only be one managed child */

-        }

-    }

-}

-

-static void GetGeometry(Widget, Widget);

-

-static void Realize(

-	Widget wid,

-	Mask *vmask,

-	XSetWindowAttributes *attr)

-{

-	ShellWidget w = (ShellWidget) wid;

-        Mask mask = *vmask;

-

-	if (! (w->shell.client_specified & _XtShellGeometryParsed)) {

-	    /* we'll get here only if there was no child the first

-	       time we were realized.  If the shell was Unrealized

-	       and then re-Realized, we probably don't want to

-	       re-evaluate the defaults anyway.

-	     */

-	    GetGeometry(wid, (Widget)NULL);

-	}

-	else if (w->core.background_pixmap == XtUnspecifiedPixmap) {

-	    /* I attempt to inherit my child's background to avoid screen flash

-	     * if there is latency between when I get resized and when my child

-	     * is resized.  Background=None is not satisfactory, as I want the

-	     * user to get immediate feedback on the new dimensions (most

-	     * particularly in the case of a non-reparenting wm).  It is

-	     * especially important to have the server clear any old cruft

-	     * from the display when I am resized larger.

-	     */

-	    register Widget *childP = w->composite.children;

-	    int i;

-	    for (i = w->composite.num_children; i; i--, childP++) {

-		if (XtIsWidget(*childP) && XtIsManaged(*childP)) {

-		    if ((*childP)->core.background_pixmap

-			    != XtUnspecifiedPixmap) {

-			mask &= ~(CWBackPixel);

-			mask |= CWBackPixmap;

-			attr->background_pixmap =

-			    w->core.background_pixmap =

-				(*childP)->core.background_pixmap;

-		    } else {

-			attr->background_pixel =

-			    w->core.background_pixel =

-				(*childP)->core.background_pixel;

-		    }

-		    break;

-		}

-	    }

-	}

-

-	if(w->shell.save_under) {

-		mask |= CWSaveUnder;

-		attr->save_under = TRUE;

-	}

-	if(w->shell.override_redirect) {

-		mask |= CWOverrideRedirect;

-		attr->override_redirect = TRUE;

-	}

-	if (wid->core.width == 0 || wid->core.height == 0) {

-	    Cardinal count = 1;

-	    XtErrorMsg("invalidDimension", "shellRealize", XtCXtToolkitError,

-		       "Shell widget %s has zero width and/or height",

-		       &wid->core.name, &count);

-	}

-	wid->core.window = XCreateWindow(XtDisplay(wid),

-		wid->core.screen->root, (int)wid->core.x, (int)wid->core.y,

-		(unsigned int)wid->core.width, (unsigned int)wid->core.height,

-		(unsigned int)wid->core.border_width, (int) wid->core.depth,

-		(unsigned int) InputOutput, w->shell.visual,

-		mask, attr);

-

-	_popup_set_prop(w);

-}

-

-

-static void _SetTransientForHint(

-     TransientShellWidget w,

-     Boolean delete)

-{

-    Window window_group;

-

-    if (w->wm.transient) {

-	if (w->transient.transient_for != NULL

-	    && XtIsRealized(w->transient.transient_for))

-	    window_group = XtWindow(w->transient.transient_for);

-	else if ((window_group = w->wm.wm_hints.window_group)

-		 == XtUnspecifiedWindowGroup) {

-	    if (delete)

-		XDeleteProperty( XtDisplay((Widget)w),

-				 XtWindow((Widget)w),

-				 XA_WM_TRANSIENT_FOR

-				);

-	    return;

-	}

-

-	XSetTransientForHint( XtDisplay((Widget)w),

-			      XtWindow((Widget)w),

-			      window_group

-			     );

-    }

-}

-

-

-static void TransientRealize(

-     Widget w,

-     Mask *vmask,

-     XSetWindowAttributes *attr)

-{

-    XtRealizeProc realize;

-

-    LOCK_PROCESS;

-    realize =

-	transientShellWidgetClass->core_class.superclass->core_class.realize;

-    UNLOCK_PROCESS;

-    (*realize) (w, vmask, attr);

-

-    _SetTransientForHint((TransientShellWidget)w, False);

-}

-

-static Widget GetClientLeader(

-    Widget w)

-{

-    while ((! XtIsWMShell(w) || ! ((WMShellWidget)w)->wm.client_leader)

-	   && w->core.parent)

-	w = w->core.parent;

-

-    /* ASSERT: w is a WMshell with client_leader set, or w has no parent */

-

-    if (XtIsWMShell(w) && ((WMShellWidget)w)->wm.client_leader)

-	w = ((WMShellWidget)w)->wm.client_leader;

-    return w;

-}

-

-static void EvaluateWMHints(

-    WMShellWidget w)

-{

-	XWMHints *hintp = &w->wm.wm_hints;

-

-	hintp->flags = StateHint | InputHint;

-

-	if (hintp->icon_x == XtUnspecifiedShellInt)

-	    hintp->icon_x = -1;

-	else

-	    hintp->flags |= IconPositionHint;

-

-	if (hintp->icon_y == XtUnspecifiedShellInt)

-	    hintp->icon_y = -1;

-	else

-	    hintp->flags |= IconPositionHint;

-

-	if (hintp->icon_pixmap != None) hintp->flags |= IconPixmapHint;

-	if (hintp->icon_mask != None)   hintp->flags |= IconMaskHint;

-	if (hintp->icon_window != None) hintp->flags |= IconWindowHint;

-

-	if (hintp->window_group == XtUnspecifiedWindow) {

-	    if(w->core.parent) {

-		Widget p;

-		for (p = w->core.parent; p->core.parent; p = p->core.parent);

-		if (XtIsRealized(p)) {

-		    hintp->window_group = XtWindow(p);

-		    hintp->flags |=  WindowGroupHint;

-		}

-	    }

-	} else if (hintp->window_group != XtUnspecifiedWindowGroup)

-	    hintp->flags |=  WindowGroupHint;

-

-	if (w->wm.urgency) hintp->flags |= XUrgencyHint;

-}

-

-

-static void EvaluateSizeHints(

-    WMShellWidget w)

-{

-	struct _OldXSizeHints *sizep = &w->wm.size_hints;

-

-	sizep->x = w->core.x;

-	sizep->y = w->core.y;

-	sizep->width = w->core.width;

-	sizep->height = w->core.height;

-

-	if (sizep->flags & USSize) {

-	    if (sizep->flags & PSize) sizep->flags &= ~PSize;

-	} else

-	    sizep->flags |= PSize;

-

-	if (sizep->flags & USPosition) {

-	    if (sizep->flags & PPosition) sizep->flags &= ~PPosition;

-	} else if (w->shell.client_specified & _XtShellPPositionOK)

-	    sizep->flags |= PPosition;

-

-	if (sizep->min_aspect.x != XtUnspecifiedShellInt

-	    || sizep->min_aspect.y != XtUnspecifiedShellInt

-	    || sizep->max_aspect.x != XtUnspecifiedShellInt

-	    || sizep->max_aspect.y != XtUnspecifiedShellInt) {

-	    sizep->flags |= PAspect;

-	}

-	if (sizep->flags & PBaseSize

-	    || w->wm.base_width != XtUnspecifiedShellInt

-	    || w->wm.base_height != XtUnspecifiedShellInt) {

-	    sizep->flags |= PBaseSize;

-	    if (w->wm.base_width == XtUnspecifiedShellInt)

-		w->wm.base_width = 0;

-	    if (w->wm.base_height == XtUnspecifiedShellInt)

-		w->wm.base_height = 0;

-	}

-	if (sizep->flags & PResizeInc

-	    || sizep->width_inc != XtUnspecifiedShellInt

-	    || sizep->height_inc != XtUnspecifiedShellInt) {

-	    if (sizep->width_inc < 1) sizep->width_inc = 1;

-	    if (sizep->height_inc < 1) sizep->height_inc = 1;

-	    sizep->flags |= PResizeInc;

-	}

-	if (sizep->flags & PMaxSize

-	    || sizep->max_width != XtUnspecifiedShellInt

-	    || sizep->max_height != XtUnspecifiedShellInt) {

-	    sizep->flags |= PMaxSize;

-	    if (sizep->max_width == XtUnspecifiedShellInt)

-		sizep->max_width = BIGSIZE;

-	    if (sizep->max_height == XtUnspecifiedShellInt)

-		sizep->max_height = BIGSIZE;

-	}

-	if (sizep->flags & PMinSize

-	    || sizep->min_width != XtUnspecifiedShellInt

-	    || sizep->min_height != XtUnspecifiedShellInt) {

-	    sizep->flags |= PMinSize;

-	    if (sizep->min_width == XtUnspecifiedShellInt)

-		sizep->min_width = 1;

-	    if (sizep->min_height == XtUnspecifiedShellInt)

-		sizep->min_height = 1;

-	}

-}

-

-static void _popup_set_prop(

-	ShellWidget w)

-{

-	Widget p;

-	WMShellWidget wmshell = (WMShellWidget) w;

-	TopLevelShellWidget tlshell = (TopLevelShellWidget) w;

-	ApplicationShellWidget appshell = (ApplicationShellWidget) w;

-	XTextProperty icon_name;

-	XTextProperty window_name;

-	char **argv;

-	int argc;

-	XSizeHints *size_hints;

-	Window window_group;

-	XClassHint classhint;

-	Boolean copied_iname, copied_wname;

-

-	if (!XtIsWMShell((Widget)w) || w->shell.override_redirect) return;

-

-	if ((size_hints = XAllocSizeHints()) == NULL)

-	    _XtAllocError("XAllocSizeHints");

-

-	copied_iname = copied_wname = False;

-        if (wmshell->wm.title_encoding == None &&

-	    XmbTextListToTextProperty(XtDisplay((Widget)w),

-				      (char**)&wmshell->wm.title,

-				      1, XStdICCTextStyle,

-				      &window_name) >= Success) {

-	    copied_wname = True;

-	} else {

-	    window_name.value = (unsigned char*)wmshell->wm.title;

-	    window_name.encoding = wmshell->wm.title_encoding ?

-		wmshell->wm.title_encoding : XA_STRING;

-	    window_name.format = 8;

-	    window_name.nitems = strlen((char *)window_name.value);

-	}

-

-	if (XtIsTopLevelShell((Widget)w)) {

-            if (tlshell->topLevel.icon_name_encoding == None &&

-		XmbTextListToTextProperty(XtDisplay((Widget)w),

-					  (char**)&tlshell->topLevel.icon_name,

-					  1, XStdICCTextStyle,

-					  &icon_name) >= Success) {

-		copied_iname = True;

-	    } else {

-		icon_name.value = (unsigned char*)tlshell->topLevel.icon_name;

-		icon_name.encoding = tlshell->topLevel.icon_name_encoding ?

-		    tlshell->topLevel.icon_name_encoding : XA_STRING;

-		icon_name.format = 8;

-		icon_name.nitems = strlen((char *)icon_name.value);

-	    }

-	}

-

-	EvaluateWMHints(wmshell);

-	EvaluateSizeHints(wmshell);

-	ComputeWMSizeHints(wmshell, size_hints);

-

-	if (wmshell->wm.transient

-	    && !XtIsTransientShell((Widget)w)

-	    && (window_group = wmshell->wm.wm_hints.window_group)

-	       != XtUnspecifiedWindowGroup) {

-

-	    XSetTransientForHint(XtDisplay((Widget)w),

-				 XtWindow((Widget)w),

-				 window_group

-				 );

-	}

-

-	classhint.res_name = w->core.name;

-	/* For the class, look up to the top of the tree */

-	for (p = (Widget)w; p->core.parent != NULL; p = p->core.parent);

-	if (XtIsApplicationShell(p)) {

-	    classhint.res_class =

-		((ApplicationShellWidget)p)->application.class;

-	} else {

-	    LOCK_PROCESS;

-	    classhint.res_class = XtClass(p)->core_class.class_name;

-	    UNLOCK_PROCESS;

-	}

-

-	if (XtIsApplicationShell((Widget)w)

-	    && (argc = appshell->application.argc) != -1)

-	    argv = (char**)appshell->application.argv;

-	else {

-	    argv = NULL;

-	    argc = 0;

-	}

-

-	XSetWMProperties(XtDisplay((Widget)w), XtWindow((Widget)w),

-			 &window_name,

-			 (XtIsTopLevelShell((Widget)w)) ? &icon_name : NULL,

-			 argv, argc,

-			 size_hints,

-			 &wmshell->wm.wm_hints,

-			 &classhint);

-	XFree((char*)size_hints);

-	if (copied_wname)

-	    XFree((XPointer)window_name.value);

-	if (copied_iname)

-	    XFree((XPointer)icon_name.value);

-

-	LOCK_PROCESS;

-	if (XtWidgetToApplicationContext((Widget)w)->langProcRec.proc) {

-	    char *locale = setlocale(LC_CTYPE, (char *)NULL);

-	    if (locale)

-		XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),

-				XInternAtom(XtDisplay((Widget)w),

-					    "WM_LOCALE_NAME", False),

-				XA_STRING, 8, PropModeReplace,

-				(unsigned char *)locale, strlen(locale));

-	}

-	UNLOCK_PROCESS;

-

-	p = GetClientLeader((Widget)w);

-	if (XtWindow(p))

-	    XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),

-			    XInternAtom(XtDisplay((Widget)w),

-					"WM_CLIENT_LEADER", False),

-			    XA_WINDOW, 32, PropModeReplace,

-			    (unsigned char *)(&(p->core.window)), 1);

-#ifndef XT_NO_SM

-	if (p == (Widget) w) {

-	    for ( ; p->core.parent != NULL; p = p->core.parent);

-	    if (XtIsSubclass(p, sessionShellWidgetClass)) {

-		String sm_client_id =

-		    ((SessionShellWidget)p)->session.session_id;

-		if (sm_client_id != NULL) {

-		    XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),

-				    XInternAtom(XtDisplay((Widget)w),

-						"SM_CLIENT_ID", False),

-				    XA_STRING, 8, PropModeReplace,

-				    (unsigned char *) sm_client_id,

-				    strlen(sm_client_id));

-		}

-	    }

-	}

-#endif /* !XT_NO_SM */

-

-	if (wmshell->wm.window_role)

-	    XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),

-			    XInternAtom(XtDisplay((Widget)w),

-					"WM_WINDOW_ROLE", False),

-			    XA_STRING, 8, PropModeReplace,

-			    (unsigned char *)wmshell->wm.window_role,

-			    strlen(wmshell->wm.window_role));

-}

-

-/* ARGSUSED */

-static void EventHandler(

-	Widget wid,

-	XtPointer closure,	/* unused */

-	XEvent *event,

-        Boolean *continue_to_dispatch) /* unused */

-{

-	register ShellWidget w = (ShellWidget) wid;

-	WMShellWidget wmshell = (WMShellWidget) w;

-	Boolean  sizechanged = FALSE;

-

-	if(w->core.window != event->xany.window) {

-		XtAppErrorMsg(XtWidgetToApplicationContext(wid),

-			"invalidWindow","eventHandler",XtCXtToolkitError,

-                        "Event with wrong window",

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

-		return;

-	}

-

-	switch(event->type) {

-	    case ConfigureNotify:

-	        if (w->core.window != event->xconfigure.window)

-		    return;  /* in case of SubstructureNotify */

-#define NEQ(x)	( w->core.x != event->xconfigure.x )

-		if( NEQ(width) || NEQ(height) || NEQ(border_width) ) {

-			sizechanged = TRUE;

-#undef NEQ

-			w->core.width = event->xconfigure.width;

-			w->core.height = event->xconfigure.height;

-			w->core.border_width = event->xconfigure.border_width;

-		}

-		if (event->xany.send_event /* ICCCM compliant synthetic ev */

-		    /* || w->shell.override_redirect */

-		    || w->shell.client_specified & _XtShellNotReparented)

-	        {

-		    w->core.x = event->xconfigure.x;

-		    w->core.y = event->xconfigure.y;

-		    w->shell.client_specified |= _XtShellPositionValid;

-		}

-		else w->shell.client_specified &= ~_XtShellPositionValid;

-		if (XtIsWMShell(wid) && !wmshell->wm.wait_for_wm) {

-		    /* Consider trusting the wm again */

-		    register struct _OldXSizeHints *hintp

-			= &wmshell->wm.size_hints;

-#define EQ(x) (hintp->x == w->core.x)

-		    if (EQ(x) && EQ(y) && EQ(width) && EQ(height)) {

-			wmshell->wm.wait_for_wm = TRUE;

-		    }

-#undef EQ

-		}

-		break;

-

-	      case ReparentNotify:

-		if (event->xreparent.window == XtWindow(w)) {

-		   if (event->xreparent.parent !=

-		       RootWindowOfScreen(XtScreen(w)))

-		       w->shell.client_specified &=

-			   ~(_XtShellNotReparented | _XtShellPositionValid);

-		   else {

-		       w->core.x = event->xreparent.x;

-		       w->core.y = event->xreparent.y;

-		       w->shell.client_specified |=

-			   (_XtShellNotReparented | _XtShellPositionValid);

-		   }

-	        }

-		return;

-

-              case MapNotify:

-                if (XtIsTopLevelShell(wid)) {

-                    ((TopLevelShellWidget)wid)->topLevel.iconic = FALSE;

-                }

-                return;

-

-	      case UnmapNotify:

-		{

-		    XtPerDisplayInput	pdi;

-		    XtDevice		device;

-		    Widget		p;

-

-                    if (XtIsTopLevelShell(wid))

-                        ((TopLevelShellWidget)wid)->topLevel.iconic = TRUE;

-

-		    pdi = _XtGetPerDisplayInput(event->xunmap.display);

-

-		    device = &pdi->pointer;

-		    if (device->grabType == XtPassiveServerGrab) {

-			p = device->grab.widget;

-			while (p && !(XtIsShell(p)))

-			    p = p->core.parent;

-			if (p == wid)

-			    device->grabType = XtNoServerGrab;

-		    }

-

-		    device = &pdi->keyboard;

-		    if (IsEitherPassiveGrab(device->grabType)) {

-			p = device->grab.widget;

-			while (p && !(XtIsShell(p)))

-			    p = p->core.parent;

-			if (p == wid) {

-			    device->grabType = XtNoServerGrab;

-			    pdi->activatingKey = 0;

-			}

-		    }

-

-		    return;

-		}

-	      default:

-		 return;

-	}

-	{

-	XtWidgetProc resize;

-

-	LOCK_PROCESS;

-	resize = XtClass(wid)->core_class.resize;

-	UNLOCK_PROCESS;

-

-	if (sizechanged && resize) {

-	    CALLGEOTAT(_XtGeoTrace((Widget)w,

-			   "Shell \"%s\" is being resized to %d %d.\n",

-			   XtName(wid), wid->core.width, wid->core.height ));

-	    (*resize)(wid);

-	 }

-	}

-}

-

-static void Destroy(

-	Widget wid)

-{

-	if (XtIsRealized(wid))

-	    XDestroyWindow( XtDisplay(wid), XtWindow(wid) );

-}

-

-static void WMDestroy(

-	Widget wid)

-{

-	WMShellWidget w = (WMShellWidget) wid;

-

-	XtFree((char *) w->wm.title);

-	XtFree((char *) w->wm.window_role);

-}

-

-static void TopLevelDestroy(

-	Widget wid)

-{

-	TopLevelShellWidget w = (TopLevelShellWidget) wid;

-

-	XtFree((char *) w->topLevel.icon_name);

-}

-

-static void ApplicationDestroy(

-    Widget wid)

-{

-    ApplicationShellWidget w = (ApplicationShellWidget) wid;

-    if (w->application.argc > 0)

-	FreeStringArray(w->application.argv);

-}

-

-static void SessionDestroy(

-    Widget wid)

-{

-#ifndef XT_NO_SM

-    SessionShellWidget w = (SessionShellWidget) wid;

-

-    StopManagingSession(w, w->session.connection);

-    XtFree(w->session.session_id);

-    FreeStringArray(w->session.restart_command);

-    FreeStringArray(w->session.clone_command);

-    FreeStringArray(w->session.discard_command);

-    FreeStringArray(w->session.resign_command);

-    FreeStringArray(w->session.shutdown_command);

-    FreeStringArray(w->session.environment);

-    XtFree(w->session.current_dir);

-    XtFree(w->session.program_path);

-#endif /* !XT_NO_SM */

-}

-

-/*

- * If the Shell has a width and a height which are zero, and as such

- * suspect, and it has not yet been realized then it will grow to

- * match the child before parsing the geometry resource.

- *

- */

-static void GetGeometry(

-    Widget W, Widget child)

-{

-    register ShellWidget w = (ShellWidget)W;

-    Boolean is_wmshell = XtIsWMShell(W);

-    int x, y, width, height, win_gravity = -1, flag;

-    XSizeHints hints;

-

-    if (child != NULL) {

-	/* we default to our child's size */

-	if (is_wmshell && (w->core.width == 0 || w->core.height == 0))

-	    ((WMShellWidget)W)->wm.size_hints.flags |= PSize;

-	if (w->core.width == 0)	    w->core.width = child->core.width;

-	if (w->core.height == 0)    w->core.height = child->core.height;

-    }

-    if(w->shell.geometry != NULL) {

-	char def_geom[64];

-	x = w->core.x;

-	y = w->core.y;

-	width = w->core.width;

-	height = w->core.height;

-	if (is_wmshell) {

-	    WMShellPart* wm = &((WMShellWidget)w)->wm;

-	    EvaluateSizeHints((WMShellWidget)w);

-	    (void) memmove((char*)&hints, (char*)&wm->size_hints,

-			   sizeof(struct _OldXSizeHints));

-	    hints.win_gravity = wm->win_gravity;

-	    if (wm->size_hints.flags & PBaseSize) {

-		width -= wm->base_width;

-		height -= wm->base_height;

-		hints.base_width = wm->base_width;

-		hints.base_height = wm->base_height;

-	    }

-	    else if (wm->size_hints.flags & PMinSize) {

-		width -= wm->size_hints.min_width;

-		height -= wm->size_hints.min_height;

-	    }

-	    if (wm->size_hints.flags & PResizeInc) {

-		width /= wm->size_hints.width_inc;

-		height /= wm->size_hints.height_inc;

-	    }

-	}

-	else hints.flags = 0;

-

-	snprintf( def_geom, sizeof(def_geom), "%dx%d+%d+%d",

-		  width, height, x, y );

-	flag = XWMGeometry( XtDisplay(W),

-			    XScreenNumberOfScreen(XtScreen(W)),

-			    w->shell.geometry, def_geom,

-			    (unsigned int)w->core.border_width,

-			    &hints, &x, &y, &width, &height,

-			    &win_gravity

-			   );

-	if (flag) {

-	    if (flag & XValue) w->core.x = (Position)x;

-	    if (flag & YValue) w->core.y = (Position)y;

-	    if (flag & WidthValue) w->core.width = (Dimension)width;

-	    if (flag & HeightValue) w->core.height = (Dimension)height;

-	}

-	else {

-	    String params[2];

-	    Cardinal num_params = 2;

-	    params[0] = XtName(W);

-	    params[1] = w->shell.geometry;

-	    XtAppWarningMsg(XtWidgetToApplicationContext(W),

-       "badGeometry", "shellRealize", XtCXtToolkitError,

-       "Shell widget \"%s\" has an invalid geometry specification: \"%s\"",

-			    params, &num_params);

-	}

-    }

-    else

-	flag = 0;

-

-    if (is_wmshell) {

-	WMShellWidget wmshell = (WMShellWidget) w;

-	if (wmshell->wm.win_gravity == XtUnspecifiedShellInt) {

-	    if (win_gravity != -1)

-		wmshell->wm.win_gravity = win_gravity;

-	    else

-		wmshell->wm.win_gravity = NorthWestGravity;

-	}

-	wmshell->wm.size_hints.flags |= PWinGravity;

-	if ((flag & (XValue|YValue)) == (XValue|YValue))

-	    wmshell->wm.size_hints.flags |= USPosition;

-	if ((flag & (WidthValue|HeightValue)) == (WidthValue|HeightValue))

-	    wmshell->wm.size_hints.flags |= USSize;

-    }

-    w->shell.client_specified |= _XtShellGeometryParsed;

-}

-

-

-static void ChangeManaged(Widget wid)

-{

-    ShellWidget w = (ShellWidget) wid;

-    Widget child = NULL;

-    Cardinal i;

-

-    for (i = 0; i < w->composite.num_children; i++) {

-	if (XtIsManaged(w->composite.children[i])) {

-	    child = w->composite.children[i];

-	    break;		/* there can only be one of them! */

-	}

-    }

-

-    if (!XtIsRealized (wid))	/* then we're about to be realized... */

-	GetGeometry(wid, child);

-

-    if (child != NULL)

-	XtConfigureWidget (child, (Position)0, (Position)0,

-			   w->core.width, w->core.height, (Dimension)0 );

-}

-

-/*

- * This is gross, I can't wait to see if the change happened so I will ask

- * the window manager to change my size and do the appropriate X work.

- * I will then tell the requester that he can.  Care must be taken because

- * it is possible that some time in the future the request will be

- * asynchronusly denied and the window reverted to it's old size/shape.

- */

-

-/*ARGSUSED*/

-static XtGeometryResult GeometryManager(

-	Widget wid,

-	XtWidgetGeometry *request,

-	XtWidgetGeometry *reply)

-{

-	ShellWidget shell = (ShellWidget)(wid->core.parent);

-	XtWidgetGeometry my_request;

-

-	if(shell->shell.allow_shell_resize == FALSE && XtIsRealized(wid))

-		return(XtGeometryNo);

-

-	if (request->request_mode & (CWX | CWY))

-	    return(XtGeometryNo);

-

-	my_request.request_mode = (request->request_mode & XtCWQueryOnly);

-	if (request->request_mode & CWWidth) {

-	    my_request.width = request->width;

-	    my_request.request_mode |= CWWidth;

-	}

-	if (request->request_mode & CWHeight) {

-	    my_request.height = request->height;

-	    my_request.request_mode |= CWHeight;

-	}

-	if (request->request_mode & CWBorderWidth) {

-	    my_request.border_width = request->border_width;

-	    my_request.request_mode |= CWBorderWidth;

-	}

-	if (XtMakeGeometryRequest((Widget)shell, &my_request, NULL)

-		== XtGeometryYes) {

-	    /* assert: if (request->request_mode & CWWidth) then

-	     * 		  shell->core.width == request->width

-	     * assert: if (request->request_mode & CWHeight) then

-	     * 		  shell->core.height == request->height

-	     *

-	     * so, whatever the WM sized us to (if the Shell requested

-	     * only one of the two) is now the correct child size

-	     */

-

-	    if (!(request->request_mode & XtCWQueryOnly)) {

-		wid->core.width = shell->core.width;

-		wid->core.height = shell->core.height;

-		if (request->request_mode & CWBorderWidth) {

-		    wid->core.x = wid->core.y = -request->border_width;

-		}

-	    }

-	    return XtGeometryYes;

-	} else return XtGeometryNo;

-}

-

-typedef struct {

-	Widget  w;

-	unsigned long request_num;

-	Boolean done;

-} QueryStruct;

-

-static Bool isMine(

-	Display *dpy,

-	register XEvent  *event,

-	char *arg)

-{

-	QueryStruct *q = (QueryStruct *) arg;

-	register Widget w = q->w;

-

-	if ( (dpy != XtDisplay(w)) || (event->xany.window != XtWindow(w)) ) {

-	    return FALSE;

-	}

-	if (event->xany.serial >= q->request_num) {

-	    if (event->type == ConfigureNotify) {

-		q->done = TRUE;

-		return TRUE;

-	    }

-	}

-	else if (event->type == ConfigureNotify)

-	    return TRUE;	/* flush old events */

-	if (event->type == ReparentNotify

-		 && event->xreparent.window == XtWindow(w)) {

-	    /* we might get ahead of this event, so just in case someone

-	     * asks for coordinates before this event is dispatched...

-	     */

-	    register ShellWidget s = (ShellWidget)w;

-	    if (event->xreparent.parent != RootWindowOfScreen(XtScreen(w)))

-		s->shell.client_specified &= ~_XtShellNotReparented;

-	    else

-		s->shell.client_specified |= _XtShellNotReparented;

-	}

-	return FALSE;

-}

-

-static Boolean _wait_for_response(

-	ShellWidget	w,

-	XEvent		*event,

-        unsigned long	request_num)

-{

-	XtAppContext app = XtWidgetToApplicationContext((Widget) w);

-	QueryStruct q;

-	unsigned long timeout;

-

-	if (XtIsWMShell((Widget)w))

-	    timeout = ((WMShellWidget)w)->wm.wm_timeout;

-	else

-	    timeout = DEFAULT_WM_TIMEOUT;

-

-	XFlush(XtDisplay(w));

-	q.w = (Widget) w;

-	q.request_num = request_num;

-	q.done = FALSE;

-

-	/*

-	 * look for match event and discard all prior configures

-	 */

-	while (XCheckIfEvent(XtDisplay(w),event,isMine,(char*)&q)) {

-	    if (q.done) return TRUE;

-	}

-

-	while (timeout > 0) {

-	    if (_XtWaitForSomething (app,

-				     FALSE, TRUE, TRUE, TRUE,

-				     TRUE,

-#ifdef XTHREADS

-				     FALSE,

-#endif

-				     &timeout) != -1) {

-		while (XCheckIfEvent(XtDisplay(w),event,isMine,(char*)&q)) {

-		    if (q.done) return TRUE;

-		}

-	    }

-	}

-	return FALSE;

-}

-

-/*ARGSUSED*/

-static XtGeometryResult RootGeometryManager(

-    Widget gw,

-    XtWidgetGeometry *request, XtWidgetGeometry *reply)

-{

-    register ShellWidget w = (ShellWidget)gw;

-    XWindowChanges values;

-    unsigned int mask = request->request_mode;

-    XEvent event;

-    Boolean wm;

-    register struct _OldXSizeHints *hintp = NULL;

-    int oldx, oldy, oldwidth, oldheight, oldborder_width;

-    unsigned long request_num;

-

-    CALLGEOTAT(_XtGeoTab(1));

-

-    if (XtIsWMShell(gw)) {

-	wm = True;

-	hintp = &((WMShellWidget)w)->wm.size_hints;

-	/* for draft-ICCCM wm's, need to make sure hints reflect

-	   (current) reality so client can move and size separately. */

-  	hintp->x = w->core.x;

-  	hintp->y = w->core.y;

-  	hintp->width = w->core.width;

-   	hintp->height = w->core.height;

-    } else

-	wm = False;

-

-    oldx = w->core.x;

-    oldy = w->core.y;

-    oldwidth = w->core.width;

-    oldheight = w->core.height;

-    oldborder_width = w->core.border_width;

-

-#define PutBackGeometry() \

-	{ w->core.x = oldx; \

-	  w->core.y = oldy; \

-	  w->core.width = oldwidth; \

-	  w->core.height = oldheight; \

-	  w->core.border_width = oldborder_width; }

-

-    if (mask & CWX) {

-	    if (w->core.x == request->x) mask &= ~CWX;

-	    else {

-		w->core.x = values.x = request->x;

-		if (wm) {

-		    hintp->flags &= ~USPosition;

-		    hintp->flags |= PPosition;

-		    hintp->x = values.x;

-		}

-	    }

-    }

-    if (mask & CWY) {

-	    if (w->core.y == request->y) mask &= ~CWY;

-	    else {

-		w->core.y = values.y = request->y;

-		if (wm) {

-		    hintp->flags &= ~USPosition;

-		    hintp->flags |= PPosition;

-		    hintp->y = values.y;

-		}

-	    }

-    }

-    if (mask & CWBorderWidth) {

-	    if (w->core.border_width == request->border_width) {

-		    mask &= ~CWBorderWidth;

-	    } else

-		w->core.border_width =

-		    values.border_width =

-			request->border_width;

-    }

-    if (mask & CWWidth) {

-	    if (w->core.width == request->width) mask &= ~CWWidth;

-	    else {

-		w->core.width = values.width = request->width;

-		if (wm) {

-		    hintp->flags &= ~USSize;

-		    hintp->flags |= PSize;

-		    hintp->width = values.width;

-		}

-	    }

-    }

-    if (mask & CWHeight) {

-	    if (w->core.height == request->height) mask &= ~CWHeight;

-	    else {

-		w->core.height = values.height = request->height;

-		if (wm) {

-		    hintp->flags &= ~USSize;

-		    hintp->flags |= PSize;

-		    hintp->height = values.height;

-		}

-	    }

-    }

-    if (mask & CWStackMode) {

-	values.stack_mode = request->stack_mode;

-	if (mask & CWSibling)

-	    values.sibling = XtWindow(request->sibling);

-    }

-

-    if (!XtIsRealized((Widget)w)) {

-	CALLGEOTAT(_XtGeoTrace((Widget)w,

-		      "Shell \"%s\" is not realized, return XtGeometryYes.\n",

-		       XtName((Widget)w)));

-    	CALLGEOTAT(_XtGeoTab(-1));

-	return XtGeometryYes;

-    }

-

-    request_num = NextRequest(XtDisplay(w));

-

-    CALLGEOTAT(_XtGeoTrace((Widget)w,"XConfiguring the Shell X window :\n"));

-    CALLGEOTAT(_XtGeoTab(1));

-#ifdef XT_GEO_TATTLER

-    if (mask & CWX) { CALLGEOTAT(_XtGeoTrace((Widget)w,"x = %d\n",values.x));}

-    if (mask & CWY) { CALLGEOTAT(_XtGeoTrace((Widget)w,"y = %d\n",values.y));}

-    if (mask & CWWidth) { CALLGEOTAT(_XtGeoTrace((Widget)w,

-					       "width = %d\n",values.width));}

-    if (mask & CWHeight) { CALLGEOTAT(_XtGeoTrace((Widget)w,

-					    "height = %d\n",values.height));}

-    if (mask & CWBorderWidth) { CALLGEOTAT(_XtGeoTrace((Widget)w,

-				  "border_width = %d\n",values.border_width));}

-#endif

-    CALLGEOTAT(_XtGeoTab(-1));

-

-    XConfigureWindow(XtDisplay((Widget)w), XtWindow((Widget)w), mask,&values);

-

-    if (wm && !w->shell.override_redirect

-	&& mask & (CWX | CWY | CWWidth | CWHeight | CWBorderWidth)) {

-	_SetWMSizeHints((WMShellWidget)w);

-    }

-

-    if (w->shell.override_redirect) {

-	CALLGEOTAT(_XtGeoTrace((Widget)w,"Shell \"%s\" is override redirect, return XtGeometryYes.\n", XtName((Widget)w)));

-    	CALLGEOTAT(_XtGeoTab(-1));

-	return XtGeometryYes;

-    }

-

-

-    /* If no non-stacking bits are set, there's no way to tell whether

-       or not this worked, so assume it did */

-

-    if (!(mask & ~(CWStackMode | CWSibling))) return XtGeometryYes;

-

-    if (wm && ((WMShellWidget)w)->wm.wait_for_wm == FALSE) {

-	    /* the window manager is sick

-	     * so I will do the work and

-	     * say no so if a new WM starts up,

-	     * or the current one recovers

-	     * my size requests will be visible

-	     */

-	CALLGEOTAT(_XtGeoTrace((Widget)w,"Shell \"%s\" has wait_for_wm == FALSE, return XtGeometryNo.\n",

-		       XtName((Widget)w)));

-    	CALLGEOTAT(_XtGeoTab(-1));

-

-	PutBackGeometry();

-	return XtGeometryNo;

-    }

-

-    if (_wait_for_response(w, &event, request_num)) {

-	/* got an event */

-	if (event.type == ConfigureNotify) {

-

-#define NEQ(x, msk) ((mask & msk) && (values.x != event.xconfigure.x))

-	    if (NEQ(x, CWX) ||

-		NEQ(y, CWY) ||

-		NEQ(width, CWWidth) ||

-		NEQ(height, CWHeight) ||

-		NEQ(border_width, CWBorderWidth)) {

-#ifdef XT_GEO_TATTLER

-		if (NEQ(x, CWX)) {

-		    CALLGEOTAT(_XtGeoTrace((Widget)w,

-					   "received Configure X %d\n",

-					   event.xconfigure.x));

-		}

-		if (NEQ(y, CWY)) {

-		    CALLGEOTAT(_XtGeoTrace((Widget)w,

-					   "received Configure Y %d\n",

-					   event.xconfigure.y));

-		}

-		if (NEQ(width, CWWidth)) {

-		    CALLGEOTAT(_XtGeoTrace((Widget)w,

-					   "received Configure Width %d\n",

-					   event.xconfigure.width));

-		}

-		if (NEQ(height, CWHeight)) {

-		    CALLGEOTAT(_XtGeoTrace((Widget)w,

-					   "received Configure Height %d\n",

-					   event.xconfigure.height));

-		}

-		if (NEQ(border_width, CWBorderWidth)) {

-		    CALLGEOTAT(_XtGeoTrace((Widget)w,

-				        "received Configure BorderWidth %d\n",

-					event.xconfigure.border_width));

-		}

-#endif

-#undef NEQ

-		XPutBackEvent(XtDisplay(w), &event);

-		PutBackGeometry();

-		/*

-		 * We just potentially re-ordered the event queue

-		 * w.r.t. ConfigureNotifies with some trepidation.

-		 * But this is probably a Good Thing because we

-		 * will know the new true state of the world sooner

-		 * this way.

-		 */

-		CALLGEOTAT(_XtGeoTrace((Widget)w,

-			   "ConfigureNotify failed, return XtGeometryNo.\n"));

-		CALLGEOTAT(_XtGeoTab(-1));

-

-		return XtGeometryNo;

-	    }

-	    else {

-		w->core.width = event.xconfigure.width;

-		w->core.height = event.xconfigure.height;

-		w->core.border_width = event.xconfigure.border_width;

-		if (event.xany.send_event || /* ICCCM compliant synth */

-		    w->shell.client_specified & _XtShellNotReparented) {

-

-		    w->core.x = event.xconfigure.x;

-		    w->core.y = event.xconfigure.y;

-		    w->shell.client_specified |= _XtShellPositionValid;

-		}

-		else w->shell.client_specified &= ~_XtShellPositionValid;

-		CALLGEOTAT(_XtGeoTrace((Widget)w,

-			 "ConfigureNotify succeed, return XtGeometryYes.\n"));

-		CALLGEOTAT(_XtGeoTab(-1));

-		return XtGeometryYes;

-	    }

-	} else if (!wm) {

-	    PutBackGeometry();

-	    CALLGEOTAT(_XtGeoTrace((Widget)w,

-				   "Not wm, return XtGeometryNo.\n"));

-	    CALLGEOTAT(_XtGeoTab(-1));

-	    return XtGeometryNo;

-	} else XtAppWarningMsg(XtWidgetToApplicationContext((Widget)w),

-			       "internalError", "shell", XtCXtToolkitError,

-			       "Shell's window manager interaction is broken",

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

-    } else if (wm) { /* no event */

-	((WMShellWidget)w)->wm.wait_for_wm = FALSE; /* timed out; must be broken */

-    }

-    PutBackGeometry();

-#undef PutBackGeometry

-    CALLGEOTAT(_XtGeoTrace((Widget)w,

-			   "Timeout passed?, return XtGeometryNo.\n"));

-    CALLGEOTAT(_XtGeoTab(-1));

-    return XtGeometryNo;

-		}

-

-/* ARGSUSED */

-static Boolean SetValues(

-	Widget old, Widget ref, Widget new,

-	ArgList args,

-	Cardinal *num_args)

-{

-	ShellWidget nw = (ShellWidget) new;

-	ShellWidget ow = (ShellWidget) old;

-	Mask mask = 0;

-	XSetWindowAttributes attr;

-

-	if (!XtIsRealized(new))

-	    return False;

-

-	if (ow->shell.save_under != nw->shell.save_under) {

-	    mask = CWSaveUnder;

-	    attr.save_under = nw->shell.save_under;

-	}

-

-	if (ow->shell.override_redirect != nw->shell.override_redirect) {

-	    mask |= CWOverrideRedirect;

-	    attr.override_redirect = nw->shell.override_redirect;

-	}

-

-	if (mask) {

-	    XChangeWindowAttributes(XtDisplay(new),XtWindow(new), mask, &attr);

-	    if ((mask & CWOverrideRedirect) && !nw->shell.override_redirect)

-		_popup_set_prop(nw);

-	}

-

-	if (! (ow->shell.client_specified & _XtShellPositionValid)) {

-	    Cardinal n;

-

-	    for (n = *num_args; n; n--, args++) {

-		if (strcmp(XtNx, args->name) == 0) {

-		    _XtShellGetCoordinates((Widget)ow, &ow->core.x,

-							&ow->core.y);

-		} else if (strcmp(XtNy, args->name) == 0) {

-		    _XtShellGetCoordinates((Widget)ow, &ow->core.x,

-							&ow->core.y);

-		}

-	    }

-	}

-	return FALSE;

-}

-

-/* ARGSUSED */

-static Boolean WMSetValues(

-	Widget old, Widget ref, Widget new,

-	ArgList args,		/* unused */

-	Cardinal *num_args)	/* unused */

-{

-	WMShellWidget nwmshell = (WMShellWidget) new;

-	WMShellWidget owmshell = (WMShellWidget) old;

-	Boolean set_prop

-	    = XtIsRealized(new) && !nwmshell->shell.override_redirect;

-	Boolean title_changed;

-

-	EvaluateSizeHints(nwmshell);

-

-#define NEQ(f) (nwmshell->wm.size_hints.f != owmshell->wm.size_hints.f)

-

-	if (set_prop

-	    && (NEQ(flags) || NEQ(min_width) || NEQ(min_height)

-		|| NEQ(max_width) || NEQ(max_height)

-		|| NEQ(width_inc) || NEQ(height_inc)

-		|| NEQ(min_aspect.x) || NEQ(min_aspect.y)

-		|| NEQ(max_aspect.x) || NEQ(max_aspect.y)

-#undef NEQ

-#define NEQ(f) (nwmshell->wm.f != owmshell->wm.f)

-

-		|| NEQ(base_width) || NEQ(base_height) || NEQ(win_gravity))) {

-	    _SetWMSizeHints(nwmshell);

-	}

-#undef NEQ

-

-	if (nwmshell->wm.title != owmshell->wm.title) {

-	    XtFree(owmshell->wm.title);

-	    if (! nwmshell->wm.title) nwmshell->wm.title = "";

-	    nwmshell->wm.title = XtNewString(nwmshell->wm.title);

-	    title_changed = True;

-	} else

-	    title_changed = False;

-

-	if (set_prop

-	    && (title_changed ||

-		nwmshell->wm.title_encoding != owmshell->wm.title_encoding)) {

-

-	    XTextProperty title;

-	    Boolean copied = False;

-

-            if (nwmshell->wm.title_encoding == None &&

-		XmbTextListToTextProperty(XtDisplay(new),

-					  (char**)&nwmshell->wm.title,

-					  1, XStdICCTextStyle,

-					  &title) >= Success) {

-		copied = True;

-	    } else {

-		title.value = (unsigned char*)nwmshell->wm.title;

-		title.encoding = nwmshell->wm.title_encoding ?

-		    nwmshell->wm.title_encoding : XA_STRING;

-		title.format = 8;

-		title.nitems = strlen(nwmshell->wm.title);

-	    }

-	    XSetWMName(XtDisplay(new), XtWindow(new), &title);

-	    if (copied)

-		XFree((XPointer)title.value);

-	}

-

-	EvaluateWMHints(nwmshell);

-

-#define NEQ(f)	(nwmshell->wm.wm_hints.f != owmshell->wm.wm_hints.f)

-

-	if (set_prop

-	    && (NEQ(flags) || NEQ(input) || NEQ(initial_state)

-		|| NEQ(icon_x) || NEQ(icon_y)

-		|| NEQ(icon_pixmap) || NEQ(icon_mask) || NEQ(icon_window)

-		|| NEQ(window_group))) {

-

-	    XSetWMHints(XtDisplay(new), XtWindow(new), &nwmshell->wm.wm_hints);

-	}

-#undef NEQ

-

- 	if (XtIsRealized(new) &&

-	    nwmshell->wm.transient != owmshell->wm.transient) {

- 	    if (nwmshell->wm.transient) {

-		if (!XtIsTransientShell(new) &&

-		    !nwmshell->shell.override_redirect &&

-		    nwmshell->wm.wm_hints.window_group !=

-		       XtUnspecifiedWindowGroup)

-		    XSetTransientForHint(XtDisplay(new), XtWindow(new),

-					 nwmshell->wm.wm_hints.window_group);

-	    }

- 	    else XDeleteProperty(XtDisplay(new), XtWindow(new),

- 				 XA_WM_TRANSIENT_FOR);

- 	}

-

-	if (nwmshell->wm.client_leader != owmshell->wm.client_leader

-	    && XtWindow(new) && !nwmshell->shell.override_redirect) {

-	    Widget leader = GetClientLeader(new);

-	    if (XtWindow(leader))

-		XChangeProperty(XtDisplay(new), XtWindow(new),

-				XInternAtom(XtDisplay(new),

-					    "WM_CLIENT_LEADER", False),

-				XA_WINDOW, 32, PropModeReplace,

-				(unsigned char *) &(leader->core.window), 1);

-	}

-

-	if (nwmshell->wm.window_role != owmshell->wm.window_role) {

-	    XtFree(owmshell->wm.window_role);

-	    if (set_prop && nwmshell->wm.window_role) {

-		XChangeProperty(XtDisplay(new), XtWindow(new),

-				XInternAtom(XtDisplay(new), "WM_WINDOW_ROLE",

-					    False),

-				XA_STRING, 8, PropModeReplace,

-				(unsigned char *)nwmshell->wm.window_role,

-				strlen(nwmshell->wm.window_role));

-	    } else if (XtIsRealized(new) && ! nwmshell->wm.window_role) {

-		XDeleteProperty(XtDisplay(new), XtWindow(new),

-				XInternAtom(XtDisplay(new), "WM_WINDOW_ROLE",

-					    False));

-	    }

-	}

-

-	return FALSE;

-}

-

-/*ARGSUSED*/

-static Boolean TransientSetValues(

-     Widget oldW, Widget refW, Widget newW,

-     ArgList args,		/* unused */

-     Cardinal *num_args)	/* unused */

-{

-    TransientShellWidget old = (TransientShellWidget)oldW;

-    TransientShellWidget new = (TransientShellWidget)newW;

-

-    if (XtIsRealized(newW)

-	&& ((new->wm.transient && !old->wm.transient)

-	    || ((new->transient.transient_for != old->transient.transient_for)

-		|| (new->transient.transient_for == NULL

-		    && (new->wm.wm_hints.window_group

-			!= old->wm.wm_hints.window_group))))) {

-

-	_SetTransientForHint(new, True);

-    }

-    return False;

-}

-

-

-/* ARGSUSED */

-static Boolean TopLevelSetValues(

-     Widget oldW, Widget refW, Widget newW,

-     ArgList args,		/* unused */

-     Cardinal *num_args)	/* unused */

-{

-    TopLevelShellWidget old = (TopLevelShellWidget)oldW;

-    TopLevelShellWidget new = (TopLevelShellWidget)newW;

-    Boolean name_changed;

-

-    if (old->topLevel.icon_name != new->topLevel.icon_name) {

-	XtFree((XtPointer)old->topLevel.icon_name);

-	if (! new->topLevel.icon_name) new->topLevel.icon_name = "";

-	new->topLevel.icon_name = XtNewString(new->topLevel.icon_name);

-	name_changed = True;

-    } else

-	name_changed = False;

-

-    if (XtIsRealized(newW)) {

-	if (new->topLevel.iconic != old->topLevel.iconic) {

-	    if (new->topLevel.iconic)

-		XIconifyWindow(XtDisplay(newW),

-			       XtWindow(newW),

-			       XScreenNumberOfScreen(XtScreen(newW))

-			       );

-	    else {

-		Boolean map = new->shell.popped_up;

-		XtPopup(newW, XtGrabNone);

-		if (map) XMapWindow(XtDisplay(newW), XtWindow(newW));

-	    }

-	}

-

-	if (!new->shell.override_redirect &&

-	    (name_changed ||

-	     (old->topLevel.icon_name_encoding

-	      != new->topLevel.icon_name_encoding))) {

-

-	    XTextProperty icon_name;

-	    Boolean copied = False;

-

-            if (new->topLevel.icon_name_encoding == None &&

-		XmbTextListToTextProperty(XtDisplay(newW),

-					  (char**) &new->topLevel.icon_name,

-					  1, XStdICCTextStyle,

-					  &icon_name) >= Success) {

-		copied = True;

-	    } else {

-		icon_name.value = (unsigned char *)new->topLevel.icon_name;

-		icon_name.encoding = new->topLevel.icon_name_encoding ?

-		    new->topLevel.icon_name_encoding : XA_STRING;

-		icon_name.format = 8;

-		icon_name.nitems = strlen((char *)icon_name.value);

-	    }

-	    XSetWMIconName(XtDisplay(newW), XtWindow(newW), &icon_name);

-	    if (copied)

-		XFree((XPointer)icon_name.value);

-	}

-    }

-    else if (new->topLevel.iconic != old->topLevel.iconic) {

-	if (new->topLevel.iconic)

-	    new->wm.wm_hints.initial_state = IconicState;

-    }

-    return False;

-}

-

-static String * NewArgv(

-    int count,

-    String *str)  /* do not assume it's terminated by a NULL element */

-{

-    Cardinal nbytes = 0;

-    Cardinal num = 0;

-    String *newarray, *new;

-    String *strarray = str;

-    String sptr;

-

-    if (count <= 0 || !str) return NULL;

-

-    for (num = count; num--; str++) {

-	nbytes += strlen(*str);

-	nbytes++;

-    }

-    num = (count+1) * sizeof(String);

-    new = newarray = (String *) __XtMalloc(num + nbytes);

-    sptr = ((char *) new) + num;

-

-    for (str = strarray; count--; str++) {

-	*new = sptr;

-	strcpy(*new, *str);

-	new++;

-	sptr = strchr(sptr, '\0');

-	sptr++;

-    }

-    *new = NULL;

-    return newarray;

-}

-

-

-/*ARGSUSED*/

-static Boolean ApplicationSetValues(

-    Widget current, Widget request, Widget new,

-    ArgList args,

-    Cardinal *num_args)

-{

-    ApplicationShellWidget nw = (ApplicationShellWidget) new;

-    ApplicationShellWidget cw = (ApplicationShellWidget) current;

-

-    if (cw->application.argc != nw->application.argc ||

-	cw->application.argv != nw->application.argv) {

-

-	if (nw->application.argc > 0)

-	    nw->application.argv = NewArgv(nw->application.argc,

-					   nw->application.argv);

-	if (cw->application.argc > 0)

-	    FreeStringArray(cw->application.argv);

-

-	if (XtIsRealized(new) && !nw->shell.override_redirect) {

-	    if (nw->application.argc >= 0 && nw->application.argv)

-		XSetCommand(XtDisplay(new), XtWindow(new),

-			    nw->application.argv, nw->application.argc);

-	    else

-		XDeleteProperty(XtDisplay(new), XtWindow(new), XA_WM_COMMAND);

-	}

-    }

-    return False;

-}

-

-/*ARGSUSED*/

-static Boolean SessionSetValues(

-    Widget current, Widget request, Widget new,

-    ArgList args,

-    Cardinal *num_args)

-{

-#ifndef XT_NO_SM

-    SessionShellWidget nw = (SessionShellWidget) new;

-    SessionShellWidget cw = (SessionShellWidget) current;

-    unsigned long set_mask = 0UL;

-    unsigned long unset_mask = 0UL;

-    Boolean initialize = False;

-

-    if (cw->session.session_id != nw->session.session_id) {

-	nw->session.session_id = XtNewString(nw->session.session_id);

-	XtFree(cw->session.session_id);

-    }

-

-    if (cw->session.clone_command != nw->session.clone_command) {

-	if (nw->session.clone_command) {

-	    nw->session.clone_command =

-		NewStringArray(nw->session.clone_command);

-	    set_mask |= XtCloneCommandMask;

-	} else unset_mask |= XtCloneCommandMask;

-	FreeStringArray(cw->session.clone_command);

-    }

-

-    if (cw->session.current_dir != nw->session.current_dir) {

-	if (nw->session.current_dir) {

-	    nw->session.current_dir =

-		XtNewString(nw->session.current_dir);

-	    set_mask |= XtCurrentDirectoryMask;

-	} else unset_mask |= XtCurrentDirectoryMask;

-	XtFree((char *) cw->session.current_dir);

-    }

-

-    if (cw->session.discard_command != nw->session.discard_command) {

-	if (nw->session.discard_command) {

-	    nw->session.discard_command =

-		NewStringArray(nw->session.discard_command);

-	    set_mask |=  XtDiscardCommandMask;

-	} else unset_mask |= XtDiscardCommandMask;

-	FreeStringArray(cw->session.discard_command);

-    }

-

-    if (cw->session.environment != nw->session.environment) {

-	if (nw->session.environment) {

-	    nw->session.environment =

-		NewStringArray(nw->session.environment);

-	    set_mask |= XtEnvironmentMask;

-	} else unset_mask |= XtEnvironmentMask;

-	FreeStringArray(cw->session.environment);

-    }

-

-    if (cw->session.program_path != nw->session.program_path) {

-	if (nw->session.program_path) {

-	    nw->session.program_path =

-		XtNewString(nw->session.program_path);

-	    set_mask |= XtProgramMask;

-	} else unset_mask |= XtProgramMask;

-	XtFree((char *) cw->session.program_path);

-    }

-

-    if (cw->session.resign_command != nw->session.resign_command) {

-	if (nw->session.resign_command) {

-	    nw->session.resign_command =

-		NewStringArray(nw->session.resign_command);

-	    set_mask |= XtResignCommandMask;

-	} else set_mask |= XtResignCommandMask;

-	FreeStringArray(cw->session.resign_command);

-    }

-

-    if (cw->session.restart_command != nw->session.restart_command) {

-	if (nw->session.restart_command) {

-	    nw->session.restart_command =

-		NewStringArray(nw->session.restart_command);

-	    set_mask |= XtRestartCommandMask;

-	} else unset_mask |= XtRestartCommandMask;

-	FreeStringArray(cw->session.restart_command);

-    }

-

-    if (cw->session.restart_style != nw->session.restart_style)

-	set_mask |= XtRestartStyleHintMask;

-

-    if (cw->session.shutdown_command != nw->session.shutdown_command) {

-	if (nw->session.shutdown_command) {

-	    nw->session.shutdown_command =

-		NewStringArray(nw->session.shutdown_command);

-	    set_mask |= XtShutdownCommandMask;

-	} else unset_mask |= XtShutdownCommandMask;

-	FreeStringArray(cw->session.shutdown_command);

-    }

-

-    if ((!cw->session.join_session && nw->session.join_session) ||

-	(!cw->session.connection && nw->session.connection)) {

-	JoinSession(nw);

-	initialize = True;

-    }

-

-    if (nw->session.connection && (set_mask || unset_mask || initialize))

-	SetSessionProperties((SessionShellWidget) new, initialize, set_mask, unset_mask);

-

-    if ((cw->session.join_session && !nw->session.join_session) ||

-	(cw->session.connection && !nw->session.connection))

-	StopManagingSession(nw, nw->session.connection);

-

-    if (cw->wm.client_leader != nw->wm.client_leader ||

-	cw->session.session_id != nw->session.session_id) {

-	Widget leader;

-	if (cw->session.session_id) {

-	    leader = GetClientLeader(current);

-	    if (XtWindow(leader))

-		XDeleteProperty(XtDisplay(leader), XtWindow(leader),

-				XInternAtom(XtDisplay(leader), "SM_CLIENT_ID",

-					    False));

-	}

-	if (nw->session.session_id) {

-	    leader = GetClientLeader(new);

-	    if (XtWindow(leader))

-		XChangeProperty(XtDisplay(leader), XtWindow(leader),

-				XInternAtom(XtDisplay(leader), "SM_CLIENT_ID",

-					    False),

-				XA_STRING, 8, PropModeReplace,

-				(unsigned char *) nw->session.session_id,

-				strlen(nw->session.session_id));

-	}

-    }

-#endif /* !XT_NO_SM */

-    return False;

-}

-

-void _XtShellGetCoordinates(

-    Widget widget,

-    Position* x,

-    Position* y)

-{

-    ShellWidget w = (ShellWidget)widget;

-    if (XtIsRealized(widget) &&

-	!(w->shell.client_specified & _XtShellPositionValid)) {

-	int tmpx, tmpy;

-	Window tmpchild;

-	(void) XTranslateCoordinates(XtDisplay(w), XtWindow(w),

-				     RootWindowOfScreen(XtScreen(w)),

-				     (int) -w->core.border_width,

-				     (int) -w->core.border_width,

-				     &tmpx, &tmpy, &tmpchild);

-	w->core.x = tmpx;

-	w->core.y = tmpy;

-	w->shell.client_specified |= _XtShellPositionValid;

-    }

-    *x = w->core.x;

-    *y = w->core.y;

-}

-

-static void GetValuesHook(

-    Widget	widget,

-    ArgList	args,

-    Cardinal*	num_args)

-{

-    ShellWidget w = (ShellWidget) widget;

-

-    /* x and y resource values may be invalid after a shell resize */

-    if (XtIsRealized(widget) &&

-	!(w->shell.client_specified & _XtShellPositionValid)) {

-	Cardinal	n;

-	Position	x, y;

-

-	for (n = *num_args; n; n--, args++) {

-	    if (strcmp(XtNx, args->name) == 0) {

-		_XtShellGetCoordinates(widget, &x, &y);

-		_XtCopyToArg((char *) &x, &args->value, sizeof(Position));

-	    } else if (strcmp(XtNy, args->name) == 0) {

-		_XtShellGetCoordinates(widget, &x, &y);

-		_XtCopyToArg((char *) &y, &args->value, sizeof(Position));

-	    }

-	}

-    }

-}

-

-static void ApplicationShellInsertChild(

-    Widget widget)

-{

-    if (! XtIsWidget(widget) && XtIsRectObj(widget)) {

-	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-	       "invalidClass", "applicationShellInsertChild", XtCXtToolkitError,

-	       "ApplicationShell does not accept RectObj children; ignored",

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

-    }

-    else {

-	XtWidgetProc insert_child;

-

-	LOCK_PROCESS;

-	insert_child =

-	    ((CompositeWidgetClass)applicationShellClassRec.core_class.

-	   superclass)->composite_class.insert_child;

-	UNLOCK_PROCESS;

-	(*insert_child) (widget);

-    }

-}

-

-/**************************************************************************

-

-  Session Protocol Participation

-

- *************************************************************************/

-

-#define XtSessionCheckpoint	0

-#define XtSessionInteract	1

-

-static void CallSaveCallbacks(SessionShellWidget );

-static String *EditCommand(String, String *, String *);

-static Boolean ExamineToken(XtPointer);

-static void GetIceEvent(XtPointer, int *, XtInputId *);

-static XtCheckpointToken GetToken(Widget, int);

-#ifndef XT_NO_SM

-static void XtCallCancelCallbacks(SmcConn, SmPointer);

-static void XtCallDieCallbacks(SmcConn, SmPointer);

-static void XtCallSaveCallbacks(SmcConn, SmPointer, int, Bool, int, Bool);

-static void XtCallSaveCompleteCallbacks(SmcConn, SmPointer);

-#endif /* !XT_NO_SM */

-

-#ifndef XT_NO_SM

-static void StopManagingSession(

-    SessionShellWidget w,

-    SmcConn connection) /* connection to close, if any */

-{

-    if (connection)

-	SmcCloseConnection(connection, 0, NULL);

-

-    if (w->session.input_id) {

-	XtRemoveInput(w->session.input_id);

-	w->session.input_id = 0;

-    }

-    w->session.connection = NULL;

-}

-

-#define XT_MSG_LENGTH 256

-static void JoinSession(

-    SessionShellWidget w)

-{

-    IceConn ice_conn;

-    SmcCallbacks smcb;

-    char * sm_client_id;

-    unsigned long mask;

-    static char context;  /* used to guarantee the connection isn't shared */

-

-    smcb.save_yourself.callback = XtCallSaveCallbacks;

-    smcb.die.callback = XtCallDieCallbacks;

-    smcb.save_complete.callback = XtCallSaveCompleteCallbacks;

-    smcb.shutdown_cancelled.callback = XtCallCancelCallbacks;

-    smcb.save_yourself.client_data = smcb.die.client_data =

-	smcb.save_complete.client_data =

-	    smcb.shutdown_cancelled.client_data = (SmPointer) w;

-    mask = SmcSaveYourselfProcMask | SmcDieProcMask |

-	SmcSaveCompleteProcMask | SmcShutdownCancelledProcMask;

-

-    if (w->session.connection) {

-	SmcModifyCallbacks(w->session.connection, mask, &smcb);

-	sm_client_id = SmcClientID(w->session.connection);

-    } else if (getenv("SESSION_MANAGER")) {

-	char error_msg[XT_MSG_LENGTH];

-	error_msg[0] = '\0';

-	w->session.connection =

-	    SmcOpenConnection(NULL, &context, SmProtoMajor, SmProtoMinor,

-			      mask, &smcb, w->session.session_id,

-			      &sm_client_id, XT_MSG_LENGTH, error_msg);

-	if (error_msg[0]) {

-	    String params[1];

-	    Cardinal num_params = 1;

-	    params[0] = error_msg;

-	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget) w),

-			    "sessionManagement", "SmcOpenConnection",

-			    XtCXtToolkitError,

-			    "Tried to connect to session manager, %s",

-			    params, &num_params);

-	}

-    }

-

-    if (w->session.connection) {

-	if (w->session.session_id == NULL

-	    || (strcmp(w->session.session_id, sm_client_id) != 0)) {

-	    XtFree(w->session.session_id);

-	    w->session.session_id = XtNewString(sm_client_id);

-	}

-	free(sm_client_id);

-	ice_conn = SmcGetIceConnection(w->session.connection);

-	w->session.input_id =

-	    XtAppAddInput(XtWidgetToApplicationContext((Widget)w),

-			  IceConnectionNumber(ice_conn),

-			  (XtPointer) XtInputReadMask,

-			  GetIceEvent, (XtPointer) w);

-

-	w->session.restart_command =

-	    EditCommand(w->session.session_id, w->session.restart_command,

-			w->application.argv);

-

-	if (! w->session.clone_command) w->session.clone_command =

-	    EditCommand(NULL, NULL, w->session.restart_command);

-

-	if (! w->session.program_path)

-	    w->session.program_path = w->session.restart_command

-		? XtNewString(w->session.restart_command[0]) : NULL;

-    }

-}

-#undef XT_MSG_LENGTH

-

-#endif /* !XT_NO_SM */

-

-static String * NewStringArray(String *str)

-{

-    Cardinal nbytes = 0;

-    Cardinal num = 0;

-    String *newarray, *new;

-    String *strarray = str;

-    String sptr;

-

-    if (!str) return NULL;

-

-    for (num = 0; *str; num++, str++) {

-	nbytes += strlen(*str);

-	nbytes++;

-    }

-    num = (num + 1) * sizeof(String);

-    new = newarray = (String *) __XtMalloc(num + nbytes);

-    sptr = ((char *) new) + num;

-

-    for (str = strarray; *str; str++) {

-	*new = sptr;

-	strcpy(*new, *str);

-	new++;

-	sptr = strchr(sptr, '\0');

-	sptr++;

-    }

-    *new = NULL;

-    return newarray;

-}

-

-static void FreeStringArray(String *str)

-{

-    if (str)

-	XtFree((char *) str);

-}

-

-

-#ifndef XT_NO_SM

-static SmProp * CardPack(

-    char *name,

-    XtPointer closure)

-{

-    unsigned char *prop = (unsigned char *) closure;

-    SmProp *p;

-

-    p = (SmProp *) __XtMalloc(sizeof(SmProp) + sizeof(SmPropValue));

-    p->vals = (SmPropValue *) (((char *) p) + sizeof(SmProp));

-    p->num_vals = 1;

-    p->type = SmCARD8;

-    p->name = name;

-    p->vals->length = 1;

-    p->vals->value = (SmPointer) prop;

-    return p;

-}

-

-static SmProp * ArrayPack(char *name, XtPointer closure)

-{

-    String prop = *(String *) closure;

-    SmProp *p;

-

-    p = (SmProp *) __XtMalloc(sizeof(SmProp) + sizeof(SmPropValue));

-    p->vals = (SmPropValue *) (((char *) p) + sizeof(SmProp));

-    p->num_vals = 1;

-    p->type = SmARRAY8;

-    p->name = name;

-    p->vals->length = strlen(prop) + 1;

-    p->vals->value = prop;

-    return p;

-}

-

-static SmProp * ListPack(

-    char *name,

-    XtPointer closure)

-{

-    String *prop = *(String **) closure;

-    SmProp *p;

-    String *ptr;

-    SmPropValue *vals;

-    int n = 0;

-

-    for (ptr = prop; *ptr; ptr++)

-	n++;

-    p = (SmProp*) __XtMalloc(sizeof(SmProp) + (Cardinal)(n*sizeof(SmPropValue)));

-    p->vals = (SmPropValue *) (((char *) p) + sizeof(SmProp));

-    p->num_vals = n;

-    p->type = SmLISTofARRAY8;

-    p->name = name;

-    for (ptr = prop, vals = p->vals; *ptr; ptr++, vals++) {

-	vals->length = strlen(*ptr) + 1;

-	vals->value = *ptr;

-    }

-    return p;

-}

-

-static void FreePacks(

-    SmProp **props,

-    int num_props)

-{

-    while (--num_props >= 0)

-	XtFree((char *) props[num_props]);

-}

-

-typedef SmProp* (*PackProc)(char *, XtPointer);

-

-typedef struct PropertyRec {

-    char *	name;

-    int		offset;

-    PackProc	proc;

-} PropertyRec, *PropertyTable;

-

-#define Offset(x) (XtOffsetOf(SessionShellRec, x))

-static PropertyRec propertyTable[] = {

-  {SmCloneCommand,     Offset(session.clone_command),    ListPack},

-  {SmCurrentDirectory, Offset(session.current_dir),      ArrayPack},

-  {SmDiscardCommand,   Offset(session.discard_command),  ListPack},

-  {SmEnvironment,      Offset(session.environment),      ListPack},

-  {SmProgram,          Offset(session.program_path),     ArrayPack},

-  {SmResignCommand,    Offset(session.resign_command),   ListPack},

-  {SmRestartCommand,   Offset(session.restart_command),  ListPack},

-  {SmRestartStyleHint, Offset(session.restart_style),    CardPack},

-  {SmShutdownCommand,  Offset(session.shutdown_command), ListPack}

-};

-#undef Offset

-

-#define XT_NUM_SM_PROPS 11

-

-static void SetSessionProperties(

-    SessionShellWidget w,

-    Boolean initialize,

-    unsigned long set_mask,

-    unsigned long unset_mask)

-{

-    PropertyTable p = propertyTable;

-    int n;

-    int num_props = 0;

-    XtPointer *addr;

-    unsigned long mask;

-    SmProp *props[XT_NUM_SM_PROPS];

-    char *pnames[XT_NUM_SM_PROPS];

-

-    if (w->session.connection == NULL)

-	return;

-

-    if (initialize) {

-	char nam_buf[32];

-	char pid[12];

-	String user_name;

-	String pidp = pid;

-

-	/* set all non-NULL session properties, the UserID and the ProcessID */

-	for (n = XtNumber(propertyTable); n; n--, p++) {

-	    addr = (XtPointer *) ((char *) w + p->offset);

-	    if (p->proc == CardPack) {

-		if (*(unsigned char *)addr)

-		    props[num_props++] =(*(p->proc))(p->name, (XtPointer)addr);

-	    }

-	    else if (* addr)

-		props[num_props++] = (*(p->proc))(p->name, (XtPointer)addr);

-

-	}

-	user_name = _XtGetUserName(nam_buf, sizeof nam_buf);

-	if (user_name)

-	    props[num_props++] = ArrayPack(SmUserID, &user_name);

-	snprintf(pid, sizeof(pid), "%ld", (long)getpid());

-	props[num_props++] = ArrayPack(SmProcessID, &pidp);

-

-	if (num_props) {

-	    SmcSetProperties(w->session.connection, num_props, props);

-	    FreePacks(props, num_props);

-	}

-	return;

-    }

-

-    if (set_mask) {

-	mask = 1L;

-	for (n = XtNumber(propertyTable); n; n--, p++, mask <<= 1)

-	    if (mask & set_mask) {

-		addr = (XtPointer *) ((char *) w + p->offset);

-		props[num_props++] = (*(p->proc))(p->name, (XtPointer)addr);

-	    }

-	SmcSetProperties(w->session.connection, num_props, props);

-	FreePacks(props, num_props);

-    }

-

-    if (unset_mask) {

-	mask = 1L;

-	num_props = 0;

-	for (n = XtNumber(propertyTable); n; n--, p++, mask <<= 1)

-	    if (mask & unset_mask)

-		pnames[num_props++] = p->name;

-	SmcDeleteProperties(w->session.connection, num_props, pnames);

-    }

-}

-

-/*ARGSUSED*/

-static void GetIceEvent(

-    XtPointer	client_data,

-    int *	source,

-    XtInputId *	id)

-{

-    SessionShellWidget w = (SessionShellWidget) client_data;

-    IceProcessMessagesStatus status;

-

-    status = IceProcessMessages(SmcGetIceConnection(w->session.connection),

-				NULL, NULL);

-

-    if (status == IceProcessMessagesIOError) {

-	StopManagingSession(w, w->session.connection);

-	XtCallCallbackList((Widget)w, w->session.error_callbacks,

-			   (XtPointer) NULL);

-    }

-}

-

-static void CleanUpSave(

-    SessionShellWidget w)

-{

-    XtSaveYourself next = w->session.save->next;

-    XtFree((char *)w->session.save);

-    w->session.save = next;

-    if (w->session.save)

-	CallSaveCallbacks(w);

-}

-

-static void CallSaveCallbacks(

-    SessionShellWidget w)

-{

-    XtCheckpointToken token;

-

-    if (XtHasCallbacks((Widget) w, XtNsaveCallback) != XtCallbackHasSome) {

-	/* if the application makes no attempt to save state, report failure */

-	SmcSaveYourselfDone(w->session.connection, False);

-	CleanUpSave(w);

-    } else {

-	w->session.checkpoint_state = XtSaveActive;

-	token = GetToken((Widget) w, XtSessionCheckpoint);

-	_XtCallConditionalCallbackList((Widget)w, w->session.save_callbacks,

-				       (XtPointer)token, ExamineToken);

-	XtSessionReturnToken(token);

-    }

-}

-

-/*ARGSUSED*/

-static void XtCallSaveCallbacks(

-    SmcConn	connection,	/* unused */

-    SmPointer	client_data,

-    int		save_type,

-    Bool	shutdown,

-    int		interact,

-    Bool	fast)

-{

-    SessionShellWidget w = (SessionShellWidget) client_data;

-    XtSaveYourself save;

-    XtSaveYourself prev;

-

-    save = XtNew(XtSaveYourselfRec);

-    save->next = NULL;

-    save->save_type = save_type;

-    save->interact_style = interact;

-    save->shutdown = shutdown;

-    save->fast = fast;

-    save->cancel_shutdown = False;

-    save->phase = 1;

-    save->interact_dialog_type = SmDialogNormal;

-    save->request_cancel = save->request_next_phase = False;

-    save->save_success = True;

-    save->save_tokens = save->interact_tokens = 0;

-

-    prev = (XtSaveYourself) &w->session.save;

-    while (prev->next)

-	prev = prev->next;

-    prev->next = save;

-

-    if (w->session.checkpoint_state == XtSaveInactive)

-	CallSaveCallbacks(w);

-}

-

-static void XtInteractPermission(

-    SmcConn	connection,

-    SmPointer	data)

-{

-    Widget w = (Widget) data;

-    SessionShellWidget sw = (SessionShellWidget) data;

-    XtCheckpointToken token;

-    XtCallbackProc callback;

-    XtPointer client_data;

-

-

-    _XtPeekCallback(w, sw->session.interact_callbacks, &callback,

-		    &client_data);

-    if (callback) {

-	sw->session.checkpoint_state = XtInteractActive;

-	token = GetToken(w, XtSessionInteract);

-    	XtRemoveCallback(w, XtNinteractCallback, callback, client_data);

-	(*callback)(w, client_data, (XtPointer) token);

-    } else if (! sw->session.save->cancel_shutdown) {

-	SmcInteractDone(connection, False);

-    }

-}

-

-/*ARGSUSED*/

-static void XtCallSaveCompleteCallbacks(

-    SmcConn	connection,

-    SmPointer	client_data)

-{

-    SessionShellWidget w =  (SessionShellWidget) client_data;

-

-    XtCallCallbackList((Widget)w, w->session.save_complete_callbacks,

-		       (XtPointer) NULL);

-}

-

-/*ARGSUSED*/

-static void XtCallNextPhaseCallbacks(

-    SmcConn	connection,	/* unused */

-    SmPointer	client_data)

-{

-    SessionShellWidget w =  (SessionShellWidget) client_data;

-    w->session.save->phase = 2;

-    CallSaveCallbacks(w);

-}

-

-/*ARGSUSED*/

-static void XtCallDieCallbacks(

-    SmcConn	connection,	/* unused */

-    SmPointer	client_data)

-{

-    SessionShellWidget w =  (SessionShellWidget) client_data;

-

-    StopManagingSession(w, w->session.connection);

-    XtCallCallbackList((Widget)w, w->session.die_callbacks,

-		       (XtPointer) NULL);

-}

-

-/*ARGSUSED*/

-static void XtCallCancelCallbacks(

-    SmcConn	connection,	/* unused */

-    SmPointer	client_data)

-{

-    SessionShellWidget w = (SessionShellWidget) client_data;

-    Boolean call_interacts = False;

-

-    if (w->session.checkpoint_state != XtSaveInactive) {

-	w->session.save->cancel_shutdown = True;

-	call_interacts = (w->session.save->interact_style !=

-			  SmInteractStyleNone);

-    }

-

-    XtCallCallbackList((Widget)w, w->session.cancel_callbacks,

-		       (XtPointer) NULL);

-

-    if (call_interacts) {

-	w->session.save->interact_style = SmInteractStyleNone;

-	XtInteractPermission(w->session.connection, (SmPointer) w);

-    }

-

-    if (w->session.checkpoint_state != XtSaveInactive) {

-	if (w->session.save->save_tokens == 0 &&

-	    w->session.checkpoint_state == XtSaveActive) {

-	    w->session.checkpoint_state = XtSaveInactive;

-	    SmcSaveYourselfDone(w->session.connection,

-				w->session.save->save_success);

-	    CleanUpSave(w);

-	}

-    }

-}

-

-static XtCheckpointToken GetToken(

-    Widget	widget,

-    int		type)

-{

-    SessionShellWidget w = (SessionShellWidget) widget;

-    XtCheckpointToken token;

-    XtSaveYourself save = w->session.save;

-

-    if (type == XtSessionCheckpoint)

-	w->session.save->save_tokens++;

-    else if (type == XtSessionInteract)

-	w->session.save->interact_tokens++;

-    else

-	return (XtCheckpointToken) NULL;

-

-    token = (XtCheckpointToken) __XtMalloc(sizeof(XtCheckpointTokenRec));

-    token->save_type = save->save_type;

-    token->interact_style = save->interact_style;

-    token->shutdown = save->shutdown;

-    token->fast = save->fast;

-    token->cancel_shutdown = save->cancel_shutdown;

-    token->phase = save->phase;

-    token->interact_dialog_type = save->interact_dialog_type;

-    token->request_cancel = save->request_cancel;

-    token->request_next_phase = save->request_next_phase;

-    token->save_success = save->save_success;

-    token->type = type;

-    token->widget = widget;

-    return token;

-}

-

-XtCheckpointToken XtSessionGetToken(Widget widget)

-{

-    SessionShellWidget w = (SessionShellWidget) widget;

-    XtCheckpointToken token = NULL;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (w->session.checkpoint_state)

-	token = GetToken(widget, XtSessionCheckpoint);

-

-    UNLOCK_APP(app);

-    return token;

-}

-

-static Boolean ExamineToken(

-    XtPointer	call_data)

-{

-    XtCheckpointToken token = (XtCheckpointToken) call_data;

-    SessionShellWidget w = (SessionShellWidget) token->widget;

-

-    if (token->interact_dialog_type == SmDialogError)

-	w->session.save->interact_dialog_type = SmDialogError;

-    if (token->request_next_phase)

-	w->session.save->request_next_phase = True;

-    if (! token->save_success)

-	w->session.save->save_success = False;

-

-    token->interact_dialog_type = w->session.save->interact_dialog_type;

-    token->request_next_phase = w->session.save->request_next_phase;

-    token->save_success = w->session.save->save_success;

-    token->cancel_shutdown = w->session.save->cancel_shutdown;

-

-    return True;

-}

-

-void XtSessionReturnToken(XtCheckpointToken token)

-{

-    SessionShellWidget w = (SessionShellWidget) token->widget;

-    Boolean has_some;

-    Boolean phase_done;

-    XtCallbackProc callback;

-    XtPointer client_data;

-    WIDGET_TO_APPCON((Widget)w);

-

-    LOCK_APP(app);

-

-    has_some = (XtHasCallbacks(token->widget, XtNinteractCallback)

-		== XtCallbackHasSome);

-

-    (void) ExamineToken((XtPointer) token);

-

-    if (token->type == XtSessionCheckpoint) {

-	w->session.save->save_tokens--;

-	if (has_some && w->session.checkpoint_state == XtSaveActive) {

-	    w->session.checkpoint_state = XtInteractPending;

-	    SmcInteractRequest(w->session.connection,

-			       w->session.save->interact_dialog_type,

-			       XtInteractPermission, (SmPointer) w);

-	}

-	XtFree((char*) token);

-    } else {

-	if (token->request_cancel)

-	    w->session.save->request_cancel = True;

-	token->request_cancel = w->session.save->request_cancel;

-	if (has_some) {

-	    _XtPeekCallback((Widget)w, w->session.interact_callbacks,

-			    &callback, &client_data);

-	    XtRemoveCallback((Widget)w, XtNinteractCallback,

-			     callback, client_data);

-	    (*callback)((Widget)w, client_data, (XtPointer)token);

-	} else {

-	    w->session.save->interact_tokens--;

-	    if (w->session.save->interact_tokens == 0) {

-		w->session.checkpoint_state = XtSaveActive;

-		if (! w->session.save->cancel_shutdown)

-		    SmcInteractDone(w->session.connection,

-				    w->session.save->request_cancel);

-	    }

-	    XtFree((char *) token);

-	}

-    }

-

-    phase_done = (w->session.save->save_tokens == 0 &&

-		  w->session.checkpoint_state == XtSaveActive);

-

-    if (phase_done) {

-	if (w->session.save->request_next_phase &&

-	    w->session.save->phase == 1) {

-	    SmcRequestSaveYourselfPhase2(w->session.connection,

-					 XtCallNextPhaseCallbacks,

-					 (SmPointer)w);

-	} else {

-	    w->session.checkpoint_state = XtSaveInactive;

-	    SmcSaveYourselfDone(w->session.connection,

-				w->session.save->save_success);

-	    CleanUpSave(w);

-	}

-    }

-

-    UNLOCK_APP(app);

-}

-

-static Boolean IsInArray(

-    String str,

-    String *sarray)

-{

-    if (str == NULL || sarray == NULL)

-	return False;

-    for (; *sarray; sarray++) {

-	if (strcmp(*sarray, str) == 0)

-	    return True;

-    }

-    return False;

-}

-

-static String* EditCommand(

-    String str,		/* if not NULL, the sm_client_id */

-    String *src1,	/* first choice */

-    String *src2)	/* alternate */

-{

-    Boolean have;

-    Boolean want;

-    int count;

-    String *sarray;

-    String *s;

-    String *new;

-

-    want = (str != NULL);

-    sarray = (src1 ? src1 : src2);

-    if (! sarray) return NULL;

-    have = IsInArray("-xtsessionID", sarray);

-    if ((want && have) || (!want && !have)) {

-	if (sarray == src1)

-	    return src1;

-	else

-	    return NewStringArray(sarray);

-    }

-

-    count = 0;

-    for (s = sarray; *s; s++)

-	count++;

-

-    if (want) {

-	s = new = (String *) __XtMalloc((Cardinal)(count+3) * sizeof(String*));

-	*s = *sarray;		s++; sarray++;

-	*s = "-xtsessionID";	s++;

-	*s = str;		s++;

-	for (; --count > 0; s++, sarray++)

-	    *s = *sarray;

-	*s = (String) NULL;

-    } else {

-	if (count < 3)

-	    return NewStringArray(sarray);

-	s = new = (String *) __XtMalloc((Cardinal)(count-1) * sizeof(String*));

-	for (; --count >= 0; sarray++) {

-	    if (strcmp(*sarray, "-xtsessionID") == 0) {

-		sarray++;

-		count--;

-	    } else {

-		*s = *sarray;

-		s++;

-	    }

-	}

-	*s = (String) NULL;

-    }

-    s = new;

-    new = NewStringArray(new);

-    XtFree((char *)s);

-    return new;

-}

-

-#endif /* !XT_NO_SM */

+/***********************************************************
+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, 1994, 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.
+
+*/
+
+#ifndef DEFAULT_WM_TIMEOUT
+#define DEFAULT_WM_TIMEOUT 5000
+#endif
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "Shell.h"
+#include "ShellP.h"
+#include "ShellI.h"
+#include "Vendor.h"
+#include "VendorP.h"
+#include <X11/Xatom.h>
+#include <X11/Xlocale.h>
+#ifndef _MSC_VER
+#include <X11/ICE/ICElib.h>
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+#ifdef EDITRES
+#include <X11/Xmu/Editres.h>
+#endif
+
+/***************************************************************************
+ *
+ * Note: per the Xt spec, the Shell geometry management assumes in
+ * several places that there is only one managed child.  This is
+ * *not* a bug.  Any subclass that assumes otherwise is broken.
+ *
+ ***************************************************************************/
+
+#define BIGSIZE ((Dimension)32767)
+
+/***************************************************************************
+ *
+ * Default values for resource lists
+ *
+ ***************************************************************************/
+
+#ifdef CRAY
+void _XtShellDepth(Widget, int, XrmValue *);
+void _XtShellColormap(Widget, int, XrmValue *);
+void _XtShellAncestorSensitive(Widget, int, XrmValue *);
+void _XtTitleEncoding(Widget, int, XrmValue *);
+#else
+static void _XtShellDepth(Widget, int, XrmValue *);
+static void _XtShellColormap(Widget, int, XrmValue *);
+static void _XtShellAncestorSensitive(Widget, int, XrmValue *);
+static void _XtTitleEncoding(Widget, int, XrmValue *);
+#endif
+
+/***************************************************************************
+ *
+ * Shell class record
+ *
+ ***************************************************************************/
+
+#define Offset(x)	(XtOffsetOf(ShellRec, x))
+static XtResource shellResources[]=
+{
+	{XtNx, XtCPosition, XtRPosition, sizeof(Position),
+	    Offset(core.x), XtRImmediate, (XtPointer)BIGSIZE},
+	{XtNy, XtCPosition, XtRPosition, sizeof(Position),
+	    Offset(core.y), XtRImmediate, (XtPointer)BIGSIZE},
+	{ XtNdepth, XtCDepth, XtRInt, sizeof(int),
+	    Offset(core.depth), XtRCallProc, (XtPointer) _XtShellDepth},
+	{ XtNcolormap, XtCColormap, XtRColormap, sizeof(Colormap),
+	    Offset(core.colormap), XtRCallProc, (XtPointer) _XtShellColormap},
+	{ XtNancestorSensitive, XtCSensitive, XtRBoolean, sizeof(Boolean),
+	    Offset(core.ancestor_sensitive), XtRCallProc,
+	    (XtPointer) _XtShellAncestorSensitive},
+	{ XtNallowShellResize, XtCAllowShellResize, XtRBoolean,
+	    sizeof(Boolean), Offset(shell.allow_shell_resize),
+	    XtRImmediate, (XtPointer)False},
+	{ XtNgeometry, XtCGeometry, XtRString, sizeof(String),
+	    Offset(shell.geometry), XtRString, (XtPointer)NULL},
+	{ XtNcreatePopupChildProc, XtCCreatePopupChildProc, XtRFunction,
+	    sizeof(XtCreatePopupChildProc), Offset(shell.create_popup_child_proc),
+	    XtRFunction, NULL},
+	{ XtNsaveUnder, XtCSaveUnder, XtRBoolean, sizeof(Boolean),
+	    Offset(shell.save_under), XtRImmediate, (XtPointer)False},
+	{ XtNpopupCallback, XtCCallback, XtRCallback, sizeof(XtCallbackList),
+	    Offset(shell.popup_callback), XtRCallback, (XtPointer) NULL},
+	{ XtNpopdownCallback, XtCCallback, XtRCallback, sizeof(XtCallbackList),
+	    Offset(shell.popdown_callback), XtRCallback, (XtPointer) NULL},
+	{ XtNoverrideRedirect, XtCOverrideRedirect,
+	    XtRBoolean, sizeof(Boolean), Offset(shell.override_redirect),
+	    XtRImmediate, (XtPointer)False},
+	{ XtNvisual, XtCVisual, XtRVisual, sizeof(Visual*),
+	    Offset(shell.visual), XtRImmediate, (XtPointer)CopyFromParent}
+};
+
+static void ClassPartInitialize(WidgetClass);
+static void Initialize(Widget, Widget, ArgList, Cardinal *);
+static void Realize(Widget, Mask *, XSetWindowAttributes *);
+static void Resize(Widget);
+static Boolean SetValues(Widget, Widget, Widget, ArgList , Cardinal *);
+static void GetValuesHook(Widget, ArgList, Cardinal*);
+static void ChangeManaged(Widget);
+static XtGeometryResult GeometryManager(Widget, XtWidgetGeometry *, XtWidgetGeometry *);
+static XtGeometryResult RootGeometryManager(Widget gw, XtWidgetGeometry *request, XtWidgetGeometry *reply);
+static void Destroy(Widget);
+
+static ShellClassExtensionRec shellClassExtRec = {
+    NULL,
+    NULLQUARK,
+    XtShellExtensionVersion,
+    sizeof(ShellClassExtensionRec),
+    RootGeometryManager
+};
+
+externaldef(shellclassrec) ShellClassRec shellClassRec = {
+  {   /* Core */
+    /* superclass	  */	(WidgetClass) &compositeClassRec,
+    /* class_name	  */	"Shell",
+    /* size		  */	sizeof(ShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	ClassPartInitialize,
+    /* Class init'ed ?	  */	FALSE,
+    /* initialize	  */	Initialize,
+    /* initialize_notify  */	NULL,
+    /* realize		  */	Realize,
+    /* actions		  */	NULL,
+    /* num_actions	  */	0,
+    /* resources	  */	shellResources,
+    /* resource_count	  */	XtNumber(shellResources),
+    /* xrm_class	  */	NULLQUARK,
+    /* compress_motion	  */	FALSE,
+    /* compress_exposure  */	TRUE,
+    /* compress_enterleave*/	FALSE,
+    /* visible_interest	  */	FALSE,
+    /* destroy		  */	Destroy,
+    /* resize		  */	Resize,
+    /* expose		  */	NULL,
+    /* set_values	  */	SetValues,
+    /* set_values_hook	  */	NULL,
+    /* set_values_almost  */	XtInheritSetValuesAlmost,
+    /* get_values_hook	  */	GetValuesHook,
+    /* accept_focus	  */	NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets	  */	NULL,
+    /* tm_table		  */	NULL,
+    /* query_geometry	  */	NULL,
+    /* display_accelerator*/	NULL,
+    /* extension	  */	NULL
+  },{ /* Composite */
+    /* geometry_manager	  */	GeometryManager,
+    /* change_managed	  */	ChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	  */	NULL
+  },{ /* Shell */
+    /* extension	  */	(XtPointer)&shellClassExtRec
+  }
+};
+
+externaldef(shellwidgetclass) WidgetClass shellWidgetClass = (WidgetClass) (&shellClassRec);
+
+/***************************************************************************
+ *
+ * OverrideShell class record
+ *
+ ***************************************************************************/
+
+static XtResource overrideResources[]=
+{
+	{ XtNoverrideRedirect, XtCOverrideRedirect,
+	    XtRBoolean, sizeof(Boolean), Offset(shell.override_redirect),
+	    XtRImmediate, (XtPointer)True},
+	{ XtNsaveUnder, XtCSaveUnder, XtRBoolean, sizeof(Boolean),
+	    Offset(shell.save_under), XtRImmediate, (XtPointer)True},
+};
+
+externaldef(overrideshellclassrec) OverrideShellClassRec overrideShellClassRec = {
+  {
+    /* superclass         */    (WidgetClass) &shellClassRec,
+    /* class_name         */    "OverrideShell",
+    /* size               */    sizeof(OverrideShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?    */	FALSE,
+    /* initialize         */    NULL,
+    /* initialize_notify    */	NULL,
+    /* realize            */    XtInheritRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    overrideResources,
+    /* resource_count     */	XtNumber(overrideResources),
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/ 	FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    NULL,
+    /* resize             */    XtInheritResize,
+    /* expose             */    NULL,
+    /* set_values         */    NULL,
+    /* set_values_hook      */	NULL,
+    /* set_values_almost    */	XtInheritSetValuesAlmost,
+    /* get_values_hook      */	NULL,
+    /* accept_focus       */    NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets   */    NULL,
+    /* tm_table		    */  NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */  NULL,
+    /* extension	    */  NULL
+  },{
+    /* geometry_manager   */    XtInheritGeometryManager,
+    /* change_managed     */    XtInheritChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  }
+};
+
+externaldef(overrideshellwidgetclass) WidgetClass overrideShellWidgetClass =
+	(WidgetClass) (&overrideShellClassRec);
+
+/***************************************************************************
+ *
+ * WMShell class record
+ *
+ ***************************************************************************/
+
+#undef Offset
+#define Offset(x)	(XtOffsetOf(WMShellRec, x))
+
+static int default_unspecified_shell_int = XtUnspecifiedShellInt;
+/*
+ * Warning, casting XtUnspecifiedShellInt (which is -1) to an (XtPointer)
+ * can result is loss of bits on some machines (i.e. crays)
+ */
+
+static XtResource wmResources[]=
+{
+	{ XtNtitle, XtCTitle, XtRString, sizeof(String),
+	    Offset(wm.title), XtRString, NULL},
+	{ XtNtitleEncoding, XtCTitleEncoding, XtRAtom, sizeof(Atom),
+	    Offset(wm.title_encoding),
+	    XtRCallProc, (XtPointer) _XtTitleEncoding},
+	{ XtNwmTimeout, XtCWmTimeout, XtRInt, sizeof(int),
+	    Offset(wm.wm_timeout), XtRImmediate,(XtPointer)DEFAULT_WM_TIMEOUT},
+	{ XtNwaitForWm, XtCWaitForWm, XtRBoolean, sizeof(Boolean),
+	    Offset(wm.wait_for_wm), XtRImmediate, (XtPointer)True},
+	{ XtNtransient, XtCTransient, XtRBoolean, sizeof(Boolean),
+	    Offset(wm.transient), XtRImmediate, (XtPointer)False},
+/* size_hints minus things stored in core */
+	{ XtNbaseWidth, XtCBaseWidth, XtRInt, sizeof(int),
+	    Offset(wm.base_width),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNbaseHeight, XtCBaseHeight, XtRInt, sizeof(int),
+	    Offset(wm.base_height),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNwinGravity, XtCWinGravity, XtRGravity, sizeof(int),
+	    Offset(wm.win_gravity),
+	    XtRGravity, (XtPointer) &default_unspecified_shell_int},
+	{ XtNminWidth, XtCMinWidth, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.min_width),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNminHeight, XtCMinHeight, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.min_height),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNmaxWidth, XtCMaxWidth, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.max_width),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNmaxHeight, XtCMaxHeight, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.max_height),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNwidthInc, XtCWidthInc, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.width_inc),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNheightInc, XtCHeightInc, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.height_inc),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNminAspectX, XtCMinAspectX, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.min_aspect.x),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNminAspectY, XtCMinAspectY, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.min_aspect.y),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNmaxAspectX, XtCMaxAspectX, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.max_aspect.x),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNmaxAspectY, XtCMaxAspectY, XtRInt, sizeof(int),
+	    Offset(wm.size_hints.max_aspect.y),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+/* wm_hints */
+	{ XtNinput, XtCInput, XtRBool, sizeof(Bool),
+	    Offset(wm.wm_hints.input), XtRImmediate, (XtPointer)False},
+	{ XtNinitialState, XtCInitialState, XtRInitialState, sizeof(int),
+	    Offset(wm.wm_hints.initial_state),
+	    XtRImmediate, (XtPointer)NormalState},
+	{ XtNiconPixmap, XtCIconPixmap, XtRBitmap, sizeof(Pixmap),
+	    Offset(wm.wm_hints.icon_pixmap), XtRPixmap, NULL},
+	{ XtNiconWindow, XtCIconWindow, XtRWindow, sizeof(Window),
+	    Offset(wm.wm_hints.icon_window), XtRWindow,   (XtPointer) NULL},
+	{ XtNiconX, XtCIconX, XtRInt, sizeof(int),
+	    Offset(wm.wm_hints.icon_x),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNiconY, XtCIconY, XtRInt, sizeof(int),
+	    Offset(wm.wm_hints.icon_y),
+	    XtRInt, (XtPointer) &default_unspecified_shell_int},
+	{ XtNiconMask, XtCIconMask, XtRBitmap, sizeof(Pixmap),
+	    Offset(wm.wm_hints.icon_mask), XtRPixmap, NULL},
+	{ XtNwindowGroup, XtCWindowGroup, XtRWindow, sizeof(Window),
+	    Offset(wm.wm_hints.window_group),
+	    XtRImmediate, (XtPointer)XtUnspecifiedWindow},
+	{ XtNclientLeader, XtCClientLeader, XtRWidget, sizeof(Widget),
+	    Offset(wm.client_leader), XtRWidget, NULL},
+	{ XtNwindowRole, XtCWindowRole, XtRString, sizeof(String),
+	    Offset(wm.window_role), XtRString, (XtPointer) NULL},
+	{ XtNurgency, XtCUrgency, XtRBoolean, sizeof(Boolean),
+	    Offset(wm.urgency), XtRImmediate, (XtPointer) False}
+};
+
+static void WMInitialize(Widget, Widget, ArgList, Cardinal *);
+static Boolean WMSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+static void WMDestroy(Widget);
+
+externaldef(wmshellclassrec) WMShellClassRec wmShellClassRec = {
+  {
+    /* superclass         */    (WidgetClass) &shellClassRec,
+    /* class_name         */    "WMShell",
+    /* size               */    sizeof(WMShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?    */	FALSE,
+    /* initialize         */    WMInitialize,
+    /* initialize_notify    */	NULL,
+    /* realize            */    XtInheritRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    wmResources,
+    /* resource_count     */	XtNumber(wmResources),
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/	FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    WMDestroy,
+    /* resize             */    XtInheritResize,
+    /* expose             */    NULL,
+    /* set_values         */    WMSetValues,
+    /* set_values_hook      */	NULL,
+    /* set_values_almost    */	XtInheritSetValuesAlmost,
+    /* get_values_hook      */	NULL,
+    /* accept_focus       */    NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets   */    NULL,
+    /* tm_table		    */  NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */  NULL,
+    /* extension	    */  NULL
+  },{
+    /* geometry_manager   */    XtInheritGeometryManager,
+    /* change_managed     */    XtInheritChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  }
+};
+
+externaldef(wmshellwidgetclass) WidgetClass wmShellWidgetClass = (WidgetClass) (&wmShellClassRec);
+
+/***************************************************************************
+ *
+ * TransientShell class record
+ *
+ ***************************************************************************/
+
+#undef Offset
+#define Offset(x)	(XtOffsetOf(TransientShellRec, x))
+
+static XtResource transientResources[]=
+{
+	{ XtNtransient, XtCTransient, XtRBoolean, sizeof(Boolean),
+	    Offset(wm.transient), XtRImmediate, (XtPointer)True},
+	{ XtNtransientFor, XtCTransientFor, XtRWidget, sizeof(Widget),
+	    Offset(transient.transient_for), XtRWidget, NULL},
+	{ XtNsaveUnder, XtCSaveUnder, XtRBoolean, sizeof(Boolean),
+	    Offset(shell.save_under), XtRImmediate, (XtPointer)True},
+};
+
+static void TransientRealize(Widget, Mask *, XSetWindowAttributes *);
+static Boolean TransientSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+
+externaldef(transientshellclassrec) TransientShellClassRec transientShellClassRec = {
+  {
+    /* superclass	  */	(WidgetClass) &vendorShellClassRec,
+    /* class_name	  */	"TransientShell",
+    /* size		  */	sizeof(TransientShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?	  */	FALSE,
+    /* initialize	  */	NULL,
+    /* initialize_notify  */	NULL,
+    /* realize		  */	TransientRealize,
+    /* actions		  */	NULL,
+    /* num_actions	  */	0,
+    /* resources	  */	transientResources,
+    /* resource_count	  */	XtNumber(transientResources),
+    /* xrm_class	  */	NULLQUARK,
+    /* compress_motion	  */	FALSE,
+    /* compress_exposure  */	TRUE,
+    /* compress_enterleave*/	FALSE,
+    /* visible_interest	  */	FALSE,
+    /* destroy		  */	NULL,
+    /* resize		  */	XtInheritResize,
+    /* expose		  */	NULL,
+    /* set_values	  */	TransientSetValues,
+    /* set_values_hook	  */	NULL,
+    /* set_values_almost  */	XtInheritSetValuesAlmost,
+    /* get_values_hook	  */	NULL,
+    /* accept_focus	  */	NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets	  */	NULL,
+    /* tm_table		  */	XtInheritTranslations,
+    /* query_geometry	  */	NULL,
+    /* display_accelerator*/	NULL,
+    /* extension	  */	NULL
+  },{
+    /* geometry_manager	  */	XtInheritGeometryManager,
+    /* change_managed	  */	XtInheritChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  }
+};
+
+externaldef(transientshellwidgetclass) WidgetClass transientShellWidgetClass =
+	(WidgetClass) (&transientShellClassRec);
+
+/***************************************************************************
+ *
+ * TopLevelShell class record
+ *
+ ***************************************************************************/
+
+#undef Offset
+#define Offset(x)	(XtOffsetOf(TopLevelShellRec, x))
+
+static XtResource topLevelResources[]=
+{
+	{ XtNiconName, XtCIconName, XtRString, sizeof(String),
+	    Offset(topLevel.icon_name), XtRString, (XtPointer) NULL},
+	{ XtNiconNameEncoding, XtCIconNameEncoding, XtRAtom, sizeof(Atom),
+	    Offset(topLevel.icon_name_encoding),
+	    XtRCallProc, (XtPointer) _XtTitleEncoding},
+	{ XtNiconic, XtCIconic, XtRBoolean, sizeof(Boolean),
+	    Offset(topLevel.iconic), XtRImmediate, (XtPointer)False}
+};
+
+static void TopLevelInitialize(Widget, Widget, ArgList, Cardinal *);
+static Boolean TopLevelSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+static void TopLevelDestroy(Widget);
+
+externaldef(toplevelshellclassrec) TopLevelShellClassRec topLevelShellClassRec = {
+  {
+    /* superclass         */    (WidgetClass) &vendorShellClassRec,
+    /* class_name         */    "TopLevelShell",
+    /* size               */    sizeof(TopLevelShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?    */	FALSE,
+    /* initialize         */    TopLevelInitialize,
+    /* initialize_notify    */	NULL,
+    /* realize            */    XtInheritRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    topLevelResources,
+    /* resource_count     */	XtNumber(topLevelResources),
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/ 	FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    TopLevelDestroy,
+    /* resize             */    XtInheritResize,
+    /* expose             */    NULL,
+    /* set_values         */    TopLevelSetValues,
+    /* set_values_hook      */	NULL,
+    /* set_values_almost    */	XtInheritSetValuesAlmost,
+    /* get_values_hook      */	NULL,
+    /* accept_focus       */    NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets   */    NULL,
+    /* tm_table		    */  XtInheritTranslations,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */  NULL,
+    /* extension	    */  NULL
+  },{
+    /* geometry_manager   */    XtInheritGeometryManager,
+    /* change_managed     */    XtInheritChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  }
+};
+
+externaldef(toplevelshellwidgetclass) WidgetClass topLevelShellWidgetClass =
+	(WidgetClass) (&topLevelShellClassRec);
+
+/***************************************************************************
+ *
+ * ApplicationShell class record
+ *
+ ***************************************************************************/
+
+#undef Offset
+#define Offset(x)	(XtOffsetOf(ApplicationShellRec, x))
+
+static XtResource applicationResources[]=
+{
+    {XtNargc, XtCArgc, XtRInt, sizeof(int),
+	  Offset(application.argc), XtRImmediate, (XtPointer)0},
+    {XtNargv, XtCArgv, XtRStringArray, sizeof(String*),
+	  Offset(application.argv), XtRPointer, (XtPointer) NULL}
+};
+#undef Offset
+
+static void ApplicationInitialize(Widget, Widget, ArgList, Cardinal *);
+static void ApplicationDestroy(Widget);
+static Boolean ApplicationSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+static void ApplicationShellInsertChild(Widget);
+
+static CompositeClassExtensionRec compositeClassExtension = {
+    /* next_extension	*/	NULL,
+    /* record_type	*/	NULLQUARK,
+    /* version		*/	XtCompositeExtensionVersion,
+    /* record_size	*/	sizeof(CompositeClassExtensionRec),
+    /* accepts_objects	*/	TRUE,
+    /* allows_change_managed_set */ FALSE
+};
+
+
+externaldef(applicationshellclassrec) ApplicationShellClassRec applicationShellClassRec = {
+  {
+    /* superclass         */    (WidgetClass) &topLevelShellClassRec,
+    /* class_name         */    "ApplicationShell",
+    /* size               */    sizeof(ApplicationShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?    */	FALSE,
+    /* initialize         */    ApplicationInitialize,
+    /* initialize_notify  */	NULL,
+    /* realize            */    XtInheritRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    applicationResources,
+    /* resource_count     */	XtNumber(applicationResources),
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/    FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    ApplicationDestroy,
+    /* resize             */    XtInheritResize,
+    /* expose             */    NULL,
+    /* set_values         */    ApplicationSetValues,
+    /* set_values_hook    */	NULL,
+    /* set_values_almost  */	XtInheritSetValuesAlmost,
+    /* get_values_hook    */	NULL,
+    /* accept_focus       */    NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets   */    NULL,
+    /* tm_table		  */	XtInheritTranslations,
+    /* query_geometry	  */	NULL,
+    /* display_accelerator*/	NULL,
+    /* extension	  */	NULL
+  },{
+    /* geometry_manager   */    XtInheritGeometryManager,
+    /* change_managed     */    XtInheritChangeManaged,
+    /* insert_child	  */	ApplicationShellInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	  */	(XtPointer)&compositeClassExtension
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  }
+};
+
+externaldef(applicationshellwidgetclass) WidgetClass applicationShellWidgetClass =
+	(WidgetClass) (&applicationShellClassRec);
+
+/***************************************************************************
+ *
+ * SessionShell class record
+ *
+ ***************************************************************************/
+
+#undef Offset
+#define Offset(x)	(XtOffsetOf(SessionShellRec, x))
+
+static XtResource sessionResources[]=
+{
+#ifndef XT_NO_SM
+ {XtNconnection, XtCConnection, XtRSmcConn, sizeof(SmcConn),
+       Offset(session.connection), XtRSmcConn, (XtPointer) NULL},
+#endif
+ {XtNsessionID, XtCSessionID, XtRString, sizeof(String),
+       Offset(session.session_id), XtRString, (XtPointer) NULL},
+ {XtNrestartCommand, XtCRestartCommand, XtRCommandArgArray, sizeof(String*),
+       Offset(session.restart_command), XtRPointer, (XtPointer) NULL},
+ {XtNcloneCommand, XtCCloneCommand, XtRCommandArgArray, sizeof(String*),
+       Offset(session.clone_command), XtRPointer, (XtPointer) NULL},
+ {XtNdiscardCommand, XtCDiscardCommand, XtRCommandArgArray, sizeof(String*),
+       Offset(session.discard_command), XtRPointer, (XtPointer) NULL},
+ {XtNresignCommand, XtCResignCommand, XtRCommandArgArray, sizeof(String*),
+       Offset(session.resign_command), XtRPointer, (XtPointer) NULL},
+ {XtNshutdownCommand, XtCShutdownCommand, XtRCommandArgArray, sizeof(String*),
+       Offset(session.shutdown_command), XtRPointer, (XtPointer) NULL},
+ {XtNenvironment, XtCEnvironment, XtREnvironmentArray, sizeof(String*),
+       Offset(session.environment), XtRPointer, (XtPointer) NULL},
+ {XtNcurrentDirectory, XtCCurrentDirectory, XtRDirectoryString, sizeof(String),
+       Offset(session.current_dir), XtRString, (XtPointer) NULL},
+ {XtNprogramPath, XtCProgramPath, XtRString, sizeof(String),
+      Offset(session.program_path), XtRString, (XtPointer) NULL},
+#ifndef XT_NO_SM
+ {XtNrestartStyle, XtCRestartStyle, XtRRestartStyle, sizeof(unsigned char),
+      Offset(session.restart_style), XtRImmediate,
+      (XtPointer) SmRestartIfRunning},
+#endif
+ {XtNjoinSession, XtCJoinSession, XtRBoolean, sizeof(Boolean),
+       Offset(session.join_session), XtRImmediate, (XtPointer) True},
+ {XtNsaveCallback, XtCCallback, XtRCallback, sizeof(XtPointer),
+       Offset(session.save_callbacks), XtRCallback, (XtPointer) NULL},
+ {XtNinteractCallback, XtCCallback, XtRCallback, sizeof(XtPointer),
+       Offset(session.interact_callbacks), XtRCallback, (XtPointer)NULL},
+ {XtNcancelCallback, XtCCallback, XtRCallback, sizeof(XtPointer),
+       Offset(session.cancel_callbacks), XtRCallback, (XtPointer) NULL},
+ {XtNsaveCompleteCallback, XtCCallback, XtRCallback, sizeof(XtPointer),
+       Offset(session.save_complete_callbacks), XtRCallback, (XtPointer) NULL},
+ {XtNdieCallback, XtCCallback, XtRCallback, sizeof(XtPointer),
+       Offset(session.die_callbacks), XtRCallback, (XtPointer) NULL},
+ {XtNerrorCallback, XtCCallback, XtRCallback, sizeof(XtPointer),
+       Offset(session.error_callbacks), XtRCallback, (XtPointer) NULL}
+};
+#undef Offset
+
+static void SessionInitialize(Widget, Widget, ArgList, Cardinal *);
+static void SessionDestroy(Widget);
+static Boolean SessionSetValues(Widget, Widget, Widget, ArgList, Cardinal *);
+
+static CompositeClassExtensionRec sessionCompositeClassExtension = {
+    /* next_extension	*/	NULL,
+    /* record_type	*/	NULLQUARK,
+    /* version		*/	XtCompositeExtensionVersion,
+    /* record_size	*/	sizeof(CompositeClassExtensionRec),
+    /* accepts_objects	*/	TRUE,
+    /* allows_change_managed_set */ FALSE
+};
+
+
+externaldef(sessionshellclassrec) SessionShellClassRec sessionShellClassRec = {
+  {
+    /* superclass         */    (WidgetClass) &applicationShellClassRec,
+    /* class_name         */    "SessionShell",
+    /* size               */    sizeof(SessionShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?    */	FALSE,
+    /* initialize         */    SessionInitialize,
+    /* initialize_notify  */	NULL,
+    /* realize            */    XtInheritRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    sessionResources,
+    /* resource_count     */	XtNumber(sessionResources),
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/    FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    SessionDestroy,
+    /* resize             */    XtInheritResize,
+    /* expose             */    NULL,
+    /* set_values         */    SessionSetValues,
+    /* set_values_hook    */	NULL,
+    /* set_values_almost  */	XtInheritSetValuesAlmost,
+    /* get_values_hook    */	NULL,
+    /* accept_focus       */    NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets   */    NULL,
+    /* tm_table		  */	XtInheritTranslations,
+    /* query_geometry	  */	NULL,
+    /* display_accelerator*/	NULL,
+    /* extension	  */	NULL
+  },{
+    /* geometry_manager   */    XtInheritGeometryManager,
+    /* change_managed     */    XtInheritChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	  */	(XtPointer)&sessionCompositeClassExtension
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension	  */	NULL
+  },{
+    /* extension          */    NULL
+  }
+};
+
+externaldef(sessionshellwidgetclass) WidgetClass sessionShellWidgetClass =
+	(WidgetClass) (&sessionShellClassRec);
+
+/****************************************************************************
+ * Whew!
+ ****************************************************************************/
+
+static void ComputeWMSizeHints(
+    WMShellWidget w,
+    XSizeHints *hints)
+{
+    register long flags;
+    hints->flags = flags = w->wm.size_hints.flags;
+#define copy(field) hints->field = w->wm.size_hints.field
+    if (flags & (USPosition | PPosition)) {
+	copy(x);
+	copy(y);
+    }
+    if (flags & (USSize | PSize)) {
+	copy(width);
+	copy(height);
+    }
+    if (flags & PMinSize) {
+	copy(min_width);
+	copy(min_height);
+    }
+    if (flags & PMaxSize) {
+	copy(max_width);
+	copy(max_height);
+    }
+    if (flags & PResizeInc) {
+	copy(width_inc);
+	copy(height_inc);
+    }
+    if (flags & PAspect) {
+	copy(min_aspect.x);
+	copy(min_aspect.y);
+	copy(max_aspect.x);
+	copy(max_aspect.y);
+    }
+#undef copy
+#define copy(field) hints->field = w->wm.field
+    if (flags & PBaseSize) {
+	copy(base_width);
+	copy(base_height);
+    }
+    if (flags & PWinGravity)
+	copy(win_gravity);
+#undef copy
+}
+
+static void _SetWMSizeHints(
+    WMShellWidget w)
+{
+    XSizeHints *size_hints = XAllocSizeHints();
+
+    if (size_hints == NULL) _XtAllocError("XAllocSizeHints");
+    ComputeWMSizeHints(w, size_hints);
+    XSetWMNormalHints(XtDisplay((Widget)w), XtWindow((Widget)w), size_hints);
+    XFree((char*)size_hints);
+}
+
+static ShellClassExtension _FindClassExtension(
+    WidgetClass widget_class)
+{
+    ShellClassExtension ext;
+    for (ext = (ShellClassExtension)((ShellWidgetClass)widget_class)
+	       ->shell_class.extension;
+	 ext != NULL && ext->record_type != NULLQUARK;
+	 ext = (ShellClassExtension)ext->next_extension);
+
+    if (ext != NULL) {
+	if (  ext->version == XtShellExtensionVersion
+	      && ext->record_size == sizeof(ShellClassExtensionRec)) {
+	    /* continue */
+	} else {
+	    String params[1];
+	    Cardinal num_params = 1;
+	    params[0] = widget_class->core_class.class_name;
+	    XtErrorMsg( "invalidExtension", "shellClassPartInitialize",
+		        XtCXtToolkitError,
+		 "widget class %s has invalid ShellClassExtension record",
+		 params, &num_params);
+	}
+    }
+    return ext;
+}
+
+static void ClassPartInitialize(WidgetClass widget_class)
+{
+    ShellClassExtension ext = _FindClassExtension(widget_class);
+    if (ext != NULL) {
+	if (ext->root_geometry_manager == XtInheritRootGeometryManager) {
+	    ext->root_geometry_manager =
+		_FindClassExtension(widget_class->core_class.superclass)
+		    ->root_geometry_manager;
+	}
+    } else {
+	/* if not found, spec requires XtInheritRootGeometryManager */
+	XtPointer *extP
+	    = &((ShellWidgetClass)widget_class)->shell_class.extension;
+	ext = XtNew(ShellClassExtensionRec);
+	(void) memmove((char*)ext,
+		       (char*)_FindClassExtension(widget_class->core_class.superclass),
+		       sizeof(ShellClassExtensionRec));
+	ext->next_extension = *extP;
+	*extP = (XtPointer)ext;
+    }
+}
+
+
+static void EventHandler(Widget wid, XtPointer closure, XEvent *event, Boolean *continue_to_dispatch);
+static void _popup_set_prop(ShellWidget);
+
+
+/*ARGSUSED*/
+static void XtCopyDefaultDepth(
+    Widget      widget,
+    int		offset,
+    XrmValue    *value)
+{
+    value->addr = (XPointer)(&DefaultDepthOfScreen(XtScreenOfObject(widget)));
+}
+
+#ifndef CRAY
+static
+#endif
+void _XtShellDepth(
+    Widget widget,
+    int closure,
+    XrmValue *value)
+{
+   if (widget->core.parent == NULL) XtCopyDefaultDepth(widget,closure,value);
+   else _XtCopyFromParent (widget,closure,value);
+}
+
+/*ARGSUSED*/
+static void XtCopyDefaultColormap(
+    Widget      widget,
+    int		offset,
+    XrmValue    *value)
+{
+    value->addr = (XPointer)(&DefaultColormapOfScreen(XtScreenOfObject(widget)));
+}
+
+#ifndef CRAY
+static
+#endif
+void _XtShellColormap(
+    Widget widget,
+    int closure,
+    XrmValue *value)
+{
+   if (widget->core.parent == NULL)
+	   XtCopyDefaultColormap(widget,closure,value);
+   else _XtCopyFromParent (widget,closure,value);
+}
+
+#ifndef CRAY
+static
+#endif
+void _XtShellAncestorSensitive(
+    Widget widget,
+    int closure,
+    XrmValue *value)
+{
+   static Boolean true = True;
+   if (widget->core.parent == NULL) value->addr = (XPointer)(&true);
+   else _XtCopyFromParent (widget,closure,value);
+}
+
+/*ARGSUSED*/
+#ifndef CRAY
+static
+#endif
+void _XtTitleEncoding(
+    Widget widget,
+    int offset,
+    XrmValue *value)
+{
+    static Atom atom;
+    if (XtWidgetToApplicationContext(widget)->langProcRec.proc) atom = None;
+    else atom = XA_STRING;
+    value->addr = (XPointer) &atom;
+}
+
+
+/* ARGSUSED */
+static void Initialize(
+	Widget req,
+	Widget new,
+	ArgList args,		/* unused */
+	Cardinal *num_args)	/* unused */
+{
+	ShellWidget w = (ShellWidget) new;
+
+	w->shell.popped_up = FALSE;
+	w->shell.client_specified =
+	    _XtShellNotReparented | _XtShellPositionValid;
+
+	if (w->core.x == BIGSIZE) {
+	    w->core.x = 0;
+	    if (w->core.y == BIGSIZE) w->core.y = 0;
+	} else {
+	    if (w->core.y == BIGSIZE) w->core.y = 0;
+	    else w->shell.client_specified |= _XtShellPPositionOK;
+	}
+
+	XtAddEventHandler(new, (EventMask) StructureNotifyMask,
+		TRUE, EventHandler, (XtPointer) NULL);
+
+#ifdef EDITRES
+	XtAddEventHandler(new, (EventMask) 0, TRUE,
+			  _XEditResCheckMessages, NULL);
+#endif
+}
+
+/* ARGSUSED */
+static void WMInitialize(
+	Widget req, Widget new,
+	ArgList args,		/* unused */
+	Cardinal *num_args)	/* unused */
+{
+	WMShellWidget w = (WMShellWidget) new;
+	TopLevelShellWidget tls = (TopLevelShellWidget) new;	/* maybe */
+
+	if(w->wm.title == NULL) {
+	    if (XtIsTopLevelShell(new) &&
+		    tls->topLevel.icon_name != NULL &&
+		    strlen(tls->topLevel.icon_name) != 0) {
+		w->wm.title = XtNewString(tls->topLevel.icon_name);
+	    } else {
+		w->wm.title = XtNewString(w->core.name);
+	    }
+	} else {
+	    w->wm.title = XtNewString(w->wm.title);
+	}
+	w->wm.size_hints.flags = 0;
+	w->wm.wm_hints.flags = 0;
+	if (w->wm.window_role)
+	    w->wm.window_role = XtNewString(w->wm.window_role);
+}
+
+
+/* ARGSUSED */
+static void TopLevelInitialize(
+	Widget req, Widget new,
+	ArgList args,		/* unused */
+	Cardinal *num_args)	/* unused */
+{
+	TopLevelShellWidget w = (TopLevelShellWidget) new;
+
+	if (w->topLevel.icon_name == NULL) {
+	    w->topLevel.icon_name = XtNewString(w->core.name);
+	} else {
+	    w->topLevel.icon_name = XtNewString(w->topLevel.icon_name);
+	}
+
+	if (w->topLevel.iconic)
+	    w->wm.wm_hints.initial_state = IconicState;
+}
+
+static String *NewArgv(int, String *);
+static String *NewStringArray(String *);
+static void FreeStringArray(String *);
+
+/* ARGSUSED */
+static void ApplicationInitialize(
+    Widget req, Widget new,
+    ArgList args,		/* unused */
+    Cardinal *num_args)		/* unused */
+{
+    ApplicationShellWidget w = (ApplicationShellWidget)new;
+
+    if (w->application.argc > 0)
+	w->application.argv = NewArgv(w->application.argc,
+				      w->application.argv);
+}
+
+#define XtSaveInactive 0
+#define XtSaveActive   1
+#define XtInteractPending    2
+#define XtInteractActive     3
+
+#define XtCloneCommandMask	(1L<<0)
+#define XtCurrentDirectoryMask	(1L<<1)
+#define XtDiscardCommandMask	(1L<<2)
+#define XtEnvironmentMask	(1L<<3)
+#define XtProgramMask		(1L<<4)
+#define XtResignCommandMask	(1L<<5)
+#define XtRestartCommandMask	(1L<<6)
+#define XtRestartStyleHintMask	(1L<<7)
+#define XtShutdownCommandMask	(1L<<8)
+
+static void JoinSession(SessionShellWidget);
+static void SetSessionProperties(SessionShellWidget, Boolean, unsigned long, unsigned long);
+#ifndef XT_NO_SM
+static void StopManagingSession(SessionShellWidget, SmcConn);
+#endif
+
+typedef struct _XtSaveYourselfRec {
+    XtSaveYourself next;
+    int            save_type;
+    int            interact_style;
+    Boolean        shutdown;
+    Boolean        fast;
+    Boolean        cancel_shutdown;
+    int		   phase;
+    int            interact_dialog_type;
+    Boolean	   request_cancel;
+    Boolean	   request_next_phase;
+    Boolean        save_success;
+    int            save_tokens;
+    int            interact_tokens;
+} XtSaveYourselfRec;
+
+/* ARGSUSED */
+static void SessionInitialize(
+    Widget req, Widget new,
+    ArgList args,		/* unused */
+    Cardinal *num_args)		/* unused */
+{
+#ifndef XT_NO_SM
+    SessionShellWidget w = (SessionShellWidget)new;
+
+    if (w->session.session_id) w->session.session_id =
+	XtNewString(w->session.session_id);
+    if (w->session.restart_command) w->session.restart_command =
+	NewStringArray(w->session.restart_command);
+    if (w->session.clone_command) w->session.clone_command =
+	NewStringArray(w->session.clone_command);
+    if (w->session.discard_command) w->session.discard_command =
+	NewStringArray(w->session.discard_command);
+    if (w->session.resign_command) w->session.resign_command =
+	NewStringArray(w->session.resign_command);
+    if (w->session.shutdown_command) w->session.shutdown_command =
+	NewStringArray(w->session.shutdown_command);
+    if (w->session.environment) w->session.environment =
+	NewStringArray(w->session.environment);
+    if (w->session.current_dir) w->session.current_dir =
+	XtNewString(w->session.current_dir);
+    if (w->session.program_path) w->session.program_path =
+	XtNewString(w->session.program_path);
+
+    w->session.checkpoint_state = XtSaveInactive;
+    w->session.input_id = 0;
+    w->session.save = NULL;
+
+    if ((w->session.join_session) &&
+	(w->application.argv || w->session.restart_command))
+	JoinSession(w);
+
+    if (w->session.connection)
+	SetSessionProperties(w, True, 0L, 0L);
+#endif /* !XT_NO_SM */
+}
+
+static void Resize(
+    Widget w)
+{
+    register ShellWidget sw = (ShellWidget)w;
+    Widget childwid;
+    Cardinal i;
+    for(i = 0; i < sw->composite.num_children; i++) {
+        if (XtIsManaged(sw->composite.children[i])) {
+             childwid = sw->composite.children[i];
+             XtResizeWidget(childwid, sw->core.width, sw->core.height,
+                           childwid->core.border_width);
+	     break;		/* can only be one managed child */
+        }
+    }
+}
+
+static void GetGeometry(Widget, Widget);
+
+static void Realize(
+	Widget wid,
+	Mask *vmask,
+	XSetWindowAttributes *attr)
+{
+	ShellWidget w = (ShellWidget) wid;
+        Mask mask = *vmask;
+
+	if (! (w->shell.client_specified & _XtShellGeometryParsed)) {
+	    /* we'll get here only if there was no child the first
+	       time we were realized.  If the shell was Unrealized
+	       and then re-Realized, we probably don't want to
+	       re-evaluate the defaults anyway.
+	     */
+	    GetGeometry(wid, (Widget)NULL);
+	}
+	else if (w->core.background_pixmap == XtUnspecifiedPixmap) {
+	    /* I attempt to inherit my child's background to avoid screen flash
+	     * if there is latency between when I get resized and when my child
+	     * is resized.  Background=None is not satisfactory, as I want the
+	     * user to get immediate feedback on the new dimensions (most
+	     * particularly in the case of a non-reparenting wm).  It is
+	     * especially important to have the server clear any old cruft
+	     * from the display when I am resized larger.
+	     */
+	    register Widget *childP = w->composite.children;
+	    int i;
+	    for (i = w->composite.num_children; i; i--, childP++) {
+		if (XtIsWidget(*childP) && XtIsManaged(*childP)) {
+		    if ((*childP)->core.background_pixmap
+			    != XtUnspecifiedPixmap) {
+			mask &= ~(CWBackPixel);
+			mask |= CWBackPixmap;
+			attr->background_pixmap =
+			    w->core.background_pixmap =
+				(*childP)->core.background_pixmap;
+		    } else {
+			attr->background_pixel =
+			    w->core.background_pixel =
+				(*childP)->core.background_pixel;
+		    }
+		    break;
+		}
+	    }
+	}
+
+	if(w->shell.save_under) {
+		mask |= CWSaveUnder;
+		attr->save_under = TRUE;
+	}
+	if(w->shell.override_redirect) {
+		mask |= CWOverrideRedirect;
+		attr->override_redirect = TRUE;
+	}
+	if (wid->core.width == 0 || wid->core.height == 0) {
+	    Cardinal count = 1;
+	    XtErrorMsg("invalidDimension", "shellRealize", XtCXtToolkitError,
+		       "Shell widget %s has zero width and/or height",
+		       &wid->core.name, &count);
+	}
+	wid->core.window = XCreateWindow(XtDisplay(wid),
+		wid->core.screen->root, (int)wid->core.x, (int)wid->core.y,
+		(unsigned int)wid->core.width, (unsigned int)wid->core.height,
+		(unsigned int)wid->core.border_width, (int) wid->core.depth,
+		(unsigned int) InputOutput, w->shell.visual,
+		mask, attr);
+
+	_popup_set_prop(w);
+}
+
+
+static void _SetTransientForHint(
+     TransientShellWidget w,
+     Boolean delete)
+{
+    Window window_group;
+
+    if (w->wm.transient) {
+	if (w->transient.transient_for != NULL
+	    && XtIsRealized(w->transient.transient_for))
+	    window_group = XtWindow(w->transient.transient_for);
+	else if ((window_group = w->wm.wm_hints.window_group)
+		 == XtUnspecifiedWindowGroup) {
+	    if (delete)
+		XDeleteProperty( XtDisplay((Widget)w),
+				 XtWindow((Widget)w),
+				 XA_WM_TRANSIENT_FOR
+				);
+	    return;
+	}
+
+	XSetTransientForHint( XtDisplay((Widget)w),
+			      XtWindow((Widget)w),
+			      window_group
+			     );
+    }
+}
+
+
+static void TransientRealize(
+     Widget w,
+     Mask *vmask,
+     XSetWindowAttributes *attr)
+{
+    XtRealizeProc realize;
+
+    LOCK_PROCESS;
+    realize =
+	transientShellWidgetClass->core_class.superclass->core_class.realize;
+    UNLOCK_PROCESS;
+    (*realize) (w, vmask, attr);
+
+    _SetTransientForHint((TransientShellWidget)w, False);
+}
+
+static Widget GetClientLeader(
+    Widget w)
+{
+    while ((! XtIsWMShell(w) || ! ((WMShellWidget)w)->wm.client_leader)
+	   && w->core.parent)
+	w = w->core.parent;
+
+    /* ASSERT: w is a WMshell with client_leader set, or w has no parent */
+
+    if (XtIsWMShell(w) && ((WMShellWidget)w)->wm.client_leader)
+	w = ((WMShellWidget)w)->wm.client_leader;
+    return w;
+}
+
+static void EvaluateWMHints(
+    WMShellWidget w)
+{
+	XWMHints *hintp = &w->wm.wm_hints;
+
+	hintp->flags = StateHint | InputHint;
+
+	if (hintp->icon_x == XtUnspecifiedShellInt)
+	    hintp->icon_x = -1;
+	else
+	    hintp->flags |= IconPositionHint;
+
+	if (hintp->icon_y == XtUnspecifiedShellInt)
+	    hintp->icon_y = -1;
+	else
+	    hintp->flags |= IconPositionHint;
+
+	if (hintp->icon_pixmap != None) hintp->flags |= IconPixmapHint;
+	if (hintp->icon_mask != None)   hintp->flags |= IconMaskHint;
+	if (hintp->icon_window != None) hintp->flags |= IconWindowHint;
+
+	if (hintp->window_group == XtUnspecifiedWindow) {
+	    if(w->core.parent) {
+		Widget p;
+		for (p = w->core.parent; p->core.parent; p = p->core.parent);
+		if (XtIsRealized(p)) {
+		    hintp->window_group = XtWindow(p);
+		    hintp->flags |=  WindowGroupHint;
+		}
+	    }
+	} else if (hintp->window_group != XtUnspecifiedWindowGroup)
+	    hintp->flags |=  WindowGroupHint;
+
+	if (w->wm.urgency) hintp->flags |= XUrgencyHint;
+}
+
+
+static void EvaluateSizeHints(
+    WMShellWidget w)
+{
+	struct _OldXSizeHints *sizep = &w->wm.size_hints;
+
+	sizep->x = w->core.x;
+	sizep->y = w->core.y;
+	sizep->width = w->core.width;
+	sizep->height = w->core.height;
+
+	if (sizep->flags & USSize) {
+	    if (sizep->flags & PSize) sizep->flags &= ~PSize;
+	} else
+	    sizep->flags |= PSize;
+
+	if (sizep->flags & USPosition) {
+	    if (sizep->flags & PPosition) sizep->flags &= ~PPosition;
+	} else if (w->shell.client_specified & _XtShellPPositionOK)
+	    sizep->flags |= PPosition;
+
+	if (sizep->min_aspect.x != XtUnspecifiedShellInt
+	    || sizep->min_aspect.y != XtUnspecifiedShellInt
+	    || sizep->max_aspect.x != XtUnspecifiedShellInt
+	    || sizep->max_aspect.y != XtUnspecifiedShellInt) {
+	    sizep->flags |= PAspect;
+	}
+	if (sizep->flags & PBaseSize
+	    || w->wm.base_width != XtUnspecifiedShellInt
+	    || w->wm.base_height != XtUnspecifiedShellInt) {
+	    sizep->flags |= PBaseSize;
+	    if (w->wm.base_width == XtUnspecifiedShellInt)
+		w->wm.base_width = 0;
+	    if (w->wm.base_height == XtUnspecifiedShellInt)
+		w->wm.base_height = 0;
+	}
+	if (sizep->flags & PResizeInc
+	    || sizep->width_inc != XtUnspecifiedShellInt
+	    || sizep->height_inc != XtUnspecifiedShellInt) {
+	    if (sizep->width_inc < 1) sizep->width_inc = 1;
+	    if (sizep->height_inc < 1) sizep->height_inc = 1;
+	    sizep->flags |= PResizeInc;
+	}
+	if (sizep->flags & PMaxSize
+	    || sizep->max_width != XtUnspecifiedShellInt
+	    || sizep->max_height != XtUnspecifiedShellInt) {
+	    sizep->flags |= PMaxSize;
+	    if (sizep->max_width == XtUnspecifiedShellInt)
+		sizep->max_width = BIGSIZE;
+	    if (sizep->max_height == XtUnspecifiedShellInt)
+		sizep->max_height = BIGSIZE;
+	}
+	if (sizep->flags & PMinSize
+	    || sizep->min_width != XtUnspecifiedShellInt
+	    || sizep->min_height != XtUnspecifiedShellInt) {
+	    sizep->flags |= PMinSize;
+	    if (sizep->min_width == XtUnspecifiedShellInt)
+		sizep->min_width = 1;
+	    if (sizep->min_height == XtUnspecifiedShellInt)
+		sizep->min_height = 1;
+	}
+}
+
+static void _popup_set_prop(
+	ShellWidget w)
+{
+	Widget p;
+	WMShellWidget wmshell = (WMShellWidget) w;
+	TopLevelShellWidget tlshell = (TopLevelShellWidget) w;
+	ApplicationShellWidget appshell = (ApplicationShellWidget) w;
+	XTextProperty icon_name;
+	XTextProperty window_name;
+	char **argv;
+	int argc;
+	XSizeHints *size_hints;
+	Window window_group;
+	XClassHint classhint;
+	Boolean copied_iname, copied_wname;
+
+	if (!XtIsWMShell((Widget)w) || w->shell.override_redirect) return;
+
+	if ((size_hints = XAllocSizeHints()) == NULL)
+	    _XtAllocError("XAllocSizeHints");
+
+	copied_iname = copied_wname = False;
+        if (wmshell->wm.title_encoding == None &&
+	    XmbTextListToTextProperty(XtDisplay((Widget)w),
+				      (char**)&wmshell->wm.title,
+				      1, XStdICCTextStyle,
+				      &window_name) >= Success) {
+	    copied_wname = True;
+	} else {
+	    window_name.value = (unsigned char*)wmshell->wm.title;
+	    window_name.encoding = wmshell->wm.title_encoding ?
+		wmshell->wm.title_encoding : XA_STRING;
+	    window_name.format = 8;
+	    window_name.nitems = strlen((char *)window_name.value);
+	}
+
+	if (XtIsTopLevelShell((Widget)w)) {
+            if (tlshell->topLevel.icon_name_encoding == None &&
+		XmbTextListToTextProperty(XtDisplay((Widget)w),
+					  (char**)&tlshell->topLevel.icon_name,
+					  1, XStdICCTextStyle,
+					  &icon_name) >= Success) {
+		copied_iname = True;
+	    } else {
+		icon_name.value = (unsigned char*)tlshell->topLevel.icon_name;
+		icon_name.encoding = tlshell->topLevel.icon_name_encoding ?
+		    tlshell->topLevel.icon_name_encoding : XA_STRING;
+		icon_name.format = 8;
+		icon_name.nitems = strlen((char *)icon_name.value);
+	    }
+	}
+
+	EvaluateWMHints(wmshell);
+	EvaluateSizeHints(wmshell);
+	ComputeWMSizeHints(wmshell, size_hints);
+
+	if (wmshell->wm.transient
+	    && !XtIsTransientShell((Widget)w)
+	    && (window_group = wmshell->wm.wm_hints.window_group)
+	       != XtUnspecifiedWindowGroup) {
+
+	    XSetTransientForHint(XtDisplay((Widget)w),
+				 XtWindow((Widget)w),
+				 window_group
+				 );
+	}
+
+	classhint.res_name = w->core.name;
+	/* For the class, look up to the top of the tree */
+	for (p = (Widget)w; p->core.parent != NULL; p = p->core.parent);
+	if (XtIsApplicationShell(p)) {
+	    classhint.res_class =
+		((ApplicationShellWidget)p)->application.class;
+	} else {
+	    LOCK_PROCESS;
+	    classhint.res_class = XtClass(p)->core_class.class_name;
+	    UNLOCK_PROCESS;
+	}
+
+	if (XtIsApplicationShell((Widget)w)
+	    && (argc = appshell->application.argc) != -1)
+	    argv = (char**)appshell->application.argv;
+	else {
+	    argv = NULL;
+	    argc = 0;
+	}
+
+	XSetWMProperties(XtDisplay((Widget)w), XtWindow((Widget)w),
+			 &window_name,
+			 (XtIsTopLevelShell((Widget)w)) ? &icon_name : NULL,
+			 argv, argc,
+			 size_hints,
+			 &wmshell->wm.wm_hints,
+			 &classhint);
+	XFree((char*)size_hints);
+	if (copied_wname)
+	    XFree((XPointer)window_name.value);
+	if (copied_iname)
+	    XFree((XPointer)icon_name.value);
+
+	LOCK_PROCESS;
+	if (XtWidgetToApplicationContext((Widget)w)->langProcRec.proc) {
+	    char *locale = setlocale(LC_CTYPE, (char *)NULL);
+	    if (locale)
+		XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),
+				XInternAtom(XtDisplay((Widget)w),
+					    "WM_LOCALE_NAME", False),
+				XA_STRING, 8, PropModeReplace,
+				(unsigned char *)locale, strlen(locale));
+	}
+	UNLOCK_PROCESS;
+
+	p = GetClientLeader((Widget)w);
+	if (XtWindow(p))
+	    XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),
+			    XInternAtom(XtDisplay((Widget)w),
+					"WM_CLIENT_LEADER", False),
+			    XA_WINDOW, 32, PropModeReplace,
+			    (unsigned char *)(&(p->core.window)), 1);
+#ifndef XT_NO_SM
+	if (p == (Widget) w) {
+	    for ( ; p->core.parent != NULL; p = p->core.parent);
+	    if (XtIsSubclass(p, sessionShellWidgetClass)) {
+		String sm_client_id =
+		    ((SessionShellWidget)p)->session.session_id;
+		if (sm_client_id != NULL) {
+		    XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),
+				    XInternAtom(XtDisplay((Widget)w),
+						"SM_CLIENT_ID", False),
+				    XA_STRING, 8, PropModeReplace,
+				    (unsigned char *) sm_client_id,
+				    strlen(sm_client_id));
+		}
+	    }
+	}
+#endif /* !XT_NO_SM */
+
+	if (wmshell->wm.window_role)
+	    XChangeProperty(XtDisplay((Widget)w), XtWindow((Widget)w),
+			    XInternAtom(XtDisplay((Widget)w),
+					"WM_WINDOW_ROLE", False),
+			    XA_STRING, 8, PropModeReplace,
+			    (unsigned char *)wmshell->wm.window_role,
+			    strlen(wmshell->wm.window_role));
+}
+
+/* ARGSUSED */
+static void EventHandler(
+	Widget wid,
+	XtPointer closure,	/* unused */
+	XEvent *event,
+        Boolean *continue_to_dispatch) /* unused */
+{
+	register ShellWidget w = (ShellWidget) wid;
+	WMShellWidget wmshell = (WMShellWidget) w;
+	Boolean  sizechanged = FALSE;
+
+	if(w->core.window != event->xany.window) {
+		XtAppErrorMsg(XtWidgetToApplicationContext(wid),
+			"invalidWindow","eventHandler",XtCXtToolkitError,
+                        "Event with wrong window",
+			(String *)NULL, (Cardinal *)NULL);
+		return;
+	}
+
+	switch(event->type) {
+	    case ConfigureNotify:
+	        if (w->core.window != event->xconfigure.window)
+		    return;  /* in case of SubstructureNotify */
+#define NEQ(x)	( w->core.x != event->xconfigure.x )
+		if( NEQ(width) || NEQ(height) || NEQ(border_width) ) {
+			sizechanged = TRUE;
+#undef NEQ
+			w->core.width = event->xconfigure.width;
+			w->core.height = event->xconfigure.height;
+			w->core.border_width = event->xconfigure.border_width;
+		}
+		if (event->xany.send_event /* ICCCM compliant synthetic ev */
+		    /* || w->shell.override_redirect */
+		    || w->shell.client_specified & _XtShellNotReparented)
+	        {
+		    w->core.x = event->xconfigure.x;
+		    w->core.y = event->xconfigure.y;
+		    w->shell.client_specified |= _XtShellPositionValid;
+		}
+		else w->shell.client_specified &= ~_XtShellPositionValid;
+		if (XtIsWMShell(wid) && !wmshell->wm.wait_for_wm) {
+		    /* Consider trusting the wm again */
+		    register struct _OldXSizeHints *hintp
+			= &wmshell->wm.size_hints;
+#define EQ(x) (hintp->x == w->core.x)
+		    if (EQ(x) && EQ(y) && EQ(width) && EQ(height)) {
+			wmshell->wm.wait_for_wm = TRUE;
+		    }
+#undef EQ
+		}
+		break;
+
+	      case ReparentNotify:
+		if (event->xreparent.window == XtWindow(w)) {
+		   if (event->xreparent.parent !=
+		       RootWindowOfScreen(XtScreen(w)))
+		       w->shell.client_specified &=
+			   ~(_XtShellNotReparented | _XtShellPositionValid);
+		   else {
+		       w->core.x = event->xreparent.x;
+		       w->core.y = event->xreparent.y;
+		       w->shell.client_specified |=
+			   (_XtShellNotReparented | _XtShellPositionValid);
+		   }
+	        }
+		return;
+
+              case MapNotify:
+                if (XtIsTopLevelShell(wid)) {
+                    ((TopLevelShellWidget)wid)->topLevel.iconic = FALSE;
+                }
+                return;
+
+	      case UnmapNotify:
+		{
+		    XtPerDisplayInput	pdi;
+		    XtDevice		device;
+		    Widget		p;
+
+                    if (XtIsTopLevelShell(wid))
+                        ((TopLevelShellWidget)wid)->topLevel.iconic = TRUE;
+
+		    pdi = _XtGetPerDisplayInput(event->xunmap.display);
+
+		    device = &pdi->pointer;
+		    if (device->grabType == XtPassiveServerGrab) {
+			p = device->grab.widget;
+			while (p && !(XtIsShell(p)))
+			    p = p->core.parent;
+			if (p == wid)
+			    device->grabType = XtNoServerGrab;
+		    }
+
+		    device = &pdi->keyboard;
+		    if (IsEitherPassiveGrab(device->grabType)) {
+			p = device->grab.widget;
+			while (p && !(XtIsShell(p)))
+			    p = p->core.parent;
+			if (p == wid) {
+			    device->grabType = XtNoServerGrab;
+			    pdi->activatingKey = 0;
+			}
+		    }
+
+		    return;
+		}
+	      default:
+		 return;
+	}
+	{
+	XtWidgetProc resize;
+
+	LOCK_PROCESS;
+	resize = XtClass(wid)->core_class.resize;
+	UNLOCK_PROCESS;
+
+	if (sizechanged && resize) {
+	    CALLGEOTAT(_XtGeoTrace((Widget)w,
+			   "Shell \"%s\" is being resized to %d %d.\n",
+			   XtName(wid), wid->core.width, wid->core.height ));
+	    (*resize)(wid);
+	 }
+	}
+}
+
+static void Destroy(
+	Widget wid)
+{
+	if (XtIsRealized(wid))
+	    XDestroyWindow( XtDisplay(wid), XtWindow(wid) );
+}
+
+static void WMDestroy(
+	Widget wid)
+{
+	WMShellWidget w = (WMShellWidget) wid;
+
+	XtFree((char *) w->wm.title);
+	XtFree((char *) w->wm.window_role);
+}
+
+static void TopLevelDestroy(
+	Widget wid)
+{
+	TopLevelShellWidget w = (TopLevelShellWidget) wid;
+
+	XtFree((char *) w->topLevel.icon_name);
+}
+
+static void ApplicationDestroy(
+    Widget wid)
+{
+    ApplicationShellWidget w = (ApplicationShellWidget) wid;
+    if (w->application.argc > 0)
+	FreeStringArray(w->application.argv);
+}
+
+static void SessionDestroy(
+    Widget wid)
+{
+#ifndef XT_NO_SM
+    SessionShellWidget w = (SessionShellWidget) wid;
+
+    StopManagingSession(w, w->session.connection);
+    XtFree(w->session.session_id);
+    FreeStringArray(w->session.restart_command);
+    FreeStringArray(w->session.clone_command);
+    FreeStringArray(w->session.discard_command);
+    FreeStringArray(w->session.resign_command);
+    FreeStringArray(w->session.shutdown_command);
+    FreeStringArray(w->session.environment);
+    XtFree(w->session.current_dir);
+    XtFree(w->session.program_path);
+#endif /* !XT_NO_SM */
+}
+
+/*
+ * If the Shell has a width and a height which are zero, and as such
+ * suspect, and it has not yet been realized then it will grow to
+ * match the child before parsing the geometry resource.
+ *
+ */
+static void GetGeometry(
+    Widget W, Widget child)
+{
+    register ShellWidget w = (ShellWidget)W;
+    Boolean is_wmshell = XtIsWMShell(W);
+    int x, y, width, height, win_gravity = -1, flag;
+    XSizeHints hints;
+
+    if (child != NULL) {
+	/* we default to our child's size */
+	if (is_wmshell && (w->core.width == 0 || w->core.height == 0))
+	    ((WMShellWidget)W)->wm.size_hints.flags |= PSize;
+	if (w->core.width == 0)	    w->core.width = child->core.width;
+	if (w->core.height == 0)    w->core.height = child->core.height;
+    }
+    if(w->shell.geometry != NULL) {
+	char def_geom[64];
+	x = w->core.x;
+	y = w->core.y;
+	width = w->core.width;
+	height = w->core.height;
+	if (is_wmshell) {
+	    WMShellPart* wm = &((WMShellWidget)w)->wm;
+	    EvaluateSizeHints((WMShellWidget)w);
+	    (void) memmove((char*)&hints, (char*)&wm->size_hints,
+			   sizeof(struct _OldXSizeHints));
+	    hints.win_gravity = wm->win_gravity;
+	    if (wm->size_hints.flags & PBaseSize) {
+		width -= wm->base_width;
+		height -= wm->base_height;
+		hints.base_width = wm->base_width;
+		hints.base_height = wm->base_height;
+	    }
+	    else if (wm->size_hints.flags & PMinSize) {
+		width -= wm->size_hints.min_width;
+		height -= wm->size_hints.min_height;
+	    }
+	    if (wm->size_hints.flags & PResizeInc) {
+		width /= wm->size_hints.width_inc;
+		height /= wm->size_hints.height_inc;
+	    }
+	}
+	else hints.flags = 0;
+
+	snprintf( def_geom, sizeof(def_geom), "%dx%d+%d+%d",
+		  width, height, x, y );
+	flag = XWMGeometry( XtDisplay(W),
+			    XScreenNumberOfScreen(XtScreen(W)),
+			    w->shell.geometry, def_geom,
+			    (unsigned int)w->core.border_width,
+			    &hints, &x, &y, &width, &height,
+			    &win_gravity
+			   );
+	if (flag) {
+	    if (flag & XValue) w->core.x = (Position)x;
+	    if (flag & YValue) w->core.y = (Position)y;
+	    if (flag & WidthValue) w->core.width = (Dimension)width;
+	    if (flag & HeightValue) w->core.height = (Dimension)height;
+	}
+	else {
+	    String params[2];
+	    Cardinal num_params = 2;
+	    params[0] = XtName(W);
+	    params[1] = w->shell.geometry;
+	    XtAppWarningMsg(XtWidgetToApplicationContext(W),
+       "badGeometry", "shellRealize", XtCXtToolkitError,
+       "Shell widget \"%s\" has an invalid geometry specification: \"%s\"",
+			    params, &num_params);
+	}
+    }
+    else
+	flag = 0;
+
+    if (is_wmshell) {
+	WMShellWidget wmshell = (WMShellWidget) w;
+	if (wmshell->wm.win_gravity == XtUnspecifiedShellInt) {
+	    if (win_gravity != -1)
+		wmshell->wm.win_gravity = win_gravity;
+	    else
+		wmshell->wm.win_gravity = NorthWestGravity;
+	}
+	wmshell->wm.size_hints.flags |= PWinGravity;
+	if ((flag & (XValue|YValue)) == (XValue|YValue))
+	    wmshell->wm.size_hints.flags |= USPosition;
+	if ((flag & (WidthValue|HeightValue)) == (WidthValue|HeightValue))
+	    wmshell->wm.size_hints.flags |= USSize;
+    }
+    w->shell.client_specified |= _XtShellGeometryParsed;
+}
+
+
+static void ChangeManaged(Widget wid)
+{
+    ShellWidget w = (ShellWidget) wid;
+    Widget child = NULL;
+    Cardinal i;
+
+    for (i = 0; i < w->composite.num_children; i++) {
+	if (XtIsManaged(w->composite.children[i])) {
+	    child = w->composite.children[i];
+	    break;		/* there can only be one of them! */
+	}
+    }
+
+    if (!XtIsRealized (wid))	/* then we're about to be realized... */
+	GetGeometry(wid, child);
+
+    if (child != NULL)
+	XtConfigureWidget (child, (Position)0, (Position)0,
+			   w->core.width, w->core.height, (Dimension)0 );
+}
+
+/*
+ * This is gross, I can't wait to see if the change happened so I will ask
+ * the window manager to change my size and do the appropriate X work.
+ * I will then tell the requester that he can.  Care must be taken because
+ * it is possible that some time in the future the request will be
+ * asynchronusly denied and the window reverted to it's old size/shape.
+ */
+
+/*ARGSUSED*/
+static XtGeometryResult GeometryManager(
+	Widget wid,
+	XtWidgetGeometry *request,
+	XtWidgetGeometry *reply)
+{
+	ShellWidget shell = (ShellWidget)(wid->core.parent);
+	XtWidgetGeometry my_request;
+
+	if(shell->shell.allow_shell_resize == FALSE && XtIsRealized(wid))
+		return(XtGeometryNo);
+
+	if (request->request_mode & (CWX | CWY))
+	    return(XtGeometryNo);
+
+	my_request.request_mode = (request->request_mode & XtCWQueryOnly);
+	if (request->request_mode & CWWidth) {
+	    my_request.width = request->width;
+	    my_request.request_mode |= CWWidth;
+	}
+	if (request->request_mode & CWHeight) {
+	    my_request.height = request->height;
+	    my_request.request_mode |= CWHeight;
+	}
+	if (request->request_mode & CWBorderWidth) {
+	    my_request.border_width = request->border_width;
+	    my_request.request_mode |= CWBorderWidth;
+	}
+	if (XtMakeGeometryRequest((Widget)shell, &my_request, NULL)
+		== XtGeometryYes) {
+	    /* assert: if (request->request_mode & CWWidth) then
+	     * 		  shell->core.width == request->width
+	     * assert: if (request->request_mode & CWHeight) then
+	     * 		  shell->core.height == request->height
+	     *
+	     * so, whatever the WM sized us to (if the Shell requested
+	     * only one of the two) is now the correct child size
+	     */
+
+	    if (!(request->request_mode & XtCWQueryOnly)) {
+		wid->core.width = shell->core.width;
+		wid->core.height = shell->core.height;
+		if (request->request_mode & CWBorderWidth) {
+		    wid->core.x = wid->core.y = -request->border_width;
+		}
+	    }
+	    return XtGeometryYes;
+	} else return XtGeometryNo;
+}
+
+typedef struct {
+	Widget  w;
+	unsigned long request_num;
+	Boolean done;
+} QueryStruct;
+
+static Bool isMine(
+	Display *dpy,
+	register XEvent  *event,
+	char *arg)
+{
+	QueryStruct *q = (QueryStruct *) arg;
+	register Widget w = q->w;
+
+	if ( (dpy != XtDisplay(w)) || (event->xany.window != XtWindow(w)) ) {
+	    return FALSE;
+	}
+	if (event->xany.serial >= q->request_num) {
+	    if (event->type == ConfigureNotify) {
+		q->done = TRUE;
+		return TRUE;
+	    }
+	}
+	else if (event->type == ConfigureNotify)
+	    return TRUE;	/* flush old events */
+	if (event->type == ReparentNotify
+		 && event->xreparent.window == XtWindow(w)) {
+	    /* we might get ahead of this event, so just in case someone
+	     * asks for coordinates before this event is dispatched...
+	     */
+	    register ShellWidget s = (ShellWidget)w;
+	    if (event->xreparent.parent != RootWindowOfScreen(XtScreen(w)))
+		s->shell.client_specified &= ~_XtShellNotReparented;
+	    else
+		s->shell.client_specified |= _XtShellNotReparented;
+	}
+	return FALSE;
+}
+
+static Boolean _wait_for_response(
+	ShellWidget	w,
+	XEvent		*event,
+        unsigned long	request_num)
+{
+	XtAppContext app = XtWidgetToApplicationContext((Widget) w);
+	QueryStruct q;
+	unsigned long timeout;
+
+	if (XtIsWMShell((Widget)w))
+	    timeout = ((WMShellWidget)w)->wm.wm_timeout;
+	else
+	    timeout = DEFAULT_WM_TIMEOUT;
+
+	XFlush(XtDisplay(w));
+	q.w = (Widget) w;
+	q.request_num = request_num;
+	q.done = FALSE;
+
+	/*
+	 * look for match event and discard all prior configures
+	 */
+	while (XCheckIfEvent(XtDisplay(w),event,isMine,(char*)&q)) {
+	    if (q.done) return TRUE;
+	}
+
+	while (timeout > 0) {
+	    if (_XtWaitForSomething (app,
+				     FALSE, TRUE, TRUE, TRUE,
+				     TRUE,
+#ifdef XTHREADS
+				     FALSE,
+#endif
+				     &timeout) != -1) {
+		while (XCheckIfEvent(XtDisplay(w),event,isMine,(char*)&q)) {
+		    if (q.done) return TRUE;
+		}
+	    }
+	}
+	return FALSE;
+}
+
+/*ARGSUSED*/
+static XtGeometryResult RootGeometryManager(
+    Widget gw,
+    XtWidgetGeometry *request, XtWidgetGeometry *reply)
+{
+    register ShellWidget w = (ShellWidget)gw;
+    XWindowChanges values;
+    unsigned int mask = request->request_mode;
+    XEvent event;
+    Boolean wm;
+    register struct _OldXSizeHints *hintp = NULL;
+    int oldx, oldy, oldwidth, oldheight, oldborder_width;
+    unsigned long request_num;
+
+    CALLGEOTAT(_XtGeoTab(1));
+
+    if (XtIsWMShell(gw)) {
+	wm = True;
+	hintp = &((WMShellWidget)w)->wm.size_hints;
+	/* for draft-ICCCM wm's, need to make sure hints reflect
+	   (current) reality so client can move and size separately. */
+  	hintp->x = w->core.x;
+  	hintp->y = w->core.y;
+  	hintp->width = w->core.width;
+   	hintp->height = w->core.height;
+    } else
+	wm = False;
+
+    oldx = w->core.x;
+    oldy = w->core.y;
+    oldwidth = w->core.width;
+    oldheight = w->core.height;
+    oldborder_width = w->core.border_width;
+
+#define PutBackGeometry() \
+	{ w->core.x = oldx; \
+	  w->core.y = oldy; \
+	  w->core.width = oldwidth; \
+	  w->core.height = oldheight; \
+	  w->core.border_width = oldborder_width; }
+
+    if (mask & CWX) {
+	    if (w->core.x == request->x) mask &= ~CWX;
+	    else {
+		w->core.x = values.x = request->x;
+		if (wm) {
+		    hintp->flags &= ~USPosition;
+		    hintp->flags |= PPosition;
+		    hintp->x = values.x;
+		}
+	    }
+    }
+    if (mask & CWY) {
+	    if (w->core.y == request->y) mask &= ~CWY;
+	    else {
+		w->core.y = values.y = request->y;
+		if (wm) {
+		    hintp->flags &= ~USPosition;
+		    hintp->flags |= PPosition;
+		    hintp->y = values.y;
+		}
+	    }
+    }
+    if (mask & CWBorderWidth) {
+	    if (w->core.border_width == request->border_width) {
+		    mask &= ~CWBorderWidth;
+	    } else
+		w->core.border_width =
+		    values.border_width =
+			request->border_width;
+    }
+    if (mask & CWWidth) {
+	    if (w->core.width == request->width) mask &= ~CWWidth;
+	    else {
+		w->core.width = values.width = request->width;
+		if (wm) {
+		    hintp->flags &= ~USSize;
+		    hintp->flags |= PSize;
+		    hintp->width = values.width;
+		}
+	    }
+    }
+    if (mask & CWHeight) {
+	    if (w->core.height == request->height) mask &= ~CWHeight;
+	    else {
+		w->core.height = values.height = request->height;
+		if (wm) {
+		    hintp->flags &= ~USSize;
+		    hintp->flags |= PSize;
+		    hintp->height = values.height;
+		}
+	    }
+    }
+    if (mask & CWStackMode) {
+	values.stack_mode = request->stack_mode;
+	if (mask & CWSibling)
+	    values.sibling = XtWindow(request->sibling);
+    }
+
+    if (!XtIsRealized((Widget)w)) {
+	CALLGEOTAT(_XtGeoTrace((Widget)w,
+		      "Shell \"%s\" is not realized, return XtGeometryYes.\n",
+		       XtName((Widget)w)));
+    	CALLGEOTAT(_XtGeoTab(-1));
+	return XtGeometryYes;
+    }
+
+    request_num = NextRequest(XtDisplay(w));
+
+    CALLGEOTAT(_XtGeoTrace((Widget)w,"XConfiguring the Shell X window :\n"));
+    CALLGEOTAT(_XtGeoTab(1));
+#ifdef XT_GEO_TATTLER
+    if (mask & CWX) { CALLGEOTAT(_XtGeoTrace((Widget)w,"x = %d\n",values.x));}
+    if (mask & CWY) { CALLGEOTAT(_XtGeoTrace((Widget)w,"y = %d\n",values.y));}
+    if (mask & CWWidth) { CALLGEOTAT(_XtGeoTrace((Widget)w,
+					       "width = %d\n",values.width));}
+    if (mask & CWHeight) { CALLGEOTAT(_XtGeoTrace((Widget)w,
+					    "height = %d\n",values.height));}
+    if (mask & CWBorderWidth) { CALLGEOTAT(_XtGeoTrace((Widget)w,
+				  "border_width = %d\n",values.border_width));}
+#endif
+    CALLGEOTAT(_XtGeoTab(-1));
+
+    XConfigureWindow(XtDisplay((Widget)w), XtWindow((Widget)w), mask,&values);
+
+    if (wm && !w->shell.override_redirect
+	&& mask & (CWX | CWY | CWWidth | CWHeight | CWBorderWidth)) {
+	_SetWMSizeHints((WMShellWidget)w);
+    }
+
+    if (w->shell.override_redirect) {
+	CALLGEOTAT(_XtGeoTrace((Widget)w,"Shell \"%s\" is override redirect, return XtGeometryYes.\n", XtName((Widget)w)));
+    	CALLGEOTAT(_XtGeoTab(-1));
+	return XtGeometryYes;
+    }
+
+
+    /* If no non-stacking bits are set, there's no way to tell whether
+       or not this worked, so assume it did */
+
+    if (!(mask & ~(CWStackMode | CWSibling))) return XtGeometryYes;
+
+    if (wm && ((WMShellWidget)w)->wm.wait_for_wm == FALSE) {
+	    /* the window manager is sick
+	     * so I will do the work and
+	     * say no so if a new WM starts up,
+	     * or the current one recovers
+	     * my size requests will be visible
+	     */
+	CALLGEOTAT(_XtGeoTrace((Widget)w,"Shell \"%s\" has wait_for_wm == FALSE, return XtGeometryNo.\n",
+		       XtName((Widget)w)));
+    	CALLGEOTAT(_XtGeoTab(-1));
+
+	PutBackGeometry();
+	return XtGeometryNo;
+    }
+
+    if (_wait_for_response(w, &event, request_num)) {
+	/* got an event */
+	if (event.type == ConfigureNotify) {
+
+#define NEQ(x, msk) ((mask & msk) && (values.x != event.xconfigure.x))
+	    if (NEQ(x, CWX) ||
+		NEQ(y, CWY) ||
+		NEQ(width, CWWidth) ||
+		NEQ(height, CWHeight) ||
+		NEQ(border_width, CWBorderWidth)) {
+#ifdef XT_GEO_TATTLER
+		if (NEQ(x, CWX)) {
+		    CALLGEOTAT(_XtGeoTrace((Widget)w,
+					   "received Configure X %d\n",
+					   event.xconfigure.x));
+		}
+		if (NEQ(y, CWY)) {
+		    CALLGEOTAT(_XtGeoTrace((Widget)w,
+					   "received Configure Y %d\n",
+					   event.xconfigure.y));
+		}
+		if (NEQ(width, CWWidth)) {
+		    CALLGEOTAT(_XtGeoTrace((Widget)w,
+					   "received Configure Width %d\n",
+					   event.xconfigure.width));
+		}
+		if (NEQ(height, CWHeight)) {
+		    CALLGEOTAT(_XtGeoTrace((Widget)w,
+					   "received Configure Height %d\n",
+					   event.xconfigure.height));
+		}
+		if (NEQ(border_width, CWBorderWidth)) {
+		    CALLGEOTAT(_XtGeoTrace((Widget)w,
+				        "received Configure BorderWidth %d\n",
+					event.xconfigure.border_width));
+		}
+#endif
+#undef NEQ
+		XPutBackEvent(XtDisplay(w), &event);
+		PutBackGeometry();
+		/*
+		 * We just potentially re-ordered the event queue
+		 * w.r.t. ConfigureNotifies with some trepidation.
+		 * But this is probably a Good Thing because we
+		 * will know the new true state of the world sooner
+		 * this way.
+		 */
+		CALLGEOTAT(_XtGeoTrace((Widget)w,
+			   "ConfigureNotify failed, return XtGeometryNo.\n"));
+		CALLGEOTAT(_XtGeoTab(-1));
+
+		return XtGeometryNo;
+	    }
+	    else {
+		w->core.width = event.xconfigure.width;
+		w->core.height = event.xconfigure.height;
+		w->core.border_width = event.xconfigure.border_width;
+		if (event.xany.send_event || /* ICCCM compliant synth */
+		    w->shell.client_specified & _XtShellNotReparented) {
+
+		    w->core.x = event.xconfigure.x;
+		    w->core.y = event.xconfigure.y;
+		    w->shell.client_specified |= _XtShellPositionValid;
+		}
+		else w->shell.client_specified &= ~_XtShellPositionValid;
+		CALLGEOTAT(_XtGeoTrace((Widget)w,
+			 "ConfigureNotify succeed, return XtGeometryYes.\n"));
+		CALLGEOTAT(_XtGeoTab(-1));
+		return XtGeometryYes;
+	    }
+	} else if (!wm) {
+	    PutBackGeometry();
+	    CALLGEOTAT(_XtGeoTrace((Widget)w,
+				   "Not wm, return XtGeometryNo.\n"));
+	    CALLGEOTAT(_XtGeoTab(-1));
+	    return XtGeometryNo;
+	} else XtAppWarningMsg(XtWidgetToApplicationContext((Widget)w),
+			       "internalError", "shell", XtCXtToolkitError,
+			       "Shell's window manager interaction is broken",
+			       (String *)NULL, (Cardinal *)NULL);
+    } else if (wm) { /* no event */
+	((WMShellWidget)w)->wm.wait_for_wm = FALSE; /* timed out; must be broken */
+    }
+    PutBackGeometry();
+#undef PutBackGeometry
+    CALLGEOTAT(_XtGeoTrace((Widget)w,
+			   "Timeout passed?, return XtGeometryNo.\n"));
+    CALLGEOTAT(_XtGeoTab(-1));
+    return XtGeometryNo;
+		}
+
+/* ARGSUSED */
+static Boolean SetValues(
+	Widget old, Widget ref, Widget new,
+	ArgList args,
+	Cardinal *num_args)
+{
+	ShellWidget nw = (ShellWidget) new;
+	ShellWidget ow = (ShellWidget) old;
+	Mask mask = 0;
+	XSetWindowAttributes attr;
+
+	if (!XtIsRealized(new))
+	    return False;
+
+	if (ow->shell.save_under != nw->shell.save_under) {
+	    mask = CWSaveUnder;
+	    attr.save_under = nw->shell.save_under;
+	}
+
+	if (ow->shell.override_redirect != nw->shell.override_redirect) {
+	    mask |= CWOverrideRedirect;
+	    attr.override_redirect = nw->shell.override_redirect;
+	}
+
+	if (mask) {
+	    XChangeWindowAttributes(XtDisplay(new),XtWindow(new), mask, &attr);
+	    if ((mask & CWOverrideRedirect) && !nw->shell.override_redirect)
+		_popup_set_prop(nw);
+	}
+
+	if (! (ow->shell.client_specified & _XtShellPositionValid)) {
+	    Cardinal n;
+
+	    for (n = *num_args; n; n--, args++) {
+		if (strcmp(XtNx, args->name) == 0) {
+		    _XtShellGetCoordinates((Widget)ow, &ow->core.x,
+							&ow->core.y);
+		} else if (strcmp(XtNy, args->name) == 0) {
+		    _XtShellGetCoordinates((Widget)ow, &ow->core.x,
+							&ow->core.y);
+		}
+	    }
+	}
+	return FALSE;
+}
+
+/* ARGSUSED */
+static Boolean WMSetValues(
+	Widget old, Widget ref, Widget new,
+	ArgList args,		/* unused */
+	Cardinal *num_args)	/* unused */
+{
+	WMShellWidget nwmshell = (WMShellWidget) new;
+	WMShellWidget owmshell = (WMShellWidget) old;
+	Boolean set_prop
+	    = XtIsRealized(new) && !nwmshell->shell.override_redirect;
+	Boolean title_changed;
+
+	EvaluateSizeHints(nwmshell);
+
+#define NEQ(f) (nwmshell->wm.size_hints.f != owmshell->wm.size_hints.f)
+
+	if (set_prop
+	    && (NEQ(flags) || NEQ(min_width) || NEQ(min_height)
+		|| NEQ(max_width) || NEQ(max_height)
+		|| NEQ(width_inc) || NEQ(height_inc)
+		|| NEQ(min_aspect.x) || NEQ(min_aspect.y)
+		|| NEQ(max_aspect.x) || NEQ(max_aspect.y)
+#undef NEQ
+#define NEQ(f) (nwmshell->wm.f != owmshell->wm.f)
+
+		|| NEQ(base_width) || NEQ(base_height) || NEQ(win_gravity))) {
+	    _SetWMSizeHints(nwmshell);
+	}
+#undef NEQ
+
+	if (nwmshell->wm.title != owmshell->wm.title) {
+	    XtFree(owmshell->wm.title);
+	    if (! nwmshell->wm.title) nwmshell->wm.title = "";
+	    nwmshell->wm.title = XtNewString(nwmshell->wm.title);
+	    title_changed = True;
+	} else
+	    title_changed = False;
+
+	if (set_prop
+	    && (title_changed ||
+		nwmshell->wm.title_encoding != owmshell->wm.title_encoding)) {
+
+	    XTextProperty title;
+	    Boolean copied = False;
+
+            if (nwmshell->wm.title_encoding == None &&
+		XmbTextListToTextProperty(XtDisplay(new),
+					  (char**)&nwmshell->wm.title,
+					  1, XStdICCTextStyle,
+					  &title) >= Success) {
+		copied = True;
+	    } else {
+		title.value = (unsigned char*)nwmshell->wm.title;
+		title.encoding = nwmshell->wm.title_encoding ?
+		    nwmshell->wm.title_encoding : XA_STRING;
+		title.format = 8;
+		title.nitems = strlen(nwmshell->wm.title);
+	    }
+	    XSetWMName(XtDisplay(new), XtWindow(new), &title);
+	    if (copied)
+		XFree((XPointer)title.value);
+	}
+
+	EvaluateWMHints(nwmshell);
+
+#define NEQ(f)	(nwmshell->wm.wm_hints.f != owmshell->wm.wm_hints.f)
+
+	if (set_prop
+	    && (NEQ(flags) || NEQ(input) || NEQ(initial_state)
+		|| NEQ(icon_x) || NEQ(icon_y)
+		|| NEQ(icon_pixmap) || NEQ(icon_mask) || NEQ(icon_window)
+		|| NEQ(window_group))) {
+
+	    XSetWMHints(XtDisplay(new), XtWindow(new), &nwmshell->wm.wm_hints);
+	}
+#undef NEQ
+
+ 	if (XtIsRealized(new) &&
+	    nwmshell->wm.transient != owmshell->wm.transient) {
+ 	    if (nwmshell->wm.transient) {
+		if (!XtIsTransientShell(new) &&
+		    !nwmshell->shell.override_redirect &&
+		    nwmshell->wm.wm_hints.window_group !=
+		       XtUnspecifiedWindowGroup)
+		    XSetTransientForHint(XtDisplay(new), XtWindow(new),
+					 nwmshell->wm.wm_hints.window_group);
+	    }
+ 	    else XDeleteProperty(XtDisplay(new), XtWindow(new),
+ 				 XA_WM_TRANSIENT_FOR);
+ 	}
+
+	if (nwmshell->wm.client_leader != owmshell->wm.client_leader
+	    && XtWindow(new) && !nwmshell->shell.override_redirect) {
+	    Widget leader = GetClientLeader(new);
+	    if (XtWindow(leader))
+		XChangeProperty(XtDisplay(new), XtWindow(new),
+				XInternAtom(XtDisplay(new),
+					    "WM_CLIENT_LEADER", False),
+				XA_WINDOW, 32, PropModeReplace,
+				(unsigned char *) &(leader->core.window), 1);
+	}
+
+	if (nwmshell->wm.window_role != owmshell->wm.window_role) {
+	    XtFree(owmshell->wm.window_role);
+	    if (set_prop && nwmshell->wm.window_role) {
+		XChangeProperty(XtDisplay(new), XtWindow(new),
+				XInternAtom(XtDisplay(new), "WM_WINDOW_ROLE",
+					    False),
+				XA_STRING, 8, PropModeReplace,
+				(unsigned char *)nwmshell->wm.window_role,
+				strlen(nwmshell->wm.window_role));
+	    } else if (XtIsRealized(new) && ! nwmshell->wm.window_role) {
+		XDeleteProperty(XtDisplay(new), XtWindow(new),
+				XInternAtom(XtDisplay(new), "WM_WINDOW_ROLE",
+					    False));
+	    }
+	}
+
+	return FALSE;
+}
+
+/*ARGSUSED*/
+static Boolean TransientSetValues(
+     Widget oldW, Widget refW, Widget newW,
+     ArgList args,		/* unused */
+     Cardinal *num_args)	/* unused */
+{
+    TransientShellWidget old = (TransientShellWidget)oldW;
+    TransientShellWidget new = (TransientShellWidget)newW;
+
+    if (XtIsRealized(newW)
+	&& ((new->wm.transient && !old->wm.transient)
+	    || ((new->transient.transient_for != old->transient.transient_for)
+		|| (new->transient.transient_for == NULL
+		    && (new->wm.wm_hints.window_group
+			!= old->wm.wm_hints.window_group))))) {
+
+	_SetTransientForHint(new, True);
+    }
+    return False;
+}
+
+
+/* ARGSUSED */
+static Boolean TopLevelSetValues(
+     Widget oldW, Widget refW, Widget newW,
+     ArgList args,		/* unused */
+     Cardinal *num_args)	/* unused */
+{
+    TopLevelShellWidget old = (TopLevelShellWidget)oldW;
+    TopLevelShellWidget new = (TopLevelShellWidget)newW;
+    Boolean name_changed;
+
+    if (old->topLevel.icon_name != new->topLevel.icon_name) {
+	XtFree((XtPointer)old->topLevel.icon_name);
+	if (! new->topLevel.icon_name) new->topLevel.icon_name = "";
+	new->topLevel.icon_name = XtNewString(new->topLevel.icon_name);
+	name_changed = True;
+    } else
+	name_changed = False;
+
+    if (XtIsRealized(newW)) {
+	if (new->topLevel.iconic != old->topLevel.iconic) {
+	    if (new->topLevel.iconic)
+		XIconifyWindow(XtDisplay(newW),
+			       XtWindow(newW),
+			       XScreenNumberOfScreen(XtScreen(newW))
+			       );
+	    else {
+		Boolean map = new->shell.popped_up;
+		XtPopup(newW, XtGrabNone);
+		if (map) XMapWindow(XtDisplay(newW), XtWindow(newW));
+	    }
+	}
+
+	if (!new->shell.override_redirect &&
+	    (name_changed ||
+	     (old->topLevel.icon_name_encoding
+	      != new->topLevel.icon_name_encoding))) {
+
+	    XTextProperty icon_name;
+	    Boolean copied = False;
+
+            if (new->topLevel.icon_name_encoding == None &&
+		XmbTextListToTextProperty(XtDisplay(newW),
+					  (char**) &new->topLevel.icon_name,
+					  1, XStdICCTextStyle,
+					  &icon_name) >= Success) {
+		copied = True;
+	    } else {
+		icon_name.value = (unsigned char *)new->topLevel.icon_name;
+		icon_name.encoding = new->topLevel.icon_name_encoding ?
+		    new->topLevel.icon_name_encoding : XA_STRING;
+		icon_name.format = 8;
+		icon_name.nitems = strlen((char *)icon_name.value);
+	    }
+	    XSetWMIconName(XtDisplay(newW), XtWindow(newW), &icon_name);
+	    if (copied)
+		XFree((XPointer)icon_name.value);
+	}
+    }
+    else if (new->topLevel.iconic != old->topLevel.iconic) {
+	if (new->topLevel.iconic)
+	    new->wm.wm_hints.initial_state = IconicState;
+    }
+    return False;
+}
+
+static String * NewArgv(
+    int count,
+    String *str)  /* do not assume it's terminated by a NULL element */
+{
+    Cardinal nbytes = 0;
+    Cardinal num = 0;
+    String *newarray, *new;
+    String *strarray = str;
+    String sptr;
+
+    if (count <= 0 || !str) return NULL;
+
+    for (num = count; num--; str++) {
+	nbytes += strlen(*str);
+	nbytes++;
+    }
+    num = (count+1) * sizeof(String);
+    new = newarray = (String *) __XtMalloc(num + nbytes);
+    sptr = ((char *) new) + num;
+
+    for (str = strarray; count--; str++) {
+	*new = sptr;
+	strcpy(*new, *str);
+	new++;
+	sptr = strchr(sptr, '\0');
+	sptr++;
+    }
+    *new = NULL;
+    return newarray;
+}
+
+
+/*ARGSUSED*/
+static Boolean ApplicationSetValues(
+    Widget current, Widget request, Widget new,
+    ArgList args,
+    Cardinal *num_args)
+{
+    ApplicationShellWidget nw = (ApplicationShellWidget) new;
+    ApplicationShellWidget cw = (ApplicationShellWidget) current;
+
+    if (cw->application.argc != nw->application.argc ||
+	cw->application.argv != nw->application.argv) {
+
+	if (nw->application.argc > 0)
+	    nw->application.argv = NewArgv(nw->application.argc,
+					   nw->application.argv);
+	if (cw->application.argc > 0)
+	    FreeStringArray(cw->application.argv);
+
+	if (XtIsRealized(new) && !nw->shell.override_redirect) {
+	    if (nw->application.argc >= 0 && nw->application.argv)
+		XSetCommand(XtDisplay(new), XtWindow(new),
+			    nw->application.argv, nw->application.argc);
+	    else
+		XDeleteProperty(XtDisplay(new), XtWindow(new), XA_WM_COMMAND);
+	}
+    }
+    return False;
+}
+
+/*ARGSUSED*/
+static Boolean SessionSetValues(
+    Widget current, Widget request, Widget new,
+    ArgList args,
+    Cardinal *num_args)
+{
+#ifndef XT_NO_SM
+    SessionShellWidget nw = (SessionShellWidget) new;
+    SessionShellWidget cw = (SessionShellWidget) current;
+    unsigned long set_mask = 0UL;
+    unsigned long unset_mask = 0UL;
+    Boolean initialize = False;
+
+    if (cw->session.session_id != nw->session.session_id) {
+	nw->session.session_id = XtNewString(nw->session.session_id);
+	XtFree(cw->session.session_id);
+    }
+
+    if (cw->session.clone_command != nw->session.clone_command) {
+	if (nw->session.clone_command) {
+	    nw->session.clone_command =
+		NewStringArray(nw->session.clone_command);
+	    set_mask |= XtCloneCommandMask;
+	} else unset_mask |= XtCloneCommandMask;
+	FreeStringArray(cw->session.clone_command);
+    }
+
+    if (cw->session.current_dir != nw->session.current_dir) {
+	if (nw->session.current_dir) {
+	    nw->session.current_dir =
+		XtNewString(nw->session.current_dir);
+	    set_mask |= XtCurrentDirectoryMask;
+	} else unset_mask |= XtCurrentDirectoryMask;
+	XtFree((char *) cw->session.current_dir);
+    }
+
+    if (cw->session.discard_command != nw->session.discard_command) {
+	if (nw->session.discard_command) {
+	    nw->session.discard_command =
+		NewStringArray(nw->session.discard_command);
+	    set_mask |=  XtDiscardCommandMask;
+	} else unset_mask |= XtDiscardCommandMask;
+	FreeStringArray(cw->session.discard_command);
+    }
+
+    if (cw->session.environment != nw->session.environment) {
+	if (nw->session.environment) {
+	    nw->session.environment =
+		NewStringArray(nw->session.environment);
+	    set_mask |= XtEnvironmentMask;
+	} else unset_mask |= XtEnvironmentMask;
+	FreeStringArray(cw->session.environment);
+    }
+
+    if (cw->session.program_path != nw->session.program_path) {
+	if (nw->session.program_path) {
+	    nw->session.program_path =
+		XtNewString(nw->session.program_path);
+	    set_mask |= XtProgramMask;
+	} else unset_mask |= XtProgramMask;
+	XtFree((char *) cw->session.program_path);
+    }
+
+    if (cw->session.resign_command != nw->session.resign_command) {
+	if (nw->session.resign_command) {
+	    nw->session.resign_command =
+		NewStringArray(nw->session.resign_command);
+	    set_mask |= XtResignCommandMask;
+	} else set_mask |= XtResignCommandMask;
+	FreeStringArray(cw->session.resign_command);
+    }
+
+    if (cw->session.restart_command != nw->session.restart_command) {
+	if (nw->session.restart_command) {
+	    nw->session.restart_command =
+		NewStringArray(nw->session.restart_command);
+	    set_mask |= XtRestartCommandMask;
+	} else unset_mask |= XtRestartCommandMask;
+	FreeStringArray(cw->session.restart_command);
+    }
+
+    if (cw->session.restart_style != nw->session.restart_style)
+	set_mask |= XtRestartStyleHintMask;
+
+    if (cw->session.shutdown_command != nw->session.shutdown_command) {
+	if (nw->session.shutdown_command) {
+	    nw->session.shutdown_command =
+		NewStringArray(nw->session.shutdown_command);
+	    set_mask |= XtShutdownCommandMask;
+	} else unset_mask |= XtShutdownCommandMask;
+	FreeStringArray(cw->session.shutdown_command);
+    }
+
+    if ((!cw->session.join_session && nw->session.join_session) ||
+	(!cw->session.connection && nw->session.connection)) {
+	JoinSession(nw);
+	initialize = True;
+    }
+
+    if (nw->session.connection && (set_mask || unset_mask || initialize))
+	SetSessionProperties((SessionShellWidget) new, initialize, set_mask, unset_mask);
+
+    if ((cw->session.join_session && !nw->session.join_session) ||
+	(cw->session.connection && !nw->session.connection))
+	StopManagingSession(nw, nw->session.connection);
+
+    if (cw->wm.client_leader != nw->wm.client_leader ||
+	cw->session.session_id != nw->session.session_id) {
+	Widget leader;
+	if (cw->session.session_id) {
+	    leader = GetClientLeader(current);
+	    if (XtWindow(leader))
+		XDeleteProperty(XtDisplay(leader), XtWindow(leader),
+				XInternAtom(XtDisplay(leader), "SM_CLIENT_ID",
+					    False));
+	}
+	if (nw->session.session_id) {
+	    leader = GetClientLeader(new);
+	    if (XtWindow(leader))
+		XChangeProperty(XtDisplay(leader), XtWindow(leader),
+				XInternAtom(XtDisplay(leader), "SM_CLIENT_ID",
+					    False),
+				XA_STRING, 8, PropModeReplace,
+				(unsigned char *) nw->session.session_id,
+				strlen(nw->session.session_id));
+	}
+    }
+#endif /* !XT_NO_SM */
+    return False;
+}
+
+void _XtShellGetCoordinates(
+    Widget widget,
+    Position* x,
+    Position* y)
+{
+    ShellWidget w = (ShellWidget)widget;
+    if (XtIsRealized(widget) &&
+	!(w->shell.client_specified & _XtShellPositionValid)) {
+	int tmpx, tmpy;
+	Window tmpchild;
+	(void) XTranslateCoordinates(XtDisplay(w), XtWindow(w),
+				     RootWindowOfScreen(XtScreen(w)),
+				     (int) -w->core.border_width,
+				     (int) -w->core.border_width,
+				     &tmpx, &tmpy, &tmpchild);
+	w->core.x = tmpx;
+	w->core.y = tmpy;
+	w->shell.client_specified |= _XtShellPositionValid;
+    }
+    *x = w->core.x;
+    *y = w->core.y;
+}
+
+static void GetValuesHook(
+    Widget	widget,
+    ArgList	args,
+    Cardinal*	num_args)
+{
+    ShellWidget w = (ShellWidget) widget;
+
+    /* x and y resource values may be invalid after a shell resize */
+    if (XtIsRealized(widget) &&
+	!(w->shell.client_specified & _XtShellPositionValid)) {
+	Cardinal	n;
+	Position	x, y;
+
+	for (n = *num_args; n; n--, args++) {
+	    if (strcmp(XtNx, args->name) == 0) {
+		_XtShellGetCoordinates(widget, &x, &y);
+		_XtCopyToArg((char *) &x, &args->value, sizeof(Position));
+	    } else if (strcmp(XtNy, args->name) == 0) {
+		_XtShellGetCoordinates(widget, &x, &y);
+		_XtCopyToArg((char *) &y, &args->value, sizeof(Position));
+	    }
+	}
+    }
+}
+
+static void ApplicationShellInsertChild(
+    Widget widget)
+{
+    if (! XtIsWidget(widget) && XtIsRectObj(widget)) {
+	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+	       "invalidClass", "applicationShellInsertChild", XtCXtToolkitError,
+	       "ApplicationShell does not accept RectObj children; ignored",
+	       (String*)NULL, (Cardinal*)NULL);
+    }
+    else {
+	XtWidgetProc insert_child;
+
+	LOCK_PROCESS;
+	insert_child =
+	    ((CompositeWidgetClass)applicationShellClassRec.core_class.
+	   superclass)->composite_class.insert_child;
+	UNLOCK_PROCESS;
+	(*insert_child) (widget);
+    }
+}
+
+/**************************************************************************
+
+  Session Protocol Participation
+
+ *************************************************************************/
+
+#define XtSessionCheckpoint	0
+#define XtSessionInteract	1
+
+static void CallSaveCallbacks(SessionShellWidget );
+static String *EditCommand(String, String *, String *);
+static Boolean ExamineToken(XtPointer);
+static void GetIceEvent(XtPointer, int *, XtInputId *);
+static XtCheckpointToken GetToken(Widget, int);
+#ifndef XT_NO_SM
+static void XtCallCancelCallbacks(SmcConn, SmPointer);
+static void XtCallDieCallbacks(SmcConn, SmPointer);
+static void XtCallSaveCallbacks(SmcConn, SmPointer, int, Bool, int, Bool);
+static void XtCallSaveCompleteCallbacks(SmcConn, SmPointer);
+#endif /* !XT_NO_SM */
+
+#ifndef XT_NO_SM
+static void StopManagingSession(
+    SessionShellWidget w,
+    SmcConn connection) /* connection to close, if any */
+{
+    if (connection)
+	SmcCloseConnection(connection, 0, NULL);
+
+    if (w->session.input_id) {
+	XtRemoveInput(w->session.input_id);
+	w->session.input_id = 0;
+    }
+    w->session.connection = NULL;
+}
+
+#define XT_MSG_LENGTH 256
+static void JoinSession(
+    SessionShellWidget w)
+{
+    IceConn ice_conn;
+    SmcCallbacks smcb;
+    char * sm_client_id;
+    unsigned long mask;
+    static char context;  /* used to guarantee the connection isn't shared */
+
+    smcb.save_yourself.callback = XtCallSaveCallbacks;
+    smcb.die.callback = XtCallDieCallbacks;
+    smcb.save_complete.callback = XtCallSaveCompleteCallbacks;
+    smcb.shutdown_cancelled.callback = XtCallCancelCallbacks;
+    smcb.save_yourself.client_data = smcb.die.client_data =
+	smcb.save_complete.client_data =
+	    smcb.shutdown_cancelled.client_data = (SmPointer) w;
+    mask = SmcSaveYourselfProcMask | SmcDieProcMask |
+	SmcSaveCompleteProcMask | SmcShutdownCancelledProcMask;
+
+    if (w->session.connection) {
+	SmcModifyCallbacks(w->session.connection, mask, &smcb);
+	sm_client_id = SmcClientID(w->session.connection);
+    } else if (getenv("SESSION_MANAGER")) {
+	char error_msg[XT_MSG_LENGTH];
+	error_msg[0] = '\0';
+	w->session.connection =
+	    SmcOpenConnection(NULL, &context, SmProtoMajor, SmProtoMinor,
+			      mask, &smcb, w->session.session_id,
+			      &sm_client_id, XT_MSG_LENGTH, error_msg);
+	if (error_msg[0]) {
+	    String params[1];
+	    Cardinal num_params = 1;
+	    params[0] = error_msg;
+	    XtAppWarningMsg(XtWidgetToApplicationContext((Widget) w),
+			    "sessionManagement", "SmcOpenConnection",
+			    XtCXtToolkitError,
+			    "Tried to connect to session manager, %s",
+			    params, &num_params);
+	}
+    }
+
+    if (w->session.connection) {
+	if (w->session.session_id == NULL
+	    || (strcmp(w->session.session_id, sm_client_id) != 0)) {
+	    XtFree(w->session.session_id);
+	    w->session.session_id = XtNewString(sm_client_id);
+	}
+	free(sm_client_id);
+	ice_conn = SmcGetIceConnection(w->session.connection);
+	w->session.input_id =
+	    XtAppAddInput(XtWidgetToApplicationContext((Widget)w),
+			  IceConnectionNumber(ice_conn),
+			  (XtPointer) XtInputReadMask,
+			  GetIceEvent, (XtPointer) w);
+
+	w->session.restart_command =
+	    EditCommand(w->session.session_id, w->session.restart_command,
+			w->application.argv);
+
+	if (! w->session.clone_command) w->session.clone_command =
+	    EditCommand(NULL, NULL, w->session.restart_command);
+
+	if (! w->session.program_path)
+	    w->session.program_path = w->session.restart_command
+		? XtNewString(w->session.restart_command[0]) : NULL;
+    }
+}
+#undef XT_MSG_LENGTH
+
+#endif /* !XT_NO_SM */
+
+static String * NewStringArray(String *str)
+{
+    Cardinal nbytes = 0;
+    Cardinal num = 0;
+    String *newarray, *new;
+    String *strarray = str;
+    String sptr;
+
+    if (!str) return NULL;
+
+    for (num = 0; *str; num++, str++) {
+	nbytes += strlen(*str);
+	nbytes++;
+    }
+    num = (num + 1) * sizeof(String);
+    new = newarray = (String *) __XtMalloc(num + nbytes);
+    sptr = ((char *) new) + num;
+
+    for (str = strarray; *str; str++) {
+	*new = sptr;
+	strcpy(*new, *str);
+	new++;
+	sptr = strchr(sptr, '\0');
+	sptr++;
+    }
+    *new = NULL;
+    return newarray;
+}
+
+static void FreeStringArray(String *str)
+{
+    if (str)
+	XtFree((char *) str);
+}
+
+
+#ifndef XT_NO_SM
+static SmProp * CardPack(
+    char *name,
+    XtPointer closure)
+{
+    unsigned char *prop = (unsigned char *) closure;
+    SmProp *p;
+
+    p = (SmProp *) __XtMalloc(sizeof(SmProp) + sizeof(SmPropValue));
+    p->vals = (SmPropValue *) (((char *) p) + sizeof(SmProp));
+    p->num_vals = 1;
+    p->type = SmCARD8;
+    p->name = name;
+    p->vals->length = 1;
+    p->vals->value = (SmPointer) prop;
+    return p;
+}
+
+static SmProp * ArrayPack(char *name, XtPointer closure)
+{
+    String prop = *(String *) closure;
+    SmProp *p;
+
+    p = (SmProp *) __XtMalloc(sizeof(SmProp) + sizeof(SmPropValue));
+    p->vals = (SmPropValue *) (((char *) p) + sizeof(SmProp));
+    p->num_vals = 1;
+    p->type = SmARRAY8;
+    p->name = name;
+    p->vals->length = strlen(prop) + 1;
+    p->vals->value = prop;
+    return p;
+}
+
+static SmProp * ListPack(
+    char *name,
+    XtPointer closure)
+{
+    String *prop = *(String **) closure;
+    SmProp *p;
+    String *ptr;
+    SmPropValue *vals;
+    int n = 0;
+
+    for (ptr = prop; *ptr; ptr++)
+	n++;
+    p = (SmProp*) __XtMalloc(sizeof(SmProp) + (Cardinal)(n*sizeof(SmPropValue)));
+    p->vals = (SmPropValue *) (((char *) p) + sizeof(SmProp));
+    p->num_vals = n;
+    p->type = SmLISTofARRAY8;
+    p->name = name;
+    for (ptr = prop, vals = p->vals; *ptr; ptr++, vals++) {
+	vals->length = strlen(*ptr) + 1;
+	vals->value = *ptr;
+    }
+    return p;
+}
+
+static void FreePacks(
+    SmProp **props,
+    int num_props)
+{
+    while (--num_props >= 0)
+	XtFree((char *) props[num_props]);
+}
+
+typedef SmProp* (*PackProc)(char *, XtPointer);
+
+typedef struct PropertyRec {
+    char *	name;
+    int		offset;
+    PackProc	proc;
+} PropertyRec, *PropertyTable;
+
+#define Offset(x) (XtOffsetOf(SessionShellRec, x))
+static PropertyRec propertyTable[] = {
+  {SmCloneCommand,     Offset(session.clone_command),    ListPack},
+  {SmCurrentDirectory, Offset(session.current_dir),      ArrayPack},
+  {SmDiscardCommand,   Offset(session.discard_command),  ListPack},
+  {SmEnvironment,      Offset(session.environment),      ListPack},
+  {SmProgram,          Offset(session.program_path),     ArrayPack},
+  {SmResignCommand,    Offset(session.resign_command),   ListPack},
+  {SmRestartCommand,   Offset(session.restart_command),  ListPack},
+  {SmRestartStyleHint, Offset(session.restart_style),    CardPack},
+  {SmShutdownCommand,  Offset(session.shutdown_command), ListPack}
+};
+#undef Offset
+
+#define XT_NUM_SM_PROPS 11
+
+static void SetSessionProperties(
+    SessionShellWidget w,
+    Boolean initialize,
+    unsigned long set_mask,
+    unsigned long unset_mask)
+{
+    PropertyTable p = propertyTable;
+    int n;
+    int num_props = 0;
+    XtPointer *addr;
+    unsigned long mask;
+    SmProp *props[XT_NUM_SM_PROPS];
+    char *pnames[XT_NUM_SM_PROPS];
+
+    if (w->session.connection == NULL)
+	return;
+
+    if (initialize) {
+	char nam_buf[32];
+	char pid[12];
+	String user_name;
+	String pidp = pid;
+
+	/* set all non-NULL session properties, the UserID and the ProcessID */
+	for (n = XtNumber(propertyTable); n; n--, p++) {
+	    addr = (XtPointer *) ((char *) w + p->offset);
+	    if (p->proc == CardPack) {
+		if (*(unsigned char *)addr)
+		    props[num_props++] =(*(p->proc))(p->name, (XtPointer)addr);
+	    }
+	    else if (* addr)
+		props[num_props++] = (*(p->proc))(p->name, (XtPointer)addr);
+
+	}
+	user_name = _XtGetUserName(nam_buf, sizeof nam_buf);
+	if (user_name)
+	    props[num_props++] = ArrayPack(SmUserID, &user_name);
+	snprintf(pid, sizeof(pid), "%ld", (long)getpid());
+	props[num_props++] = ArrayPack(SmProcessID, &pidp);
+
+	if (num_props) {
+	    SmcSetProperties(w->session.connection, num_props, props);
+	    FreePacks(props, num_props);
+	}
+	return;
+    }
+
+    if (set_mask) {
+	mask = 1L;
+	for (n = XtNumber(propertyTable); n; n--, p++, mask <<= 1)
+	    if (mask & set_mask) {
+		addr = (XtPointer *) ((char *) w + p->offset);
+		props[num_props++] = (*(p->proc))(p->name, (XtPointer)addr);
+	    }
+	SmcSetProperties(w->session.connection, num_props, props);
+	FreePacks(props, num_props);
+    }
+
+    if (unset_mask) {
+	mask = 1L;
+	num_props = 0;
+	for (n = XtNumber(propertyTable); n; n--, p++, mask <<= 1)
+	    if (mask & unset_mask)
+		pnames[num_props++] = p->name;
+	SmcDeleteProperties(w->session.connection, num_props, pnames);
+    }
+}
+
+/*ARGSUSED*/
+static void GetIceEvent(
+    XtPointer	client_data,
+    int *	source,
+    XtInputId *	id)
+{
+    SessionShellWidget w = (SessionShellWidget) client_data;
+    IceProcessMessagesStatus status;
+
+    status = IceProcessMessages(SmcGetIceConnection(w->session.connection),
+				NULL, NULL);
+
+    if (status == IceProcessMessagesIOError) {
+	StopManagingSession(w, w->session.connection);
+	XtCallCallbackList((Widget)w, w->session.error_callbacks,
+			   (XtPointer) NULL);
+    }
+}
+
+static void CleanUpSave(
+    SessionShellWidget w)
+{
+    XtSaveYourself next = w->session.save->next;
+    XtFree((char *)w->session.save);
+    w->session.save = next;
+    if (w->session.save)
+	CallSaveCallbacks(w);
+}
+
+static void CallSaveCallbacks(
+    SessionShellWidget w)
+{
+    XtCheckpointToken token;
+
+    if (XtHasCallbacks((Widget) w, XtNsaveCallback) != XtCallbackHasSome) {
+	/* if the application makes no attempt to save state, report failure */
+	SmcSaveYourselfDone(w->session.connection, False);
+	CleanUpSave(w);
+    } else {
+	w->session.checkpoint_state = XtSaveActive;
+	token = GetToken((Widget) w, XtSessionCheckpoint);
+	_XtCallConditionalCallbackList((Widget)w, w->session.save_callbacks,
+				       (XtPointer)token, ExamineToken);
+	XtSessionReturnToken(token);
+    }
+}
+
+/*ARGSUSED*/
+static void XtCallSaveCallbacks(
+    SmcConn	connection,	/* unused */
+    SmPointer	client_data,
+    int		save_type,
+    Bool	shutdown,
+    int		interact,
+    Bool	fast)
+{
+    SessionShellWidget w = (SessionShellWidget) client_data;
+    XtSaveYourself save;
+    XtSaveYourself prev;
+
+    save = XtNew(XtSaveYourselfRec);
+    save->next = NULL;
+    save->save_type = save_type;
+    save->interact_style = interact;
+    save->shutdown = shutdown;
+    save->fast = fast;
+    save->cancel_shutdown = False;
+    save->phase = 1;
+    save->interact_dialog_type = SmDialogNormal;
+    save->request_cancel = save->request_next_phase = False;
+    save->save_success = True;
+    save->save_tokens = save->interact_tokens = 0;
+
+    prev = (XtSaveYourself) &w->session.save;
+    while (prev->next)
+	prev = prev->next;
+    prev->next = save;
+
+    if (w->session.checkpoint_state == XtSaveInactive)
+	CallSaveCallbacks(w);
+}
+
+static void XtInteractPermission(
+    SmcConn	connection,
+    SmPointer	data)
+{
+    Widget w = (Widget) data;
+    SessionShellWidget sw = (SessionShellWidget) data;
+    XtCheckpointToken token;
+    XtCallbackProc callback;
+    XtPointer client_data;
+
+
+    _XtPeekCallback(w, sw->session.interact_callbacks, &callback,
+		    &client_data);
+    if (callback) {
+	sw->session.checkpoint_state = XtInteractActive;
+	token = GetToken(w, XtSessionInteract);
+    	XtRemoveCallback(w, XtNinteractCallback, callback, client_data);
+	(*callback)(w, client_data, (XtPointer) token);
+    } else if (! sw->session.save->cancel_shutdown) {
+	SmcInteractDone(connection, False);
+    }
+}
+
+/*ARGSUSED*/
+static void XtCallSaveCompleteCallbacks(
+    SmcConn	connection,
+    SmPointer	client_data)
+{
+    SessionShellWidget w =  (SessionShellWidget) client_data;
+
+    XtCallCallbackList((Widget)w, w->session.save_complete_callbacks,
+		       (XtPointer) NULL);
+}
+
+/*ARGSUSED*/
+static void XtCallNextPhaseCallbacks(
+    SmcConn	connection,	/* unused */
+    SmPointer	client_data)
+{
+    SessionShellWidget w =  (SessionShellWidget) client_data;
+    w->session.save->phase = 2;
+    CallSaveCallbacks(w);
+}
+
+/*ARGSUSED*/
+static void XtCallDieCallbacks(
+    SmcConn	connection,	/* unused */
+    SmPointer	client_data)
+{
+    SessionShellWidget w =  (SessionShellWidget) client_data;
+
+    StopManagingSession(w, w->session.connection);
+    XtCallCallbackList((Widget)w, w->session.die_callbacks,
+		       (XtPointer) NULL);
+}
+
+/*ARGSUSED*/
+static void XtCallCancelCallbacks(
+    SmcConn	connection,	/* unused */
+    SmPointer	client_data)
+{
+    SessionShellWidget w = (SessionShellWidget) client_data;
+    Boolean call_interacts = False;
+
+    if (w->session.checkpoint_state != XtSaveInactive) {
+	w->session.save->cancel_shutdown = True;
+	call_interacts = (w->session.save->interact_style !=
+			  SmInteractStyleNone);
+    }
+
+    XtCallCallbackList((Widget)w, w->session.cancel_callbacks,
+		       (XtPointer) NULL);
+
+    if (call_interacts) {
+	w->session.save->interact_style = SmInteractStyleNone;
+	XtInteractPermission(w->session.connection, (SmPointer) w);
+    }
+
+    if (w->session.checkpoint_state != XtSaveInactive) {
+	if (w->session.save->save_tokens == 0 &&
+	    w->session.checkpoint_state == XtSaveActive) {
+	    w->session.checkpoint_state = XtSaveInactive;
+	    SmcSaveYourselfDone(w->session.connection,
+				w->session.save->save_success);
+	    CleanUpSave(w);
+	}
+    }
+}
+
+static XtCheckpointToken GetToken(
+    Widget	widget,
+    int		type)
+{
+    SessionShellWidget w = (SessionShellWidget) widget;
+    XtCheckpointToken token;
+    XtSaveYourself save = w->session.save;
+
+    if (type == XtSessionCheckpoint)
+	w->session.save->save_tokens++;
+    else if (type == XtSessionInteract)
+	w->session.save->interact_tokens++;
+    else
+	return (XtCheckpointToken) NULL;
+
+    token = (XtCheckpointToken) __XtMalloc(sizeof(XtCheckpointTokenRec));
+    token->save_type = save->save_type;
+    token->interact_style = save->interact_style;
+    token->shutdown = save->shutdown;
+    token->fast = save->fast;
+    token->cancel_shutdown = save->cancel_shutdown;
+    token->phase = save->phase;
+    token->interact_dialog_type = save->interact_dialog_type;
+    token->request_cancel = save->request_cancel;
+    token->request_next_phase = save->request_next_phase;
+    token->save_success = save->save_success;
+    token->type = type;
+    token->widget = widget;
+    return token;
+}
+
+XtCheckpointToken XtSessionGetToken(Widget widget)
+{
+    SessionShellWidget w = (SessionShellWidget) widget;
+    XtCheckpointToken token = NULL;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (w->session.checkpoint_state)
+	token = GetToken(widget, XtSessionCheckpoint);
+
+    UNLOCK_APP(app);
+    return token;
+}
+
+static Boolean ExamineToken(
+    XtPointer	call_data)
+{
+    XtCheckpointToken token = (XtCheckpointToken) call_data;
+    SessionShellWidget w = (SessionShellWidget) token->widget;
+
+    if (token->interact_dialog_type == SmDialogError)
+	w->session.save->interact_dialog_type = SmDialogError;
+    if (token->request_next_phase)
+	w->session.save->request_next_phase = True;
+    if (! token->save_success)
+	w->session.save->save_success = False;
+
+    token->interact_dialog_type = w->session.save->interact_dialog_type;
+    token->request_next_phase = w->session.save->request_next_phase;
+    token->save_success = w->session.save->save_success;
+    token->cancel_shutdown = w->session.save->cancel_shutdown;
+
+    return True;
+}
+
+void XtSessionReturnToken(XtCheckpointToken token)
+{
+    SessionShellWidget w = (SessionShellWidget) token->widget;
+    Boolean has_some;
+    Boolean phase_done;
+    XtCallbackProc callback;
+    XtPointer client_data;
+    WIDGET_TO_APPCON((Widget)w);
+
+    LOCK_APP(app);
+
+    has_some = (XtHasCallbacks(token->widget, XtNinteractCallback)
+		== XtCallbackHasSome);
+
+    (void) ExamineToken((XtPointer) token);
+
+    if (token->type == XtSessionCheckpoint) {
+	w->session.save->save_tokens--;
+	if (has_some && w->session.checkpoint_state == XtSaveActive) {
+	    w->session.checkpoint_state = XtInteractPending;
+	    SmcInteractRequest(w->session.connection,
+			       w->session.save->interact_dialog_type,
+			       XtInteractPermission, (SmPointer) w);
+	}
+	XtFree((char*) token);
+    } else {
+	if (token->request_cancel)
+	    w->session.save->request_cancel = True;
+	token->request_cancel = w->session.save->request_cancel;
+	if (has_some) {
+	    _XtPeekCallback((Widget)w, w->session.interact_callbacks,
+			    &callback, &client_data);
+	    XtRemoveCallback((Widget)w, XtNinteractCallback,
+			     callback, client_data);
+	    (*callback)((Widget)w, client_data, (XtPointer)token);
+	} else {
+	    w->session.save->interact_tokens--;
+	    if (w->session.save->interact_tokens == 0) {
+		w->session.checkpoint_state = XtSaveActive;
+		if (! w->session.save->cancel_shutdown)
+		    SmcInteractDone(w->session.connection,
+				    w->session.save->request_cancel);
+	    }
+	    XtFree((char *) token);
+	}
+    }
+
+    phase_done = (w->session.save->save_tokens == 0 &&
+		  w->session.checkpoint_state == XtSaveActive);
+
+    if (phase_done) {
+	if (w->session.save->request_next_phase &&
+	    w->session.save->phase == 1) {
+	    SmcRequestSaveYourselfPhase2(w->session.connection,
+					 XtCallNextPhaseCallbacks,
+					 (SmPointer)w);
+	} else {
+	    w->session.checkpoint_state = XtSaveInactive;
+	    SmcSaveYourselfDone(w->session.connection,
+				w->session.save->save_success);
+	    CleanUpSave(w);
+	}
+    }
+
+    UNLOCK_APP(app);
+}
+
+static Boolean IsInArray(
+    String str,
+    String *sarray)
+{
+    if (str == NULL || sarray == NULL)
+	return False;
+    for (; *sarray; sarray++) {
+	if (strcmp(*sarray, str) == 0)
+	    return True;
+    }
+    return False;
+}
+
+static String* EditCommand(
+    String str,		/* if not NULL, the sm_client_id */
+    String *src1,	/* first choice */
+    String *src2)	/* alternate */
+{
+    Boolean have;
+    Boolean want;
+    int count;
+    String *sarray;
+    String *s;
+    String *new;
+
+    want = (str != NULL);
+    sarray = (src1 ? src1 : src2);
+    if (! sarray) return NULL;
+    have = IsInArray("-xtsessionID", sarray);
+    if ((want && have) || (!want && !have)) {
+	if (sarray == src1)
+	    return src1;
+	else
+	    return NewStringArray(sarray);
+    }
+
+    count = 0;
+    for (s = sarray; *s; s++)
+	count++;
+
+    if (want) {
+	s = new = (String *) __XtMalloc((Cardinal)(count+3) * sizeof(String*));
+	*s = *sarray;		s++; sarray++;
+	*s = "-xtsessionID";	s++;
+	*s = str;		s++;
+	for (; --count > 0; s++, sarray++)
+	    *s = *sarray;
+	*s = (String) NULL;
+    } else {
+	if (count < 3)
+	    return NewStringArray(sarray);
+	s = new = (String *) __XtMalloc((Cardinal)(count-1) * sizeof(String*));
+	for (; --count >= 0; sarray++) {
+	    if (strcmp(*sarray, "-xtsessionID") == 0) {
+		sarray++;
+		count--;
+	    } else {
+		*s = *sarray;
+		s++;
+	    }
+	}
+	*s = (String) NULL;
+    }
+    s = new;
+    new = NewStringArray(new);
+    XtFree((char *)s);
+    return new;
+}
+
+#endif /* !XT_NO_SM */
diff --git a/libXt/src/TMaction.c b/libXt/src/TMaction.c
index e37ca7db1..bbf1e340a 100644
--- a/libXt/src/TMaction.c
+++ b/libXt/src/TMaction.c
@@ -1,1067 +1,1067 @@
-/*LINTLIBRARY*/

-

-/***********************************************************

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

-

-*/

-

-/* TMaction.c -- maintains the state table of actions for the translation 

- *              manager.

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-

-#if defined(__STDC__) && !defined(NORCONST)

-#define RConst const

-#else

-#define RConst /**/

-#endif

-

-static String XtNtranslationError = "translationError";

-

-typedef struct _CompiledAction{

-    XrmQuark		signature;

-    XtActionProc	proc;

-}CompiledAction, *CompiledActionTable;

-

-

-#define GetClassActions(wc) \

-  ((wc->core_class.actions) \

-? (((TMClassCache)wc->core_class.actions)->actions) \

-: NULL)

-

-static CompiledActionTable CompileActionTable(

-    register RConst struct _XtActionsRec *actions,

-    register Cardinal count,	/* may be 0 */

-    Boolean stat,	/* if False, copy before compiling in place */

-    Boolean perm)	/* if False, use XrmStringToQuark */

-{

-    register CompiledActionTable cActions;

-    register int i;

-    CompiledAction hold;

-    CompiledActionTable cTableHold;

-    XrmQuark (*func)(_Xconst char*);

-

-    if (!count)

-	return (CompiledActionTable) NULL;

-    func = (perm ? XrmPermStringToQuark : XrmStringToQuark);

-

-    if (! stat) {

-	cTableHold = cActions = (CompiledActionTable)

-	    __XtMalloc(count * sizeof(CompiledAction));

-

-	for (i=count; --i >= 0; cActions++, actions++) {

-	    cActions->proc = actions->proc;

-	    cActions->signature = (*func)(actions->string);

-	}

-    } else {

-	cTableHold = (CompiledActionTable) actions;

-

-	for (i=count; --i >= 0; actions++)

-	    ((CompiledActionTable) actions)->signature =

-		(*func)(actions->string);

-    }

-    cActions = cTableHold;

-

-    /* Insertion sort.  Whatever sort is used, it must be stable. */

-    for (i=1; (Cardinal) i <= count - 1; i++) {

-	register Cardinal j;

-	hold = cActions[i];

-	j = i;

-	while (j && cActions[j-1].signature > hold.signature) {

-	    cActions[j] = cActions[j-1];

-	    j--;

-	}

-	cActions[j] = hold;

-    }

-

-    return cActions;

-}

-

-

-typedef struct _ActionListRec *ActionList;

-typedef struct _ActionListRec {

-    ActionList		next;

-    CompiledActionTable table;

-    TMShortCard		count;

-} ActionListRec;

-

-static void ReportUnboundActions(

-    XtTranslations	xlations,

-    TMBindData		bindData)

-{

-    TMSimpleStateTree	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];

-    Cardinal num_unbound = 0;

-    Cardinal num_params = 1;

-    char* message;

-    char messagebuf[1000];

-    String params[1];

-    register Cardinal num_chars = 0;

-    register Cardinal i, j;

-    XtActionProc *procs;

-

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

-	if (bindData->simple.isComplex)

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

-	else

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

-

-	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];

-	for (j=0; j < stateTree->numQuarks; j++) {

-	    if (procs[j] == NULL) {

-		String s = XrmQuarkToString(stateTree->quarkTbl[j]);

-		if (num_unbound != 0)

-		    num_chars += 2;

-		num_chars += strlen(s);

-		num_unbound++;

-	    }

-	}

-    }

-    if (num_unbound == 0)

-	return;

-    message = XtStackAlloc (num_chars + 1, messagebuf);

-    if (message != NULL) {

-	*message = '\0';

-	num_unbound = 0;

-	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];

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

-	    if (bindData->simple.isComplex)

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

-	    else

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

-

-	    stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];

-	    for (j=0; j < stateTree->numQuarks; j++) {

-		if (procs[j] == NULL) {

-		    String s = XrmQuarkToString(stateTree->quarkTbl[j]);

-		    if (num_unbound != 0)

-			(void) strcat(message, ", ");

-		    (void) strcat(message, s);

-		    num_unbound++;

-		}

-	    }

-	}

-	message[num_chars] = '\0';

-	params[0] = message;

-	XtWarningMsg(XtNtranslationError,"unboundActions",XtCXtToolkitError,

-		     "Actions not found: %s",

-		     params, &num_params);

-	XtStackFree (message, messagebuf);

-    }

-}

-

-

-static CompiledAction *SearchActionTable(

-    XrmQuark		signature,

-    CompiledActionTable	actionTable,

-    Cardinal		numActions)

-{

-    register int i, left, right;

-

-    left = 0;

-    right = numActions - 1;

-    while (left <= right) {

-	i = (left + right) >> 1;

-	if (signature < actionTable[i].signature)

-	    right = i - 1;

-	else if (signature > actionTable[i].signature)

-	    left = i + 1;

-	else {

-	    while (i && actionTable[i - 1].signature == signature)

-		i--;

-	    return &actionTable[i];

-	}

-    }

-    return (CompiledAction *) NULL;

-}

-

-static int BindActions(

-    TMSimpleStateTree	stateTree,

-    XtActionProc	*procs,

-    CompiledActionTable compiledActionTable,

-    TMShortCard		numActions,

-    Cardinal 		*ndxP)

-{

-    register int unbound = stateTree->numQuarks - *ndxP;

-    CompiledAction* action;

-    register Cardinal ndx;

-    register Boolean savedNdx = False;

-

-    for (ndx = *ndxP; ndx < stateTree->numQuarks; ndx++) {

-	if (procs[ndx] == NULL) {

-	    /* attempt to bind it */

-	    XrmQuark q = stateTree->quarkTbl[ndx];

-

-	    action = SearchActionTable(q, compiledActionTable, numActions);

-	    if (action) {

-		procs[ndx] = action->proc;

-		unbound--;

-	    } else if (!savedNdx) {

-		*ndxP= ndx;

-		savedNdx = True;

-	    }

-	} else {

-	    /* already bound, leave it alone */

-	    unbound--;

-	}

-    }

-    return unbound;

-}

-

-typedef struct _TMBindCacheStatusRec{

-    unsigned int	boundInClass:1;

-    unsigned int	boundInHierarchy:1;

-    unsigned int	boundInContext:1;

-    unsigned int	notFullyBound:1;

-    unsigned int	refCount:28;

-}TMBindCacheStatusRec, *TMBindCacheStatus;

-

-typedef struct _TMBindCacheRec{

-    struct _TMBindCacheRec *next;

-    TMBindCacheStatusRec status;

-    TMStateTree		stateTree;

-#ifdef TRACE_TM

-    WidgetClass		widgetClass;

-#endif /* TRACE_TM */

-    XtActionProc	procs[1];	/* variable length */

-}TMBindCacheRec, *TMBindCache;

-

-typedef struct _TMClassCacheRec {

-    CompiledActionTable	actions;

-    TMBindCacheRec	*bindCache;

-}TMClassCacheRec, *TMClassCache;

-

-#define IsPureClassBind(bc) \

-  (bc->status.boundInClass && \

-   !(bc->status.boundInHierarchy || \

-     bc->status.boundInContext || \

-     bc->status.notFullyBound))

-

-#define GetClassCache(w) \

-  ((TMClassCache)w->core.widget_class->core_class.actions)

-

-

-static int  BindProcs(

-    Widget 		widget,

-    TMSimpleStateTree	stateTree,

-    XtActionProc	*procs,

-    TMBindCacheStatus 	bindStatus)

-{

-    register WidgetClass    	class;

-    register ActionList     	actionList;

-    int 			unbound = -1, newUnbound = -1;

-    Cardinal 			ndx = 0;

-    Widget			w = widget;

-

-    LOCK_PROCESS;

-    do {

-        class = w->core.widget_class;

-        do {

-            if (class->core_class.actions != NULL)

-	      unbound =

-		BindActions(stateTree,

-			    procs,

-			    GetClassActions(class),

-			    class->core_class.num_actions,

-			    &ndx);

-	    class = class->core_class.superclass;

-        } while (unbound != 0 && class != NULL);

-	if (unbound < (int)stateTree->numQuarks)

-	  bindStatus->boundInClass = True;

-	else

-	  bindStatus->boundInClass = False;

-	if (newUnbound == -1)

-	  newUnbound = unbound;

-	w = XtParent(w);

-    } while (unbound != 0 && w != NULL);

-

-    if (newUnbound > unbound)

-      bindStatus->boundInHierarchy = True;

-    else

-      bindStatus->boundInHierarchy = False;

-

-    if (unbound) {

-	XtAppContext app = XtWidgetToApplicationContext(widget);

-	newUnbound = unbound;

-	for (actionList = app->action_table;

-	     unbound != 0 && actionList != NULL;

-	     actionList = actionList->next) {

-	    unbound = BindActions(stateTree,

-				  procs,

-				  actionList->table,

-				  actionList->count,

-				  &ndx);

-	}

-	if (newUnbound > unbound)

-	  bindStatus->boundInContext = True;

-	else

-	  bindStatus->boundInContext = False;

-

-    } else {

-	bindStatus->boundInContext = False;

-    }

-    UNLOCK_PROCESS;

-    return unbound;

-}

-

-static XtActionProc  *TryBindCache(

-    Widget	widget,

-    TMStateTree	stateTree)

-{

-    TMClassCache	classCache;

-

-    LOCK_PROCESS;

-    classCache = GetClassCache(widget);

-

-    if (classCache == NULL)

-      {

-	  WidgetClass	wc = XtClass(widget);

-

-	  wc->core_class.actions = (XtActionList)

-	    _XtInitializeActionData(NULL, 0, True);

-      }

-    else

-      {

-	  TMBindCache bindCache =

-	    (TMBindCache)(classCache->bindCache);

-	  for (; bindCache; bindCache = bindCache->next)

-	    {

-		if (IsPureClassBind(bindCache) &&

-		    (stateTree == bindCache->stateTree))

-		  {

-		      bindCache->status.refCount++;

-		      UNLOCK_PROCESS;

-		      return &bindCache->procs[0];

-		  }

-	    }

-      }

-    UNLOCK_PROCESS;

-    return NULL;

-}

-

-

-

-/*

- * The class record actions field will point to the bind cache header

- * after this call is made out of coreClassPartInit.

- */

-XtPointer _XtInitializeActionData(

-    register struct _XtActionsRec	*actions,

-    register Cardinal			count,

-    _XtBoolean				inPlace)

-{

-    TMClassCache	classCache;

-

-    classCache = XtNew(TMClassCacheRec);

-    classCache->actions = CompileActionTable(actions, count, inPlace, True);

-    classCache->bindCache = NULL;

-    return (XtPointer)classCache;

-}

-

-

-#define TM_BIND_CACHE_REALLOC	2

-

-static XtActionProc *EnterBindCache(

-    Widget		w,

-    TMSimpleStateTree	stateTree,

-    XtActionProc 	*procs,

-    TMBindCacheStatus 	bindStatus)

-{

-    TMClassCache	classCache;

-    TMBindCache*	bindCachePtr;

-    TMShortCard		procsSize;

-    TMBindCache		bindCache;

-

-    LOCK_PROCESS;

-    classCache = GetClassCache(w);

-    bindCachePtr = &classCache->bindCache;

-    procsSize = stateTree->numQuarks * sizeof(XtActionProc);

-

-    for (bindCache = *bindCachePtr;

-	 (*bindCachePtr);

-	bindCachePtr = &(*bindCachePtr)->next, bindCache = *bindCachePtr)

-      {

-	  TMBindCacheStatus	cacheStatus = &bindCache->status;

-

-	  if ((bindStatus->boundInClass == cacheStatus->boundInClass) &&

-	      (bindStatus->boundInHierarchy == cacheStatus->boundInHierarchy) &&

-	      (bindStatus->boundInContext == cacheStatus->boundInContext) &&

-	      (bindCache->stateTree == (TMStateTree)stateTree) &&

-	      !XtMemcmp(&bindCache->procs[0], procs, procsSize))

-	    {

-		bindCache->status.refCount++;

-		break;

-	    }

-      }

-    if (*bindCachePtr == NULL)

-      {

-	  *bindCachePtr =

-	    bindCache = (TMBindCache)

-	      __XtMalloc(sizeof(TMBindCacheRec) +

-		       (procsSize - sizeof(XtActionProc)));

-	  bindCache->next = NULL;

-	  bindCache->status = *bindStatus;

-	  bindCache->status.refCount = 1;

-	  bindCache->stateTree = (TMStateTree)stateTree;

-#ifdef TRACE_TM

-	  bindCache->widgetClass = XtClass(w);

-	  if (_XtGlobalTM.numBindCache == _XtGlobalTM.bindCacheTblSize)

-	    {

-		_XtGlobalTM.bindCacheTblSize += 16;

-		_XtGlobalTM.bindCacheTbl = (TMBindCache *)

-		  XtRealloc((char *)_XtGlobalTM.bindCacheTbl,

-			    ((_XtGlobalTM.bindCacheTblSize) *

-			     sizeof(TMBindCache)));

-	    }

-	  _XtGlobalTM.bindCacheTbl[_XtGlobalTM.numBindCache++] = bindCache;

-#endif /* TRACE_TM */

-	  XtMemmove((XtPointer)&bindCache->procs[0],

-		    (XtPointer)procs, procsSize);

-      }

-    UNLOCK_PROCESS;

-    return &bindCache->procs[0];

-}

-

-static void RemoveFromBindCache(

-    Widget		w,

-    XtActionProc 	*procs)

-{

-    TMClassCache	classCache;

-    TMBindCache*	bindCachePtr;

-    TMBindCache		bindCache;

-    XtAppContext	app = XtWidgetToApplicationContext (w);

-

-    LOCK_PROCESS;

-    classCache = GetClassCache(w);

-    bindCachePtr = (TMBindCache *)&classCache->bindCache;

-

-    for (bindCache = *bindCachePtr;

-	 *bindCachePtr;

-	 bindCachePtr = &(*bindCachePtr)->next, bindCache = *bindCachePtr)

-      {

-	  if (&bindCache->procs[0] == procs)

-	    {

-		if (--bindCache->status.refCount == 0)

-		  {

-#ifdef TRACE_TM

-		      TMShortCard	j;

-		      Boolean		found = False;

-		      TMBindCache	*tbl = _XtGlobalTM.bindCacheTbl;

-

-		      for (j = 0; j < _XtGlobalTM.numBindCache; j++) {

-			  if (found)

-			    tbl[j-1] = tbl[j];

-			  if (tbl[j] == bindCache)

-			    found = True;

-		      }

-		      if (!found)

-			XtWarning("where's the action ??? ");

-		      else

-			_XtGlobalTM.numBindCache--;

-#endif /* TRACE_TM */

-		      *bindCachePtr = bindCache->next;

-		      bindCache->next = app->free_bindings;

-		      app->free_bindings = bindCache;

-		  }

-		break;

-	    }

-      }

-      UNLOCK_PROCESS;

-}

-

-/* ARGSUSED */

-static void RemoveAccelerators(

-    Widget widget,

-    XtPointer closure, XtPointer data)

-{

-    Widget 		destination = (Widget)closure;

-    TMComplexBindProcs	bindProcs;

-    XtTranslations	stackXlations[16];

-    XtTranslations	*xlationsList, destXlations;

-    TMShortCard		i, numXlations = 0;

-

-    if ((destXlations = destination->core.tm.translations) == NULL) {

-        XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-            XtNtranslationError,"nullTable",XtCXtToolkitError,

-            "Can't remove accelerators from NULL table",

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

-        return;

-    }

-

-    xlationsList = (XtTranslations *)

-      XtStackAlloc((destXlations->numStateTrees * sizeof(XtTranslations)),

-		   stackXlations);

-

-    for (i = 0, bindProcs = TMGetComplexBindEntry(destination->core.tm.proc_table, i);

-	 i < destXlations->numStateTrees;

-	 i++, bindProcs++) {

-	if (bindProcs->widget == widget) {

-	    /*

-	     * if it's being destroyed don't do all the work

-	     */

-	    if (destination->core.being_destroyed) {

-		bindProcs->procs = NULL;

-	    }

-	    else

-	      xlationsList[numXlations] = bindProcs->aXlations;

-	    numXlations++;

-	}

-    }

-

-    if (numXlations == 0)

-      XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		      XtNtranslationError,"nullTable",XtCXtToolkitError,

-		      "Tried to remove nonexistent accelerators",

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

-    else {

-	if (!destination->core.being_destroyed)

-	  for (i = 0; i < numXlations; i++)

-	    _XtUnmergeTranslations(destination, xlationsList[i]);

-    }

-    XtStackFree((char *)xlationsList, stackXlations);

-}

-

-void _XtBindActions(

-    Widget widget,

-    XtTM tm)

-{

-    XtTranslations  		xlations = tm->translations;

-    TMSimpleStateTree		stateTree;

-    int				globalUnbound = 0;

-    Cardinal 			i;

-    TMBindData			bindData = (TMBindData)tm->proc_table;

-    TMSimpleBindProcs		simpleBindProcs = NULL;

-    TMComplexBindProcs 		complexBindProcs = NULL;

-    XtActionProc		*newProcs;

-    Widget			bindWidget;

-

-    if ((xlations == NULL) || widget->core.being_destroyed)

-      return;

-

-    stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];

-

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

-      {

-	  stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];

-	  if (bindData->simple.isComplex) {

-	      complexBindProcs = TMGetComplexBindEntry(bindData, i);

-	      if (complexBindProcs->widget) {

-		  bindWidget = complexBindProcs->widget;

-

-		  if (bindWidget->core.destroy_callbacks != NULL)

-		      _XtAddCallbackOnce((InternalCallbackList *)

-					 &bindWidget->core.destroy_callbacks,

-					 RemoveAccelerators,

-					 (XtPointer)widget);

-		  else

-		      _XtAddCallback((InternalCallbackList *)

-				     &bindWidget->core.destroy_callbacks,

-				     RemoveAccelerators,

-				     (XtPointer)widget);

-	      }

-	      else

-		bindWidget = widget;

-	  }

-	  else {

-	      simpleBindProcs = TMGetSimpleBindEntry(bindData, i);

-	      bindWidget = widget;

-	  }

-	  if ((newProcs =

-	       TryBindCache(bindWidget,(TMStateTree)stateTree)) == NULL)

-	    {

-		XtActionProc		*procs, stackProcs[256];

-		int			localUnbound;

-		TMBindCacheStatusRec	bcStatusRec;

-

-		procs = (XtActionProc *)

-		  XtStackAlloc(stateTree->numQuarks * sizeof(XtActionProc),

-			       stackProcs);

-		XtBZero((XtPointer)procs,

-			stateTree->numQuarks * sizeof(XtActionProc));

-

-		localUnbound = BindProcs(bindWidget,

-					 stateTree,

-					 procs,

-					 &bcStatusRec);

-

-		if (localUnbound)

-		  bcStatusRec.notFullyBound = True;

-		else

-		  bcStatusRec.notFullyBound = False;

-

-		newProcs =

-		  EnterBindCache(bindWidget,

-				 stateTree,

-				 procs,

-				 &bcStatusRec);

-		XtStackFree((XtPointer)procs, (XtPointer)stackProcs);

-		globalUnbound += localUnbound;

-	    }

-	  if (bindData->simple.isComplex)

-	    complexBindProcs->procs = newProcs;

-	  else

-	    simpleBindProcs->procs = newProcs;

-      }

-    if (globalUnbound)

-      ReportUnboundActions(xlations,

-			   (TMBindData)tm->proc_table);

-}

-

-

-void _XtUnbindActions(

-    Widget 	widget,

-    XtTranslations xlations,

-    TMBindData	bindData)

-{

-    Cardinal			i;

-    Widget			bindWidget;

-    XtActionProc		*procs;

-

-    if ((xlations == NULL) || !XtIsRealized(widget)) return;

-

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

-	if (bindData->simple.isComplex) {

-	    TMComplexBindProcs	complexBindProcs;

-

-	    complexBindProcs = TMGetComplexBindEntry(bindData, i);

-

-	    if (complexBindProcs->widget) {

-		/*

-		 * check for this being an accelerator binding whose

-		 * source is gone ( set by RemoveAccelerators)

-		 */

-		if (complexBindProcs->procs == NULL)

-		  continue;

-

-		XtRemoveCallback(complexBindProcs->widget,

-				 XtNdestroyCallback,

-				 RemoveAccelerators,

-				 (XtPointer)widget);

-		bindWidget = complexBindProcs->widget;

-	    }

-	    else

-	      bindWidget = widget;

-	    procs = complexBindProcs->procs;

-	    complexBindProcs->procs = NULL;

-	}

-	else {

-	    TMSimpleBindProcs simpleBindProcs;

-	    simpleBindProcs = TMGetSimpleBindEntry(bindData,i);

-	    procs = simpleBindProcs->procs;

-	    simpleBindProcs->procs = NULL;

-	    bindWidget = widget;

-	}

-	RemoveFromBindCache(bindWidget, procs);

-      }

-}

-

-#ifdef notdef

-void _XtRemoveBindProcsByIndex(

-    Widget	w,

-    TMBindData	bindData,

-    TMShortCard	ndx)

-{

-    TMShortCard	i = ndx;

-    TMBindProcs	bindProcs = (TMBindProcs)&bindData->bindTbl[0];

-

-    RemoveFromBindCache(bindProcs->widget ? bindProcs->widget : w,

-			bindProcs[i].procs);

-

-    for (; i < bindData->bindTblSize; i++)

-      bindProcs[i] = bindProcs[i+1];

-}

-#endif /* notdef */

-

-/*

- * used to free all copied action tables, called from DestroyAppContext

- */

-void _XtFreeActions(

-    ActionList	actions)

-{

-    ActionList	curr, next;

-

-    for (curr = actions; curr;) {

-	next = curr->next;

-	XtFree((char *)curr->table);

-	XtFree((char *)curr);

-	curr = next;

-    }

-}

-

-void XtAddActions(

-    XtActionList actions,

-    Cardinal num_actions)

-{

-    XtAppAddActions(_XtDefaultAppContext(), actions, num_actions);

-}

-

-void XtAppAddActions(

-    XtAppContext app,

-    XtActionList actions,

-    Cardinal num_actions)

-{

-    register ActionList rec;

-

-    LOCK_APP(app);

-    rec = XtNew(ActionListRec);

-    rec->next = app->action_table;

-    app->action_table = rec;

-    rec->table = CompileActionTable(actions, num_actions, False, False);

-    rec->count = num_actions;

-    UNLOCK_APP(app);

-}

-

-void XtGetActionList(

-    WidgetClass widget_class,

-    XtActionList* actions_return,

-    Cardinal* num_actions_return)

-{

-    XtActionList list;

-    CompiledActionTable table;

-    int i;

-

-    *actions_return = NULL;

-    *num_actions_return = 0;

-

-    LOCK_PROCESS;

-    if (! widget_class->core_class.class_inited) {

-	UNLOCK_PROCESS;

-	return;

-    }

-    if (! (widget_class->core_class.class_inited & WidgetClassFlag)) {

-	UNLOCK_PROCESS;

-	return;

-    }

-    *num_actions_return = widget_class->core_class.num_actions;

-    if (*num_actions_return) {

-	list = *actions_return = (XtActionList)

-	    __XtMalloc(*num_actions_return * sizeof(XtActionsRec));

-	table = GetClassActions(widget_class);

-	if (table != NULL) {

-	    for (i= (*num_actions_return); --i >= 0; list++, table++) {

-		list->string = XrmQuarkToString(table->signature);

-		list->proc = table->proc;

-	    }

-	}

-    }

-    UNLOCK_PROCESS;

-}

-

-/***********************************************************************

- *

- * Pop-up and Grab stuff

- *

- ***********************************************************************/

-

-static Widget _XtFindPopup(

-    Widget widget,

-    String name)

-{

-    register Cardinal i;

-    register XrmQuark q;

-    register Widget w;

-

-    q = XrmStringToQuark(name);

-

-    for (w=widget; w != NULL; w=w->core.parent)

-	for (i=0; i<w->core.num_popups; i++)

-	    if (w->core.popup_list[i]->core.xrm_name == q)

-		return w->core.popup_list[i];

-

-    return NULL;

-}

-

-void XtMenuPopupAction(

-    Widget widget,

-    XEvent *event,

-    String *params,

-    Cardinal *num_params)

-{

-    Boolean spring_loaded;

-    register Widget popup_shell;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-

-    LOCK_APP(app);

-    if (*num_params != 1) {

-	XtAppWarningMsg(app,

-		      "invalidParameters","xtMenuPopupAction",XtCXtToolkitError,

-			"MenuPopup wants exactly one argument",

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

-	UNLOCK_APP(app);

-	return;

-    }

-

-    if (event->type == ButtonPress)

-	spring_loaded = True;

-    else if (event->type == KeyPress || event->type == EnterNotify)

-	spring_loaded = False;

-    else {

-	XtAppWarningMsg(app,

-		"invalidPopup","unsupportedOperation",XtCXtToolkitError,

-"Pop-up menu creation is only supported on ButtonPress, KeyPress or EnterNotify events.",

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

-	UNLOCK_APP(app);

-	return;

-    }

-

-    popup_shell = _XtFindPopup(widget, params[0]);

-    if (popup_shell == NULL) {

-	XtAppWarningMsg(app,

-			"invalidPopup","xtMenuPopup",XtCXtToolkitError,

-			"Can't find popup widget \"%s\" in XtMenuPopup",

-			params, num_params);

-	UNLOCK_APP(app);

-	return;

-    }

-

-    if (spring_loaded) _XtPopup(popup_shell, XtGrabExclusive, TRUE);

-    else _XtPopup(popup_shell, XtGrabNonexclusive, FALSE);

-    UNLOCK_APP(app);

-}

-

-

-/*ARGSUSED*/

-static void _XtMenuPopdownAction(

-    Widget widget,

-    XEvent *event,

-    String *params,

-    Cardinal *num_params)

-{

-    Widget popup_shell;

-

-    if (*num_params == 0) {

-	XtPopdown(widget);

-    } else if (*num_params == 1) {

-	popup_shell = _XtFindPopup(widget, params[0]);

-	if (popup_shell == NULL) {

-            XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-			    "invalidPopup","xtMenuPopdown",XtCXtToolkitError,

-			    "Can't find popup widget \"%s\" in XtMenuPopdown",

-			    params, num_params);

-	    return;

-	}

-	XtPopdown(popup_shell);

-    } else {

-	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-			"invalidParameters","xtMenuPopdown",XtCXtToolkitError,

-			"XtMenuPopdown called with num_params != 0 or 1",

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

-    }

-}

-

-static XtActionsRec RConst tmActions[] = {

-    {"XtMenuPopup", XtMenuPopupAction},

-    {"XtMenuPopdown", _XtMenuPopdownAction},

-    {"MenuPopup", XtMenuPopupAction}, /* old & obsolete */

-    {"MenuPopdown", _XtMenuPopdownAction}, /* ditto */

-#ifndef NO_MIT_HACKS

-    {"XtDisplayTranslations", _XtDisplayTranslations},

-    {"XtDisplayAccelerators", _XtDisplayAccelerators},

-    {"XtDisplayInstalledAccelerators", _XtDisplayInstalledAccelerators},

-#endif

-};

-

-

-void _XtPopupInitialize(

-    XtAppContext app)

-{

-    register ActionList rec;

-

-    /*

-     * The _XtGlobalTM.newMatchSemantics flag determines whether

-     * we support old or new matching

-     * behavior. This is mainly an issue of whether subsequent lhs will

-     * get pushed up in the match table if a lhs containing thier initial

-     * sequence has already been encountered. Currently inited to False;

-     */

-#ifdef NEW_TM

-    _XtGlobalTM.newMatchSemantics = True;

-#else

-    _XtGlobalTM.newMatchSemantics = False;

-#endif

-

-    rec = XtNew(ActionListRec);

-    rec->next = app->action_table;

-    app->action_table = rec;

-    LOCK_PROCESS;

-    rec->table = CompileActionTable(tmActions, XtNumber(tmActions), False,

-				    True);

-    rec->count = XtNumber(tmActions);

-    UNLOCK_PROCESS;

-    _XtGrabInitialize(app);

-}

-

-

-void XtCallActionProc(

-    Widget widget,

-    _Xconst char* action,

-    XEvent *event,

-    String *params,

-    Cardinal num_params)

-{

-    CompiledAction* actionP;

-    XrmQuark q = XrmStringToQuark(action);

-    Widget w = widget;

-    XtAppContext app = XtWidgetToApplicationContext(widget);

-    ActionList actionList;

-    Cardinal i;

-

-    LOCK_APP(app);

-    XtCheckSubclass(widget, coreWidgetClass,

-		    "XtCallActionProc first argument is not a subclass of Core");

-    LOCK_PROCESS;

-    do {

-	WidgetClass class = XtClass(w);

-	do {

-	    if ((actionP = GetClassActions(class)) != NULL)

-	      for (i = 0;

-		   i < class->core_class.num_actions;

-		   i++, actionP++) {

-

-		  if (actionP->signature == q) {

-		      ActionHook hook = app->action_hook_list;

-		      while (hook != NULL) {

-			  (*hook->proc)( widget,

-					hook->closure,

-					(String)action,

-					event,

-					params,

-					&num_params

-					);

-			  hook= hook->next;

-		      }

-		      (*(actionP->proc))

-			(widget, event, params, &num_params);

-		      UNLOCK_PROCESS;

-		      UNLOCK_APP(app);

-		      return;

-		  }

-	      }

-	    class = class->core_class.superclass;

-	} while (class != NULL);

-	w = XtParent(w);

-    } while (w != NULL);

-    UNLOCK_PROCESS;

-

-    for (actionList = app->action_table;

-	 actionList != NULL;

-	 actionList = actionList->next) {

-

-	for (i = 0, actionP = actionList->table;

-	     i < actionList->count;

-	     i++, actionP++) {

-	    if (actionP->signature == q) {

-		ActionHook hook = app->action_hook_list;

-		while (hook != NULL) {

-		    (*hook->proc)( widget,

-				  hook->closure,

-				  (String)action,

-				  event,

-				  params,

-				  &num_params

-				  );

-		    hook= hook->next;

-		}

-		(*(actionP->proc))

-		  (widget, event, params, &num_params);

-		UNLOCK_APP(app);

-		return;

-	    }

-	}

-

-    }

-

-    {

-	String params[2];

-	Cardinal num_params = 2;

-	params[0] = (String)action;

-	params[1] = XtName(widget);

-	XtAppWarningMsg(app,

-			"noActionProc", "xtCallActionProc", XtCXtToolkitError,

-			"No action proc named \"%s\" is registered for widget \"%s\"",

-			params, &num_params

-			);

-    }

-    UNLOCK_APP(app);

-}

-

-void _XtDoFreeBindings(

-    XtAppContext app)

-{

-    TMBindCache bcp;

-

-    while (app->free_bindings) {

-	bcp = app->free_bindings->next;

-	XtFree ((char *) app->free_bindings);

-	app->free_bindings = bcp;

-    }

-}

+/*LINTLIBRARY*/
+
+/***********************************************************
+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.
+
+*/
+
+/* TMaction.c -- maintains the state table of actions for the translation 
+ *              manager.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+
+#if defined(__STDC__) && !defined(NORCONST)
+#define RConst const
+#else
+#define RConst /**/
+#endif
+
+static String XtNtranslationError = "translationError";
+
+typedef struct _CompiledAction{
+    XrmQuark		signature;
+    XtActionProc	proc;
+}CompiledAction, *CompiledActionTable;
+
+
+#define GetClassActions(wc) \
+  ((wc->core_class.actions) \
+? (((TMClassCache)wc->core_class.actions)->actions) \
+: NULL)
+
+static CompiledActionTable CompileActionTable(
+    register RConst struct _XtActionsRec *actions,
+    register Cardinal count,	/* may be 0 */
+    Boolean stat,	/* if False, copy before compiling in place */
+    Boolean perm)	/* if False, use XrmStringToQuark */
+{
+    register CompiledActionTable cActions;
+    register int i;
+    CompiledAction hold;
+    CompiledActionTable cTableHold;
+    XrmQuark (*func)(_Xconst char*);
+
+    if (!count)
+	return (CompiledActionTable) NULL;
+    func = (perm ? XrmPermStringToQuark : XrmStringToQuark);
+
+    if (! stat) {
+	cTableHold = cActions = (CompiledActionTable)
+	    __XtMalloc(count * sizeof(CompiledAction));
+
+	for (i=count; --i >= 0; cActions++, actions++) {
+	    cActions->proc = actions->proc;
+	    cActions->signature = (*func)(actions->string);
+	}
+    } else {
+	cTableHold = (CompiledActionTable) actions;
+
+	for (i=count; --i >= 0; actions++)
+	    ((CompiledActionTable) actions)->signature =
+		(*func)(actions->string);
+    }
+    cActions = cTableHold;
+
+    /* Insertion sort.  Whatever sort is used, it must be stable. */
+    for (i=1; (Cardinal) i <= count - 1; i++) {
+	register Cardinal j;
+	hold = cActions[i];
+	j = i;
+	while (j && cActions[j-1].signature > hold.signature) {
+	    cActions[j] = cActions[j-1];
+	    j--;
+	}
+	cActions[j] = hold;
+    }
+
+    return cActions;
+}
+
+
+typedef struct _ActionListRec *ActionList;
+typedef struct _ActionListRec {
+    ActionList		next;
+    CompiledActionTable table;
+    TMShortCard		count;
+} ActionListRec;
+
+static void ReportUnboundActions(
+    XtTranslations	xlations,
+    TMBindData		bindData)
+{
+    TMSimpleStateTree	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];
+    Cardinal num_unbound = 0;
+    Cardinal num_params = 1;
+    char* message;
+    char messagebuf[1000];
+    String params[1];
+    register Cardinal num_chars = 0;
+    register Cardinal i, j;
+    XtActionProc *procs;
+
+    for (i=0; i < xlations->numStateTrees; i++) {
+	if (bindData->simple.isComplex)
+	  procs = TMGetComplexBindEntry(bindData, i)->procs;
+	else
+	  procs = TMGetSimpleBindEntry(bindData, i)->procs;
+
+	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];
+	for (j=0; j < stateTree->numQuarks; j++) {
+	    if (procs[j] == NULL) {
+		String s = XrmQuarkToString(stateTree->quarkTbl[j]);
+		if (num_unbound != 0)
+		    num_chars += 2;
+		num_chars += strlen(s);
+		num_unbound++;
+	    }
+	}
+    }
+    if (num_unbound == 0)
+	return;
+    message = XtStackAlloc (num_chars + 1, messagebuf);
+    if (message != NULL) {
+	*message = '\0';
+	num_unbound = 0;
+	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];
+	for (i=0; i < xlations->numStateTrees; i++) {
+	    if (bindData->simple.isComplex)
+		procs = TMGetComplexBindEntry(bindData, i)->procs;
+	    else
+		procs = TMGetSimpleBindEntry(bindData, i)->procs;
+
+	    stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];
+	    for (j=0; j < stateTree->numQuarks; j++) {
+		if (procs[j] == NULL) {
+		    String s = XrmQuarkToString(stateTree->quarkTbl[j]);
+		    if (num_unbound != 0)
+			(void) strcat(message, ", ");
+		    (void) strcat(message, s);
+		    num_unbound++;
+		}
+	    }
+	}
+	message[num_chars] = '\0';
+	params[0] = message;
+	XtWarningMsg(XtNtranslationError,"unboundActions",XtCXtToolkitError,
+		     "Actions not found: %s",
+		     params, &num_params);
+	XtStackFree (message, messagebuf);
+    }
+}
+
+
+static CompiledAction *SearchActionTable(
+    XrmQuark		signature,
+    CompiledActionTable	actionTable,
+    Cardinal		numActions)
+{
+    register int i, left, right;
+
+    left = 0;
+    right = numActions - 1;
+    while (left <= right) {
+	i = (left + right) >> 1;
+	if (signature < actionTable[i].signature)
+	    right = i - 1;
+	else if (signature > actionTable[i].signature)
+	    left = i + 1;
+	else {
+	    while (i && actionTable[i - 1].signature == signature)
+		i--;
+	    return &actionTable[i];
+	}
+    }
+    return (CompiledAction *) NULL;
+}
+
+static int BindActions(
+    TMSimpleStateTree	stateTree,
+    XtActionProc	*procs,
+    CompiledActionTable compiledActionTable,
+    TMShortCard		numActions,
+    Cardinal 		*ndxP)
+{
+    register int unbound = stateTree->numQuarks - *ndxP;
+    CompiledAction* action;
+    register Cardinal ndx;
+    register Boolean savedNdx = False;
+
+    for (ndx = *ndxP; ndx < stateTree->numQuarks; ndx++) {
+	if (procs[ndx] == NULL) {
+	    /* attempt to bind it */
+	    XrmQuark q = stateTree->quarkTbl[ndx];
+
+	    action = SearchActionTable(q, compiledActionTable, numActions);
+	    if (action) {
+		procs[ndx] = action->proc;
+		unbound--;
+	    } else if (!savedNdx) {
+		*ndxP= ndx;
+		savedNdx = True;
+	    }
+	} else {
+	    /* already bound, leave it alone */
+	    unbound--;
+	}
+    }
+    return unbound;
+}
+
+typedef struct _TMBindCacheStatusRec{
+    unsigned int	boundInClass:1;
+    unsigned int	boundInHierarchy:1;
+    unsigned int	boundInContext:1;
+    unsigned int	notFullyBound:1;
+    unsigned int	refCount:28;
+}TMBindCacheStatusRec, *TMBindCacheStatus;
+
+typedef struct _TMBindCacheRec{
+    struct _TMBindCacheRec *next;
+    TMBindCacheStatusRec status;
+    TMStateTree		stateTree;
+#ifdef TRACE_TM
+    WidgetClass		widgetClass;
+#endif /* TRACE_TM */
+    XtActionProc	procs[1];	/* variable length */
+}TMBindCacheRec, *TMBindCache;
+
+typedef struct _TMClassCacheRec {
+    CompiledActionTable	actions;
+    TMBindCacheRec	*bindCache;
+}TMClassCacheRec, *TMClassCache;
+
+#define IsPureClassBind(bc) \
+  (bc->status.boundInClass && \
+   !(bc->status.boundInHierarchy || \
+     bc->status.boundInContext || \
+     bc->status.notFullyBound))
+
+#define GetClassCache(w) \
+  ((TMClassCache)w->core.widget_class->core_class.actions)
+
+
+static int  BindProcs(
+    Widget 		widget,
+    TMSimpleStateTree	stateTree,
+    XtActionProc	*procs,
+    TMBindCacheStatus 	bindStatus)
+{
+    register WidgetClass    	class;
+    register ActionList     	actionList;
+    int 			unbound = -1, newUnbound = -1;
+    Cardinal 			ndx = 0;
+    Widget			w = widget;
+
+    LOCK_PROCESS;
+    do {
+        class = w->core.widget_class;
+        do {
+            if (class->core_class.actions != NULL)
+	      unbound =
+		BindActions(stateTree,
+			    procs,
+			    GetClassActions(class),
+			    class->core_class.num_actions,
+			    &ndx);
+	    class = class->core_class.superclass;
+        } while (unbound != 0 && class != NULL);
+	if (unbound < (int)stateTree->numQuarks)
+	  bindStatus->boundInClass = True;
+	else
+	  bindStatus->boundInClass = False;
+	if (newUnbound == -1)
+	  newUnbound = unbound;
+	w = XtParent(w);
+    } while (unbound != 0 && w != NULL);
+
+    if (newUnbound > unbound)
+      bindStatus->boundInHierarchy = True;
+    else
+      bindStatus->boundInHierarchy = False;
+
+    if (unbound) {
+	XtAppContext app = XtWidgetToApplicationContext(widget);
+	newUnbound = unbound;
+	for (actionList = app->action_table;
+	     unbound != 0 && actionList != NULL;
+	     actionList = actionList->next) {
+	    unbound = BindActions(stateTree,
+				  procs,
+				  actionList->table,
+				  actionList->count,
+				  &ndx);
+	}
+	if (newUnbound > unbound)
+	  bindStatus->boundInContext = True;
+	else
+	  bindStatus->boundInContext = False;
+
+    } else {
+	bindStatus->boundInContext = False;
+    }
+    UNLOCK_PROCESS;
+    return unbound;
+}
+
+static XtActionProc  *TryBindCache(
+    Widget	widget,
+    TMStateTree	stateTree)
+{
+    TMClassCache	classCache;
+
+    LOCK_PROCESS;
+    classCache = GetClassCache(widget);
+
+    if (classCache == NULL)
+      {
+	  WidgetClass	wc = XtClass(widget);
+
+	  wc->core_class.actions = (XtActionList)
+	    _XtInitializeActionData(NULL, 0, True);
+      }
+    else
+      {
+	  TMBindCache bindCache =
+	    (TMBindCache)(classCache->bindCache);
+	  for (; bindCache; bindCache = bindCache->next)
+	    {
+		if (IsPureClassBind(bindCache) &&
+		    (stateTree == bindCache->stateTree))
+		  {
+		      bindCache->status.refCount++;
+		      UNLOCK_PROCESS;
+		      return &bindCache->procs[0];
+		  }
+	    }
+      }
+    UNLOCK_PROCESS;
+    return NULL;
+}
+
+
+
+/*
+ * The class record actions field will point to the bind cache header
+ * after this call is made out of coreClassPartInit.
+ */
+XtPointer _XtInitializeActionData(
+    register struct _XtActionsRec	*actions,
+    register Cardinal			count,
+    _XtBoolean				inPlace)
+{
+    TMClassCache	classCache;
+
+    classCache = XtNew(TMClassCacheRec);
+    classCache->actions = CompileActionTable(actions, count, inPlace, True);
+    classCache->bindCache = NULL;
+    return (XtPointer)classCache;
+}
+
+
+#define TM_BIND_CACHE_REALLOC	2
+
+static XtActionProc *EnterBindCache(
+    Widget		w,
+    TMSimpleStateTree	stateTree,
+    XtActionProc 	*procs,
+    TMBindCacheStatus 	bindStatus)
+{
+    TMClassCache	classCache;
+    TMBindCache*	bindCachePtr;
+    TMShortCard		procsSize;
+    TMBindCache		bindCache;
+
+    LOCK_PROCESS;
+    classCache = GetClassCache(w);
+    bindCachePtr = &classCache->bindCache;
+    procsSize = stateTree->numQuarks * sizeof(XtActionProc);
+
+    for (bindCache = *bindCachePtr;
+	 (*bindCachePtr);
+	bindCachePtr = &(*bindCachePtr)->next, bindCache = *bindCachePtr)
+      {
+	  TMBindCacheStatus	cacheStatus = &bindCache->status;
+
+	  if ((bindStatus->boundInClass == cacheStatus->boundInClass) &&
+	      (bindStatus->boundInHierarchy == cacheStatus->boundInHierarchy) &&
+	      (bindStatus->boundInContext == cacheStatus->boundInContext) &&
+	      (bindCache->stateTree == (TMStateTree)stateTree) &&
+	      !XtMemcmp(&bindCache->procs[0], procs, procsSize))
+	    {
+		bindCache->status.refCount++;
+		break;
+	    }
+      }
+    if (*bindCachePtr == NULL)
+      {
+	  *bindCachePtr =
+	    bindCache = (TMBindCache)
+	      __XtMalloc(sizeof(TMBindCacheRec) +
+		       (procsSize - sizeof(XtActionProc)));
+	  bindCache->next = NULL;
+	  bindCache->status = *bindStatus;
+	  bindCache->status.refCount = 1;
+	  bindCache->stateTree = (TMStateTree)stateTree;
+#ifdef TRACE_TM
+	  bindCache->widgetClass = XtClass(w);
+	  if (_XtGlobalTM.numBindCache == _XtGlobalTM.bindCacheTblSize)
+	    {
+		_XtGlobalTM.bindCacheTblSize += 16;
+		_XtGlobalTM.bindCacheTbl = (TMBindCache *)
+		  XtRealloc((char *)_XtGlobalTM.bindCacheTbl,
+			    ((_XtGlobalTM.bindCacheTblSize) *
+			     sizeof(TMBindCache)));
+	    }
+	  _XtGlobalTM.bindCacheTbl[_XtGlobalTM.numBindCache++] = bindCache;
+#endif /* TRACE_TM */
+	  XtMemmove((XtPointer)&bindCache->procs[0],
+		    (XtPointer)procs, procsSize);
+      }
+    UNLOCK_PROCESS;
+    return &bindCache->procs[0];
+}
+
+static void RemoveFromBindCache(
+    Widget		w,
+    XtActionProc 	*procs)
+{
+    TMClassCache	classCache;
+    TMBindCache*	bindCachePtr;
+    TMBindCache		bindCache;
+    XtAppContext	app = XtWidgetToApplicationContext (w);
+
+    LOCK_PROCESS;
+    classCache = GetClassCache(w);
+    bindCachePtr = (TMBindCache *)&classCache->bindCache;
+
+    for (bindCache = *bindCachePtr;
+	 *bindCachePtr;
+	 bindCachePtr = &(*bindCachePtr)->next, bindCache = *bindCachePtr)
+      {
+	  if (&bindCache->procs[0] == procs)
+	    {
+		if (--bindCache->status.refCount == 0)
+		  {
+#ifdef TRACE_TM
+		      TMShortCard	j;
+		      Boolean		found = False;
+		      TMBindCache	*tbl = _XtGlobalTM.bindCacheTbl;
+
+		      for (j = 0; j < _XtGlobalTM.numBindCache; j++) {
+			  if (found)
+			    tbl[j-1] = tbl[j];
+			  if (tbl[j] == bindCache)
+			    found = True;
+		      }
+		      if (!found)
+			XtWarning("where's the action ??? ");
+		      else
+			_XtGlobalTM.numBindCache--;
+#endif /* TRACE_TM */
+		      *bindCachePtr = bindCache->next;
+		      bindCache->next = app->free_bindings;
+		      app->free_bindings = bindCache;
+		  }
+		break;
+	    }
+      }
+      UNLOCK_PROCESS;
+}
+
+/* ARGSUSED */
+static void RemoveAccelerators(
+    Widget widget,
+    XtPointer closure, XtPointer data)
+{
+    Widget 		destination = (Widget)closure;
+    TMComplexBindProcs	bindProcs;
+    XtTranslations	stackXlations[16];
+    XtTranslations	*xlationsList, destXlations;
+    TMShortCard		i, numXlations = 0;
+
+    if ((destXlations = destination->core.tm.translations) == NULL) {
+        XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+            XtNtranslationError,"nullTable",XtCXtToolkitError,
+            "Can't remove accelerators from NULL table",
+            (String *)NULL, (Cardinal *)NULL);
+        return;
+    }
+
+    xlationsList = (XtTranslations *)
+      XtStackAlloc((destXlations->numStateTrees * sizeof(XtTranslations)),
+		   stackXlations);
+
+    for (i = 0, bindProcs = TMGetComplexBindEntry(destination->core.tm.proc_table, i);
+	 i < destXlations->numStateTrees;
+	 i++, bindProcs++) {
+	if (bindProcs->widget == widget) {
+	    /*
+	     * if it's being destroyed don't do all the work
+	     */
+	    if (destination->core.being_destroyed) {
+		bindProcs->procs = NULL;
+	    }
+	    else
+	      xlationsList[numXlations] = bindProcs->aXlations;
+	    numXlations++;
+	}
+    }
+
+    if (numXlations == 0)
+      XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		      XtNtranslationError,"nullTable",XtCXtToolkitError,
+		      "Tried to remove nonexistent accelerators",
+		      (String *)NULL, (Cardinal *)NULL);
+    else {
+	if (!destination->core.being_destroyed)
+	  for (i = 0; i < numXlations; i++)
+	    _XtUnmergeTranslations(destination, xlationsList[i]);
+    }
+    XtStackFree((char *)xlationsList, stackXlations);
+}
+
+void _XtBindActions(
+    Widget widget,
+    XtTM tm)
+{
+    XtTranslations  		xlations = tm->translations;
+    TMSimpleStateTree		stateTree;
+    int				globalUnbound = 0;
+    Cardinal 			i;
+    TMBindData			bindData = (TMBindData)tm->proc_table;
+    TMSimpleBindProcs		simpleBindProcs = NULL;
+    TMComplexBindProcs 		complexBindProcs = NULL;
+    XtActionProc		*newProcs;
+    Widget			bindWidget;
+
+    if ((xlations == NULL) || widget->core.being_destroyed)
+      return;
+
+    stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];
+
+    for (i = 0; i < xlations->numStateTrees; i++)
+      {
+	  stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];
+	  if (bindData->simple.isComplex) {
+	      complexBindProcs = TMGetComplexBindEntry(bindData, i);
+	      if (complexBindProcs->widget) {
+		  bindWidget = complexBindProcs->widget;
+
+		  if (bindWidget->core.destroy_callbacks != NULL)
+		      _XtAddCallbackOnce((InternalCallbackList *)
+					 &bindWidget->core.destroy_callbacks,
+					 RemoveAccelerators,
+					 (XtPointer)widget);
+		  else
+		      _XtAddCallback((InternalCallbackList *)
+				     &bindWidget->core.destroy_callbacks,
+				     RemoveAccelerators,
+				     (XtPointer)widget);
+	      }
+	      else
+		bindWidget = widget;
+	  }
+	  else {
+	      simpleBindProcs = TMGetSimpleBindEntry(bindData, i);
+	      bindWidget = widget;
+	  }
+	  if ((newProcs =
+	       TryBindCache(bindWidget,(TMStateTree)stateTree)) == NULL)
+	    {
+		XtActionProc		*procs, stackProcs[256];
+		int			localUnbound;
+		TMBindCacheStatusRec	bcStatusRec;
+
+		procs = (XtActionProc *)
+		  XtStackAlloc(stateTree->numQuarks * sizeof(XtActionProc),
+			       stackProcs);
+		XtBZero((XtPointer)procs,
+			stateTree->numQuarks * sizeof(XtActionProc));
+
+		localUnbound = BindProcs(bindWidget,
+					 stateTree,
+					 procs,
+					 &bcStatusRec);
+
+		if (localUnbound)
+		  bcStatusRec.notFullyBound = True;
+		else
+		  bcStatusRec.notFullyBound = False;
+
+		newProcs =
+		  EnterBindCache(bindWidget,
+				 stateTree,
+				 procs,
+				 &bcStatusRec);
+		XtStackFree((XtPointer)procs, (XtPointer)stackProcs);
+		globalUnbound += localUnbound;
+	    }
+	  if (bindData->simple.isComplex)
+	    complexBindProcs->procs = newProcs;
+	  else
+	    simpleBindProcs->procs = newProcs;
+      }
+    if (globalUnbound)
+      ReportUnboundActions(xlations,
+			   (TMBindData)tm->proc_table);
+}
+
+
+void _XtUnbindActions(
+    Widget 	widget,
+    XtTranslations xlations,
+    TMBindData	bindData)
+{
+    Cardinal			i;
+    Widget			bindWidget;
+    XtActionProc		*procs;
+
+    if ((xlations == NULL) || !XtIsRealized(widget)) return;
+
+    for (i = 0; i < xlations->numStateTrees; i++) {
+	if (bindData->simple.isComplex) {
+	    TMComplexBindProcs	complexBindProcs;
+
+	    complexBindProcs = TMGetComplexBindEntry(bindData, i);
+
+	    if (complexBindProcs->widget) {
+		/*
+		 * check for this being an accelerator binding whose
+		 * source is gone ( set by RemoveAccelerators)
+		 */
+		if (complexBindProcs->procs == NULL)
+		  continue;
+
+		XtRemoveCallback(complexBindProcs->widget,
+				 XtNdestroyCallback,
+				 RemoveAccelerators,
+				 (XtPointer)widget);
+		bindWidget = complexBindProcs->widget;
+	    }
+	    else
+	      bindWidget = widget;
+	    procs = complexBindProcs->procs;
+	    complexBindProcs->procs = NULL;
+	}
+	else {
+	    TMSimpleBindProcs simpleBindProcs;
+	    simpleBindProcs = TMGetSimpleBindEntry(bindData,i);
+	    procs = simpleBindProcs->procs;
+	    simpleBindProcs->procs = NULL;
+	    bindWidget = widget;
+	}
+	RemoveFromBindCache(bindWidget, procs);
+      }
+}
+
+#ifdef notdef
+void _XtRemoveBindProcsByIndex(
+    Widget	w,
+    TMBindData	bindData,
+    TMShortCard	ndx)
+{
+    TMShortCard	i = ndx;
+    TMBindProcs	bindProcs = (TMBindProcs)&bindData->bindTbl[0];
+
+    RemoveFromBindCache(bindProcs->widget ? bindProcs->widget : w,
+			bindProcs[i].procs);
+
+    for (; i < bindData->bindTblSize; i++)
+      bindProcs[i] = bindProcs[i+1];
+}
+#endif /* notdef */
+
+/*
+ * used to free all copied action tables, called from DestroyAppContext
+ */
+void _XtFreeActions(
+    ActionList	actions)
+{
+    ActionList	curr, next;
+
+    for (curr = actions; curr;) {
+	next = curr->next;
+	XtFree((char *)curr->table);
+	XtFree((char *)curr);
+	curr = next;
+    }
+}
+
+void XtAddActions(
+    XtActionList actions,
+    Cardinal num_actions)
+{
+    XtAppAddActions(_XtDefaultAppContext(), actions, num_actions);
+}
+
+void XtAppAddActions(
+    XtAppContext app,
+    XtActionList actions,
+    Cardinal num_actions)
+{
+    register ActionList rec;
+
+    LOCK_APP(app);
+    rec = XtNew(ActionListRec);
+    rec->next = app->action_table;
+    app->action_table = rec;
+    rec->table = CompileActionTable(actions, num_actions, False, False);
+    rec->count = num_actions;
+    UNLOCK_APP(app);
+}
+
+void XtGetActionList(
+    WidgetClass widget_class,
+    XtActionList* actions_return,
+    Cardinal* num_actions_return)
+{
+    XtActionList list;
+    CompiledActionTable table;
+    int i;
+
+    *actions_return = NULL;
+    *num_actions_return = 0;
+
+    LOCK_PROCESS;
+    if (! widget_class->core_class.class_inited) {
+	UNLOCK_PROCESS;
+	return;
+    }
+    if (! (widget_class->core_class.class_inited & WidgetClassFlag)) {
+	UNLOCK_PROCESS;
+	return;
+    }
+    *num_actions_return = widget_class->core_class.num_actions;
+    if (*num_actions_return) {
+	list = *actions_return = (XtActionList)
+	    __XtMalloc(*num_actions_return * sizeof(XtActionsRec));
+	table = GetClassActions(widget_class);
+	if (table != NULL) {
+	    for (i= (*num_actions_return); --i >= 0; list++, table++) {
+		list->string = XrmQuarkToString(table->signature);
+		list->proc = table->proc;
+	    }
+	}
+    }
+    UNLOCK_PROCESS;
+}
+
+/***********************************************************************
+ *
+ * Pop-up and Grab stuff
+ *
+ ***********************************************************************/
+
+static Widget _XtFindPopup(
+    Widget widget,
+    String name)
+{
+    register Cardinal i;
+    register XrmQuark q;
+    register Widget w;
+
+    q = XrmStringToQuark(name);
+
+    for (w=widget; w != NULL; w=w->core.parent)
+	for (i=0; i<w->core.num_popups; i++)
+	    if (w->core.popup_list[i]->core.xrm_name == q)
+		return w->core.popup_list[i];
+
+    return NULL;
+}
+
+void XtMenuPopupAction(
+    Widget widget,
+    XEvent *event,
+    String *params,
+    Cardinal *num_params)
+{
+    Boolean spring_loaded;
+    register Widget popup_shell;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+
+    LOCK_APP(app);
+    if (*num_params != 1) {
+	XtAppWarningMsg(app,
+		      "invalidParameters","xtMenuPopupAction",XtCXtToolkitError,
+			"MenuPopup wants exactly one argument",
+			(String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+
+    if (event->type == ButtonPress)
+	spring_loaded = True;
+    else if (event->type == KeyPress || event->type == EnterNotify)
+	spring_loaded = False;
+    else {
+	XtAppWarningMsg(app,
+		"invalidPopup","unsupportedOperation",XtCXtToolkitError,
+"Pop-up menu creation is only supported on ButtonPress, KeyPress or EnterNotify events.",
+                  (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_APP(app);
+	return;
+    }
+
+    popup_shell = _XtFindPopup(widget, params[0]);
+    if (popup_shell == NULL) {
+	XtAppWarningMsg(app,
+			"invalidPopup","xtMenuPopup",XtCXtToolkitError,
+			"Can't find popup widget \"%s\" in XtMenuPopup",
+			params, num_params);
+	UNLOCK_APP(app);
+	return;
+    }
+
+    if (spring_loaded) _XtPopup(popup_shell, XtGrabExclusive, TRUE);
+    else _XtPopup(popup_shell, XtGrabNonexclusive, FALSE);
+    UNLOCK_APP(app);
+}
+
+
+/*ARGSUSED*/
+static void _XtMenuPopdownAction(
+    Widget widget,
+    XEvent *event,
+    String *params,
+    Cardinal *num_params)
+{
+    Widget popup_shell;
+
+    if (*num_params == 0) {
+	XtPopdown(widget);
+    } else if (*num_params == 1) {
+	popup_shell = _XtFindPopup(widget, params[0]);
+	if (popup_shell == NULL) {
+            XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+			    "invalidPopup","xtMenuPopdown",XtCXtToolkitError,
+			    "Can't find popup widget \"%s\" in XtMenuPopdown",
+			    params, num_params);
+	    return;
+	}
+	XtPopdown(popup_shell);
+    } else {
+	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+			"invalidParameters","xtMenuPopdown",XtCXtToolkitError,
+			"XtMenuPopdown called with num_params != 0 or 1",
+			(String *)NULL, (Cardinal *)NULL);
+    }
+}
+
+static XtActionsRec RConst tmActions[] = {
+    {"XtMenuPopup", XtMenuPopupAction},
+    {"XtMenuPopdown", _XtMenuPopdownAction},
+    {"MenuPopup", XtMenuPopupAction}, /* old & obsolete */
+    {"MenuPopdown", _XtMenuPopdownAction}, /* ditto */
+#ifndef NO_MIT_HACKS
+    {"XtDisplayTranslations", _XtDisplayTranslations},
+    {"XtDisplayAccelerators", _XtDisplayAccelerators},
+    {"XtDisplayInstalledAccelerators", _XtDisplayInstalledAccelerators},
+#endif
+};
+
+
+void _XtPopupInitialize(
+    XtAppContext app)
+{
+    register ActionList rec;
+
+    /*
+     * The _XtGlobalTM.newMatchSemantics flag determines whether
+     * we support old or new matching
+     * behavior. This is mainly an issue of whether subsequent lhs will
+     * get pushed up in the match table if a lhs containing thier initial
+     * sequence has already been encountered. Currently inited to False;
+     */
+#ifdef NEW_TM
+    _XtGlobalTM.newMatchSemantics = True;
+#else
+    _XtGlobalTM.newMatchSemantics = False;
+#endif
+
+    rec = XtNew(ActionListRec);
+    rec->next = app->action_table;
+    app->action_table = rec;
+    LOCK_PROCESS;
+    rec->table = CompileActionTable(tmActions, XtNumber(tmActions), False,
+				    True);
+    rec->count = XtNumber(tmActions);
+    UNLOCK_PROCESS;
+    _XtGrabInitialize(app);
+}
+
+
+void XtCallActionProc(
+    Widget widget,
+    _Xconst char* action,
+    XEvent *event,
+    String *params,
+    Cardinal num_params)
+{
+    CompiledAction* actionP;
+    XrmQuark q = XrmStringToQuark(action);
+    Widget w = widget;
+    XtAppContext app = XtWidgetToApplicationContext(widget);
+    ActionList actionList;
+    Cardinal i;
+
+    LOCK_APP(app);
+    XtCheckSubclass(widget, coreWidgetClass,
+		    "XtCallActionProc first argument is not a subclass of Core");
+    LOCK_PROCESS;
+    do {
+	WidgetClass class = XtClass(w);
+	do {
+	    if ((actionP = GetClassActions(class)) != NULL)
+	      for (i = 0;
+		   i < class->core_class.num_actions;
+		   i++, actionP++) {
+
+		  if (actionP->signature == q) {
+		      ActionHook hook = app->action_hook_list;
+		      while (hook != NULL) {
+			  (*hook->proc)( widget,
+					hook->closure,
+					(String)action,
+					event,
+					params,
+					&num_params
+					);
+			  hook= hook->next;
+		      }
+		      (*(actionP->proc))
+			(widget, event, params, &num_params);
+		      UNLOCK_PROCESS;
+		      UNLOCK_APP(app);
+		      return;
+		  }
+	      }
+	    class = class->core_class.superclass;
+	} while (class != NULL);
+	w = XtParent(w);
+    } while (w != NULL);
+    UNLOCK_PROCESS;
+
+    for (actionList = app->action_table;
+	 actionList != NULL;
+	 actionList = actionList->next) {
+
+	for (i = 0, actionP = actionList->table;
+	     i < actionList->count;
+	     i++, actionP++) {
+	    if (actionP->signature == q) {
+		ActionHook hook = app->action_hook_list;
+		while (hook != NULL) {
+		    (*hook->proc)( widget,
+				  hook->closure,
+				  (String)action,
+				  event,
+				  params,
+				  &num_params
+				  );
+		    hook= hook->next;
+		}
+		(*(actionP->proc))
+		  (widget, event, params, &num_params);
+		UNLOCK_APP(app);
+		return;
+	    }
+	}
+
+    }
+
+    {
+	String params[2];
+	Cardinal num_params = 2;
+	params[0] = (String)action;
+	params[1] = XtName(widget);
+	XtAppWarningMsg(app,
+			"noActionProc", "xtCallActionProc", XtCXtToolkitError,
+			"No action proc named \"%s\" is registered for widget \"%s\"",
+			params, &num_params
+			);
+    }
+    UNLOCK_APP(app);
+}
+
+void _XtDoFreeBindings(
+    XtAppContext app)
+{
+    TMBindCache bcp;
+
+    while (app->free_bindings) {
+	bcp = app->free_bindings->next;
+	XtFree ((char *) app->free_bindings);
+	app->free_bindings = bcp;
+    }
+}
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;
+
+}
diff --git a/libXt/src/TMkey.c b/libXt/src/TMkey.c
index c56e257ff..e59bccae2 100644
--- a/libXt/src/TMkey.c
+++ b/libXt/src/TMkey.c
@@ -1,727 +1,727 @@
-/*LINTLIBRARY*/

-

-/***********************************************************

-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, 1994, 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.

-

-*/

-

-#define XK_MISCELLANY

-#define XK_LATIN1

-#define XK_LATIN2

-#define XK_LATIN3

-#define XK_LATIN4

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include <X11/keysymdef.h>

-#ifdef XKB

-#include <X11/XKBlib.h>

-#endif

-

-#define FLUSHKEYCACHE(ctx) \

-	bzero((char *)&ctx->keycache, sizeof(TMKeyCache))

-

-/*

- * The following array reorders the modifier bits so that the most common ones

- * (used by a translator) are in the top-most bits with respect to the size of

- * the keycache.  The array currently just reverses the bits as a good guess.

- * This might be more trouble than it is worth, but it seems to help.

- */

-

-#define FM(i) i >> (8 - TMKEYCACHELOG2)

-static const unsigned char modmix[256] = {

-FM(0x0f), FM(0x8f), FM(0x4f), FM(0xcf), FM(0x2f), FM(0xaf), FM(0x6f), FM(0xef),

-FM(0x1f), FM(0x9f), FM(0x5f), FM(0xdf), FM(0x3f), FM(0xbf), FM(0x7f), FM(0xff),

-FM(0x07), FM(0x87), FM(0x47), FM(0xc7), FM(0x27), FM(0xa7), FM(0x67), FM(0xe7),

-FM(0x17), FM(0x97), FM(0x57), FM(0xd7), FM(0x37), FM(0xb7), FM(0x77), FM(0xf7),

-FM(0x0b), FM(0x8b), FM(0x4b), FM(0xcb), FM(0x2b), FM(0xab), FM(0x6b), FM(0xeb),

-FM(0x1b), FM(0x9b), FM(0x5b), FM(0xdb), FM(0x3b), FM(0xbb), FM(0x7b), FM(0xfb),

-FM(0x03), FM(0x83), FM(0x43), FM(0xc3), FM(0x23), FM(0xa3), FM(0x63), FM(0xe3),

-FM(0x13), FM(0x93), FM(0x53), FM(0xd3), FM(0x33), FM(0xb3), FM(0x73), FM(0xf3),

-FM(0x0d), FM(0x8d), FM(0x4d), FM(0xcd), FM(0x2d), FM(0xad), FM(0x6d), FM(0xed),

-FM(0x1d), FM(0x9d), FM(0x5d), FM(0xdd), FM(0x3d), FM(0xbd), FM(0x7d), FM(0xfd),

-FM(0x05), FM(0x85), FM(0x45), FM(0xc5), FM(0x25), FM(0xa5), FM(0x65), FM(0xe5),

-FM(0x15), FM(0x95), FM(0x55), FM(0xd5), FM(0x35), FM(0xb5), FM(0x75), FM(0xf5),

-FM(0x09), FM(0x89), FM(0x49), FM(0xc9), FM(0x29), FM(0xa9), FM(0x69), FM(0xe9),

-FM(0x19), FM(0x99), FM(0x59), FM(0xd9), FM(0x39), FM(0xb9), FM(0x79), FM(0xf9),

-FM(0x01), FM(0x81), FM(0x41), FM(0xc1), FM(0x21), FM(0xa1), FM(0x61), FM(0xe1),

-FM(0x11), FM(0x91), FM(0x51), FM(0xd1), FM(0x31), FM(0xb1), FM(0x71), FM(0xf1),

-FM(0x00), FM(0x8e), FM(0x4e), FM(0xce), FM(0x2e), FM(0xae), FM(0x6e), FM(0xee),

-FM(0x1e), FM(0x9e), FM(0x5e), FM(0xde), FM(0x3e), FM(0xbe), FM(0x7e), FM(0xfe),

-FM(0x08), FM(0x88), FM(0x48), FM(0xc8), FM(0x28), FM(0xa8), FM(0x68), FM(0xe8),

-FM(0x18), FM(0x98), FM(0x58), FM(0xd8), FM(0x38), FM(0xb8), FM(0x78), FM(0xf8),

-FM(0x04), FM(0x84), FM(0x44), FM(0xc4), FM(0x24), FM(0xa4), FM(0x64), FM(0xe4),

-FM(0x14), FM(0x94), FM(0x54), FM(0xd4), FM(0x34), FM(0xb4), FM(0x74), FM(0xf4),

-FM(0x0c), FM(0x8c), FM(0x4c), FM(0xcc), FM(0x2c), FM(0xac), FM(0x6c), FM(0xec),

-FM(0x1c), FM(0x9c), FM(0x5c), FM(0xdc), FM(0x3c), FM(0xbc), FM(0x7c), FM(0xfc),

-FM(0x02), FM(0x82), FM(0x42), FM(0xc2), FM(0x22), FM(0xa2), FM(0x62), FM(0xe2),

-FM(0x12), FM(0x92), FM(0x52), FM(0xd2), FM(0x32), FM(0xb2), FM(0x72), FM(0xf2),

-FM(0x0a), FM(0x8a), FM(0x4a), FM(0xca), FM(0x2a), FM(0xaa), FM(0x6a), FM(0xea),

-FM(0x1a), FM(0x9a), FM(0x5a), FM(0xda), FM(0x3a), FM(0xba), FM(0x7a), FM(0xfa),

-FM(0x06), FM(0x86), FM(0x46), FM(0xc6), FM(0x26), FM(0xa6), FM(0x66), FM(0xe6),

-FM(0x16), FM(0x96), FM(0x56), FM(0xd6), FM(0x36), FM(0xb6), FM(0x76), FM(0xf6),

-FM(0x0e), FM(0x8e), FM(0x4e), FM(0xce), FM(0x2e), FM(0xae), FM(0x6e), FM(0xee),

-FM(0x1e), FM(0x9e), FM(0x5e), FM(0xde), FM(0x3e), FM(0xbe), FM(0x7e), FM(0xfe)

-};

-#undef FM

-

-#define MOD_RETURN(ctx, key) (ctx)->keycache.modifiers_return[key]

-

-#define TRANSLATE(ctx,pd,dpy,key,mod,mod_ret,sym_ret) \

-{ \

-    int _i_ = (((key) - (pd)->min_keycode + modmix[(mod) & 0xff]) & \

-	       (TMKEYCACHESIZE-1)); \

-    if ((key) == 0) { /* Xlib XIM composed input */ \

-	mod_ret = 0; \

-	sym_ret = 0; \

-    } else if (   /* not Xlib XIM composed input */ \

-	(ctx)->keycache.keycode[_i_] == (key) && \

-	(ctx)->keycache.modifiers[_i_] == (mod)) { \

-	mod_ret = MOD_RETURN(ctx, key); \

-	sym_ret = (ctx)->keycache.keysym[_i_]; \

-    } else { \

-	XtTranslateKeycode(dpy, key, mod, &mod_ret, &sym_ret); \

-	(ctx)->keycache.keycode[_i_] = key; \

-	(ctx)->keycache.modifiers[_i_] = (unsigned char)(mod); \

-	(ctx)->keycache.keysym[_i_] = sym_ret; \

-	MOD_RETURN(ctx, key) = (unsigned char)mod_ret; \

-    } \

-}

-

-#define UPDATE_CACHE(ctx, pd, key, mod, mod_ret, sym_ret) \

-{ \

-    int _i_ = (((key) - (pd)->min_keycode + modmix[(mod) & 0xff]) & \

-	       (TMKEYCACHESIZE-1)); \

-    (ctx)->keycache.keycode[_i_] = key; \

-    (ctx)->keycache.modifiers[_i_] = (unsigned char)(mod); \

-    (ctx)->keycache.keysym[_i_] = sym_ret; \

-    MOD_RETURN(ctx, key) = (unsigned char)mod_ret; \

-}

-

-/* usual number of expected keycodes in XtKeysymToKeycodeList */

-#define KEYCODE_ARRAY_SIZE 10

-

-Boolean _XtComputeLateBindings(

-    Display *dpy,

-    LateBindingsPtr lateModifiers,

-    Modifiers *computed,

-    Modifiers *computedMask)

-{

-    int i,j,ref;

-    ModToKeysymTable* temp;

-    XtPerDisplay perDisplay;

-    Boolean found;

-    KeySym tempKeysym = NoSymbol;

-

-    perDisplay = _XtGetPerDisplay(dpy);

-    if (perDisplay == NULL) {

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-		"displayError","invalidDisplay",XtCXtToolkitError,

-            "Can't find display structure",

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

-         return FALSE;

-    }

-    _InitializeKeysymTables(dpy, perDisplay);

-    for (ref=0; lateModifiers[ref].keysym; ref++) {

-        found = FALSE;

-        for (i=0;i<8;i++) {

-            temp = &(perDisplay->modsToKeysyms[i]);

-            for (j=0;j<temp->count;j++){

-                if (perDisplay->modKeysyms[temp->idx+j] ==

-		    lateModifiers[ref].keysym) {

-                    *computedMask = *computedMask | temp->mask;

-                    if (!lateModifiers[ref].knot)

-		      *computed |= temp->mask;

-                    tempKeysym = lateModifiers[ref].keysym;

-                    found = TRUE; break;

-                }

-            }

-            if (found) break;

-        }

-        if (!found  && !lateModifiers[ref].knot)

-            if (!lateModifiers[ref].pair && (tempKeysym == NoSymbol))

-                return FALSE;

-        /* if you didn't find the modifier and the modifier must be

-           asserted then return FALSE. If you didn't find the modifier

-           and the modifier must be off, then it is OK . Don't

-           return FALSE if this is the first member of a pair or if

-           it is the second member of a pair when the first member

-           was bound to a modifier */

-    if (!lateModifiers[ref].pair) tempKeysym = NoSymbol;

-    }

-    return TRUE;

-}

-

-void _XtAllocTMContext(

-    XtPerDisplay pd)

-{

-    TMKeyContext ctx;

-    ctx = (TMKeyContext)_XtHeapAlloc(&pd->heap,

-				     sizeof(TMKeyContextRec));

-    ctx->event = NULL;

-    ctx->serial = 0;

-    ctx->keysym = NoSymbol;

-    ctx->modifiers = 0;

-    FLUSHKEYCACHE(ctx);

-    pd->tm_context = ctx;

-}

-

-static unsigned int num_bits(unsigned long mask)

-{

-    register unsigned long y;

-

-    y = (mask >> 1) &033333333333;

-    y = mask - y - ((y >>1) & 033333333333);

-    return ((unsigned int) (((y + (y >> 3)) & 030707070707) % 077));

-}

-

-Boolean _XtMatchUsingDontCareMods(

-    TMTypeMatch 	typeMatch,

-    TMModifierMatch 	modMatch,

-    TMEventPtr 		eventSeq)

-{

-    Modifiers modifiers_return;

-    KeySym keysym_return;

-    Modifiers useful_mods;

-    int i, num_modbits;

-    Modifiers computed = 0;

-    Modifiers computedMask = 0;

-    Boolean resolved = TRUE;

-    Display *dpy = eventSeq->xev->xany.display;

-    XtPerDisplay pd;

-    TMKeyContext tm_context;

-

-    if (modMatch->lateModifiers != NULL)

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

-					  &computed, &computedMask);

-    if (!resolved) return FALSE;

-    computed |= modMatch->modifiers;

-    computedMask |= modMatch->modifierMask; /* gives do-care mask */

-

-    if ( (computed & computedMask) ==

-        (eventSeq->event.modifiers & computedMask) ) {

-

-	pd = _XtGetPerDisplay(dpy);

-	tm_context = pd->tm_context;

-	TRANSLATE(tm_context, pd, dpy, (KeyCode)eventSeq->event.eventCode,

-			    (unsigned)0, modifiers_return, keysym_return);

-

-        if ((keysym_return & typeMatch->eventCodeMask)  == typeMatch->eventCode ) {

-	    tm_context->event = eventSeq->xev;

-	    tm_context->serial = eventSeq->xev->xany.serial;

-	    tm_context->keysym = keysym_return;

-	    tm_context->modifiers = (Modifiers)0;

-	    return TRUE;

-	}

-        useful_mods = ~computedMask & modifiers_return;

-        if (useful_mods == 0) return FALSE;

-

-	switch (num_modbits = num_bits(useful_mods)) {

-	case 1:

-	case 8:

-	    /*

-	     * one modbit should never happen, in fact the implementation

-	     * of XtTranslateKey and XmTranslateKey guarantee that it

-	     * won't, so don't care if the loop is set up for the case

-	     * when one modbit is set.

-	     * The performance implications of all eight modbits being

-	     * set is horrendous. This isn't a problem with Xt/Xaw based

-	     * applications. We can only hope that Motif's virtual

-	     * modifiers won't result in all eight modbits being set.

-	     */

-	    for (i = useful_mods; i > 0; i--) {

-		TRANSLATE(tm_context, pd, dpy, eventSeq->event.eventCode,

-			  (Modifiers)i, modifiers_return, keysym_return);

-		if (keysym_return ==

-		    (typeMatch->eventCode & typeMatch->eventCodeMask)) {

-		    tm_context->event = eventSeq->xev;

-		    tm_context->serial = eventSeq->xev->xany.serial;

-		    tm_context->keysym = keysym_return;

-		    tm_context->modifiers = (Modifiers)i;

-		    return TRUE;

-		}

-	    }

-	    break;

-	default: /* (2..7) */

-	    {

-	    /*

-	     * Only translate using combinations of the useful modifiers.

-	     * to minimize the chance of invalidating the cache.

-	     */

-		static char pows[] = { 0, 1, 3, 7, 15, 31, 63, 127 };

-		Modifiers tmod, mod_masks[8];

-		int j;

-		for (tmod = 1, i = 0; tmod <= (Mod5Mask<<1); tmod <<= 1)

-		    if (tmod & useful_mods) mod_masks[i++] = tmod;

-		for (j = (int) pows[num_modbits]; j > 0; j--) {

-		    tmod = 0;

-		    for (i = 0; i < num_modbits; i++)

-			if (j & (1<<i)) tmod |= mod_masks[i];

-		    TRANSLATE(tm_context, pd, dpy, eventSeq->event.eventCode,

-			      tmod, modifiers_return, keysym_return);

-		    if (keysym_return ==

-			(typeMatch->eventCode & typeMatch->eventCodeMask)) {

-			tm_context->event = eventSeq->xev;

-			tm_context->serial = eventSeq->xev->xany.serial;

-			tm_context->keysym = keysym_return;

-			tm_context->modifiers = (Modifiers)i;

-			return TRUE;

-		    }

-		}

-	    }

-	    break;

-	} /* switch (num_modbits) */

-    }

-    return FALSE;

-}

-

-void XtConvertCase(

-    Display *dpy,

-    KeySym keysym,

-    KeySym *lower_return,

-    KeySym *upper_return)

-{

-    XtPerDisplay pd;

-    CaseConverterPtr ptr;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-

-    *lower_return = *upper_return = keysym;

-    for (ptr=pd->case_cvt;  ptr; ptr = ptr->next)

-	if (ptr->start <= keysym && keysym <= ptr->stop) {

-	    (*ptr->proc)(dpy, keysym, lower_return, upper_return);

-	    return;

-	}

-    XConvertCase(keysym, lower_return, upper_return);

-    UNLOCK_APP(app);

-}

-

-Boolean _XtMatchUsingStandardMods (

-    TMTypeMatch typeMatch,

-    TMModifierMatch modMatch,

-    TMEventPtr eventSeq)

-{

-    Modifiers modifiers_return;

-    KeySym keysym_return;

-    Modifiers computed= 0;

-    Modifiers computedMask = 0;

-    Boolean resolved = TRUE;

-    Display *dpy = eventSeq->xev->xany.display;

-    XtPerDisplay pd = _XtGetPerDisplay(dpy);

-    TMKeyContext tm_context = pd->tm_context;

-    Modifiers translateModifiers;

-

-    /* To maximize cache utilization, we mask off nonstandard modifiers

-       before cache lookup.  For a given key translator, standard modifiers

-       are constant per KeyCode.  If a key translator uses no standard

-       modifiers this implementation will never reference the cache.

-     */

-

-    modifiers_return = MOD_RETURN(tm_context, eventSeq->event.eventCode);

-    if (!modifiers_return) {

-	XtTranslateKeycode(dpy, (KeyCode)eventSeq->event.eventCode,

-			   eventSeq->event.modifiers, &modifiers_return,

-			   &keysym_return);

-	translateModifiers = eventSeq->event.modifiers & modifiers_return;

-	UPDATE_CACHE(tm_context, pd, eventSeq->event.eventCode,

-		     translateModifiers, modifiers_return, keysym_return);

-    } else {

-	translateModifiers = eventSeq->event.modifiers & modifiers_return;

-	TRANSLATE(tm_context, pd, dpy, (KeyCode)eventSeq->event.eventCode,

-		  translateModifiers, modifiers_return, keysym_return);

-    }

-

-    if ((typeMatch->eventCode & typeMatch->eventCodeMask) ==

-             (keysym_return & typeMatch->eventCodeMask)) {

-        if (modMatch->lateModifiers != NULL)

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

-					      &computed, &computedMask);

-        if (!resolved) return FALSE;

-        computed |= modMatch->modifiers;

-        computedMask |= modMatch->modifierMask;

-

-        if ((computed & computedMask) ==

-	    (eventSeq->event.modifiers & ~modifiers_return & computedMask)) {

-	    tm_context->event = eventSeq->xev;

-	    tm_context->serial = eventSeq->xev->xany.serial;

-	    tm_context->keysym = keysym_return;

-	    tm_context->modifiers = translateModifiers;

-	    return TRUE;

-	}

-    }

-    return FALSE;

-}

-

-

-void _XtBuildKeysymTables(

-    Display *dpy,

-    register XtPerDisplay pd)

-{

-    ModToKeysymTable *table;

-    int maxCount,i,j,k,tempCount,idx;

-    KeySym keysym,tempKeysym;

-    XModifierKeymap* modKeymap;

-    KeyCode keycode;

-#define KeysymTableSize 16

-

-    FLUSHKEYCACHE(pd->tm_context);

-    if (pd->keysyms)

-	XFree( (char *)pd->keysyms );

-    pd->keysyms_serial = NextRequest(dpy);

-    pd->keysyms = XGetKeyboardMapping(dpy, pd->min_keycode,

-				      pd->max_keycode-pd->min_keycode+1,

-				      &pd->keysyms_per_keycode);

-    if (pd->modKeysyms)

-	XtFree((char *)pd->modKeysyms);

-    if (pd->modsToKeysyms)

-	XtFree((char *)pd->modsToKeysyms);

-    pd->modKeysyms = (KeySym*)__XtMalloc((Cardinal)KeysymTableSize*sizeof(KeySym));

-    maxCount = KeysymTableSize;

-    tempCount = 0;

-

-    table = (ModToKeysymTable*)__XtMalloc((Cardinal)8*sizeof(ModToKeysymTable));

-    pd->modsToKeysyms = table;

-

-    table[0].mask = ShiftMask;

-    table[1].mask = LockMask;

-    table[2].mask = ControlMask;

-    table[3].mask = Mod1Mask;

-    table[4].mask = Mod2Mask;

-    table[5].mask = Mod3Mask;

-    table[6].mask = Mod4Mask;

-    table[7].mask = Mod5Mask;

-    tempKeysym = 0;

-

-    modKeymap = XGetModifierMapping(dpy);

-    for (i=0;i<32;i++)

-	pd->isModifier[i] = 0;

-    pd->mode_switch = 0;

-    pd->num_lock = 0;

-    for (i=0;i<8;i++) {

-        table[i].idx = tempCount;

-        table[i].count = 0;

-        for (j=0;j<modKeymap->max_keypermod;j++) {

-            keycode = modKeymap->modifiermap[i*modKeymap->max_keypermod+j];

-            if (keycode != 0) {

-		pd->isModifier[keycode>>3] |= 1 << (keycode & 7);

-                for (k=0; k<pd->keysyms_per_keycode;k++) {

-                    idx = ((keycode-pd->min_keycode)*

-                             pd->keysyms_per_keycode)+k;

-                    keysym = pd->keysyms[idx];

-		    if ((keysym == XK_Mode_switch) && (i > 2))

-			pd->mode_switch |= 1 << i;

-		    if ((keysym == XK_Num_Lock) && (i > 2))

-			pd->num_lock |= 1 << i;

-                    if (keysym != 0 && keysym != tempKeysym ){

-                        if (tempCount==maxCount) {

-                            maxCount += KeysymTableSize;

-                            pd->modKeysyms = (KeySym*)XtRealloc(

-                                (char*)pd->modKeysyms,

-                                (unsigned) (maxCount*sizeof(KeySym)) );

-                        }

-                        pd->modKeysyms[tempCount++] = keysym;

-                        table[i].count++;

-                        tempKeysym = keysym;

-                    }

-                }

-            }

-        }

-    }

-    pd->lock_meaning = NoSymbol;

-    for (i = 0; i < table[1].count; i++) {

-	keysym = pd->modKeysyms[table[1].idx + i];

-	if (keysym == XK_Caps_Lock) {

-	    pd->lock_meaning = XK_Caps_Lock;

-	    break;

-	} else if (keysym == XK_Shift_Lock) {

-	    pd->lock_meaning = XK_Shift_Lock;

-	}

-    }

-    XFreeModifiermap(modKeymap);

-}

-

-void XtTranslateKeycode (

-    Display *dpy,

-    _XtKeyCode keycode,

-    Modifiers modifiers,

-    Modifiers *modifiers_return,

-    KeySym *keysym_return)

-{

-    XtPerDisplay pd;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-    _InitializeKeysymTables(dpy, pd);

-    (*pd->defaultKeycodeTranslator)(

-            dpy,keycode,modifiers,modifiers_return,keysym_return);

-    UNLOCK_APP(app);

-}

-

-/* This code should match XTranslateKey (internal, sigh) in Xlib */

-void XtTranslateKey(

-    register Display *dpy,

-    _XtKeyCode keycode,

-    Modifiers modifiers,

-    Modifiers *modifiers_return,

-    KeySym *keysym_return)

-{

-#ifndef XKB

-    XtPerDisplay pd;

-    int per;

-    register KeySym *syms;

-    KeySym sym, lsym, usym;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-    *modifiers_return = (ShiftMask|LockMask) | pd->mode_switch | pd->num_lock;

-    if (((int)keycode < pd->min_keycode) || ((int)keycode > pd->max_keycode)) {

-	*keysym_return = NoSymbol;

-	UNLOCK_APP(app);

-	return;

-    }

-    per = pd->keysyms_per_keycode;

-    syms = &pd->keysyms[(keycode - pd->min_keycode) * per];

-    while ((per > 2) && (syms[per - 1] == NoSymbol))

-	per--;

-    if ((per > 2) && (modifiers & pd->mode_switch)) {

-	syms += 2;

-	per -= 2;

-    }

-    if ((modifiers & pd->num_lock) &&

-	(per > 1 && (IsKeypadKey(syms[1]) || IsPrivateKeypadKey(syms[1])))) {

-	if ((modifiers & ShiftMask) ||

-	    ((modifiers & LockMask) && (pd->lock_meaning == XK_Shift_Lock)))

-	    *keysym_return = syms[0];

-	else

-	    *keysym_return = syms[1];

-    } else if (!(modifiers & ShiftMask) &&

-	(!(modifiers & LockMask) || (pd->lock_meaning == NoSymbol))) {

-	if ((per == 1) || (syms[1] == NoSymbol))

-	    XtConvertCase(dpy, syms[0], keysym_return, &usym);

-	else

-	    *keysym_return = syms[0];

-    } else if (!(modifiers & LockMask) ||

-	       (pd->lock_meaning != XK_Caps_Lock)) {

-	if ((per == 1) || ((usym = syms[1]) == NoSymbol))

-	    XtConvertCase(dpy, syms[0], &lsym, &usym);

-	*keysym_return = usym;

-    } else {

-	if ((per == 1) || ((sym = syms[1]) == NoSymbol))

-	    sym = syms[0];

-	XtConvertCase(dpy, sym, &lsym, &usym);

-	if (!(modifiers & ShiftMask) && (sym != syms[0]) &&

-	    ((sym != usym) || (lsym == usym)))

-	    XtConvertCase(dpy, syms[0], &lsym, &usym);

-	*keysym_return = usym;

-    }

-

-    if (*keysym_return == XK_VoidSymbol)

-	*keysym_return = NoSymbol;

-    UNLOCK_APP(app);

-#else

-    XkbLookupKeySym(dpy, keycode, modifiers, modifiers_return, keysym_return);

-#endif

-}

-

-void XtSetKeyTranslator(

-    Display *dpy,

-    XtKeyProc translator)

-{

-    XtPerDisplay pd;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-

-    pd->defaultKeycodeTranslator = translator;

-    FLUSHKEYCACHE(pd->tm_context);

-    /* XXX should now redo grabs */

-    UNLOCK_APP(app);

-}

-

-void XtRegisterCaseConverter(

-    Display *dpy,

-    XtCaseProc proc,

-    KeySym start,

-    KeySym stop)

-{

-    XtPerDisplay pd;

-    CaseConverterPtr ptr, prev;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-

-    ptr = (CaseConverterPtr) __XtMalloc(sizeof(CaseConverterRec));

-    ptr->start = start;

-    ptr->stop = stop;

-    ptr->proc = proc;

-    ptr->next = pd->case_cvt;

-    pd->case_cvt = ptr;

-

-    /* Remove obsolete case converters from the list */

-    prev = ptr;

-    for (ptr=ptr->next; ptr; ptr=prev->next) {

-	if (start <= ptr->start && stop >= ptr->stop) {

-	    prev->next = ptr->next;

-	    XtFree((char *)ptr);

-	}

-	else prev = ptr;

-    }

-    FLUSHKEYCACHE(pd->tm_context);

-    /* XXX should now redo grabs */

-    UNLOCK_APP(app);

-}

-

-KeySym *XtGetKeysymTable(

-    Display *dpy,

-    KeyCode *min_keycode_return,

-    int *keysyms_per_keycode_return)

-{

-    XtPerDisplay pd;

-    KeySym* retval;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-    _InitializeKeysymTables(dpy, pd);

-    *min_keycode_return = pd->min_keycode; /* %%% */

-    *keysyms_per_keycode_return = pd->keysyms_per_keycode;

-    retval = pd->keysyms;

-    UNLOCK_APP(app);

-    return retval;

-}

-

-void XtKeysymToKeycodeList(

-    Display *dpy,

-    KeySym keysym,

-    KeyCode **keycodes_return,

-    Cardinal *keycount_return)

-{

-    XtPerDisplay pd;

-    unsigned keycode;

-    int per, match;

-    register KeySym *syms;

-    register int i, j;

-    KeySym lsym, usym;

-    unsigned maxcodes = 0;

-    unsigned ncodes = 0;

-    KeyCode *keycodes, *codeP = NULL;

-    DPY_TO_APPCON(dpy);

-

-    LOCK_APP(app);

-    pd = _XtGetPerDisplay(dpy);

-    _InitializeKeysymTables(dpy, pd);

-    keycodes = NULL;

-    per = pd->keysyms_per_keycode;

-    for (syms = pd->keysyms, keycode = (unsigned) pd->min_keycode;

-	 (int)keycode <= pd->max_keycode;

-	 syms += per, keycode++) {

-	match = 0;

-	for (j = 0; j < per; j++) {

-	    if (syms[j] == keysym) {

-		match = 1;

-		break;

-	    }

-	}

-	if (!match)

-	    for (i = 1; i < 5; i += 2) {

-		if ((per == i) || ((per > i) && (syms[i] == NoSymbol))) {

-		    XtConvertCase(dpy, syms[i-1], &lsym, &usym);

-		    if ((lsym == keysym) || (usym == keysym)) {

-			match = 1;

-			break;

-		    }

-		}

-	    }

-	if (match) {

-	    if (ncodes == maxcodes) {

-		KeyCode *old = keycodes;

-		maxcodes += KEYCODE_ARRAY_SIZE;

-		keycodes = (KeyCode*)__XtMalloc(maxcodes*sizeof(KeyCode));

-		if (ncodes) {

-		    (void) memmove((char *)keycodes, (char *)old,

-				   ncodes*sizeof(KeyCode) );

-		    XtFree((char *)old);

-		}

-		codeP = &keycodes[ncodes];

-	    }

-	    *codeP++ = (KeyCode) keycode;

-	    ncodes++;

-	}

-    }

-    *keycodes_return = keycodes;

-    *keycount_return = ncodes;

-    UNLOCK_APP(app);

-}

+/*LINTLIBRARY*/
+
+/***********************************************************
+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, 1994, 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.
+
+*/
+
+#define XK_MISCELLANY
+#define XK_LATIN1
+#define XK_LATIN2
+#define XK_LATIN3
+#define XK_LATIN4
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include <X11/keysymdef.h>
+#ifdef XKB
+#include <X11/XKBlib.h>
+#endif
+
+#define FLUSHKEYCACHE(ctx) \
+	bzero((char *)&ctx->keycache, sizeof(TMKeyCache))
+
+/*
+ * The following array reorders the modifier bits so that the most common ones
+ * (used by a translator) are in the top-most bits with respect to the size of
+ * the keycache.  The array currently just reverses the bits as a good guess.
+ * This might be more trouble than it is worth, but it seems to help.
+ */
+
+#define FM(i) i >> (8 - TMKEYCACHELOG2)
+static const unsigned char modmix[256] = {
+FM(0x0f), FM(0x8f), FM(0x4f), FM(0xcf), FM(0x2f), FM(0xaf), FM(0x6f), FM(0xef),
+FM(0x1f), FM(0x9f), FM(0x5f), FM(0xdf), FM(0x3f), FM(0xbf), FM(0x7f), FM(0xff),
+FM(0x07), FM(0x87), FM(0x47), FM(0xc7), FM(0x27), FM(0xa7), FM(0x67), FM(0xe7),
+FM(0x17), FM(0x97), FM(0x57), FM(0xd7), FM(0x37), FM(0xb7), FM(0x77), FM(0xf7),
+FM(0x0b), FM(0x8b), FM(0x4b), FM(0xcb), FM(0x2b), FM(0xab), FM(0x6b), FM(0xeb),
+FM(0x1b), FM(0x9b), FM(0x5b), FM(0xdb), FM(0x3b), FM(0xbb), FM(0x7b), FM(0xfb),
+FM(0x03), FM(0x83), FM(0x43), FM(0xc3), FM(0x23), FM(0xa3), FM(0x63), FM(0xe3),
+FM(0x13), FM(0x93), FM(0x53), FM(0xd3), FM(0x33), FM(0xb3), FM(0x73), FM(0xf3),
+FM(0x0d), FM(0x8d), FM(0x4d), FM(0xcd), FM(0x2d), FM(0xad), FM(0x6d), FM(0xed),
+FM(0x1d), FM(0x9d), FM(0x5d), FM(0xdd), FM(0x3d), FM(0xbd), FM(0x7d), FM(0xfd),
+FM(0x05), FM(0x85), FM(0x45), FM(0xc5), FM(0x25), FM(0xa5), FM(0x65), FM(0xe5),
+FM(0x15), FM(0x95), FM(0x55), FM(0xd5), FM(0x35), FM(0xb5), FM(0x75), FM(0xf5),
+FM(0x09), FM(0x89), FM(0x49), FM(0xc9), FM(0x29), FM(0xa9), FM(0x69), FM(0xe9),
+FM(0x19), FM(0x99), FM(0x59), FM(0xd9), FM(0x39), FM(0xb9), FM(0x79), FM(0xf9),
+FM(0x01), FM(0x81), FM(0x41), FM(0xc1), FM(0x21), FM(0xa1), FM(0x61), FM(0xe1),
+FM(0x11), FM(0x91), FM(0x51), FM(0xd1), FM(0x31), FM(0xb1), FM(0x71), FM(0xf1),
+FM(0x00), FM(0x8e), FM(0x4e), FM(0xce), FM(0x2e), FM(0xae), FM(0x6e), FM(0xee),
+FM(0x1e), FM(0x9e), FM(0x5e), FM(0xde), FM(0x3e), FM(0xbe), FM(0x7e), FM(0xfe),
+FM(0x08), FM(0x88), FM(0x48), FM(0xc8), FM(0x28), FM(0xa8), FM(0x68), FM(0xe8),
+FM(0x18), FM(0x98), FM(0x58), FM(0xd8), FM(0x38), FM(0xb8), FM(0x78), FM(0xf8),
+FM(0x04), FM(0x84), FM(0x44), FM(0xc4), FM(0x24), FM(0xa4), FM(0x64), FM(0xe4),
+FM(0x14), FM(0x94), FM(0x54), FM(0xd4), FM(0x34), FM(0xb4), FM(0x74), FM(0xf4),
+FM(0x0c), FM(0x8c), FM(0x4c), FM(0xcc), FM(0x2c), FM(0xac), FM(0x6c), FM(0xec),
+FM(0x1c), FM(0x9c), FM(0x5c), FM(0xdc), FM(0x3c), FM(0xbc), FM(0x7c), FM(0xfc),
+FM(0x02), FM(0x82), FM(0x42), FM(0xc2), FM(0x22), FM(0xa2), FM(0x62), FM(0xe2),
+FM(0x12), FM(0x92), FM(0x52), FM(0xd2), FM(0x32), FM(0xb2), FM(0x72), FM(0xf2),
+FM(0x0a), FM(0x8a), FM(0x4a), FM(0xca), FM(0x2a), FM(0xaa), FM(0x6a), FM(0xea),
+FM(0x1a), FM(0x9a), FM(0x5a), FM(0xda), FM(0x3a), FM(0xba), FM(0x7a), FM(0xfa),
+FM(0x06), FM(0x86), FM(0x46), FM(0xc6), FM(0x26), FM(0xa6), FM(0x66), FM(0xe6),
+FM(0x16), FM(0x96), FM(0x56), FM(0xd6), FM(0x36), FM(0xb6), FM(0x76), FM(0xf6),
+FM(0x0e), FM(0x8e), FM(0x4e), FM(0xce), FM(0x2e), FM(0xae), FM(0x6e), FM(0xee),
+FM(0x1e), FM(0x9e), FM(0x5e), FM(0xde), FM(0x3e), FM(0xbe), FM(0x7e), FM(0xfe)
+};
+#undef FM
+
+#define MOD_RETURN(ctx, key) (ctx)->keycache.modifiers_return[key]
+
+#define TRANSLATE(ctx,pd,dpy,key,mod,mod_ret,sym_ret) \
+{ \
+    int _i_ = (((key) - (pd)->min_keycode + modmix[(mod) & 0xff]) & \
+	       (TMKEYCACHESIZE-1)); \
+    if ((key) == 0) { /* Xlib XIM composed input */ \
+	mod_ret = 0; \
+	sym_ret = 0; \
+    } else if (   /* not Xlib XIM composed input */ \
+	(ctx)->keycache.keycode[_i_] == (key) && \
+	(ctx)->keycache.modifiers[_i_] == (mod)) { \
+	mod_ret = MOD_RETURN(ctx, key); \
+	sym_ret = (ctx)->keycache.keysym[_i_]; \
+    } else { \
+	XtTranslateKeycode(dpy, key, mod, &mod_ret, &sym_ret); \
+	(ctx)->keycache.keycode[_i_] = key; \
+	(ctx)->keycache.modifiers[_i_] = (unsigned char)(mod); \
+	(ctx)->keycache.keysym[_i_] = sym_ret; \
+	MOD_RETURN(ctx, key) = (unsigned char)mod_ret; \
+    } \
+}
+
+#define UPDATE_CACHE(ctx, pd, key, mod, mod_ret, sym_ret) \
+{ \
+    int _i_ = (((key) - (pd)->min_keycode + modmix[(mod) & 0xff]) & \
+	       (TMKEYCACHESIZE-1)); \
+    (ctx)->keycache.keycode[_i_] = key; \
+    (ctx)->keycache.modifiers[_i_] = (unsigned char)(mod); \
+    (ctx)->keycache.keysym[_i_] = sym_ret; \
+    MOD_RETURN(ctx, key) = (unsigned char)mod_ret; \
+}
+
+/* usual number of expected keycodes in XtKeysymToKeycodeList */
+#define KEYCODE_ARRAY_SIZE 10
+
+Boolean _XtComputeLateBindings(
+    Display *dpy,
+    LateBindingsPtr lateModifiers,
+    Modifiers *computed,
+    Modifiers *computedMask)
+{
+    int i,j,ref;
+    ModToKeysymTable* temp;
+    XtPerDisplay perDisplay;
+    Boolean found;
+    KeySym tempKeysym = NoSymbol;
+
+    perDisplay = _XtGetPerDisplay(dpy);
+    if (perDisplay == NULL) {
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+		"displayError","invalidDisplay",XtCXtToolkitError,
+            "Can't find display structure",
+            (String *)NULL, (Cardinal *)NULL);
+         return FALSE;
+    }
+    _InitializeKeysymTables(dpy, perDisplay);
+    for (ref=0; lateModifiers[ref].keysym; ref++) {
+        found = FALSE;
+        for (i=0;i<8;i++) {
+            temp = &(perDisplay->modsToKeysyms[i]);
+            for (j=0;j<temp->count;j++){
+                if (perDisplay->modKeysyms[temp->idx+j] ==
+		    lateModifiers[ref].keysym) {
+                    *computedMask = *computedMask | temp->mask;
+                    if (!lateModifiers[ref].knot)
+		      *computed |= temp->mask;
+                    tempKeysym = lateModifiers[ref].keysym;
+                    found = TRUE; break;
+                }
+            }
+            if (found) break;
+        }
+        if (!found  && !lateModifiers[ref].knot)
+            if (!lateModifiers[ref].pair && (tempKeysym == NoSymbol))
+                return FALSE;
+        /* if you didn't find the modifier and the modifier must be
+           asserted then return FALSE. If you didn't find the modifier
+           and the modifier must be off, then it is OK . Don't
+           return FALSE if this is the first member of a pair or if
+           it is the second member of a pair when the first member
+           was bound to a modifier */
+    if (!lateModifiers[ref].pair) tempKeysym = NoSymbol;
+    }
+    return TRUE;
+}
+
+void _XtAllocTMContext(
+    XtPerDisplay pd)
+{
+    TMKeyContext ctx;
+    ctx = (TMKeyContext)_XtHeapAlloc(&pd->heap,
+				     sizeof(TMKeyContextRec));
+    ctx->event = NULL;
+    ctx->serial = 0;
+    ctx->keysym = NoSymbol;
+    ctx->modifiers = 0;
+    FLUSHKEYCACHE(ctx);
+    pd->tm_context = ctx;
+}
+
+static unsigned int num_bits(unsigned long mask)
+{
+    register unsigned long y;
+
+    y = (mask >> 1) &033333333333;
+    y = mask - y - ((y >>1) & 033333333333);
+    return ((unsigned int) (((y + (y >> 3)) & 030707070707) % 077));
+}
+
+Boolean _XtMatchUsingDontCareMods(
+    TMTypeMatch 	typeMatch,
+    TMModifierMatch 	modMatch,
+    TMEventPtr 		eventSeq)
+{
+    Modifiers modifiers_return;
+    KeySym keysym_return;
+    Modifiers useful_mods;
+    int i, num_modbits;
+    Modifiers computed = 0;
+    Modifiers computedMask = 0;
+    Boolean resolved = TRUE;
+    Display *dpy = eventSeq->xev->xany.display;
+    XtPerDisplay pd;
+    TMKeyContext tm_context;
+
+    if (modMatch->lateModifiers != NULL)
+	resolved = _XtComputeLateBindings(dpy, modMatch->lateModifiers,
+					  &computed, &computedMask);
+    if (!resolved) return FALSE;
+    computed |= modMatch->modifiers;
+    computedMask |= modMatch->modifierMask; /* gives do-care mask */
+
+    if ( (computed & computedMask) ==
+        (eventSeq->event.modifiers & computedMask) ) {
+
+	pd = _XtGetPerDisplay(dpy);
+	tm_context = pd->tm_context;
+	TRANSLATE(tm_context, pd, dpy, (KeyCode)eventSeq->event.eventCode,
+			    (unsigned)0, modifiers_return, keysym_return);
+
+        if ((keysym_return & typeMatch->eventCodeMask)  == typeMatch->eventCode ) {
+	    tm_context->event = eventSeq->xev;
+	    tm_context->serial = eventSeq->xev->xany.serial;
+	    tm_context->keysym = keysym_return;
+	    tm_context->modifiers = (Modifiers)0;
+	    return TRUE;
+	}
+        useful_mods = ~computedMask & modifiers_return;
+        if (useful_mods == 0) return FALSE;
+
+	switch (num_modbits = num_bits(useful_mods)) {
+	case 1:
+	case 8:
+	    /*
+	     * one modbit should never happen, in fact the implementation
+	     * of XtTranslateKey and XmTranslateKey guarantee that it
+	     * won't, so don't care if the loop is set up for the case
+	     * when one modbit is set.
+	     * The performance implications of all eight modbits being
+	     * set is horrendous. This isn't a problem with Xt/Xaw based
+	     * applications. We can only hope that Motif's virtual
+	     * modifiers won't result in all eight modbits being set.
+	     */
+	    for (i = useful_mods; i > 0; i--) {
+		TRANSLATE(tm_context, pd, dpy, eventSeq->event.eventCode,
+			  (Modifiers)i, modifiers_return, keysym_return);
+		if (keysym_return ==
+		    (typeMatch->eventCode & typeMatch->eventCodeMask)) {
+		    tm_context->event = eventSeq->xev;
+		    tm_context->serial = eventSeq->xev->xany.serial;
+		    tm_context->keysym = keysym_return;
+		    tm_context->modifiers = (Modifiers)i;
+		    return TRUE;
+		}
+	    }
+	    break;
+	default: /* (2..7) */
+	    {
+	    /*
+	     * Only translate using combinations of the useful modifiers.
+	     * to minimize the chance of invalidating the cache.
+	     */
+		static char pows[] = { 0, 1, 3, 7, 15, 31, 63, 127 };
+		Modifiers tmod, mod_masks[8];
+		int j;
+		for (tmod = 1, i = 0; tmod <= (Mod5Mask<<1); tmod <<= 1)
+		    if (tmod & useful_mods) mod_masks[i++] = tmod;
+		for (j = (int) pows[num_modbits]; j > 0; j--) {
+		    tmod = 0;
+		    for (i = 0; i < num_modbits; i++)
+			if (j & (1<<i)) tmod |= mod_masks[i];
+		    TRANSLATE(tm_context, pd, dpy, eventSeq->event.eventCode,
+			      tmod, modifiers_return, keysym_return);
+		    if (keysym_return ==
+			(typeMatch->eventCode & typeMatch->eventCodeMask)) {
+			tm_context->event = eventSeq->xev;
+			tm_context->serial = eventSeq->xev->xany.serial;
+			tm_context->keysym = keysym_return;
+			tm_context->modifiers = (Modifiers)i;
+			return TRUE;
+		    }
+		}
+	    }
+	    break;
+	} /* switch (num_modbits) */
+    }
+    return FALSE;
+}
+
+void XtConvertCase(
+    Display *dpy,
+    KeySym keysym,
+    KeySym *lower_return,
+    KeySym *upper_return)
+{
+    XtPerDisplay pd;
+    CaseConverterPtr ptr;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+
+    *lower_return = *upper_return = keysym;
+    for (ptr=pd->case_cvt;  ptr; ptr = ptr->next)
+	if (ptr->start <= keysym && keysym <= ptr->stop) {
+	    (*ptr->proc)(dpy, keysym, lower_return, upper_return);
+	    return;
+	}
+    XConvertCase(keysym, lower_return, upper_return);
+    UNLOCK_APP(app);
+}
+
+Boolean _XtMatchUsingStandardMods (
+    TMTypeMatch typeMatch,
+    TMModifierMatch modMatch,
+    TMEventPtr eventSeq)
+{
+    Modifiers modifiers_return;
+    KeySym keysym_return;
+    Modifiers computed= 0;
+    Modifiers computedMask = 0;
+    Boolean resolved = TRUE;
+    Display *dpy = eventSeq->xev->xany.display;
+    XtPerDisplay pd = _XtGetPerDisplay(dpy);
+    TMKeyContext tm_context = pd->tm_context;
+    Modifiers translateModifiers;
+
+    /* To maximize cache utilization, we mask off nonstandard modifiers
+       before cache lookup.  For a given key translator, standard modifiers
+       are constant per KeyCode.  If a key translator uses no standard
+       modifiers this implementation will never reference the cache.
+     */
+
+    modifiers_return = MOD_RETURN(tm_context, eventSeq->event.eventCode);
+    if (!modifiers_return) {
+	XtTranslateKeycode(dpy, (KeyCode)eventSeq->event.eventCode,
+			   eventSeq->event.modifiers, &modifiers_return,
+			   &keysym_return);
+	translateModifiers = eventSeq->event.modifiers & modifiers_return;
+	UPDATE_CACHE(tm_context, pd, eventSeq->event.eventCode,
+		     translateModifiers, modifiers_return, keysym_return);
+    } else {
+	translateModifiers = eventSeq->event.modifiers & modifiers_return;
+	TRANSLATE(tm_context, pd, dpy, (KeyCode)eventSeq->event.eventCode,
+		  translateModifiers, modifiers_return, keysym_return);
+    }
+
+    if ((typeMatch->eventCode & typeMatch->eventCodeMask) ==
+             (keysym_return & typeMatch->eventCodeMask)) {
+        if (modMatch->lateModifiers != NULL)
+            resolved = _XtComputeLateBindings(dpy, modMatch->lateModifiers,
+					      &computed, &computedMask);
+        if (!resolved) return FALSE;
+        computed |= modMatch->modifiers;
+        computedMask |= modMatch->modifierMask;
+
+        if ((computed & computedMask) ==
+	    (eventSeq->event.modifiers & ~modifiers_return & computedMask)) {
+	    tm_context->event = eventSeq->xev;
+	    tm_context->serial = eventSeq->xev->xany.serial;
+	    tm_context->keysym = keysym_return;
+	    tm_context->modifiers = translateModifiers;
+	    return TRUE;
+	}
+    }
+    return FALSE;
+}
+
+
+void _XtBuildKeysymTables(
+    Display *dpy,
+    register XtPerDisplay pd)
+{
+    ModToKeysymTable *table;
+    int maxCount,i,j,k,tempCount,idx;
+    KeySym keysym,tempKeysym;
+    XModifierKeymap* modKeymap;
+    KeyCode keycode;
+#define KeysymTableSize 16
+
+    FLUSHKEYCACHE(pd->tm_context);
+    if (pd->keysyms)
+	XFree( (char *)pd->keysyms );
+    pd->keysyms_serial = NextRequest(dpy);
+    pd->keysyms = XGetKeyboardMapping(dpy, pd->min_keycode,
+				      pd->max_keycode-pd->min_keycode+1,
+				      &pd->keysyms_per_keycode);
+    if (pd->modKeysyms)
+	XtFree((char *)pd->modKeysyms);
+    if (pd->modsToKeysyms)
+	XtFree((char *)pd->modsToKeysyms);
+    pd->modKeysyms = (KeySym*)__XtMalloc((Cardinal)KeysymTableSize*sizeof(KeySym));
+    maxCount = KeysymTableSize;
+    tempCount = 0;
+
+    table = (ModToKeysymTable*)__XtMalloc((Cardinal)8*sizeof(ModToKeysymTable));
+    pd->modsToKeysyms = table;
+
+    table[0].mask = ShiftMask;
+    table[1].mask = LockMask;
+    table[2].mask = ControlMask;
+    table[3].mask = Mod1Mask;
+    table[4].mask = Mod2Mask;
+    table[5].mask = Mod3Mask;
+    table[6].mask = Mod4Mask;
+    table[7].mask = Mod5Mask;
+    tempKeysym = 0;
+
+    modKeymap = XGetModifierMapping(dpy);
+    for (i=0;i<32;i++)
+	pd->isModifier[i] = 0;
+    pd->mode_switch = 0;
+    pd->num_lock = 0;
+    for (i=0;i<8;i++) {
+        table[i].idx = tempCount;
+        table[i].count = 0;
+        for (j=0;j<modKeymap->max_keypermod;j++) {
+            keycode = modKeymap->modifiermap[i*modKeymap->max_keypermod+j];
+            if (keycode != 0) {
+		pd->isModifier[keycode>>3] |= 1 << (keycode & 7);
+                for (k=0; k<pd->keysyms_per_keycode;k++) {
+                    idx = ((keycode-pd->min_keycode)*
+                             pd->keysyms_per_keycode)+k;
+                    keysym = pd->keysyms[idx];
+		    if ((keysym == XK_Mode_switch) && (i > 2))
+			pd->mode_switch |= 1 << i;
+		    if ((keysym == XK_Num_Lock) && (i > 2))
+			pd->num_lock |= 1 << i;
+                    if (keysym != 0 && keysym != tempKeysym ){
+                        if (tempCount==maxCount) {
+                            maxCount += KeysymTableSize;
+                            pd->modKeysyms = (KeySym*)XtRealloc(
+                                (char*)pd->modKeysyms,
+                                (unsigned) (maxCount*sizeof(KeySym)) );
+                        }
+                        pd->modKeysyms[tempCount++] = keysym;
+                        table[i].count++;
+                        tempKeysym = keysym;
+                    }
+                }
+            }
+        }
+    }
+    pd->lock_meaning = NoSymbol;
+    for (i = 0; i < table[1].count; i++) {
+	keysym = pd->modKeysyms[table[1].idx + i];
+	if (keysym == XK_Caps_Lock) {
+	    pd->lock_meaning = XK_Caps_Lock;
+	    break;
+	} else if (keysym == XK_Shift_Lock) {
+	    pd->lock_meaning = XK_Shift_Lock;
+	}
+    }
+    XFreeModifiermap(modKeymap);
+}
+
+void XtTranslateKeycode (
+    Display *dpy,
+    _XtKeyCode keycode,
+    Modifiers modifiers,
+    Modifiers *modifiers_return,
+    KeySym *keysym_return)
+{
+    XtPerDisplay pd;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+    _InitializeKeysymTables(dpy, pd);
+    (*pd->defaultKeycodeTranslator)(
+            dpy,keycode,modifiers,modifiers_return,keysym_return);
+    UNLOCK_APP(app);
+}
+
+/* This code should match XTranslateKey (internal, sigh) in Xlib */
+void XtTranslateKey(
+    register Display *dpy,
+    _XtKeyCode keycode,
+    Modifiers modifiers,
+    Modifiers *modifiers_return,
+    KeySym *keysym_return)
+{
+#ifndef XKB
+    XtPerDisplay pd;
+    int per;
+    register KeySym *syms;
+    KeySym sym, lsym, usym;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+    *modifiers_return = (ShiftMask|LockMask) | pd->mode_switch | pd->num_lock;
+    if (((int)keycode < pd->min_keycode) || ((int)keycode > pd->max_keycode)) {
+	*keysym_return = NoSymbol;
+	UNLOCK_APP(app);
+	return;
+    }
+    per = pd->keysyms_per_keycode;
+    syms = &pd->keysyms[(keycode - pd->min_keycode) * per];
+    while ((per > 2) && (syms[per - 1] == NoSymbol))
+	per--;
+    if ((per > 2) && (modifiers & pd->mode_switch)) {
+	syms += 2;
+	per -= 2;
+    }
+    if ((modifiers & pd->num_lock) &&
+	(per > 1 && (IsKeypadKey(syms[1]) || IsPrivateKeypadKey(syms[1])))) {
+	if ((modifiers & ShiftMask) ||
+	    ((modifiers & LockMask) && (pd->lock_meaning == XK_Shift_Lock)))
+	    *keysym_return = syms[0];
+	else
+	    *keysym_return = syms[1];
+    } else if (!(modifiers & ShiftMask) &&
+	(!(modifiers & LockMask) || (pd->lock_meaning == NoSymbol))) {
+	if ((per == 1) || (syms[1] == NoSymbol))
+	    XtConvertCase(dpy, syms[0], keysym_return, &usym);
+	else
+	    *keysym_return = syms[0];
+    } else if (!(modifiers & LockMask) ||
+	       (pd->lock_meaning != XK_Caps_Lock)) {
+	if ((per == 1) || ((usym = syms[1]) == NoSymbol))
+	    XtConvertCase(dpy, syms[0], &lsym, &usym);
+	*keysym_return = usym;
+    } else {
+	if ((per == 1) || ((sym = syms[1]) == NoSymbol))
+	    sym = syms[0];
+	XtConvertCase(dpy, sym, &lsym, &usym);
+	if (!(modifiers & ShiftMask) && (sym != syms[0]) &&
+	    ((sym != usym) || (lsym == usym)))
+	    XtConvertCase(dpy, syms[0], &lsym, &usym);
+	*keysym_return = usym;
+    }
+
+    if (*keysym_return == XK_VoidSymbol)
+	*keysym_return = NoSymbol;
+    UNLOCK_APP(app);
+#else
+    XkbLookupKeySym(dpy, keycode, modifiers, modifiers_return, keysym_return);
+#endif
+}
+
+void XtSetKeyTranslator(
+    Display *dpy,
+    XtKeyProc translator)
+{
+    XtPerDisplay pd;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+
+    pd->defaultKeycodeTranslator = translator;
+    FLUSHKEYCACHE(pd->tm_context);
+    /* XXX should now redo grabs */
+    UNLOCK_APP(app);
+}
+
+void XtRegisterCaseConverter(
+    Display *dpy,
+    XtCaseProc proc,
+    KeySym start,
+    KeySym stop)
+{
+    XtPerDisplay pd;
+    CaseConverterPtr ptr, prev;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+
+    ptr = (CaseConverterPtr) __XtMalloc(sizeof(CaseConverterRec));
+    ptr->start = start;
+    ptr->stop = stop;
+    ptr->proc = proc;
+    ptr->next = pd->case_cvt;
+    pd->case_cvt = ptr;
+
+    /* Remove obsolete case converters from the list */
+    prev = ptr;
+    for (ptr=ptr->next; ptr; ptr=prev->next) {
+	if (start <= ptr->start && stop >= ptr->stop) {
+	    prev->next = ptr->next;
+	    XtFree((char *)ptr);
+	}
+	else prev = ptr;
+    }
+    FLUSHKEYCACHE(pd->tm_context);
+    /* XXX should now redo grabs */
+    UNLOCK_APP(app);
+}
+
+KeySym *XtGetKeysymTable(
+    Display *dpy,
+    KeyCode *min_keycode_return,
+    int *keysyms_per_keycode_return)
+{
+    XtPerDisplay pd;
+    KeySym* retval;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+    _InitializeKeysymTables(dpy, pd);
+    *min_keycode_return = pd->min_keycode; /* %%% */
+    *keysyms_per_keycode_return = pd->keysyms_per_keycode;
+    retval = pd->keysyms;
+    UNLOCK_APP(app);
+    return retval;
+}
+
+void XtKeysymToKeycodeList(
+    Display *dpy,
+    KeySym keysym,
+    KeyCode **keycodes_return,
+    Cardinal *keycount_return)
+{
+    XtPerDisplay pd;
+    unsigned keycode;
+    int per, match;
+    register KeySym *syms;
+    register int i, j;
+    KeySym lsym, usym;
+    unsigned maxcodes = 0;
+    unsigned ncodes = 0;
+    KeyCode *keycodes, *codeP = NULL;
+    DPY_TO_APPCON(dpy);
+
+    LOCK_APP(app);
+    pd = _XtGetPerDisplay(dpy);
+    _InitializeKeysymTables(dpy, pd);
+    keycodes = NULL;
+    per = pd->keysyms_per_keycode;
+    for (syms = pd->keysyms, keycode = (unsigned) pd->min_keycode;
+	 (int)keycode <= pd->max_keycode;
+	 syms += per, keycode++) {
+	match = 0;
+	for (j = 0; j < per; j++) {
+	    if (syms[j] == keysym) {
+		match = 1;
+		break;
+	    }
+	}
+	if (!match)
+	    for (i = 1; i < 5; i += 2) {
+		if ((per == i) || ((per > i) && (syms[i] == NoSymbol))) {
+		    XtConvertCase(dpy, syms[i-1], &lsym, &usym);
+		    if ((lsym == keysym) || (usym == keysym)) {
+			match = 1;
+			break;
+		    }
+		}
+	    }
+	if (match) {
+	    if (ncodes == maxcodes) {
+		KeyCode *old = keycodes;
+		maxcodes += KEYCODE_ARRAY_SIZE;
+		keycodes = (KeyCode*)__XtMalloc(maxcodes*sizeof(KeyCode));
+		if (ncodes) {
+		    (void) memmove((char *)keycodes, (char *)old,
+				   ncodes*sizeof(KeyCode) );
+		    XtFree((char *)old);
+		}
+		codeP = &keycodes[ncodes];
+	    }
+	    *codeP++ = (KeyCode) keycode;
+	    ncodes++;
+	}
+    }
+    *keycodes_return = keycodes;
+    *keycount_return = ncodes;
+    UNLOCK_APP(app);
+}
diff --git a/libXt/src/TMparse.c b/libXt/src/TMparse.c
index 14bb4593f..5fddb8230 100644
--- a/libXt/src/TMparse.c
+++ b/libXt/src/TMparse.c
@@ -1,2144 +1,2144 @@
-/***********************************************************

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

-

-*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include <ctype.h>

-#include <stdlib.h>

-#ifndef NOTASCII

-#define XK_LATIN1

-#endif

-#define XK_MISCELLANY

-#include <X11/keysymdef.h>

-

-#ifdef CACHE_TRANSLATIONS

-# ifdef REFCNT_TRANSLATIONS

-#  define CACHED XtCacheAll | XtCacheRefCount

-# else

-#  define CACHED XtCacheAll

-# endif

-#else

-# define CACHED XtCacheNone

-#endif

-

-#ifndef MAX

-#define MAX(a,b) (((a) > (b)) ? (a) : (b))

-#endif

-

-#ifndef MIN

-#define MIN(a,b) (((a) < (b)) ? (a) : (b))

-#endif

-

-static String XtNtranslationParseError = "translationParseError";

-

-typedef int		EventType;

-

-typedef String (*ParseProc)(

-    String /* str; */,

-    Opaque /* closure; */,

-    EventPtr /* event; */,

-    Boolean* /* error */);

-

-typedef TMShortCard	Value;

-typedef void (*ModifierProc)(Value, LateBindingsPtr*, Boolean, Value*);

-

-typedef struct _ModifierRec {

-    char*      name;

-    XrmQuark   signature;

-    ModifierProc modifierParseProc;

-    Value      value;

-} ModifierRec, *ModifierKeys;

-

-typedef struct _EventKey {

-    char    	*event;

-    XrmQuark	signature;

-    EventType	eventType;

-    ParseProc	parseDetail;

-    Opaque	closure;

-}EventKey, *EventKeys;

-

-typedef struct {

-    char	*name;

-    XrmQuark	signature;

-    Value	value;

-} NameValueRec, *NameValueTable;

-

-static void ParseModImmed(Value, LateBindingsPtr*, Boolean, Value*);

-static void ParseModSym(Value, LateBindingsPtr*, Boolean, Value*);

-static String PanicModeRecovery(String);

-static String CheckForPoundSign(String, _XtTranslateOp, _XtTranslateOp *);

-static KeySym StringToKeySym(String, Boolean *);

-static ModifierRec modifiers[] = {

-    {"Shift",	0,	ParseModImmed,ShiftMask},

-    {"Lock",	0,	ParseModImmed,LockMask},

-    {"Ctrl",	0,	ParseModImmed,ControlMask},

-    {"Mod1",	0,	ParseModImmed,Mod1Mask},

-    {"Mod2",	0,	ParseModImmed,Mod2Mask},

-    {"Mod3",	0,	ParseModImmed,Mod3Mask},

-    {"Mod4",	0,	ParseModImmed,Mod4Mask},

-    {"Mod5",	0,	ParseModImmed,Mod5Mask},

-    {"Meta",	0,	ParseModSym,  XK_Meta_L},

-    {"m",       0,      ParseModSym,  XK_Meta_L},

-    {"h",       0,      ParseModSym,  XK_Hyper_L},

-    {"su",      0,      ParseModSym,  XK_Super_L},

-    {"a",       0,      ParseModSym,  XK_Alt_L},

-    {"Hyper",   0,      ParseModSym,  XK_Hyper_L},

-    {"Super",   0,      ParseModSym,  XK_Super_L},

-    {"Alt",     0,      ParseModSym,  XK_Alt_L},

-    {"Button1",	0,	ParseModImmed,Button1Mask},

-    {"Button2",	0,	ParseModImmed,Button2Mask},

-    {"Button3",	0,	ParseModImmed,Button3Mask},

-    {"Button4",	0,	ParseModImmed,Button4Mask},

-    {"Button5",	0,	ParseModImmed,Button5Mask},

-    {"c",	0,	ParseModImmed,ControlMask},

-    {"s",	0,	ParseModImmed,ShiftMask},

-    {"l",	0,	ParseModImmed,LockMask},

-};

-

-static NameValueRec buttonNames[] = {

-    {"Button1",	0,	Button1},

-    {"Button2", 0,	Button2},

-    {"Button3", 0,	Button3},

-    {"Button4", 0,	Button4},

-    {"Button5", 0,	Button5},

-    {NULL, NULLQUARK, 0},

-};

-

-static NameValueRec motionDetails[] = {

-    {"Normal",		0,	NotifyNormal},

-    {"Hint",		0,	NotifyHint},

-    {NULL, NULLQUARK, 0},

-};

-

-static NameValueRec notifyModes[] = {

-    {"Normal",		0,	NotifyNormal},

-    {"Grab",		0,	NotifyGrab},

-    {"Ungrab",		0,	NotifyUngrab},

-    {"WhileGrabbed",    0,	NotifyWhileGrabbed},

-    {NULL, NULLQUARK, 0},

-};

-

-#if 0

-static NameValueRec notifyDetail[] = {

-    {"Ancestor",	    0,	NotifyAncestor},

-    {"Virtual",		    0,	NotifyVirtual},

-    {"Inferior",	    0,	NotifyInferior},

-    {"Nonlinear",	    0,	NotifyNonlinear},

-    {"NonlinearVirtual",    0,	NotifyNonlinearVirtual},

-    {"Pointer",		    0,	NotifyPointer},

-    {"PointerRoot",	    0,	NotifyPointerRoot},

-    {"DetailNone",	    0,	NotifyDetailNone},

-    {NULL, NULLQUARK, 0},

-};

-

-static NameValueRec visibilityNotify[] = {

-    {"Unobscured",	    0,	VisibilityUnobscured},

-    {"PartiallyObscured",   0,	VisibilityPartiallyObscured},

-    {"FullyObscured",       0,	VisibilityFullyObscured},

-    {NULL, NULLQUARK, 0},

-};

-

-static NameValueRec circulation[] = {

-    {"OnTop",       0,	PlaceOnTop},

-    {"OnBottom",    0,	PlaceOnBottom},

-    {NULL, NULLQUARK, 0},

-};

-

-static NameValueRec propertyChanged[] = {

-    {"NewValue",    0,	PropertyNewValue},

-    {"Delete",      0,	PropertyDelete},

-    {NULL, NULLQUARK, 0},

-};

-#endif /*0*/

-

-static NameValueRec mappingNotify[] = {

-    {"Modifier",	0,	MappingModifier},

-    {"Keyboard",	0,	MappingKeyboard},

-    {"Pointer",	0,	MappingPointer},

-    {NULL, NULLQUARK, 0},

-};

-

-static String ParseKeySym(String, Opaque, EventPtr, Boolean*);

-static String ParseKeyAndModifiers(String, Opaque, EventPtr, Boolean*);

-static String ParseTable(String, Opaque, EventPtr, Boolean*);

-static String ParseImmed(String, Opaque, EventPtr, Boolean*);

-static String ParseAddModifier(String, Opaque, EventPtr, Boolean*);

-static String ParseNone(String, Opaque, EventPtr, Boolean*);

-static String ParseAtom(String, Opaque, EventPtr, Boolean*);

-

-static EventKey events[] = {

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-{"KeyPress",	    NULLQUARK, KeyPress,	ParseKeySym,	NULL},

-{"Key", 	    NULLQUARK, KeyPress,	ParseKeySym,	NULL},

-{"KeyDown",	    NULLQUARK, KeyPress,	ParseKeySym,	NULL},

-{"Ctrl",            NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ControlMask},

-{"Shift",           NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ShiftMask},

-{"Meta",            NULLQUARK, KeyPress,   ParseKeyAndModifiers,(Opaque)NULL},

-{"KeyUp",	    NULLQUARK, KeyRelease,	ParseKeySym,	NULL},

-{"KeyRelease",	    NULLQUARK, KeyRelease,	ParseKeySym,	NULL},

-

-{"ButtonPress",     NULLQUARK, ButtonPress,  ParseTable,(Opaque)buttonNames},

-{"BtnDown",	    NULLQUARK, ButtonPress,  ParseTable,(Opaque)buttonNames},

-{"Btn1Down",	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button1},

-{"Btn2Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button2},

-{"Btn3Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button3},

-{"Btn4Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button4},

-{"Btn5Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button5},

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-{"ButtonRelease",   NULLQUARK, ButtonRelease,  ParseTable,(Opaque)buttonNames},

-{"BtnUp", 	    NULLQUARK, ButtonRelease,  ParseTable,(Opaque)buttonNames},

-{"Btn1Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button1},

-{"Btn2Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button2},

-{"Btn3Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button3},

-{"Btn4Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button4},

-{"Btn5Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button5},

-

-{"MotionNotify",    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},

-{"PtrMoved", 	    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},

-{"Motion", 	    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},

-{"MouseMoved", 	    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},

-{"BtnMotion",  NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)AnyButtonMask},

-{"Btn1Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button1Mask},

-{"Btn2Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button2Mask},

-{"Btn3Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button3Mask},

-{"Btn4Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button4Mask},

-{"Btn5Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button5Mask},

-

-{"EnterNotify",     NULLQUARK, EnterNotify,    ParseTable,(Opaque)notifyModes},

-{"Enter",	    NULLQUARK, EnterNotify,    ParseTable,(Opaque)notifyModes},

-{"EnterWindow",     NULLQUARK, EnterNotify,    ParseTable,(Opaque)notifyModes},

-

-{"LeaveNotify",     NULLQUARK, LeaveNotify,    ParseTable,(Opaque)notifyModes},

-{"LeaveWindow",     NULLQUARK, LeaveNotify,    ParseTable,(Opaque)notifyModes},

-{"Leave",	    NULLQUARK, LeaveNotify,    ParseTable,(Opaque)notifyModes},

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-{"FocusIn",	    NULLQUARK, FocusIn,	  ParseTable,(Opaque)notifyModes},

-

-{"FocusOut",	    NULLQUARK, FocusOut,       ParseTable,(Opaque)notifyModes},

-

-{"KeymapNotify",    NULLQUARK, KeymapNotify,	ParseNone,	NULL},

-{"Keymap",	    NULLQUARK, KeymapNotify,	ParseNone,	NULL},

-

-{"Expose", 	    NULLQUARK, Expose,		ParseNone,	NULL},

-

-{"GraphicsExpose",  NULLQUARK, GraphicsExpose,	ParseNone,	NULL},

-{"GrExp",	    NULLQUARK, GraphicsExpose,	ParseNone,	NULL},

-

-{"NoExpose",	    NULLQUARK, NoExpose,	ParseNone,	NULL},

-{"NoExp",	    NULLQUARK, NoExpose,	ParseNone,	NULL},

-

-{"VisibilityNotify",NULLQUARK, VisibilityNotify,ParseNone,	NULL},

-{"Visible",	    NULLQUARK, VisibilityNotify,ParseNone,	NULL},

-

-{"CreateNotify",    NULLQUARK, CreateNotify,	ParseNone,	NULL},

-{"Create",	    NULLQUARK, CreateNotify,	ParseNone,	NULL},

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-{"DestroyNotify",   NULLQUARK, DestroyNotify,	ParseNone,	NULL},

-{"Destroy",	    NULLQUARK, DestroyNotify,	ParseNone,	NULL},

-

-{"UnmapNotify",     NULLQUARK, UnmapNotify,	ParseNone,	NULL},

-{"Unmap",	    NULLQUARK, UnmapNotify,	ParseNone,	NULL},

-

-{"MapNotify",	    NULLQUARK, MapNotify,	ParseNone,	NULL},

-{"Map",		    NULLQUARK, MapNotify,	ParseNone,	NULL},

-

-{"MapRequest",	    NULLQUARK, MapRequest,	ParseNone,	NULL},

-{"MapReq",	    NULLQUARK, MapRequest,	ParseNone,	NULL},

-

-{"ReparentNotify",  NULLQUARK, ReparentNotify,	ParseNone,	NULL},

-{"Reparent",	    NULLQUARK, ReparentNotify,	ParseNone,	NULL},

-

-{"ConfigureNotify", NULLQUARK, ConfigureNotify,	ParseNone,	NULL},

-{"Configure",	    NULLQUARK, ConfigureNotify,	ParseNone,	NULL},

-

-{"ConfigureRequest",NULLQUARK, ConfigureRequest,ParseNone,	NULL},

-{"ConfigureReq",    NULLQUARK, ConfigureRequest,ParseNone,	NULL},

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-{"GravityNotify",   NULLQUARK, GravityNotify,	ParseNone,	NULL},

-{"Grav",	    NULLQUARK, GravityNotify,	ParseNone,	NULL},

-

-{"ResizeRequest",   NULLQUARK, ResizeRequest,	ParseNone,	NULL},

-{"ResReq",	    NULLQUARK, ResizeRequest,	ParseNone,	NULL},

-

-{"CirculateNotify", NULLQUARK, CirculateNotify,	ParseNone,	NULL},

-{"Circ",	    NULLQUARK, CirculateNotify,	ParseNone,	NULL},

-

-{"CirculateRequest",NULLQUARK, CirculateRequest,ParseNone,	NULL},

-{"CircReq",	    NULLQUARK, CirculateRequest,ParseNone,	NULL},

-

-{"PropertyNotify",  NULLQUARK, PropertyNotify,	ParseAtom,	NULL},

-{"Prop",	    NULLQUARK, PropertyNotify,	ParseAtom,	NULL},

-

-{"SelectionClear",  NULLQUARK, SelectionClear,	ParseAtom,	NULL},

-{"SelClr",	    NULLQUARK, SelectionClear,	ParseAtom,	NULL},

-

-{"SelectionRequest",NULLQUARK, SelectionRequest,ParseAtom,	NULL},

-{"SelReq",	    NULLQUARK, SelectionRequest,ParseAtom,	NULL},

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-{"SelectionNotify", NULLQUARK, SelectionNotify,	ParseAtom,	NULL},

-{"Select",	    NULLQUARK, SelectionNotify,	ParseAtom,	NULL},

-

-{"ColormapNotify",  NULLQUARK, ColormapNotify,	ParseNone,	NULL},

-{"Clrmap",	    NULLQUARK, ColormapNotify,	ParseNone,	NULL},

-

-{"ClientMessage",   NULLQUARK, ClientMessage,	ParseAtom,	NULL},

-{"Message",	    NULLQUARK, ClientMessage,	ParseAtom,	NULL},

-

-{"MappingNotify",   NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify},

-{"Mapping",	    NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify},

-

-#ifdef DEBUG

-# ifdef notdef

-{"Timer",	    NULLQUARK, _XtTimerEventType,ParseNone,	NULL},

-# endif /* notdef */

-{"EventTimer",	    NULLQUARK, _XtEventTimerEventType,ParseNone,NULL},

-#endif /* DEBUG */

-

-/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */

-

-};

-

-#ifndef __UNIXOS2__

-#define IsNewline(str) ((str) == '\n')

-#else

-#define IsNewline(str) ((str) == '\n' || (str) == '\r')

-#endif

-

-#define ScanFor(str, ch) \

-    while ((*(str) != (ch)) && (*(str) != '\0') && !IsNewline(*(str))) (str)++

-

-#define ScanNumeric(str)  while ('0' <= *(str) && *(str) <= '9') (str)++

-

-#define ScanAlphanumeric(str) \

-    while (('A' <= *(str) && *(str) <= 'Z') || \

-           ('a' <= *(str) && *(str) <= 'z') || \

-           ('0' <= *(str) && *(str) <= '9')) (str)++

-

-#ifndef __UNIXOS2__

-#define ScanWhitespace(str) \

-    while (*(str) == ' ' || *(str) == '\t') (str)++

-#else

-#define ScanWhitespace(str) \

-    while (*(str) == ' ' || *(str) == '\t' || *(str) == '\r') (str)++

-#endif

-

-static Boolean initialized = FALSE;

-static XrmQuark QMeta;

-static XrmQuark QCtrl;

-static XrmQuark QNone;

-static XrmQuark QAny;

-

-static void FreeEventSeq(

-    EventSeqPtr eventSeq)

-{

-    register EventSeqPtr evs = eventSeq;

-

-    while (evs != NULL) {

-	evs->state = (StatePtr) evs;

-	if (evs->next != NULL

-	    && evs->next->state == (StatePtr) evs->next)

-	    evs->next = NULL;

-	evs = evs->next;

-    }

-

-    evs = eventSeq;

-    while (evs != NULL) {

-	register EventPtr event = evs;

-	evs = evs->next;

-	if (evs == event) evs = NULL;

-	XtFree((char *)event);

-    }

-}

-

-static void CompileNameValueTable(

-    NameValueTable table)

-{

-    register int i;

-

-    for (i=0; table[i].name; i++)

-        table[i].signature = XrmPermStringToQuark(table[i].name);

-}

-

-static int OrderEvents(_Xconst void *a, _Xconst void *b)

-{

-    return ((((_Xconst EventKey *)a)->signature <

-	     ((_Xconst EventKey *)b)->signature) ? -1 : 1);

-}

-

-static void Compile_XtEventTable(

-    EventKeys	table,

-    Cardinal	count)

-{

-    register int i;

-    register EventKeys entry = table;

-

-    for (i=count; --i >= 0; entry++)

-	entry->signature = XrmPermStringToQuark(entry->event);

-    qsort(table, count, sizeof(EventKey), OrderEvents);

-}

-

-static int OrderModifiers(_Xconst void *a, _Xconst void *b)

-{

-    return ((((_Xconst ModifierRec *)a)->signature <

-	     ((_Xconst ModifierRec *)b)->signature) ? -1 : 1);

-}

-

-static void Compile_XtModifierTable(

-    ModifierKeys table,

-    Cardinal count)

-{

-    register int i;

-    register ModifierKeys entry = table;

-

-    for (i=count; --i >= 0; entry++)

-	entry->signature = XrmPermStringToQuark(entry->name);

-    qsort(table, count, sizeof(ModifierRec), OrderModifiers);

-}

-

-static String PanicModeRecovery(

-    String str)

-{

-     ScanFor(str,'\n');

-     if (*str == '\n') str++;

-     return str;

-

-}

-

-

-static void Syntax(

-    String str0,String str1)

-{

-    Cardinal num_params = 2;

-    String params[2];

-

-    params[0] = str0;

-    params[1] = str1;

-    XtWarningMsg(XtNtranslationParseError,"parseError",XtCXtToolkitError,

-		 "translation table syntax error: %s %s",params,&num_params);

-}

-

-

-

-static Cardinal LookupTMEventType(

-  String eventStr,

-  Boolean *error)

-{

-    register int   i = 0, left, right;

-    register XrmQuark	signature;

-    static int 	previous = 0;

-

-    LOCK_PROCESS;

-    if ((signature = StringToQuark(eventStr)) == events[previous].signature) {

-	UNLOCK_PROCESS;

-	return (Cardinal) previous;

-    }

-

-    left = 0;

-    right = XtNumber(events) - 1;

-    while (left <= right) {

-	i = (left + right) >> 1;

-	if (signature < events[i].signature)

-	    right = i - 1;

-	else if (signature > events[i].signature)

-	    left = i + 1;

-	else {

-	    previous = i;

-	    UNLOCK_PROCESS;

-	    return (Cardinal) i;

-	}

-    }

-

-    Syntax("Unknown event type :  ",eventStr);

-    *error = TRUE;

-    UNLOCK_PROCESS;

-    return (Cardinal) i;

-}

-

-static void StoreLateBindings(

-    KeySym  keysymL,

-    Boolean notL,

-    KeySym keysymR,

-    Boolean notR,

-    LateBindingsPtr* lateBindings)

-{

-    LateBindingsPtr temp;

-    Boolean pair = FALSE;

-    unsigned long count,number;

-    if (lateBindings != NULL){

-        temp = *lateBindings;

-        if (temp != NULL) {

-            for (count = 0; temp[count].keysym; count++){/*EMPTY*/}

-        }

-        else count = 0;

-        if (! keysymR){

-             number = 1;pair = FALSE;

-        } else{

-             number = 2;pair = TRUE;

-        }

-

-        temp = (LateBindingsPtr)XtRealloc((char *)temp,

-            (unsigned)((count+number+1) * sizeof(LateBindings)) );

-        *lateBindings = temp;

-        temp[count].knot = notL;

-        temp[count].pair = pair;

-	if (count == 0)

-	    temp[count].ref_count = 1;

-        temp[count++].keysym = keysymL;

-        if (keysymR){

-            temp[count].knot = notR;

-            temp[count].pair = FALSE;

-	    temp[count].ref_count = 0;

-            temp[count++].keysym = keysymR;

-        }

-        temp[count].knot = temp[count].pair = FALSE;

-        temp[count].ref_count = 0;

-        temp[count].keysym = 0;

-    }

-}

-

-static void _XtParseKeysymMod(

-    String name,

-    LateBindingsPtr* lateBindings,

-    Boolean notFlag,

-    Value *valueP,

-    Boolean *error)

-{

-    KeySym keySym;

-    keySym = StringToKeySym(name, error);

-    *valueP = 0;

-    if (keySym != NoSymbol) {

-        StoreLateBindings(keySym,notFlag,(KeySym) NULL,FALSE,lateBindings);

-    }

-}

-

-static Boolean _XtLookupModifier(

-    XrmQuark signature,

-    LateBindingsPtr* lateBindings,

-    Boolean notFlag,

-    Value *valueP,

-    Bool constMask)

-{

-    register int i, left, right;

-    static int previous = 0;

-

-    LOCK_PROCESS;

-    if (signature == modifiers[previous].signature) {

-	if (constMask)  *valueP = modifiers[previous].value;

-	else /* if (modifiers[previous].modifierParseProc) always true */

-	   (*modifiers[previous].modifierParseProc)

-	      (modifiers[previous].value, lateBindings, notFlag, valueP);

-	UNLOCK_PROCESS;

-	return TRUE;

-    }

-

-    left = 0;

-    right = XtNumber(modifiers) - 1;

-    while (left <= right) {

-	i = (left + right) >> 1;

-	if (signature < modifiers[i].signature)

-	    right = i - 1;

-	else if (signature > modifiers[i].signature)

-	    left = i + 1;

-	else {

-	    previous = i;

-	    if (constMask)  *valueP = modifiers[i].value;

-	    else /* if (modifiers[i].modifierParseProc) always true */

-		(*modifiers[i].modifierParseProc)

-		    (modifiers[i].value, lateBindings, notFlag, valueP);

-	    UNLOCK_PROCESS;

-	    return TRUE;

-	}

-    }

-    UNLOCK_PROCESS;

-    return FALSE;

-}

-

-

-static String ScanIdent(

-    register String str)

-{

-    ScanAlphanumeric(str);

-    while (

-	   ('A' <= *str && *str <= 'Z')

-	|| ('a' <= *str && *str <= 'z')

-	|| ('0' <= *str && *str <= '9')

-	|| (*str == '-')

-	|| (*str == '_')

-	|| (*str == '$')

-	) str++;

-    return str;

-}

-

-static String FetchModifierToken(

-    String str,

-    XrmQuark *token_return)

-{

-    String start = str;

-

-    if (*str == '$') {

-        *token_return = QMeta;

-        str++;

-        return str;

-    }

-    if (*str == '^') {

-        *token_return = QCtrl;

-        str++;

-        return str;

-    }

-    str = ScanIdent(str);

-    if (start != str) {

-	char modStrbuf[100];

-	char* modStr;

-

-	modStr = XtStackAlloc ((size_t)(str - start + 1), modStrbuf);

-	if (modStr == NULL) _XtAllocError (NULL);

-	(void) memmove(modStr, start, str-start);

-	modStr[str-start] = '\0';

-	*token_return = XrmStringToQuark(modStr);

-	XtStackFree (modStr, modStrbuf);

-	return str;

-    }

-    return str;

-}

-

-static String ParseModifiers(

-    register String str,

-    EventPtr event,

-    Boolean* error)

-{

-    register String start;

-    Boolean notFlag, exclusive, keysymAsMod;

-    Value maskBit;

-    XrmQuark Qmod;

-

-    ScanWhitespace(str);

-    start = str;

-    str = FetchModifierToken(str, &Qmod);

-    exclusive = FALSE;

-    if (start != str) {

-	if (Qmod == QNone) {

-	    event->event.modifierMask = ~0;

-	    event->event.modifiers = 0;

-	    ScanWhitespace(str);

-	    return str;

-	} else if (Qmod == QAny) { /*backward compatability*/

-	    event->event.modifierMask = 0;

-	    event->event.modifiers = AnyModifier;

-	    ScanWhitespace(str);

-	    return str;

-	}

-	str = start; /*if plain modifier, reset to beginning */

-    }

-    else while (*str == '!' || *str == ':') {

-        if (*str == '!') {

-             exclusive = TRUE;

-             str++;

-             ScanWhitespace(str);

-        }

-        if (*str == ':') {

-             event->event.standard = TRUE;

-             str++;

-             ScanWhitespace(str);

-        }

-    }

-

-    while (*str != '<') {

-        if (*str == '~') {

-             notFlag = TRUE;

-             str++;

-          } else

-              notFlag = FALSE;

-        if (*str == '@') {

-            keysymAsMod = TRUE;

-            str++;

-        }

-        else keysymAsMod = FALSE;

-	start = str;

-        str = FetchModifierToken(str, &Qmod);

-        if (start == str) {

-            Syntax("Modifier or '<' expected","");

-            *error = TRUE;

-            return PanicModeRecovery(str);

-        }

-         if (keysymAsMod) {

-             _XtParseKeysymMod(XrmQuarkToString(Qmod),

-			       &event->event.lateModifiers,

-			       notFlag,&maskBit, error);

-	     if (*error)

-                 return PanicModeRecovery(str);

-

-         } else

-  	     if (!_XtLookupModifier(Qmod, &event->event.lateModifiers,

-				    notFlag, &maskBit, FALSE)) {

-	         Syntax("Unknown modifier name:  ", XrmQuarkToString(Qmod));

-                 *error = TRUE;

-                 return PanicModeRecovery(str);

-             }

-        event->event.modifierMask |= maskBit;

-	if (notFlag) event->event.modifiers &= ~maskBit;

-	else event->event.modifiers |= maskBit;

-        ScanWhitespace(str);

-    }

-    if (exclusive) event->event.modifierMask = ~0;

-    return str;

-}

-

-static String ParseXtEventType(

-    register String str,

-    EventPtr event,

-    Cardinal *tmEventP,

-    Boolean* error)

-{

-    String start = str;

-    char eventTypeStrbuf[100];

-    char* eventTypeStr;

-

-    ScanAlphanumeric(str);

-    eventTypeStr = XtStackAlloc ((size_t)(str - start + 1), eventTypeStrbuf);

-    if (eventTypeStr == NULL) _XtAllocError (NULL);

-    (void) memmove(eventTypeStr, start, str-start);

-    eventTypeStr[str-start] = '\0';

-    *tmEventP = LookupTMEventType(eventTypeStr,error);

-    XtStackFree (eventTypeStr, eventTypeStrbuf);

-    if (*error)

-        return PanicModeRecovery(str);

-    event->event.eventType = events[*tmEventP].eventType;

-    return str;

-}

-

-static unsigned long StrToHex(

-    String str)

-{

-    register char   c;

-    register unsigned long    val = 0;

-

-    while ((c = *str)) {

-	if ('0' <= c && c <= '9') val = val*16+c-'0';

-	else if ('a' <= c && c <= 'z') val = val*16+c-'a'+10;

-	else if ('A' <= c && c <= 'Z') val = val*16+c-'A'+10;

-	else return 0;

-	str++;

-    }

-

-    return val;

-}

-

-static unsigned long StrToOct(

-    String str)

-{

-    register char c;

-    register unsigned long  val = 0;

-

-    while ((c = *str)) {

-        if ('0' <= c && c <= '7') val = val*8+c-'0'; else return 0;

-	str++;

-    }

-

-    return val;

-}

-

-static unsigned long StrToNum(

-    String str)

-{

-    register char c;

-    register unsigned long val = 0;

-

-    if (*str == '0') {

-	str++;

-	if (*str == 'x' || *str == 'X') return StrToHex(++str);

-	else return StrToOct(str);

-    }

-

-    while ((c = *str)) {

-	if ('0' <= c && c <= '9') val = val*10+c-'0';

-	else return 0;

-	str++;

-    }

-

-    return val;

-}

-

-static KeySym StringToKeySym(

-    String str,

-    Boolean *error)

-{

-    KeySym k;

-

-    if (str == NULL || *str == '\0') return (KeySym) 0;

-

-#ifndef NOTASCII

-    /* special case single character ASCII, for speed */

-    if (*(str+1) == '\0') {

-	if (' ' <= *str && *str <= '~') return XK_space + (*str - ' ');

-    }

-#endif

-

-    if ('0' <= *str && *str <= '9') return (KeySym) StrToNum(str);

-    k = XStringToKeysym(str);

-    if (k != NoSymbol) return k;

-

-#ifdef NOTASCII

-    /* fall-back case to preserve backwards compatibility; no-one

-     * should be relying upon this!

-     */

-    if (*(str+1) == '\0') return (KeySym) *str;

-#endif

-

-    Syntax("Unknown keysym name: ", str);

-    *error = TRUE;

-    return NoSymbol;

-}

-/* ARGSUSED */

-static void ParseModImmed(

-    Value value,

-    LateBindingsPtr* lateBindings,

-    Boolean notFlag,

-    Value* valueP)

-{

-    *valueP = value;

-}

-

- /* is only valid with keysyms that have an _L and _R in their name;

-  * and ignores keysym lookup errors (i.e. assumes only valid keysyms)

-  */

-static void ParseModSym(

-    Value value,

-    LateBindingsPtr* lateBindings,

-    Boolean notFlag,

-    Value* valueP)

-{

-    register KeySym keysymL = (KeySym)value;

-    register KeySym keysymR = keysymL + 1; /* valid for supported keysyms */

-    StoreLateBindings(keysymL,notFlag,keysymR,notFlag,lateBindings);

-    *valueP = 0;

-}

-

-#ifdef sparc

-/*

- * The stupid optimizer in SunOS 4.0.3 and below generates bogus code that

- * causes the value of the most recently used variable to be returned instead

- * of the value passed in.

- */

-static String stupid_optimizer_kludge;

-#define BROKEN_OPTIMIZER_HACK(val) stupid_optimizer_kludge = (val)

-#else

-#define BROKEN_OPTIMIZER_HACK(val) val

-#endif

-

-/* ARGSUSED */

-static String ParseImmed(

-    register String str,

-    register Opaque closure,

-    register EventPtr event,

-    Boolean* error)

-{

-    event->event.eventCode = (unsigned long)closure;

-    event->event.eventCodeMask = ~0UL;

-

-    return BROKEN_OPTIMIZER_HACK(str);

-}

-

-/* ARGSUSED */

-static String ParseAddModifier(

-    register String str,

-    register Opaque closure,

-    register EventPtr event,

-    Boolean* error)

-{

-    register unsigned long modval = (unsigned long)closure;

-    event->event.modifiers |= modval;

-    if (modval != AnyButtonMask) /* AnyButtonMask is don't-care mask */

-	event->event.modifierMask |= modval;

-

-    return BROKEN_OPTIMIZER_HACK(str);

-}

-

-

-static String ParseKeyAndModifiers(

-    String str,

-    Opaque closure,

-    EventPtr event,

-    Boolean* error)

-{

-    str = ParseKeySym(str, closure, event,error);

-    if ((unsigned long) closure == 0) {

-	Value metaMask; /* unused */

-	(void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE,

-				 &metaMask, FALSE);

-    } else {

-	event->event.modifiers |= (unsigned long) closure;

-	event->event.modifierMask |= (unsigned long) closure;

-    }

-    return str;

-}

-

-/*ARGSUSED*/

-static String ParseKeySym(

-    register String str,

-    Opaque closure,

-    EventPtr event,

-    Boolean* error)

-{

-    char *start;

-    char keySymNamebuf[100];

-    char* keySymName;

-

-    ScanWhitespace(str);

-

-    if (*str == '\\') {

-	keySymName = keySymNamebuf;

-	str++;

-	keySymName[0] = *str;

-	if (*str != '\0' && !IsNewline(*str)) str++;

-	keySymName[1] = '\0';

-	event->event.eventCode = StringToKeySym(keySymName, error);

-	event->event.eventCodeMask = ~0L;

-    } else if (*str == ',' || *str == ':' ||

-             /* allow leftparen to be single char symbol,

-              * for backwards compatibility

-              */

-             (*str == '(' && *(str+1) >= '0' && *(str+1) <= '9')) {

-	keySymName = keySymNamebuf; /* just so we can stackfree it later */

-	/* no detail */

-	event->event.eventCode = 0L;

-        event->event.eventCodeMask = 0L;

-    } else {

-	start = str;

-	while (

-		*str != ','

-		&& *str != ':'

-		&& *str != ' '

-		&& *str != '\t'

-                && !IsNewline(*str)

-                && (*str != '(' || *(str+1) <= '0' || *(str+1) >= '9')

-		&& *str != '\0') str++;

-	keySymName = XtStackAlloc ((size_t)(str - start + 1), keySymNamebuf);

-	(void) memmove(keySymName, start, str-start);

-	keySymName[str-start] = '\0';

-	event->event.eventCode = StringToKeySym(keySymName, error);

-	event->event.eventCodeMask = ~0L;

-    }

-    if (*error) {

-	/* We never get here when keySymName hasn't been allocated */

-	if (keySymName[0] == '<') {

-	    /* special case for common error */

-	    XtWarningMsg(XtNtranslationParseError, "missingComma",

-			 XtCXtToolkitError,

-		     "... possibly due to missing ',' in event sequence.",

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

-	}

-	XtStackFree (keySymName, keySymNamebuf);

-	return PanicModeRecovery(str);

-    }

-    if (event->event.standard)

-	event->event.matchEvent = _XtMatchUsingStandardMods;

-    else

-	event->event.matchEvent = _XtMatchUsingDontCareMods;

-

-    XtStackFree (keySymName, keySymNamebuf);

-

-    return str;

-}

-

-static String ParseTable(

-    register String str,

-    Opaque closure,

-    EventPtr event,

-    Boolean* error)

-{

-    register String start = str;

-    register XrmQuark signature;

-    NameValueTable table = (NameValueTable) closure;

-    char tableSymName[100];

-

-    event->event.eventCode = 0L;

-    ScanAlphanumeric(str);

-    if (str == start) {event->event.eventCodeMask = 0L; return str; }

-    if (str-start >= 99) {

-	Syntax("Invalid Detail Type (string is too long).", "");

-	*error = TRUE;

-	return str;

-    }

-    (void) memmove(tableSymName, start, str-start);

-    tableSymName[str-start] = '\0';

-    signature = StringToQuark(tableSymName);

-    for (; table->signature != NULLQUARK; table++)

-	if (table->signature == signature) {

-	    event->event.eventCode = table->value;

-	    event->event.eventCodeMask = ~0L;

-	    return str;

-	}

-

-    Syntax("Unknown Detail Type:  ", tableSymName);

-    *error = TRUE;

-    return PanicModeRecovery(str);

-}

-

-/*ARGSUSED*/

-static String ParseNone(

-    String str,

-    Opaque closure,

-    EventPtr event,

-    Boolean* error)

-{

-    event->event.eventCode = 0;

-    event->event.eventCodeMask = 0;

-

-    return BROKEN_OPTIMIZER_HACK(str);

-}

-

-/*ARGSUSED*/

-static String ParseAtom(

-    String str,

-    Opaque closure,

-    EventPtr event,

-    Boolean* error)

-{

-    ScanWhitespace(str);

-

-    if (*str == ',' || *str == ':') {

-	/* no detail */

-	event->event.eventCode = 0L;

-        event->event.eventCodeMask = 0L;

-    } else {

-	char *start, atomName[1000];

-	start = str;

-	while (

-		*str != ','

-		&& *str != ':'

-		&& *str != ' '

-		&& *str != '\t'

-                && !IsNewline(*str)

-		&& *str != '\0') str++;

-	if (str-start >= 999) {

-	    Syntax( "Atom name must be less than 1000 characters long.", "" );

-	    *error = TRUE;

-	    return str;

-	}

-	(void) memmove(atomName, start, str-start);

-	atomName[str-start] = '\0';

-	event->event.eventCode = XrmStringToQuark(atomName);

-	event->event.matchEvent = _XtMatchAtom;

-    }

-    return str;

-}

-

-static ModifierMask buttonModifierMasks[] = {

-    0, Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask

-};

-static String ParseRepeat(String, int *, Boolean *, Boolean *);

-

-static String ParseEvent(

-    register String str,

-    EventPtr	event,

-    int*	reps,

-    Boolean*	plus,

-    Boolean* error)

-{

-    Cardinal	tmEvent;

-

-    str = ParseModifiers(str, event,error);

-    if (*error) return str;

-    if (*str != '<') {

-         Syntax("Missing '<' while parsing event type.","");

-         *error = TRUE;

-         return PanicModeRecovery(str);

-    }

-    else str++;

-    str = ParseXtEventType(str, event, &tmEvent,error);

-    if (*error) return str;

-    if (*str != '>'){

-         Syntax("Missing '>' while parsing event type","");

-         *error = TRUE;

-         return PanicModeRecovery(str);

-    }

-    else str++;

-    if (*str == '(') {

-	str = ParseRepeat(str, reps, plus, error);

-	if (*error) return str;

-    }

-    str = (*(events[tmEvent].parseDetail))(

-        str, events[tmEvent].closure, event,error);

-    if (*error) return str;

-

-/* gross hack! ||| this kludge is related to the X11 protocol deficiency w.r.t.

- * modifiers in grabs.

- */

-    if ((event->event.eventType == ButtonRelease)

-	&& (event->event.modifiers | event->event.modifierMask) /* any */

-        && (event->event.modifiers != AnyModifier))

-    {

-	event->event.modifiers

-	    |= buttonModifierMasks[event->event.eventCode];

-	/* the button that is going up will always be in the modifiers... */

-    }

-

-    return str;

-}

-

-static String ParseQuotedStringEvent(

-    register String str,

-    register EventPtr event,

-    Boolean *error)

-{

-    Value metaMask;

-    char	s[2];

-

-    if (*str=='^') {

-	str++;

-	event->event.modifiers = ControlMask;

-    } else if (*str == '$') {

-	str++;

-	(void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE,

-				 &metaMask, FALSE);

-    }

-    if (*str == '\\')

-	str++;

-    s[0] = *str;

-    s[1] = '\0';

-    if (*str != '\0' && !IsNewline(*str)) str++;

-    event->event.eventType = KeyPress;

-    event->event.eventCode = StringToKeySym(s, error);

-    if (*error) return PanicModeRecovery(str);

-    event->event.eventCodeMask = ~0L;

-    event->event.matchEvent = _XtMatchUsingStandardMods;

-    event->event.standard = TRUE;

-

-    return str;

-}

-

-

-static EventSeqRec timerEventRec = {

-    {0, 0, NULL, _XtEventTimerEventType, 0L, 0L, NULL, False},

-    /* (StatePtr) -1 */ NULL,

-    NULL,

-    NULL

-};

-

-static void RepeatDown(

-    EventPtr *eventP,

-    int reps,

-    ActionPtr **actionsP)

-{

-    EventRec upEventRec;

-    register EventPtr event, downEvent;

-    EventPtr upEvent = &upEventRec;

-    register int i;

-

-    downEvent = event = *eventP;

-    *upEvent = *downEvent;

-    upEvent->event.eventType = ((event->event.eventType == ButtonPress) ?

-	ButtonRelease : KeyRelease);

-    if ((upEvent->event.eventType == ButtonRelease)

-	&& (upEvent->event.modifiers != AnyModifier)

-        && (upEvent->event.modifiers | upEvent->event.modifierMask))

-	upEvent->event.modifiers

-	    |= buttonModifierMasks[event->event.eventCode];

-

-    if (event->event.lateModifiers)

-	event->event.lateModifiers->ref_count += (reps - 1) * 2;

-

-    for (i=1; i<reps; i++) {

-

-	/* up */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *upEvent;

-

-	/* timer */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = timerEventRec;

-

-	/* down */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *downEvent;

-

-    }

-

-    event->next = NULL;

-    *eventP = event;

-    *actionsP = &event->actions;

-}

-

-static void RepeatDownPlus(

-    EventPtr *eventP,

-    int reps,

-    ActionPtr **actionsP)

-{

-    EventRec upEventRec;

-    register EventPtr event, downEvent, lastDownEvent = NULL;

-    EventPtr upEvent = &upEventRec;

-    register int i;

-

-    downEvent = event = *eventP;

-    *upEvent = *downEvent;

-    upEvent->event.eventType = ((event->event.eventType == ButtonPress) ?

-	ButtonRelease : KeyRelease);

-    if ((upEvent->event.eventType == ButtonRelease)

-	&& (upEvent->event.modifiers != AnyModifier)

-        && (upEvent->event.modifiers | upEvent->event.modifierMask))

-	upEvent->event.modifiers

-	    |= buttonModifierMasks[event->event.eventCode];

-

-    if (event->event.lateModifiers)

-	event->event.lateModifiers->ref_count += reps * 2 - 1;

-

-    for (i=0; i<reps; i++) {

-

-	if (i > 0) {

-	/* down */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *downEvent;

-	}

-	lastDownEvent = event;

-

-	/* up */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *upEvent;

-

-	/* timer */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = timerEventRec;

-

-    }

-

-    event->next = lastDownEvent;

-    *eventP = event;

-    *actionsP = &lastDownEvent->actions;

-}

-

-static void RepeatUp(

-    EventPtr *eventP,

-    int reps,

-    ActionPtr **actionsP)

-{

-    EventRec upEventRec;

-    register EventPtr event, downEvent;

-    EventPtr upEvent = &upEventRec;

-    register int i;

-

-    /* the event currently sitting in *eventP is an "up" event */

-    /* we want to make it a "down" event followed by an "up" event, */

-    /* so that sequence matching on the "state" side works correctly. */

-

-    downEvent = event = *eventP;

-    *upEvent = *downEvent;

-    downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ?

-	ButtonPress : KeyPress);

-    if ((downEvent->event.eventType == ButtonPress)

-	&& (downEvent->event.modifiers != AnyModifier)

-        && (downEvent->event.modifiers | downEvent->event.modifierMask))

-	downEvent->event.modifiers

-	    &= ~buttonModifierMasks[event->event.eventCode];

-

-    if (event->event.lateModifiers)

-	event->event.lateModifiers->ref_count += reps * 2 - 1;

-

-    /* up */

-    event->next = XtNew(EventSeqRec);

-    event = event->next;

-    *event = *upEvent;

-

-    for (i=1; i<reps; i++) {

-

-	/* timer */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = timerEventRec;

-

-	/* down */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *downEvent;

-

-	/* up */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *upEvent;

-

-	}

-

-    event->next = NULL;

-    *eventP = event;

-    *actionsP = &event->actions;

-}

-

-static void RepeatUpPlus(

-    EventPtr *eventP,

-    int reps,

-    ActionPtr **actionsP)

-{

-    EventRec upEventRec;

-    register EventPtr event, downEvent, lastUpEvent = NULL;

-    EventPtr upEvent = &upEventRec;

-    register int i;

-

-    /* the event currently sitting in *eventP is an "up" event */

-    /* we want to make it a "down" event followed by an "up" event, */

-    /* so that sequence matching on the "state" side works correctly. */

-

-    downEvent = event = *eventP;

-    *upEvent = *downEvent;

-    downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ?

-	ButtonPress : KeyPress);

-    if ((downEvent->event.eventType == ButtonPress)

-	&& (downEvent->event.modifiers != AnyModifier)

-        && (downEvent->event.modifiers | downEvent->event.modifierMask))

-	downEvent->event.modifiers

-	    &= ~buttonModifierMasks[event->event.eventCode];

-

-    if (event->event.lateModifiers)

-	event->event.lateModifiers->ref_count += reps * 2;

-

-    for (i=0; i<reps; i++) {

-

-	/* up */

-	event->next = XtNew(EventSeqRec);

-	lastUpEvent = event = event->next;

-	*event = *upEvent;

-

-	/* timer */

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = timerEventRec;

-

-	/* down */

-	event->next = XtNew(EventSeqRec);

-        event = event->next;

-	*event = *downEvent;

-

-	}

-

-    event->next = lastUpEvent;

-    *eventP = event;

-    *actionsP = &lastUpEvent->actions;

-}

-

-static void RepeatOther(

-    EventPtr *eventP,

-    int reps,

-    ActionPtr **actionsP)

-{

-    register EventPtr event, tempEvent;

-    register int i;

-

-    tempEvent = event = *eventP;

-

-    if (event->event.lateModifiers)

-	event->event.lateModifiers->ref_count += reps - 1;

-

-    for (i=1; i<reps; i++) {

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *tempEvent;

-    }

-

-    *eventP = event;

-    *actionsP = &event->actions;

-}

-

-static void RepeatOtherPlus(

-    EventPtr *eventP,

-    int reps,

-    ActionPtr **actionsP)

-{

-    register EventPtr event, tempEvent;

-    register int i;

-

-    tempEvent = event = *eventP;

-

-    if (event->event.lateModifiers)

-	event->event.lateModifiers->ref_count += reps - 1;

-

-    for (i=1; i<reps; i++) {

-	event->next = XtNew(EventSeqRec);

-	event = event->next;

-	*event = *tempEvent;

-    }

-

-    event->next = event;

-    *eventP = event;

-    *actionsP = &event->actions;

-}

-

-static void RepeatEvent(

-    EventPtr *eventP,

-    int reps,

-    Boolean plus,

-    ActionPtr **actionsP)

-{

-    switch ((*eventP)->event.eventType) {

-

-	case ButtonPress:

-	case KeyPress:

-	    if (plus) RepeatDownPlus(eventP, reps, actionsP);

-	    else RepeatDown(eventP, reps, actionsP);

-	    break;

-

-	case ButtonRelease:

-	case KeyRelease:

-	    if (plus) RepeatUpPlus(eventP, reps, actionsP);

-	    else RepeatUp(eventP, reps, actionsP);

-	    break;

-

-	default:

-	    if (plus) RepeatOtherPlus(eventP, reps, actionsP);

-	    else RepeatOther(eventP, reps, actionsP);

-    }

-}

-

-static String ParseRepeat(

-    register String str,

-    int	*reps,

-    Boolean *plus, Boolean *error)

-{

-

-    /*** Parse the repetitions, for double click etc... ***/

-    if (*str != '(' || !(isdigit(str[1]) || str[1] == '+' || str[1] == ')'))

-	return str;

-    str++;

-    if (isdigit(*str)) {

-	String start = str;

-	char repStr[7];

-	size_t len;

-

-	ScanNumeric(str);

-	len = (str - start);

-	if (len < sizeof repStr) {

-	    (void) memmove(repStr, start, len);

-	    repStr[len] = '\0';

-	    *reps = StrToNum(repStr);

-	} else {

-	    Syntax("Repeat count too large.", "");

-	    *error = TRUE;

-	    return str;

-	}

-    }

-    if (*reps == 0) {

-	Syntax("Missing repeat count.","");

-	*error = True;

-	return str;

-    }

-

-    if (*str == '+') {

-	*plus = TRUE;

-	str++;

-    }

-    if (*str == ')')

-	str++;

-    else {

-	Syntax("Missing ')'.","");

-	*error = TRUE;

-    }

-

-    return str;

-}

-

-/***********************************************************************

- * ParseEventSeq

- * Parses the left hand side of a translation table production

- * up to, and consuming the ":".

- * Takes a pointer to a char* (where to start parsing) and returns an

- * event seq (in a passed in variable), having updated the String

- **********************************************************************/

-

-static String ParseEventSeq(

-    register String str,

-    EventSeqPtr *eventSeqP,

-    ActionPtr	**actionsP,

-    Boolean *error)

-{

-    EventSeqPtr *nextEvent = eventSeqP;

-

-    *eventSeqP = NULL;

-

-    while ( *str != '\0' && !IsNewline(*str)) {

-	static Event	nullEvent =

-             {0, 0,NULL, 0, 0L, 0L,_XtRegularMatch,FALSE};

-	EventPtr	event;

-

-	ScanWhitespace(str);

-

-	if (*str == '"') {

-	    str++;

-	    while (*str != '"' && *str != '\0' && !IsNewline(*str)) {

-                event = XtNew(EventRec);

-                event->event = nullEvent;

-                event->state = /* (StatePtr) -1 */ NULL;

-                event->next = NULL;

-                event->actions = NULL;

-		str = ParseQuotedStringEvent(str, event,error);

-		if (*error) {

-		    XtWarningMsg(XtNtranslationParseError, "nonLatin1",

-			XtCXtToolkitError,

-			"... probably due to non-Latin1 character in quoted string",

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

-		    return PanicModeRecovery(str);

-		}

-		*nextEvent = event;

-		*actionsP = &event->actions;

-		nextEvent = &event->next;

-	    }

-	    if (*str != '"') {

-                Syntax("Missing '\"'.","");

-                *error = TRUE;

-                return PanicModeRecovery(str);

-             }

-             else str++;

-	} else {

-	    int reps = 0;

-	    Boolean plus = FALSE;

-

-            event = XtNew(EventRec);

-            event->event = nullEvent;

-            event->state = /* (StatePtr) -1 */ NULL;

-            event->next = NULL;

-            event->actions = NULL;

-

-	    str = ParseEvent(str, event, &reps, &plus, error);

-            if (*error) return str;

-	    *nextEvent = event;

-	    *actionsP = &event->actions;

-	    if (reps > 1 || plus)

-		RepeatEvent(&event, reps, plus, actionsP);

-	    nextEvent = &event->next;

-	}

-	ScanWhitespace(str);

-        if (*str == ':') break;

-        else {

-            if (*str != ',') {

-                Syntax("',' or ':' expected while parsing event sequence.","");

-                *error = TRUE;

-                return PanicModeRecovery(str);

-	    } else str++;

-        }

-    }

-

-    if (*str != ':') {

-        Syntax("Missing ':'after event sequence.","");

-        *error = TRUE;

-        return PanicModeRecovery(str);

-    } else str++;

-

-    return str;

-}

-

-

-static String ParseActionProc(

-    register String str,

-    XrmQuark *actionProcNameP,

-    Boolean *error)

-{

-    register String start = str;

-    char procName[200];

-

-    str = ScanIdent(str);

-    if (str-start >= 199) {

-	Syntax("Action procedure name is longer than 199 chars","");

-	*error = TRUE;

-	return str;

-    }

-    (void) memmove(procName, start, str-start);

-    procName[str-start] = '\0';

-    *actionProcNameP = XrmStringToQuark( procName );

-    return str;

-}

-

-

-static String ParseString(

-    register String str,

-    String *strP)

-{

-    register String start;

-

-    if (*str == '"') {

-	register unsigned prev_len, len;

-	str++;

-	start = str;

-	*strP = NULL;

-	prev_len = 0;

-

-	while (*str != '"' && *str != '\0') {

-	    /* \"  produces double quote embedded in a quoted parameter

-	     * \\" produces backslash as last character of a quoted parameter

-	     */

-	    if (*str == '\\' &&

-		(*(str+1) == '"' || (*(str+1) == '\\' && *(str+2) == '"'))) {

-		len = prev_len + (str-start+2);

-		*strP = XtRealloc(*strP, len);

-		(void) memmove(*strP + prev_len, start, str-start);

-		prev_len = len-1;

-		str++;

-		(*strP)[prev_len-1] = *str;

-		(*strP)[prev_len] = '\0';

-		start = str+1;

-	    }

-	    str++;

-	}

-	len = prev_len + (str-start+1);

-	*strP = XtRealloc(*strP, len);

-	(void) memmove( *strP + prev_len, start, str-start);

-	(*strP)[len-1] = '\0';

-	if (*str == '"') str++; else

-            XtWarningMsg(XtNtranslationParseError,"parseString",

-                      XtCXtToolkitError,"Missing '\"'.",

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

-    } else {

-	/* scan non-quoted string, stop on whitespace, ',' or ')' */

-	start = str;

-	while (*str != ' '

-		&& *str != '\t'

-		&& *str != ','

-		&& *str != ')'

-                && !IsNewline(*str)

-		&& *str != '\0') str++;

-	*strP = __XtMalloc((unsigned)(str-start+1));

-	(void) memmove(*strP, start, str-start);

-	(*strP)[str-start] = '\0';

-    }

-    return str;

-}

-

-

-static String ParseParamSeq(

-    register String str,

-    String **paramSeqP,

-    Cardinal *paramNumP)

-{

-    typedef struct _ParamRec *ParamPtr;

-    typedef struct _ParamRec {

-	ParamPtr next;

-	String	param;

-    } ParamRec;

-

-    ParamPtr params = NULL;

-    register Cardinal num_params = 0;

-    register Cardinal i;

-

-    ScanWhitespace(str);

-    while (*str != ')' && *str != '\0' && !IsNewline(*str)) {

-	String newStr;

-	str = ParseString(str, &newStr);

-	if (newStr != NULL) {

-	    ParamPtr temp = (ParamRec*)

-		ALLOCATE_LOCAL( (unsigned)sizeof(ParamRec) );

-	    if (temp == NULL) _XtAllocError (NULL);

-

-	    num_params++;

-	    temp->next = params;

-	    params = temp;

-	    temp->param = newStr;

-	    ScanWhitespace(str);

-	    if (*str == ',') {

-		str++;

-		ScanWhitespace(str);

-	    }

-	}

-    }

-

-    if (num_params != 0) {

-	String *paramP = (String *)

-		__XtMalloc( (unsigned)(num_params+1) * sizeof(String) );

-	*paramSeqP = paramP;

-	*paramNumP = num_params;

-	paramP += num_params; /* list is LIFO right now */

-	*paramP-- = NULL;

-	for (i=0; i < num_params; i++) {

-	    ParamPtr next = params->next;

-	    *paramP-- = params->param;

-	    DEALLOCATE_LOCAL( (char *)params );

-	    params = next;

-	}

-    } else {

-	*paramSeqP = NULL;

-	*paramNumP = 0;

-    }

-

-    return str;

-}

-

-static String ParseAction(

-    String str,

-    ActionPtr actionP,

-    XrmQuark* quarkP,

-    Boolean* error)

-{

-    str = ParseActionProc(str, quarkP, error);

-    if (*error) return str;

-

-    if (*str == '(') {

-	str++;

-	str = ParseParamSeq(str, &actionP->params, &actionP->num_params);

-    } else {

-        Syntax("Missing '(' while parsing action sequence","");

-        *error = TRUE;

-        return str;

-    }

-    if (*str == ')') str++;

-    else{

-        Syntax("Missing ')' while parsing action sequence","");

-        *error = TRUE;

-        return str;

-    }

-    return str;

-}

-

-

-static String ParseActionSeq(

-    TMParseStateTree   	parseTree,

-    String 		str,

-    ActionPtr 		*actionsP,

-    Boolean		*error)

-{

-    ActionPtr *nextActionP = actionsP;

-

-    *actionsP = NULL;

-    while (*str != '\0' && !IsNewline(*str)) {

-	register ActionPtr	action;

-	XrmQuark quark;

-

-	action = XtNew(ActionRec);

-        action->params = NULL;

-        action->num_params = 0;

-        action->next = NULL;

-

-	str = ParseAction(str, action, &quark, error);

-	if (*error) return PanicModeRecovery(str);

-

-	action->idx = _XtGetQuarkIndex(parseTree, quark);

-	ScanWhitespace(str);

-	*nextActionP = action;

-	nextActionP = &action->next;

-    }

-    if (IsNewline(*str)) str++;

-    ScanWhitespace(str);

-    return str;

-}

-

-

-static void ShowProduction(

-  String currentProduction)

-{

-    Cardinal num_params = 1;

-    String params[1];

-    size_t len;

-    char *eol, *production, productionbuf[500];

-

-#ifdef __UNIXOS2__

-    eol = strchr(currentProduction, '\r');

-    if (!eol) /* try '\n' as well below */

-#endif

-        eol = strchr(currentProduction, '\n');

-    if (eol) len = eol - currentProduction;

-    else len = strlen (currentProduction);

-    production = XtStackAlloc (len + 1, productionbuf);

-    if (production == NULL) _XtAllocError (NULL);

-    (void) memmove(production, currentProduction, len);

-    production[len] = '\0';

-

-    params[0] = production;

-    XtWarningMsg(XtNtranslationParseError, "showLine", XtCXtToolkitError,

-		 "... found while parsing '%s'", params, &num_params);

-

-    XtStackFree (production, productionbuf);

-}

-

-/***********************************************************************

- * ParseTranslationTableProduction

- * Parses one line of event bindings.

- ***********************************************************************/

-

-static String ParseTranslationTableProduction(

-    TMParseStateTree	 parseTree,

-    register String str,

-    Boolean* error)

-{

-    EventSeqPtr	eventSeq = NULL;

-    ActionPtr	*actionsP;

-    String	production = str;

-

-    actionsP = NULL;

-    str = ParseEventSeq(str, &eventSeq, &actionsP,error);

-    if (*error == TRUE) {

-	ShowProduction(production);

-        FreeEventSeq(eventSeq);

-        return (str);

-    }

-    ScanWhitespace(str);

-    str = ParseActionSeq(parseTree, str, actionsP, error);

-    if (*error == TRUE) {

-	ShowProduction(production);

-        FreeEventSeq(eventSeq);

-        return (str);

-    }

-

-    _XtAddEventSeqToStateTree(eventSeq, parseTree);

-    FreeEventSeq(eventSeq);

-    return (str);

-}

-

-static String CheckForPoundSign(

-    String str,

-    _XtTranslateOp defaultOp,

-    _XtTranslateOp *actualOpRtn)

-{

-    String start;

-    char operation[20];

-    _XtTranslateOp opType;

-

-    opType = defaultOp;

-    ScanWhitespace(str);

-    if (*str == '#') {

-	int len;

-	str++;

-	start = str;

-	str = ScanIdent(str);

-	len = MIN(19, str-start);

-	(void) memmove(operation, start, len);

-	operation[len] = '\0';

-	if (!strcmp(operation,"replace"))

-	  opType = XtTableReplace;

-	else if (!strcmp(operation,"augment"))

-	  opType = XtTableAugment;

-	else if (!strcmp(operation,"override"))

-	  opType = XtTableOverride;

-	ScanWhitespace(str);

-	if (IsNewline(*str)) {

-	    str++;

-	    ScanWhitespace(str);

-	}

-    }

-    *actualOpRtn = opType;

-    return str;

-}

-

-static XtTranslations ParseTranslationTable(

-    String 	source,

-    Boolean	isAccelerator,

-    _XtTranslateOp defaultOp,

-    Boolean*	error)

-{

-    XtTranslations		xlations;

-    TMStateTree			stateTrees[8];

-    TMParseStateTreeRec		parseTreeRec, *parseTree = &parseTreeRec;

-    XrmQuark			stackQuarks[200];

-    TMBranchHeadRec		stackBranchHeads[200];

-    StatePtr			stackComplexBranchHeads[200];

-    _XtTranslateOp		actualOp;

-

-    if (source == NULL)

-      return (XtTranslations)NULL;

-

-    source = CheckForPoundSign(source, defaultOp, &actualOp);

-    if (isAccelerator && actualOp == XtTableReplace)

-	actualOp = defaultOp;

-

-    parseTree->isSimple = TRUE;

-    parseTree->mappingNotifyInterest = FALSE;

-    parseTree->isAccelerator = isAccelerator;

-    parseTree->isStackBranchHeads =

-      parseTree->isStackQuarks =

-	parseTree->isStackComplexBranchHeads = TRUE;

-

-    parseTree->numQuarks =

-      parseTree->numBranchHeads =

-	parseTree->numComplexBranchHeads = 0;

-

-    parseTree->quarkTblSize =

-      parseTree->branchHeadTblSize =

-	parseTree->complexBranchHeadTblSize = 200;

-

-    parseTree->quarkTbl = stackQuarks;

-    parseTree->branchHeadTbl = stackBranchHeads;

-    parseTree->complexBranchHeadTbl = stackComplexBranchHeads;

-

-    while (source != NULL && *source != '\0') {

-	source =  ParseTranslationTableProduction(parseTree, source, error);

-	if (*error == TRUE) break;

-    }

-    stateTrees[0] = _XtParseTreeToStateTree(parseTree);

-

-    if (!parseTree->isStackQuarks)

-      XtFree((char *)parseTree->quarkTbl);

-    if (!parseTree->isStackBranchHeads)

-      XtFree((char *)parseTree->branchHeadTbl);

-    if (!parseTree->isStackComplexBranchHeads)

-      XtFree((char *)parseTree->complexBranchHeadTbl);

-

-    xlations = _XtCreateXlations(stateTrees, 1, NULL, NULL);

-    xlations->operation = actualOp;

-

-#ifdef notdef

-    XtFree(stateTrees);

-#endif /* notdef */

-    return xlations;

-}

-

-/*** public procedures ***/

-

-/*ARGSUSED*/

-Boolean XtCvtStringToAcceleratorTable(

-    Display*	dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr from,

-    XrmValuePtr to,

-    XtPointer	*closure)

-{

-    String str;

-    Boolean error = FALSE;

-

-    if (*num_args != 0)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  "wrongParameters","cvtStringToAcceleratorTable",XtCXtToolkitError,

-          "String to AcceleratorTable conversion needs no extra arguments",

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

-    str = (String)(from->addr);

-    if (str == NULL) {

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  "badParameters","cvtStringToAcceleratorTable",XtCXtToolkitError,

-          "String to AcceleratorTable conversion needs string",

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

-	return FALSE;

-    }

-    if (to->addr != NULL) {

-	if (to->size < sizeof(XtAccelerators)) {

-	    to->size = sizeof(XtAccelerators);

-	    return FALSE;

-	}

-	*(XtAccelerators*)to->addr =

-	    (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error);

-    }

-    else {

-	static XtAccelerators staticStateTable;

-	staticStateTable =

-	    (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error);

-	to->addr = (XPointer) &staticStateTable;

-	to->size = sizeof(XtAccelerators);

-    }

-    if (error == TRUE)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  "parseError","cvtStringToAcceleratorTable",XtCXtToolkitError,

-          "String to AcceleratorTable conversion encountered errors",

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

-    return (error != TRUE);

-}

-

-

-/*ARGSUSED*/

-Boolean

-XtCvtStringToTranslationTable(

-    Display	*dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr from,

-    XrmValuePtr to,

-    XtPointer	*closure_ret)

-{

-    String str;

-    Boolean error = FALSE;

-

-    if (*num_args != 0)

-      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	    "wrongParameters","cvtStringToTranslationTable",XtCXtToolkitError,

-	    "String to TranslationTable conversion needs no extra arguments",

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

-    str = (String)(from->addr);

-    if (str == NULL) {

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  "badParameters","cvtStringToTranslation",XtCXtToolkitError,

-          "String to TranslationTable conversion needs string",

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

-	return FALSE;

-    }

-    if (to->addr != NULL) {

-	if (to->size < sizeof(XtTranslations)) {

-	    to->size = sizeof(XtTranslations);

-	    return FALSE;

-	}

-	*(XtTranslations*)to->addr =

-	    ParseTranslationTable(str, FALSE, XtTableReplace, &error);

-    }

-    else {

-	static XtTranslations staticStateTable;

-	staticStateTable =

-	    ParseTranslationTable(str, FALSE, XtTableReplace, &error);

-	to->addr = (XPointer) &staticStateTable;

-	to->size = sizeof(XtTranslations);

-    }

-    if (error == TRUE)

-        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	  "parseError","cvtStringToTranslationTable",XtCXtToolkitError,

-          "String to TranslationTable conversion encountered errors",

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

-    return (error != TRUE);

-}

-

-

-/*

- * Parses a user's or applications translation table

- */

-XtAccelerators XtParseAcceleratorTable(

-    _Xconst char* source)

-{

-    Boolean error = FALSE;

-    XtAccelerators ret =

-	(XtAccelerators) ParseTranslationTable ((char *)source, TRUE, XtTableAugment, &error);

-    if (error == TRUE)

-        XtWarningMsg ("parseError", "cvtStringToAcceleratorTable",

-	  XtCXtToolkitError,

-          "String to AcceleratorTable conversion encountered errors",

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

-    return ret;

-}

-

-XtTranslations XtParseTranslationTable(

-    _Xconst char* source)

-{

-    Boolean error = FALSE;

-    XtTranslations ret = ParseTranslationTable((char *)source, FALSE, XtTableReplace, &error);

-    if (error == TRUE)

-        XtWarningMsg ("parseError",

-	  "cvtStringToTranslationTable", XtCXtToolkitError,

-          "String to TranslationTable conversion encountered errors",

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

-    return ret;

-}

-

-void _XtTranslateInitialize(void)

-{

-    LOCK_PROCESS;

-    if (initialized) {

-	XtWarningMsg("translationError","xtTranslateInitialize",

-                  XtCXtToolkitError,"Initializing Translation manager twice.",

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

-	UNLOCK_PROCESS;

-	return;

-    }

-

-    initialized = TRUE;

-    UNLOCK_PROCESS;

-    QMeta = XrmPermStringToQuark("Meta");

-    QCtrl = XrmPermStringToQuark("Ctrl");

-    QNone = XrmPermStringToQuark("None");

-    QAny  = XrmPermStringToQuark("Any");

-

-    Compile_XtEventTable( events, XtNumber(events) );

-    Compile_XtModifierTable( modifiers, XtNumber(modifiers) );

-    CompileNameValueTable( buttonNames );

-    CompileNameValueTable( notifyModes );

-    CompileNameValueTable( motionDetails );

-#if 0

-    CompileNameValueTable( notifyDetail );

-    CompileNameValueTable( visibilityNotify );

-    CompileNameValueTable( circulation );

-    CompileNameValueTable( propertyChanged );

-#endif

-    CompileNameValueTable( mappingNotify );

-}

-

-void _XtAddTMConverters(

-    ConverterTable table)

-{

-     _XtTableAddConverter(table,

-	     _XtQString,

-	     XrmPermStringToQuark(XtRTranslationTable),

- 	     XtCvtStringToTranslationTable, (XtConvertArgList) NULL,

-	     (Cardinal)0, True, CACHED, _XtFreeTranslations, True);

-     _XtTableAddConverter(table, _XtQString,

-	     XrmPermStringToQuark(XtRAcceleratorTable),

- 	     XtCvtStringToAcceleratorTable, (XtConvertArgList) NULL,

-	     (Cardinal)0, True, CACHED, _XtFreeTranslations, True);

-     _XtTableAddConverter(table,

-	     XrmPermStringToQuark( _XtRStateTablePair ),

-	     XrmPermStringToQuark(XtRTranslationTable),

- 	     _XtCvtMergeTranslations, (XtConvertArgList) NULL,

-	     (Cardinal)0, True, CACHED, _XtFreeTranslations, True);

-}

+/***********************************************************
+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.
+
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include <ctype.h>
+#include <stdlib.h>
+#ifndef NOTASCII
+#define XK_LATIN1
+#endif
+#define XK_MISCELLANY
+#include <X11/keysymdef.h>
+
+#ifdef CACHE_TRANSLATIONS
+# ifdef REFCNT_TRANSLATIONS
+#  define CACHED XtCacheAll | XtCacheRefCount
+# else
+#  define CACHED XtCacheAll
+# endif
+#else
+# define CACHED XtCacheNone
+#endif
+
+#ifndef MAX
+#define MAX(a,b) (((a) > (b)) ? (a) : (b))
+#endif
+
+#ifndef MIN
+#define MIN(a,b) (((a) < (b)) ? (a) : (b))
+#endif
+
+static String XtNtranslationParseError = "translationParseError";
+
+typedef int		EventType;
+
+typedef String (*ParseProc)(
+    String /* str; */,
+    Opaque /* closure; */,
+    EventPtr /* event; */,
+    Boolean* /* error */);
+
+typedef TMShortCard	Value;
+typedef void (*ModifierProc)(Value, LateBindingsPtr*, Boolean, Value*);
+
+typedef struct _ModifierRec {
+    char*      name;
+    XrmQuark   signature;
+    ModifierProc modifierParseProc;
+    Value      value;
+} ModifierRec, *ModifierKeys;
+
+typedef struct _EventKey {
+    char    	*event;
+    XrmQuark	signature;
+    EventType	eventType;
+    ParseProc	parseDetail;
+    Opaque	closure;
+}EventKey, *EventKeys;
+
+typedef struct {
+    char	*name;
+    XrmQuark	signature;
+    Value	value;
+} NameValueRec, *NameValueTable;
+
+static void ParseModImmed(Value, LateBindingsPtr*, Boolean, Value*);
+static void ParseModSym(Value, LateBindingsPtr*, Boolean, Value*);
+static String PanicModeRecovery(String);
+static String CheckForPoundSign(String, _XtTranslateOp, _XtTranslateOp *);
+static KeySym StringToKeySym(String, Boolean *);
+static ModifierRec modifiers[] = {
+    {"Shift",	0,	ParseModImmed,ShiftMask},
+    {"Lock",	0,	ParseModImmed,LockMask},
+    {"Ctrl",	0,	ParseModImmed,ControlMask},
+    {"Mod1",	0,	ParseModImmed,Mod1Mask},
+    {"Mod2",	0,	ParseModImmed,Mod2Mask},
+    {"Mod3",	0,	ParseModImmed,Mod3Mask},
+    {"Mod4",	0,	ParseModImmed,Mod4Mask},
+    {"Mod5",	0,	ParseModImmed,Mod5Mask},
+    {"Meta",	0,	ParseModSym,  XK_Meta_L},
+    {"m",       0,      ParseModSym,  XK_Meta_L},
+    {"h",       0,      ParseModSym,  XK_Hyper_L},
+    {"su",      0,      ParseModSym,  XK_Super_L},
+    {"a",       0,      ParseModSym,  XK_Alt_L},
+    {"Hyper",   0,      ParseModSym,  XK_Hyper_L},
+    {"Super",   0,      ParseModSym,  XK_Super_L},
+    {"Alt",     0,      ParseModSym,  XK_Alt_L},
+    {"Button1",	0,	ParseModImmed,Button1Mask},
+    {"Button2",	0,	ParseModImmed,Button2Mask},
+    {"Button3",	0,	ParseModImmed,Button3Mask},
+    {"Button4",	0,	ParseModImmed,Button4Mask},
+    {"Button5",	0,	ParseModImmed,Button5Mask},
+    {"c",	0,	ParseModImmed,ControlMask},
+    {"s",	0,	ParseModImmed,ShiftMask},
+    {"l",	0,	ParseModImmed,LockMask},
+};
+
+static NameValueRec buttonNames[] = {
+    {"Button1",	0,	Button1},
+    {"Button2", 0,	Button2},
+    {"Button3", 0,	Button3},
+    {"Button4", 0,	Button4},
+    {"Button5", 0,	Button5},
+    {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec motionDetails[] = {
+    {"Normal",		0,	NotifyNormal},
+    {"Hint",		0,	NotifyHint},
+    {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec notifyModes[] = {
+    {"Normal",		0,	NotifyNormal},
+    {"Grab",		0,	NotifyGrab},
+    {"Ungrab",		0,	NotifyUngrab},
+    {"WhileGrabbed",    0,	NotifyWhileGrabbed},
+    {NULL, NULLQUARK, 0},
+};
+
+#if 0
+static NameValueRec notifyDetail[] = {
+    {"Ancestor",	    0,	NotifyAncestor},
+    {"Virtual",		    0,	NotifyVirtual},
+    {"Inferior",	    0,	NotifyInferior},
+    {"Nonlinear",	    0,	NotifyNonlinear},
+    {"NonlinearVirtual",    0,	NotifyNonlinearVirtual},
+    {"Pointer",		    0,	NotifyPointer},
+    {"PointerRoot",	    0,	NotifyPointerRoot},
+    {"DetailNone",	    0,	NotifyDetailNone},
+    {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec visibilityNotify[] = {
+    {"Unobscured",	    0,	VisibilityUnobscured},
+    {"PartiallyObscured",   0,	VisibilityPartiallyObscured},
+    {"FullyObscured",       0,	VisibilityFullyObscured},
+    {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec circulation[] = {
+    {"OnTop",       0,	PlaceOnTop},
+    {"OnBottom",    0,	PlaceOnBottom},
+    {NULL, NULLQUARK, 0},
+};
+
+static NameValueRec propertyChanged[] = {
+    {"NewValue",    0,	PropertyNewValue},
+    {"Delete",      0,	PropertyDelete},
+    {NULL, NULLQUARK, 0},
+};
+#endif /*0*/
+
+static NameValueRec mappingNotify[] = {
+    {"Modifier",	0,	MappingModifier},
+    {"Keyboard",	0,	MappingKeyboard},
+    {"Pointer",	0,	MappingPointer},
+    {NULL, NULLQUARK, 0},
+};
+
+static String ParseKeySym(String, Opaque, EventPtr, Boolean*);
+static String ParseKeyAndModifiers(String, Opaque, EventPtr, Boolean*);
+static String ParseTable(String, Opaque, EventPtr, Boolean*);
+static String ParseImmed(String, Opaque, EventPtr, Boolean*);
+static String ParseAddModifier(String, Opaque, EventPtr, Boolean*);
+static String ParseNone(String, Opaque, EventPtr, Boolean*);
+static String ParseAtom(String, Opaque, EventPtr, Boolean*);
+
+static EventKey events[] = {
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+{"KeyPress",	    NULLQUARK, KeyPress,	ParseKeySym,	NULL},
+{"Key", 	    NULLQUARK, KeyPress,	ParseKeySym,	NULL},
+{"KeyDown",	    NULLQUARK, KeyPress,	ParseKeySym,	NULL},
+{"Ctrl",            NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ControlMask},
+{"Shift",           NULLQUARK, KeyPress, ParseKeyAndModifiers,(Opaque)ShiftMask},
+{"Meta",            NULLQUARK, KeyPress,   ParseKeyAndModifiers,(Opaque)NULL},
+{"KeyUp",	    NULLQUARK, KeyRelease,	ParseKeySym,	NULL},
+{"KeyRelease",	    NULLQUARK, KeyRelease,	ParseKeySym,	NULL},
+
+{"ButtonPress",     NULLQUARK, ButtonPress,  ParseTable,(Opaque)buttonNames},
+{"BtnDown",	    NULLQUARK, ButtonPress,  ParseTable,(Opaque)buttonNames},
+{"Btn1Down",	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button1},
+{"Btn2Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button2},
+{"Btn3Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button3},
+{"Btn4Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button4},
+{"Btn5Down", 	    NULLQUARK, ButtonPress,	ParseImmed,(Opaque)Button5},
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+{"ButtonRelease",   NULLQUARK, ButtonRelease,  ParseTable,(Opaque)buttonNames},
+{"BtnUp", 	    NULLQUARK, ButtonRelease,  ParseTable,(Opaque)buttonNames},
+{"Btn1Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button1},
+{"Btn2Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button2},
+{"Btn3Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button3},
+{"Btn4Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button4},
+{"Btn5Up", 	    NULLQUARK, ButtonRelease,    ParseImmed,(Opaque)Button5},
+
+{"MotionNotify",    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"PtrMoved", 	    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"Motion", 	    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"MouseMoved", 	    NULLQUARK, MotionNotify, ParseTable, (Opaque)motionDetails},
+{"BtnMotion",  NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)AnyButtonMask},
+{"Btn1Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button1Mask},
+{"Btn2Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button2Mask},
+{"Btn3Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button3Mask},
+{"Btn4Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button4Mask},
+{"Btn5Motion", NULLQUARK, MotionNotify, ParseAddModifier, (Opaque)Button5Mask},
+
+{"EnterNotify",     NULLQUARK, EnterNotify,    ParseTable,(Opaque)notifyModes},
+{"Enter",	    NULLQUARK, EnterNotify,    ParseTable,(Opaque)notifyModes},
+{"EnterWindow",     NULLQUARK, EnterNotify,    ParseTable,(Opaque)notifyModes},
+
+{"LeaveNotify",     NULLQUARK, LeaveNotify,    ParseTable,(Opaque)notifyModes},
+{"LeaveWindow",     NULLQUARK, LeaveNotify,    ParseTable,(Opaque)notifyModes},
+{"Leave",	    NULLQUARK, LeaveNotify,    ParseTable,(Opaque)notifyModes},
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+{"FocusIn",	    NULLQUARK, FocusIn,	  ParseTable,(Opaque)notifyModes},
+
+{"FocusOut",	    NULLQUARK, FocusOut,       ParseTable,(Opaque)notifyModes},
+
+{"KeymapNotify",    NULLQUARK, KeymapNotify,	ParseNone,	NULL},
+{"Keymap",	    NULLQUARK, KeymapNotify,	ParseNone,	NULL},
+
+{"Expose", 	    NULLQUARK, Expose,		ParseNone,	NULL},
+
+{"GraphicsExpose",  NULLQUARK, GraphicsExpose,	ParseNone,	NULL},
+{"GrExp",	    NULLQUARK, GraphicsExpose,	ParseNone,	NULL},
+
+{"NoExpose",	    NULLQUARK, NoExpose,	ParseNone,	NULL},
+{"NoExp",	    NULLQUARK, NoExpose,	ParseNone,	NULL},
+
+{"VisibilityNotify",NULLQUARK, VisibilityNotify,ParseNone,	NULL},
+{"Visible",	    NULLQUARK, VisibilityNotify,ParseNone,	NULL},
+
+{"CreateNotify",    NULLQUARK, CreateNotify,	ParseNone,	NULL},
+{"Create",	    NULLQUARK, CreateNotify,	ParseNone,	NULL},
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+{"DestroyNotify",   NULLQUARK, DestroyNotify,	ParseNone,	NULL},
+{"Destroy",	    NULLQUARK, DestroyNotify,	ParseNone,	NULL},
+
+{"UnmapNotify",     NULLQUARK, UnmapNotify,	ParseNone,	NULL},
+{"Unmap",	    NULLQUARK, UnmapNotify,	ParseNone,	NULL},
+
+{"MapNotify",	    NULLQUARK, MapNotify,	ParseNone,	NULL},
+{"Map",		    NULLQUARK, MapNotify,	ParseNone,	NULL},
+
+{"MapRequest",	    NULLQUARK, MapRequest,	ParseNone,	NULL},
+{"MapReq",	    NULLQUARK, MapRequest,	ParseNone,	NULL},
+
+{"ReparentNotify",  NULLQUARK, ReparentNotify,	ParseNone,	NULL},
+{"Reparent",	    NULLQUARK, ReparentNotify,	ParseNone,	NULL},
+
+{"ConfigureNotify", NULLQUARK, ConfigureNotify,	ParseNone,	NULL},
+{"Configure",	    NULLQUARK, ConfigureNotify,	ParseNone,	NULL},
+
+{"ConfigureRequest",NULLQUARK, ConfigureRequest,ParseNone,	NULL},
+{"ConfigureReq",    NULLQUARK, ConfigureRequest,ParseNone,	NULL},
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+{"GravityNotify",   NULLQUARK, GravityNotify,	ParseNone,	NULL},
+{"Grav",	    NULLQUARK, GravityNotify,	ParseNone,	NULL},
+
+{"ResizeRequest",   NULLQUARK, ResizeRequest,	ParseNone,	NULL},
+{"ResReq",	    NULLQUARK, ResizeRequest,	ParseNone,	NULL},
+
+{"CirculateNotify", NULLQUARK, CirculateNotify,	ParseNone,	NULL},
+{"Circ",	    NULLQUARK, CirculateNotify,	ParseNone,	NULL},
+
+{"CirculateRequest",NULLQUARK, CirculateRequest,ParseNone,	NULL},
+{"CircReq",	    NULLQUARK, CirculateRequest,ParseNone,	NULL},
+
+{"PropertyNotify",  NULLQUARK, PropertyNotify,	ParseAtom,	NULL},
+{"Prop",	    NULLQUARK, PropertyNotify,	ParseAtom,	NULL},
+
+{"SelectionClear",  NULLQUARK, SelectionClear,	ParseAtom,	NULL},
+{"SelClr",	    NULLQUARK, SelectionClear,	ParseAtom,	NULL},
+
+{"SelectionRequest",NULLQUARK, SelectionRequest,ParseAtom,	NULL},
+{"SelReq",	    NULLQUARK, SelectionRequest,ParseAtom,	NULL},
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+{"SelectionNotify", NULLQUARK, SelectionNotify,	ParseAtom,	NULL},
+{"Select",	    NULLQUARK, SelectionNotify,	ParseAtom,	NULL},
+
+{"ColormapNotify",  NULLQUARK, ColormapNotify,	ParseNone,	NULL},
+{"Clrmap",	    NULLQUARK, ColormapNotify,	ParseNone,	NULL},
+
+{"ClientMessage",   NULLQUARK, ClientMessage,	ParseAtom,	NULL},
+{"Message",	    NULLQUARK, ClientMessage,	ParseAtom,	NULL},
+
+{"MappingNotify",   NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify},
+{"Mapping",	    NULLQUARK, MappingNotify, ParseTable, (Opaque)mappingNotify},
+
+#ifdef DEBUG
+# ifdef notdef
+{"Timer",	    NULLQUARK, _XtTimerEventType,ParseNone,	NULL},
+# endif /* notdef */
+{"EventTimer",	    NULLQUARK, _XtEventTimerEventType,ParseNone,NULL},
+#endif /* DEBUG */
+
+/* Event Name,	  Quark, Event Type,	Detail Parser, Closure */
+
+};
+
+#ifndef __UNIXOS2__
+#define IsNewline(str) ((str) == '\n')
+#else
+#define IsNewline(str) ((str) == '\n' || (str) == '\r')
+#endif
+
+#define ScanFor(str, ch) \
+    while ((*(str) != (ch)) && (*(str) != '\0') && !IsNewline(*(str))) (str)++
+
+#define ScanNumeric(str)  while ('0' <= *(str) && *(str) <= '9') (str)++
+
+#define ScanAlphanumeric(str) \
+    while (('A' <= *(str) && *(str) <= 'Z') || \
+           ('a' <= *(str) && *(str) <= 'z') || \
+           ('0' <= *(str) && *(str) <= '9')) (str)++
+
+#ifndef __UNIXOS2__
+#define ScanWhitespace(str) \
+    while (*(str) == ' ' || *(str) == '\t') (str)++
+#else
+#define ScanWhitespace(str) \
+    while (*(str) == ' ' || *(str) == '\t' || *(str) == '\r') (str)++
+#endif
+
+static Boolean initialized = FALSE;
+static XrmQuark QMeta;
+static XrmQuark QCtrl;
+static XrmQuark QNone;
+static XrmQuark QAny;
+
+static void FreeEventSeq(
+    EventSeqPtr eventSeq)
+{
+    register EventSeqPtr evs = eventSeq;
+
+    while (evs != NULL) {
+	evs->state = (StatePtr) evs;
+	if (evs->next != NULL
+	    && evs->next->state == (StatePtr) evs->next)
+	    evs->next = NULL;
+	evs = evs->next;
+    }
+
+    evs = eventSeq;
+    while (evs != NULL) {
+	register EventPtr event = evs;
+	evs = evs->next;
+	if (evs == event) evs = NULL;
+	XtFree((char *)event);
+    }
+}
+
+static void CompileNameValueTable(
+    NameValueTable table)
+{
+    register int i;
+
+    for (i=0; table[i].name; i++)
+        table[i].signature = XrmPermStringToQuark(table[i].name);
+}
+
+static int OrderEvents(_Xconst void *a, _Xconst void *b)
+{
+    return ((((_Xconst EventKey *)a)->signature <
+	     ((_Xconst EventKey *)b)->signature) ? -1 : 1);
+}
+
+static void Compile_XtEventTable(
+    EventKeys	table,
+    Cardinal	count)
+{
+    register int i;
+    register EventKeys entry = table;
+
+    for (i=count; --i >= 0; entry++)
+	entry->signature = XrmPermStringToQuark(entry->event);
+    qsort(table, count, sizeof(EventKey), OrderEvents);
+}
+
+static int OrderModifiers(_Xconst void *a, _Xconst void *b)
+{
+    return ((((_Xconst ModifierRec *)a)->signature <
+	     ((_Xconst ModifierRec *)b)->signature) ? -1 : 1);
+}
+
+static void Compile_XtModifierTable(
+    ModifierKeys table,
+    Cardinal count)
+{
+    register int i;
+    register ModifierKeys entry = table;
+
+    for (i=count; --i >= 0; entry++)
+	entry->signature = XrmPermStringToQuark(entry->name);
+    qsort(table, count, sizeof(ModifierRec), OrderModifiers);
+}
+
+static String PanicModeRecovery(
+    String str)
+{
+     ScanFor(str,'\n');
+     if (*str == '\n') str++;
+     return str;
+
+}
+
+
+static void Syntax(
+    String str0,String str1)
+{
+    Cardinal num_params = 2;
+    String params[2];
+
+    params[0] = str0;
+    params[1] = str1;
+    XtWarningMsg(XtNtranslationParseError,"parseError",XtCXtToolkitError,
+		 "translation table syntax error: %s %s",params,&num_params);
+}
+
+
+
+static Cardinal LookupTMEventType(
+  String eventStr,
+  Boolean *error)
+{
+    register int   i = 0, left, right;
+    register XrmQuark	signature;
+    static int 	previous = 0;
+
+    LOCK_PROCESS;
+    if ((signature = StringToQuark(eventStr)) == events[previous].signature) {
+	UNLOCK_PROCESS;
+	return (Cardinal) previous;
+    }
+
+    left = 0;
+    right = XtNumber(events) - 1;
+    while (left <= right) {
+	i = (left + right) >> 1;
+	if (signature < events[i].signature)
+	    right = i - 1;
+	else if (signature > events[i].signature)
+	    left = i + 1;
+	else {
+	    previous = i;
+	    UNLOCK_PROCESS;
+	    return (Cardinal) i;
+	}
+    }
+
+    Syntax("Unknown event type :  ",eventStr);
+    *error = TRUE;
+    UNLOCK_PROCESS;
+    return (Cardinal) i;
+}
+
+static void StoreLateBindings(
+    KeySym  keysymL,
+    Boolean notL,
+    KeySym keysymR,
+    Boolean notR,
+    LateBindingsPtr* lateBindings)
+{
+    LateBindingsPtr temp;
+    Boolean pair = FALSE;
+    unsigned long count,number;
+    if (lateBindings != NULL){
+        temp = *lateBindings;
+        if (temp != NULL) {
+            for (count = 0; temp[count].keysym; count++){/*EMPTY*/}
+        }
+        else count = 0;
+        if (! keysymR){
+             number = 1;pair = FALSE;
+        } else{
+             number = 2;pair = TRUE;
+        }
+
+        temp = (LateBindingsPtr)XtRealloc((char *)temp,
+            (unsigned)((count+number+1) * sizeof(LateBindings)) );
+        *lateBindings = temp;
+        temp[count].knot = notL;
+        temp[count].pair = pair;
+	if (count == 0)
+	    temp[count].ref_count = 1;
+        temp[count++].keysym = keysymL;
+        if (keysymR){
+            temp[count].knot = notR;
+            temp[count].pair = FALSE;
+	    temp[count].ref_count = 0;
+            temp[count++].keysym = keysymR;
+        }
+        temp[count].knot = temp[count].pair = FALSE;
+        temp[count].ref_count = 0;
+        temp[count].keysym = 0;
+    }
+}
+
+static void _XtParseKeysymMod(
+    String name,
+    LateBindingsPtr* lateBindings,
+    Boolean notFlag,
+    Value *valueP,
+    Boolean *error)
+{
+    KeySym keySym;
+    keySym = StringToKeySym(name, error);
+    *valueP = 0;
+    if (keySym != NoSymbol) {
+        StoreLateBindings(keySym,notFlag,(KeySym) NULL,FALSE,lateBindings);
+    }
+}
+
+static Boolean _XtLookupModifier(
+    XrmQuark signature,
+    LateBindingsPtr* lateBindings,
+    Boolean notFlag,
+    Value *valueP,
+    Bool constMask)
+{
+    register int i, left, right;
+    static int previous = 0;
+
+    LOCK_PROCESS;
+    if (signature == modifiers[previous].signature) {
+	if (constMask)  *valueP = modifiers[previous].value;
+	else /* if (modifiers[previous].modifierParseProc) always true */
+	   (*modifiers[previous].modifierParseProc)
+	      (modifiers[previous].value, lateBindings, notFlag, valueP);
+	UNLOCK_PROCESS;
+	return TRUE;
+    }
+
+    left = 0;
+    right = XtNumber(modifiers) - 1;
+    while (left <= right) {
+	i = (left + right) >> 1;
+	if (signature < modifiers[i].signature)
+	    right = i - 1;
+	else if (signature > modifiers[i].signature)
+	    left = i + 1;
+	else {
+	    previous = i;
+	    if (constMask)  *valueP = modifiers[i].value;
+	    else /* if (modifiers[i].modifierParseProc) always true */
+		(*modifiers[i].modifierParseProc)
+		    (modifiers[i].value, lateBindings, notFlag, valueP);
+	    UNLOCK_PROCESS;
+	    return TRUE;
+	}
+    }
+    UNLOCK_PROCESS;
+    return FALSE;
+}
+
+
+static String ScanIdent(
+    register String str)
+{
+    ScanAlphanumeric(str);
+    while (
+	   ('A' <= *str && *str <= 'Z')
+	|| ('a' <= *str && *str <= 'z')
+	|| ('0' <= *str && *str <= '9')
+	|| (*str == '-')
+	|| (*str == '_')
+	|| (*str == '$')
+	) str++;
+    return str;
+}
+
+static String FetchModifierToken(
+    String str,
+    XrmQuark *token_return)
+{
+    String start = str;
+
+    if (*str == '$') {
+        *token_return = QMeta;
+        str++;
+        return str;
+    }
+    if (*str == '^') {
+        *token_return = QCtrl;
+        str++;
+        return str;
+    }
+    str = ScanIdent(str);
+    if (start != str) {
+	char modStrbuf[100];
+	char* modStr;
+
+	modStr = XtStackAlloc ((size_t)(str - start + 1), modStrbuf);
+	if (modStr == NULL) _XtAllocError (NULL);
+	(void) memmove(modStr, start, str-start);
+	modStr[str-start] = '\0';
+	*token_return = XrmStringToQuark(modStr);
+	XtStackFree (modStr, modStrbuf);
+	return str;
+    }
+    return str;
+}
+
+static String ParseModifiers(
+    register String str,
+    EventPtr event,
+    Boolean* error)
+{
+    register String start;
+    Boolean notFlag, exclusive, keysymAsMod;
+    Value maskBit;
+    XrmQuark Qmod;
+
+    ScanWhitespace(str);
+    start = str;
+    str = FetchModifierToken(str, &Qmod);
+    exclusive = FALSE;
+    if (start != str) {
+	if (Qmod == QNone) {
+	    event->event.modifierMask = ~0;
+	    event->event.modifiers = 0;
+	    ScanWhitespace(str);
+	    return str;
+	} else if (Qmod == QAny) { /*backward compatability*/
+	    event->event.modifierMask = 0;
+	    event->event.modifiers = AnyModifier;
+	    ScanWhitespace(str);
+	    return str;
+	}
+	str = start; /*if plain modifier, reset to beginning */
+    }
+    else while (*str == '!' || *str == ':') {
+        if (*str == '!') {
+             exclusive = TRUE;
+             str++;
+             ScanWhitespace(str);
+        }
+        if (*str == ':') {
+             event->event.standard = TRUE;
+             str++;
+             ScanWhitespace(str);
+        }
+    }
+
+    while (*str != '<') {
+        if (*str == '~') {
+             notFlag = TRUE;
+             str++;
+          } else
+              notFlag = FALSE;
+        if (*str == '@') {
+            keysymAsMod = TRUE;
+            str++;
+        }
+        else keysymAsMod = FALSE;
+	start = str;
+        str = FetchModifierToken(str, &Qmod);
+        if (start == str) {
+            Syntax("Modifier or '<' expected","");
+            *error = TRUE;
+            return PanicModeRecovery(str);
+        }
+         if (keysymAsMod) {
+             _XtParseKeysymMod(XrmQuarkToString(Qmod),
+			       &event->event.lateModifiers,
+			       notFlag,&maskBit, error);
+	     if (*error)
+                 return PanicModeRecovery(str);
+
+         } else
+  	     if (!_XtLookupModifier(Qmod, &event->event.lateModifiers,
+				    notFlag, &maskBit, FALSE)) {
+	         Syntax("Unknown modifier name:  ", XrmQuarkToString(Qmod));
+                 *error = TRUE;
+                 return PanicModeRecovery(str);
+             }
+        event->event.modifierMask |= maskBit;
+	if (notFlag) event->event.modifiers &= ~maskBit;
+	else event->event.modifiers |= maskBit;
+        ScanWhitespace(str);
+    }
+    if (exclusive) event->event.modifierMask = ~0;
+    return str;
+}
+
+static String ParseXtEventType(
+    register String str,
+    EventPtr event,
+    Cardinal *tmEventP,
+    Boolean* error)
+{
+    String start = str;
+    char eventTypeStrbuf[100];
+    char* eventTypeStr;
+
+    ScanAlphanumeric(str);
+    eventTypeStr = XtStackAlloc ((size_t)(str - start + 1), eventTypeStrbuf);
+    if (eventTypeStr == NULL) _XtAllocError (NULL);
+    (void) memmove(eventTypeStr, start, str-start);
+    eventTypeStr[str-start] = '\0';
+    *tmEventP = LookupTMEventType(eventTypeStr,error);
+    XtStackFree (eventTypeStr, eventTypeStrbuf);
+    if (*error)
+        return PanicModeRecovery(str);
+    event->event.eventType = events[*tmEventP].eventType;
+    return str;
+}
+
+static unsigned long StrToHex(
+    String str)
+{
+    register char   c;
+    register unsigned long    val = 0;
+
+    while ((c = *str)) {
+	if ('0' <= c && c <= '9') val = val*16+c-'0';
+	else if ('a' <= c && c <= 'z') val = val*16+c-'a'+10;
+	else if ('A' <= c && c <= 'Z') val = val*16+c-'A'+10;
+	else return 0;
+	str++;
+    }
+
+    return val;
+}
+
+static unsigned long StrToOct(
+    String str)
+{
+    register char c;
+    register unsigned long  val = 0;
+
+    while ((c = *str)) {
+        if ('0' <= c && c <= '7') val = val*8+c-'0'; else return 0;
+	str++;
+    }
+
+    return val;
+}
+
+static unsigned long StrToNum(
+    String str)
+{
+    register char c;
+    register unsigned long val = 0;
+
+    if (*str == '0') {
+	str++;
+	if (*str == 'x' || *str == 'X') return StrToHex(++str);
+	else return StrToOct(str);
+    }
+
+    while ((c = *str)) {
+	if ('0' <= c && c <= '9') val = val*10+c-'0';
+	else return 0;
+	str++;
+    }
+
+    return val;
+}
+
+static KeySym StringToKeySym(
+    String str,
+    Boolean *error)
+{
+    KeySym k;
+
+    if (str == NULL || *str == '\0') return (KeySym) 0;
+
+#ifndef NOTASCII
+    /* special case single character ASCII, for speed */
+    if (*(str+1) == '\0') {
+	if (' ' <= *str && *str <= '~') return XK_space + (*str - ' ');
+    }
+#endif
+
+    if ('0' <= *str && *str <= '9') return (KeySym) StrToNum(str);
+    k = XStringToKeysym(str);
+    if (k != NoSymbol) return k;
+
+#ifdef NOTASCII
+    /* fall-back case to preserve backwards compatibility; no-one
+     * should be relying upon this!
+     */
+    if (*(str+1) == '\0') return (KeySym) *str;
+#endif
+
+    Syntax("Unknown keysym name: ", str);
+    *error = TRUE;
+    return NoSymbol;
+}
+/* ARGSUSED */
+static void ParseModImmed(
+    Value value,
+    LateBindingsPtr* lateBindings,
+    Boolean notFlag,
+    Value* valueP)
+{
+    *valueP = value;
+}
+
+ /* is only valid with keysyms that have an _L and _R in their name;
+  * and ignores keysym lookup errors (i.e. assumes only valid keysyms)
+  */
+static void ParseModSym(
+    Value value,
+    LateBindingsPtr* lateBindings,
+    Boolean notFlag,
+    Value* valueP)
+{
+    register KeySym keysymL = (KeySym)value;
+    register KeySym keysymR = keysymL + 1; /* valid for supported keysyms */
+    StoreLateBindings(keysymL,notFlag,keysymR,notFlag,lateBindings);
+    *valueP = 0;
+}
+
+#ifdef sparc
+/*
+ * The stupid optimizer in SunOS 4.0.3 and below generates bogus code that
+ * causes the value of the most recently used variable to be returned instead
+ * of the value passed in.
+ */
+static String stupid_optimizer_kludge;
+#define BROKEN_OPTIMIZER_HACK(val) stupid_optimizer_kludge = (val)
+#else
+#define BROKEN_OPTIMIZER_HACK(val) val
+#endif
+
+/* ARGSUSED */
+static String ParseImmed(
+    register String str,
+    register Opaque closure,
+    register EventPtr event,
+    Boolean* error)
+{
+    event->event.eventCode = (unsigned long)closure;
+    event->event.eventCodeMask = ~0UL;
+
+    return BROKEN_OPTIMIZER_HACK(str);
+}
+
+/* ARGSUSED */
+static String ParseAddModifier(
+    register String str,
+    register Opaque closure,
+    register EventPtr event,
+    Boolean* error)
+{
+    register unsigned long modval = (unsigned long)closure;
+    event->event.modifiers |= modval;
+    if (modval != AnyButtonMask) /* AnyButtonMask is don't-care mask */
+	event->event.modifierMask |= modval;
+
+    return BROKEN_OPTIMIZER_HACK(str);
+}
+
+
+static String ParseKeyAndModifiers(
+    String str,
+    Opaque closure,
+    EventPtr event,
+    Boolean* error)
+{
+    str = ParseKeySym(str, closure, event,error);
+    if ((unsigned long) closure == 0) {
+	Value metaMask; /* unused */
+	(void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE,
+				 &metaMask, FALSE);
+    } else {
+	event->event.modifiers |= (unsigned long) closure;
+	event->event.modifierMask |= (unsigned long) closure;
+    }
+    return str;
+}
+
+/*ARGSUSED*/
+static String ParseKeySym(
+    register String str,
+    Opaque closure,
+    EventPtr event,
+    Boolean* error)
+{
+    char *start;
+    char keySymNamebuf[100];
+    char* keySymName;
+
+    ScanWhitespace(str);
+
+    if (*str == '\\') {
+	keySymName = keySymNamebuf;
+	str++;
+	keySymName[0] = *str;
+	if (*str != '\0' && !IsNewline(*str)) str++;
+	keySymName[1] = '\0';
+	event->event.eventCode = StringToKeySym(keySymName, error);
+	event->event.eventCodeMask = ~0L;
+    } else if (*str == ',' || *str == ':' ||
+             /* allow leftparen to be single char symbol,
+              * for backwards compatibility
+              */
+             (*str == '(' && *(str+1) >= '0' && *(str+1) <= '9')) {
+	keySymName = keySymNamebuf; /* just so we can stackfree it later */
+	/* no detail */
+	event->event.eventCode = 0L;
+        event->event.eventCodeMask = 0L;
+    } else {
+	start = str;
+	while (
+		*str != ','
+		&& *str != ':'
+		&& *str != ' '
+		&& *str != '\t'
+                && !IsNewline(*str)
+                && (*str != '(' || *(str+1) <= '0' || *(str+1) >= '9')
+		&& *str != '\0') str++;
+	keySymName = XtStackAlloc ((size_t)(str - start + 1), keySymNamebuf);
+	(void) memmove(keySymName, start, str-start);
+	keySymName[str-start] = '\0';
+	event->event.eventCode = StringToKeySym(keySymName, error);
+	event->event.eventCodeMask = ~0L;
+    }
+    if (*error) {
+	/* We never get here when keySymName hasn't been allocated */
+	if (keySymName[0] == '<') {
+	    /* special case for common error */
+	    XtWarningMsg(XtNtranslationParseError, "missingComma",
+			 XtCXtToolkitError,
+		     "... possibly due to missing ',' in event sequence.",
+		     (String*)NULL, (Cardinal*)NULL);
+	}
+	XtStackFree (keySymName, keySymNamebuf);
+	return PanicModeRecovery(str);
+    }
+    if (event->event.standard)
+	event->event.matchEvent = _XtMatchUsingStandardMods;
+    else
+	event->event.matchEvent = _XtMatchUsingDontCareMods;
+
+    XtStackFree (keySymName, keySymNamebuf);
+
+    return str;
+}
+
+static String ParseTable(
+    register String str,
+    Opaque closure,
+    EventPtr event,
+    Boolean* error)
+{
+    register String start = str;
+    register XrmQuark signature;
+    NameValueTable table = (NameValueTable) closure;
+    char tableSymName[100];
+
+    event->event.eventCode = 0L;
+    ScanAlphanumeric(str);
+    if (str == start) {event->event.eventCodeMask = 0L; return str; }
+    if (str-start >= 99) {
+	Syntax("Invalid Detail Type (string is too long).", "");
+	*error = TRUE;
+	return str;
+    }
+    (void) memmove(tableSymName, start, str-start);
+    tableSymName[str-start] = '\0';
+    signature = StringToQuark(tableSymName);
+    for (; table->signature != NULLQUARK; table++)
+	if (table->signature == signature) {
+	    event->event.eventCode = table->value;
+	    event->event.eventCodeMask = ~0L;
+	    return str;
+	}
+
+    Syntax("Unknown Detail Type:  ", tableSymName);
+    *error = TRUE;
+    return PanicModeRecovery(str);
+}
+
+/*ARGSUSED*/
+static String ParseNone(
+    String str,
+    Opaque closure,
+    EventPtr event,
+    Boolean* error)
+{
+    event->event.eventCode = 0;
+    event->event.eventCodeMask = 0;
+
+    return BROKEN_OPTIMIZER_HACK(str);
+}
+
+/*ARGSUSED*/
+static String ParseAtom(
+    String str,
+    Opaque closure,
+    EventPtr event,
+    Boolean* error)
+{
+    ScanWhitespace(str);
+
+    if (*str == ',' || *str == ':') {
+	/* no detail */
+	event->event.eventCode = 0L;
+        event->event.eventCodeMask = 0L;
+    } else {
+	char *start, atomName[1000];
+	start = str;
+	while (
+		*str != ','
+		&& *str != ':'
+		&& *str != ' '
+		&& *str != '\t'
+                && !IsNewline(*str)
+		&& *str != '\0') str++;
+	if (str-start >= 999) {
+	    Syntax( "Atom name must be less than 1000 characters long.", "" );
+	    *error = TRUE;
+	    return str;
+	}
+	(void) memmove(atomName, start, str-start);
+	atomName[str-start] = '\0';
+	event->event.eventCode = XrmStringToQuark(atomName);
+	event->event.matchEvent = _XtMatchAtom;
+    }
+    return str;
+}
+
+static ModifierMask buttonModifierMasks[] = {
+    0, Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask
+};
+static String ParseRepeat(String, int *, Boolean *, Boolean *);
+
+static String ParseEvent(
+    register String str,
+    EventPtr	event,
+    int*	reps,
+    Boolean*	plus,
+    Boolean* error)
+{
+    Cardinal	tmEvent;
+
+    str = ParseModifiers(str, event,error);
+    if (*error) return str;
+    if (*str != '<') {
+         Syntax("Missing '<' while parsing event type.","");
+         *error = TRUE;
+         return PanicModeRecovery(str);
+    }
+    else str++;
+    str = ParseXtEventType(str, event, &tmEvent,error);
+    if (*error) return str;
+    if (*str != '>'){
+         Syntax("Missing '>' while parsing event type","");
+         *error = TRUE;
+         return PanicModeRecovery(str);
+    }
+    else str++;
+    if (*str == '(') {
+	str = ParseRepeat(str, reps, plus, error);
+	if (*error) return str;
+    }
+    str = (*(events[tmEvent].parseDetail))(
+        str, events[tmEvent].closure, event,error);
+    if (*error) return str;
+
+/* gross hack! ||| this kludge is related to the X11 protocol deficiency w.r.t.
+ * modifiers in grabs.
+ */
+    if ((event->event.eventType == ButtonRelease)
+	&& (event->event.modifiers | event->event.modifierMask) /* any */
+        && (event->event.modifiers != AnyModifier))
+    {
+	event->event.modifiers
+	    |= buttonModifierMasks[event->event.eventCode];
+	/* the button that is going up will always be in the modifiers... */
+    }
+
+    return str;
+}
+
+static String ParseQuotedStringEvent(
+    register String str,
+    register EventPtr event,
+    Boolean *error)
+{
+    Value metaMask;
+    char	s[2];
+
+    if (*str=='^') {
+	str++;
+	event->event.modifiers = ControlMask;
+    } else if (*str == '$') {
+	str++;
+	(void) _XtLookupModifier(QMeta, &event->event.lateModifiers, FALSE,
+				 &metaMask, FALSE);
+    }
+    if (*str == '\\')
+	str++;
+    s[0] = *str;
+    s[1] = '\0';
+    if (*str != '\0' && !IsNewline(*str)) str++;
+    event->event.eventType = KeyPress;
+    event->event.eventCode = StringToKeySym(s, error);
+    if (*error) return PanicModeRecovery(str);
+    event->event.eventCodeMask = ~0L;
+    event->event.matchEvent = _XtMatchUsingStandardMods;
+    event->event.standard = TRUE;
+
+    return str;
+}
+
+
+static EventSeqRec timerEventRec = {
+    {0, 0, NULL, _XtEventTimerEventType, 0L, 0L, NULL, False},
+    /* (StatePtr) -1 */ NULL,
+    NULL,
+    NULL
+};
+
+static void RepeatDown(
+    EventPtr *eventP,
+    int reps,
+    ActionPtr **actionsP)
+{
+    EventRec upEventRec;
+    register EventPtr event, downEvent;
+    EventPtr upEvent = &upEventRec;
+    register int i;
+
+    downEvent = event = *eventP;
+    *upEvent = *downEvent;
+    upEvent->event.eventType = ((event->event.eventType == ButtonPress) ?
+	ButtonRelease : KeyRelease);
+    if ((upEvent->event.eventType == ButtonRelease)
+	&& (upEvent->event.modifiers != AnyModifier)
+        && (upEvent->event.modifiers | upEvent->event.modifierMask))
+	upEvent->event.modifiers
+	    |= buttonModifierMasks[event->event.eventCode];
+
+    if (event->event.lateModifiers)
+	event->event.lateModifiers->ref_count += (reps - 1) * 2;
+
+    for (i=1; i<reps; i++) {
+
+	/* up */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *upEvent;
+
+	/* timer */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = timerEventRec;
+
+	/* down */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *downEvent;
+
+    }
+
+    event->next = NULL;
+    *eventP = event;
+    *actionsP = &event->actions;
+}
+
+static void RepeatDownPlus(
+    EventPtr *eventP,
+    int reps,
+    ActionPtr **actionsP)
+{
+    EventRec upEventRec;
+    register EventPtr event, downEvent, lastDownEvent = NULL;
+    EventPtr upEvent = &upEventRec;
+    register int i;
+
+    downEvent = event = *eventP;
+    *upEvent = *downEvent;
+    upEvent->event.eventType = ((event->event.eventType == ButtonPress) ?
+	ButtonRelease : KeyRelease);
+    if ((upEvent->event.eventType == ButtonRelease)
+	&& (upEvent->event.modifiers != AnyModifier)
+        && (upEvent->event.modifiers | upEvent->event.modifierMask))
+	upEvent->event.modifiers
+	    |= buttonModifierMasks[event->event.eventCode];
+
+    if (event->event.lateModifiers)
+	event->event.lateModifiers->ref_count += reps * 2 - 1;
+
+    for (i=0; i<reps; i++) {
+
+	if (i > 0) {
+	/* down */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *downEvent;
+	}
+	lastDownEvent = event;
+
+	/* up */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *upEvent;
+
+	/* timer */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = timerEventRec;
+
+    }
+
+    event->next = lastDownEvent;
+    *eventP = event;
+    *actionsP = &lastDownEvent->actions;
+}
+
+static void RepeatUp(
+    EventPtr *eventP,
+    int reps,
+    ActionPtr **actionsP)
+{
+    EventRec upEventRec;
+    register EventPtr event, downEvent;
+    EventPtr upEvent = &upEventRec;
+    register int i;
+
+    /* the event currently sitting in *eventP is an "up" event */
+    /* we want to make it a "down" event followed by an "up" event, */
+    /* so that sequence matching on the "state" side works correctly. */
+
+    downEvent = event = *eventP;
+    *upEvent = *downEvent;
+    downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ?
+	ButtonPress : KeyPress);
+    if ((downEvent->event.eventType == ButtonPress)
+	&& (downEvent->event.modifiers != AnyModifier)
+        && (downEvent->event.modifiers | downEvent->event.modifierMask))
+	downEvent->event.modifiers
+	    &= ~buttonModifierMasks[event->event.eventCode];
+
+    if (event->event.lateModifiers)
+	event->event.lateModifiers->ref_count += reps * 2 - 1;
+
+    /* up */
+    event->next = XtNew(EventSeqRec);
+    event = event->next;
+    *event = *upEvent;
+
+    for (i=1; i<reps; i++) {
+
+	/* timer */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = timerEventRec;
+
+	/* down */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *downEvent;
+
+	/* up */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *upEvent;
+
+	}
+
+    event->next = NULL;
+    *eventP = event;
+    *actionsP = &event->actions;
+}
+
+static void RepeatUpPlus(
+    EventPtr *eventP,
+    int reps,
+    ActionPtr **actionsP)
+{
+    EventRec upEventRec;
+    register EventPtr event, downEvent, lastUpEvent = NULL;
+    EventPtr upEvent = &upEventRec;
+    register int i;
+
+    /* the event currently sitting in *eventP is an "up" event */
+    /* we want to make it a "down" event followed by an "up" event, */
+    /* so that sequence matching on the "state" side works correctly. */
+
+    downEvent = event = *eventP;
+    *upEvent = *downEvent;
+    downEvent->event.eventType = ((event->event.eventType == ButtonRelease) ?
+	ButtonPress : KeyPress);
+    if ((downEvent->event.eventType == ButtonPress)
+	&& (downEvent->event.modifiers != AnyModifier)
+        && (downEvent->event.modifiers | downEvent->event.modifierMask))
+	downEvent->event.modifiers
+	    &= ~buttonModifierMasks[event->event.eventCode];
+
+    if (event->event.lateModifiers)
+	event->event.lateModifiers->ref_count += reps * 2;
+
+    for (i=0; i<reps; i++) {
+
+	/* up */
+	event->next = XtNew(EventSeqRec);
+	lastUpEvent = event = event->next;
+	*event = *upEvent;
+
+	/* timer */
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = timerEventRec;
+
+	/* down */
+	event->next = XtNew(EventSeqRec);
+        event = event->next;
+	*event = *downEvent;
+
+	}
+
+    event->next = lastUpEvent;
+    *eventP = event;
+    *actionsP = &lastUpEvent->actions;
+}
+
+static void RepeatOther(
+    EventPtr *eventP,
+    int reps,
+    ActionPtr **actionsP)
+{
+    register EventPtr event, tempEvent;
+    register int i;
+
+    tempEvent = event = *eventP;
+
+    if (event->event.lateModifiers)
+	event->event.lateModifiers->ref_count += reps - 1;
+
+    for (i=1; i<reps; i++) {
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *tempEvent;
+    }
+
+    *eventP = event;
+    *actionsP = &event->actions;
+}
+
+static void RepeatOtherPlus(
+    EventPtr *eventP,
+    int reps,
+    ActionPtr **actionsP)
+{
+    register EventPtr event, tempEvent;
+    register int i;
+
+    tempEvent = event = *eventP;
+
+    if (event->event.lateModifiers)
+	event->event.lateModifiers->ref_count += reps - 1;
+
+    for (i=1; i<reps; i++) {
+	event->next = XtNew(EventSeqRec);
+	event = event->next;
+	*event = *tempEvent;
+    }
+
+    event->next = event;
+    *eventP = event;
+    *actionsP = &event->actions;
+}
+
+static void RepeatEvent(
+    EventPtr *eventP,
+    int reps,
+    Boolean plus,
+    ActionPtr **actionsP)
+{
+    switch ((*eventP)->event.eventType) {
+
+	case ButtonPress:
+	case KeyPress:
+	    if (plus) RepeatDownPlus(eventP, reps, actionsP);
+	    else RepeatDown(eventP, reps, actionsP);
+	    break;
+
+	case ButtonRelease:
+	case KeyRelease:
+	    if (plus) RepeatUpPlus(eventP, reps, actionsP);
+	    else RepeatUp(eventP, reps, actionsP);
+	    break;
+
+	default:
+	    if (plus) RepeatOtherPlus(eventP, reps, actionsP);
+	    else RepeatOther(eventP, reps, actionsP);
+    }
+}
+
+static String ParseRepeat(
+    register String str,
+    int	*reps,
+    Boolean *plus, Boolean *error)
+{
+
+    /*** Parse the repetitions, for double click etc... ***/
+    if (*str != '(' || !(isdigit(str[1]) || str[1] == '+' || str[1] == ')'))
+	return str;
+    str++;
+    if (isdigit(*str)) {
+	String start = str;
+	char repStr[7];
+	size_t len;
+
+	ScanNumeric(str);
+	len = (str - start);
+	if (len < sizeof repStr) {
+	    (void) memmove(repStr, start, len);
+	    repStr[len] = '\0';
+	    *reps = StrToNum(repStr);
+	} else {
+	    Syntax("Repeat count too large.", "");
+	    *error = TRUE;
+	    return str;
+	}
+    }
+    if (*reps == 0) {
+	Syntax("Missing repeat count.","");
+	*error = True;
+	return str;
+    }
+
+    if (*str == '+') {
+	*plus = TRUE;
+	str++;
+    }
+    if (*str == ')')
+	str++;
+    else {
+	Syntax("Missing ')'.","");
+	*error = TRUE;
+    }
+
+    return str;
+}
+
+/***********************************************************************
+ * ParseEventSeq
+ * Parses the left hand side of a translation table production
+ * up to, and consuming the ":".
+ * Takes a pointer to a char* (where to start parsing) and returns an
+ * event seq (in a passed in variable), having updated the String
+ **********************************************************************/
+
+static String ParseEventSeq(
+    register String str,
+    EventSeqPtr *eventSeqP,
+    ActionPtr	**actionsP,
+    Boolean *error)
+{
+    EventSeqPtr *nextEvent = eventSeqP;
+
+    *eventSeqP = NULL;
+
+    while ( *str != '\0' && !IsNewline(*str)) {
+	static Event	nullEvent =
+             {0, 0,NULL, 0, 0L, 0L,_XtRegularMatch,FALSE};
+	EventPtr	event;
+
+	ScanWhitespace(str);
+
+	if (*str == '"') {
+	    str++;
+	    while (*str != '"' && *str != '\0' && !IsNewline(*str)) {
+                event = XtNew(EventRec);
+                event->event = nullEvent;
+                event->state = /* (StatePtr) -1 */ NULL;
+                event->next = NULL;
+                event->actions = NULL;
+		str = ParseQuotedStringEvent(str, event,error);
+		if (*error) {
+		    XtWarningMsg(XtNtranslationParseError, "nonLatin1",
+			XtCXtToolkitError,
+			"... probably due to non-Latin1 character in quoted string",
+			(String*)NULL, (Cardinal*)NULL);
+		    return PanicModeRecovery(str);
+		}
+		*nextEvent = event;
+		*actionsP = &event->actions;
+		nextEvent = &event->next;
+	    }
+	    if (*str != '"') {
+                Syntax("Missing '\"'.","");
+                *error = TRUE;
+                return PanicModeRecovery(str);
+             }
+             else str++;
+	} else {
+	    int reps = 0;
+	    Boolean plus = FALSE;
+
+            event = XtNew(EventRec);
+            event->event = nullEvent;
+            event->state = /* (StatePtr) -1 */ NULL;
+            event->next = NULL;
+            event->actions = NULL;
+
+	    str = ParseEvent(str, event, &reps, &plus, error);
+            if (*error) return str;
+	    *nextEvent = event;
+	    *actionsP = &event->actions;
+	    if (reps > 1 || plus)
+		RepeatEvent(&event, reps, plus, actionsP);
+	    nextEvent = &event->next;
+	}
+	ScanWhitespace(str);
+        if (*str == ':') break;
+        else {
+            if (*str != ',') {
+                Syntax("',' or ':' expected while parsing event sequence.","");
+                *error = TRUE;
+                return PanicModeRecovery(str);
+	    } else str++;
+        }
+    }
+
+    if (*str != ':') {
+        Syntax("Missing ':'after event sequence.","");
+        *error = TRUE;
+        return PanicModeRecovery(str);
+    } else str++;
+
+    return str;
+}
+
+
+static String ParseActionProc(
+    register String str,
+    XrmQuark *actionProcNameP,
+    Boolean *error)
+{
+    register String start = str;
+    char procName[200];
+
+    str = ScanIdent(str);
+    if (str-start >= 199) {
+	Syntax("Action procedure name is longer than 199 chars","");
+	*error = TRUE;
+	return str;
+    }
+    (void) memmove(procName, start, str-start);
+    procName[str-start] = '\0';
+    *actionProcNameP = XrmStringToQuark( procName );
+    return str;
+}
+
+
+static String ParseString(
+    register String str,
+    String *strP)
+{
+    register String start;
+
+    if (*str == '"') {
+	register unsigned prev_len, len;
+	str++;
+	start = str;
+	*strP = NULL;
+	prev_len = 0;
+
+	while (*str != '"' && *str != '\0') {
+	    /* \"  produces double quote embedded in a quoted parameter
+	     * \\" produces backslash as last character of a quoted parameter
+	     */
+	    if (*str == '\\' &&
+		(*(str+1) == '"' || (*(str+1) == '\\' && *(str+2) == '"'))) {
+		len = prev_len + (str-start+2);
+		*strP = XtRealloc(*strP, len);
+		(void) memmove(*strP + prev_len, start, str-start);
+		prev_len = len-1;
+		str++;
+		(*strP)[prev_len-1] = *str;
+		(*strP)[prev_len] = '\0';
+		start = str+1;
+	    }
+	    str++;
+	}
+	len = prev_len + (str-start+1);
+	*strP = XtRealloc(*strP, len);
+	(void) memmove( *strP + prev_len, start, str-start);
+	(*strP)[len-1] = '\0';
+	if (*str == '"') str++; else
+            XtWarningMsg(XtNtranslationParseError,"parseString",
+                      XtCXtToolkitError,"Missing '\"'.",
+		      (String *)NULL, (Cardinal *)NULL);
+    } else {
+	/* scan non-quoted string, stop on whitespace, ',' or ')' */
+	start = str;
+	while (*str != ' '
+		&& *str != '\t'
+		&& *str != ','
+		&& *str != ')'
+                && !IsNewline(*str)
+		&& *str != '\0') str++;
+	*strP = __XtMalloc((unsigned)(str-start+1));
+	(void) memmove(*strP, start, str-start);
+	(*strP)[str-start] = '\0';
+    }
+    return str;
+}
+
+
+static String ParseParamSeq(
+    register String str,
+    String **paramSeqP,
+    Cardinal *paramNumP)
+{
+    typedef struct _ParamRec *ParamPtr;
+    typedef struct _ParamRec {
+	ParamPtr next;
+	String	param;
+    } ParamRec;
+
+    ParamPtr params = NULL;
+    register Cardinal num_params = 0;
+    register Cardinal i;
+
+    ScanWhitespace(str);
+    while (*str != ')' && *str != '\0' && !IsNewline(*str)) {
+	String newStr;
+	str = ParseString(str, &newStr);
+	if (newStr != NULL) {
+	    ParamPtr temp = (ParamRec*)
+		ALLOCATE_LOCAL( (unsigned)sizeof(ParamRec) );
+	    if (temp == NULL) _XtAllocError (NULL);
+
+	    num_params++;
+	    temp->next = params;
+	    params = temp;
+	    temp->param = newStr;
+	    ScanWhitespace(str);
+	    if (*str == ',') {
+		str++;
+		ScanWhitespace(str);
+	    }
+	}
+    }
+
+    if (num_params != 0) {
+	String *paramP = (String *)
+		__XtMalloc( (unsigned)(num_params+1) * sizeof(String) );
+	*paramSeqP = paramP;
+	*paramNumP = num_params;
+	paramP += num_params; /* list is LIFO right now */
+	*paramP-- = NULL;
+	for (i=0; i < num_params; i++) {
+	    ParamPtr next = params->next;
+	    *paramP-- = params->param;
+	    DEALLOCATE_LOCAL( (char *)params );
+	    params = next;
+	}
+    } else {
+	*paramSeqP = NULL;
+	*paramNumP = 0;
+    }
+
+    return str;
+}
+
+static String ParseAction(
+    String str,
+    ActionPtr actionP,
+    XrmQuark* quarkP,
+    Boolean* error)
+{
+    str = ParseActionProc(str, quarkP, error);
+    if (*error) return str;
+
+    if (*str == '(') {
+	str++;
+	str = ParseParamSeq(str, &actionP->params, &actionP->num_params);
+    } else {
+        Syntax("Missing '(' while parsing action sequence","");
+        *error = TRUE;
+        return str;
+    }
+    if (*str == ')') str++;
+    else{
+        Syntax("Missing ')' while parsing action sequence","");
+        *error = TRUE;
+        return str;
+    }
+    return str;
+}
+
+
+static String ParseActionSeq(
+    TMParseStateTree   	parseTree,
+    String 		str,
+    ActionPtr 		*actionsP,
+    Boolean		*error)
+{
+    ActionPtr *nextActionP = actionsP;
+
+    *actionsP = NULL;
+    while (*str != '\0' && !IsNewline(*str)) {
+	register ActionPtr	action;
+	XrmQuark quark;
+
+	action = XtNew(ActionRec);
+        action->params = NULL;
+        action->num_params = 0;
+        action->next = NULL;
+
+	str = ParseAction(str, action, &quark, error);
+	if (*error) return PanicModeRecovery(str);
+
+	action->idx = _XtGetQuarkIndex(parseTree, quark);
+	ScanWhitespace(str);
+	*nextActionP = action;
+	nextActionP = &action->next;
+    }
+    if (IsNewline(*str)) str++;
+    ScanWhitespace(str);
+    return str;
+}
+
+
+static void ShowProduction(
+  String currentProduction)
+{
+    Cardinal num_params = 1;
+    String params[1];
+    size_t len;
+    char *eol, *production, productionbuf[500];
+
+#ifdef __UNIXOS2__
+    eol = strchr(currentProduction, '\r');
+    if (!eol) /* try '\n' as well below */
+#endif
+        eol = strchr(currentProduction, '\n');
+    if (eol) len = eol - currentProduction;
+    else len = strlen (currentProduction);
+    production = XtStackAlloc (len + 1, productionbuf);
+    if (production == NULL) _XtAllocError (NULL);
+    (void) memmove(production, currentProduction, len);
+    production[len] = '\0';
+
+    params[0] = production;
+    XtWarningMsg(XtNtranslationParseError, "showLine", XtCXtToolkitError,
+		 "... found while parsing '%s'", params, &num_params);
+
+    XtStackFree (production, productionbuf);
+}
+
+/***********************************************************************
+ * ParseTranslationTableProduction
+ * Parses one line of event bindings.
+ ***********************************************************************/
+
+static String ParseTranslationTableProduction(
+    TMParseStateTree	 parseTree,
+    register String str,
+    Boolean* error)
+{
+    EventSeqPtr	eventSeq = NULL;
+    ActionPtr	*actionsP;
+    String	production = str;
+
+    actionsP = NULL;
+    str = ParseEventSeq(str, &eventSeq, &actionsP,error);
+    if (*error == TRUE) {
+	ShowProduction(production);
+        FreeEventSeq(eventSeq);
+        return (str);
+    }
+    ScanWhitespace(str);
+    str = ParseActionSeq(parseTree, str, actionsP, error);
+    if (*error == TRUE) {
+	ShowProduction(production);
+        FreeEventSeq(eventSeq);
+        return (str);
+    }
+
+    _XtAddEventSeqToStateTree(eventSeq, parseTree);
+    FreeEventSeq(eventSeq);
+    return (str);
+}
+
+static String CheckForPoundSign(
+    String str,
+    _XtTranslateOp defaultOp,
+    _XtTranslateOp *actualOpRtn)
+{
+    String start;
+    char operation[20];
+    _XtTranslateOp opType;
+
+    opType = defaultOp;
+    ScanWhitespace(str);
+    if (*str == '#') {
+	int len;
+	str++;
+	start = str;
+	str = ScanIdent(str);
+	len = MIN(19, str-start);
+	(void) memmove(operation, start, len);
+	operation[len] = '\0';
+	if (!strcmp(operation,"replace"))
+	  opType = XtTableReplace;
+	else if (!strcmp(operation,"augment"))
+	  opType = XtTableAugment;
+	else if (!strcmp(operation,"override"))
+	  opType = XtTableOverride;
+	ScanWhitespace(str);
+	if (IsNewline(*str)) {
+	    str++;
+	    ScanWhitespace(str);
+	}
+    }
+    *actualOpRtn = opType;
+    return str;
+}
+
+static XtTranslations ParseTranslationTable(
+    String 	source,
+    Boolean	isAccelerator,
+    _XtTranslateOp defaultOp,
+    Boolean*	error)
+{
+    XtTranslations		xlations;
+    TMStateTree			stateTrees[8];
+    TMParseStateTreeRec		parseTreeRec, *parseTree = &parseTreeRec;
+    XrmQuark			stackQuarks[200];
+    TMBranchHeadRec		stackBranchHeads[200];
+    StatePtr			stackComplexBranchHeads[200];
+    _XtTranslateOp		actualOp;
+
+    if (source == NULL)
+      return (XtTranslations)NULL;
+
+    source = CheckForPoundSign(source, defaultOp, &actualOp);
+    if (isAccelerator && actualOp == XtTableReplace)
+	actualOp = defaultOp;
+
+    parseTree->isSimple = TRUE;
+    parseTree->mappingNotifyInterest = FALSE;
+    parseTree->isAccelerator = isAccelerator;
+    parseTree->isStackBranchHeads =
+      parseTree->isStackQuarks =
+	parseTree->isStackComplexBranchHeads = TRUE;
+
+    parseTree->numQuarks =
+      parseTree->numBranchHeads =
+	parseTree->numComplexBranchHeads = 0;
+
+    parseTree->quarkTblSize =
+      parseTree->branchHeadTblSize =
+	parseTree->complexBranchHeadTblSize = 200;
+
+    parseTree->quarkTbl = stackQuarks;
+    parseTree->branchHeadTbl = stackBranchHeads;
+    parseTree->complexBranchHeadTbl = stackComplexBranchHeads;
+
+    while (source != NULL && *source != '\0') {
+	source =  ParseTranslationTableProduction(parseTree, source, error);
+	if (*error == TRUE) break;
+    }
+    stateTrees[0] = _XtParseTreeToStateTree(parseTree);
+
+    if (!parseTree->isStackQuarks)
+      XtFree((char *)parseTree->quarkTbl);
+    if (!parseTree->isStackBranchHeads)
+      XtFree((char *)parseTree->branchHeadTbl);
+    if (!parseTree->isStackComplexBranchHeads)
+      XtFree((char *)parseTree->complexBranchHeadTbl);
+
+    xlations = _XtCreateXlations(stateTrees, 1, NULL, NULL);
+    xlations->operation = actualOp;
+
+#ifdef notdef
+    XtFree(stateTrees);
+#endif /* notdef */
+    return xlations;
+}
+
+/*** public procedures ***/
+
+/*ARGSUSED*/
+Boolean XtCvtStringToAcceleratorTable(
+    Display*	dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr from,
+    XrmValuePtr to,
+    XtPointer	*closure)
+{
+    String str;
+    Boolean error = FALSE;
+
+    if (*num_args != 0)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  "wrongParameters","cvtStringToAcceleratorTable",XtCXtToolkitError,
+          "String to AcceleratorTable conversion needs no extra arguments",
+	  (String *)NULL, (Cardinal *)NULL);
+    str = (String)(from->addr);
+    if (str == NULL) {
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  "badParameters","cvtStringToAcceleratorTable",XtCXtToolkitError,
+          "String to AcceleratorTable conversion needs string",
+	  (String *)NULL, (Cardinal *)NULL);
+	return FALSE;
+    }
+    if (to->addr != NULL) {
+	if (to->size < sizeof(XtAccelerators)) {
+	    to->size = sizeof(XtAccelerators);
+	    return FALSE;
+	}
+	*(XtAccelerators*)to->addr =
+	    (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error);
+    }
+    else {
+	static XtAccelerators staticStateTable;
+	staticStateTable =
+	    (XtAccelerators) ParseTranslationTable(str, TRUE, XtTableAugment, &error);
+	to->addr = (XPointer) &staticStateTable;
+	to->size = sizeof(XtAccelerators);
+    }
+    if (error == TRUE)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  "parseError","cvtStringToAcceleratorTable",XtCXtToolkitError,
+          "String to AcceleratorTable conversion encountered errors",
+	  (String *)NULL, (Cardinal *)NULL);
+    return (error != TRUE);
+}
+
+
+/*ARGSUSED*/
+Boolean
+XtCvtStringToTranslationTable(
+    Display	*dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr from,
+    XrmValuePtr to,
+    XtPointer	*closure_ret)
+{
+    String str;
+    Boolean error = FALSE;
+
+    if (*num_args != 0)
+      XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	    "wrongParameters","cvtStringToTranslationTable",XtCXtToolkitError,
+	    "String to TranslationTable conversion needs no extra arguments",
+	    (String *)NULL, (Cardinal *)NULL);
+    str = (String)(from->addr);
+    if (str == NULL) {
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  "badParameters","cvtStringToTranslation",XtCXtToolkitError,
+          "String to TranslationTable conversion needs string",
+	  (String *)NULL, (Cardinal *)NULL);
+	return FALSE;
+    }
+    if (to->addr != NULL) {
+	if (to->size < sizeof(XtTranslations)) {
+	    to->size = sizeof(XtTranslations);
+	    return FALSE;
+	}
+	*(XtTranslations*)to->addr =
+	    ParseTranslationTable(str, FALSE, XtTableReplace, &error);
+    }
+    else {
+	static XtTranslations staticStateTable;
+	staticStateTable =
+	    ParseTranslationTable(str, FALSE, XtTableReplace, &error);
+	to->addr = (XPointer) &staticStateTable;
+	to->size = sizeof(XtTranslations);
+    }
+    if (error == TRUE)
+        XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	  "parseError","cvtStringToTranslationTable",XtCXtToolkitError,
+          "String to TranslationTable conversion encountered errors",
+	  (String *)NULL, (Cardinal *)NULL);
+    return (error != TRUE);
+}
+
+
+/*
+ * Parses a user's or applications translation table
+ */
+XtAccelerators XtParseAcceleratorTable(
+    _Xconst char* source)
+{
+    Boolean error = FALSE;
+    XtAccelerators ret =
+	(XtAccelerators) ParseTranslationTable ((char *)source, TRUE, XtTableAugment, &error);
+    if (error == TRUE)
+        XtWarningMsg ("parseError", "cvtStringToAcceleratorTable",
+	  XtCXtToolkitError,
+          "String to AcceleratorTable conversion encountered errors",
+	  (String *)NULL, (Cardinal *)NULL);
+    return ret;
+}
+
+XtTranslations XtParseTranslationTable(
+    _Xconst char* source)
+{
+    Boolean error = FALSE;
+    XtTranslations ret = ParseTranslationTable((char *)source, FALSE, XtTableReplace, &error);
+    if (error == TRUE)
+        XtWarningMsg ("parseError",
+	  "cvtStringToTranslationTable", XtCXtToolkitError,
+          "String to TranslationTable conversion encountered errors",
+	  (String *)NULL, (Cardinal *)NULL);
+    return ret;
+}
+
+void _XtTranslateInitialize(void)
+{
+    LOCK_PROCESS;
+    if (initialized) {
+	XtWarningMsg("translationError","xtTranslateInitialize",
+                  XtCXtToolkitError,"Initializing Translation manager twice.",
+                    (String *)NULL, (Cardinal *)NULL);
+	UNLOCK_PROCESS;
+	return;
+    }
+
+    initialized = TRUE;
+    UNLOCK_PROCESS;
+    QMeta = XrmPermStringToQuark("Meta");
+    QCtrl = XrmPermStringToQuark("Ctrl");
+    QNone = XrmPermStringToQuark("None");
+    QAny  = XrmPermStringToQuark("Any");
+
+    Compile_XtEventTable( events, XtNumber(events) );
+    Compile_XtModifierTable( modifiers, XtNumber(modifiers) );
+    CompileNameValueTable( buttonNames );
+    CompileNameValueTable( notifyModes );
+    CompileNameValueTable( motionDetails );
+#if 0
+    CompileNameValueTable( notifyDetail );
+    CompileNameValueTable( visibilityNotify );
+    CompileNameValueTable( circulation );
+    CompileNameValueTable( propertyChanged );
+#endif
+    CompileNameValueTable( mappingNotify );
+}
+
+void _XtAddTMConverters(
+    ConverterTable table)
+{
+     _XtTableAddConverter(table,
+	     _XtQString,
+	     XrmPermStringToQuark(XtRTranslationTable),
+ 	     XtCvtStringToTranslationTable, (XtConvertArgList) NULL,
+	     (Cardinal)0, True, CACHED, _XtFreeTranslations, True);
+     _XtTableAddConverter(table, _XtQString,
+	     XrmPermStringToQuark(XtRAcceleratorTable),
+ 	     XtCvtStringToAcceleratorTable, (XtConvertArgList) NULL,
+	     (Cardinal)0, True, CACHED, _XtFreeTranslations, True);
+     _XtTableAddConverter(table,
+	     XrmPermStringToQuark( _XtRStateTablePair ),
+	     XrmPermStringToQuark(XtRTranslationTable),
+ 	     _XtCvtMergeTranslations, (XtConvertArgList) NULL,
+	     (Cardinal)0, True, CACHED, _XtFreeTranslations, True);
+}
diff --git a/libXt/src/TMprint.c b/libXt/src/TMprint.c
index ef0bd9ba2..6c469f167 100644
--- a/libXt/src/TMprint.c
+++ b/libXt/src/TMprint.c
@@ -1,897 +1,897 @@
-/***********************************************************

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

-#include <stdio.h>

-

-typedef struct _TMStringBufRec{

-    String	start;

-    String	current;

-    Cardinal	max;

-}TMStringBufRec, *TMStringBuf;

-

-

-#define STR_THRESHOLD 25

-#define STR_INCAMOUNT 100

-#define CHECK_STR_OVERFLOW(sb) \

-if (sb->current - sb->start > (int)sb->max - STR_THRESHOLD) 	\

-{ String old = sb->start; \

-  sb->start = XtRealloc(old, (Cardinal)(sb->max += STR_INCAMOUNT)); \

-  sb->current = sb->current - old + sb->start; \

-}

-

-#define ExpandForChars(sb, nchars ) \

-    if ((unsigned)(sb->current - sb->start) > sb->max - STR_THRESHOLD - nchars) { \

-	String old = sb->start;					\

-	sb->start = XtRealloc(old,				\

-	    (Cardinal)(sb->max += STR_INCAMOUNT + nchars));	\

-	sb->current = sb->current - old + sb->start;		\

-    }

-

-#define ExpandToFit(sb, more) \

-{								\

-	size_t l = strlen(more);				\

-	ExpandForChars(sb, l);					\

-      }

-

-static void PrintModifiers(

-    TMStringBuf	sb,

-    unsigned long mask, unsigned long mod)

-{

-    Boolean notfirst = False;

-    CHECK_STR_OVERFLOW(sb);

-

-    if (mask == ~0UL && mod == 0) {

-	*sb->current++ = '!';

-	*sb->current = '\0';

-	return;

-    }

-

-#define PRINTMOD(modmask,modstring) \

-    if (mask & modmask) {		 \

-	if (! (mod & modmask)) {	 \

-	    *sb->current++ = '~';		 \

-	    notfirst = True;		 \

-	}				 \

-	else if (notfirst)		 \

-	    *sb->current++ = ' ';		 \

-	else notfirst = True;		 \

-	strcpy(sb->current, modstring);		 \

-	sb->current += strlen(sb->current);		 \

-    }

-

-    PRINTMOD(ShiftMask, "Shift");

-    PRINTMOD(ControlMask, "Ctrl");	/* name is not CtrlMask... */

-    PRINTMOD(LockMask, "Lock");

-    PRINTMOD(Mod1Mask, "Mod1");

-    CHECK_STR_OVERFLOW(sb);

-    PRINTMOD(Mod2Mask, "Mod2");

-    PRINTMOD(Mod3Mask, "Mod3");

-    PRINTMOD(Mod4Mask, "Mod4");

-    PRINTMOD(Mod5Mask, "Mod5");

-    CHECK_STR_OVERFLOW(sb);

-    PRINTMOD(Button1Mask, "Button1");

-    PRINTMOD(Button2Mask, "Button2");

-    PRINTMOD(Button3Mask, "Button3");

-    CHECK_STR_OVERFLOW(sb);

-    PRINTMOD(Button4Mask, "Button4");

-    PRINTMOD(Button5Mask, "Button5");

-

-#undef PRINTMOD

-}

-

-static void PrintEventType(

-    TMStringBuf	sb,

-    unsigned long event)

-{

-    CHECK_STR_OVERFLOW(sb);

-    switch (event) {

-#define PRINTEVENT(event, name) case event: (void) strcpy(sb->current, name); break;

-	PRINTEVENT(KeyPress, "<KeyPress>")

-	PRINTEVENT(KeyRelease, "<KeyRelease>")

-	PRINTEVENT(ButtonPress, "<ButtonPress>")

-	PRINTEVENT(ButtonRelease, "<ButtonRelease>")

-	PRINTEVENT(MotionNotify, "<MotionNotify>")

-	PRINTEVENT(EnterNotify, "<EnterNotify>")

-	PRINTEVENT(LeaveNotify, "<LeaveNotify>")

-	PRINTEVENT(FocusIn, "<FocusIn>")

-	PRINTEVENT(FocusOut, "<FocusOut>")

-	PRINTEVENT(KeymapNotify, "<KeymapNotify>")

-	PRINTEVENT(Expose, "<Expose>")

-	PRINTEVENT(GraphicsExpose, "<GraphicsExpose>")

-	PRINTEVENT(NoExpose, "<NoExpose>")

-	PRINTEVENT(VisibilityNotify, "<VisibilityNotify>")

-	PRINTEVENT(CreateNotify, "<CreateNotify>")

-	PRINTEVENT(DestroyNotify, "<DestroyNotify>")

-	PRINTEVENT(UnmapNotify, "<UnmapNotify>")

-	PRINTEVENT(MapNotify, "<MapNotify>")

-	PRINTEVENT(MapRequest, "<MapRequest>")

-	PRINTEVENT(ReparentNotify, "<ReparentNotify>")

-	PRINTEVENT(ConfigureNotify, "<ConfigureNotify>")

-	PRINTEVENT(ConfigureRequest, "<ConfigureRequest>")

-	PRINTEVENT(GravityNotify, "<GravityNotify>")

-	PRINTEVENT(ResizeRequest, "<ResizeRequest>")

-	PRINTEVENT(CirculateNotify, "<CirculateNotify>")

-	PRINTEVENT(CirculateRequest, "<CirculateRequest>")

-	PRINTEVENT(PropertyNotify, "<PropertyNotify>")

-	PRINTEVENT(SelectionClear, "<SelectionClear>")

-	PRINTEVENT(SelectionRequest, "<SelectionRequest>")

-	PRINTEVENT(SelectionNotify, "<SelectionNotify>")

-	PRINTEVENT(ColormapNotify, "<ColormapNotify>")

-	PRINTEVENT(ClientMessage, "<ClientMessage>")

-	case _XtEventTimerEventType:

-	    (void) strcpy(sb->current,"<EventTimer>");

-	    break;

-	default:

-	    (void) sprintf(sb->current, "<0x%x>", (int) event);

-#undef PRINTEVENT

-    }

-    sb->current += strlen(sb->current);

-}

-

-static void PrintCode(

-    TMStringBuf sb,

-    unsigned long mask, unsigned long code)

-{

-    CHECK_STR_OVERFLOW(sb);

-    if (mask != 0) {

-	if (mask != ~0UL)

-	    (void) sprintf(sb->current, "0x%lx:0x%lx", mask, code);

-	else (void) sprintf(sb->current, /*"0x%lx"*/ "%d", (unsigned)code);

-	sb->current += strlen(sb->current);

-    }

-}

-

-static void PrintKeysym(

-    TMStringBuf sb,

-    KeySym keysym)

-{

-    String keysymName;

-

-    if (keysym == 0) return;

-

-    CHECK_STR_OVERFLOW(sb);

-    keysymName = XKeysymToString(keysym);

-    if (keysymName == NULL)

-      PrintCode(sb,~0UL,(unsigned long)keysym);

-    else {

-      ExpandToFit(sb, keysymName);

-      strcpy(sb->current, keysymName);

-      sb->current += strlen(sb->current);

-    }

-}

-

-static void PrintAtom(

-    TMStringBuf sb,

-    Display *dpy,

-    Atom atom)

-{

-    String atomName;

-

-    if (atom == 0) return;

-

-    atomName = (dpy ? XGetAtomName(dpy, atom) : NULL);

-

-    if (! atomName)

-      PrintCode(sb,~0UL,(unsigned long)atom);

-    else {

-      ExpandToFit( sb, atomName );

-      strcpy(sb->current, atomName);

-      sb->current += strlen(sb->current);

-      XFree(atomName);

-    }

-}

-

-static	void PrintLateModifiers(

-    TMStringBuf	sb,

-    LateBindingsPtr lateModifiers)

-{

-    for (; lateModifiers->keysym; lateModifiers++) {

-	CHECK_STR_OVERFLOW(sb);

-	if (lateModifiers->knot) {

-	    *sb->current++ = '~';

-	} else {

-	    *sb->current++ = ' ';

-	}

-	strcpy(sb->current, XKeysymToString(lateModifiers->keysym));

-	sb->current += strlen(sb->current);

-	if (lateModifiers->pair) {

-	    *(sb->current -= 2) = '\0';	/* strip "_L" */

-	    lateModifiers++;	/* skip _R keysym */

-	}

-    }

-}

-

-static void PrintEvent(

-    TMStringBuf sb,

-    register TMTypeMatch typeMatch,

-    register TMModifierMatch modMatch,

-    Display *dpy)

-{

-    if (modMatch->standard) *sb->current++ = ':';

-

-    PrintModifiers(sb, modMatch->modifierMask, modMatch->modifiers);

-    if (modMatch->lateModifiers != NULL)

-      PrintLateModifiers(sb, modMatch->lateModifiers);

-    PrintEventType(sb, typeMatch->eventType);

-    switch (typeMatch->eventType) {

-      case KeyPress:

-      case KeyRelease:

-	PrintKeysym(sb, (KeySym)typeMatch->eventCode);

-	break;

-

-      case PropertyNotify:

-      case SelectionClear:

-      case SelectionRequest:

-      case SelectionNotify:

-      case ClientMessage:

-	PrintAtom(sb, dpy, (Atom)typeMatch->eventCode);

-	break;

-

-      default:

-	PrintCode(sb, typeMatch->eventCodeMask, typeMatch->eventCode);

-    }

-}

-

-static void PrintParams(

-    TMStringBuf	sb,

-    String	*params,

-    Cardinal num_params)

-{

-    register Cardinal i;

-    for (i = 0; i<num_params; i++) {

-	ExpandToFit( sb, params[i] );

-	if (i != 0) {

-	    *sb->current++ = ',';

-	    *sb->current++ = ' ';

-	}

-	*sb->current++ = '"';

-	strcpy(sb->current, params[i]);

-	sb->current += strlen(sb->current);

-	*sb->current++ = '"';

-    }

-    *sb->current = '\0';

-}

-

-static void PrintActions(

-    TMStringBuf	sb,

-    register ActionPtr actions,

-    XrmQuark *quarkTbl,

-    Widget   accelWidget)

-{

-    while (actions != NULL) {

-	String proc;

-

-	*sb->current++ = ' ';

-

-	if (accelWidget) {

-	    /* accelerator */

-	    String name = XtName(accelWidget);

-	    int nameLen = strlen(name);

-	    ExpandForChars(sb,  nameLen );

-	    XtMemmove(sb->current, name, nameLen );

-	    sb->current += nameLen;

-	    *sb->current++ = '`';

-	}

-	proc = XrmQuarkToString(quarkTbl[actions->idx]);

-	ExpandToFit( sb, proc );

-	strcpy(sb->current, proc);

-	sb->current += strlen(proc);

-	*sb->current++ = '(';

-	PrintParams(sb, actions->params, actions->num_params);

-	*sb->current++ = ')';

-	actions = actions->next;

-    }

-    *sb->current = '\0';

-}

-

-static Boolean LookAheadForCycleOrMulticlick(

-    register StatePtr state,

-    StatePtr *state_return,	/* state to print, usually startState */

-    int *countP,

-    StatePtr *nextLevelP)

-{

-    int repeatCount = 0;

-    StatePtr	startState = state;

-    Boolean	isCycle = startState->isCycleEnd;

-    TMTypeMatch sTypeMatch;

-    TMModifierMatch sModMatch;

-

-    LOCK_PROCESS;

-    sTypeMatch = TMGetTypeMatch(startState->typeIndex);

-    sModMatch = TMGetModifierMatch(startState->modIndex);

-

-    *state_return = startState;

-

-    for (state = state->nextLevel; state != NULL; state = state->nextLevel) {

-	TMTypeMatch typeMatch = TMGetTypeMatch(state->typeIndex);

-	TMModifierMatch modMatch = TMGetModifierMatch(state->modIndex);

-

-	/* try to pick up the correct state with actions, to be printed */

-	/* This is to accommodate <ButtonUp>(2+), for example */

-	if (state->isCycleStart)

-	    *state_return = state;

-

-	if (state->isCycleEnd) {

-	    *countP = repeatCount;

-	    UNLOCK_PROCESS;

-	    return True;

-	}

-	if ((startState->typeIndex == state->typeIndex) &&

-	    (startState->modIndex == state->modIndex)) {

-	    repeatCount++;

-	    *nextLevelP = state;

-	}

-	else if (typeMatch->eventType == _XtEventTimerEventType)

-	  continue;

-	else /* not same event as starting event and not timer */ {

-	    unsigned int type = sTypeMatch->eventType;

-	    unsigned int t = typeMatch->eventType;

-	    if (   (type == ButtonPress	  && t != ButtonRelease)

-		|| (type == ButtonRelease && t != ButtonPress)

-		|| (type == KeyPress	  && t != KeyRelease)

-		|| (type == KeyRelease	  && t != KeyPress)

-		|| typeMatch->eventCode != sTypeMatch->eventCode

-		|| modMatch->modifiers != sModMatch->modifiers

-		|| modMatch->modifierMask != sModMatch->modifierMask

-		|| modMatch->lateModifiers != sModMatch->lateModifiers

-		|| typeMatch->eventCodeMask != sTypeMatch->eventCodeMask

-		|| typeMatch->matchEvent != sTypeMatch->matchEvent

-		|| modMatch->standard != sModMatch->standard)

-		/* not inverse of starting event, either */

-		break;

-	}

-    }

-    *countP = repeatCount;

-    UNLOCK_PROCESS;

-    return isCycle;

-}

-

-static void PrintComplexState(

-    TMStringBuf	sb,

-    Boolean	includeRHS,

-    StatePtr 	state,

-    TMStateTree stateTree,

-    Widget	accelWidget,

-    Display 	*dpy)

-{

-    int 		clickCount = 0;

-    Boolean 		cycle;

-    StatePtr 		nextLevel = NULL;

-    StatePtr		triggerState = NULL;

-

-    /* print the current state */

-    if (! state) return;

-    LOCK_PROCESS;

-    cycle = LookAheadForCycleOrMulticlick(state, &triggerState, &clickCount,

-					  &nextLevel);

-

-    PrintEvent(sb, TMGetTypeMatch(triggerState->typeIndex),

-	       TMGetModifierMatch(triggerState->modIndex), dpy);

-

-    if (cycle || clickCount) {

-	if (clickCount)

-	    sprintf(sb->current, "(%d%s)", clickCount+1, cycle ? "+" : "");

-	else

-	    (void) strncpy(sb->current, "(+)", 4);

-	sb->current += strlen(sb->current);

-	if (! state->actions && nextLevel)

-	    state = nextLevel;

-	while (! state->actions && ! state->isCycleEnd)

-	    state = state->nextLevel;	/* should be trigger state */

-    }

-

-    if (state->actions) {

-	if (includeRHS) {

-	    CHECK_STR_OVERFLOW(sb);

-	    *sb->current++ = ':';

-	    PrintActions(sb,

-			 state->actions,

-			 ((TMSimpleStateTree)stateTree)->quarkTbl,

-			 accelWidget);

-	    *sb->current++ = '\n';

-	}

-    }

-    else {

-	if (state->nextLevel && !cycle && !clickCount)

-	    *sb->current++ = ',';

-	else {

-	    /* no actions are attached to this production */

-	    *sb->current++ = ':';

-	    *sb->current++ = '\n';

-	}

-    }

-    *sb->current = '\0';

-

-    /* print succeeding states */

-    if (state->nextLevel && !cycle && !clickCount)

-	PrintComplexState(sb, includeRHS, state->nextLevel,

-			  stateTree, accelWidget, dpy);

-    UNLOCK_PROCESS;

-}

-

-typedef struct{

-    TMShortCard	tIndex;

-    TMShortCard	bIndex;

-}PrintRec, *Print;

-

-static int FindNextMatch(

-    PrintRec		*printData,

-    TMShortCard		numPrints,

-    XtTranslations 	xlations,

-    TMBranchHead	branchHead,

-    StatePtr 		nextLevel,

-    TMShortCard		startIndex)

-{

-    TMShortCard		i;

-    TMComplexStateTree 	stateTree;

-    StatePtr		currState, candState;

-    Boolean		noMatch = True;

-    TMBranchHead	prBranchHead;

-

-    for (i = startIndex; noMatch && i < numPrints; i++) {

-	stateTree = (TMComplexStateTree)

-	  xlations->stateTreeTbl[printData[i].tIndex];

-	prBranchHead =

-	  &(stateTree->branchHeadTbl[printData[i].bIndex]);

-

-	if ((prBranchHead->typeIndex == branchHead->typeIndex) &&

-	    (prBranchHead->modIndex == branchHead->modIndex)) {

-	    if (prBranchHead->isSimple) {

-		if (!nextLevel)

-		  return i;

-	    }

-	    else {

-		currState = TMComplexBranchHead(stateTree, prBranchHead);

-		currState = currState->nextLevel;

-		candState = nextLevel;

-		for (;

-		     ((currState && !currState->isCycleEnd) &&

-		      (candState && !candState->isCycleEnd));

-		     currState = currState->nextLevel,

-		     candState = candState->nextLevel) {

-		    if ((currState->typeIndex != candState->typeIndex) ||

-			(currState->modIndex != candState->modIndex))

-		      break;

-		}

-		if (candState == currState) {

-		    return i;

-		}

-	    }

-	}

-    }

-    return TM_NO_MATCH;

-}

-

-static void ProcessLaterMatches(

-    PrintRec	*printData,

-    XtTranslations xlations,

-    TMShortCard	tIndex,

-    int bIndex,

-    TMShortCard	*numPrintsRtn)

-{

-    TMComplexStateTree 	stateTree;

-    int			i, j;

-    TMBranchHead	branchHead, matchBranch = NULL;

-

-    for (i = tIndex; i < (int)xlations->numStateTrees; i++) {

-	stateTree = (TMComplexStateTree)xlations->stateTreeTbl[i];

-	if (i == tIndex) {

-	    matchBranch = &stateTree->branchHeadTbl[bIndex];

-	    j = bIndex+1;

-	}

-	else j = 0;

-	for (branchHead = &stateTree->branchHeadTbl[j];

-	     j < (int)stateTree->numBranchHeads;

-	     j++, branchHead++) {

-	    if ((branchHead->typeIndex == matchBranch->typeIndex) &&

-		(branchHead->modIndex == matchBranch->modIndex)) {

-		StatePtr state;

-		if (!branchHead->isSimple)

-		  state = TMComplexBranchHead(stateTree, branchHead);

-		else

-		  state = NULL;

-		if ((!branchHead->isSimple || branchHead->hasActions) &&

-		    (FindNextMatch(printData,

-				   *numPrintsRtn,

-				   xlations,

-				   branchHead,

-				   (state ? state->nextLevel : NULL),

-				   0) == TM_NO_MATCH)) {

-		    printData[*numPrintsRtn].tIndex = i;

-		    printData[*numPrintsRtn].bIndex = j;

-		    (*numPrintsRtn)++;

-		}

-	    }

-	}

-    }

-}

-

-static void ProcessStateTree(

-    PrintRec	*printData,

-    XtTranslations xlations,

-    TMShortCard	tIndex,

-    TMShortCard	*numPrintsRtn)

-{

-    TMComplexStateTree stateTree;

-    int			i;

-    TMBranchHead	branchHead;

-

-    stateTree = (TMComplexStateTree)xlations->stateTreeTbl[tIndex];

-

-    for (i = 0, branchHead = stateTree->branchHeadTbl;

-	 i < (int)stateTree->numBranchHeads;

-	 i++, branchHead++) {

-	StatePtr state;

-	if (!branchHead->isSimple)

-	  state = TMComplexBranchHead(stateTree, branchHead);

-	else

-	  state = NULL;

-	if (FindNextMatch(printData, *numPrintsRtn, xlations, branchHead,

-			  (state ? state->nextLevel : NULL), 0)

-	    == TM_NO_MATCH) {

-	    if (!branchHead->isSimple || branchHead->hasActions) {

-		printData[*numPrintsRtn].tIndex = tIndex;

-		printData[*numPrintsRtn].bIndex = i;

-		(*numPrintsRtn)++;

-	    }

-	    LOCK_PROCESS;

-	    if (_XtGlobalTM.newMatchSemantics == False)

-	      ProcessLaterMatches(printData,

-				  xlations,

-				  tIndex,

-				  i,

-				  numPrintsRtn);

-	    UNLOCK_PROCESS;

-	}

-    }

-}

-

-static void PrintState(

-    TMStringBuf	sb,

-    TMStateTree	tree,

-    TMBranchHead branchHead,

-    Boolean	includeRHS,

-    Widget	accelWidget,

-    Display 	*dpy)

-{

-    TMComplexStateTree stateTree = (TMComplexStateTree)tree;

-    LOCK_PROCESS;

-    if (branchHead->isSimple) {

-	PrintEvent(sb,

-		   TMGetTypeMatch(branchHead->typeIndex),

-		   TMGetModifierMatch(branchHead->modIndex),

-		   dpy);

-	if (includeRHS) {

-	    ActionRec	actRec;

-

-	    CHECK_STR_OVERFLOW(sb);

-	    *sb->current++ = ':';

-	    actRec.idx = TMBranchMore(branchHead);

-	    actRec.num_params = 0;

-	    actRec.params = NULL;

-	    actRec.next = NULL;

-	    PrintActions(sb,

-			 &actRec,

-			 stateTree->quarkTbl,

-			 accelWidget);

-	    *sb->current++ = '\n';

-	}

-	else

-	  *sb->current++ = ',';

-#ifdef TRACE_TM

-	if (!branchHead->hasActions)

-	  printf(" !! no actions !! ");

-#endif

-    }

-	else { /* it's a complex branchHead */

-	    StatePtr state = TMComplexBranchHead(stateTree, branchHead);

-	    PrintComplexState(sb,

-			      includeRHS,

-			      state,

-			      tree,

-			      accelWidget,

-			      (Display *)NULL);

-	}

-    *sb->current = '\0';

-    UNLOCK_PROCESS;

-}

-

-String _XtPrintXlations(

-    Widget		w,

-    XtTranslations 	xlations,

-    Widget		accelWidget,

-    _XtBoolean		includeRHS)

-{

-    register Cardinal 	i;

-#define STACKPRINTSIZE 250

-    PrintRec		stackPrints[STACKPRINTSIZE];

-    PrintRec		*prints;

-    TMStringBufRec	sbRec, *sb = &sbRec;

-    TMShortCard		numPrints, maxPrints;

-#ifdef TRACE_TM

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

-    Boolean		hasAccel = (accelWidget ? True : False);

-#endif /* TRACE_TM */

-    if (xlations == NULL) return NULL;

-

-    sb->current = sb->start = __XtMalloc((Cardinal)1000);

-    sb->max = 1000;

-    maxPrints = 0;

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

-	maxPrints +=

-	  ((TMSimpleStateTree)(xlations->stateTreeTbl[i]))->numBranchHeads;

-    prints = (PrintRec *)

-      XtStackAlloc(maxPrints * sizeof(PrintRec), stackPrints);

-

-    numPrints = 0;

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

-      ProcessStateTree(prints, xlations, i, &numPrints);

-

-    for (i = 0; i < numPrints; i++) {

-	TMSimpleStateTree stateTree = (TMSimpleStateTree)

-	  xlations->stateTreeTbl[prints[i].tIndex];

-	TMBranchHead branchHead =

-	  &stateTree->branchHeadTbl[prints[i].bIndex];

-#ifdef TRACE_TM

-	TMComplexBindProcs	complexBindProcs;

-

-	if (hasAccel == False) {

-	    accelWidget = NULL;

-	    if (bindData->simple.isComplex) {

-		complexBindProcs = TMGetComplexBindEntry(bindData, 0);

-		accelWidget = complexBindProcs[prints[i].tIndex].widget;

-	    }

-	}

-#endif /* TRACE_TM */

-	PrintState(sb, (TMStateTree)stateTree, branchHead,

-		   includeRHS, accelWidget, XtDisplay(w));

-    }

-    XtStackFree((XtPointer)prints, (XtPointer)stackPrints);

-    return (sb->start);

-}

-

-

-#ifndef NO_MIT_HACKS

-/*ARGSUSED*/

-void _XtDisplayTranslations(

-    Widget widget,

-    XEvent *event,

-    String *params,

-    Cardinal *num_params)

-{

-    String 	xString;

-

-    xString =  _XtPrintXlations(widget,

-				widget->core.tm.translations,

-				NULL,

-				True);

-    if (xString) {

-	printf("%s\n",xString);

-	XtFree(xString);

-    }

-}

-

-/*ARGSUSED*/

-void _XtDisplayAccelerators(

-    Widget widget,

-    XEvent *event,

-    String *params,

-    Cardinal *num_params)

-{

-    String 	xString;

-

-

-    xString =  _XtPrintXlations(widget,

-				widget->core.accelerators,

-				NULL,

-				True);

-    if (xString) {

-	printf("%s\n",xString);

-	XtFree(xString);

-    }

-}

-

-/*ARGSUSED*/

-void _XtDisplayInstalledAccelerators(

-    Widget widget,

-    XEvent *event,

-    String *params,

-    Cardinal *num_params)

-{

-    Widget eventWidget

-	= XtWindowToWidget(event->xany.display, event->xany.window);

-    register Cardinal 	i;

-    TMStringBufRec	sbRec, *sb = &sbRec;

-    XtTranslations	xlations;

-#define STACKPRINTSIZE 250

-    PrintRec		stackPrints[STACKPRINTSIZE];

-    PrintRec		*prints;

-    TMShortCard		numPrints, maxPrints;

-    TMBindData	bindData ;

-    TMComplexBindProcs	complexBindProcs;

-

-    if ((eventWidget == NULL) ||

-	(eventWidget->core.tm.translations == NULL) )

-      return;

-

-    xlations = eventWidget->core.tm.translations;

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

-    if (bindData->simple.isComplex == False)

-      return;

-

-    sb->current = sb->start = __XtMalloc((Cardinal)1000);

-    sb->start[0] = '\0';

-    sb->max = 1000;

-    maxPrints = 0;

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

-	maxPrints +=

-	  ((TMSimpleStateTree)xlations->stateTreeTbl[i])->numBranchHeads;

-    prints = (PrintRec *)

-      XtStackAlloc(maxPrints * sizeof(PrintRec), stackPrints);

-

-    numPrints = 0;

-

-    complexBindProcs = TMGetComplexBindEntry(bindData, 0);

-    for (i = 0;

-	 i < xlations->numStateTrees;

-	 i++, complexBindProcs++) {

-	if (complexBindProcs->widget)

-	  {

-	      ProcessStateTree(prints, xlations, i, &numPrints);

-	  }

-    }

-    for (i = 0; i < numPrints; i++) {

-	TMSimpleStateTree stateTree = (TMSimpleStateTree)

-	  xlations->stateTreeTbl[prints[i].tIndex];

-	TMBranchHead branchHead =

-	  &stateTree->branchHeadTbl[prints[i].bIndex];

-

-	complexBindProcs = TMGetComplexBindEntry(bindData, 0);

-

-	PrintState(sb, (TMStateTree)stateTree, branchHead, True,

-		   complexBindProcs[prints[i].tIndex].widget,

-		   XtDisplay(widget));

-    }

-    XtStackFree((XtPointer)prints, (XtPointer)stackPrints);

-    printf("%s\n", sb->start);

-    XtFree(sb->start);

-}

-#endif /*NO_MIT_HACKS*/

-

-String _XtPrintActions(

-    register ActionRec *actions,

-    XrmQuark		*quarkTbl)

-{

-    TMStringBufRec	sbRec, *sb = &sbRec;

-

-    sb->max = 1000;

-    sb->current = sb->start = __XtMalloc((Cardinal)1000);

-    PrintActions(sb,

-		 actions,

-		 quarkTbl,

-		 (Widget)NULL);

-    return sb->start;

-}

-

-String _XtPrintState(

-    TMStateTree		stateTree,

-    TMBranchHead	branchHead)

-{

-    TMStringBufRec	sbRec, *sb = &sbRec;

-

-    sb->current = sb->start = __XtMalloc((Cardinal)1000);

-    sb->max = 1000;

-    PrintState(sb, stateTree, branchHead,

-	       True, (Widget)NULL, (Display *)NULL);

-    return sb->start;

-}

-

-

-String _XtPrintEventSeq(

-    register EventSeqPtr eventSeq,

-    Display *dpy)

-{

-    TMStringBufRec	sbRec, *sb = &sbRec;

-    TMTypeMatch		typeMatch;

-    TMModifierMatch	modMatch;

-#define MAXSEQS 100

-    EventSeqPtr		eventSeqs[MAXSEQS];

-    TMShortCard		i, j;

-    Boolean		cycle = False;

-

-    sb->current = sb->start = __XtMalloc((Cardinal)1000);

-    sb->max = 1000;

-    for (i = 0;

-	 i < MAXSEQS && eventSeq != NULL && !cycle;

-	 eventSeq = eventSeq->next, i++)

-      {

-	  eventSeqs[i] = eventSeq;

-	  for (j = 0; j < i && !cycle; j++)

-	    if (eventSeqs[j] == eventSeq)

-	      cycle = True;

-      }

-    LOCK_PROCESS;

-    for (j = 0; j < i; j++) {

-	typeMatch =

-	  TMGetTypeMatch(_XtGetTypeIndex(&eventSeqs[j]->event));

-	modMatch =

-	  TMGetModifierMatch(_XtGetModifierIndex(&eventSeqs[j]->event));

-	PrintEvent(sb, typeMatch, modMatch, dpy);

-	if (j < i)

-	  *sb->current++ = ',';

-    }

-    UNLOCK_PROCESS;

-    return sb->start;

-}

+/***********************************************************
+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"
+#include <stdio.h>
+
+typedef struct _TMStringBufRec{
+    String	start;
+    String	current;
+    Cardinal	max;
+}TMStringBufRec, *TMStringBuf;
+
+
+#define STR_THRESHOLD 25
+#define STR_INCAMOUNT 100
+#define CHECK_STR_OVERFLOW(sb) \
+if (sb->current - sb->start > (int)sb->max - STR_THRESHOLD) 	\
+{ String old = sb->start; \
+  sb->start = XtRealloc(old, (Cardinal)(sb->max += STR_INCAMOUNT)); \
+  sb->current = sb->current - old + sb->start; \
+}
+
+#define ExpandForChars(sb, nchars ) \
+    if ((unsigned)(sb->current - sb->start) > sb->max - STR_THRESHOLD - nchars) { \
+	String old = sb->start;					\
+	sb->start = XtRealloc(old,				\
+	    (Cardinal)(sb->max += STR_INCAMOUNT + nchars));	\
+	sb->current = sb->current - old + sb->start;		\
+    }
+
+#define ExpandToFit(sb, more) \
+{								\
+	size_t l = strlen(more);				\
+	ExpandForChars(sb, l);					\
+      }
+
+static void PrintModifiers(
+    TMStringBuf	sb,
+    unsigned long mask, unsigned long mod)
+{
+    Boolean notfirst = False;
+    CHECK_STR_OVERFLOW(sb);
+
+    if (mask == ~0UL && mod == 0) {
+	*sb->current++ = '!';
+	*sb->current = '\0';
+	return;
+    }
+
+#define PRINTMOD(modmask,modstring) \
+    if (mask & modmask) {		 \
+	if (! (mod & modmask)) {	 \
+	    *sb->current++ = '~';		 \
+	    notfirst = True;		 \
+	}				 \
+	else if (notfirst)		 \
+	    *sb->current++ = ' ';		 \
+	else notfirst = True;		 \
+	strcpy(sb->current, modstring);		 \
+	sb->current += strlen(sb->current);		 \
+    }
+
+    PRINTMOD(ShiftMask, "Shift");
+    PRINTMOD(ControlMask, "Ctrl");	/* name is not CtrlMask... */
+    PRINTMOD(LockMask, "Lock");
+    PRINTMOD(Mod1Mask, "Mod1");
+    CHECK_STR_OVERFLOW(sb);
+    PRINTMOD(Mod2Mask, "Mod2");
+    PRINTMOD(Mod3Mask, "Mod3");
+    PRINTMOD(Mod4Mask, "Mod4");
+    PRINTMOD(Mod5Mask, "Mod5");
+    CHECK_STR_OVERFLOW(sb);
+    PRINTMOD(Button1Mask, "Button1");
+    PRINTMOD(Button2Mask, "Button2");
+    PRINTMOD(Button3Mask, "Button3");
+    CHECK_STR_OVERFLOW(sb);
+    PRINTMOD(Button4Mask, "Button4");
+    PRINTMOD(Button5Mask, "Button5");
+
+#undef PRINTMOD
+}
+
+static void PrintEventType(
+    TMStringBuf	sb,
+    unsigned long event)
+{
+    CHECK_STR_OVERFLOW(sb);
+    switch (event) {
+#define PRINTEVENT(event, name) case event: (void) strcpy(sb->current, name); break;
+	PRINTEVENT(KeyPress, "<KeyPress>")
+	PRINTEVENT(KeyRelease, "<KeyRelease>")
+	PRINTEVENT(ButtonPress, "<ButtonPress>")
+	PRINTEVENT(ButtonRelease, "<ButtonRelease>")
+	PRINTEVENT(MotionNotify, "<MotionNotify>")
+	PRINTEVENT(EnterNotify, "<EnterNotify>")
+	PRINTEVENT(LeaveNotify, "<LeaveNotify>")
+	PRINTEVENT(FocusIn, "<FocusIn>")
+	PRINTEVENT(FocusOut, "<FocusOut>")
+	PRINTEVENT(KeymapNotify, "<KeymapNotify>")
+	PRINTEVENT(Expose, "<Expose>")
+	PRINTEVENT(GraphicsExpose, "<GraphicsExpose>")
+	PRINTEVENT(NoExpose, "<NoExpose>")
+	PRINTEVENT(VisibilityNotify, "<VisibilityNotify>")
+	PRINTEVENT(CreateNotify, "<CreateNotify>")
+	PRINTEVENT(DestroyNotify, "<DestroyNotify>")
+	PRINTEVENT(UnmapNotify, "<UnmapNotify>")
+	PRINTEVENT(MapNotify, "<MapNotify>")
+	PRINTEVENT(MapRequest, "<MapRequest>")
+	PRINTEVENT(ReparentNotify, "<ReparentNotify>")
+	PRINTEVENT(ConfigureNotify, "<ConfigureNotify>")
+	PRINTEVENT(ConfigureRequest, "<ConfigureRequest>")
+	PRINTEVENT(GravityNotify, "<GravityNotify>")
+	PRINTEVENT(ResizeRequest, "<ResizeRequest>")
+	PRINTEVENT(CirculateNotify, "<CirculateNotify>")
+	PRINTEVENT(CirculateRequest, "<CirculateRequest>")
+	PRINTEVENT(PropertyNotify, "<PropertyNotify>")
+	PRINTEVENT(SelectionClear, "<SelectionClear>")
+	PRINTEVENT(SelectionRequest, "<SelectionRequest>")
+	PRINTEVENT(SelectionNotify, "<SelectionNotify>")
+	PRINTEVENT(ColormapNotify, "<ColormapNotify>")
+	PRINTEVENT(ClientMessage, "<ClientMessage>")
+	case _XtEventTimerEventType:
+	    (void) strcpy(sb->current,"<EventTimer>");
+	    break;
+	default:
+	    (void) sprintf(sb->current, "<0x%x>", (int) event);
+#undef PRINTEVENT
+    }
+    sb->current += strlen(sb->current);
+}
+
+static void PrintCode(
+    TMStringBuf sb,
+    unsigned long mask, unsigned long code)
+{
+    CHECK_STR_OVERFLOW(sb);
+    if (mask != 0) {
+	if (mask != ~0UL)
+	    (void) sprintf(sb->current, "0x%lx:0x%lx", mask, code);
+	else (void) sprintf(sb->current, /*"0x%lx"*/ "%d", (unsigned)code);
+	sb->current += strlen(sb->current);
+    }
+}
+
+static void PrintKeysym(
+    TMStringBuf sb,
+    KeySym keysym)
+{
+    String keysymName;
+
+    if (keysym == 0) return;
+
+    CHECK_STR_OVERFLOW(sb);
+    keysymName = XKeysymToString(keysym);
+    if (keysymName == NULL)
+      PrintCode(sb,~0UL,(unsigned long)keysym);
+    else {
+      ExpandToFit(sb, keysymName);
+      strcpy(sb->current, keysymName);
+      sb->current += strlen(sb->current);
+    }
+}
+
+static void PrintAtom(
+    TMStringBuf sb,
+    Display *dpy,
+    Atom atom)
+{
+    String atomName;
+
+    if (atom == 0) return;
+
+    atomName = (dpy ? XGetAtomName(dpy, atom) : NULL);
+
+    if (! atomName)
+      PrintCode(sb,~0UL,(unsigned long)atom);
+    else {
+      ExpandToFit( sb, atomName );
+      strcpy(sb->current, atomName);
+      sb->current += strlen(sb->current);
+      XFree(atomName);
+    }
+}
+
+static	void PrintLateModifiers(
+    TMStringBuf	sb,
+    LateBindingsPtr lateModifiers)
+{
+    for (; lateModifiers->keysym; lateModifiers++) {
+	CHECK_STR_OVERFLOW(sb);
+	if (lateModifiers->knot) {
+	    *sb->current++ = '~';
+	} else {
+	    *sb->current++ = ' ';
+	}
+	strcpy(sb->current, XKeysymToString(lateModifiers->keysym));
+	sb->current += strlen(sb->current);
+	if (lateModifiers->pair) {
+	    *(sb->current -= 2) = '\0';	/* strip "_L" */
+	    lateModifiers++;	/* skip _R keysym */
+	}
+    }
+}
+
+static void PrintEvent(
+    TMStringBuf sb,
+    register TMTypeMatch typeMatch,
+    register TMModifierMatch modMatch,
+    Display *dpy)
+{
+    if (modMatch->standard) *sb->current++ = ':';
+
+    PrintModifiers(sb, modMatch->modifierMask, modMatch->modifiers);
+    if (modMatch->lateModifiers != NULL)
+      PrintLateModifiers(sb, modMatch->lateModifiers);
+    PrintEventType(sb, typeMatch->eventType);
+    switch (typeMatch->eventType) {
+      case KeyPress:
+      case KeyRelease:
+	PrintKeysym(sb, (KeySym)typeMatch->eventCode);
+	break;
+
+      case PropertyNotify:
+      case SelectionClear:
+      case SelectionRequest:
+      case SelectionNotify:
+      case ClientMessage:
+	PrintAtom(sb, dpy, (Atom)typeMatch->eventCode);
+	break;
+
+      default:
+	PrintCode(sb, typeMatch->eventCodeMask, typeMatch->eventCode);
+    }
+}
+
+static void PrintParams(
+    TMStringBuf	sb,
+    String	*params,
+    Cardinal num_params)
+{
+    register Cardinal i;
+    for (i = 0; i<num_params; i++) {
+	ExpandToFit( sb, params[i] );
+	if (i != 0) {
+	    *sb->current++ = ',';
+	    *sb->current++ = ' ';
+	}
+	*sb->current++ = '"';
+	strcpy(sb->current, params[i]);
+	sb->current += strlen(sb->current);
+	*sb->current++ = '"';
+    }
+    *sb->current = '\0';
+}
+
+static void PrintActions(
+    TMStringBuf	sb,
+    register ActionPtr actions,
+    XrmQuark *quarkTbl,
+    Widget   accelWidget)
+{
+    while (actions != NULL) {
+	String proc;
+
+	*sb->current++ = ' ';
+
+	if (accelWidget) {
+	    /* accelerator */
+	    String name = XtName(accelWidget);
+	    int nameLen = strlen(name);
+	    ExpandForChars(sb,  nameLen );
+	    XtMemmove(sb->current, name, nameLen );
+	    sb->current += nameLen;
+	    *sb->current++ = '`';
+	}
+	proc = XrmQuarkToString(quarkTbl[actions->idx]);
+	ExpandToFit( sb, proc );
+	strcpy(sb->current, proc);
+	sb->current += strlen(proc);
+	*sb->current++ = '(';
+	PrintParams(sb, actions->params, actions->num_params);
+	*sb->current++ = ')';
+	actions = actions->next;
+    }
+    *sb->current = '\0';
+}
+
+static Boolean LookAheadForCycleOrMulticlick(
+    register StatePtr state,
+    StatePtr *state_return,	/* state to print, usually startState */
+    int *countP,
+    StatePtr *nextLevelP)
+{
+    int repeatCount = 0;
+    StatePtr	startState = state;
+    Boolean	isCycle = startState->isCycleEnd;
+    TMTypeMatch sTypeMatch;
+    TMModifierMatch sModMatch;
+
+    LOCK_PROCESS;
+    sTypeMatch = TMGetTypeMatch(startState->typeIndex);
+    sModMatch = TMGetModifierMatch(startState->modIndex);
+
+    *state_return = startState;
+
+    for (state = state->nextLevel; state != NULL; state = state->nextLevel) {
+	TMTypeMatch typeMatch = TMGetTypeMatch(state->typeIndex);
+	TMModifierMatch modMatch = TMGetModifierMatch(state->modIndex);
+
+	/* try to pick up the correct state with actions, to be printed */
+	/* This is to accommodate <ButtonUp>(2+), for example */
+	if (state->isCycleStart)
+	    *state_return = state;
+
+	if (state->isCycleEnd) {
+	    *countP = repeatCount;
+	    UNLOCK_PROCESS;
+	    return True;
+	}
+	if ((startState->typeIndex == state->typeIndex) &&
+	    (startState->modIndex == state->modIndex)) {
+	    repeatCount++;
+	    *nextLevelP = state;
+	}
+	else if (typeMatch->eventType == _XtEventTimerEventType)
+	  continue;
+	else /* not same event as starting event and not timer */ {
+	    unsigned int type = sTypeMatch->eventType;
+	    unsigned int t = typeMatch->eventType;
+	    if (   (type == ButtonPress	  && t != ButtonRelease)
+		|| (type == ButtonRelease && t != ButtonPress)
+		|| (type == KeyPress	  && t != KeyRelease)
+		|| (type == KeyRelease	  && t != KeyPress)
+		|| typeMatch->eventCode != sTypeMatch->eventCode
+		|| modMatch->modifiers != sModMatch->modifiers
+		|| modMatch->modifierMask != sModMatch->modifierMask
+		|| modMatch->lateModifiers != sModMatch->lateModifiers
+		|| typeMatch->eventCodeMask != sTypeMatch->eventCodeMask
+		|| typeMatch->matchEvent != sTypeMatch->matchEvent
+		|| modMatch->standard != sModMatch->standard)
+		/* not inverse of starting event, either */
+		break;
+	}
+    }
+    *countP = repeatCount;
+    UNLOCK_PROCESS;
+    return isCycle;
+}
+
+static void PrintComplexState(
+    TMStringBuf	sb,
+    Boolean	includeRHS,
+    StatePtr 	state,
+    TMStateTree stateTree,
+    Widget	accelWidget,
+    Display 	*dpy)
+{
+    int 		clickCount = 0;
+    Boolean 		cycle;
+    StatePtr 		nextLevel = NULL;
+    StatePtr		triggerState = NULL;
+
+    /* print the current state */
+    if (! state) return;
+    LOCK_PROCESS;
+    cycle = LookAheadForCycleOrMulticlick(state, &triggerState, &clickCount,
+					  &nextLevel);
+
+    PrintEvent(sb, TMGetTypeMatch(triggerState->typeIndex),
+	       TMGetModifierMatch(triggerState->modIndex), dpy);
+
+    if (cycle || clickCount) {
+	if (clickCount)
+	    sprintf(sb->current, "(%d%s)", clickCount+1, cycle ? "+" : "");
+	else
+	    (void) strncpy(sb->current, "(+)", 4);
+	sb->current += strlen(sb->current);
+	if (! state->actions && nextLevel)
+	    state = nextLevel;
+	while (! state->actions && ! state->isCycleEnd)
+	    state = state->nextLevel;	/* should be trigger state */
+    }
+
+    if (state->actions) {
+	if (includeRHS) {
+	    CHECK_STR_OVERFLOW(sb);
+	    *sb->current++ = ':';
+	    PrintActions(sb,
+			 state->actions,
+			 ((TMSimpleStateTree)stateTree)->quarkTbl,
+			 accelWidget);
+	    *sb->current++ = '\n';
+	}
+    }
+    else {
+	if (state->nextLevel && !cycle && !clickCount)
+	    *sb->current++ = ',';
+	else {
+	    /* no actions are attached to this production */
+	    *sb->current++ = ':';
+	    *sb->current++ = '\n';
+	}
+    }
+    *sb->current = '\0';
+
+    /* print succeeding states */
+    if (state->nextLevel && !cycle && !clickCount)
+	PrintComplexState(sb, includeRHS, state->nextLevel,
+			  stateTree, accelWidget, dpy);
+    UNLOCK_PROCESS;
+}
+
+typedef struct{
+    TMShortCard	tIndex;
+    TMShortCard	bIndex;
+}PrintRec, *Print;
+
+static int FindNextMatch(
+    PrintRec		*printData,
+    TMShortCard		numPrints,
+    XtTranslations 	xlations,
+    TMBranchHead	branchHead,
+    StatePtr 		nextLevel,
+    TMShortCard		startIndex)
+{
+    TMShortCard		i;
+    TMComplexStateTree 	stateTree;
+    StatePtr		currState, candState;
+    Boolean		noMatch = True;
+    TMBranchHead	prBranchHead;
+
+    for (i = startIndex; noMatch && i < numPrints; i++) {
+	stateTree = (TMComplexStateTree)
+	  xlations->stateTreeTbl[printData[i].tIndex];
+	prBranchHead =
+	  &(stateTree->branchHeadTbl[printData[i].bIndex]);
+
+	if ((prBranchHead->typeIndex == branchHead->typeIndex) &&
+	    (prBranchHead->modIndex == branchHead->modIndex)) {
+	    if (prBranchHead->isSimple) {
+		if (!nextLevel)
+		  return i;
+	    }
+	    else {
+		currState = TMComplexBranchHead(stateTree, prBranchHead);
+		currState = currState->nextLevel;
+		candState = nextLevel;
+		for (;
+		     ((currState && !currState->isCycleEnd) &&
+		      (candState && !candState->isCycleEnd));
+		     currState = currState->nextLevel,
+		     candState = candState->nextLevel) {
+		    if ((currState->typeIndex != candState->typeIndex) ||
+			(currState->modIndex != candState->modIndex))
+		      break;
+		}
+		if (candState == currState) {
+		    return i;
+		}
+	    }
+	}
+    }
+    return TM_NO_MATCH;
+}
+
+static void ProcessLaterMatches(
+    PrintRec	*printData,
+    XtTranslations xlations,
+    TMShortCard	tIndex,
+    int bIndex,
+    TMShortCard	*numPrintsRtn)
+{
+    TMComplexStateTree 	stateTree;
+    int			i, j;
+    TMBranchHead	branchHead, matchBranch = NULL;
+
+    for (i = tIndex; i < (int)xlations->numStateTrees; i++) {
+	stateTree = (TMComplexStateTree)xlations->stateTreeTbl[i];
+	if (i == tIndex) {
+	    matchBranch = &stateTree->branchHeadTbl[bIndex];
+	    j = bIndex+1;
+	}
+	else j = 0;
+	for (branchHead = &stateTree->branchHeadTbl[j];
+	     j < (int)stateTree->numBranchHeads;
+	     j++, branchHead++) {
+	    if ((branchHead->typeIndex == matchBranch->typeIndex) &&
+		(branchHead->modIndex == matchBranch->modIndex)) {
+		StatePtr state;
+		if (!branchHead->isSimple)
+		  state = TMComplexBranchHead(stateTree, branchHead);
+		else
+		  state = NULL;
+		if ((!branchHead->isSimple || branchHead->hasActions) &&
+		    (FindNextMatch(printData,
+				   *numPrintsRtn,
+				   xlations,
+				   branchHead,
+				   (state ? state->nextLevel : NULL),
+				   0) == TM_NO_MATCH)) {
+		    printData[*numPrintsRtn].tIndex = i;
+		    printData[*numPrintsRtn].bIndex = j;
+		    (*numPrintsRtn)++;
+		}
+	    }
+	}
+    }
+}
+
+static void ProcessStateTree(
+    PrintRec	*printData,
+    XtTranslations xlations,
+    TMShortCard	tIndex,
+    TMShortCard	*numPrintsRtn)
+{
+    TMComplexStateTree stateTree;
+    int			i;
+    TMBranchHead	branchHead;
+
+    stateTree = (TMComplexStateTree)xlations->stateTreeTbl[tIndex];
+
+    for (i = 0, branchHead = stateTree->branchHeadTbl;
+	 i < (int)stateTree->numBranchHeads;
+	 i++, branchHead++) {
+	StatePtr state;
+	if (!branchHead->isSimple)
+	  state = TMComplexBranchHead(stateTree, branchHead);
+	else
+	  state = NULL;
+	if (FindNextMatch(printData, *numPrintsRtn, xlations, branchHead,
+			  (state ? state->nextLevel : NULL), 0)
+	    == TM_NO_MATCH) {
+	    if (!branchHead->isSimple || branchHead->hasActions) {
+		printData[*numPrintsRtn].tIndex = tIndex;
+		printData[*numPrintsRtn].bIndex = i;
+		(*numPrintsRtn)++;
+	    }
+	    LOCK_PROCESS;
+	    if (_XtGlobalTM.newMatchSemantics == False)
+	      ProcessLaterMatches(printData,
+				  xlations,
+				  tIndex,
+				  i,
+				  numPrintsRtn);
+	    UNLOCK_PROCESS;
+	}
+    }
+}
+
+static void PrintState(
+    TMStringBuf	sb,
+    TMStateTree	tree,
+    TMBranchHead branchHead,
+    Boolean	includeRHS,
+    Widget	accelWidget,
+    Display 	*dpy)
+{
+    TMComplexStateTree stateTree = (TMComplexStateTree)tree;
+    LOCK_PROCESS;
+    if (branchHead->isSimple) {
+	PrintEvent(sb,
+		   TMGetTypeMatch(branchHead->typeIndex),
+		   TMGetModifierMatch(branchHead->modIndex),
+		   dpy);
+	if (includeRHS) {
+	    ActionRec	actRec;
+
+	    CHECK_STR_OVERFLOW(sb);
+	    *sb->current++ = ':';
+	    actRec.idx = TMBranchMore(branchHead);
+	    actRec.num_params = 0;
+	    actRec.params = NULL;
+	    actRec.next = NULL;
+	    PrintActions(sb,
+			 &actRec,
+			 stateTree->quarkTbl,
+			 accelWidget);
+	    *sb->current++ = '\n';
+	}
+	else
+	  *sb->current++ = ',';
+#ifdef TRACE_TM
+	if (!branchHead->hasActions)
+	  printf(" !! no actions !! ");
+#endif
+    }
+	else { /* it's a complex branchHead */
+	    StatePtr state = TMComplexBranchHead(stateTree, branchHead);
+	    PrintComplexState(sb,
+			      includeRHS,
+			      state,
+			      tree,
+			      accelWidget,
+			      (Display *)NULL);
+	}
+    *sb->current = '\0';
+    UNLOCK_PROCESS;
+}
+
+String _XtPrintXlations(
+    Widget		w,
+    XtTranslations 	xlations,
+    Widget		accelWidget,
+    _XtBoolean		includeRHS)
+{
+    register Cardinal 	i;
+#define STACKPRINTSIZE 250
+    PrintRec		stackPrints[STACKPRINTSIZE];
+    PrintRec		*prints;
+    TMStringBufRec	sbRec, *sb = &sbRec;
+    TMShortCard		numPrints, maxPrints;
+#ifdef TRACE_TM
+    TMBindData		bindData = (TMBindData)w->core.tm.proc_table;
+    Boolean		hasAccel = (accelWidget ? True : False);
+#endif /* TRACE_TM */
+    if (xlations == NULL) return NULL;
+
+    sb->current = sb->start = __XtMalloc((Cardinal)1000);
+    sb->max = 1000;
+    maxPrints = 0;
+    for (i = 0; i < xlations->numStateTrees; i++)
+	maxPrints +=
+	  ((TMSimpleStateTree)(xlations->stateTreeTbl[i]))->numBranchHeads;
+    prints = (PrintRec *)
+      XtStackAlloc(maxPrints * sizeof(PrintRec), stackPrints);
+
+    numPrints = 0;
+    for (i = 0; i < xlations->numStateTrees; i++)
+      ProcessStateTree(prints, xlations, i, &numPrints);
+
+    for (i = 0; i < numPrints; i++) {
+	TMSimpleStateTree stateTree = (TMSimpleStateTree)
+	  xlations->stateTreeTbl[prints[i].tIndex];
+	TMBranchHead branchHead =
+	  &stateTree->branchHeadTbl[prints[i].bIndex];
+#ifdef TRACE_TM
+	TMComplexBindProcs	complexBindProcs;
+
+	if (hasAccel == False) {
+	    accelWidget = NULL;
+	    if (bindData->simple.isComplex) {
+		complexBindProcs = TMGetComplexBindEntry(bindData, 0);
+		accelWidget = complexBindProcs[prints[i].tIndex].widget;
+	    }
+	}
+#endif /* TRACE_TM */
+	PrintState(sb, (TMStateTree)stateTree, branchHead,
+		   includeRHS, accelWidget, XtDisplay(w));
+    }
+    XtStackFree((XtPointer)prints, (XtPointer)stackPrints);
+    return (sb->start);
+}
+
+
+#ifndef NO_MIT_HACKS
+/*ARGSUSED*/
+void _XtDisplayTranslations(
+    Widget widget,
+    XEvent *event,
+    String *params,
+    Cardinal *num_params)
+{
+    String 	xString;
+
+    xString =  _XtPrintXlations(widget,
+				widget->core.tm.translations,
+				NULL,
+				True);
+    if (xString) {
+	printf("%s\n",xString);
+	XtFree(xString);
+    }
+}
+
+/*ARGSUSED*/
+void _XtDisplayAccelerators(
+    Widget widget,
+    XEvent *event,
+    String *params,
+    Cardinal *num_params)
+{
+    String 	xString;
+
+
+    xString =  _XtPrintXlations(widget,
+				widget->core.accelerators,
+				NULL,
+				True);
+    if (xString) {
+	printf("%s\n",xString);
+	XtFree(xString);
+    }
+}
+
+/*ARGSUSED*/
+void _XtDisplayInstalledAccelerators(
+    Widget widget,
+    XEvent *event,
+    String *params,
+    Cardinal *num_params)
+{
+    Widget eventWidget
+	= XtWindowToWidget(event->xany.display, event->xany.window);
+    register Cardinal 	i;
+    TMStringBufRec	sbRec, *sb = &sbRec;
+    XtTranslations	xlations;
+#define STACKPRINTSIZE 250
+    PrintRec		stackPrints[STACKPRINTSIZE];
+    PrintRec		*prints;
+    TMShortCard		numPrints, maxPrints;
+    TMBindData	bindData ;
+    TMComplexBindProcs	complexBindProcs;
+
+    if ((eventWidget == NULL) ||
+	(eventWidget->core.tm.translations == NULL) )
+      return;
+
+    xlations = eventWidget->core.tm.translations;
+    bindData = (TMBindData) eventWidget->core.tm.proc_table;
+    if (bindData->simple.isComplex == False)
+      return;
+
+    sb->current = sb->start = __XtMalloc((Cardinal)1000);
+    sb->start[0] = '\0';
+    sb->max = 1000;
+    maxPrints = 0;
+    for (i = 0; i < xlations->numStateTrees; i++)
+	maxPrints +=
+	  ((TMSimpleStateTree)xlations->stateTreeTbl[i])->numBranchHeads;
+    prints = (PrintRec *)
+      XtStackAlloc(maxPrints * sizeof(PrintRec), stackPrints);
+
+    numPrints = 0;
+
+    complexBindProcs = TMGetComplexBindEntry(bindData, 0);
+    for (i = 0;
+	 i < xlations->numStateTrees;
+	 i++, complexBindProcs++) {
+	if (complexBindProcs->widget)
+	  {
+	      ProcessStateTree(prints, xlations, i, &numPrints);
+	  }
+    }
+    for (i = 0; i < numPrints; i++) {
+	TMSimpleStateTree stateTree = (TMSimpleStateTree)
+	  xlations->stateTreeTbl[prints[i].tIndex];
+	TMBranchHead branchHead =
+	  &stateTree->branchHeadTbl[prints[i].bIndex];
+
+	complexBindProcs = TMGetComplexBindEntry(bindData, 0);
+
+	PrintState(sb, (TMStateTree)stateTree, branchHead, True,
+		   complexBindProcs[prints[i].tIndex].widget,
+		   XtDisplay(widget));
+    }
+    XtStackFree((XtPointer)prints, (XtPointer)stackPrints);
+    printf("%s\n", sb->start);
+    XtFree(sb->start);
+}
+#endif /*NO_MIT_HACKS*/
+
+String _XtPrintActions(
+    register ActionRec *actions,
+    XrmQuark		*quarkTbl)
+{
+    TMStringBufRec	sbRec, *sb = &sbRec;
+
+    sb->max = 1000;
+    sb->current = sb->start = __XtMalloc((Cardinal)1000);
+    PrintActions(sb,
+		 actions,
+		 quarkTbl,
+		 (Widget)NULL);
+    return sb->start;
+}
+
+String _XtPrintState(
+    TMStateTree		stateTree,
+    TMBranchHead	branchHead)
+{
+    TMStringBufRec	sbRec, *sb = &sbRec;
+
+    sb->current = sb->start = __XtMalloc((Cardinal)1000);
+    sb->max = 1000;
+    PrintState(sb, stateTree, branchHead,
+	       True, (Widget)NULL, (Display *)NULL);
+    return sb->start;
+}
+
+
+String _XtPrintEventSeq(
+    register EventSeqPtr eventSeq,
+    Display *dpy)
+{
+    TMStringBufRec	sbRec, *sb = &sbRec;
+    TMTypeMatch		typeMatch;
+    TMModifierMatch	modMatch;
+#define MAXSEQS 100
+    EventSeqPtr		eventSeqs[MAXSEQS];
+    TMShortCard		i, j;
+    Boolean		cycle = False;
+
+    sb->current = sb->start = __XtMalloc((Cardinal)1000);
+    sb->max = 1000;
+    for (i = 0;
+	 i < MAXSEQS && eventSeq != NULL && !cycle;
+	 eventSeq = eventSeq->next, i++)
+      {
+	  eventSeqs[i] = eventSeq;
+	  for (j = 0; j < i && !cycle; j++)
+	    if (eventSeqs[j] == eventSeq)
+	      cycle = True;
+      }
+    LOCK_PROCESS;
+    for (j = 0; j < i; j++) {
+	typeMatch =
+	  TMGetTypeMatch(_XtGetTypeIndex(&eventSeqs[j]->event));
+	modMatch =
+	  TMGetModifierMatch(_XtGetModifierIndex(&eventSeqs[j]->event));
+	PrintEvent(sb, typeMatch, modMatch, dpy);
+	if (j < i)
+	  *sb->current++ = ',';
+    }
+    UNLOCK_PROCESS;
+    return sb->start;
+}
diff --git a/libXt/src/TMstate.c b/libXt/src/TMstate.c
index 45f02b60b..4a634b439 100644
--- a/libXt/src/TMstate.c
+++ b/libXt/src/TMstate.c
@@ -1,2357 +1,2357 @@
-/***********************************************************

-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, 1994, 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.

-

-*/

-

-/* TMstate.c -- maintains the state table of actions for the translation

- *              manager.

- */

-/*LINTLIBRARY*/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-

-#ifndef TM_NO_MATCH

-#define TM_NO_MATCH (-2)

-#endif /* TM_NO_MATCH */

-

-/* forward definitions */

-static StatePtr NewState(TMParseStateTree, TMShortCard, TMShortCard);

-

-

-static String XtNtranslationError = "translationError";

-

-#ifndef __EMX__

-TMGlobalRec _XtGlobalTM; /* initialized to zero K&R */

-#else

-TMGlobalRec _XtGlobalTM = {0};

-#endif

-

-#define MatchIncomingEvent(tmEvent, typeMatch, modMatch) \

-  (typeMatch->eventType == tmEvent->event.eventType && \

-   (typeMatch->matchEvent != NULL) && \

-   (*typeMatch->matchEvent)(typeMatch, modMatch, tmEvent))

-

-

-#define NumStateTrees(xlations) \

-  ((translateData->isSimple) ? 1 : (TMComplexXlations(xlations))->numTrees)

-

-static TMShortCard GetBranchHead(

-    TMParseStateTree	parseTree,

-    TMShortCard		typeIndex,

-    TMShortCard		modIndex,

-    Boolean		isDummy)

-{

-#define TM_BRANCH_HEAD_TBL_ALLOC 	8

-#define TM_BRANCH_HEAD_TBL_REALLOC 	8

-

-    TMBranchHead branchHead = parseTree->branchHeadTbl;

-    TMShortCard	newSize, i;

-

-    /*

-     * dummy is used as a place holder for later matching in old-style

-     * matching behavior. If there's already an entry we don't need

-     * another dummy.

-     */

-    if (isDummy) {

-	for (i = 0; i < parseTree->numBranchHeads; i++, branchHead++) {

-	    if ((branchHead->typeIndex == typeIndex) &&

-		(branchHead->modIndex == modIndex))

-	      return i;

-	}

-    }

-    if (parseTree->numBranchHeads == parseTree->branchHeadTblSize)

-      {

-	  if (parseTree->branchHeadTblSize == 0)

-	    parseTree->branchHeadTblSize += TM_BRANCH_HEAD_TBL_ALLOC;

-	  else

-	    parseTree->branchHeadTblSize +=

-	      TM_BRANCH_HEAD_TBL_REALLOC;

-	  newSize = (parseTree->branchHeadTblSize * sizeof(TMBranchHeadRec));

-	  if (parseTree->isStackBranchHeads) {

-	      TMBranchHead	oldBranchHeadTbl = parseTree->branchHeadTbl;

-	      parseTree->branchHeadTbl = (TMBranchHead) __XtMalloc(newSize);

-	      XtMemmove(parseTree->branchHeadTbl, oldBranchHeadTbl, newSize);

-	      parseTree->isStackBranchHeads = False;

-	  }

-	  else {

-	      parseTree->branchHeadTbl = (TMBranchHead)

-		XtRealloc((char *)parseTree->branchHeadTbl,

-			  (parseTree->branchHeadTblSize *

-			   sizeof(TMBranchHeadRec)));

-	  }

-      }

-#ifdef TRACE_TM

-    LOCK_PROCESS;

-    _XtGlobalTM.numBranchHeads++;

-    UNLOCK_PROCESS;

-#endif /* TRACE_TM */

-    branchHead =

-      &parseTree->branchHeadTbl[parseTree->numBranchHeads++];

-    branchHead->typeIndex = typeIndex;

-    branchHead->modIndex = modIndex;

-    branchHead->more = 0;

-    branchHead->isSimple = True;

-    branchHead->hasActions = False;

-    branchHead->hasCycles = False;

-    return parseTree->numBranchHeads-1;

-}

-

-TMShortCard _XtGetQuarkIndex(

-    TMParseStateTree	parseTree,

-    XrmQuark		quark)

-{

-#define TM_QUARK_TBL_ALLOC 	16

-#define TM_QUARK_TBL_REALLOC 	16

-    TMShortCard  i = parseTree->numQuarks;

-

-    for (i=0; i < parseTree->numQuarks; i++)

-      if (parseTree->quarkTbl[i] == quark)

-	    break;

-

-    if (i == parseTree->numQuarks)

-      {

-	  if (parseTree->numQuarks == parseTree->quarkTblSize)

-	    {

-		TMShortCard	newSize;

-

-		if (parseTree->quarkTblSize == 0)

-		  parseTree->quarkTblSize += TM_QUARK_TBL_ALLOC;

-		else

-		  parseTree->quarkTblSize += TM_QUARK_TBL_REALLOC;

-		newSize = (parseTree->quarkTblSize * sizeof(XrmQuark));

-

-		if (parseTree->isStackQuarks) {

-		    XrmQuark	*oldquarkTbl = parseTree->quarkTbl;

-		    parseTree->quarkTbl = (XrmQuark *) __XtMalloc(newSize);

-		    XtMemmove(parseTree->quarkTbl, oldquarkTbl, newSize);

-		    parseTree->isStackQuarks = False;

-		}

-		else {

-		    parseTree->quarkTbl = (XrmQuark *)

-		      XtRealloc((char *)parseTree->quarkTbl,

-				(parseTree->quarkTblSize *

-				 sizeof(XrmQuark)));

-		}

-	    }

-	  parseTree->quarkTbl[parseTree->numQuarks++] = quark;

-      }

-    return i;

-}

-

-/*

- * Get an entry from the parseTrees complex branchHead tbl. If there's none

- * there then allocate one

- */

-/*ARGSUSED*/

-static TMShortCard GetComplexBranchIndex(

-    TMParseStateTree	parseTree,

-    TMShortCard		typeIndex,

-    TMShortCard		modIndex)

-{

-#define TM_COMPLEXBRANCH_HEAD_TBL_ALLOC 8

-#define TM_COMPLEXBRANCH_HEAD_TBL_REALLOC 4

-

-    if (parseTree->numComplexBranchHeads == parseTree->complexBranchHeadTblSize) {

-	TMShortCard	newSize;

-

-	if (parseTree->complexBranchHeadTblSize == 0)

-	  parseTree->complexBranchHeadTblSize += TM_COMPLEXBRANCH_HEAD_TBL_ALLOC;

-	else

-	  parseTree->complexBranchHeadTblSize += TM_COMPLEXBRANCH_HEAD_TBL_REALLOC;

-

-	newSize = (parseTree->complexBranchHeadTblSize * sizeof(StatePtr));

-

-	if (parseTree->isStackComplexBranchHeads) {

-	    StatePtr *oldcomplexBranchHeadTbl

-	      = parseTree->complexBranchHeadTbl;

-	    parseTree->complexBranchHeadTbl = (StatePtr *) __XtMalloc(newSize);

-	    XtMemmove(parseTree->complexBranchHeadTbl,

-		      oldcomplexBranchHeadTbl, newSize);

-	    parseTree->isStackComplexBranchHeads = False;

-	}

-	else {

-	    parseTree->complexBranchHeadTbl = (StatePtr *)

-	      XtRealloc((char *)parseTree->complexBranchHeadTbl,

-			(parseTree->complexBranchHeadTblSize *

-			 sizeof(StatePtr)));

-	}

-    }

-    parseTree->complexBranchHeadTbl[parseTree->numComplexBranchHeads++] = NULL;

-    return parseTree->numComplexBranchHeads-1;

-}

-

-TMShortCard _XtGetTypeIndex(

-    Event	*event)

-{

-    TMShortCard		i, j = TM_TYPE_SEGMENT_SIZE;

-    TMShortCard		typeIndex = 0;

-    TMTypeMatch 	typeMatch;

-    TMTypeMatch		segment = NULL;

-

-    LOCK_PROCESS;

-    for (i = 0; i < _XtGlobalTM.numTypeMatchSegments; i++) {

-	segment = _XtGlobalTM.typeMatchSegmentTbl[i];

-	for (j = 0;

-	     typeIndex < _XtGlobalTM.numTypeMatches && j <  TM_TYPE_SEGMENT_SIZE;

-	     j++, typeIndex++)

-	  {

-	      typeMatch = &(segment[j]);

-	      if (event->eventType == typeMatch->eventType &&

-		  event->eventCode == typeMatch->eventCode &&

-		  event->eventCodeMask == typeMatch->eventCodeMask &&

-		  event->matchEvent == typeMatch->matchEvent) {

-		    UNLOCK_PROCESS;

-		    return typeIndex;

-		  }

-	  }

-    }

-

-    if (j == TM_TYPE_SEGMENT_SIZE) {

-	if (_XtGlobalTM.numTypeMatchSegments == _XtGlobalTM.typeMatchSegmentTblSize) {

-	    _XtGlobalTM.typeMatchSegmentTblSize += 4;

-	    _XtGlobalTM.typeMatchSegmentTbl = (TMTypeMatch *)

-	      XtRealloc((char *)_XtGlobalTM.typeMatchSegmentTbl,

-			(_XtGlobalTM.typeMatchSegmentTblSize * sizeof(TMTypeMatch)));

-	}

-	_XtGlobalTM.typeMatchSegmentTbl[_XtGlobalTM.numTypeMatchSegments++] =

-	  segment = (TMTypeMatch)

-	    __XtMalloc(TM_TYPE_SEGMENT_SIZE * sizeof(TMTypeMatchRec));

-	j = 0;

-    }

-    typeMatch = &segment[j];

-    typeMatch->eventType = event->eventType;

-    typeMatch->eventCode = event->eventCode;

-    typeMatch->eventCodeMask = event->eventCodeMask;

-    typeMatch->matchEvent = event->matchEvent;

-    _XtGlobalTM.numTypeMatches++;

-    UNLOCK_PROCESS;

-    return typeIndex;

-}

-

-static Boolean CompareLateModifiers(

-    LateBindingsPtr lateBind1P,

-    LateBindingsPtr lateBind2P)

-{

-    LateBindingsPtr late1P = lateBind1P;

-    LateBindingsPtr late2P = lateBind2P;

-

-    if (late1P != NULL || late2P != NULL) {

-	int i = 0;

-	int j = 0;

-	if (late1P != NULL)

-	  for (; late1P->keysym != NoSymbol; i++) late1P++;

-	if (late2P != NULL)

-	  for (; late2P->keysym != NoSymbol; j++) late2P++;

-	if (i != j) return FALSE;

-	late1P--;

-	while (late1P >= lateBind1P) {

-	    Boolean last = True;

-	    for (late2P = lateBind2P + i - 1;

-		 late2P >= lateBind2P;

-		 late2P--) {

-		if (late1P->keysym == late2P->keysym

-		    && late1P->knot == late2P->knot) {

-		    j--;

-		    if (last) i--;

-		    break;

-		}

-		last = False;

-	    }

-	    late1P--;

-	}

-	if (j != 0) return FALSE;

-    }

-    return TRUE;

-}

-

-TMShortCard _XtGetModifierIndex(

-    Event	*event)

-{

-    TMShortCard		i, j = TM_MOD_SEGMENT_SIZE;

-    TMShortCard		modIndex = 0;

-    TMModifierMatch 	modMatch;

-    TMModifierMatch	segment = NULL;

-

-    LOCK_PROCESS;

-    for (i = 0; i < _XtGlobalTM.numModMatchSegments; i++) {

-	segment = _XtGlobalTM.modMatchSegmentTbl[i];

-	for (j = 0;

-	     modIndex < _XtGlobalTM.numModMatches && j <  TM_MOD_SEGMENT_SIZE;

-	     j++, modIndex++) {

-	    modMatch = &(segment[j]);

-	    if (event->modifiers == modMatch->modifiers &&

-		event->modifierMask == modMatch->modifierMask &&

-		event->standard == modMatch->standard &&

-		((!event->lateModifiers && !modMatch->lateModifiers) ||

-		 CompareLateModifiers(event->lateModifiers,

-				      modMatch->lateModifiers))) {

-		/*

-		 * if we found a match then we can free the parser's

-		 * late modifiers. If there isn't a match we use the

-		 * parser's copy

-		 */

-		if (event->lateModifiers &&

-		    --event->lateModifiers->ref_count == 0) {

-		    XtFree((char *)event->lateModifiers);

-		    event->lateModifiers = NULL;

-		}

-		UNLOCK_PROCESS;

-		return modIndex;

-	    }

-	}

-    }

-

-    if (j == TM_MOD_SEGMENT_SIZE) {

-	if (_XtGlobalTM.numModMatchSegments == _XtGlobalTM.modMatchSegmentTblSize) {

-	    _XtGlobalTM.modMatchSegmentTblSize += 4;

-	    _XtGlobalTM.modMatchSegmentTbl = (TMModifierMatch *)

-	      XtRealloc((char *)_XtGlobalTM.modMatchSegmentTbl,

-			(_XtGlobalTM.modMatchSegmentTblSize * sizeof(TMModifierMatch)));

-	}

-	_XtGlobalTM.modMatchSegmentTbl[_XtGlobalTM.numModMatchSegments++] =

-	  segment = (TMModifierMatch)

-	    __XtMalloc(TM_MOD_SEGMENT_SIZE * sizeof(TMModifierMatchRec));

-	j = 0;

-    }

-    modMatch = &segment[j];

-    modMatch->modifiers = event->modifiers;;

-    modMatch->modifierMask = event->modifierMask;

-    modMatch->standard = event->standard;

-    /*

-     * We use the parser's copy of the late binding array

-     */

-#ifdef TRACE_TM

-    if (event->lateModifiers)

-      _XtGlobalTM.numLateBindings++;

-#endif /* TRACE_TM */

-    modMatch->lateModifiers = event->lateModifiers;

-    _XtGlobalTM.numModMatches++;

-    UNLOCK_PROCESS;

-    return modIndex;

-}

-

-

-/*

- * This is called from the SimpleStateHandler to match a stateTree

- * entry to the event coming in

- */

-static int MatchBranchHead(

-    TMSimpleStateTree 	stateTree,

-    int			startIndex,

-    TMEventPtr		event)

-{

-    TMBranchHead branchHead = &stateTree->branchHeadTbl[startIndex];

-    int i;

-

-    LOCK_PROCESS;

-    for (i = startIndex;

-	 i < (int)stateTree->numBranchHeads;

-	 i++, branchHead++)

-      {

-	  TMTypeMatch 		typeMatch;

-	  TMModifierMatch	modMatch;

-

-	  typeMatch  = TMGetTypeMatch(branchHead->typeIndex);

-	  modMatch = TMGetModifierMatch(branchHead->modIndex);

-

-	  if (MatchIncomingEvent(event, typeMatch, modMatch)) {

-	    UNLOCK_PROCESS;

-	    return i;

-	  }

-      }

-    UNLOCK_PROCESS;

-    return (TM_NO_MATCH);

-}

-

-Boolean _XtRegularMatch(

-    TMTypeMatch 	typeMatch,

-    TMModifierMatch	modMatch,

-    TMEventPtr 		eventSeq)

-{

-    Modifiers computed =0;

-    Modifiers computedMask =0;

-    Boolean resolved = TRUE;

-    if (typeMatch->eventCode != (eventSeq->event.eventCode &

-				  typeMatch->eventCodeMask)) return FALSE;

-    if (modMatch->lateModifiers != NULL)

-	resolved = _XtComputeLateBindings(eventSeq->xev->xany.display,

-					  modMatch->lateModifiers,

-					  &computed, &computedMask);

-    if (!resolved) return FALSE;

-    computed |= modMatch->modifiers;

-    computedMask |= modMatch->modifierMask;

-

-    return ( (computed & computedMask) ==

-	    (eventSeq->event.modifiers & computedMask));

-}

-

-/*ARGSUSED*/

-Boolean _XtMatchAtom(

-    TMTypeMatch 	typeMatch,

-    TMModifierMatch	modMatch,

-    TMEventPtr 		eventSeq)

-{

-    Atom	atom;

-

-    atom = XInternAtom(eventSeq->xev->xany.display,

-		       XrmQuarkToString(typeMatch->eventCode),

-		       False);

-    return (atom == eventSeq->event.eventCode);

-}

-

-#define IsOn(vec,idx) ((vec)[(idx)>>3] & (1 << ((idx) & 7)))

-

-/*

- * there are certain cases where you want to ignore the event and stay

- * in the same state.

- */

-static Boolean Ignore(

-    TMEventPtr event)

-{

-    Display *dpy;

-    XtPerDisplay pd;

-

-    if (event->event.eventType == MotionNotify)

-	return TRUE;

-    if (!(event->event.eventType == KeyPress ||

-	  event->event.eventType == KeyRelease))

-	return FALSE;

-    dpy = event->xev->xany.display;

-    pd = _XtGetPerDisplay(dpy);

-    _InitializeKeysymTables(dpy, pd);

-    return IsOn(pd->isModifier, event->event.eventCode) ? TRUE : FALSE;

-}

-

-

-static void XEventToTMEvent(

-    XEvent *event,

-    TMEventPtr tmEvent)

-{

-    tmEvent->xev = event;

-    tmEvent->event.eventCodeMask = 0;

-    tmEvent->event.modifierMask = 0;

-    tmEvent->event.eventType = event->type;

-    tmEvent->event.lateModifiers = NULL;

-    tmEvent->event.matchEvent = NULL;

-    tmEvent->event.standard = FALSE;

-

-    switch (event->type) {

-

-	case KeyPress:

-	case KeyRelease:

-            tmEvent->event.eventCode = event->xkey.keycode;

-	    tmEvent->event.modifiers = event->xkey.state;

-	    break;

-

-	case ButtonPress:

-	case ButtonRelease:

-	    tmEvent->event.eventCode = event->xbutton.button;

-	    tmEvent->event.modifiers = event->xbutton.state;

-	    break;

-

-	case MotionNotify:

-	    tmEvent->event.eventCode = event->xmotion.is_hint;

-	    tmEvent->event.modifiers = event->xmotion.state;

-	    break;

-

-	case EnterNotify:

-	case LeaveNotify:

-	    tmEvent->event.eventCode = event->xcrossing.mode;

-	    tmEvent->event.modifiers = event->xcrossing.state;

-	    break;

-

-	case PropertyNotify:

-	    tmEvent->event.eventCode = event->xproperty.atom;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	case SelectionClear:

-	    tmEvent->event.eventCode = event->xselectionclear.selection;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	case SelectionRequest:

-	    tmEvent->event.eventCode = event->xselectionrequest.selection;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	case SelectionNotify:

-	    tmEvent->event.eventCode = event->xselection.selection;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	case ClientMessage:

-	    tmEvent->event.eventCode = event->xclient.message_type;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	case MappingNotify:

-	    tmEvent->event.eventCode = event->xmapping.request;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	case FocusIn:

-	case FocusOut:

-	    tmEvent->event.eventCode = event->xfocus.mode;

-	    tmEvent->event.modifiers = 0;

-	    break;

-

-	default:

-	    tmEvent->event.eventCode = 0;

-	    tmEvent->event.modifiers = 0;

-	    break;

-    }

-}

-

-

-static unsigned long GetTime(

-    XtTM tm,

-    XEvent *event)

-{

-    switch (event->type) {

-

-        case KeyPress:

-	case KeyRelease:

-	    return event->xkey.time;

-

-        case ButtonPress:

-	case ButtonRelease:

-	    return event->xbutton.time;

-

-	default:

-	    return tm->lastEventTime;

-

-    }

-

-}

-

-static void HandleActions(

-    Widget		w,

-    XEvent		*event,

-    TMSimpleStateTree	stateTree,

-    Widget		accelWidget,

-    XtActionProc	*procs,

-    ActionRec		*actions)

-{

-    ActionHook	 	actionHookList;

-    Widget		bindWidget;

-

-    bindWidget = accelWidget ? accelWidget : w;

-    if (accelWidget && !XtIsSensitive(accelWidget) &&

-	(event->type == KeyPress || event->type == KeyRelease ||

-	event->type == ButtonPress || event->type == ButtonRelease ||

-	event->type == MotionNotify || event->type == EnterNotify ||

-	event->type == LeaveNotify || event->type == FocusIn ||

-	event->type == FocusOut))

-	return;

-

-    actionHookList = XtWidgetToApplicationContext(w)->action_hook_list;

-

-    while (actions != NULL) {

-	/* perform any actions */

-	if (procs[actions->idx] != NULL) {

-	    if (actionHookList) {

-		ActionHook hook;

-		ActionHook next_hook;

-		String procName =

-		    XrmQuarkToString(stateTree->quarkTbl[actions->idx] );

-

-		for (hook = actionHookList; hook != NULL; ) {

-		    /*

-		     * Need to cache hook->next because the following action

-		     * proc may free hook via XtRemoveActionHook making

-		     * hook->next invalid upon return from the action proc.

-		     */

-		    next_hook = hook->next;

-		    (*hook->proc)(bindWidget,

-				  hook->closure,

-				  procName,

-				  event,

-				  actions->params,

-				  &actions->num_params

-				  );

-		    hook = next_hook;

-		}

-	    }

-	    (*(procs[actions->idx]))

-	      (bindWidget, event,

-	       actions->params, &actions->num_params );

-	}

-	actions = actions->next;

-    }

-}

-

-typedef struct {

-    unsigned int isCycleStart:1;

-    unsigned int isCycleEnd:1;

-    TMShortCard typeIndex;

-    TMShortCard modIndex;

-}MatchPairRec, *MatchPair;

-

-typedef struct TMContextRec{

-    TMShortCard	numMatches;

-    TMShortCard	maxMatches;

-    MatchPair	matches;

-}TMContextRec, *TMContext;

-

-static TMContextRec	contextCache[2];

-

-#define GetContextPtr(tm) ((TMContext *)&(tm->current_state))

-

-#define TM_CONTEXT_MATCHES_ALLOC 4

-#define TM_CONTEXT_MATCHES_REALLOC 2

-

-static void PushContext(

-    TMContext	*contextPtr,

-    StatePtr	newState)

-{

-    TMContext 		context = *contextPtr;

-

-    LOCK_PROCESS;

-    if (context == NULL)

-      {

-	  if (contextCache[0].numMatches == 0)

-	    context = &contextCache[0];

-	  else if (contextCache[1].numMatches == 0)

-	    context = &contextCache[1];

-	  if (!context)

-	    {

-		context = XtNew(TMContextRec);

-		context->matches = NULL;

-		context->numMatches =

-		  context->maxMatches = 0;

-	    }

-      }

-    if (context->numMatches &&

-	context->matches[context->numMatches-1].isCycleEnd)

-      {

-	  TMShortCard	i;

-	  for (i = 0;

-	       i < context->numMatches &&

-	       !(context->matches[i].isCycleStart);

-	       i++){};

-	  if (i < context->numMatches)

-	    context->numMatches = i+1;

-#ifdef DEBUG

-	  else

-	    XtWarning("pushing cycle end with no cycle start");

-#endif /* DEBUG */

-      }

-    else

-      {

-	  if (context->numMatches == context->maxMatches)

-	    {

-		if (context->maxMatches == 0)

-		  context->maxMatches += TM_CONTEXT_MATCHES_ALLOC;

-		else

-		  context->maxMatches += TM_CONTEXT_MATCHES_REALLOC;

-		context->matches = (MatchPairRec *)

-		  XtRealloc((char *)context->matches,

-			    context->maxMatches * sizeof(MatchPairRec));

-	    }

-	  context->matches[context->numMatches].isCycleStart = newState->isCycleStart;

-	  context->matches[context->numMatches].isCycleEnd = newState->isCycleEnd;

-	  context->matches[context->numMatches].typeIndex = newState->typeIndex;

-	  context->matches[context->numMatches++].modIndex = newState->modIndex;

-	  *contextPtr = context;

-      }

-      UNLOCK_PROCESS;

-}

-

-static void FreeContext(

-    TMContext	*contextPtr)

-{

-    TMContext 		context = NULL;

-

-    LOCK_PROCESS;

-

-    if (&contextCache[0] == *contextPtr)

-      context = &contextCache[0];

-    else if (&contextCache[1] == *contextPtr)

-      context = &contextCache[1];

-

-    if (context)

-      context->numMatches = 0;

-    else if (*contextPtr)

-    {

-      if ((*contextPtr)->matches)

-        XtFree ((char *) ((*contextPtr)->matches));

-      XtFree((char *)*contextPtr);

-    }

-

-    *contextPtr = NULL;

-    UNLOCK_PROCESS;

-}

-

-static int MatchExact(

-    TMSimpleStateTree 	stateTree,

-    int			startIndex,

-    TMShortCard		typeIndex,

-    TMShortCard		modIndex)

-{

-    TMBranchHead branchHead = &(stateTree->branchHeadTbl[startIndex]);

-    int i;

-

-    for (i = startIndex;

-	 i < (int)stateTree->numBranchHeads;

-	 i++, branchHead++)

-      {

-	  if ((branchHead->typeIndex == typeIndex) &&

-	      (branchHead->modIndex == modIndex))

-	    return i;

-      }

-    return (TM_NO_MATCH);

-}

-

-

-

-static void HandleSimpleState(

-    Widget	w,

-    XtTM	tmRecPtr,

-    TMEventRec	*curEventPtr)

-{

-    XtTranslations	xlations = tmRecPtr->translations;

-    TMSimpleStateTree	stateTree;

-    TMContext		*contextPtr = GetContextPtr(tmRecPtr);

-    TMShortCard		i;

-    ActionRec		*actions = NULL;

-    Boolean		matchExact = False;

-    Boolean	       	match = False;

-    StatePtr		complexMatchState = NULL;

-    int			currIndex;

-    TMShortCard		typeIndex = 0, modIndex = 0;

-    int			matchTreeIndex = TM_NO_MATCH;

-

-    LOCK_PROCESS;

-    stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];

-

-    for (i = 0;

-	 ((!match || !complexMatchState) && (i < xlations->numStateTrees));

-	 i++){

-	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];

-	currIndex = -1;

-	/*

-	 * don't process this tree if we're only looking for a

-	 * complexMatchState and there are no complex states

-	 */

-	while (!(match && stateTree->isSimple) &&

-	       ((!match || !complexMatchState) && (currIndex != TM_NO_MATCH))) {

-	    currIndex++;

-	    if (matchExact)

-	      currIndex = MatchExact(stateTree,currIndex,typeIndex,modIndex);

-	    else

-	      currIndex = MatchBranchHead(stateTree,currIndex,curEventPtr);

-	    if (currIndex != TM_NO_MATCH) {

-		TMBranchHead branchHead;

-		StatePtr currState;

-

-		branchHead = &stateTree->branchHeadTbl[currIndex];

-		if (branchHead->isSimple)

-		  currState = NULL;

-		else

-		  currState = ((TMComplexStateTree)stateTree)

-		    ->complexBranchHeadTbl[TMBranchMore(branchHead)];

-

-		/*

-		 * first check for a complete match

-		 */

-		if (!match) {

-		    if (branchHead->hasActions) {

-			if (branchHead->isSimple) {

-			    static ActionRec	dummyAction;

-

-			    dummyAction.idx = TMBranchMore(branchHead);

-			    actions = &dummyAction;

-			}

-			else

-			  actions = currState->actions;

-			tmRecPtr->lastEventTime =

-			  GetTime(tmRecPtr, curEventPtr->xev);

-			FreeContext((TMContext

-				     *)&tmRecPtr->current_state);

-			match = True;

-			matchTreeIndex = i;

-		    }

-		    /*

-		     * if it doesn't have actions and

-		     * it's bc mode then it's a potential match node that is

-		     * used to match later sequences.

-		     */

-		    if (!TMNewMatchSemantics() && !matchExact) {

-			matchExact = True;

-			typeIndex = branchHead->typeIndex;

-			modIndex = branchHead->modIndex;

-		    }

-		}

-		/*

-		 * check for it being an event sequence which can be

-		 * a future match

-		 */

-		if (!branchHead->isSimple &&

-		    !branchHead->hasActions &&

-		    !complexMatchState)

-		  complexMatchState = currState;

-	    }

-	}

-    }

-    if (match)

-      {

-	  TMBindData	bindData = (TMBindData) tmRecPtr->proc_table;

-	  XtActionProc	*procs;

-	  Widget	accelWidget;

-

-	  if (bindData->simple.isComplex) {

-	      TMComplexBindProcs bindProcs =

-		TMGetComplexBindEntry(bindData, matchTreeIndex);

-	      procs = bindProcs->procs;

-	      accelWidget = bindProcs->widget;

-	  }

-	  else {

-	      TMSimpleBindProcs bindProcs =

-		TMGetSimpleBindEntry(bindData, matchTreeIndex);

-	      procs = bindProcs->procs;

-	      accelWidget = NULL;

-	  }

-	  HandleActions

-	    (w,

-	     curEventPtr->xev,

-	     (TMSimpleStateTree)xlations->stateTreeTbl[matchTreeIndex],

-	     accelWidget,

-	     procs,

-	     actions);

-      }

-    if (complexMatchState)

-      PushContext(contextPtr, complexMatchState);

-    UNLOCK_PROCESS;

-}

-

-static int MatchComplexBranch(

-    TMComplexStateTree	stateTree,

-    int			startIndex,

-    TMContext		context,

-    StatePtr		*leafStateRtn)

-{

-    TMShortCard	i;

-

-    LOCK_PROCESS;

-    for (i = startIndex; i < stateTree->numComplexBranchHeads; i++)

-      {

-	  StatePtr	candState;

-	  TMShortCard	numMatches = context->numMatches;

-	  MatchPair	statMatch = context->matches;

-

-	  for (candState = stateTree->complexBranchHeadTbl[i];

-	       numMatches && candState;

-	       numMatches--, statMatch++, candState = candState->nextLevel)

-	    {

-		if ((statMatch->typeIndex != candState->typeIndex) ||

-		    (statMatch->modIndex != candState->modIndex))

-		  break;

-	    }

-	  if (numMatches == 0) {

-	      *leafStateRtn = candState;

-	      UNLOCK_PROCESS;

-	      return i;

-	  }

-      }

-    *leafStateRtn = NULL;

-    UNLOCK_PROCESS;

-    return (TM_NO_MATCH);

-}

-

-static StatePtr TryCurrentTree(

-    TMComplexStateTree	*stateTreePtr,

-    XtTM		tmRecPtr,

-    TMEventRec		*curEventPtr)

-{

-    StatePtr		candState = NULL, matchState = NULL;

-    TMContext		*contextPtr = GetContextPtr(tmRecPtr);

-    TMTypeMatch 	typeMatch;

-    TMModifierMatch 	modMatch;

-    int			currIndex = -1;

-

-    /*

-     * we want the first sequence that both matches and has actions.

-     * we keep on looking till we find both

-     */

-    LOCK_PROCESS;

-    while ((currIndex =

-	    MatchComplexBranch(*stateTreePtr,

-			       ++currIndex,

-			       (*contextPtr),

-			       &candState))

-	   != TM_NO_MATCH) {

-	if (candState  != NULL) {

-	    typeMatch  = TMGetTypeMatch(candState->typeIndex);

-	    modMatch = TMGetModifierMatch(candState->modIndex);

-

-	    /* does this state's index match? --> done */

-	    if (MatchIncomingEvent(curEventPtr, typeMatch, modMatch))

-	      {

-		  if (candState->actions) {

-		      UNLOCK_PROCESS;

-		      return candState;

-		  }

-		  else

-		    matchState = candState;

-	      }

-	    /* is this an event timer? */

-	    if (typeMatch->eventType == _XtEventTimerEventType) {

-		StatePtr nextState = candState->nextLevel;

-

-		/* does the succeeding state match? */

-		if (nextState != NULL) {

-		    TMTypeMatch 	nextTypeMatch;

-		    TMModifierMatch	nextModMatch;

-

-		    nextTypeMatch  = TMGetTypeMatch(nextState->typeIndex);

-		    nextModMatch = TMGetModifierMatch(nextState->modIndex);

-

-		    /* is it within the timeout? */

-		    if (MatchIncomingEvent(curEventPtr,

-					   nextTypeMatch,

-					   nextModMatch)) {

-			XEvent *xev = curEventPtr->xev;

-			unsigned long time = GetTime(tmRecPtr, xev);

-			XtPerDisplay pd = _XtGetPerDisplay(xev->xany.display);

-			unsigned long delta = pd->multi_click_time;

-

-			if ((tmRecPtr->lastEventTime + delta) >= time) {

-			    if (nextState->actions) {

-				UNLOCK_PROCESS;

-				return candState;

-			    }

-			    else

-			      matchState = candState;

-			}

-		    }

-		}

-	    }

-	}

-    }

-    UNLOCK_PROCESS;

-    return matchState;

-}

-

-static void HandleComplexState(

-    Widget	w,

-    XtTM	tmRecPtr,

-    TMEventRec	*curEventPtr)

-{

-    XtTranslations 	xlations = tmRecPtr->translations;

-    TMContext		*contextPtr = GetContextPtr(tmRecPtr);

-    TMShortCard		i, matchTreeIndex = 0;

-    StatePtr		matchState = NULL, candState;

-    TMComplexStateTree 	*stateTreePtr =

-      (TMComplexStateTree *)&xlations->stateTreeTbl[0];

-

-    LOCK_PROCESS;

-    for (i = 0;

-	 i < xlations->numStateTrees;

-	 i++, stateTreePtr++) {

-	/*

-	 * some compilers sign extend Boolean bit fields so test for

-	 * false |||

-	 */

-	if (((*stateTreePtr)->isSimple == False) &&

-	    (candState = TryCurrentTree(stateTreePtr,

-				       tmRecPtr,

-				       curEventPtr))) {

-	    if (!matchState || candState->actions) {

-		matchTreeIndex = i;

-		matchState = candState;

-		if (candState->actions)

-		    break;

-	    }

-	}

-    }

-    if (matchState == NULL){

-	/* couldn't find it... */

-	if (!Ignore(curEventPtr))

-	  {

-	      FreeContext(contextPtr);

-	      HandleSimpleState(w, tmRecPtr, curEventPtr);

-	  }

-    }

-    else {

-	TMBindData	bindData = (TMBindData) tmRecPtr->proc_table;

-	XtActionProc	*procs;

-	Widget		accelWidget;

-	TMTypeMatch 	typeMatch;

-

-	typeMatch  = TMGetTypeMatch(matchState->typeIndex);

-

-	PushContext(contextPtr, matchState);

-	if (typeMatch->eventType == _XtEventTimerEventType) {

-	    matchState = matchState->nextLevel;

-	    PushContext(contextPtr, matchState);

-	}

-	tmRecPtr->lastEventTime = GetTime (tmRecPtr, curEventPtr->xev);

-

-	if (bindData->simple.isComplex) {

-	    TMComplexBindProcs bindProcs =

-	      TMGetComplexBindEntry(bindData, matchTreeIndex);

-	    procs = bindProcs->procs;

-	    accelWidget = bindProcs->widget;

-	}

-	else {

-	    TMSimpleBindProcs bindProcs =

-	      TMGetSimpleBindEntry(bindData, matchTreeIndex);

-	    procs = bindProcs->procs;

-	    accelWidget = NULL;

-	}

-	HandleActions(w,

-		      curEventPtr->xev,

-		      (TMSimpleStateTree)

-		      xlations->stateTreeTbl[matchTreeIndex],

-		      accelWidget,

-		      procs,

-		      matchState->actions);

-    }

-    UNLOCK_PROCESS;

-}

-

-

-void _XtTranslateEvent (

-    Widget w,

-    XEvent * event)

-{

-    XtTM	tmRecPtr = &w->core.tm;

-    TMEventRec 	curEvent;

-    StatePtr 	current_state = tmRecPtr->current_state;

-

-    XEventToTMEvent (event, &curEvent);

-

-    if (! tmRecPtr->translations) {

-        XtAppWarningMsg(XtWidgetToApplicationContext(w),

-			XtNtranslationError,"nullTable",XtCXtToolkitError,

-			"Can't translate event through NULL table",

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

-	return ;

-    }

-    if (current_state == NULL)

-	  HandleSimpleState(w, tmRecPtr, &curEvent);

-    else

-	  HandleComplexState(w, tmRecPtr, &curEvent);

-}

-

-

-/*ARGSUSED*/

-static StatePtr NewState(

-    TMParseStateTree stateTree,

-    TMShortCard	typeIndex,

-    TMShortCard	modIndex)

-{

-    StatePtr state = XtNew(StateRec);

-

-#ifdef TRACE_TM

-    LOCK_PROCESS;

-    _XtGlobalTM.numComplexStates++;

-    UNLOCK_PROCESS;

-#endif /* TRACE_TM */

-    state->typeIndex = typeIndex;

-    state->modIndex = modIndex;

-    state->nextLevel = NULL;

-    state->actions = NULL;

-    state->isCycleStart = state->isCycleEnd = False;

-    return state;

-}

-

-/*

- * This routine is an iterator for state trees. If the func returns

- * true then iteration is over.

- */

-void _XtTraverseStateTree(

-    TMStateTree	tree,

-    _XtTraversalProc func,

-    XtPointer 	data)

-{

-    TMComplexStateTree stateTree = (TMComplexStateTree)tree;

-    TMBranchHead	currBH;

-    TMShortCard		i;

-    StateRec		dummyStateRec, *dummyState = &dummyStateRec;

-    ActionRec		dummyActionRec, *dummyAction = &dummyActionRec;

-    Boolean		firstSimple = True;

-    StatePtr 		currState;

-

-    /* first traverse the complex states */

-    if (stateTree->isSimple == False)

-      for (i = 0; i < stateTree->numComplexBranchHeads; i++) {

-	  currState = stateTree->complexBranchHeadTbl[i];

-	  for (; currState; currState = currState->nextLevel) {

-	      if (func(currState, data))

-		return;

-	      if (currState->isCycleEnd)

-		break;

-	  }

-      }

-

-    /* now traverse the simple ones */

-    for (i = 0, currBH = stateTree->branchHeadTbl;

-	 i < stateTree->numBranchHeads;

-	 i++, currBH++)

-      {

-	  if (currBH->isSimple && currBH->hasActions)

-	    {

-		if (firstSimple)

-		  {

-		      XtBZero((char *) dummyState, sizeof(StateRec));

-		      XtBZero((char *) dummyAction, sizeof(ActionRec));

-		      dummyState->actions = dummyAction;

-		      firstSimple = False;

-		  }

-		dummyState->typeIndex = currBH->typeIndex;

-		dummyState->modIndex = currBH->modIndex;

-		dummyAction->idx = currBH->more;

-		if (func(dummyState, data))

-		  return;

-	    }

-      }

-}

-

-static EventMask EventToMask(

-    TMTypeMatch     typeMatch,

-    TMModifierMatch modMatch)

-{

-    EventMask returnMask;

-    unsigned long eventType = typeMatch->eventType;

-

-    if (eventType == MotionNotify) {

-        Modifiers modifierMask = modMatch->modifierMask;

-        Modifiers tempMask;

-

-	returnMask = 0;

-        if (modifierMask == 0) {

-	    if (modMatch->modifiers == AnyButtonMask)

-		return ButtonMotionMask;

-	    else

-		return PointerMotionMask;

-	}

-        tempMask = modifierMask &

-	    (Button1Mask | Button2Mask | Button3Mask

-	     | Button4Mask | Button5Mask);

-        if (tempMask == 0)

-	    return PointerMotionMask;

-        if (tempMask & Button1Mask)

-            returnMask |= Button1MotionMask;

-        if (tempMask & Button2Mask)

-            returnMask |= Button2MotionMask;

-        if (tempMask & Button3Mask)

-            returnMask |= Button3MotionMask;

-        if (tempMask & Button4Mask)

-            returnMask |= Button4MotionMask;

-        if (tempMask & Button5Mask)

-            returnMask |= Button5MotionMask;

-        return returnMask;

-    }

-    returnMask = _XtConvertTypeToMask(eventType);

-    if (returnMask == (StructureNotifyMask|SubstructureNotifyMask))

-	returnMask = StructureNotifyMask;

-    return returnMask;

-}

-

-/*ARGSUSED*/

-static void DispatchMappingNotify(

-    Widget widget,		/* will be NULL from _RefreshMapping */

-    XtPointer closure,		/* real Widget */

-    XtPointer call_data)	/* XEvent* */

-{

-    _XtTranslateEvent( (Widget)closure, (XEvent*)call_data);

-}

-

-

-/*ARGSUSED*/

-static void RemoveFromMappingCallbacks(

-    Widget widget,

-    XtPointer closure,		/* target widget */

-    XtPointer call_data)

-{

-    _XtRemoveCallback( &_XtGetPerDisplay(XtDisplay(widget))->mapping_callbacks,

-		       DispatchMappingNotify,

-		       closure

-		      );

-}

-

-static Boolean AggregateEventMask(

-    StatePtr	state,

-    XtPointer	data)

-{

-    LOCK_PROCESS;

-    *((EventMask *)data) |= EventToMask(TMGetTypeMatch(state->typeIndex),

-					TMGetModifierMatch(state->modIndex));

-    UNLOCK_PROCESS;

-    return False;

-}

-

-void _XtInstallTranslations(

-    Widget widget)

-{

-    XtTranslations xlations;

-    Cardinal	i;

-    TMStateTree	stateTree;

-    Boolean  mappingNotifyInterest = False;

-

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

-    if (xlations == NULL) return;

-

-    /*

-     * check for somebody stuffing the translations directly into the

-     * instance structure. We will end up being called again out of

-     * ComposeTranslations but we *should* have bindings by then

-     */

-    if (widget->core.tm.proc_table == NULL) {

-	_XtMergeTranslations(widget, NULL, XtTableReplace);

-	/*

-	 * if we're realized then we'll be called out of

-	 * ComposeTranslations

-	 */

-	if (XtIsRealized(widget))

-	  return;

-    }

-

-    xlations->eventMask = 0;

-    for (i = 0;

-	 i < xlations->numStateTrees;

-	 i++)

-      {

-	  stateTree = xlations->stateTreeTbl[i];

-	  _XtTraverseStateTree(stateTree,

-			    AggregateEventMask,

-			    (XtPointer)&xlations->eventMask);

-	  mappingNotifyInterest |= stateTree->simple.mappingNotifyInterest;

-      }

-    /* double click needs to make sure that you have selected on both

-	button down and up. */

-

-    if (xlations->eventMask & ButtonPressMask)

-      xlations->eventMask |= ButtonReleaseMask;

-    if (xlations->eventMask & ButtonReleaseMask)

-      xlations->eventMask |= ButtonPressMask;

-

-    if (mappingNotifyInterest) {

-	XtPerDisplay pd = _XtGetPerDisplay(XtDisplay(widget));

-	if (pd->mapping_callbacks)

-	    _XtAddCallbackOnce(&(pd->mapping_callbacks),

-			       DispatchMappingNotify,

-			       (XtPointer)widget);

-	else

-	    _XtAddCallback(&(pd->mapping_callbacks),

-			   DispatchMappingNotify,

-			   (XtPointer)widget);

-

-	if (widget->core.destroy_callbacks != NULL)

-	    _XtAddCallbackOnce( (InternalCallbackList *)

-			        &widget->core.destroy_callbacks,

-				RemoveFromMappingCallbacks,

-				(XtPointer)widget

-			       );

-	else

-	    _XtAddCallback((InternalCallbackList *)

-			   &widget->core.destroy_callbacks,

-			   RemoveFromMappingCallbacks,

-			   (XtPointer)widget

-			  );

-    }

-    _XtBindActions(widget, (XtTM)&widget->core.tm);

-    _XtRegisterGrabs(widget);

-}

-

-void _XtRemoveTranslations(

-    Widget widget)

-{

-    Cardinal	i;

-    TMSimpleStateTree	stateTree;

-    Boolean  		mappingNotifyInterest = False;

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

-

-    if (xlations == NULL)

-      return;

-

-    for (i = 0;

-	 i < xlations->numStateTrees;

-	 i++)

-      {

-	  stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];

-	  mappingNotifyInterest |= stateTree->mappingNotifyInterest;

-      }

-    if (mappingNotifyInterest)

-      RemoveFromMappingCallbacks(widget, (XtPointer)widget, NULL);

-}

-

-static void _XtUninstallTranslations(

-    Widget widget)

-{

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

-

-    _XtUnbindActions(widget,

-		     xlations,

-		     (TMBindData)widget->core.tm.proc_table);

-    _XtRemoveTranslations(widget);

-    widget->core.tm.translations = NULL;

-    FreeContext((TMContext *)&widget->core.tm.current_state);

-}

-

-void _XtDestroyTMData(

-    Widget	widget)

-{

-    TMComplexBindData	cBindData;

-

-    _XtUninstallTranslations(widget);

-

-    if ((cBindData = (TMComplexBindData)widget->core.tm.proc_table)) {

-	if (cBindData->isComplex) {

-	    ATranslations	aXlations, nXlations;

-

-	    nXlations = (ATranslations) cBindData->accel_context;

-	    while (nXlations){

-		aXlations = nXlations;

-		nXlations = nXlations->next;

-		XtFree((char *)aXlations);

-	    }

-	}

-	XtFree((char *)cBindData);

-    }

-}

-

-/*** Public procedures ***/

-

-

-void XtUninstallTranslations(

-    Widget widget)

-{

-    EventMask	oldMask;

-    Widget hookobj;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    if (! widget->core.tm.translations) {

-	UNLOCK_APP(app);

-	return;

-    }

-    oldMask = widget->core.tm.translations->eventMask;

-    _XtUninstallTranslations(widget);

-    if (XtIsRealized(widget) && oldMask)

-	XSelectInput(XtDisplay(widget), XtWindow(widget),

-		     XtBuildEventMask(widget));

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHuninstallTranslations;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_APP(app);

-}

-

-XtTranslations _XtCreateXlations(

-    TMStateTree		*stateTrees,

-    TMShortCard		numStateTrees,

-    XtTranslations	first,

-    XtTranslations	second)

-{

-    XtTranslations	xlations;

-    TMShortCard i;

-

-    xlations = (XtTranslations)

-      __XtMalloc(sizeof(TranslationData) +

-	       (numStateTrees-1) * sizeof(TMStateTree));

-#ifdef TRACE_TM

-    LOCK_PROCESS;

-    if (_XtGlobalTM.numTms == _XtGlobalTM.tmTblSize) {

-	_XtGlobalTM.tmTblSize += 16;

-	_XtGlobalTM.tmTbl = (XtTranslations *)

-	  XtRealloc((char *)_XtGlobalTM.tmTbl,

-		   _XtGlobalTM.tmTblSize * sizeof(XtTranslations));

-    }

-    _XtGlobalTM.tmTbl[_XtGlobalTM.numTms++] = xlations;

-    UNLOCK_PROCESS;

-#endif /* TRACE_TM */

-

-    xlations->composers[0] = first;

-    xlations->composers[1] = second;

-    xlations->hasBindings = False;

-    xlations->operation = XtTableReplace;

-

-    for (i = 0;i < numStateTrees; i++)

-      {

-	  xlations->stateTreeTbl[i] = (TMStateTree) stateTrees[i];

-	  stateTrees[i]->simple.refCount++;

-      }

-    xlations->numStateTrees = numStateTrees;

-    xlations->eventMask = 0;

-    return xlations;

-}

-

-TMStateTree _XtParseTreeToStateTree(

-    TMParseStateTree	parseTree)

-{

-    TMSimpleStateTree  simpleTree;

-    unsigned int	tableSize;

-

-    if (parseTree->numComplexBranchHeads) {

-	TMComplexStateTree complexTree;

-

-	complexTree = XtNew(TMComplexStateTreeRec);

-	complexTree->isSimple = False;

-	tableSize = parseTree->numComplexBranchHeads * sizeof(StatePtr);

-	complexTree->complexBranchHeadTbl = (StatePtr *)

-	  __XtMalloc(tableSize);

-	XtMemmove(complexTree->complexBranchHeadTbl,

-		  parseTree->complexBranchHeadTbl, tableSize);

-	complexTree->numComplexBranchHeads =

-	  parseTree->numComplexBranchHeads;

-	simpleTree = (TMSimpleStateTree)complexTree;

-    }

-    else {

-	simpleTree = XtNew(TMSimpleStateTreeRec);

-	simpleTree->isSimple = True;

-    }

-    simpleTree->isAccelerator = parseTree->isAccelerator;

-    simpleTree->refCount = 0;

-    simpleTree->mappingNotifyInterest = parseTree->mappingNotifyInterest;

-

-    tableSize = parseTree->numBranchHeads * sizeof(TMBranchHeadRec);

-    simpleTree->branchHeadTbl = (TMBranchHead)

-      __XtMalloc(tableSize);

-    XtMemmove(simpleTree->branchHeadTbl, parseTree->branchHeadTbl, tableSize);

-    simpleTree->numBranchHeads = parseTree->numBranchHeads;

-

-    tableSize = parseTree->numQuarks * sizeof(XrmQuark);

-    simpleTree->quarkTbl = (XrmQuark *) __XtMalloc(tableSize);

-    XtMemmove(simpleTree->quarkTbl, parseTree->quarkTbl, tableSize);

-    simpleTree->numQuarks = parseTree->numQuarks;

-

-    return (TMStateTree)simpleTree;

-}

-

-static void FreeActions(

-    ActionPtr	actions)

-{

-    ActionPtr action;

-    TMShortCard i;

-    for (action = actions; action;) {

-	ActionPtr nextAction = action->next;

-	for (i = action->num_params; i;) {

-	    XtFree( action->params[--i] );

-	}

-	XtFree( (char*)action->params );

-	XtFree((char*) action);

-	action = nextAction;

-    }

-}

-

-/*ARGSUSED*/

-static void AmbigActions(

-    EventSeqPtr	initialEvent,

-    StatePtr	*state,

-    TMParseStateTree stateTree)

-{

-    String 	params[3];

-    Cardinal 	numParams = 0;

-

-    params[numParams++] = _XtPrintEventSeq(initialEvent, NULL);

-    params[numParams++] = _XtPrintActions((*state)->actions,

-					  stateTree->quarkTbl);

-    XtWarningMsg (XtNtranslationError,"oldActions",XtCXtToolkitError,

-		  "Previous entry was: %s %s", params, &numParams);

-    XtFree((char *)params[0]);

-    XtFree((char *)params[1]);

-    numParams = 0;

-    params[numParams++]  = _XtPrintActions(initialEvent->actions,

-					   stateTree->quarkTbl);

-    XtWarningMsg (XtNtranslationError,"newActions",XtCXtToolkitError,

-		  "New actions are:%s", params, &numParams);

-    XtFree((char *)params[0]);

-    XtWarningMsg (XtNtranslationError,"ambiguousActions",

-		  XtCXtToolkitError,

-		  "Overriding earlier translation manager actions.",

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

-

-    FreeActions((*state)->actions);

-    (*state)->actions = NULL;

-}

-

-

-void _XtAddEventSeqToStateTree(

-    EventSeqPtr 	eventSeq,

-    TMParseStateTree	stateTree)

-{

-    StatePtr		*state;

-    EventSeqPtr		initialEvent = eventSeq;

-    TMBranchHead	branchHead;

-    TMShortCard		idx, modIndex, typeIndex;

-

-    if (eventSeq == NULL) return;

-

-    /* note that all states in the event seq passed in start out null */

-    /* we fill them in with the matching state as we traverse the list */

-

-    /*

-     * We need to free the parser data structures !!!

-     */

-

-    typeIndex = _XtGetTypeIndex(&eventSeq->event);

-    modIndex = _XtGetModifierIndex(&eventSeq->event);

-    idx = GetBranchHead(stateTree, typeIndex, modIndex, False);

-    branchHead = &stateTree->branchHeadTbl[idx];

-

-    /*

-     * Need to check for pre-existing actions with same lhs |||

-     */

-

-    /*

-     * Check for optimized case. Don't assume that the eventSeq has actions.

-     */

-    if (!eventSeq->next &&

-	 eventSeq->actions &&

-	!eventSeq->actions->next &&

-	!eventSeq->actions->num_params)

-      {

-	  if (eventSeq->event.eventType == MappingNotify)

-	    stateTree->mappingNotifyInterest = True;

-	  branchHead->hasActions = True;

-	  branchHead->more = eventSeq->actions->idx;

-	  FreeActions(eventSeq->actions);

-	  eventSeq->actions = NULL;

-	  return;

-      }

-

-    branchHead->isSimple = False;

-    if (!eventSeq->next)

-      branchHead->hasActions = True;

-    branchHead->more = GetComplexBranchIndex(stateTree, typeIndex, modIndex);

-    state = &stateTree->complexBranchHeadTbl[TMBranchMore(branchHead)];

-

-    for (;;) {

-	*state = NewState(stateTree, typeIndex, modIndex);

-

-	if (eventSeq->event.eventType == MappingNotify)

-	    stateTree->mappingNotifyInterest = True;

-

-	/* *state now points at state record matching event */

-	eventSeq->state = *state;

-

-	if (eventSeq->actions != NULL) {

-	    if ((*state)->actions != NULL)

-	      AmbigActions(initialEvent, state, stateTree);

-	    (*state)->actions = eventSeq->actions;

-#ifdef TRACE_TM

-	    LOCK_PROCESS

-	    _XtGlobalTM.numComplexActions++;

-	    UNLOCK_PROCESS;

-#endif /* TRACE_TM */

-	}

-

-	if (((eventSeq = eventSeq->next) == NULL) || (eventSeq->state))

-	  break;

-

-	state = &(*state)->nextLevel;

-	typeIndex = _XtGetTypeIndex(&eventSeq->event);

-	modIndex = _XtGetModifierIndex(&eventSeq->event);

-	LOCK_PROCESS;

-	if (!TMNewMatchSemantics()) {

-	    /*

-	     * force a potential empty entry into the branch head

-	     * table in order to emulate old matching behavior

-	     */

-	    (void) GetBranchHead(stateTree, typeIndex, modIndex, True);

-	}

-	UNLOCK_PROCESS;

-    }

-

-    if (eventSeq && eventSeq->state) {

-	/* we've been here before... must be a cycle in the event seq. */

-	branchHead->hasCycles = True;

-	(*state)->nextLevel = eventSeq->state;

-	eventSeq->state->isCycleStart = True;

-	(*state)->isCycleEnd = TRUE;

-    }

-}

-

-

-/*

- * Internal Converter for merging. Old and New must both be valid xlations

- */

-

-/*ARGSUSED*/

-Boolean _XtCvtMergeTranslations(

-    Display	*dpy,

-    XrmValuePtr args,

-    Cardinal    *num_args,

-    XrmValuePtr from,

-    XrmValuePtr to,

-    XtPointer	*closure_ret)

-{

-    XtTranslations 	first, second, xlations;

-    TMStateTree		*stateTrees, stackStateTrees[16];

-    TMShortCard		numStateTrees, i;

-

-    if (*num_args != 0)

-	XtWarningMsg("invalidParameters","mergeTranslations",XtCXtToolkitError,

-             "MergeTM to TranslationTable needs no extra arguments",

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

-

-    if (to->addr != NULL && to->size < sizeof(XtTranslations)) {

-	to->size = sizeof(XtTranslations);

-	return False;

-    }

-

-    first = ((TMConvertRec*)from->addr)->old;

-    second = ((TMConvertRec*)from->addr)->new;

-

-    numStateTrees = first->numStateTrees + second->numStateTrees;

-

-    stateTrees = (TMStateTree *)

-      XtStackAlloc(numStateTrees * sizeof(TMStateTree), stackStateTrees);

-

-    for (i = 0; i < first->numStateTrees; i++)

-      stateTrees[i] = first->stateTreeTbl[i];

-    for (i = 0; i < second->numStateTrees; i++)

-      stateTrees[i + first->numStateTrees] = second->stateTreeTbl[i];

-

-    xlations = _XtCreateXlations(stateTrees, numStateTrees, first, second);

-

-    if (to->addr != NULL) {

-	*(XtTranslations*)to->addr = xlations;

-    }

-    else {

-	static XtTranslations staticStateTable;

-	staticStateTable = xlations;

-	to->addr= (XPointer)&staticStateTable;

-	to->size = sizeof(XtTranslations);

-    }

-

-    XtStackFree((XtPointer)stateTrees, (XtPointer)stackStateTrees);

-    return True;

-}

-

-

-static XtTranslations MergeThem(

-    Widget		dest,

-    XtTranslations	first,

-    XtTranslations	second)

-{

-    XtCacheRef 		cache_ref;

-    static XrmQuark 	from_type = NULLQUARK, to_type;

-    XrmValue 		from, to;

-    TMConvertRec 	convert_rec;

-    XtTranslations	newTable;

-

-    LOCK_PROCESS;

-    if (from_type == NULLQUARK) {

-	from_type = XrmPermStringToQuark(_XtRStateTablePair);

-	to_type = XrmPermStringToQuark(XtRTranslationTable);

-    }

-    UNLOCK_PROCESS;

-    from.addr = (XPointer)&convert_rec;

-    from.size = sizeof(TMConvertRec);

-    to.addr = (XPointer)&newTable;

-    to.size = sizeof(XtTranslations);

-    convert_rec.old = first;

-    convert_rec.new = second;

-

-    LOCK_PROCESS;

-    if (! _XtConvert(dest, from_type, &from, to_type, &to, &cache_ref)) {

-	UNLOCK_PROCESS;

-	return NULL;

-    }

-    UNLOCK_PROCESS;

-

-#ifndef REFCNT_TRANSLATIONS

-

-    if (cache_ref)

-	XtAddCallback(dest, XtNdestroyCallback,

-		      XtCallbackReleaseCacheRef, (XtPointer)cache_ref);

-

-#endif

-

-    return newTable;

-}

-

-/*

- * Unmerge will recursively traverse the xlation compose tree and

- * generate a new xlation that is the result of all instances of

- * xlations being removed. It currently doesn't differentiate between

- * the potential that an xlation will be both an accelerator and

- * normal. This is not supported by the spec anyway.

- */

-static XtTranslations UnmergeTranslations(

-    Widget		widget,

-    XtTranslations	xlations,

-    XtTranslations	unmergeXlations,

-    TMShortCard		currIndex,

-    TMComplexBindProcs	oldBindings,

-    TMShortCard		numOldBindings,

-    TMComplexBindProcs	newBindings,

-    TMShortCard		*numNewBindingsRtn)

-

-{

-    XtTranslations first, second, result;

-

-    if (!xlations || (xlations == unmergeXlations))

-      return NULL;

-

-    if (xlations->composers[0]) {

-	first = UnmergeTranslations(widget, xlations->composers[0],

-				    unmergeXlations,  currIndex,

-				    oldBindings, numOldBindings,

-				    newBindings, numNewBindingsRtn);

-    }

-    else

-      first = NULL;

-

-    if (xlations->composers[1]) {

-	second = UnmergeTranslations(widget, xlations->composers[1],

-				     unmergeXlations,

-				     currIndex +

-				     xlations->composers[0]->numStateTrees,

-				     oldBindings, numOldBindings,

-				     newBindings, numNewBindingsRtn);

-    }

-    else

-      second = NULL;

-

-    if (first || second) {

-	if (first && second) {

-	    if ((first != xlations->composers[0]) ||

-		(second != xlations->composers[1]))

-	      result = MergeThem(widget, first, second);

-	    else result = xlations;

-	}

-	else {

-	    if (first)

-	      result = first;

-	    else

-	      result = second;

-	}

-    } else { /* only update for leaf nodes */

-  	if (numOldBindings) {

- 	    Cardinal	i;

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

- 		if (xlations->stateTreeTbl[i]->simple.isAccelerator)

-		    newBindings[*numNewBindingsRtn] =

-			oldBindings[currIndex + i];

- 		(*numNewBindingsRtn)++;

-	    }

-	}

-	result = xlations;

-    }

-    return result;

-}

-

-typedef struct {

-    XtTranslations xlations;

-    TMComplexBindProcs bindings;

-}MergeBindRec, *MergeBind;

-

-static XtTranslations MergeTranslations(

-    Widget		widget,

-    XtTranslations	oldXlations,

-    XtTranslations	newXlations,

-    _XtTranslateOp	operation,

-    Widget		source,

-    TMComplexBindProcs	oldBindings,

-    TMComplexBindProcs	newBindings,

-    TMShortCard		*numNewRtn)

-{

-    XtTranslations      newTable = NULL, xlations;

-    TMComplexBindProcs	bindings;

-    TMShortCard		i, j;

-    TMStateTree 	*treePtr;

-    TMShortCard		numNew = *numNewRtn;

-    MergeBindRec	bindPair[2];

-

-    /* If the new translation has an accelerator context then pull it

-     * off and pass it and the real xlations in to the caching merge

-     * routine.

-     */

-    if (newXlations->hasBindings) {

-	xlations = ((ATranslations) newXlations)->xlations;

-	bindings = (TMComplexBindProcs)

-	    &((ATranslations) newXlations)->bindTbl[0];

-    }

-    else {

-	xlations = newXlations;

-	bindings = NULL;

-    }

-    switch(operation) {

-      case XtTableReplace:

-	newTable = bindPair[0].xlations = xlations;

-	bindPair[0].bindings = bindings;

-	bindPair[1].xlations = NULL;

-	bindPair[1].bindings = NULL;

-	break;

-      case XtTableAugment:

-	bindPair[0].xlations = oldXlations;

-	bindPair[0].bindings = oldBindings;

-	bindPair[1].xlations = xlations;

-	bindPair[1].bindings = bindings;

-	newTable = NULL;

-	break;

-      case XtTableOverride:

-	bindPair[0].xlations = xlations;

-	bindPair[0].bindings = bindings;

-	bindPair[1].xlations = oldXlations;

-	bindPair[1].bindings = oldBindings;

-	newTable = NULL;

-	break;

-    }

-    if (!newTable)

-      newTable = MergeThem(widget, bindPair[0].xlations, bindPair[1].xlations);

-

-    for (i = 0, numNew = 0; i < 2; i++) {

-	if (bindPair[i].xlations)

-	  for (j = 0; j < bindPair[i].xlations->numStateTrees; j++, numNew++) {

-	      if (bindPair[i].xlations->stateTreeTbl[j]->simple.isAccelerator) {

-		  if (bindPair[i].bindings)

-		    newBindings[numNew] = bindPair[i].bindings[j];

-		  else {

-		      newBindings[numNew].widget = source;

-		      newBindings[numNew].aXlations =

-			bindPair[i].xlations;

-		  }

-		}

-	  }

-    }

-    *numNewRtn = numNew;

-    treePtr = &newTable->stateTreeTbl[0];

-    for (i = 0; i < newTable->numStateTrees; i++, treePtr++)

-      (*treePtr)->simple.refCount++;

-    return newTable;

-}

-

-static TMBindData MakeBindData(

-    TMComplexBindProcs	bindings,

-    TMShortCard		numBindings,

-    TMBindData		oldBindData)

-{

-    TMLongCard		bytes;

-    TMShortCard		i;

-    Boolean		isComplex;

-    TMBindData		bindData;

-

-    if (numBindings == 0)

-      return NULL;

-    for (i = 0; i < numBindings; i++)

-      if (bindings[i].widget)

-	break;

-    isComplex = (i < numBindings);

-    if (isComplex)

-      bytes = (sizeof(TMComplexBindDataRec) +

-	       ((numBindings - 1) *

-		sizeof(TMComplexBindProcsRec)));

-    else

-      bytes = (sizeof(TMSimpleBindDataRec) +

-	       ((numBindings - 1) *

-		sizeof(TMSimpleBindProcsRec)));

-

-    bindData = (TMBindData) __XtCalloc(sizeof(char), bytes);

-    bindData->simple.isComplex = isComplex;

-    if (isComplex) {

-	TMComplexBindData cBindData = (TMComplexBindData)bindData;

-	/*

-	 * If there were any accelerator contexts in the old bindData

-	 * then propagate them to the new one.

-	 */

-	if (oldBindData && oldBindData->simple.isComplex)

-	    cBindData->accel_context =

-		((TMComplexBindData) oldBindData)->accel_context;

-	XtMemmove((char *)&cBindData->bindTbl[0], (char *)bindings,

-		  numBindings * sizeof(TMComplexBindProcsRec));

-    }

-    return bindData;

-}

-

-/*

- * This routine is the central clearinghouse for merging translations

- * into a widget. It takes care of preping the action bindings for

- * realize time and calling the converter or doing a straight merge if

- * the destination is empty.

- */

-static Boolean ComposeTranslations(

-    Widget dest,

-    _XtTranslateOp operation,

-    Widget source,

-    XtTranslations newXlations)

-{

-    XtTranslations 	newTable, oldXlations;

-    XtTranslations	accNewXlations;

-    EventMask		oldMask = 0;

-    TMBindData		bindData;

-    TMComplexBindProcs	oldBindings = NULL;

-    TMShortCard		numOldBindings = 0, numNewBindings = 0, numBytes;

-    TMComplexBindProcsRec stackBindings[16], *newBindings;

-

-    /*

-     * how should we be handling the refcount decrement for the

-     * replaced translation table ???

-     */

-    if (!newXlations)

-      {

-	  XtAppWarningMsg(XtWidgetToApplicationContext(dest),

-			  XtNtranslationError,"nullTable",XtCXtToolkitError,

-			  "table to (un)merge must not be null",

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

-	  return False;

-      }

-

-    accNewXlations = newXlations;

-    newXlations = ((newXlations->hasBindings)

-		   ? ((ATranslations)newXlations)->xlations

-		   : newXlations);

-

-    if (!(oldXlations = dest->core.tm.translations))

-      operation = XtTableReplace;

-

-    /*

-     * try to avoid generation of duplicate state trees. If the source

-     * isn't simple (1 state Tree) then it's too much hassle

-     */

-    if (((operation == XtTableAugment) ||

-	 (operation == XtTableOverride)) &&

-	(newXlations->numStateTrees == 1)) {

-	Cardinal	i;

-	for (i = 0; i < oldXlations->numStateTrees; i++)

-	  if (oldXlations->stateTreeTbl[i] ==

-	      newXlations->stateTreeTbl[0])

-	    break;

-	if (i < oldXlations->numStateTrees) {

-	    if (operation == XtTableAugment) {

-		/*

-		 * we don't need to do anything since it's already

-		 * there

-		 */

-		return True;

-	    }

-	    else {/* operation == XtTableOverride */

-		/*

-		 * We'll get rid of the duplicate trees throughout the

-		 * and leave it with a pruned translation table. This

-		 * will only work if the same table has been merged

-		 * into this table (or one of it's composers

-		 */

-		_XtUnmergeTranslations(dest, newXlations);

-		/*

-		 * reset oldXlations so we're back in sync

-		 */

-		if (!(oldXlations = dest->core.tm.translations))

-		  operation = XtTableReplace;

-	    }

-	}

-    }

-

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

-    if (bindData) {

-	numOldBindings = (oldXlations ? oldXlations->numStateTrees : 0);

- 	if (bindData->simple.isComplex)

-	    oldBindings = &((TMComplexBindData)bindData)->bindTbl[0];

- 	else

-	    oldBindings = (TMComplexBindProcs)

-		(&((TMSimpleBindData)bindData)->bindTbl[0]);

-    }

-

-    numBytes =(((oldXlations ? oldXlations->numStateTrees : 0)

-		+ newXlations->numStateTrees) * sizeof(TMComplexBindProcsRec));

-    newBindings = (TMComplexBindProcs) XtStackAlloc(numBytes,  stackBindings);

-    XtBZero((char *)newBindings, numBytes);

-

-    if (operation == XtTableUnmerge) {

-	newTable = UnmergeTranslations(dest,

-				       oldXlations,

-				       newXlations,

-				       0,

-				       oldBindings, numOldBindings,

-				       newBindings, &numNewBindings);

-#ifdef DEBUG

-	/* check for no match for unmerge */

-	if (newTable == oldXlations) {

-	    XtWarning("attempt to unmerge invalid table");

-	    XtStackFree((char *)newBindings, (char *)stackBindings);

-	    return(newTable != NULL);

-	}

-#endif /* DEBUG */

-    }

-    else {

-	newTable = MergeTranslations(dest,

-				     oldXlations,

-				     accNewXlations,

-				     operation,

-				     source,

-				     oldBindings,

-				     newBindings,

-				     &numNewBindings);

-    }

-    if (XtIsRealized(dest)) {

-	oldMask = 0;

-	if (oldXlations)

-	    oldMask = oldXlations->eventMask;

-	_XtUninstallTranslations(dest);

-    }

-

-    dest->core.tm.proc_table =

-      (XtActionProc *) MakeBindData(newBindings, numNewBindings, bindData);

-

-    if (bindData) XtFree((char *)bindData);

-

-    dest->core.tm.translations = newTable;

-

-    if (XtIsRealized(dest)) {

-	EventMask mask = 0;

-	_XtInstallTranslations(dest);

-	if (newTable)

-	    mask = newTable->eventMask;

-	if (mask != oldMask)

-	    XSelectInput(XtDisplay(dest), XtWindow(dest),

-			 XtBuildEventMask(dest));

-    }

-    XtStackFree((XtPointer)newBindings, (XtPointer)stackBindings);

-    return(newTable != NULL);

-}

-

-/*

- * If a GetValues is done on a translation resource that contains

- * accelerators we need to return the accelerator context in addition

- * to the pure translations.  Since this means returning memory that

- * the client controlls but we still own, we will track the "headers"

- * that we return (via a linked list pointed to from the bindData) and

- * free it at destroy time.

- */

-XtTranslations _XtGetTranslationValue(

-    Widget	w)

-{

-    XtTM		tmRecPtr = (XtTM) &w->core.tm;

-    ATranslations	*aXlationsPtr;

-    TMComplexBindData	cBindData = (TMComplexBindData) tmRecPtr->proc_table;

-    XtTranslations	xlations = tmRecPtr->translations;

-

-    if (!xlations || !cBindData || !cBindData->isComplex)

-	return xlations;

-

-    /* Walk the list looking to see if we already have generated a

-     * header for the currently installed translations.  If we have,

-     * just return that header.  Otherwise create a new header.

-     */

-    for (aXlationsPtr = (ATranslations *) &cBindData->accel_context;

-	 *aXlationsPtr && (*aXlationsPtr)->xlations != xlations;

-	 aXlationsPtr = &(*aXlationsPtr)->next)

-	;

-    if (*aXlationsPtr)

-	return (XtTranslations) *aXlationsPtr;

-    else {

-	/* create a new aXlations context */

-	ATranslations	aXlations;

-	Cardinal	numBindings = xlations->numStateTrees;

-

-	(*aXlationsPtr) = aXlations = (ATranslations)

-	    __XtMalloc(sizeof(ATranslationData) +

-		     (numBindings - 1) * sizeof(TMComplexBindProcsRec));

-

-	aXlations->hasBindings = True;

-	aXlations->xlations = xlations;

-	aXlations->next = NULL;

-	XtMemmove((char *) &aXlations->bindTbl[0],

-		  (char *) &cBindData->bindTbl[0],

-		  numBindings * sizeof(TMComplexBindProcsRec));

-	return (XtTranslations) aXlations;

-    }

-}

-

-

-/*ARGSUSED*/

-static void RemoveStateTree(

-    TMStateTree	tree)

-{

-#ifdef REFCNT_TRANSLATIONS

-    TMComplexStateTree stateTree = (TMComplexStateTree)tree;

-

-    if (--stateTree->refCount == 0) {

-	/*

-	 * should we free/refcount the match recs ?

-	 */

-	if (!stateTree->isSimple)  {

-	    StatePtr	currState, nextState;

-	    TMShortCard i;

-	    for (i = 0; i < stateTree->numComplexBranchHeads; i++) {

-		currState =

-		  nextState =

-		    stateTree->complexBranchHeadTbl[i];

-		for (; nextState;){

-		    FreeActions(currState->actions);

-		    currState->actions = NULL;

-		    if (!currState->isCycleEnd)

-		      nextState = currState->nextLevel;

-		    else

-		      nextState = NULL;

-		    XtFree( (char*)currState );

-		}

-	    }

-	    XtFree((char*)stateTree->complexBranchHeadTbl);

-	}

-	XtFree((char*)stateTree->branchHeadTbl);

-	XtFree((char*)stateTree);

-    }

-#endif /* REFCNT_TRANSLATIONS */

-}

-

-void _XtRemoveStateTreeByIndex(

-    XtTranslations	xlations,

-    TMShortCard	i)

-{

-    TMStateTree		*stateTrees = xlations->stateTreeTbl;

-

-    RemoveStateTree(stateTrees[i]);

-    xlations->numStateTrees--;

-

-    for (; i < xlations->numStateTrees; i++)

-      {

-	  stateTrees[i] = stateTrees[i+1];

-      }

-}

-

-/* ARGSUSED */

-void _XtFreeTranslations(

-    XtAppContext app,

-    XrmValuePtr	toVal,

-    XtPointer	closure,

-    XrmValuePtr	args,

-    Cardinal	*num_args)

-{

-    XtTranslations 	xlations;

-    int 	i;

-

-    if (*num_args != 0)

-	XtAppWarningMsg(app,

-	  "invalidParameters","freeTranslations",XtCXtToolkitError,

-          "Freeing XtTranslations requires no extra arguments",

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

-

-    xlations = *(XtTranslations*)toVal->addr;

-    for (i = 0; i < (int)xlations->numStateTrees; i++)

-      RemoveStateTree(xlations->stateTreeTbl[i]);

-    XtFree((char *)xlations);

-}

-

-/*  The spec is not clear on when actions specified in accelerators are bound;

- *  Bind them at Realize the same as translations

- */

-void XtInstallAccelerators(

-    Widget destination, Widget source)

-{

-    XtTranslations	aXlations;

-    _XtTranslateOp	op;

-    String		buf;

-    WIDGET_TO_APPCON(destination);

-

-    /*

-     * test that it was parsed as an accelarator table. Even though

-     * there doesn't need to be a distinction it makes life easier if

-     * we honor the spec implication that aXlations is an accelerator

-     */

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    if ((!XtIsWidget(source)) ||

-	((aXlations = source->core.accelerators) == NULL) ||

-	(aXlations->stateTreeTbl[0]->simple.isAccelerator == False)) {

-	UNLOCK_PROCESS;

-	UNLOCK_APP(app);

-	return;

-    }

-

-    aXlations = source->core.accelerators;

-    op = aXlations->operation;

-

-    if (ComposeTranslations(destination, op, source, aXlations) &&

-	(XtClass(source)->core_class.display_accelerator != NULL)) {

-

-	buf = _XtPrintXlations(destination, aXlations, source, False);

-	(*(XtClass(source)->core_class.display_accelerator))(source,buf);

-	XtFree(buf);

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

-

-void XtInstallAllAccelerators(

-    Widget destination,

-    Widget source)

-{

-    Cardinal i;

-    CompositeWidget cw;

-    WIDGET_TO_APPCON(destination);

-

-    /* Recurse down normal children */

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    if (XtIsComposite(source)) {

-        cw = (CompositeWidget) source;

-        for (i = 0; i < cw->composite.num_children; i++) {

-            XtInstallAllAccelerators(destination,cw->composite.children[i]);

-        }

-    }

-

-    /* Recurse down popup children */

-    if (XtIsWidget(source)) {

-        for (i = 0; i < source->core.num_popups; i++) {

-            XtInstallAllAccelerators(destination,source->core.popup_list[i]);

-        }

-    }

-    /* Finally, apply procedure to this widget */

-    XtInstallAccelerators(destination,source);

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

-

-#if 0 /* dead code */

-static _XtTranslateOp _XtGetTMOperation(

-    XtTranslations xlations)

-{

-    return ((xlations->hasBindings)

-	    ? ((ATranslations)xlations)->xlations->operation

-	    : xlations->operation);

-}

-#endif

-

-void XtAugmentTranslations(

-    Widget widget,

-    XtTranslations new)

-{

-    Widget hookobj;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    (void)ComposeTranslations(widget, XtTableAugment, (Widget)NULL, new);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHaugmentTranslations;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

-

-void XtOverrideTranslations(

-    Widget widget,

-    XtTranslations new)

-{

-    Widget hookobj;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    LOCK_PROCESS;

-    (void) ComposeTranslations(widget, XtTableOverride, (Widget)NULL, new);

-    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));

-    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {

-	XtChangeHookDataRec call_data;

-

-	call_data.type = XtHoverrideTranslations;

-	call_data.widget = widget;

-	XtCallCallbackList(hookobj,

-		((HookObject)hookobj)->hooks.changehook_callbacks,

-		(XtPointer)&call_data);

-    }

-    UNLOCK_PROCESS;

-    UNLOCK_APP(app);

-}

-

-void _XtMergeTranslations(

-    Widget	widget,

-    XtTranslations newXlations,

-    _XtTranslateOp op)

-{

-    if (!newXlations){

-	if (!widget->core.tm.translations)

-	  return;

-	else {

-	  newXlations = widget->core.tm.translations;

-	  widget->core.tm.translations = NULL;

-      }

-    }

-    (void) ComposeTranslations(widget,

-			     op,

-			     (Widget)NULL,

-			     newXlations);

-}

-

-void _XtUnmergeTranslations(

-   Widget		widget,

-    XtTranslations	xlations)

-{

-    ComposeTranslations(widget, XtTableUnmerge, (Widget)NULL, xlations);

-}

+/***********************************************************
+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, 1994, 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.
+
+*/
+
+/* TMstate.c -- maintains the state table of actions for the translation
+ *              manager.
+ */
+/*LINTLIBRARY*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+
+#ifndef TM_NO_MATCH
+#define TM_NO_MATCH (-2)
+#endif /* TM_NO_MATCH */
+
+/* forward definitions */
+static StatePtr NewState(TMParseStateTree, TMShortCard, TMShortCard);
+
+
+static String XtNtranslationError = "translationError";
+
+#ifndef __EMX__
+TMGlobalRec _XtGlobalTM; /* initialized to zero K&R */
+#else
+TMGlobalRec _XtGlobalTM = {0};
+#endif
+
+#define MatchIncomingEvent(tmEvent, typeMatch, modMatch) \
+  (typeMatch->eventType == tmEvent->event.eventType && \
+   (typeMatch->matchEvent != NULL) && \
+   (*typeMatch->matchEvent)(typeMatch, modMatch, tmEvent))
+
+
+#define NumStateTrees(xlations) \
+  ((translateData->isSimple) ? 1 : (TMComplexXlations(xlations))->numTrees)
+
+static TMShortCard GetBranchHead(
+    TMParseStateTree	parseTree,
+    TMShortCard		typeIndex,
+    TMShortCard		modIndex,
+    Boolean		isDummy)
+{
+#define TM_BRANCH_HEAD_TBL_ALLOC 	8
+#define TM_BRANCH_HEAD_TBL_REALLOC 	8
+
+    TMBranchHead branchHead = parseTree->branchHeadTbl;
+    TMShortCard	newSize, i;
+
+    /*
+     * dummy is used as a place holder for later matching in old-style
+     * matching behavior. If there's already an entry we don't need
+     * another dummy.
+     */
+    if (isDummy) {
+	for (i = 0; i < parseTree->numBranchHeads; i++, branchHead++) {
+	    if ((branchHead->typeIndex == typeIndex) &&
+		(branchHead->modIndex == modIndex))
+	      return i;
+	}
+    }
+    if (parseTree->numBranchHeads == parseTree->branchHeadTblSize)
+      {
+	  if (parseTree->branchHeadTblSize == 0)
+	    parseTree->branchHeadTblSize += TM_BRANCH_HEAD_TBL_ALLOC;
+	  else
+	    parseTree->branchHeadTblSize +=
+	      TM_BRANCH_HEAD_TBL_REALLOC;
+	  newSize = (parseTree->branchHeadTblSize * sizeof(TMBranchHeadRec));
+	  if (parseTree->isStackBranchHeads) {
+	      TMBranchHead	oldBranchHeadTbl = parseTree->branchHeadTbl;
+	      parseTree->branchHeadTbl = (TMBranchHead) __XtMalloc(newSize);
+	      XtMemmove(parseTree->branchHeadTbl, oldBranchHeadTbl, newSize);
+	      parseTree->isStackBranchHeads = False;
+	  }
+	  else {
+	      parseTree->branchHeadTbl = (TMBranchHead)
+		XtRealloc((char *)parseTree->branchHeadTbl,
+			  (parseTree->branchHeadTblSize *
+			   sizeof(TMBranchHeadRec)));
+	  }
+      }
+#ifdef TRACE_TM
+    LOCK_PROCESS;
+    _XtGlobalTM.numBranchHeads++;
+    UNLOCK_PROCESS;
+#endif /* TRACE_TM */
+    branchHead =
+      &parseTree->branchHeadTbl[parseTree->numBranchHeads++];
+    branchHead->typeIndex = typeIndex;
+    branchHead->modIndex = modIndex;
+    branchHead->more = 0;
+    branchHead->isSimple = True;
+    branchHead->hasActions = False;
+    branchHead->hasCycles = False;
+    return parseTree->numBranchHeads-1;
+}
+
+TMShortCard _XtGetQuarkIndex(
+    TMParseStateTree	parseTree,
+    XrmQuark		quark)
+{
+#define TM_QUARK_TBL_ALLOC 	16
+#define TM_QUARK_TBL_REALLOC 	16
+    TMShortCard  i = parseTree->numQuarks;
+
+    for (i=0; i < parseTree->numQuarks; i++)
+      if (parseTree->quarkTbl[i] == quark)
+	    break;
+
+    if (i == parseTree->numQuarks)
+      {
+	  if (parseTree->numQuarks == parseTree->quarkTblSize)
+	    {
+		TMShortCard	newSize;
+
+		if (parseTree->quarkTblSize == 0)
+		  parseTree->quarkTblSize += TM_QUARK_TBL_ALLOC;
+		else
+		  parseTree->quarkTblSize += TM_QUARK_TBL_REALLOC;
+		newSize = (parseTree->quarkTblSize * sizeof(XrmQuark));
+
+		if (parseTree->isStackQuarks) {
+		    XrmQuark	*oldquarkTbl = parseTree->quarkTbl;
+		    parseTree->quarkTbl = (XrmQuark *) __XtMalloc(newSize);
+		    XtMemmove(parseTree->quarkTbl, oldquarkTbl, newSize);
+		    parseTree->isStackQuarks = False;
+		}
+		else {
+		    parseTree->quarkTbl = (XrmQuark *)
+		      XtRealloc((char *)parseTree->quarkTbl,
+				(parseTree->quarkTblSize *
+				 sizeof(XrmQuark)));
+		}
+	    }
+	  parseTree->quarkTbl[parseTree->numQuarks++] = quark;
+      }
+    return i;
+}
+
+/*
+ * Get an entry from the parseTrees complex branchHead tbl. If there's none
+ * there then allocate one
+ */
+/*ARGSUSED*/
+static TMShortCard GetComplexBranchIndex(
+    TMParseStateTree	parseTree,
+    TMShortCard		typeIndex,
+    TMShortCard		modIndex)
+{
+#define TM_COMPLEXBRANCH_HEAD_TBL_ALLOC 8
+#define TM_COMPLEXBRANCH_HEAD_TBL_REALLOC 4
+
+    if (parseTree->numComplexBranchHeads == parseTree->complexBranchHeadTblSize) {
+	TMShortCard	newSize;
+
+	if (parseTree->complexBranchHeadTblSize == 0)
+	  parseTree->complexBranchHeadTblSize += TM_COMPLEXBRANCH_HEAD_TBL_ALLOC;
+	else
+	  parseTree->complexBranchHeadTblSize += TM_COMPLEXBRANCH_HEAD_TBL_REALLOC;
+
+	newSize = (parseTree->complexBranchHeadTblSize * sizeof(StatePtr));
+
+	if (parseTree->isStackComplexBranchHeads) {
+	    StatePtr *oldcomplexBranchHeadTbl
+	      = parseTree->complexBranchHeadTbl;
+	    parseTree->complexBranchHeadTbl = (StatePtr *) __XtMalloc(newSize);
+	    XtMemmove(parseTree->complexBranchHeadTbl,
+		      oldcomplexBranchHeadTbl, newSize);
+	    parseTree->isStackComplexBranchHeads = False;
+	}
+	else {
+	    parseTree->complexBranchHeadTbl = (StatePtr *)
+	      XtRealloc((char *)parseTree->complexBranchHeadTbl,
+			(parseTree->complexBranchHeadTblSize *
+			 sizeof(StatePtr)));
+	}
+    }
+    parseTree->complexBranchHeadTbl[parseTree->numComplexBranchHeads++] = NULL;
+    return parseTree->numComplexBranchHeads-1;
+}
+
+TMShortCard _XtGetTypeIndex(
+    Event	*event)
+{
+    TMShortCard		i, j = TM_TYPE_SEGMENT_SIZE;
+    TMShortCard		typeIndex = 0;
+    TMTypeMatch 	typeMatch;
+    TMTypeMatch		segment = NULL;
+
+    LOCK_PROCESS;
+    for (i = 0; i < _XtGlobalTM.numTypeMatchSegments; i++) {
+	segment = _XtGlobalTM.typeMatchSegmentTbl[i];
+	for (j = 0;
+	     typeIndex < _XtGlobalTM.numTypeMatches && j <  TM_TYPE_SEGMENT_SIZE;
+	     j++, typeIndex++)
+	  {
+	      typeMatch = &(segment[j]);
+	      if (event->eventType == typeMatch->eventType &&
+		  event->eventCode == typeMatch->eventCode &&
+		  event->eventCodeMask == typeMatch->eventCodeMask &&
+		  event->matchEvent == typeMatch->matchEvent) {
+		    UNLOCK_PROCESS;
+		    return typeIndex;
+		  }
+	  }
+    }
+
+    if (j == TM_TYPE_SEGMENT_SIZE) {
+	if (_XtGlobalTM.numTypeMatchSegments == _XtGlobalTM.typeMatchSegmentTblSize) {
+	    _XtGlobalTM.typeMatchSegmentTblSize += 4;
+	    _XtGlobalTM.typeMatchSegmentTbl = (TMTypeMatch *)
+	      XtRealloc((char *)_XtGlobalTM.typeMatchSegmentTbl,
+			(_XtGlobalTM.typeMatchSegmentTblSize * sizeof(TMTypeMatch)));
+	}
+	_XtGlobalTM.typeMatchSegmentTbl[_XtGlobalTM.numTypeMatchSegments++] =
+	  segment = (TMTypeMatch)
+	    __XtMalloc(TM_TYPE_SEGMENT_SIZE * sizeof(TMTypeMatchRec));
+	j = 0;
+    }
+    typeMatch = &segment[j];
+    typeMatch->eventType = event->eventType;
+    typeMatch->eventCode = event->eventCode;
+    typeMatch->eventCodeMask = event->eventCodeMask;
+    typeMatch->matchEvent = event->matchEvent;
+    _XtGlobalTM.numTypeMatches++;
+    UNLOCK_PROCESS;
+    return typeIndex;
+}
+
+static Boolean CompareLateModifiers(
+    LateBindingsPtr lateBind1P,
+    LateBindingsPtr lateBind2P)
+{
+    LateBindingsPtr late1P = lateBind1P;
+    LateBindingsPtr late2P = lateBind2P;
+
+    if (late1P != NULL || late2P != NULL) {
+	int i = 0;
+	int j = 0;
+	if (late1P != NULL)
+	  for (; late1P->keysym != NoSymbol; i++) late1P++;
+	if (late2P != NULL)
+	  for (; late2P->keysym != NoSymbol; j++) late2P++;
+	if (i != j) return FALSE;
+	late1P--;
+	while (late1P >= lateBind1P) {
+	    Boolean last = True;
+	    for (late2P = lateBind2P + i - 1;
+		 late2P >= lateBind2P;
+		 late2P--) {
+		if (late1P->keysym == late2P->keysym
+		    && late1P->knot == late2P->knot) {
+		    j--;
+		    if (last) i--;
+		    break;
+		}
+		last = False;
+	    }
+	    late1P--;
+	}
+	if (j != 0) return FALSE;
+    }
+    return TRUE;
+}
+
+TMShortCard _XtGetModifierIndex(
+    Event	*event)
+{
+    TMShortCard		i, j = TM_MOD_SEGMENT_SIZE;
+    TMShortCard		modIndex = 0;
+    TMModifierMatch 	modMatch;
+    TMModifierMatch	segment = NULL;
+
+    LOCK_PROCESS;
+    for (i = 0; i < _XtGlobalTM.numModMatchSegments; i++) {
+	segment = _XtGlobalTM.modMatchSegmentTbl[i];
+	for (j = 0;
+	     modIndex < _XtGlobalTM.numModMatches && j <  TM_MOD_SEGMENT_SIZE;
+	     j++, modIndex++) {
+	    modMatch = &(segment[j]);
+	    if (event->modifiers == modMatch->modifiers &&
+		event->modifierMask == modMatch->modifierMask &&
+		event->standard == modMatch->standard &&
+		((!event->lateModifiers && !modMatch->lateModifiers) ||
+		 CompareLateModifiers(event->lateModifiers,
+				      modMatch->lateModifiers))) {
+		/*
+		 * if we found a match then we can free the parser's
+		 * late modifiers. If there isn't a match we use the
+		 * parser's copy
+		 */
+		if (event->lateModifiers &&
+		    --event->lateModifiers->ref_count == 0) {
+		    XtFree((char *)event->lateModifiers);
+		    event->lateModifiers = NULL;
+		}
+		UNLOCK_PROCESS;
+		return modIndex;
+	    }
+	}
+    }
+
+    if (j == TM_MOD_SEGMENT_SIZE) {
+	if (_XtGlobalTM.numModMatchSegments == _XtGlobalTM.modMatchSegmentTblSize) {
+	    _XtGlobalTM.modMatchSegmentTblSize += 4;
+	    _XtGlobalTM.modMatchSegmentTbl = (TMModifierMatch *)
+	      XtRealloc((char *)_XtGlobalTM.modMatchSegmentTbl,
+			(_XtGlobalTM.modMatchSegmentTblSize * sizeof(TMModifierMatch)));
+	}
+	_XtGlobalTM.modMatchSegmentTbl[_XtGlobalTM.numModMatchSegments++] =
+	  segment = (TMModifierMatch)
+	    __XtMalloc(TM_MOD_SEGMENT_SIZE * sizeof(TMModifierMatchRec));
+	j = 0;
+    }
+    modMatch = &segment[j];
+    modMatch->modifiers = event->modifiers;;
+    modMatch->modifierMask = event->modifierMask;
+    modMatch->standard = event->standard;
+    /*
+     * We use the parser's copy of the late binding array
+     */
+#ifdef TRACE_TM
+    if (event->lateModifiers)
+      _XtGlobalTM.numLateBindings++;
+#endif /* TRACE_TM */
+    modMatch->lateModifiers = event->lateModifiers;
+    _XtGlobalTM.numModMatches++;
+    UNLOCK_PROCESS;
+    return modIndex;
+}
+
+
+/*
+ * This is called from the SimpleStateHandler to match a stateTree
+ * entry to the event coming in
+ */
+static int MatchBranchHead(
+    TMSimpleStateTree 	stateTree,
+    int			startIndex,
+    TMEventPtr		event)
+{
+    TMBranchHead branchHead = &stateTree->branchHeadTbl[startIndex];
+    int i;
+
+    LOCK_PROCESS;
+    for (i = startIndex;
+	 i < (int)stateTree->numBranchHeads;
+	 i++, branchHead++)
+      {
+	  TMTypeMatch 		typeMatch;
+	  TMModifierMatch	modMatch;
+
+	  typeMatch  = TMGetTypeMatch(branchHead->typeIndex);
+	  modMatch = TMGetModifierMatch(branchHead->modIndex);
+
+	  if (MatchIncomingEvent(event, typeMatch, modMatch)) {
+	    UNLOCK_PROCESS;
+	    return i;
+	  }
+      }
+    UNLOCK_PROCESS;
+    return (TM_NO_MATCH);
+}
+
+Boolean _XtRegularMatch(
+    TMTypeMatch 	typeMatch,
+    TMModifierMatch	modMatch,
+    TMEventPtr 		eventSeq)
+{
+    Modifiers computed =0;
+    Modifiers computedMask =0;
+    Boolean resolved = TRUE;
+    if (typeMatch->eventCode != (eventSeq->event.eventCode &
+				  typeMatch->eventCodeMask)) return FALSE;
+    if (modMatch->lateModifiers != NULL)
+	resolved = _XtComputeLateBindings(eventSeq->xev->xany.display,
+					  modMatch->lateModifiers,
+					  &computed, &computedMask);
+    if (!resolved) return FALSE;
+    computed |= modMatch->modifiers;
+    computedMask |= modMatch->modifierMask;
+
+    return ( (computed & computedMask) ==
+	    (eventSeq->event.modifiers & computedMask));
+}
+
+/*ARGSUSED*/
+Boolean _XtMatchAtom(
+    TMTypeMatch 	typeMatch,
+    TMModifierMatch	modMatch,
+    TMEventPtr 		eventSeq)
+{
+    Atom	atom;
+
+    atom = XInternAtom(eventSeq->xev->xany.display,
+		       XrmQuarkToString(typeMatch->eventCode),
+		       False);
+    return (atom == eventSeq->event.eventCode);
+}
+
+#define IsOn(vec,idx) ((vec)[(idx)>>3] & (1 << ((idx) & 7)))
+
+/*
+ * there are certain cases where you want to ignore the event and stay
+ * in the same state.
+ */
+static Boolean Ignore(
+    TMEventPtr event)
+{
+    Display *dpy;
+    XtPerDisplay pd;
+
+    if (event->event.eventType == MotionNotify)
+	return TRUE;
+    if (!(event->event.eventType == KeyPress ||
+	  event->event.eventType == KeyRelease))
+	return FALSE;
+    dpy = event->xev->xany.display;
+    pd = _XtGetPerDisplay(dpy);
+    _InitializeKeysymTables(dpy, pd);
+    return IsOn(pd->isModifier, event->event.eventCode) ? TRUE : FALSE;
+}
+
+
+static void XEventToTMEvent(
+    XEvent *event,
+    TMEventPtr tmEvent)
+{
+    tmEvent->xev = event;
+    tmEvent->event.eventCodeMask = 0;
+    tmEvent->event.modifierMask = 0;
+    tmEvent->event.eventType = event->type;
+    tmEvent->event.lateModifiers = NULL;
+    tmEvent->event.matchEvent = NULL;
+    tmEvent->event.standard = FALSE;
+
+    switch (event->type) {
+
+	case KeyPress:
+	case KeyRelease:
+            tmEvent->event.eventCode = event->xkey.keycode;
+	    tmEvent->event.modifiers = event->xkey.state;
+	    break;
+
+	case ButtonPress:
+	case ButtonRelease:
+	    tmEvent->event.eventCode = event->xbutton.button;
+	    tmEvent->event.modifiers = event->xbutton.state;
+	    break;
+
+	case MotionNotify:
+	    tmEvent->event.eventCode = event->xmotion.is_hint;
+	    tmEvent->event.modifiers = event->xmotion.state;
+	    break;
+
+	case EnterNotify:
+	case LeaveNotify:
+	    tmEvent->event.eventCode = event->xcrossing.mode;
+	    tmEvent->event.modifiers = event->xcrossing.state;
+	    break;
+
+	case PropertyNotify:
+	    tmEvent->event.eventCode = event->xproperty.atom;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	case SelectionClear:
+	    tmEvent->event.eventCode = event->xselectionclear.selection;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	case SelectionRequest:
+	    tmEvent->event.eventCode = event->xselectionrequest.selection;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	case SelectionNotify:
+	    tmEvent->event.eventCode = event->xselection.selection;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	case ClientMessage:
+	    tmEvent->event.eventCode = event->xclient.message_type;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	case MappingNotify:
+	    tmEvent->event.eventCode = event->xmapping.request;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	case FocusIn:
+	case FocusOut:
+	    tmEvent->event.eventCode = event->xfocus.mode;
+	    tmEvent->event.modifiers = 0;
+	    break;
+
+	default:
+	    tmEvent->event.eventCode = 0;
+	    tmEvent->event.modifiers = 0;
+	    break;
+    }
+}
+
+
+static unsigned long GetTime(
+    XtTM tm,
+    XEvent *event)
+{
+    switch (event->type) {
+
+        case KeyPress:
+	case KeyRelease:
+	    return event->xkey.time;
+
+        case ButtonPress:
+	case ButtonRelease:
+	    return event->xbutton.time;
+
+	default:
+	    return tm->lastEventTime;
+
+    }
+
+}
+
+static void HandleActions(
+    Widget		w,
+    XEvent		*event,
+    TMSimpleStateTree	stateTree,
+    Widget		accelWidget,
+    XtActionProc	*procs,
+    ActionRec		*actions)
+{
+    ActionHook	 	actionHookList;
+    Widget		bindWidget;
+
+    bindWidget = accelWidget ? accelWidget : w;
+    if (accelWidget && !XtIsSensitive(accelWidget) &&
+	(event->type == KeyPress || event->type == KeyRelease ||
+	event->type == ButtonPress || event->type == ButtonRelease ||
+	event->type == MotionNotify || event->type == EnterNotify ||
+	event->type == LeaveNotify || event->type == FocusIn ||
+	event->type == FocusOut))
+	return;
+
+    actionHookList = XtWidgetToApplicationContext(w)->action_hook_list;
+
+    while (actions != NULL) {
+	/* perform any actions */
+	if (procs[actions->idx] != NULL) {
+	    if (actionHookList) {
+		ActionHook hook;
+		ActionHook next_hook;
+		String procName =
+		    XrmQuarkToString(stateTree->quarkTbl[actions->idx] );
+
+		for (hook = actionHookList; hook != NULL; ) {
+		    /*
+		     * Need to cache hook->next because the following action
+		     * proc may free hook via XtRemoveActionHook making
+		     * hook->next invalid upon return from the action proc.
+		     */
+		    next_hook = hook->next;
+		    (*hook->proc)(bindWidget,
+				  hook->closure,
+				  procName,
+				  event,
+				  actions->params,
+				  &actions->num_params
+				  );
+		    hook = next_hook;
+		}
+	    }
+	    (*(procs[actions->idx]))
+	      (bindWidget, event,
+	       actions->params, &actions->num_params );
+	}
+	actions = actions->next;
+    }
+}
+
+typedef struct {
+    unsigned int isCycleStart:1;
+    unsigned int isCycleEnd:1;
+    TMShortCard typeIndex;
+    TMShortCard modIndex;
+}MatchPairRec, *MatchPair;
+
+typedef struct TMContextRec{
+    TMShortCard	numMatches;
+    TMShortCard	maxMatches;
+    MatchPair	matches;
+}TMContextRec, *TMContext;
+
+static TMContextRec	contextCache[2];
+
+#define GetContextPtr(tm) ((TMContext *)&(tm->current_state))
+
+#define TM_CONTEXT_MATCHES_ALLOC 4
+#define TM_CONTEXT_MATCHES_REALLOC 2
+
+static void PushContext(
+    TMContext	*contextPtr,
+    StatePtr	newState)
+{
+    TMContext 		context = *contextPtr;
+
+    LOCK_PROCESS;
+    if (context == NULL)
+      {
+	  if (contextCache[0].numMatches == 0)
+	    context = &contextCache[0];
+	  else if (contextCache[1].numMatches == 0)
+	    context = &contextCache[1];
+	  if (!context)
+	    {
+		context = XtNew(TMContextRec);
+		context->matches = NULL;
+		context->numMatches =
+		  context->maxMatches = 0;
+	    }
+      }
+    if (context->numMatches &&
+	context->matches[context->numMatches-1].isCycleEnd)
+      {
+	  TMShortCard	i;
+	  for (i = 0;
+	       i < context->numMatches &&
+	       !(context->matches[i].isCycleStart);
+	       i++){};
+	  if (i < context->numMatches)
+	    context->numMatches = i+1;
+#ifdef DEBUG
+	  else
+	    XtWarning("pushing cycle end with no cycle start");
+#endif /* DEBUG */
+      }
+    else
+      {
+	  if (context->numMatches == context->maxMatches)
+	    {
+		if (context->maxMatches == 0)
+		  context->maxMatches += TM_CONTEXT_MATCHES_ALLOC;
+		else
+		  context->maxMatches += TM_CONTEXT_MATCHES_REALLOC;
+		context->matches = (MatchPairRec *)
+		  XtRealloc((char *)context->matches,
+			    context->maxMatches * sizeof(MatchPairRec));
+	    }
+	  context->matches[context->numMatches].isCycleStart = newState->isCycleStart;
+	  context->matches[context->numMatches].isCycleEnd = newState->isCycleEnd;
+	  context->matches[context->numMatches].typeIndex = newState->typeIndex;
+	  context->matches[context->numMatches++].modIndex = newState->modIndex;
+	  *contextPtr = context;
+      }
+      UNLOCK_PROCESS;
+}
+
+static void FreeContext(
+    TMContext	*contextPtr)
+{
+    TMContext 		context = NULL;
+
+    LOCK_PROCESS;
+
+    if (&contextCache[0] == *contextPtr)
+      context = &contextCache[0];
+    else if (&contextCache[1] == *contextPtr)
+      context = &contextCache[1];
+
+    if (context)
+      context->numMatches = 0;
+    else if (*contextPtr)
+    {
+      if ((*contextPtr)->matches)
+        XtFree ((char *) ((*contextPtr)->matches));
+      XtFree((char *)*contextPtr);
+    }
+
+    *contextPtr = NULL;
+    UNLOCK_PROCESS;
+}
+
+static int MatchExact(
+    TMSimpleStateTree 	stateTree,
+    int			startIndex,
+    TMShortCard		typeIndex,
+    TMShortCard		modIndex)
+{
+    TMBranchHead branchHead = &(stateTree->branchHeadTbl[startIndex]);
+    int i;
+
+    for (i = startIndex;
+	 i < (int)stateTree->numBranchHeads;
+	 i++, branchHead++)
+      {
+	  if ((branchHead->typeIndex == typeIndex) &&
+	      (branchHead->modIndex == modIndex))
+	    return i;
+      }
+    return (TM_NO_MATCH);
+}
+
+
+
+static void HandleSimpleState(
+    Widget	w,
+    XtTM	tmRecPtr,
+    TMEventRec	*curEventPtr)
+{
+    XtTranslations	xlations = tmRecPtr->translations;
+    TMSimpleStateTree	stateTree;
+    TMContext		*contextPtr = GetContextPtr(tmRecPtr);
+    TMShortCard		i;
+    ActionRec		*actions = NULL;
+    Boolean		matchExact = False;
+    Boolean	       	match = False;
+    StatePtr		complexMatchState = NULL;
+    int			currIndex;
+    TMShortCard		typeIndex = 0, modIndex = 0;
+    int			matchTreeIndex = TM_NO_MATCH;
+
+    LOCK_PROCESS;
+    stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[0];
+
+    for (i = 0;
+	 ((!match || !complexMatchState) && (i < xlations->numStateTrees));
+	 i++){
+	stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];
+	currIndex = -1;
+	/*
+	 * don't process this tree if we're only looking for a
+	 * complexMatchState and there are no complex states
+	 */
+	while (!(match && stateTree->isSimple) &&
+	       ((!match || !complexMatchState) && (currIndex != TM_NO_MATCH))) {
+	    currIndex++;
+	    if (matchExact)
+	      currIndex = MatchExact(stateTree,currIndex,typeIndex,modIndex);
+	    else
+	      currIndex = MatchBranchHead(stateTree,currIndex,curEventPtr);
+	    if (currIndex != TM_NO_MATCH) {
+		TMBranchHead branchHead;
+		StatePtr currState;
+
+		branchHead = &stateTree->branchHeadTbl[currIndex];
+		if (branchHead->isSimple)
+		  currState = NULL;
+		else
+		  currState = ((TMComplexStateTree)stateTree)
+		    ->complexBranchHeadTbl[TMBranchMore(branchHead)];
+
+		/*
+		 * first check for a complete match
+		 */
+		if (!match) {
+		    if (branchHead->hasActions) {
+			if (branchHead->isSimple) {
+			    static ActionRec	dummyAction;
+
+			    dummyAction.idx = TMBranchMore(branchHead);
+			    actions = &dummyAction;
+			}
+			else
+			  actions = currState->actions;
+			tmRecPtr->lastEventTime =
+			  GetTime(tmRecPtr, curEventPtr->xev);
+			FreeContext((TMContext
+				     *)&tmRecPtr->current_state);
+			match = True;
+			matchTreeIndex = i;
+		    }
+		    /*
+		     * if it doesn't have actions and
+		     * it's bc mode then it's a potential match node that is
+		     * used to match later sequences.
+		     */
+		    if (!TMNewMatchSemantics() && !matchExact) {
+			matchExact = True;
+			typeIndex = branchHead->typeIndex;
+			modIndex = branchHead->modIndex;
+		    }
+		}
+		/*
+		 * check for it being an event sequence which can be
+		 * a future match
+		 */
+		if (!branchHead->isSimple &&
+		    !branchHead->hasActions &&
+		    !complexMatchState)
+		  complexMatchState = currState;
+	    }
+	}
+    }
+    if (match)
+      {
+	  TMBindData	bindData = (TMBindData) tmRecPtr->proc_table;
+	  XtActionProc	*procs;
+	  Widget	accelWidget;
+
+	  if (bindData->simple.isComplex) {
+	      TMComplexBindProcs bindProcs =
+		TMGetComplexBindEntry(bindData, matchTreeIndex);
+	      procs = bindProcs->procs;
+	      accelWidget = bindProcs->widget;
+	  }
+	  else {
+	      TMSimpleBindProcs bindProcs =
+		TMGetSimpleBindEntry(bindData, matchTreeIndex);
+	      procs = bindProcs->procs;
+	      accelWidget = NULL;
+	  }
+	  HandleActions
+	    (w,
+	     curEventPtr->xev,
+	     (TMSimpleStateTree)xlations->stateTreeTbl[matchTreeIndex],
+	     accelWidget,
+	     procs,
+	     actions);
+      }
+    if (complexMatchState)
+      PushContext(contextPtr, complexMatchState);
+    UNLOCK_PROCESS;
+}
+
+static int MatchComplexBranch(
+    TMComplexStateTree	stateTree,
+    int			startIndex,
+    TMContext		context,
+    StatePtr		*leafStateRtn)
+{
+    TMShortCard	i;
+
+    LOCK_PROCESS;
+    for (i = startIndex; i < stateTree->numComplexBranchHeads; i++)
+      {
+	  StatePtr	candState;
+	  TMShortCard	numMatches = context->numMatches;
+	  MatchPair	statMatch = context->matches;
+
+	  for (candState = stateTree->complexBranchHeadTbl[i];
+	       numMatches && candState;
+	       numMatches--, statMatch++, candState = candState->nextLevel)
+	    {
+		if ((statMatch->typeIndex != candState->typeIndex) ||
+		    (statMatch->modIndex != candState->modIndex))
+		  break;
+	    }
+	  if (numMatches == 0) {
+	      *leafStateRtn = candState;
+	      UNLOCK_PROCESS;
+	      return i;
+	  }
+      }
+    *leafStateRtn = NULL;
+    UNLOCK_PROCESS;
+    return (TM_NO_MATCH);
+}
+
+static StatePtr TryCurrentTree(
+    TMComplexStateTree	*stateTreePtr,
+    XtTM		tmRecPtr,
+    TMEventRec		*curEventPtr)
+{
+    StatePtr		candState = NULL, matchState = NULL;
+    TMContext		*contextPtr = GetContextPtr(tmRecPtr);
+    TMTypeMatch 	typeMatch;
+    TMModifierMatch 	modMatch;
+    int			currIndex = -1;
+
+    /*
+     * we want the first sequence that both matches and has actions.
+     * we keep on looking till we find both
+     */
+    LOCK_PROCESS;
+    while ((currIndex =
+	    MatchComplexBranch(*stateTreePtr,
+			       ++currIndex,
+			       (*contextPtr),
+			       &candState))
+	   != TM_NO_MATCH) {
+	if (candState  != NULL) {
+	    typeMatch  = TMGetTypeMatch(candState->typeIndex);
+	    modMatch = TMGetModifierMatch(candState->modIndex);
+
+	    /* does this state's index match? --> done */
+	    if (MatchIncomingEvent(curEventPtr, typeMatch, modMatch))
+	      {
+		  if (candState->actions) {
+		      UNLOCK_PROCESS;
+		      return candState;
+		  }
+		  else
+		    matchState = candState;
+	      }
+	    /* is this an event timer? */
+	    if (typeMatch->eventType == _XtEventTimerEventType) {
+		StatePtr nextState = candState->nextLevel;
+
+		/* does the succeeding state match? */
+		if (nextState != NULL) {
+		    TMTypeMatch 	nextTypeMatch;
+		    TMModifierMatch	nextModMatch;
+
+		    nextTypeMatch  = TMGetTypeMatch(nextState->typeIndex);
+		    nextModMatch = TMGetModifierMatch(nextState->modIndex);
+
+		    /* is it within the timeout? */
+		    if (MatchIncomingEvent(curEventPtr,
+					   nextTypeMatch,
+					   nextModMatch)) {
+			XEvent *xev = curEventPtr->xev;
+			unsigned long time = GetTime(tmRecPtr, xev);
+			XtPerDisplay pd = _XtGetPerDisplay(xev->xany.display);
+			unsigned long delta = pd->multi_click_time;
+
+			if ((tmRecPtr->lastEventTime + delta) >= time) {
+			    if (nextState->actions) {
+				UNLOCK_PROCESS;
+				return candState;
+			    }
+			    else
+			      matchState = candState;
+			}
+		    }
+		}
+	    }
+	}
+    }
+    UNLOCK_PROCESS;
+    return matchState;
+}
+
+static void HandleComplexState(
+    Widget	w,
+    XtTM	tmRecPtr,
+    TMEventRec	*curEventPtr)
+{
+    XtTranslations 	xlations = tmRecPtr->translations;
+    TMContext		*contextPtr = GetContextPtr(tmRecPtr);
+    TMShortCard		i, matchTreeIndex = 0;
+    StatePtr		matchState = NULL, candState;
+    TMComplexStateTree 	*stateTreePtr =
+      (TMComplexStateTree *)&xlations->stateTreeTbl[0];
+
+    LOCK_PROCESS;
+    for (i = 0;
+	 i < xlations->numStateTrees;
+	 i++, stateTreePtr++) {
+	/*
+	 * some compilers sign extend Boolean bit fields so test for
+	 * false |||
+	 */
+	if (((*stateTreePtr)->isSimple == False) &&
+	    (candState = TryCurrentTree(stateTreePtr,
+				       tmRecPtr,
+				       curEventPtr))) {
+	    if (!matchState || candState->actions) {
+		matchTreeIndex = i;
+		matchState = candState;
+		if (candState->actions)
+		    break;
+	    }
+	}
+    }
+    if (matchState == NULL){
+	/* couldn't find it... */
+	if (!Ignore(curEventPtr))
+	  {
+	      FreeContext(contextPtr);
+	      HandleSimpleState(w, tmRecPtr, curEventPtr);
+	  }
+    }
+    else {
+	TMBindData	bindData = (TMBindData) tmRecPtr->proc_table;
+	XtActionProc	*procs;
+	Widget		accelWidget;
+	TMTypeMatch 	typeMatch;
+
+	typeMatch  = TMGetTypeMatch(matchState->typeIndex);
+
+	PushContext(contextPtr, matchState);
+	if (typeMatch->eventType == _XtEventTimerEventType) {
+	    matchState = matchState->nextLevel;
+	    PushContext(contextPtr, matchState);
+	}
+	tmRecPtr->lastEventTime = GetTime (tmRecPtr, curEventPtr->xev);
+
+	if (bindData->simple.isComplex) {
+	    TMComplexBindProcs bindProcs =
+	      TMGetComplexBindEntry(bindData, matchTreeIndex);
+	    procs = bindProcs->procs;
+	    accelWidget = bindProcs->widget;
+	}
+	else {
+	    TMSimpleBindProcs bindProcs =
+	      TMGetSimpleBindEntry(bindData, matchTreeIndex);
+	    procs = bindProcs->procs;
+	    accelWidget = NULL;
+	}
+	HandleActions(w,
+		      curEventPtr->xev,
+		      (TMSimpleStateTree)
+		      xlations->stateTreeTbl[matchTreeIndex],
+		      accelWidget,
+		      procs,
+		      matchState->actions);
+    }
+    UNLOCK_PROCESS;
+}
+
+
+void _XtTranslateEvent (
+    Widget w,
+    XEvent * event)
+{
+    XtTM	tmRecPtr = &w->core.tm;
+    TMEventRec 	curEvent;
+    StatePtr 	current_state = tmRecPtr->current_state;
+
+    XEventToTMEvent (event, &curEvent);
+
+    if (! tmRecPtr->translations) {
+        XtAppWarningMsg(XtWidgetToApplicationContext(w),
+			XtNtranslationError,"nullTable",XtCXtToolkitError,
+			"Can't translate event through NULL table",
+			(String *)NULL, (Cardinal *)NULL);
+	return ;
+    }
+    if (current_state == NULL)
+	  HandleSimpleState(w, tmRecPtr, &curEvent);
+    else
+	  HandleComplexState(w, tmRecPtr, &curEvent);
+}
+
+
+/*ARGSUSED*/
+static StatePtr NewState(
+    TMParseStateTree stateTree,
+    TMShortCard	typeIndex,
+    TMShortCard	modIndex)
+{
+    StatePtr state = XtNew(StateRec);
+
+#ifdef TRACE_TM
+    LOCK_PROCESS;
+    _XtGlobalTM.numComplexStates++;
+    UNLOCK_PROCESS;
+#endif /* TRACE_TM */
+    state->typeIndex = typeIndex;
+    state->modIndex = modIndex;
+    state->nextLevel = NULL;
+    state->actions = NULL;
+    state->isCycleStart = state->isCycleEnd = False;
+    return state;
+}
+
+/*
+ * This routine is an iterator for state trees. If the func returns
+ * true then iteration is over.
+ */
+void _XtTraverseStateTree(
+    TMStateTree	tree,
+    _XtTraversalProc func,
+    XtPointer 	data)
+{
+    TMComplexStateTree stateTree = (TMComplexStateTree)tree;
+    TMBranchHead	currBH;
+    TMShortCard		i;
+    StateRec		dummyStateRec, *dummyState = &dummyStateRec;
+    ActionRec		dummyActionRec, *dummyAction = &dummyActionRec;
+    Boolean		firstSimple = True;
+    StatePtr 		currState;
+
+    /* first traverse the complex states */
+    if (stateTree->isSimple == False)
+      for (i = 0; i < stateTree->numComplexBranchHeads; i++) {
+	  currState = stateTree->complexBranchHeadTbl[i];
+	  for (; currState; currState = currState->nextLevel) {
+	      if (func(currState, data))
+		return;
+	      if (currState->isCycleEnd)
+		break;
+	  }
+      }
+
+    /* now traverse the simple ones */
+    for (i = 0, currBH = stateTree->branchHeadTbl;
+	 i < stateTree->numBranchHeads;
+	 i++, currBH++)
+      {
+	  if (currBH->isSimple && currBH->hasActions)
+	    {
+		if (firstSimple)
+		  {
+		      XtBZero((char *) dummyState, sizeof(StateRec));
+		      XtBZero((char *) dummyAction, sizeof(ActionRec));
+		      dummyState->actions = dummyAction;
+		      firstSimple = False;
+		  }
+		dummyState->typeIndex = currBH->typeIndex;
+		dummyState->modIndex = currBH->modIndex;
+		dummyAction->idx = currBH->more;
+		if (func(dummyState, data))
+		  return;
+	    }
+      }
+}
+
+static EventMask EventToMask(
+    TMTypeMatch     typeMatch,
+    TMModifierMatch modMatch)
+{
+    EventMask returnMask;
+    unsigned long eventType = typeMatch->eventType;
+
+    if (eventType == MotionNotify) {
+        Modifiers modifierMask = modMatch->modifierMask;
+        Modifiers tempMask;
+
+	returnMask = 0;
+        if (modifierMask == 0) {
+	    if (modMatch->modifiers == AnyButtonMask)
+		return ButtonMotionMask;
+	    else
+		return PointerMotionMask;
+	}
+        tempMask = modifierMask &
+	    (Button1Mask | Button2Mask | Button3Mask
+	     | Button4Mask | Button5Mask);
+        if (tempMask == 0)
+	    return PointerMotionMask;
+        if (tempMask & Button1Mask)
+            returnMask |= Button1MotionMask;
+        if (tempMask & Button2Mask)
+            returnMask |= Button2MotionMask;
+        if (tempMask & Button3Mask)
+            returnMask |= Button3MotionMask;
+        if (tempMask & Button4Mask)
+            returnMask |= Button4MotionMask;
+        if (tempMask & Button5Mask)
+            returnMask |= Button5MotionMask;
+        return returnMask;
+    }
+    returnMask = _XtConvertTypeToMask(eventType);
+    if (returnMask == (StructureNotifyMask|SubstructureNotifyMask))
+	returnMask = StructureNotifyMask;
+    return returnMask;
+}
+
+/*ARGSUSED*/
+static void DispatchMappingNotify(
+    Widget widget,		/* will be NULL from _RefreshMapping */
+    XtPointer closure,		/* real Widget */
+    XtPointer call_data)	/* XEvent* */
+{
+    _XtTranslateEvent( (Widget)closure, (XEvent*)call_data);
+}
+
+
+/*ARGSUSED*/
+static void RemoveFromMappingCallbacks(
+    Widget widget,
+    XtPointer closure,		/* target widget */
+    XtPointer call_data)
+{
+    _XtRemoveCallback( &_XtGetPerDisplay(XtDisplay(widget))->mapping_callbacks,
+		       DispatchMappingNotify,
+		       closure
+		      );
+}
+
+static Boolean AggregateEventMask(
+    StatePtr	state,
+    XtPointer	data)
+{
+    LOCK_PROCESS;
+    *((EventMask *)data) |= EventToMask(TMGetTypeMatch(state->typeIndex),
+					TMGetModifierMatch(state->modIndex));
+    UNLOCK_PROCESS;
+    return False;
+}
+
+void _XtInstallTranslations(
+    Widget widget)
+{
+    XtTranslations xlations;
+    Cardinal	i;
+    TMStateTree	stateTree;
+    Boolean  mappingNotifyInterest = False;
+
+    xlations = widget->core.tm.translations;
+    if (xlations == NULL) return;
+
+    /*
+     * check for somebody stuffing the translations directly into the
+     * instance structure. We will end up being called again out of
+     * ComposeTranslations but we *should* have bindings by then
+     */
+    if (widget->core.tm.proc_table == NULL) {
+	_XtMergeTranslations(widget, NULL, XtTableReplace);
+	/*
+	 * if we're realized then we'll be called out of
+	 * ComposeTranslations
+	 */
+	if (XtIsRealized(widget))
+	  return;
+    }
+
+    xlations->eventMask = 0;
+    for (i = 0;
+	 i < xlations->numStateTrees;
+	 i++)
+      {
+	  stateTree = xlations->stateTreeTbl[i];
+	  _XtTraverseStateTree(stateTree,
+			    AggregateEventMask,
+			    (XtPointer)&xlations->eventMask);
+	  mappingNotifyInterest |= stateTree->simple.mappingNotifyInterest;
+      }
+    /* double click needs to make sure that you have selected on both
+	button down and up. */
+
+    if (xlations->eventMask & ButtonPressMask)
+      xlations->eventMask |= ButtonReleaseMask;
+    if (xlations->eventMask & ButtonReleaseMask)
+      xlations->eventMask |= ButtonPressMask;
+
+    if (mappingNotifyInterest) {
+	XtPerDisplay pd = _XtGetPerDisplay(XtDisplay(widget));
+	if (pd->mapping_callbacks)
+	    _XtAddCallbackOnce(&(pd->mapping_callbacks),
+			       DispatchMappingNotify,
+			       (XtPointer)widget);
+	else
+	    _XtAddCallback(&(pd->mapping_callbacks),
+			   DispatchMappingNotify,
+			   (XtPointer)widget);
+
+	if (widget->core.destroy_callbacks != NULL)
+	    _XtAddCallbackOnce( (InternalCallbackList *)
+			        &widget->core.destroy_callbacks,
+				RemoveFromMappingCallbacks,
+				(XtPointer)widget
+			       );
+	else
+	    _XtAddCallback((InternalCallbackList *)
+			   &widget->core.destroy_callbacks,
+			   RemoveFromMappingCallbacks,
+			   (XtPointer)widget
+			  );
+    }
+    _XtBindActions(widget, (XtTM)&widget->core.tm);
+    _XtRegisterGrabs(widget);
+}
+
+void _XtRemoveTranslations(
+    Widget widget)
+{
+    Cardinal	i;
+    TMSimpleStateTree	stateTree;
+    Boolean  		mappingNotifyInterest = False;
+    XtTranslations		xlations = widget->core.tm.translations;
+
+    if (xlations == NULL)
+      return;
+
+    for (i = 0;
+	 i < xlations->numStateTrees;
+	 i++)
+      {
+	  stateTree = (TMSimpleStateTree)xlations->stateTreeTbl[i];
+	  mappingNotifyInterest |= stateTree->mappingNotifyInterest;
+      }
+    if (mappingNotifyInterest)
+      RemoveFromMappingCallbacks(widget, (XtPointer)widget, NULL);
+}
+
+static void _XtUninstallTranslations(
+    Widget widget)
+{
+    XtTranslations	xlations = widget->core.tm.translations;
+
+    _XtUnbindActions(widget,
+		     xlations,
+		     (TMBindData)widget->core.tm.proc_table);
+    _XtRemoveTranslations(widget);
+    widget->core.tm.translations = NULL;
+    FreeContext((TMContext *)&widget->core.tm.current_state);
+}
+
+void _XtDestroyTMData(
+    Widget	widget)
+{
+    TMComplexBindData	cBindData;
+
+    _XtUninstallTranslations(widget);
+
+    if ((cBindData = (TMComplexBindData)widget->core.tm.proc_table)) {
+	if (cBindData->isComplex) {
+	    ATranslations	aXlations, nXlations;
+
+	    nXlations = (ATranslations) cBindData->accel_context;
+	    while (nXlations){
+		aXlations = nXlations;
+		nXlations = nXlations->next;
+		XtFree((char *)aXlations);
+	    }
+	}
+	XtFree((char *)cBindData);
+    }
+}
+
+/*** Public procedures ***/
+
+
+void XtUninstallTranslations(
+    Widget widget)
+{
+    EventMask	oldMask;
+    Widget hookobj;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    if (! widget->core.tm.translations) {
+	UNLOCK_APP(app);
+	return;
+    }
+    oldMask = widget->core.tm.translations->eventMask;
+    _XtUninstallTranslations(widget);
+    if (XtIsRealized(widget) && oldMask)
+	XSelectInput(XtDisplay(widget), XtWindow(widget),
+		     XtBuildEventMask(widget));
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHuninstallTranslations;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_APP(app);
+}
+
+XtTranslations _XtCreateXlations(
+    TMStateTree		*stateTrees,
+    TMShortCard		numStateTrees,
+    XtTranslations	first,
+    XtTranslations	second)
+{
+    XtTranslations	xlations;
+    TMShortCard i;
+
+    xlations = (XtTranslations)
+      __XtMalloc(sizeof(TranslationData) +
+	       (numStateTrees-1) * sizeof(TMStateTree));
+#ifdef TRACE_TM
+    LOCK_PROCESS;
+    if (_XtGlobalTM.numTms == _XtGlobalTM.tmTblSize) {
+	_XtGlobalTM.tmTblSize += 16;
+	_XtGlobalTM.tmTbl = (XtTranslations *)
+	  XtRealloc((char *)_XtGlobalTM.tmTbl,
+		   _XtGlobalTM.tmTblSize * sizeof(XtTranslations));
+    }
+    _XtGlobalTM.tmTbl[_XtGlobalTM.numTms++] = xlations;
+    UNLOCK_PROCESS;
+#endif /* TRACE_TM */
+
+    xlations->composers[0] = first;
+    xlations->composers[1] = second;
+    xlations->hasBindings = False;
+    xlations->operation = XtTableReplace;
+
+    for (i = 0;i < numStateTrees; i++)
+      {
+	  xlations->stateTreeTbl[i] = (TMStateTree) stateTrees[i];
+	  stateTrees[i]->simple.refCount++;
+      }
+    xlations->numStateTrees = numStateTrees;
+    xlations->eventMask = 0;
+    return xlations;
+}
+
+TMStateTree _XtParseTreeToStateTree(
+    TMParseStateTree	parseTree)
+{
+    TMSimpleStateTree  simpleTree;
+    unsigned int	tableSize;
+
+    if (parseTree->numComplexBranchHeads) {
+	TMComplexStateTree complexTree;
+
+	complexTree = XtNew(TMComplexStateTreeRec);
+	complexTree->isSimple = False;
+	tableSize = parseTree->numComplexBranchHeads * sizeof(StatePtr);
+	complexTree->complexBranchHeadTbl = (StatePtr *)
+	  __XtMalloc(tableSize);
+	XtMemmove(complexTree->complexBranchHeadTbl,
+		  parseTree->complexBranchHeadTbl, tableSize);
+	complexTree->numComplexBranchHeads =
+	  parseTree->numComplexBranchHeads;
+	simpleTree = (TMSimpleStateTree)complexTree;
+    }
+    else {
+	simpleTree = XtNew(TMSimpleStateTreeRec);
+	simpleTree->isSimple = True;
+    }
+    simpleTree->isAccelerator = parseTree->isAccelerator;
+    simpleTree->refCount = 0;
+    simpleTree->mappingNotifyInterest = parseTree->mappingNotifyInterest;
+
+    tableSize = parseTree->numBranchHeads * sizeof(TMBranchHeadRec);
+    simpleTree->branchHeadTbl = (TMBranchHead)
+      __XtMalloc(tableSize);
+    XtMemmove(simpleTree->branchHeadTbl, parseTree->branchHeadTbl, tableSize);
+    simpleTree->numBranchHeads = parseTree->numBranchHeads;
+
+    tableSize = parseTree->numQuarks * sizeof(XrmQuark);
+    simpleTree->quarkTbl = (XrmQuark *) __XtMalloc(tableSize);
+    XtMemmove(simpleTree->quarkTbl, parseTree->quarkTbl, tableSize);
+    simpleTree->numQuarks = parseTree->numQuarks;
+
+    return (TMStateTree)simpleTree;
+}
+
+static void FreeActions(
+    ActionPtr	actions)
+{
+    ActionPtr action;
+    TMShortCard i;
+    for (action = actions; action;) {
+	ActionPtr nextAction = action->next;
+	for (i = action->num_params; i;) {
+	    XtFree( action->params[--i] );
+	}
+	XtFree( (char*)action->params );
+	XtFree((char*) action);
+	action = nextAction;
+    }
+}
+
+/*ARGSUSED*/
+static void AmbigActions(
+    EventSeqPtr	initialEvent,
+    StatePtr	*state,
+    TMParseStateTree stateTree)
+{
+    String 	params[3];
+    Cardinal 	numParams = 0;
+
+    params[numParams++] = _XtPrintEventSeq(initialEvent, NULL);
+    params[numParams++] = _XtPrintActions((*state)->actions,
+					  stateTree->quarkTbl);
+    XtWarningMsg (XtNtranslationError,"oldActions",XtCXtToolkitError,
+		  "Previous entry was: %s %s", params, &numParams);
+    XtFree((char *)params[0]);
+    XtFree((char *)params[1]);
+    numParams = 0;
+    params[numParams++]  = _XtPrintActions(initialEvent->actions,
+					   stateTree->quarkTbl);
+    XtWarningMsg (XtNtranslationError,"newActions",XtCXtToolkitError,
+		  "New actions are:%s", params, &numParams);
+    XtFree((char *)params[0]);
+    XtWarningMsg (XtNtranslationError,"ambiguousActions",
+		  XtCXtToolkitError,
+		  "Overriding earlier translation manager actions.",
+		  (String *)NULL, (Cardinal *)NULL);
+
+    FreeActions((*state)->actions);
+    (*state)->actions = NULL;
+}
+
+
+void _XtAddEventSeqToStateTree(
+    EventSeqPtr 	eventSeq,
+    TMParseStateTree	stateTree)
+{
+    StatePtr		*state;
+    EventSeqPtr		initialEvent = eventSeq;
+    TMBranchHead	branchHead;
+    TMShortCard		idx, modIndex, typeIndex;
+
+    if (eventSeq == NULL) return;
+
+    /* note that all states in the event seq passed in start out null */
+    /* we fill them in with the matching state as we traverse the list */
+
+    /*
+     * We need to free the parser data structures !!!
+     */
+
+    typeIndex = _XtGetTypeIndex(&eventSeq->event);
+    modIndex = _XtGetModifierIndex(&eventSeq->event);
+    idx = GetBranchHead(stateTree, typeIndex, modIndex, False);
+    branchHead = &stateTree->branchHeadTbl[idx];
+
+    /*
+     * Need to check for pre-existing actions with same lhs |||
+     */
+
+    /*
+     * Check for optimized case. Don't assume that the eventSeq has actions.
+     */
+    if (!eventSeq->next &&
+	 eventSeq->actions &&
+	!eventSeq->actions->next &&
+	!eventSeq->actions->num_params)
+      {
+	  if (eventSeq->event.eventType == MappingNotify)
+	    stateTree->mappingNotifyInterest = True;
+	  branchHead->hasActions = True;
+	  branchHead->more = eventSeq->actions->idx;
+	  FreeActions(eventSeq->actions);
+	  eventSeq->actions = NULL;
+	  return;
+      }
+
+    branchHead->isSimple = False;
+    if (!eventSeq->next)
+      branchHead->hasActions = True;
+    branchHead->more = GetComplexBranchIndex(stateTree, typeIndex, modIndex);
+    state = &stateTree->complexBranchHeadTbl[TMBranchMore(branchHead)];
+
+    for (;;) {
+	*state = NewState(stateTree, typeIndex, modIndex);
+
+	if (eventSeq->event.eventType == MappingNotify)
+	    stateTree->mappingNotifyInterest = True;
+
+	/* *state now points at state record matching event */
+	eventSeq->state = *state;
+
+	if (eventSeq->actions != NULL) {
+	    if ((*state)->actions != NULL)
+	      AmbigActions(initialEvent, state, stateTree);
+	    (*state)->actions = eventSeq->actions;
+#ifdef TRACE_TM
+	    LOCK_PROCESS
+	    _XtGlobalTM.numComplexActions++;
+	    UNLOCK_PROCESS;
+#endif /* TRACE_TM */
+	}
+
+	if (((eventSeq = eventSeq->next) == NULL) || (eventSeq->state))
+	  break;
+
+	state = &(*state)->nextLevel;
+	typeIndex = _XtGetTypeIndex(&eventSeq->event);
+	modIndex = _XtGetModifierIndex(&eventSeq->event);
+	LOCK_PROCESS;
+	if (!TMNewMatchSemantics()) {
+	    /*
+	     * force a potential empty entry into the branch head
+	     * table in order to emulate old matching behavior
+	     */
+	    (void) GetBranchHead(stateTree, typeIndex, modIndex, True);
+	}
+	UNLOCK_PROCESS;
+    }
+
+    if (eventSeq && eventSeq->state) {
+	/* we've been here before... must be a cycle in the event seq. */
+	branchHead->hasCycles = True;
+	(*state)->nextLevel = eventSeq->state;
+	eventSeq->state->isCycleStart = True;
+	(*state)->isCycleEnd = TRUE;
+    }
+}
+
+
+/*
+ * Internal Converter for merging. Old and New must both be valid xlations
+ */
+
+/*ARGSUSED*/
+Boolean _XtCvtMergeTranslations(
+    Display	*dpy,
+    XrmValuePtr args,
+    Cardinal    *num_args,
+    XrmValuePtr from,
+    XrmValuePtr to,
+    XtPointer	*closure_ret)
+{
+    XtTranslations 	first, second, xlations;
+    TMStateTree		*stateTrees, stackStateTrees[16];
+    TMShortCard		numStateTrees, i;
+
+    if (*num_args != 0)
+	XtWarningMsg("invalidParameters","mergeTranslations",XtCXtToolkitError,
+             "MergeTM to TranslationTable needs no extra arguments",
+               (String *)NULL, (Cardinal *)NULL);
+
+    if (to->addr != NULL && to->size < sizeof(XtTranslations)) {
+	to->size = sizeof(XtTranslations);
+	return False;
+    }
+
+    first = ((TMConvertRec*)from->addr)->old;
+    second = ((TMConvertRec*)from->addr)->new;
+
+    numStateTrees = first->numStateTrees + second->numStateTrees;
+
+    stateTrees = (TMStateTree *)
+      XtStackAlloc(numStateTrees * sizeof(TMStateTree), stackStateTrees);
+
+    for (i = 0; i < first->numStateTrees; i++)
+      stateTrees[i] = first->stateTreeTbl[i];
+    for (i = 0; i < second->numStateTrees; i++)
+      stateTrees[i + first->numStateTrees] = second->stateTreeTbl[i];
+
+    xlations = _XtCreateXlations(stateTrees, numStateTrees, first, second);
+
+    if (to->addr != NULL) {
+	*(XtTranslations*)to->addr = xlations;
+    }
+    else {
+	static XtTranslations staticStateTable;
+	staticStateTable = xlations;
+	to->addr= (XPointer)&staticStateTable;
+	to->size = sizeof(XtTranslations);
+    }
+
+    XtStackFree((XtPointer)stateTrees, (XtPointer)stackStateTrees);
+    return True;
+}
+
+
+static XtTranslations MergeThem(
+    Widget		dest,
+    XtTranslations	first,
+    XtTranslations	second)
+{
+    XtCacheRef 		cache_ref;
+    static XrmQuark 	from_type = NULLQUARK, to_type;
+    XrmValue 		from, to;
+    TMConvertRec 	convert_rec;
+    XtTranslations	newTable;
+
+    LOCK_PROCESS;
+    if (from_type == NULLQUARK) {
+	from_type = XrmPermStringToQuark(_XtRStateTablePair);
+	to_type = XrmPermStringToQuark(XtRTranslationTable);
+    }
+    UNLOCK_PROCESS;
+    from.addr = (XPointer)&convert_rec;
+    from.size = sizeof(TMConvertRec);
+    to.addr = (XPointer)&newTable;
+    to.size = sizeof(XtTranslations);
+    convert_rec.old = first;
+    convert_rec.new = second;
+
+    LOCK_PROCESS;
+    if (! _XtConvert(dest, from_type, &from, to_type, &to, &cache_ref)) {
+	UNLOCK_PROCESS;
+	return NULL;
+    }
+    UNLOCK_PROCESS;
+
+#ifndef REFCNT_TRANSLATIONS
+
+    if (cache_ref)
+	XtAddCallback(dest, XtNdestroyCallback,
+		      XtCallbackReleaseCacheRef, (XtPointer)cache_ref);
+
+#endif
+
+    return newTable;
+}
+
+/*
+ * Unmerge will recursively traverse the xlation compose tree and
+ * generate a new xlation that is the result of all instances of
+ * xlations being removed. It currently doesn't differentiate between
+ * the potential that an xlation will be both an accelerator and
+ * normal. This is not supported by the spec anyway.
+ */
+static XtTranslations UnmergeTranslations(
+    Widget		widget,
+    XtTranslations	xlations,
+    XtTranslations	unmergeXlations,
+    TMShortCard		currIndex,
+    TMComplexBindProcs	oldBindings,
+    TMShortCard		numOldBindings,
+    TMComplexBindProcs	newBindings,
+    TMShortCard		*numNewBindingsRtn)
+
+{
+    XtTranslations first, second, result;
+
+    if (!xlations || (xlations == unmergeXlations))
+      return NULL;
+
+    if (xlations->composers[0]) {
+	first = UnmergeTranslations(widget, xlations->composers[0],
+				    unmergeXlations,  currIndex,
+				    oldBindings, numOldBindings,
+				    newBindings, numNewBindingsRtn);
+    }
+    else
+      first = NULL;
+
+    if (xlations->composers[1]) {
+	second = UnmergeTranslations(widget, xlations->composers[1],
+				     unmergeXlations,
+				     currIndex +
+				     xlations->composers[0]->numStateTrees,
+				     oldBindings, numOldBindings,
+				     newBindings, numNewBindingsRtn);
+    }
+    else
+      second = NULL;
+
+    if (first || second) {
+	if (first && second) {
+	    if ((first != xlations->composers[0]) ||
+		(second != xlations->composers[1]))
+	      result = MergeThem(widget, first, second);
+	    else result = xlations;
+	}
+	else {
+	    if (first)
+	      result = first;
+	    else
+	      result = second;
+	}
+    } else { /* only update for leaf nodes */
+  	if (numOldBindings) {
+ 	    Cardinal	i;
+ 	    for (i = 0; i < xlations->numStateTrees; i++) {
+ 		if (xlations->stateTreeTbl[i]->simple.isAccelerator)
+		    newBindings[*numNewBindingsRtn] =
+			oldBindings[currIndex + i];
+ 		(*numNewBindingsRtn)++;
+	    }
+	}
+	result = xlations;
+    }
+    return result;
+}
+
+typedef struct {
+    XtTranslations xlations;
+    TMComplexBindProcs bindings;
+}MergeBindRec, *MergeBind;
+
+static XtTranslations MergeTranslations(
+    Widget		widget,
+    XtTranslations	oldXlations,
+    XtTranslations	newXlations,
+    _XtTranslateOp	operation,
+    Widget		source,
+    TMComplexBindProcs	oldBindings,
+    TMComplexBindProcs	newBindings,
+    TMShortCard		*numNewRtn)
+{
+    XtTranslations      newTable = NULL, xlations;
+    TMComplexBindProcs	bindings;
+    TMShortCard		i, j;
+    TMStateTree 	*treePtr;
+    TMShortCard		numNew = *numNewRtn;
+    MergeBindRec	bindPair[2];
+
+    /* If the new translation has an accelerator context then pull it
+     * off and pass it and the real xlations in to the caching merge
+     * routine.
+     */
+    if (newXlations->hasBindings) {
+	xlations = ((ATranslations) newXlations)->xlations;
+	bindings = (TMComplexBindProcs)
+	    &((ATranslations) newXlations)->bindTbl[0];
+    }
+    else {
+	xlations = newXlations;
+	bindings = NULL;
+    }
+    switch(operation) {
+      case XtTableReplace:
+	newTable = bindPair[0].xlations = xlations;
+	bindPair[0].bindings = bindings;
+	bindPair[1].xlations = NULL;
+	bindPair[1].bindings = NULL;
+	break;
+      case XtTableAugment:
+	bindPair[0].xlations = oldXlations;
+	bindPair[0].bindings = oldBindings;
+	bindPair[1].xlations = xlations;
+	bindPair[1].bindings = bindings;
+	newTable = NULL;
+	break;
+      case XtTableOverride:
+	bindPair[0].xlations = xlations;
+	bindPair[0].bindings = bindings;
+	bindPair[1].xlations = oldXlations;
+	bindPair[1].bindings = oldBindings;
+	newTable = NULL;
+	break;
+    }
+    if (!newTable)
+      newTable = MergeThem(widget, bindPair[0].xlations, bindPair[1].xlations);
+
+    for (i = 0, numNew = 0; i < 2; i++) {
+	if (bindPair[i].xlations)
+	  for (j = 0; j < bindPair[i].xlations->numStateTrees; j++, numNew++) {
+	      if (bindPair[i].xlations->stateTreeTbl[j]->simple.isAccelerator) {
+		  if (bindPair[i].bindings)
+		    newBindings[numNew] = bindPair[i].bindings[j];
+		  else {
+		      newBindings[numNew].widget = source;
+		      newBindings[numNew].aXlations =
+			bindPair[i].xlations;
+		  }
+		}
+	  }
+    }
+    *numNewRtn = numNew;
+    treePtr = &newTable->stateTreeTbl[0];
+    for (i = 0; i < newTable->numStateTrees; i++, treePtr++)
+      (*treePtr)->simple.refCount++;
+    return newTable;
+}
+
+static TMBindData MakeBindData(
+    TMComplexBindProcs	bindings,
+    TMShortCard		numBindings,
+    TMBindData		oldBindData)
+{
+    TMLongCard		bytes;
+    TMShortCard		i;
+    Boolean		isComplex;
+    TMBindData		bindData;
+
+    if (numBindings == 0)
+      return NULL;
+    for (i = 0; i < numBindings; i++)
+      if (bindings[i].widget)
+	break;
+    isComplex = (i < numBindings);
+    if (isComplex)
+      bytes = (sizeof(TMComplexBindDataRec) +
+	       ((numBindings - 1) *
+		sizeof(TMComplexBindProcsRec)));
+    else
+      bytes = (sizeof(TMSimpleBindDataRec) +
+	       ((numBindings - 1) *
+		sizeof(TMSimpleBindProcsRec)));
+
+    bindData = (TMBindData) __XtCalloc(sizeof(char), bytes);
+    bindData->simple.isComplex = isComplex;
+    if (isComplex) {
+	TMComplexBindData cBindData = (TMComplexBindData)bindData;
+	/*
+	 * If there were any accelerator contexts in the old bindData
+	 * then propagate them to the new one.
+	 */
+	if (oldBindData && oldBindData->simple.isComplex)
+	    cBindData->accel_context =
+		((TMComplexBindData) oldBindData)->accel_context;
+	XtMemmove((char *)&cBindData->bindTbl[0], (char *)bindings,
+		  numBindings * sizeof(TMComplexBindProcsRec));
+    }
+    return bindData;
+}
+
+/*
+ * This routine is the central clearinghouse for merging translations
+ * into a widget. It takes care of preping the action bindings for
+ * realize time and calling the converter or doing a straight merge if
+ * the destination is empty.
+ */
+static Boolean ComposeTranslations(
+    Widget dest,
+    _XtTranslateOp operation,
+    Widget source,
+    XtTranslations newXlations)
+{
+    XtTranslations 	newTable, oldXlations;
+    XtTranslations	accNewXlations;
+    EventMask		oldMask = 0;
+    TMBindData		bindData;
+    TMComplexBindProcs	oldBindings = NULL;
+    TMShortCard		numOldBindings = 0, numNewBindings = 0, numBytes;
+    TMComplexBindProcsRec stackBindings[16], *newBindings;
+
+    /*
+     * how should we be handling the refcount decrement for the
+     * replaced translation table ???
+     */
+    if (!newXlations)
+      {
+	  XtAppWarningMsg(XtWidgetToApplicationContext(dest),
+			  XtNtranslationError,"nullTable",XtCXtToolkitError,
+			  "table to (un)merge must not be null",
+			  (String *)NULL, (Cardinal *)NULL);
+	  return False;
+      }
+
+    accNewXlations = newXlations;
+    newXlations = ((newXlations->hasBindings)
+		   ? ((ATranslations)newXlations)->xlations
+		   : newXlations);
+
+    if (!(oldXlations = dest->core.tm.translations))
+      operation = XtTableReplace;
+
+    /*
+     * try to avoid generation of duplicate state trees. If the source
+     * isn't simple (1 state Tree) then it's too much hassle
+     */
+    if (((operation == XtTableAugment) ||
+	 (operation == XtTableOverride)) &&
+	(newXlations->numStateTrees == 1)) {
+	Cardinal	i;
+	for (i = 0; i < oldXlations->numStateTrees; i++)
+	  if (oldXlations->stateTreeTbl[i] ==
+	      newXlations->stateTreeTbl[0])
+	    break;
+	if (i < oldXlations->numStateTrees) {
+	    if (operation == XtTableAugment) {
+		/*
+		 * we don't need to do anything since it's already
+		 * there
+		 */
+		return True;
+	    }
+	    else {/* operation == XtTableOverride */
+		/*
+		 * We'll get rid of the duplicate trees throughout the
+		 * and leave it with a pruned translation table. This
+		 * will only work if the same table has been merged
+		 * into this table (or one of it's composers
+		 */
+		_XtUnmergeTranslations(dest, newXlations);
+		/*
+		 * reset oldXlations so we're back in sync
+		 */
+		if (!(oldXlations = dest->core.tm.translations))
+		  operation = XtTableReplace;
+	    }
+	}
+    }
+
+    bindData = (TMBindData) dest->core.tm.proc_table;
+    if (bindData) {
+	numOldBindings = (oldXlations ? oldXlations->numStateTrees : 0);
+ 	if (bindData->simple.isComplex)
+	    oldBindings = &((TMComplexBindData)bindData)->bindTbl[0];
+ 	else
+	    oldBindings = (TMComplexBindProcs)
+		(&((TMSimpleBindData)bindData)->bindTbl[0]);
+    }
+
+    numBytes =(((oldXlations ? oldXlations->numStateTrees : 0)
+		+ newXlations->numStateTrees) * sizeof(TMComplexBindProcsRec));
+    newBindings = (TMComplexBindProcs) XtStackAlloc(numBytes,  stackBindings);
+    XtBZero((char *)newBindings, numBytes);
+
+    if (operation == XtTableUnmerge) {
+	newTable = UnmergeTranslations(dest,
+				       oldXlations,
+				       newXlations,
+				       0,
+				       oldBindings, numOldBindings,
+				       newBindings, &numNewBindings);
+#ifdef DEBUG
+	/* check for no match for unmerge */
+	if (newTable == oldXlations) {
+	    XtWarning("attempt to unmerge invalid table");
+	    XtStackFree((char *)newBindings, (char *)stackBindings);
+	    return(newTable != NULL);
+	}
+#endif /* DEBUG */
+    }
+    else {
+	newTable = MergeTranslations(dest,
+				     oldXlations,
+				     accNewXlations,
+				     operation,
+				     source,
+				     oldBindings,
+				     newBindings,
+				     &numNewBindings);
+    }
+    if (XtIsRealized(dest)) {
+	oldMask = 0;
+	if (oldXlations)
+	    oldMask = oldXlations->eventMask;
+	_XtUninstallTranslations(dest);
+    }
+
+    dest->core.tm.proc_table =
+      (XtActionProc *) MakeBindData(newBindings, numNewBindings, bindData);
+
+    if (bindData) XtFree((char *)bindData);
+
+    dest->core.tm.translations = newTable;
+
+    if (XtIsRealized(dest)) {
+	EventMask mask = 0;
+	_XtInstallTranslations(dest);
+	if (newTable)
+	    mask = newTable->eventMask;
+	if (mask != oldMask)
+	    XSelectInput(XtDisplay(dest), XtWindow(dest),
+			 XtBuildEventMask(dest));
+    }
+    XtStackFree((XtPointer)newBindings, (XtPointer)stackBindings);
+    return(newTable != NULL);
+}
+
+/*
+ * If a GetValues is done on a translation resource that contains
+ * accelerators we need to return the accelerator context in addition
+ * to the pure translations.  Since this means returning memory that
+ * the client controlls but we still own, we will track the "headers"
+ * that we return (via a linked list pointed to from the bindData) and
+ * free it at destroy time.
+ */
+XtTranslations _XtGetTranslationValue(
+    Widget	w)
+{
+    XtTM		tmRecPtr = (XtTM) &w->core.tm;
+    ATranslations	*aXlationsPtr;
+    TMComplexBindData	cBindData = (TMComplexBindData) tmRecPtr->proc_table;
+    XtTranslations	xlations = tmRecPtr->translations;
+
+    if (!xlations || !cBindData || !cBindData->isComplex)
+	return xlations;
+
+    /* Walk the list looking to see if we already have generated a
+     * header for the currently installed translations.  If we have,
+     * just return that header.  Otherwise create a new header.
+     */
+    for (aXlationsPtr = (ATranslations *) &cBindData->accel_context;
+	 *aXlationsPtr && (*aXlationsPtr)->xlations != xlations;
+	 aXlationsPtr = &(*aXlationsPtr)->next)
+	;
+    if (*aXlationsPtr)
+	return (XtTranslations) *aXlationsPtr;
+    else {
+	/* create a new aXlations context */
+	ATranslations	aXlations;
+	Cardinal	numBindings = xlations->numStateTrees;
+
+	(*aXlationsPtr) = aXlations = (ATranslations)
+	    __XtMalloc(sizeof(ATranslationData) +
+		     (numBindings - 1) * sizeof(TMComplexBindProcsRec));
+
+	aXlations->hasBindings = True;
+	aXlations->xlations = xlations;
+	aXlations->next = NULL;
+	XtMemmove((char *) &aXlations->bindTbl[0],
+		  (char *) &cBindData->bindTbl[0],
+		  numBindings * sizeof(TMComplexBindProcsRec));
+	return (XtTranslations) aXlations;
+    }
+}
+
+
+/*ARGSUSED*/
+static void RemoveStateTree(
+    TMStateTree	tree)
+{
+#ifdef REFCNT_TRANSLATIONS
+    TMComplexStateTree stateTree = (TMComplexStateTree)tree;
+
+    if (--stateTree->refCount == 0) {
+	/*
+	 * should we free/refcount the match recs ?
+	 */
+	if (!stateTree->isSimple)  {
+	    StatePtr	currState, nextState;
+	    TMShortCard i;
+	    for (i = 0; i < stateTree->numComplexBranchHeads; i++) {
+		currState =
+		  nextState =
+		    stateTree->complexBranchHeadTbl[i];
+		for (; nextState;){
+		    FreeActions(currState->actions);
+		    currState->actions = NULL;
+		    if (!currState->isCycleEnd)
+		      nextState = currState->nextLevel;
+		    else
+		      nextState = NULL;
+		    XtFree( (char*)currState );
+		}
+	    }
+	    XtFree((char*)stateTree->complexBranchHeadTbl);
+	}
+	XtFree((char*)stateTree->branchHeadTbl);
+	XtFree((char*)stateTree);
+    }
+#endif /* REFCNT_TRANSLATIONS */
+}
+
+void _XtRemoveStateTreeByIndex(
+    XtTranslations	xlations,
+    TMShortCard	i)
+{
+    TMStateTree		*stateTrees = xlations->stateTreeTbl;
+
+    RemoveStateTree(stateTrees[i]);
+    xlations->numStateTrees--;
+
+    for (; i < xlations->numStateTrees; i++)
+      {
+	  stateTrees[i] = stateTrees[i+1];
+      }
+}
+
+/* ARGSUSED */
+void _XtFreeTranslations(
+    XtAppContext app,
+    XrmValuePtr	toVal,
+    XtPointer	closure,
+    XrmValuePtr	args,
+    Cardinal	*num_args)
+{
+    XtTranslations 	xlations;
+    int 	i;
+
+    if (*num_args != 0)
+	XtAppWarningMsg(app,
+	  "invalidParameters","freeTranslations",XtCXtToolkitError,
+          "Freeing XtTranslations requires no extra arguments",
+	  (String *)NULL, (Cardinal *)NULL);
+
+    xlations = *(XtTranslations*)toVal->addr;
+    for (i = 0; i < (int)xlations->numStateTrees; i++)
+      RemoveStateTree(xlations->stateTreeTbl[i]);
+    XtFree((char *)xlations);
+}
+
+/*  The spec is not clear on when actions specified in accelerators are bound;
+ *  Bind them at Realize the same as translations
+ */
+void XtInstallAccelerators(
+    Widget destination, Widget source)
+{
+    XtTranslations	aXlations;
+    _XtTranslateOp	op;
+    String		buf;
+    WIDGET_TO_APPCON(destination);
+
+    /*
+     * test that it was parsed as an accelarator table. Even though
+     * there doesn't need to be a distinction it makes life easier if
+     * we honor the spec implication that aXlations is an accelerator
+     */
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    if ((!XtIsWidget(source)) ||
+	((aXlations = source->core.accelerators) == NULL) ||
+	(aXlations->stateTreeTbl[0]->simple.isAccelerator == False)) {
+	UNLOCK_PROCESS;
+	UNLOCK_APP(app);
+	return;
+    }
+
+    aXlations = source->core.accelerators;
+    op = aXlations->operation;
+
+    if (ComposeTranslations(destination, op, source, aXlations) &&
+	(XtClass(source)->core_class.display_accelerator != NULL)) {
+
+	buf = _XtPrintXlations(destination, aXlations, source, False);
+	(*(XtClass(source)->core_class.display_accelerator))(source,buf);
+	XtFree(buf);
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
+
+void XtInstallAllAccelerators(
+    Widget destination,
+    Widget source)
+{
+    Cardinal i;
+    CompositeWidget cw;
+    WIDGET_TO_APPCON(destination);
+
+    /* Recurse down normal children */
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    if (XtIsComposite(source)) {
+        cw = (CompositeWidget) source;
+        for (i = 0; i < cw->composite.num_children; i++) {
+            XtInstallAllAccelerators(destination,cw->composite.children[i]);
+        }
+    }
+
+    /* Recurse down popup children */
+    if (XtIsWidget(source)) {
+        for (i = 0; i < source->core.num_popups; i++) {
+            XtInstallAllAccelerators(destination,source->core.popup_list[i]);
+        }
+    }
+    /* Finally, apply procedure to this widget */
+    XtInstallAccelerators(destination,source);
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
+
+#if 0 /* dead code */
+static _XtTranslateOp _XtGetTMOperation(
+    XtTranslations xlations)
+{
+    return ((xlations->hasBindings)
+	    ? ((ATranslations)xlations)->xlations->operation
+	    : xlations->operation);
+}
+#endif
+
+void XtAugmentTranslations(
+    Widget widget,
+    XtTranslations new)
+{
+    Widget hookobj;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    (void)ComposeTranslations(widget, XtTableAugment, (Widget)NULL, new);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHaugmentTranslations;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
+
+void XtOverrideTranslations(
+    Widget widget,
+    XtTranslations new)
+{
+    Widget hookobj;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    LOCK_PROCESS;
+    (void) ComposeTranslations(widget, XtTableOverride, (Widget)NULL, new);
+    hookobj = XtHooksOfDisplay(XtDisplayOfObject(widget));
+    if (XtHasCallbacks(hookobj, XtNchangeHook) == XtCallbackHasSome) {
+	XtChangeHookDataRec call_data;
+
+	call_data.type = XtHoverrideTranslations;
+	call_data.widget = widget;
+	XtCallCallbackList(hookobj,
+		((HookObject)hookobj)->hooks.changehook_callbacks,
+		(XtPointer)&call_data);
+    }
+    UNLOCK_PROCESS;
+    UNLOCK_APP(app);
+}
+
+void _XtMergeTranslations(
+    Widget	widget,
+    XtTranslations newXlations,
+    _XtTranslateOp op)
+{
+    if (!newXlations){
+	if (!widget->core.tm.translations)
+	  return;
+	else {
+	  newXlations = widget->core.tm.translations;
+	  widget->core.tm.translations = NULL;
+      }
+    }
+    (void) ComposeTranslations(widget,
+			     op,
+			     (Widget)NULL,
+			     newXlations);
+}
+
+void _XtUnmergeTranslations(
+   Widget		widget,
+    XtTranslations	xlations)
+{
+    ComposeTranslations(widget, XtTableUnmerge, (Widget)NULL, xlations);
+}
diff --git a/libXt/src/Threads.c b/libXt/src/Threads.c
index c74c39f08..7ae9e18f4 100644
--- a/libXt/src/Threads.c
+++ b/libXt/src/Threads.c
@@ -1,421 +1,421 @@
-/************************************************************

-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 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-

-#ifdef XTHREADS

-

-#define xmalloc __XtMalloc

-#define xfree XtFree

-#include <X11/Xthreads.h>

-

-#ifndef NDEBUG

-#define NDEBUG

-#endif

-#include <assert.h>

-#include <stdio.h>

-

-typedef struct _ThreadStack {

-    unsigned int size;

-    int sp;

-    struct _Tstack {

-	xthread_t t;

-	xcondition_t c;

-    } *st;

-} ThreadStack;

-

-typedef struct _LockRec {

-    xmutex_t mutex;

-    int level;

-    ThreadStack stack;

-#ifndef _XMUTEX_NESTS

-    xthread_t holder;

-    xcondition_t cond;

-#endif

-} LockRec;

-

-

-#define STACK_INCR 16

-

-static LockPtr process_lock = NULL;

-

-static void

-InitProcessLock(void)

-{

-    if(!process_lock) {

-    	process_lock = XtNew(LockRec);

-    	process_lock->mutex = xmutex_malloc();

-    	xmutex_init(process_lock->mutex);

-    	process_lock->level = 0;

-#ifndef _XMUTEX_NESTS

-    	process_lock->cond = xcondition_malloc();

-    	xcondition_init(process_lock->cond);

-    	xthread_clear_id(process_lock->holder);

-#endif

-    }

-}

-

-static void

-ProcessLock(void)

-{

-#ifdef _XMUTEX_NESTS

-    xmutex_lock(process_lock->mutex);

-    process_lock->level++;

-#else

-    xthread_t this_thread = xthread_self();

-

-    xmutex_lock(process_lock->mutex);

-

-    if (!xthread_have_id(process_lock->holder)) {

-	process_lock->holder = this_thread;

-	xmutex_unlock(process_lock->mutex);

-	return;

-    }

-

-    if (xthread_equal(process_lock->holder,this_thread)) {

-	process_lock->level++;

-	xmutex_unlock(process_lock->mutex);

-	return;

-    }

-

-    while(xthread_have_id(process_lock->holder))

-	xcondition_wait(process_lock->cond, process_lock->mutex);

-

-    process_lock->holder = this_thread;

-    assert(xthread_equal(process_lock->holder, this_thread));

-    xmutex_unlock(process_lock->mutex);

-#endif

-}

-

-static void

-ProcessUnlock(void)

-{

-#ifdef _XMUTEX_NESTS

-    process_lock->level--;

-    xmutex_unlock(process_lock->mutex);

-#else

-    xmutex_lock(process_lock->mutex);

-    assert(xthread_equal(process_lock->holder, xthread_self()));

-    if (process_lock->level != 0) {

-	process_lock->level--;

-	xmutex_unlock(process_lock->mutex);

-	return;

-    }

-

-    xthread_clear_id(process_lock->holder);

-    xcondition_signal(process_lock->cond);

-

-    xmutex_unlock(process_lock->mutex);

-#endif

-}

-

-

-static void

-AppLock(XtAppContext app)

-{

-    LockPtr app_lock = app->lock_info;

-#ifdef _XMUTEX_NESTS

-    xmutex_lock(app_lock->mutex);

-    app_lock->level++;

-#else

-    xthread_t self = xthread_self();

-    xmutex_lock(app_lock->mutex);

-    if (!xthread_have_id(app_lock->holder)) {

-	app_lock->holder = self;

-    	assert(xthread_equal(app_lock->holder, self));

-	xmutex_unlock(app_lock->mutex);

-	return;

-    }

-    if (xthread_equal(app_lock->holder, self)) {

-	app_lock->level++;

-	xmutex_unlock(app_lock->mutex);

-	return;

-    }

-    while(xthread_have_id(app_lock->holder)) {

-	xcondition_wait(app_lock->cond, app_lock->mutex);

-    }

-    app_lock->holder = self;

-    assert(xthread_equal(app_lock->holder, self));

-    xmutex_unlock(app_lock->mutex);

-#endif

-}

-

-static void

-AppUnlock(XtAppContext app)

-{

-    LockPtr app_lock = app->lock_info;

-#ifdef _XMUTEX_NESTS

-    app_lock->level--;

-    xmutex_unlock(app_lock->mutex);

-#else

-    xthread_t self;

-

-    self = xthread_self();

-    xmutex_lock(app_lock->mutex);

-    assert(xthread_equal(app_lock->holder, self));

-    if (app_lock->level != 0) {

-	app_lock->level--;

-	xmutex_unlock(app_lock->mutex);

-	return;

-    }

-    xthread_clear_id(app_lock->holder);

-    xcondition_signal(app_lock->cond);

-    xmutex_unlock(app_lock->mutex);

-#endif

-}

-

-static void

-YieldAppLock(

-    XtAppContext app,

-    Boolean* push_thread,

-    Boolean* pushed_thread,

-    int* level)

-{

-    LockPtr app_lock = app->lock_info;

-    xthread_t self = xthread_self();

-#ifndef _XMUTEX_NESTS

-    xmutex_lock(app_lock->mutex);

-    assert(xthread_equal(app_lock->holder, self));

-#endif

-    *level = app_lock->level;

-    if (*push_thread) {

-	*push_thread = FALSE;

-	*pushed_thread = TRUE;

-

-	if(app_lock->stack.sp == (int)app_lock->stack.size - 1) {

-	    unsigned ii;

-	    app_lock->stack.st = (struct _Tstack *)

-		XtRealloc ((char *)app_lock->stack.st,

-		(app_lock->stack.size + STACK_INCR) * sizeof (struct _Tstack));

-	    ii = app_lock->stack.size;

-	    app_lock->stack.size += STACK_INCR;

-	    for ( ; ii < app_lock->stack.size; ii++) {

-		app_lock->stack.st[ii].c = xcondition_malloc();

-		xcondition_init(app_lock->stack.st[ii].c);

-	    }

-	}

-	app_lock->stack.st[++(app_lock->stack.sp)].t = self;

-    }

-#ifdef _XMUTEX_NESTS

-    while (app_lock->level > 0) {

-	app_lock->level--;

-	xmutex_unlock(app_lock->mutex);

-    }

-#else

-    xcondition_signal(app_lock->cond);

-    app_lock->level = 0;

-    xthread_clear_id(app_lock->holder);

-    xmutex_unlock(app_lock->mutex);

-#endif

-}

-

-static void

-RestoreAppLock(

-    XtAppContext app,

-    int level,

-    Boolean* pushed_thread)

-{

-    LockPtr app_lock = app->lock_info;

-    xthread_t self = xthread_self();

-    xmutex_lock(app_lock->mutex);

-#ifdef _XMUTEX_NESTS

-    app_lock->level++;

-#else

-    while(xthread_have_id(app_lock->holder)) {

-	xcondition_wait(app_lock->cond, app_lock->mutex);

-    }

-#endif

-    if (!xthread_equal(app_lock->stack.st[app_lock->stack.sp].t, self)) {

-	int ii;

-	for (ii = app_lock->stack.sp - 1; ii >= 0; ii--) {

-	    if (xthread_equal(app_lock->stack.st[ii].t, self)) {

-		xcondition_wait(app_lock->stack.st[ii].c, app_lock->mutex);

-		break;

-	    }

-	}

-#ifndef _XMUTEX_NESTS

-	while(xthread_have_id(app_lock->holder)) {

-	    xcondition_wait(app_lock->cond, app_lock->mutex);

-	}

-#endif

-    }

-#ifdef _XMUTEX_NESTS

-    while (app_lock->level < level) {

-	xmutex_lock(app_lock->mutex);

-	app_lock->level++;

-    }

-#else

-    app_lock->holder = self;

-    app_lock->level = level;

-    assert(xthread_equal(app_lock->holder, self));

-#endif

-    if (*pushed_thread) {

-	*pushed_thread = FALSE;

-	(app_lock->stack.sp)--;

-	if (app_lock->stack.sp >= 0) {

-	    xcondition_signal (app_lock->stack.st[app_lock->stack.sp].c);

-	}

-    }

-#ifndef _XMUTEX_NESTS

-    xmutex_unlock(app_lock->mutex);

-#endif

-}

-

-static void

-FreeAppLock(XtAppContext app)

-{

-    unsigned ii;

-    LockPtr app_lock = app->lock_info;

-

-    if(app_lock) {

-	xmutex_clear(app_lock->mutex);

-	xmutex_free(app_lock->mutex);

-#ifndef _XMUTEX_NESTS

-	xcondition_clear(app_lock->cond);

-	xcondition_free(app_lock->cond);

-#endif

-	if(app_lock->stack.st != (struct _Tstack *)NULL) {

-	    for (ii = 0; ii < app_lock->stack.size; ii++) {

-		xcondition_clear(app_lock->stack.st[ii].c);

-		xcondition_free(app_lock->stack.st[ii].c);

-	    }

-	    XtFree((char *)app_lock->stack.st);

-	}

-	XtFree((char *)app_lock);

-	app->lock_info = NULL;

-    }

-}

-

-static void

-InitAppLock(XtAppContext app)

-{

-    int ii;

-    LockPtr app_lock;

-

-    app->lock = AppLock;

-    app->unlock = AppUnlock;

-    app->yield_lock = YieldAppLock;

-    app->restore_lock = RestoreAppLock;

-    app->free_lock = FreeAppLock;

-

-    app_lock = app->lock_info = XtNew(LockRec);

-    app_lock->mutex = xmutex_malloc();

-    xmutex_init(app_lock->mutex);

-    app_lock->level = 0;

-#ifndef _XMUTEX_NESTS

-    app_lock->cond = xcondition_malloc();

-    xcondition_init(app_lock->cond);

-    xthread_clear_id(app_lock->holder);

-#endif

-    app_lock->stack.size = STACK_INCR;

-    app_lock->stack.sp = -1;

-    app_lock->stack.st =

-	(struct _Tstack *)__XtMalloc(sizeof(struct _Tstack)*STACK_INCR);

-    for (ii = 0; ii < STACK_INCR; ii++) {

-	app_lock->stack.st[ii].c = xcondition_malloc();

-	xcondition_init(app_lock->stack.st[ii].c);

-    }

-}

-

-#endif /* defined(XTHREADS) */

-

-void XtAppLock(XtAppContext app)

-{

-#ifdef XTHREADS

-    if(app->lock)

-	(*app->lock)(app);

-#endif

-}

-

-void XtAppUnlock(XtAppContext app)

-{

-#ifdef XTHREADS

-    if(app->unlock)

-	(*app->unlock)(app);

-#endif

-}

-

-void XtProcessLock(void)

-{

-#ifdef XTHREADS

-    if(_XtProcessLock)

-	(*_XtProcessLock)();

-#endif

-}

-

-void XtProcessUnlock(void)

-{

-#ifdef XTHREADS

-    if(_XtProcessUnlock)

-	(*_XtProcessUnlock)();

-#endif

-}

-

-Boolean XtToolkitThreadInitialize(void)

-{

-#ifdef XTHREADS

-    if (_XtProcessLock == NULL) {

-#ifdef xthread_init

-	xthread_init();

-#endif

-	InitProcessLock();

-	_XtProcessLock = ProcessLock;

-	_XtProcessUnlock = ProcessUnlock;

-	_XtInitAppLock = InitAppLock;

-    }

-    return True;

-#else

-    return False;

-#endif

-}

-

+/************************************************************
+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 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+
+#ifdef XTHREADS
+
+#define xmalloc __XtMalloc
+#define xfree XtFree
+#include <X11/Xthreads.h>
+
+#ifndef NDEBUG
+#define NDEBUG
+#endif
+#include <assert.h>
+#include <stdio.h>
+
+typedef struct _ThreadStack {
+    unsigned int size;
+    int sp;
+    struct _Tstack {
+	xthread_t t;
+	xcondition_t c;
+    } *st;
+} ThreadStack;
+
+typedef struct _LockRec {
+    xmutex_t mutex;
+    int level;
+    ThreadStack stack;
+#ifndef _XMUTEX_NESTS
+    xthread_t holder;
+    xcondition_t cond;
+#endif
+} LockRec;
+
+
+#define STACK_INCR 16
+
+static LockPtr process_lock = NULL;
+
+static void
+InitProcessLock(void)
+{
+    if(!process_lock) {
+    	process_lock = XtNew(LockRec);
+    	process_lock->mutex = xmutex_malloc();
+    	xmutex_init(process_lock->mutex);
+    	process_lock->level = 0;
+#ifndef _XMUTEX_NESTS
+    	process_lock->cond = xcondition_malloc();
+    	xcondition_init(process_lock->cond);
+    	xthread_clear_id(process_lock->holder);
+#endif
+    }
+}
+
+static void
+ProcessLock(void)
+{
+#ifdef _XMUTEX_NESTS
+    xmutex_lock(process_lock->mutex);
+    process_lock->level++;
+#else
+    xthread_t this_thread = xthread_self();
+
+    xmutex_lock(process_lock->mutex);
+
+    if (!xthread_have_id(process_lock->holder)) {
+	process_lock->holder = this_thread;
+	xmutex_unlock(process_lock->mutex);
+	return;
+    }
+
+    if (xthread_equal(process_lock->holder,this_thread)) {
+	process_lock->level++;
+	xmutex_unlock(process_lock->mutex);
+	return;
+    }
+
+    while(xthread_have_id(process_lock->holder))
+	xcondition_wait(process_lock->cond, process_lock->mutex);
+
+    process_lock->holder = this_thread;
+    assert(xthread_equal(process_lock->holder, this_thread));
+    xmutex_unlock(process_lock->mutex);
+#endif
+}
+
+static void
+ProcessUnlock(void)
+{
+#ifdef _XMUTEX_NESTS
+    process_lock->level--;
+    xmutex_unlock(process_lock->mutex);
+#else
+    xmutex_lock(process_lock->mutex);
+    assert(xthread_equal(process_lock->holder, xthread_self()));
+    if (process_lock->level != 0) {
+	process_lock->level--;
+	xmutex_unlock(process_lock->mutex);
+	return;
+    }
+
+    xthread_clear_id(process_lock->holder);
+    xcondition_signal(process_lock->cond);
+
+    xmutex_unlock(process_lock->mutex);
+#endif
+}
+
+
+static void
+AppLock(XtAppContext app)
+{
+    LockPtr app_lock = app->lock_info;
+#ifdef _XMUTEX_NESTS
+    xmutex_lock(app_lock->mutex);
+    app_lock->level++;
+#else
+    xthread_t self = xthread_self();
+    xmutex_lock(app_lock->mutex);
+    if (!xthread_have_id(app_lock->holder)) {
+	app_lock->holder = self;
+    	assert(xthread_equal(app_lock->holder, self));
+	xmutex_unlock(app_lock->mutex);
+	return;
+    }
+    if (xthread_equal(app_lock->holder, self)) {
+	app_lock->level++;
+	xmutex_unlock(app_lock->mutex);
+	return;
+    }
+    while(xthread_have_id(app_lock->holder)) {
+	xcondition_wait(app_lock->cond, app_lock->mutex);
+    }
+    app_lock->holder = self;
+    assert(xthread_equal(app_lock->holder, self));
+    xmutex_unlock(app_lock->mutex);
+#endif
+}
+
+static void
+AppUnlock(XtAppContext app)
+{
+    LockPtr app_lock = app->lock_info;
+#ifdef _XMUTEX_NESTS
+    app_lock->level--;
+    xmutex_unlock(app_lock->mutex);
+#else
+    xthread_t self;
+
+    self = xthread_self();
+    xmutex_lock(app_lock->mutex);
+    assert(xthread_equal(app_lock->holder, self));
+    if (app_lock->level != 0) {
+	app_lock->level--;
+	xmutex_unlock(app_lock->mutex);
+	return;
+    }
+    xthread_clear_id(app_lock->holder);
+    xcondition_signal(app_lock->cond);
+    xmutex_unlock(app_lock->mutex);
+#endif
+}
+
+static void
+YieldAppLock(
+    XtAppContext app,
+    Boolean* push_thread,
+    Boolean* pushed_thread,
+    int* level)
+{
+    LockPtr app_lock = app->lock_info;
+    xthread_t self = xthread_self();
+#ifndef _XMUTEX_NESTS
+    xmutex_lock(app_lock->mutex);
+    assert(xthread_equal(app_lock->holder, self));
+#endif
+    *level = app_lock->level;
+    if (*push_thread) {
+	*push_thread = FALSE;
+	*pushed_thread = TRUE;
+
+	if(app_lock->stack.sp == (int)app_lock->stack.size - 1) {
+	    unsigned ii;
+	    app_lock->stack.st = (struct _Tstack *)
+		XtRealloc ((char *)app_lock->stack.st,
+		(app_lock->stack.size + STACK_INCR) * sizeof (struct _Tstack));
+	    ii = app_lock->stack.size;
+	    app_lock->stack.size += STACK_INCR;
+	    for ( ; ii < app_lock->stack.size; ii++) {
+		app_lock->stack.st[ii].c = xcondition_malloc();
+		xcondition_init(app_lock->stack.st[ii].c);
+	    }
+	}
+	app_lock->stack.st[++(app_lock->stack.sp)].t = self;
+    }
+#ifdef _XMUTEX_NESTS
+    while (app_lock->level > 0) {
+	app_lock->level--;
+	xmutex_unlock(app_lock->mutex);
+    }
+#else
+    xcondition_signal(app_lock->cond);
+    app_lock->level = 0;
+    xthread_clear_id(app_lock->holder);
+    xmutex_unlock(app_lock->mutex);
+#endif
+}
+
+static void
+RestoreAppLock(
+    XtAppContext app,
+    int level,
+    Boolean* pushed_thread)
+{
+    LockPtr app_lock = app->lock_info;
+    xthread_t self = xthread_self();
+    xmutex_lock(app_lock->mutex);
+#ifdef _XMUTEX_NESTS
+    app_lock->level++;
+#else
+    while(xthread_have_id(app_lock->holder)) {
+	xcondition_wait(app_lock->cond, app_lock->mutex);
+    }
+#endif
+    if (!xthread_equal(app_lock->stack.st[app_lock->stack.sp].t, self)) {
+	int ii;
+	for (ii = app_lock->stack.sp - 1; ii >= 0; ii--) {
+	    if (xthread_equal(app_lock->stack.st[ii].t, self)) {
+		xcondition_wait(app_lock->stack.st[ii].c, app_lock->mutex);
+		break;
+	    }
+	}
+#ifndef _XMUTEX_NESTS
+	while(xthread_have_id(app_lock->holder)) {
+	    xcondition_wait(app_lock->cond, app_lock->mutex);
+	}
+#endif
+    }
+#ifdef _XMUTEX_NESTS
+    while (app_lock->level < level) {
+	xmutex_lock(app_lock->mutex);
+	app_lock->level++;
+    }
+#else
+    app_lock->holder = self;
+    app_lock->level = level;
+    assert(xthread_equal(app_lock->holder, self));
+#endif
+    if (*pushed_thread) {
+	*pushed_thread = FALSE;
+	(app_lock->stack.sp)--;
+	if (app_lock->stack.sp >= 0) {
+	    xcondition_signal (app_lock->stack.st[app_lock->stack.sp].c);
+	}
+    }
+#ifndef _XMUTEX_NESTS
+    xmutex_unlock(app_lock->mutex);
+#endif
+}
+
+static void
+FreeAppLock(XtAppContext app)
+{
+    unsigned ii;
+    LockPtr app_lock = app->lock_info;
+
+    if(app_lock) {
+	xmutex_clear(app_lock->mutex);
+	xmutex_free(app_lock->mutex);
+#ifndef _XMUTEX_NESTS
+	xcondition_clear(app_lock->cond);
+	xcondition_free(app_lock->cond);
+#endif
+	if(app_lock->stack.st != (struct _Tstack *)NULL) {
+	    for (ii = 0; ii < app_lock->stack.size; ii++) {
+		xcondition_clear(app_lock->stack.st[ii].c);
+		xcondition_free(app_lock->stack.st[ii].c);
+	    }
+	    XtFree((char *)app_lock->stack.st);
+	}
+	XtFree((char *)app_lock);
+	app->lock_info = NULL;
+    }
+}
+
+static void
+InitAppLock(XtAppContext app)
+{
+    int ii;
+    LockPtr app_lock;
+
+    app->lock = AppLock;
+    app->unlock = AppUnlock;
+    app->yield_lock = YieldAppLock;
+    app->restore_lock = RestoreAppLock;
+    app->free_lock = FreeAppLock;
+
+    app_lock = app->lock_info = XtNew(LockRec);
+    app_lock->mutex = xmutex_malloc();
+    xmutex_init(app_lock->mutex);
+    app_lock->level = 0;
+#ifndef _XMUTEX_NESTS
+    app_lock->cond = xcondition_malloc();
+    xcondition_init(app_lock->cond);
+    xthread_clear_id(app_lock->holder);
+#endif
+    app_lock->stack.size = STACK_INCR;
+    app_lock->stack.sp = -1;
+    app_lock->stack.st =
+	(struct _Tstack *)__XtMalloc(sizeof(struct _Tstack)*STACK_INCR);
+    for (ii = 0; ii < STACK_INCR; ii++) {
+	app_lock->stack.st[ii].c = xcondition_malloc();
+	xcondition_init(app_lock->stack.st[ii].c);
+    }
+}
+
+#endif /* defined(XTHREADS) */
+
+void XtAppLock(XtAppContext app)
+{
+#ifdef XTHREADS
+    if(app->lock)
+	(*app->lock)(app);
+#endif
+}
+
+void XtAppUnlock(XtAppContext app)
+{
+#ifdef XTHREADS
+    if(app->unlock)
+	(*app->unlock)(app);
+#endif
+}
+
+void XtProcessLock(void)
+{
+#ifdef XTHREADS
+    if(_XtProcessLock)
+	(*_XtProcessLock)();
+#endif
+}
+
+void XtProcessUnlock(void)
+{
+#ifdef XTHREADS
+    if(_XtProcessUnlock)
+	(*_XtProcessUnlock)();
+#endif
+}
+
+Boolean XtToolkitThreadInitialize(void)
+{
+#ifdef XTHREADS
+    if (_XtProcessLock == NULL) {
+#ifdef xthread_init
+	xthread_init();
+#endif
+	InitProcessLock();
+	_XtProcessLock = ProcessLock;
+	_XtProcessUnlock = ProcessUnlock;
+	_XtInitAppLock = InitAppLock;
+    }
+    return True;
+#else
+    return False;
+#endif
+}
+
diff --git a/libXt/src/VarCreate.c b/libXt/src/VarCreate.c
index e588e46f4..9821fc124 100644
--- a/libXt/src/VarCreate.c
+++ b/libXt/src/VarCreate.c
@@ -1,394 +1,394 @@
-/*

-

-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 1885, 1986, 1987, 1988, 1989, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "Shell.h"

-#include "VarargsI.h"

-#include "CreateI.h"

-

-#if (defined(SUNSHLIB) || defined(AIXSHLIB)) && defined(SHAREDCODE)

-#define XtToolkitInitialize _XtToolkitInitialize

-#endif /* (SUNSHLIB || AIXSHLIB) && SHAREDCODE */

-

-static Widget

-_XtVaCreateWidget(

-    String      name,

-    WidgetClass widget_class,

-    Widget      parent,

-    va_list     var,

-    int		count)

-{

-    register Widget         widget;

-    XtTypedArgList	    typed_args = NULL;

-    Cardinal		    num_args;

-

-    _XtVaToTypedArgList(var, count, &typed_args, &num_args);

-

-    widget = _XtCreateWidget(name, widget_class, parent, (ArgList)NULL, 

-		    (Cardinal)0, typed_args, num_args);

-

-    if (typed_args != NULL) {

-        XtFree((XtPointer)typed_args);

-    }    

-

-    return widget;

-}

-

-

-Widget

-XtVaCreateWidget(

-    _Xconst char* name,

-    WidgetClass widget_class,

-    Widget parent,

-    ...)

-{

-    va_list                 var;

-    register Widget         widget;

-    int			    total_count, typed_count;

-    WIDGET_TO_APPCON(parent);

-

-    LOCK_APP(app);

-    va_start(var,parent);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var,parent);

-    widget = _XtVaCreateWidget((String)name, widget_class, parent, var,

-				total_count);

-    va_end(var);

-    UNLOCK_APP(app);

-    return widget;

-}

-

-

-Widget

-XtVaCreateManagedWidget(

-    _Xconst char* name,

-    WidgetClass widget_class,

-    Widget parent,

-    ...)

-{

-    va_list		var;

-    register Widget	widget;

-    int			total_count, typed_count;

-    WIDGET_TO_APPCON(parent);

-

-    LOCK_APP(app);

-    va_start(var,parent);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var,parent);

-    widget = _XtVaCreateWidget((String)name, widget_class, parent, var,

-				total_count);

-    XtManageChild(widget);

-    va_end(var);

-    UNLOCK_APP(app);

-    return widget;

-}

-

-

-Widget

-XtVaAppCreateShell(

-    _Xconst char* name,

-    _Xconst char* class,

-    WidgetClass widget_class,

-    Display* display,

-    ...)

-{

-    va_list                 var;

-    register Widget         widget;

-    XtTypedArgList          typed_args = NULL;

-    Cardinal                num_args;

-    int			    total_count, typed_count;

-    DPY_TO_APPCON(display);

-

-    LOCK_APP(app);

-    va_start(var,display);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var,display);

-

-    _XtVaToTypedArgList(var, total_count, &typed_args, &num_args);

-    widget = _XtAppCreateShell((String)name, (String)class, widget_class,

-		display, (ArgList)NULL, (Cardinal)0, typed_args, num_args);

-    if (typed_args != NULL) {

-	XtFree((XtPointer)typed_args);

-    }

- 

-    va_end(var);

-    UNLOCK_APP(app);

-    return widget;

-}

-

-

-Widget

-XtVaCreatePopupShell(

-    _Xconst char* name,

-    WidgetClass widget_class,

-    Widget parent,

-    ...)

-{

-    va_list                 var;

-    register Widget         widget;

-    XtTypedArgList          typed_args = NULL;

-    Cardinal                num_args;

-    int			    total_count, typed_count;

-    WIDGET_TO_APPCON(parent);

-

-    LOCK_APP(app);

-    va_start(var,parent);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var,parent);

-

-    _XtVaToTypedArgList(var, total_count, &typed_args, &num_args);

-    widget = _XtCreatePopupShell((String)name, widget_class, parent,

-		(ArgList)NULL, (Cardinal)0, typed_args, num_args);

-    if (typed_args != NULL) {

-	XtFree((XtPointer)typed_args);

-    }

-

-    va_end(var);

-    UNLOCK_APP(app);

-    return widget;

-}

-

-void

-XtVaSetValues(Widget widget, ...)

-{

-    va_list                 var;

-    ArgList                 args = NULL;

-    Cardinal                num_args;

-    int			    total_count, typed_count;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    va_start(var,widget);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var,widget);

-

-    _XtVaToArgList(widget, var, total_count, &args, &num_args);

-    XtSetValues(widget, args, num_args);

-    _XtFreeArgList(args, total_count, typed_count);

-

-    UNLOCK_APP(app);

-    va_end(var);

-}

-

-

-void

-XtVaSetSubvalues(XtPointer base, XtResourceList resources, Cardinal num_resources, ...)

-{

-    va_list	var;

-    ArgList    	args;

-    Cardinal   	num_args;

-    int		total_count, typed_count;		

-

-    va_start(var, num_resources);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    if (typed_count != 0) {

-	XtWarning("XtVaTypedArg is not valid in XtVaSetSubvalues()\n");

-    }

-

-    va_start(var, num_resources);

-    _XtVaToArgList((Widget)NULL, var, total_count, &args, &num_args);

-

-    XtSetSubvalues(base, resources, num_resources, args, num_args);

-

-    if (num_args != 0) {

-        XtFree((XtPointer)args);

-    }    

-

-    va_end(var);

-}

-

-Widget

-_XtVaOpenApplication(

-    XtAppContext *app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescList options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    WidgetClass widget_class,

-    va_list var_args)

-{

-    XtAppContext app_con;

-    Display * dpy;

-    register int saved_argc = *argc_in_out;

-    Widget root;

-    String attr;

-    int count = 0;

-    XtTypedArgList typed_args;

-

-    XtToolkitInitialize(); /* cannot be moved into _XtAppInit */

-    

-    dpy = _XtAppInit(&app_con, (String)application_class, options, num_options,

-		     argc_in_out, &argv_in_out, fallback_resources);

-

-    typed_args = (XtTypedArgList) __XtMalloc((unsigned) sizeof(XtTypedArg));

-    attr = va_arg (var_args, String);

-    for(; attr != NULL; attr = va_arg (var_args, String)) {

-        if (strcmp(attr, XtVaTypedArg) == 0) {

-            typed_args[count].name = va_arg(var_args, String);

-            typed_args[count].type = va_arg(var_args, String);

-            typed_args[count].value = va_arg(var_args, XtArgVal);

-            typed_args[count].size = va_arg(var_args, int);

-        } else {

-	    typed_args[count].name = attr;

-	    typed_args[count].type = NULL;

-	    typed_args[count].value = va_arg(var_args, XtArgVal);

-	    typed_args[count].size = 0;

-        }

-	count++;

-	typed_args = (XtTypedArgList) 

-	    XtRealloc((char *) typed_args, 

-		       (unsigned) (count + 1) * sizeof(XtTypedArg));

-    }

-    typed_args[count].name = NULL;

-

-    va_end (var_args);

-

-    root =

-	XtVaAppCreateShell( NULL, application_class, 

-			    widget_class, dpy,

-			    XtNscreen, (XtArgVal)DefaultScreenOfDisplay(dpy),

-			    XtNargc, (XtArgVal)saved_argc,

-			    XtNargv, (XtArgVal)argv_in_out,

-			    XtVaNestedList, (XtVarArgsList)typed_args,

-			    NULL );

-   

-    if (app_context_return != NULL)

-	*app_context_return = app_con;

-

-    XtFree((XtPointer)typed_args);

-    XtFree((XtPointer)argv_in_out);

-    return(root);

-}

-

-Widget

-_XtVaAppInitialize(

-    XtAppContext *app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescList options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    va_list var_args)

-{

-    return _XtVaOpenApplication(app_context_return, application_class,

-				options, num_options,

-				argc_in_out, argv_in_out, fallback_resources,

-				applicationShellWidgetClass, var_args);

-}

-

-#if !((defined(SUNSHLIB) || defined(AIXSHLIB)) && defined(SHAREDCODE))

-

-/*

- * If not used as a shared library, we still need a front end to 

- * _XtVaOpenApplication and to _XtVaAppInitialize.

- */

-

-Widget

-XtVaOpenApplication(

-    XtAppContext *app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescList options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    WidgetClass widget_class,

-    ...)

-{

-    va_list	var;

-

-    va_start(var, widget_class);    

-    return _XtVaOpenApplication(app_context_return, (String)application_class,

-				options, num_options, argc_in_out, argv_in_out,

-				fallback_resources, widget_class, var);

-}

-

-Widget

-XtVaAppInitialize(

-    XtAppContext *app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescList options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    ...)

-{

-    va_list	var;

-

-    va_start(var, fallback_resources);    

-    return _XtVaOpenApplication(app_context_return, (String)application_class,

-				options, num_options, argc_in_out, argv_in_out,

-				fallback_resources,

-				applicationShellWidgetClass, var);

-}

-

-#endif /* !((SUNSHLIB || AIXSHLIB) && SHAREDCODE) */

-

+/*
+
+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 1885, 1986, 1987, 1988, 1989, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "Shell.h"
+#include "VarargsI.h"
+#include "CreateI.h"
+
+#if (defined(SUNSHLIB) || defined(AIXSHLIB)) && defined(SHAREDCODE)
+#define XtToolkitInitialize _XtToolkitInitialize
+#endif /* (SUNSHLIB || AIXSHLIB) && SHAREDCODE */
+
+static Widget
+_XtVaCreateWidget(
+    String      name,
+    WidgetClass widget_class,
+    Widget      parent,
+    va_list     var,
+    int		count)
+{
+    register Widget         widget;
+    XtTypedArgList	    typed_args = NULL;
+    Cardinal		    num_args;
+
+    _XtVaToTypedArgList(var, count, &typed_args, &num_args);
+
+    widget = _XtCreateWidget(name, widget_class, parent, (ArgList)NULL, 
+		    (Cardinal)0, typed_args, num_args);
+
+    if (typed_args != NULL) {
+        XtFree((XtPointer)typed_args);
+    }    
+
+    return widget;
+}
+
+
+Widget
+XtVaCreateWidget(
+    _Xconst char* name,
+    WidgetClass widget_class,
+    Widget parent,
+    ...)
+{
+    va_list                 var;
+    register Widget         widget;
+    int			    total_count, typed_count;
+    WIDGET_TO_APPCON(parent);
+
+    LOCK_APP(app);
+    va_start(var,parent);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var,parent);
+    widget = _XtVaCreateWidget((String)name, widget_class, parent, var,
+				total_count);
+    va_end(var);
+    UNLOCK_APP(app);
+    return widget;
+}
+
+
+Widget
+XtVaCreateManagedWidget(
+    _Xconst char* name,
+    WidgetClass widget_class,
+    Widget parent,
+    ...)
+{
+    va_list		var;
+    register Widget	widget;
+    int			total_count, typed_count;
+    WIDGET_TO_APPCON(parent);
+
+    LOCK_APP(app);
+    va_start(var,parent);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var,parent);
+    widget = _XtVaCreateWidget((String)name, widget_class, parent, var,
+				total_count);
+    XtManageChild(widget);
+    va_end(var);
+    UNLOCK_APP(app);
+    return widget;
+}
+
+
+Widget
+XtVaAppCreateShell(
+    _Xconst char* name,
+    _Xconst char* class,
+    WidgetClass widget_class,
+    Display* display,
+    ...)
+{
+    va_list                 var;
+    register Widget         widget;
+    XtTypedArgList          typed_args = NULL;
+    Cardinal                num_args;
+    int			    total_count, typed_count;
+    DPY_TO_APPCON(display);
+
+    LOCK_APP(app);
+    va_start(var,display);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var,display);
+
+    _XtVaToTypedArgList(var, total_count, &typed_args, &num_args);
+    widget = _XtAppCreateShell((String)name, (String)class, widget_class,
+		display, (ArgList)NULL, (Cardinal)0, typed_args, num_args);
+    if (typed_args != NULL) {
+	XtFree((XtPointer)typed_args);
+    }
+ 
+    va_end(var);
+    UNLOCK_APP(app);
+    return widget;
+}
+
+
+Widget
+XtVaCreatePopupShell(
+    _Xconst char* name,
+    WidgetClass widget_class,
+    Widget parent,
+    ...)
+{
+    va_list                 var;
+    register Widget         widget;
+    XtTypedArgList          typed_args = NULL;
+    Cardinal                num_args;
+    int			    total_count, typed_count;
+    WIDGET_TO_APPCON(parent);
+
+    LOCK_APP(app);
+    va_start(var,parent);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var,parent);
+
+    _XtVaToTypedArgList(var, total_count, &typed_args, &num_args);
+    widget = _XtCreatePopupShell((String)name, widget_class, parent,
+		(ArgList)NULL, (Cardinal)0, typed_args, num_args);
+    if (typed_args != NULL) {
+	XtFree((XtPointer)typed_args);
+    }
+
+    va_end(var);
+    UNLOCK_APP(app);
+    return widget;
+}
+
+void
+XtVaSetValues(Widget widget, ...)
+{
+    va_list                 var;
+    ArgList                 args = NULL;
+    Cardinal                num_args;
+    int			    total_count, typed_count;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    va_start(var,widget);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var,widget);
+
+    _XtVaToArgList(widget, var, total_count, &args, &num_args);
+    XtSetValues(widget, args, num_args);
+    _XtFreeArgList(args, total_count, typed_count);
+
+    UNLOCK_APP(app);
+    va_end(var);
+}
+
+
+void
+XtVaSetSubvalues(XtPointer base, XtResourceList resources, Cardinal num_resources, ...)
+{
+    va_list	var;
+    ArgList    	args;
+    Cardinal   	num_args;
+    int		total_count, typed_count;		
+
+    va_start(var, num_resources);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    if (typed_count != 0) {
+	XtWarning("XtVaTypedArg is not valid in XtVaSetSubvalues()\n");
+    }
+
+    va_start(var, num_resources);
+    _XtVaToArgList((Widget)NULL, var, total_count, &args, &num_args);
+
+    XtSetSubvalues(base, resources, num_resources, args, num_args);
+
+    if (num_args != 0) {
+        XtFree((XtPointer)args);
+    }    
+
+    va_end(var);
+}
+
+Widget
+_XtVaOpenApplication(
+    XtAppContext *app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescList options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    WidgetClass widget_class,
+    va_list var_args)
+{
+    XtAppContext app_con;
+    Display * dpy;
+    register int saved_argc = *argc_in_out;
+    Widget root;
+    String attr;
+    int count = 0;
+    XtTypedArgList typed_args;
+
+    XtToolkitInitialize(); /* cannot be moved into _XtAppInit */
+    
+    dpy = _XtAppInit(&app_con, (String)application_class, options, num_options,
+		     argc_in_out, &argv_in_out, fallback_resources);
+
+    typed_args = (XtTypedArgList) __XtMalloc((unsigned) sizeof(XtTypedArg));
+    attr = va_arg (var_args, String);
+    for(; attr != NULL; attr = va_arg (var_args, String)) {
+        if (strcmp(attr, XtVaTypedArg) == 0) {
+            typed_args[count].name = va_arg(var_args, String);
+            typed_args[count].type = va_arg(var_args, String);
+            typed_args[count].value = va_arg(var_args, XtArgVal);
+            typed_args[count].size = va_arg(var_args, int);
+        } else {
+	    typed_args[count].name = attr;
+	    typed_args[count].type = NULL;
+	    typed_args[count].value = va_arg(var_args, XtArgVal);
+	    typed_args[count].size = 0;
+        }
+	count++;
+	typed_args = (XtTypedArgList) 
+	    XtRealloc((char *) typed_args, 
+		       (unsigned) (count + 1) * sizeof(XtTypedArg));
+    }
+    typed_args[count].name = NULL;
+
+    va_end (var_args);
+
+    root =
+	XtVaAppCreateShell( NULL, application_class, 
+			    widget_class, dpy,
+			    XtNscreen, (XtArgVal)DefaultScreenOfDisplay(dpy),
+			    XtNargc, (XtArgVal)saved_argc,
+			    XtNargv, (XtArgVal)argv_in_out,
+			    XtVaNestedList, (XtVarArgsList)typed_args,
+			    NULL );
+   
+    if (app_context_return != NULL)
+	*app_context_return = app_con;
+
+    XtFree((XtPointer)typed_args);
+    XtFree((XtPointer)argv_in_out);
+    return(root);
+}
+
+Widget
+_XtVaAppInitialize(
+    XtAppContext *app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescList options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    va_list var_args)
+{
+    return _XtVaOpenApplication(app_context_return, application_class,
+				options, num_options,
+				argc_in_out, argv_in_out, fallback_resources,
+				applicationShellWidgetClass, var_args);
+}
+
+#if !((defined(SUNSHLIB) || defined(AIXSHLIB)) && defined(SHAREDCODE))
+
+/*
+ * If not used as a shared library, we still need a front end to 
+ * _XtVaOpenApplication and to _XtVaAppInitialize.
+ */
+
+Widget
+XtVaOpenApplication(
+    XtAppContext *app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescList options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    WidgetClass widget_class,
+    ...)
+{
+    va_list	var;
+
+    va_start(var, widget_class);    
+    return _XtVaOpenApplication(app_context_return, (String)application_class,
+				options, num_options, argc_in_out, argv_in_out,
+				fallback_resources, widget_class, var);
+}
+
+Widget
+XtVaAppInitialize(
+    XtAppContext *app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescList options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    ...)
+{
+    va_list	var;
+
+    va_start(var, fallback_resources);    
+    return _XtVaOpenApplication(app_context_return, (String)application_class,
+				options, num_options, argc_in_out, argv_in_out,
+				fallback_resources,
+				applicationShellWidgetClass, var);
+}
+
+#endif /* !((SUNSHLIB || AIXSHLIB) && SHAREDCODE) */
+
diff --git a/libXt/src/VarGet.c b/libXt/src/VarGet.c
index 4a3aa829c..7b4cea65d 100644
--- a/libXt/src/VarGet.c
+++ b/libXt/src/VarGet.c
@@ -1,313 +1,313 @@
-/*

-

-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 1985, 1986, 1987, 1988, 1989, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "VarargsI.h"

-#include "StringDefs.h"

-

-static String XtNxtGetTypedArg = "xtGetTypedArg";

-

-void

-XtVaGetSubresources(

-    Widget widget,

-    XtPointer base,

-    _Xconst char* name,

-    _Xconst char* class,

-    XtResourceList resources,

-    Cardinal num_resources,

-    ...)

-{

-    va_list                 var;

-    XtTypedArgList          args;

-    Cardinal                num_args;

-    int			    total_count, typed_count;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    va_start(var, num_resources);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var, num_resources);

-

-    _XtVaToTypedArgList(var, total_count, &args, &num_args);

-

-    _XtGetSubresources(widget, base, name, class, resources, num_resources,

-	NULL, 0, args, num_args);

-

-    if (num_args != 0) {

-	XtFree((XtPointer)args);

-    }

-

-    va_end(var);

-    UNLOCK_APP(app);

-}

-

-

-void

-XtVaGetApplicationResources(Widget widget, XtPointer base, XtResourceList resources, Cardinal num_resources, ...)

-{

-    va_list                 var;

-    XtTypedArgList          args;

-    Cardinal                num_args;

-    int			    total_count, typed_count;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    va_start(var,num_resources);

-    _XtCountVaList(var, &total_count, &typed_count);

-    va_end(var);

-

-    va_start(var,num_resources);

-

-    _XtVaToTypedArgList(var, total_count, &args, &num_args);

-

-    _XtGetApplicationResources(widget, base, resources, num_resources,

-	NULL, 0, args, num_args);

-

-    if (num_args != 0) {

-	XtFree((XtPointer)args);

-    }

-

-    va_end(var);

-    UNLOCK_APP(app);

-}

-

-

-static void

-GetTypedArg(

-    Widget              widget,

-    XtTypedArgList	typed_arg,

-    XtResourceList      resources,

-    Cardinal            num_resources)

-{

-    String              from_type = NULL;

-    Cardinal		from_size = 0;

-    XrmValue            from_val, to_val;

-    register Cardinal   i;

-    Arg			arg;

-    XtPointer		value;

-

-    /* note we presume that the XtResourceList to be un-compiled */

-

-    for (i = 0; i < num_resources; i++) {

-        if (StringToName(typed_arg->name) == StringToName(resources[i].resource_name)) {

-            from_type = resources[i].resource_type;

-	    from_size = resources[i].resource_size;

-            break;

-        }

-    }

-

-    if (i == num_resources) {

-	XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-            "unknownType", XtNxtGetTypedArg, XtCXtToolkitError,

-            "Unable to find type of resource for conversion",

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

- 	return;

-    }

-

-    value = ALLOCATE_LOCAL(from_size);

-    if (value == NULL) _XtAllocError(NULL);

-    XtSetArg(arg, typed_arg->name, value);

-    XtGetValues(widget, &arg, 1);

-

-    from_val.size = from_size;

-    from_val.addr = (XPointer)value;

-    to_val.addr = (XPointer)typed_arg->value;

-    to_val.size = typed_arg->size;

-

-    if (!XtConvertAndStore(widget, from_type, &from_val,

-			   typed_arg->type, &to_val)) {

-	if (to_val.size > (unsigned) typed_arg->size) {

-	    String params[2];

-	    Cardinal num_params = 2;

-	    params[0] = typed_arg->type;

-	    params[1] = XtName(widget);

-	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"insufficientSpace", XtNxtGetTypedArg, XtCXtToolkitError,

-		"Insufficient space for converted type '%s' in widget '%s'",

-		params, &num_params);

-	}

-	else {

-	    String params[3];

-	    Cardinal num_params = 3;

-	    params[0] = from_type;

-	    params[1] = typed_arg->type;

-	    params[2] = XtName(widget);

-	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-		"conversionFailed", XtNxtGetTypedArg, XtCXtToolkitError,

-		"Type conversion (%s to %s) failed for widget '%s'",

-		params, &num_params);

-	}

-    }

-    DEALLOCATE_LOCAL(value);

-}

-

-static int

-GetNestedArg(

-    Widget              widget,

-    XtTypedArgList	avlist,

-    ArgList             args,

-    XtResourceList      resources,

-    Cardinal            num_resources)

-{

-    int         count = 0;

-

-    for (; avlist->name != NULL; avlist++) {

-        if (avlist->type != NULL) {

-	    GetTypedArg(widget, avlist, resources, num_resources);

-        } else if(strcmp(avlist->name, XtVaNestedList) == 0) {

-            count += GetNestedArg(widget, (XtTypedArgList)avlist->value,

-				     args, resources, num_resources);

-        } else {

-            (args+count)->name = avlist->name;

-            (args+count)->value = avlist->value;

-            ++count;

-        }

-    }

-

-    return(count);

-}

-

-void

-XtVaGetValues(Widget widget, ...)

-{

-    va_list		var;

-    String      	attr;

-    ArgList    		args;

-    XtTypedArg		typed_arg;

-    XtResourceList      resources = (XtResourceList)NULL;

-    Cardinal            num_resources;

-    int			count, total_count, typed_count;

-    WIDGET_TO_APPCON(widget);

-

-    LOCK_APP(app);

-    va_start(var,widget);

-

-    _XtCountVaList(var, &total_count, &typed_count);

-

-    if (total_count != typed_count) {

-        args = (ArgList)__XtMalloc((unsigned)((total_count - typed_count)

-				* sizeof(Arg)));

-    }

-    else args = NULL;		/* for lint; really unused */

-    va_end(var);

-

-    va_start(var,widget);

-    for(attr = va_arg(var, String), count = 0 ; attr != NULL;

-			attr = va_arg(var, String)) {

-	if (strcmp(attr, XtVaTypedArg) == 0) {

-	    typed_arg.name = va_arg(var, String);

-	    typed_arg.type = va_arg(var, String);

-	    typed_arg.value = va_arg(var, XtArgVal);

-	    typed_arg.size = va_arg(var, int);

-

-	    if (resources == NULL) {

-		XtGetResourceList(XtClass(widget), &resources,&num_resources);

-	    }

-

-	    GetTypedArg(widget, &typed_arg, resources, num_resources);

-	} else if (strcmp(attr, XtVaNestedList) == 0) {

-	    if (resources == NULL) {

-		XtGetResourceList(XtClass(widget),&resources, &num_resources);

-	    }

-

-	    count += GetNestedArg(widget, va_arg(var, XtTypedArgList),

-				     (args+count), resources, num_resources);

-	} else {

-	    args[count].name = attr;

-	    args[count].value = va_arg(var, XtArgVal);

-	    count ++;

-	}

-    }

-    va_end(var);

-

-    if (resources != (XtResourceList)NULL) {

-	XtFree((XtPointer)resources);

-    }

-

-    if (total_count != typed_count) {

-	XtGetValues(widget, args, count);

-	XtFree((XtPointer)args);

-    }

-    UNLOCK_APP(app);

-}

-

-void

-XtVaGetSubvalues(XtPointer base,XtResourceList  resources, Cardinal num_resources, ...)

-{

-    va_list	var;

-    ArgList    	args;

-    Cardinal   	num_args;

-    int		total_count, typed_count;

-

-    va_start(var,num_resources);

-

-    _XtCountVaList(var, &total_count, &typed_count);

-

-    if (typed_count != 0) {

-	XtWarning("XtVaTypedArg is an invalid argument to XtVaGetSubvalues()\n");

-    }

-    va_end(var);

-

-    va_start(var,num_resources);

-    _XtVaToArgList((Widget)NULL, var, total_count, &args, &num_args);

-    va_end(var);

-

-    XtGetSubvalues(base, resources, num_resources, args, num_args);

-

-    if (num_args != 0) {

-        XtFree((XtPointer)args);

-    }

-}

+/*
+
+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 1985, 1986, 1987, 1988, 1989, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "VarargsI.h"
+#include "StringDefs.h"
+
+static String XtNxtGetTypedArg = "xtGetTypedArg";
+
+void
+XtVaGetSubresources(
+    Widget widget,
+    XtPointer base,
+    _Xconst char* name,
+    _Xconst char* class,
+    XtResourceList resources,
+    Cardinal num_resources,
+    ...)
+{
+    va_list                 var;
+    XtTypedArgList          args;
+    Cardinal                num_args;
+    int			    total_count, typed_count;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    va_start(var, num_resources);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var, num_resources);
+
+    _XtVaToTypedArgList(var, total_count, &args, &num_args);
+
+    _XtGetSubresources(widget, base, name, class, resources, num_resources,
+	NULL, 0, args, num_args);
+
+    if (num_args != 0) {
+	XtFree((XtPointer)args);
+    }
+
+    va_end(var);
+    UNLOCK_APP(app);
+}
+
+
+void
+XtVaGetApplicationResources(Widget widget, XtPointer base, XtResourceList resources, Cardinal num_resources, ...)
+{
+    va_list                 var;
+    XtTypedArgList          args;
+    Cardinal                num_args;
+    int			    total_count, typed_count;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    va_start(var,num_resources);
+    _XtCountVaList(var, &total_count, &typed_count);
+    va_end(var);
+
+    va_start(var,num_resources);
+
+    _XtVaToTypedArgList(var, total_count, &args, &num_args);
+
+    _XtGetApplicationResources(widget, base, resources, num_resources,
+	NULL, 0, args, num_args);
+
+    if (num_args != 0) {
+	XtFree((XtPointer)args);
+    }
+
+    va_end(var);
+    UNLOCK_APP(app);
+}
+
+
+static void
+GetTypedArg(
+    Widget              widget,
+    XtTypedArgList	typed_arg,
+    XtResourceList      resources,
+    Cardinal            num_resources)
+{
+    String              from_type = NULL;
+    Cardinal		from_size = 0;
+    XrmValue            from_val, to_val;
+    register Cardinal   i;
+    Arg			arg;
+    XtPointer		value;
+
+    /* note we presume that the XtResourceList to be un-compiled */
+
+    for (i = 0; i < num_resources; i++) {
+        if (StringToName(typed_arg->name) == StringToName(resources[i].resource_name)) {
+            from_type = resources[i].resource_type;
+	    from_size = resources[i].resource_size;
+            break;
+        }
+    }
+
+    if (i == num_resources) {
+	XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+            "unknownType", XtNxtGetTypedArg, XtCXtToolkitError,
+            "Unable to find type of resource for conversion",
+            (String *)NULL, (Cardinal *)NULL);
+ 	return;
+    }
+
+    value = ALLOCATE_LOCAL(from_size);
+    if (value == NULL) _XtAllocError(NULL);
+    XtSetArg(arg, typed_arg->name, value);
+    XtGetValues(widget, &arg, 1);
+
+    from_val.size = from_size;
+    from_val.addr = (XPointer)value;
+    to_val.addr = (XPointer)typed_arg->value;
+    to_val.size = typed_arg->size;
+
+    if (!XtConvertAndStore(widget, from_type, &from_val,
+			   typed_arg->type, &to_val)) {
+	if (to_val.size > (unsigned) typed_arg->size) {
+	    String params[2];
+	    Cardinal num_params = 2;
+	    params[0] = typed_arg->type;
+	    params[1] = XtName(widget);
+	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"insufficientSpace", XtNxtGetTypedArg, XtCXtToolkitError,
+		"Insufficient space for converted type '%s' in widget '%s'",
+		params, &num_params);
+	}
+	else {
+	    String params[3];
+	    Cardinal num_params = 3;
+	    params[0] = from_type;
+	    params[1] = typed_arg->type;
+	    params[2] = XtName(widget);
+	    XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+		"conversionFailed", XtNxtGetTypedArg, XtCXtToolkitError,
+		"Type conversion (%s to %s) failed for widget '%s'",
+		params, &num_params);
+	}
+    }
+    DEALLOCATE_LOCAL(value);
+}
+
+static int
+GetNestedArg(
+    Widget              widget,
+    XtTypedArgList	avlist,
+    ArgList             args,
+    XtResourceList      resources,
+    Cardinal            num_resources)
+{
+    int         count = 0;
+
+    for (; avlist->name != NULL; avlist++) {
+        if (avlist->type != NULL) {
+	    GetTypedArg(widget, avlist, resources, num_resources);
+        } else if(strcmp(avlist->name, XtVaNestedList) == 0) {
+            count += GetNestedArg(widget, (XtTypedArgList)avlist->value,
+				     args, resources, num_resources);
+        } else {
+            (args+count)->name = avlist->name;
+            (args+count)->value = avlist->value;
+            ++count;
+        }
+    }
+
+    return(count);
+}
+
+void
+XtVaGetValues(Widget widget, ...)
+{
+    va_list		var;
+    String      	attr;
+    ArgList    		args;
+    XtTypedArg		typed_arg;
+    XtResourceList      resources = (XtResourceList)NULL;
+    Cardinal            num_resources;
+    int			count, total_count, typed_count;
+    WIDGET_TO_APPCON(widget);
+
+    LOCK_APP(app);
+    va_start(var,widget);
+
+    _XtCountVaList(var, &total_count, &typed_count);
+
+    if (total_count != typed_count) {
+        args = (ArgList)__XtMalloc((unsigned)((total_count - typed_count)
+				* sizeof(Arg)));
+    }
+    else args = NULL;		/* for lint; really unused */
+    va_end(var);
+
+    va_start(var,widget);
+    for(attr = va_arg(var, String), count = 0 ; attr != NULL;
+			attr = va_arg(var, String)) {
+	if (strcmp(attr, XtVaTypedArg) == 0) {
+	    typed_arg.name = va_arg(var, String);
+	    typed_arg.type = va_arg(var, String);
+	    typed_arg.value = va_arg(var, XtArgVal);
+	    typed_arg.size = va_arg(var, int);
+
+	    if (resources == NULL) {
+		XtGetResourceList(XtClass(widget), &resources,&num_resources);
+	    }
+
+	    GetTypedArg(widget, &typed_arg, resources, num_resources);
+	} else if (strcmp(attr, XtVaNestedList) == 0) {
+	    if (resources == NULL) {
+		XtGetResourceList(XtClass(widget),&resources, &num_resources);
+	    }
+
+	    count += GetNestedArg(widget, va_arg(var, XtTypedArgList),
+				     (args+count), resources, num_resources);
+	} else {
+	    args[count].name = attr;
+	    args[count].value = va_arg(var, XtArgVal);
+	    count ++;
+	}
+    }
+    va_end(var);
+
+    if (resources != (XtResourceList)NULL) {
+	XtFree((XtPointer)resources);
+    }
+
+    if (total_count != typed_count) {
+	XtGetValues(widget, args, count);
+	XtFree((XtPointer)args);
+    }
+    UNLOCK_APP(app);
+}
+
+void
+XtVaGetSubvalues(XtPointer base,XtResourceList  resources, Cardinal num_resources, ...)
+{
+    va_list	var;
+    ArgList    	args;
+    Cardinal   	num_args;
+    int		total_count, typed_count;
+
+    va_start(var,num_resources);
+
+    _XtCountVaList(var, &total_count, &typed_count);
+
+    if (typed_count != 0) {
+	XtWarning("XtVaTypedArg is an invalid argument to XtVaGetSubvalues()\n");
+    }
+    va_end(var);
+
+    va_start(var,num_resources);
+    _XtVaToArgList((Widget)NULL, var, total_count, &args, &num_args);
+    va_end(var);
+
+    XtGetSubvalues(base, resources, num_resources, args, num_args);
+
+    if (num_args != 0) {
+        XtFree((XtPointer)args);
+    }
+}
diff --git a/libXt/src/Varargs.c b/libXt/src/Varargs.c
index 30f0bad34..6c9f9ee5f 100644
--- a/libXt/src/Varargs.c
+++ b/libXt/src/Varargs.c
@@ -1,515 +1,515 @@
-/*

-

-Copyright 1985, 1986, 1987, 1988, 1989, 1994, 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 <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "VarargsI.h"

-#include "StringDefs.h"

-

-static String XtNxtConvertVarToArgList = "xtConvertVarToArgList";

-

-/*

- *    Given a nested list, _XtCountNestedList() returns counts of the

- *    total number of attribute-value pairs and the count of those

- *    attributes that are typed. The list is counted recursively.

- */

-static  void

-_XtCountNestedList(

-    XtTypedArgList  avlist,

-    int             *total_count,

-    int             *typed_count)

-{

-    for (; avlist->name != NULL; avlist++) {

-        if (strcmp(avlist->name, XtVaNestedList) == 0) {

-            _XtCountNestedList((XtTypedArgList)avlist->value, total_count,

-                	       typed_count);

-        } else {

-            if (avlist->type != NULL) {

-                ++(*typed_count);

-            }

-            ++(*total_count);

-        }

-    }

-}

-

-

-/*

- *    Given a variable length attribute-value list, _XtCountVaList()

- *    returns counts of the total number of attribute-value pairs,

- *    and the count of the number of those attributes that are typed.

- *    The list is counted recursively.

- */

-void

-_XtCountVaList(va_list var, int* total_count, int* typed_count)

-{

-    String          attr;

-

-    *total_count = 0;

-    *typed_count = 0;

-

-    for(attr = va_arg(var, String) ; attr != NULL;

-                        attr = va_arg(var, String)) {

-        if (strcmp(attr, XtVaTypedArg) == 0) {

-            (void)va_arg(var, String);

-            (void)va_arg(var, String);

-            (void)va_arg(var, XtArgVal);

-            (void)va_arg(var, int);

-            ++(*total_count);

-            ++(*typed_count);

-        } else if (strcmp(attr, XtVaNestedList) == 0) {

-            _XtCountNestedList(va_arg(var, XtTypedArgList), total_count,

-                typed_count);

-        } else {

-            (void)va_arg(var, XtArgVal);

-            ++(*total_count);

-	}

-    }

-}

-

-

-/*

- *   Given a variable length attribute-value list, XtVaCreateArgsList()

- *   constructs an attribute-value list of type XtTypedArgList and

- *   returns the list.

- */

-XtVarArgsList

-XtVaCreateArgsList(XtPointer unused, ...)

-{

-    va_list var;

-    XtTypedArgList  avlist;

-    int		    count = 0;

-    String	    attr;

-

-    /*

-     * Count the number of attribute-value pairs in the list.

-     * Note: The count is required only to allocate enough space to store

-     * the list. Therefore nested lists are not counted recursively.

-     */

-    va_start(var,unused);

-    for(attr = va_arg(var, String) ; attr != NULL;

-                        attr = va_arg(var, String)) {

-        ++count;

-        if (strcmp(attr, XtVaTypedArg) == 0) {

-            (void)va_arg(var, String);

-            (void)va_arg(var, String);

-            (void)va_arg(var, XtArgVal);

-            (void)va_arg(var, int);

-        } else {

-            (void)va_arg(var, XtArgVal);

-        }

-    }

-    va_end(var);

-

-    va_start(var,unused);

-    avlist = _XtVaCreateTypedArgList(var, count);

-    va_end(var);

-    return (XtVarArgsList)avlist;

-}

-

-

-XtTypedArgList _XtVaCreateTypedArgList(va_list var, register int count)

-{

-    String	    attr;

-    XtTypedArgList  avlist;

-

-    avlist = (XtTypedArgList)

-		__XtCalloc((int)count + 1, (unsigned)sizeof(XtTypedArg));

-

-    for(attr = va_arg(var, String), count = 0; attr != NULL;

-		attr = va_arg(var, String)) {

-	if (strcmp(attr, XtVaTypedArg) == 0) {

-	    avlist[count].name = va_arg(var, String);

-	    avlist[count].type = va_arg(var, String);

-	    avlist[count].value = va_arg(var, XtArgVal);

-	    avlist[count].size = va_arg(var, int);

-	} else {

-	    avlist[count].name = attr;

-	    avlist[count].type = NULL;

-	    avlist[count].value = va_arg(var, XtArgVal);

-	}

-	++count;

-    }

-    avlist[count].name = NULL;

-

-    return avlist;

-}

-

-

-/*

- *    TypedArgToArg() invokes a resource converter to convert the

- *    passed typed arg into a name/value pair and stores the name/value

- *    pair in the passed Arg structure.  If memory is allocated for the

- *    converted value, the address is returned in the value field of

- *    memory_return; otherwise that field is NULL.  The function returns

- *    1 if the conversion succeeded and 0 if the conversion failed.

- */

-static int

-TypedArgToArg(

-    Widget              widget,

-    XtTypedArgList      typed_arg,

-    ArgList             arg_return,

-    XtResourceList      resources,

-    Cardinal            num_resources,

-    ArgList		memory_return)

-{

-    String              to_type = NULL;

-    XrmValue            from_val, to_val;

-

-

-    if (widget == NULL) {

-        XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-            "nullWidget", XtNxtConvertVarToArgList, XtCXtToolkitError,

-	    "XtVaTypedArg conversion needs non-NULL widget handle",

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

-        return(0);

-    }

-

-    /* again we assume that the XtResourceList is un-compiled */

-

-    for (; num_resources--; resources++)

-	if (strcmp(typed_arg->name, resources->resource_name) == 0) {

-	    to_type = resources->resource_type;

-	    break;

-	}

-

-    if (to_type == NULL) {

-        XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-            "unknownType", XtNxtConvertVarToArgList, XtCXtToolkitError,

-            "Unable to find type of resource for conversion",

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

-        return(0);

-    }

-

-    to_val.addr = NULL;

-    from_val.size = typed_arg->size;

-    if ((strcmp(typed_arg->type, XtRString) == 0) ||

-            ((unsigned) typed_arg->size > sizeof(XtArgVal))) {

-        from_val.addr = (XPointer)typed_arg->value;

-    } else {

-            from_val.addr = (XPointer)&typed_arg->value;

-    }

-

-    LOCK_PROCESS;

-    XtConvertAndStore(widget, typed_arg->type, &from_val, to_type, &to_val);

-

-    if (to_val.addr == NULL) {

-	UNLOCK_PROCESS;

-        XtAppWarningMsg(XtWidgetToApplicationContext(widget),

-            "conversionFailed", XtNxtConvertVarToArgList, XtCXtToolkitError,

-            "Type conversion failed", (String *)NULL, (Cardinal *)NULL);

-        return(0);

-    }

-

-    arg_return->name = typed_arg->name;

-    memory_return->value = (XtArgVal) NULL;

-

-    if (strcmp(to_type, XtRString) == 0) {

-	arg_return->value = (XtArgVal) to_val.addr;

-    }

-    else {

-	if (to_val.size == sizeof(long))

-	    arg_return->value = (XtArgVal) *(long *)to_val.addr;

-	else if (to_val.size == sizeof(short))

-	    arg_return->value = (XtArgVal) *(short *)to_val.addr;

-	else if (to_val.size == sizeof(char))

-	    arg_return->value = (XtArgVal) *(char *)to_val.addr;

-	else if (to_val.size == sizeof(XtArgVal))

-	    arg_return->value = *(XtArgVal *)to_val.addr;

-	else if (to_val.size > sizeof(XtArgVal)) {

-	    arg_return->value = (XtArgVal) __XtMalloc(to_val.size);

-	    memory_return->value = (XtArgVal)

-		memcpy((void *)arg_return->value, to_val.addr, to_val.size);

-	}

-    }

-    UNLOCK_PROCESS;

-

-    return(1);

-}

-

-

-/*

- *    NestedArgtoArg() converts the passed nested list into

- *    an ArgList/count.

- */

-static int

-NestedArgtoArg(

-    Widget              widget,

-    XtTypedArgList      avlist,

-    ArgList             args,

-    XtResourceList      resources,

-    Cardinal            num_resources,

-    ArgList		memory_return)

-{

-    int         count = 0;

-

-    for (; avlist->name != NULL; avlist++) {

-        if (avlist->type != NULL) {

-            /* If widget is NULL, the typed arg is ignored */

-            if (widget != NULL) {

-                /* this is a typed arg */

-                count += TypedArgToArg(widget, avlist, (args+count),

-					  resources, num_resources,

-					  (memory_return+count));

-            }

-        } else if (strcmp(avlist->name, XtVaNestedList) == 0) {

-            count += NestedArgtoArg(widget, (XtTypedArgList)avlist->value,

-				       (args+count), resources, num_resources,

-				       (memory_return+count));

-        } else {

-            (args+count)->name = avlist->name;

-            (args+count)->value = avlist->value;

-            ++count;

-        }

-    }

-

-    return(count);

-}

-

-/*

- * Free memory allocated through _XtVaToArgList.  The actual args array

- * size is expected to be total_count * 2, where total_count is the number

- * of elements needed for resource representations.  The lower half of the

- * array contains pairs of resource names and values as usual.  For each

- * element [n] in the lower half of the array, the value field of the

- * corresponding element [n + total_count] in the upper half of the array

- * has been pressed into service in order to note whether the resource value

- * is a pointer to memory that was allocated in TypedArgToArg.  In the

- * upper half, if the value field is not NULL, it contains the address of

- * memory which should now be freed.  That memory could have been allocated

- * only as a result of the conversion of typed arguments.  Therefore, if

- * there were no typed arguments in the original varargs, there is no need

- * to examine the upper half of the array.  In the choice of data structure

- * to make this representation, priority was given to the wish to retrofit

- * the release of memory around the existing signature of _XtVaToArgList.

- */

-void

-_XtFreeArgList(

-    ArgList	args,	     /* as returned by _XtVaToArgList */

-    int		total_count, /*  argument count returned by _XtCountVaList */

-    int 	typed_count) /* typed arg count returned by _XtCountVaList */

-{

-    ArgList p;

-

-    if (args) {

-	if (typed_count)

-	    for (p = args + total_count; total_count--; ++p) {

-		XtFree((char *)p->value);

-	    }

-	XtFree((char *)args);

-    }

-}

-

-

-static void GetResources(Widget widget, XtResourceList *res_list,

-			 Cardinal *number);

-

-

-/*

- *    Given a variable argument list, _XtVaToArgList() returns the

- *    equivalent ArgList and count. _XtVaToArgList() handles nested

- *    lists and typed arguments.  If typed arguments are present, the

- *    ArgList should be freed with _XtFreeArgList.

- */

-void

-_XtVaToArgList(

-    Widget		widget,

-    va_list     	var,

-    int			max_count,

-    ArgList		*args_return,

-    Cardinal		*num_args_return)

-{

-    String		attr;

-    int			count;

-    ArgList		args = (ArgList)NULL;

-    XtTypedArg		typed_arg;

-    XtResourceList	resources = (XtResourceList)NULL;

-    Cardinal		num_resources;

-    Boolean		fetched_resource_list = False;

-

-    if (max_count  == 0) {

-	*num_args_return = 0;

-	*args_return = (ArgList)NULL;

-	return;

-    }

-

-    args = (ArgList)__XtMalloc((unsigned)(max_count * 2 * sizeof(Arg)));

-    for (count = max_count * 2; --count >= 0; )

-	args[count].value = (XtArgVal) NULL;

-    count = 0;

-

-    for(attr = va_arg(var, String) ; attr != NULL;

-			attr = va_arg(var, String)) {

-	if (strcmp(attr, XtVaTypedArg) == 0) {

-	    typed_arg.name = va_arg(var, String);

-	    typed_arg.type = va_arg(var, String);

-	    typed_arg.value = va_arg(var, XtArgVal);

-	    typed_arg.size = va_arg(var, int);

-

-	    /* if widget is NULL, typed args are ignored */

-	    if (widget != NULL) {

-		if (!fetched_resource_list) {

-		    GetResources(widget, &resources, &num_resources);

-		    fetched_resource_list = True;

-		}

-		count += TypedArgToArg(widget, &typed_arg, &args[count],

-					  resources, num_resources,

-					  &args[max_count + count]);

-	    }

-	} else if (strcmp(attr, XtVaNestedList) == 0) {

-	    if (widget != NULL) {

-		if (!fetched_resource_list) {

-		    GetResources(widget, &resources, &num_resources);

-		    fetched_resource_list = True;

-		}

-	    }

-

-	    count += NestedArgtoArg(widget, va_arg(var, XtTypedArgList),

-				       &args[count], resources, num_resources,

-				       &args[max_count + count]);

-	} else {

-	    args[count].name = attr;

-	    args[count].value = va_arg(var, XtArgVal);

-	    count ++;

-	}

-    }

-

-    XtFree((XtPointer)resources);

-

-    *num_args_return = (Cardinal)count;

-    *args_return = (ArgList)args;

-}

-

-/*	Function Name: GetResources

- *	Description: Retreives the normal and constraint resources

- *                   for this widget.

- *	Arguments: widget - the widget.

- * RETURNED        res_list - the list of resource for this widget

- * RETURNED        number - the number of resources in the above list.

- *	Returns: none

- */

-

-static void

-GetResources(

-    Widget widget,

-    XtResourceList * res_list,

-    Cardinal * number)

-{

-    Widget parent = XtParent(widget);

-

-    XtInitializeWidgetClass(XtClass(widget));

-    XtGetResourceList(XtClass(widget), res_list, number);

-

-    if (!XtIsShell(widget) && parent && XtIsConstraint(parent)) {

-	XtResourceList res, constraint, cons_top;

-	Cardinal num_constraint, temp;

-

-	XtGetConstraintResourceList(XtClass(parent), &constraint,

-				    &num_constraint);

-

-	cons_top = constraint;

-	*res_list = (XtResourceList) XtRealloc((char*)*res_list,

-					       ((*number + num_constraint) *

-						sizeof(XtResource)));

-

-	for (temp= num_constraint, res= *res_list + *number; temp != 0; temp--)

-	    *res++ = *constraint++;

-

-	*number += num_constraint;

-	XtFree( (XtPointer) cons_top);

-    }

-}

-

-static int NestedArgtoTypedArg(

-    XtTypedArgList      args,

-    XtTypedArgList      avlist)

-{

-    int         count = 0;

-

-    for (; avlist->name != NULL; avlist++) {

-        if (avlist->type != NULL) {

-            (args+count)->name = avlist->name;

-            (args+count)->type = avlist->type;

-            (args+count)->size = avlist->size;

-            (args+count)->value = avlist->value;

-            ++count;

-        } else if(strcmp(avlist->name, XtVaNestedList) == 0) {

-            count += NestedArgtoTypedArg((args+count),

-                            (XtTypedArgList)avlist->value);

-        } else {

-            (args+count)->name = avlist->name;

-	    (args+count)->type = NULL;

-            (args+count)->value = avlist->value;

-            ++count;

-        }

-    }

-    return(count);

-}

-

-

-/*

- *    Given a variable argument list, _XtVaToTypedArgList() returns

- *    the equivalent TypedArgList. _XtVaToTypedArgList() handles nested

- *    lists.

- *    Note: _XtVaToTypedArgList() does not do type conversions.

- */

-void

-_XtVaToTypedArgList(

-    va_list             var,

-    int			max_count,

-    XtTypedArgList   	*args_return,

-    Cardinal            *num_args_return)

-{

-    XtTypedArgList	args = NULL;

-    String              attr;

-    int			count;

-

-    args = (XtTypedArgList)

-	__XtMalloc((unsigned)(max_count * sizeof(XtTypedArg)));

-

-    for(attr = va_arg(var, String), count = 0 ; attr != NULL;

-		    attr = va_arg(var, String)) {

-        if (strcmp(attr, XtVaTypedArg) == 0) {

-	    args[count].name = va_arg(var, String);

-	    args[count].type = va_arg(var, String);

-	    args[count].value = va_arg(var, XtArgVal);

-	    args[count].size = va_arg(var, int);

-	    ++count;

-	} else if (strcmp(attr, XtVaNestedList) == 0) {

-   	    count += NestedArgtoTypedArg(&args[count], 

-			va_arg(var, XtTypedArgList));

-	} else {

-	    args[count].name = attr;

-	    args[count].type = NULL;

-	    args[count].value = va_arg(var, XtArgVal);

-	    ++count;

-	}

-    }

-

-    *args_return = args;

-    *num_args_return = count;

-}

+/*
+
+Copyright 1985, 1986, 1987, 1988, 1989, 1994, 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 <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "VarargsI.h"
+#include "StringDefs.h"
+
+static String XtNxtConvertVarToArgList = "xtConvertVarToArgList";
+
+/*
+ *    Given a nested list, _XtCountNestedList() returns counts of the
+ *    total number of attribute-value pairs and the count of those
+ *    attributes that are typed. The list is counted recursively.
+ */
+static  void
+_XtCountNestedList(
+    XtTypedArgList  avlist,
+    int             *total_count,
+    int             *typed_count)
+{
+    for (; avlist->name != NULL; avlist++) {
+        if (strcmp(avlist->name, XtVaNestedList) == 0) {
+            _XtCountNestedList((XtTypedArgList)avlist->value, total_count,
+                	       typed_count);
+        } else {
+            if (avlist->type != NULL) {
+                ++(*typed_count);
+            }
+            ++(*total_count);
+        }
+    }
+}
+
+
+/*
+ *    Given a variable length attribute-value list, _XtCountVaList()
+ *    returns counts of the total number of attribute-value pairs,
+ *    and the count of the number of those attributes that are typed.
+ *    The list is counted recursively.
+ */
+void
+_XtCountVaList(va_list var, int* total_count, int* typed_count)
+{
+    String          attr;
+
+    *total_count = 0;
+    *typed_count = 0;
+
+    for(attr = va_arg(var, String) ; attr != NULL;
+                        attr = va_arg(var, String)) {
+        if (strcmp(attr, XtVaTypedArg) == 0) {
+            (void)va_arg(var, String);
+            (void)va_arg(var, String);
+            (void)va_arg(var, XtArgVal);
+            (void)va_arg(var, int);
+            ++(*total_count);
+            ++(*typed_count);
+        } else if (strcmp(attr, XtVaNestedList) == 0) {
+            _XtCountNestedList(va_arg(var, XtTypedArgList), total_count,
+                typed_count);
+        } else {
+            (void)va_arg(var, XtArgVal);
+            ++(*total_count);
+	}
+    }
+}
+
+
+/*
+ *   Given a variable length attribute-value list, XtVaCreateArgsList()
+ *   constructs an attribute-value list of type XtTypedArgList and
+ *   returns the list.
+ */
+XtVarArgsList
+XtVaCreateArgsList(XtPointer unused, ...)
+{
+    va_list var;
+    XtTypedArgList  avlist;
+    int		    count = 0;
+    String	    attr;
+
+    /*
+     * Count the number of attribute-value pairs in the list.
+     * Note: The count is required only to allocate enough space to store
+     * the list. Therefore nested lists are not counted recursively.
+     */
+    va_start(var,unused);
+    for(attr = va_arg(var, String) ; attr != NULL;
+                        attr = va_arg(var, String)) {
+        ++count;
+        if (strcmp(attr, XtVaTypedArg) == 0) {
+            (void)va_arg(var, String);
+            (void)va_arg(var, String);
+            (void)va_arg(var, XtArgVal);
+            (void)va_arg(var, int);
+        } else {
+            (void)va_arg(var, XtArgVal);
+        }
+    }
+    va_end(var);
+
+    va_start(var,unused);
+    avlist = _XtVaCreateTypedArgList(var, count);
+    va_end(var);
+    return (XtVarArgsList)avlist;
+}
+
+
+XtTypedArgList _XtVaCreateTypedArgList(va_list var, register int count)
+{
+    String	    attr;
+    XtTypedArgList  avlist;
+
+    avlist = (XtTypedArgList)
+		__XtCalloc((int)count + 1, (unsigned)sizeof(XtTypedArg));
+
+    for(attr = va_arg(var, String), count = 0; attr != NULL;
+		attr = va_arg(var, String)) {
+	if (strcmp(attr, XtVaTypedArg) == 0) {
+	    avlist[count].name = va_arg(var, String);
+	    avlist[count].type = va_arg(var, String);
+	    avlist[count].value = va_arg(var, XtArgVal);
+	    avlist[count].size = va_arg(var, int);
+	} else {
+	    avlist[count].name = attr;
+	    avlist[count].type = NULL;
+	    avlist[count].value = va_arg(var, XtArgVal);
+	}
+	++count;
+    }
+    avlist[count].name = NULL;
+
+    return avlist;
+}
+
+
+/*
+ *    TypedArgToArg() invokes a resource converter to convert the
+ *    passed typed arg into a name/value pair and stores the name/value
+ *    pair in the passed Arg structure.  If memory is allocated for the
+ *    converted value, the address is returned in the value field of
+ *    memory_return; otherwise that field is NULL.  The function returns
+ *    1 if the conversion succeeded and 0 if the conversion failed.
+ */
+static int
+TypedArgToArg(
+    Widget              widget,
+    XtTypedArgList      typed_arg,
+    ArgList             arg_return,
+    XtResourceList      resources,
+    Cardinal            num_resources,
+    ArgList		memory_return)
+{
+    String              to_type = NULL;
+    XrmValue            from_val, to_val;
+
+
+    if (widget == NULL) {
+        XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+            "nullWidget", XtNxtConvertVarToArgList, XtCXtToolkitError,
+	    "XtVaTypedArg conversion needs non-NULL widget handle",
+            (String *)NULL, (Cardinal *)NULL);
+        return(0);
+    }
+
+    /* again we assume that the XtResourceList is un-compiled */
+
+    for (; num_resources--; resources++)
+	if (strcmp(typed_arg->name, resources->resource_name) == 0) {
+	    to_type = resources->resource_type;
+	    break;
+	}
+
+    if (to_type == NULL) {
+        XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+            "unknownType", XtNxtConvertVarToArgList, XtCXtToolkitError,
+            "Unable to find type of resource for conversion",
+            (String *)NULL, (Cardinal *)NULL);
+        return(0);
+    }
+
+    to_val.addr = NULL;
+    from_val.size = typed_arg->size;
+    if ((strcmp(typed_arg->type, XtRString) == 0) ||
+            ((unsigned) typed_arg->size > sizeof(XtArgVal))) {
+        from_val.addr = (XPointer)typed_arg->value;
+    } else {
+            from_val.addr = (XPointer)&typed_arg->value;
+    }
+
+    LOCK_PROCESS;
+    XtConvertAndStore(widget, typed_arg->type, &from_val, to_type, &to_val);
+
+    if (to_val.addr == NULL) {
+	UNLOCK_PROCESS;
+        XtAppWarningMsg(XtWidgetToApplicationContext(widget),
+            "conversionFailed", XtNxtConvertVarToArgList, XtCXtToolkitError,
+            "Type conversion failed", (String *)NULL, (Cardinal *)NULL);
+        return(0);
+    }
+
+    arg_return->name = typed_arg->name;
+    memory_return->value = (XtArgVal) NULL;
+
+    if (strcmp(to_type, XtRString) == 0) {
+	arg_return->value = (XtArgVal) to_val.addr;
+    }
+    else {
+	if (to_val.size == sizeof(long))
+	    arg_return->value = (XtArgVal) *(long *)to_val.addr;
+	else if (to_val.size == sizeof(short))
+	    arg_return->value = (XtArgVal) *(short *)to_val.addr;
+	else if (to_val.size == sizeof(char))
+	    arg_return->value = (XtArgVal) *(char *)to_val.addr;
+	else if (to_val.size == sizeof(XtArgVal))
+	    arg_return->value = *(XtArgVal *)to_val.addr;
+	else if (to_val.size > sizeof(XtArgVal)) {
+	    arg_return->value = (XtArgVal) __XtMalloc(to_val.size);
+	    memory_return->value = (XtArgVal)
+		memcpy((void *)arg_return->value, to_val.addr, to_val.size);
+	}
+    }
+    UNLOCK_PROCESS;
+
+    return(1);
+}
+
+
+/*
+ *    NestedArgtoArg() converts the passed nested list into
+ *    an ArgList/count.
+ */
+static int
+NestedArgtoArg(
+    Widget              widget,
+    XtTypedArgList      avlist,
+    ArgList             args,
+    XtResourceList      resources,
+    Cardinal            num_resources,
+    ArgList		memory_return)
+{
+    int         count = 0;
+
+    for (; avlist->name != NULL; avlist++) {
+        if (avlist->type != NULL) {
+            /* If widget is NULL, the typed arg is ignored */
+            if (widget != NULL) {
+                /* this is a typed arg */
+                count += TypedArgToArg(widget, avlist, (args+count),
+					  resources, num_resources,
+					  (memory_return+count));
+            }
+        } else if (strcmp(avlist->name, XtVaNestedList) == 0) {
+            count += NestedArgtoArg(widget, (XtTypedArgList)avlist->value,
+				       (args+count), resources, num_resources,
+				       (memory_return+count));
+        } else {
+            (args+count)->name = avlist->name;
+            (args+count)->value = avlist->value;
+            ++count;
+        }
+    }
+
+    return(count);
+}
+
+/*
+ * Free memory allocated through _XtVaToArgList.  The actual args array
+ * size is expected to be total_count * 2, where total_count is the number
+ * of elements needed for resource representations.  The lower half of the
+ * array contains pairs of resource names and values as usual.  For each
+ * element [n] in the lower half of the array, the value field of the
+ * corresponding element [n + total_count] in the upper half of the array
+ * has been pressed into service in order to note whether the resource value
+ * is a pointer to memory that was allocated in TypedArgToArg.  In the
+ * upper half, if the value field is not NULL, it contains the address of
+ * memory which should now be freed.  That memory could have been allocated
+ * only as a result of the conversion of typed arguments.  Therefore, if
+ * there were no typed arguments in the original varargs, there is no need
+ * to examine the upper half of the array.  In the choice of data structure
+ * to make this representation, priority was given to the wish to retrofit
+ * the release of memory around the existing signature of _XtVaToArgList.
+ */
+void
+_XtFreeArgList(
+    ArgList	args,	     /* as returned by _XtVaToArgList */
+    int		total_count, /*  argument count returned by _XtCountVaList */
+    int 	typed_count) /* typed arg count returned by _XtCountVaList */
+{
+    ArgList p;
+
+    if (args) {
+	if (typed_count)
+	    for (p = args + total_count; total_count--; ++p) {
+		XtFree((char *)p->value);
+	    }
+	XtFree((char *)args);
+    }
+}
+
+
+static void GetResources(Widget widget, XtResourceList *res_list,
+			 Cardinal *number);
+
+
+/*
+ *    Given a variable argument list, _XtVaToArgList() returns the
+ *    equivalent ArgList and count. _XtVaToArgList() handles nested
+ *    lists and typed arguments.  If typed arguments are present, the
+ *    ArgList should be freed with _XtFreeArgList.
+ */
+void
+_XtVaToArgList(
+    Widget		widget,
+    va_list     	var,
+    int			max_count,
+    ArgList		*args_return,
+    Cardinal		*num_args_return)
+{
+    String		attr;
+    int			count;
+    ArgList		args = (ArgList)NULL;
+    XtTypedArg		typed_arg;
+    XtResourceList	resources = (XtResourceList)NULL;
+    Cardinal		num_resources;
+    Boolean		fetched_resource_list = False;
+
+    if (max_count  == 0) {
+	*num_args_return = 0;
+	*args_return = (ArgList)NULL;
+	return;
+    }
+
+    args = (ArgList)__XtMalloc((unsigned)(max_count * 2 * sizeof(Arg)));
+    for (count = max_count * 2; --count >= 0; )
+	args[count].value = (XtArgVal) NULL;
+    count = 0;
+
+    for(attr = va_arg(var, String) ; attr != NULL;
+			attr = va_arg(var, String)) {
+	if (strcmp(attr, XtVaTypedArg) == 0) {
+	    typed_arg.name = va_arg(var, String);
+	    typed_arg.type = va_arg(var, String);
+	    typed_arg.value = va_arg(var, XtArgVal);
+	    typed_arg.size = va_arg(var, int);
+
+	    /* if widget is NULL, typed args are ignored */
+	    if (widget != NULL) {
+		if (!fetched_resource_list) {
+		    GetResources(widget, &resources, &num_resources);
+		    fetched_resource_list = True;
+		}
+		count += TypedArgToArg(widget, &typed_arg, &args[count],
+					  resources, num_resources,
+					  &args[max_count + count]);
+	    }
+	} else if (strcmp(attr, XtVaNestedList) == 0) {
+	    if (widget != NULL) {
+		if (!fetched_resource_list) {
+		    GetResources(widget, &resources, &num_resources);
+		    fetched_resource_list = True;
+		}
+	    }
+
+	    count += NestedArgtoArg(widget, va_arg(var, XtTypedArgList),
+				       &args[count], resources, num_resources,
+				       &args[max_count + count]);
+	} else {
+	    args[count].name = attr;
+	    args[count].value = va_arg(var, XtArgVal);
+	    count ++;
+	}
+    }
+
+    XtFree((XtPointer)resources);
+
+    *num_args_return = (Cardinal)count;
+    *args_return = (ArgList)args;
+}
+
+/*	Function Name: GetResources
+ *	Description: Retreives the normal and constraint resources
+ *                   for this widget.
+ *	Arguments: widget - the widget.
+ * RETURNED        res_list - the list of resource for this widget
+ * RETURNED        number - the number of resources in the above list.
+ *	Returns: none
+ */
+
+static void
+GetResources(
+    Widget widget,
+    XtResourceList * res_list,
+    Cardinal * number)
+{
+    Widget parent = XtParent(widget);
+
+    XtInitializeWidgetClass(XtClass(widget));
+    XtGetResourceList(XtClass(widget), res_list, number);
+
+    if (!XtIsShell(widget) && parent && XtIsConstraint(parent)) {
+	XtResourceList res, constraint, cons_top;
+	Cardinal num_constraint, temp;
+
+	XtGetConstraintResourceList(XtClass(parent), &constraint,
+				    &num_constraint);
+
+	cons_top = constraint;
+	*res_list = (XtResourceList) XtRealloc((char*)*res_list,
+					       ((*number + num_constraint) *
+						sizeof(XtResource)));
+
+	for (temp= num_constraint, res= *res_list + *number; temp != 0; temp--)
+	    *res++ = *constraint++;
+
+	*number += num_constraint;
+	XtFree( (XtPointer) cons_top);
+    }
+}
+
+static int NestedArgtoTypedArg(
+    XtTypedArgList      args,
+    XtTypedArgList      avlist)
+{
+    int         count = 0;
+
+    for (; avlist->name != NULL; avlist++) {
+        if (avlist->type != NULL) {
+            (args+count)->name = avlist->name;
+            (args+count)->type = avlist->type;
+            (args+count)->size = avlist->size;
+            (args+count)->value = avlist->value;
+            ++count;
+        } else if(strcmp(avlist->name, XtVaNestedList) == 0) {
+            count += NestedArgtoTypedArg((args+count),
+                            (XtTypedArgList)avlist->value);
+        } else {
+            (args+count)->name = avlist->name;
+	    (args+count)->type = NULL;
+            (args+count)->value = avlist->value;
+            ++count;
+        }
+    }
+    return(count);
+}
+
+
+/*
+ *    Given a variable argument list, _XtVaToTypedArgList() returns
+ *    the equivalent TypedArgList. _XtVaToTypedArgList() handles nested
+ *    lists.
+ *    Note: _XtVaToTypedArgList() does not do type conversions.
+ */
+void
+_XtVaToTypedArgList(
+    va_list             var,
+    int			max_count,
+    XtTypedArgList   	*args_return,
+    Cardinal            *num_args_return)
+{
+    XtTypedArgList	args = NULL;
+    String              attr;
+    int			count;
+
+    args = (XtTypedArgList)
+	__XtMalloc((unsigned)(max_count * sizeof(XtTypedArg)));
+
+    for(attr = va_arg(var, String), count = 0 ; attr != NULL;
+		    attr = va_arg(var, String)) {
+        if (strcmp(attr, XtVaTypedArg) == 0) {
+	    args[count].name = va_arg(var, String);
+	    args[count].type = va_arg(var, String);
+	    args[count].value = va_arg(var, XtArgVal);
+	    args[count].size = va_arg(var, int);
+	    ++count;
+	} else if (strcmp(attr, XtVaNestedList) == 0) {
+   	    count += NestedArgtoTypedArg(&args[count], 
+			va_arg(var, XtTypedArgList));
+	} else {
+	    args[count].name = attr;
+	    args[count].type = NULL;
+	    args[count].value = va_arg(var, XtArgVal);
+	    ++count;
+	}
+    }
+
+    *args_return = args;
+    *num_args_return = count;
+}
diff --git a/libXt/src/Vendor.c b/libXt/src/Vendor.c
index 31266ed59..e4b350867 100644
--- a/libXt/src/Vendor.c
+++ b/libXt/src/Vendor.c
@@ -1,156 +1,156 @@
-/***********************************************************

-

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

-

-

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

-

-******************************************************************/

-

-/* Make sure all wm properties can make it out of the resource manager */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "StringDefs.h"

-#include "Shell.h"

-#include "ShellP.h"

-#include "Vendor.h"

-#include "VendorP.h"

-#include <stdio.h>

-

-/***************************************************************************

- *

- * Vendor shell class record

- *

- ***************************************************************************/

-

-#if defined(__UNIXOS2__) || defined(__CYGWIN__) || defined(__MINGW32__) && !defined(_MSC_VER)

-/* to fix the EditRes problem because of wrong linker semantics */

-extern WidgetClass vendorShellWidgetClass;

-

-#if defined(__UNIXOS2__)

-unsigned long _DLL_InitTerm(unsigned long mod,unsigned long flag)

-{

-        switch (flag) {

-        case 0: /*called on init*/

-                _CRT_init();

-                vendorShellWidgetClass = (WidgetClass)(&vendorShellClassRec);

-                return 1;

-        case 1: /*called on exit*/

-                return 1;

-        default:

-                return 0;

-        }

-}

-#endif

-

-#if defined(__CYGWIN__) || defined(__MINGW32__)

-int __stdcall

-DllMain(unsigned long mod_handle, unsigned long flag, void *routine)

-{

-  switch (flag)

-    {

-    case 1: /* DLL_PROCESS_ATTACH - process attach */

-      vendorShellWidgetClass = (WidgetClass)(&vendorShellClassRec);

-      break;

-    case 0: /* DLL_PROCESS_DETACH - process detach */

-      break;

-    }

-  return 1;

-}

-#endif

-#endif

-

-externaldef(vendorshellclassrec) VendorShellClassRec vendorShellClassRec = {

-  {

-    /* superclass         */    (WidgetClass) &wmShellClassRec,

-    /* class_name         */    "VendorShell",

-    /* size               */    sizeof(VendorShellRec),

-    /* Class Initializer  */	NULL,

-    /* class_part_initialize*/	NULL,

-    /* Class init'ed ?    */	FALSE,

-    /* initialize         */    NULL,

-    /* initialize_notify    */	NULL,		

-    /* realize            */    XtInheritRealize,

-    /* actions            */    NULL,

-    /* num_actions        */    0,

-    /* resources          */    NULL,

-    /* resource_count     */	0,

-    /* xrm_class          */    NULLQUARK,

-    /* compress_motion    */    FALSE,

-    /* compress_exposure  */    TRUE,

-    /* compress_enterleave*/	FALSE,

-    /* visible_interest   */    FALSE,

-    /* destroy            */    NULL,

-    /* resize             */    XtInheritResize,

-    /* expose             */    NULL,

-    /* set_values         */    NULL,

-    /* set_values_hook      */	NULL,			

-    /* set_values_almost    */	XtInheritSetValuesAlmost,  

-    /* get_values_hook      */	NULL,

-    /* accept_focus       */    NULL,

-    /* intrinsics version */	XtVersion,

-    /* callback offsets   */    NULL,

-    /* tm_table		  */	NULL,

-    /* query_geometry	    */  NULL,

-    /* display_accelerator  */  NULL,

-    /* extension	    */  NULL

-  },{

-    /* geometry_manager   */    XtInheritGeometryManager,

-    /* change_managed     */    XtInheritChangeManaged,

-    /* insert_child	  */	XtInheritInsertChild,

-    /* delete_child	  */	XtInheritDeleteChild,

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  },{

-    /* extension	    */  NULL

-  }

-};

-

-#if (!defined(AIXSHLIB) || !defined(SHAREDCODE)) && !defined(_MSC_VER)

-externaldef(vendorshellwidgetclass) WidgetClass vendorShellWidgetClass =

-	(WidgetClass) (&vendorShellClassRec);

-#endif

+/***********************************************************
+
+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.
+
+
+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.
+
+******************************************************************/
+
+/* Make sure all wm properties can make it out of the resource manager */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "StringDefs.h"
+#include "Shell.h"
+#include "ShellP.h"
+#include "Vendor.h"
+#include "VendorP.h"
+#include <stdio.h>
+
+/***************************************************************************
+ *
+ * Vendor shell class record
+ *
+ ***************************************************************************/
+
+#if defined(__UNIXOS2__) || defined(__CYGWIN__) || defined(__MINGW32__) && !defined(_MSC_VER)
+/* to fix the EditRes problem because of wrong linker semantics */
+extern WidgetClass vendorShellWidgetClass;
+
+#if defined(__UNIXOS2__)
+unsigned long _DLL_InitTerm(unsigned long mod,unsigned long flag)
+{
+        switch (flag) {
+        case 0: /*called on init*/
+                _CRT_init();
+                vendorShellWidgetClass = (WidgetClass)(&vendorShellClassRec);
+                return 1;
+        case 1: /*called on exit*/
+                return 1;
+        default:
+                return 0;
+        }
+}
+#endif
+
+#if defined(__CYGWIN__) || defined(__MINGW32__)
+int __stdcall
+DllMain(unsigned long mod_handle, unsigned long flag, void *routine)
+{
+  switch (flag)
+    {
+    case 1: /* DLL_PROCESS_ATTACH - process attach */
+      vendorShellWidgetClass = (WidgetClass)(&vendorShellClassRec);
+      break;
+    case 0: /* DLL_PROCESS_DETACH - process detach */
+      break;
+    }
+  return 1;
+}
+#endif
+#endif
+
+externaldef(vendorshellclassrec) VendorShellClassRec vendorShellClassRec = {
+  {
+    /* superclass         */    (WidgetClass) &wmShellClassRec,
+    /* class_name         */    "VendorShell",
+    /* size               */    sizeof(VendorShellRec),
+    /* Class Initializer  */	NULL,
+    /* class_part_initialize*/	NULL,
+    /* Class init'ed ?    */	FALSE,
+    /* initialize         */    NULL,
+    /* initialize_notify    */	NULL,		
+    /* realize            */    XtInheritRealize,
+    /* actions            */    NULL,
+    /* num_actions        */    0,
+    /* resources          */    NULL,
+    /* resource_count     */	0,
+    /* xrm_class          */    NULLQUARK,
+    /* compress_motion    */    FALSE,
+    /* compress_exposure  */    TRUE,
+    /* compress_enterleave*/	FALSE,
+    /* visible_interest   */    FALSE,
+    /* destroy            */    NULL,
+    /* resize             */    XtInheritResize,
+    /* expose             */    NULL,
+    /* set_values         */    NULL,
+    /* set_values_hook      */	NULL,			
+    /* set_values_almost    */	XtInheritSetValuesAlmost,  
+    /* get_values_hook      */	NULL,
+    /* accept_focus       */    NULL,
+    /* intrinsics version */	XtVersion,
+    /* callback offsets   */    NULL,
+    /* tm_table		  */	NULL,
+    /* query_geometry	    */  NULL,
+    /* display_accelerator  */  NULL,
+    /* extension	    */  NULL
+  },{
+    /* geometry_manager   */    XtInheritGeometryManager,
+    /* change_managed     */    XtInheritChangeManaged,
+    /* insert_child	  */	XtInheritInsertChild,
+    /* delete_child	  */	XtInheritDeleteChild,
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  },{
+    /* extension	    */  NULL
+  }
+};
+
+#if (!defined(AIXSHLIB) || !defined(SHAREDCODE)) && !defined(_MSC_VER)
+externaldef(vendorshellwidgetclass) WidgetClass vendorShellWidgetClass =
+	(WidgetClass) (&vendorShellClassRec);
+#endif
diff --git a/libXt/src/sharedlib.c b/libXt/src/sharedlib.c
index 7e794f025..1322d8c85 100644
--- a/libXt/src/sharedlib.c
+++ b/libXt/src/sharedlib.c
@@ -1,233 +1,233 @@
-/*

-

-Copyright 1989, 1994, 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.

-

-*/

-

-#if (defined(SUNSHLIB) || defined(AIXSHLIB)) && !defined(SHAREDCODE)

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include "IntrinsicI.h"

-#include "VarargsI.h"

-#include "ShellP.h"

-#include "VendorP.h"

-#include "CreateI.h"

-

-

-#if defined(AIXSHLIB) || defined(__UNIXOS2__)

-WidgetClass vendorShellWidgetClass = (WidgetClass) &vendorShellClassRec;

-

-static void _XtVendorInitialize()

-{

-    transientShellWidgetClass->core_class.superclass =

-	(WidgetClass) &vendorShellClassRec;

-    topLevelShellWidgetClass->core_class.superclass =

-	(WidgetClass) &vendorShellClassRec;

-}

-

-#define VENDORINIT _XtVendorInitialize();

-

-#else

-

-#define VENDORINIT /* as nothing */

-

-#endif

-

-#ifdef SUNSHLIB

-/*

- * _XtInherit needs to be statically linked since it is compared against as

- * well as called.

- */

-void _XtInherit()

-{

-    extern void __XtInherit();

-    __XtInherit();

-}

-#endif

-

-/*

- * The following routine will be called by every toolkit

- * application, forcing this file to be statically linked.

- *

- * Note: XtInitialize, XtAppInitialize, and XtOpenApplication

- *       call XtToolkitInitialize.

- */

-

-void XtToolkitInitialize()

-{

-    extern void _XtToolkitInitialize();

-    VENDORINIT

-    _XtToolkitInitialize();

-}

-

-Widget 

-XtInitialize(

-    _Xconst char* name,

-    _Xconst char* classname,

-    XrmOptionDescRec *options,

-    Cardinal num_options,

-    int *argc,

-    String *argv)

-{

-    extern Widget _XtInitialize();

-    VENDORINIT

-    return _XtInitialize (name, classname, options, num_options, argc, argv);

-}

-

-Widget

-XtAppInitialize(

-    XtAppContext * app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescRec *options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    ArgList args_in,

-    Cardinal num_args_in)

-{

-    extern Widget _XtAppInitialize();

-    VENDORINIT

-    return _XtAppInitialize (app_context_return, application_class, options,

-			     num_options, argc_in_out, argv_in_out, 

-			     fallback_resources, args_in, num_args_in);

-}

-

-Widget

-XtVaAppInitialize(

-    XtAppContext *app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescList options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    ...)

-{

-    va_list	var;

-    extern Widget _XtVaAppInitialize();

-

-    VENDORINIT

-    va_start(var, fallback_resources);

-    return _XtVaAppInitialize(app_context_return, application_class, options,

-			      num_options, argc_in_out, argv_in_out,

-			      fallback_resources, var);

-}

-

-Widget

-XtOpenApplication(

-    XtAppContext * app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescRec *options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    WidgetClass widget_class,

-    ArgList args_in,

-    Cardinal num_args_in)

-{

-    extern Widget _XtOpenApplication();

-    VENDORINIT

-    return _XtOpenApplication (app_context_return, application_class, options,

-			       num_options, argc_in_out, argv_in_out, 

-			       fallback_resources, widget_class,

-			       args_in, num_args_in);

-}

-

-Widget

-XtVaOpenApplication(

-    XtAppContext *app_context_return,

-    _Xconst char* application_class,

-    XrmOptionDescList options,

-    Cardinal num_options,

-    int *argc_in_out,

-    String *argv_in_out,

-    String *fallback_resources,

-    WidgetClass widget_class,

-    ...)

-{

-    va_list	var;

-    extern Widget _XtVaOpenApplication();

-

-    VENDORINIT

-    va_start(var, widget_class);

-    return _XtVaOpenApplication(app_context_return, application_class, options,

-				num_options, argc_in_out, argv_in_out,

-				fallback_resources, widget_class, var);

-}

-

-#else

-

-#ifndef lint

-static int dummy;			/* avoid warning from ranlib */

-#endif

-

-#endif /* SUNSHLIB or AIXSHLIB */

-

-#if defined(SUNSHLIB) && !defined(SHAREDCODE)

-

-int _XtInheritTranslations = 0;

-

-extern CompositeClassRec compositeClassRec;

-WidgetClass compositeWidgetClass = (WidgetClass) &compositeClassRec;

-

-extern ConstraintClassRec constraintClassRec;

-WidgetClass constraintWidgetClass = (WidgetClass) &constraintClassRec;

-

-extern WidgetClassRec widgetClassRec;

-WidgetClass widgetClass = &widgetClassRec;

-WidgetClass coreWidgetClass = &widgetClassRec;

-

-extern ObjectClassRec objectClassRec;

-WidgetClass objectClass = (WidgetClass)&objectClassRec;

-

-extern RectObjClassRec rectObjClassRec;

-WidgetClass rectObjClass = (WidgetClass)&rectObjClassRec;

-

-extern ShellClassRec shellClassRec;

-WidgetClass shellWidgetClass = (WidgetClass) &shellClassRec;

-

-extern OverrideShellClassRec overrideShellClassRec;

-WidgetClass overrideShellWidgetClass = (WidgetClass) &overrideShellClassRec;

-

-extern WMShellClassRec wmShellClassRec;

-WidgetClass wmShellWidgetClass = (WidgetClass) &wmShellClassRec;

-

-extern TransientShellClassRec transientShellClassRec;

-WidgetClass transientShellWidgetClass = (WidgetClass) &transientShellClassRec;

-

-extern TopLevelShellClassRec topLevelShellClassRec;

-WidgetClass topLevelShellWidgetClass = (WidgetClass) &topLevelShellClassRec;

-

-extern ApplicationShellClassRec applicationShellClassRec;

-WidgetClass applicationShellWidgetClass = (WidgetClass) &applicationShellClassRec;

-

-extern SessionShellClassRec sessionShellClassRec;

-WidgetClass sessionShellWidgetClass = (WidgetClass) &sessionShellClassRec;

-

-extern HookObjClassRec hookObjClassRec;

-WidgetClass hookObjectClass = (WidgetClass) &hookObjClassRec;

-

-#endif /* SUNSHLIB */

+/*
+
+Copyright 1989, 1994, 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.
+
+*/
+
+#if (defined(SUNSHLIB) || defined(AIXSHLIB)) && !defined(SHAREDCODE)
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include "IntrinsicI.h"
+#include "VarargsI.h"
+#include "ShellP.h"
+#include "VendorP.h"
+#include "CreateI.h"
+
+
+#if defined(AIXSHLIB) || defined(__UNIXOS2__)
+WidgetClass vendorShellWidgetClass = (WidgetClass) &vendorShellClassRec;
+
+static void _XtVendorInitialize()
+{
+    transientShellWidgetClass->core_class.superclass =
+	(WidgetClass) &vendorShellClassRec;
+    topLevelShellWidgetClass->core_class.superclass =
+	(WidgetClass) &vendorShellClassRec;
+}
+
+#define VENDORINIT _XtVendorInitialize();
+
+#else
+
+#define VENDORINIT /* as nothing */
+
+#endif
+
+#ifdef SUNSHLIB
+/*
+ * _XtInherit needs to be statically linked since it is compared against as
+ * well as called.
+ */
+void _XtInherit()
+{
+    extern void __XtInherit();
+    __XtInherit();
+}
+#endif
+
+/*
+ * The following routine will be called by every toolkit
+ * application, forcing this file to be statically linked.
+ *
+ * Note: XtInitialize, XtAppInitialize, and XtOpenApplication
+ *       call XtToolkitInitialize.
+ */
+
+void XtToolkitInitialize()
+{
+    extern void _XtToolkitInitialize();
+    VENDORINIT
+    _XtToolkitInitialize();
+}
+
+Widget 
+XtInitialize(
+    _Xconst char* name,
+    _Xconst char* classname,
+    XrmOptionDescRec *options,
+    Cardinal num_options,
+    int *argc,
+    String *argv)
+{
+    extern Widget _XtInitialize();
+    VENDORINIT
+    return _XtInitialize (name, classname, options, num_options, argc, argv);
+}
+
+Widget
+XtAppInitialize(
+    XtAppContext * app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescRec *options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    ArgList args_in,
+    Cardinal num_args_in)
+{
+    extern Widget _XtAppInitialize();
+    VENDORINIT
+    return _XtAppInitialize (app_context_return, application_class, options,
+			     num_options, argc_in_out, argv_in_out, 
+			     fallback_resources, args_in, num_args_in);
+}
+
+Widget
+XtVaAppInitialize(
+    XtAppContext *app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescList options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    ...)
+{
+    va_list	var;
+    extern Widget _XtVaAppInitialize();
+
+    VENDORINIT
+    va_start(var, fallback_resources);
+    return _XtVaAppInitialize(app_context_return, application_class, options,
+			      num_options, argc_in_out, argv_in_out,
+			      fallback_resources, var);
+}
+
+Widget
+XtOpenApplication(
+    XtAppContext * app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescRec *options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    WidgetClass widget_class,
+    ArgList args_in,
+    Cardinal num_args_in)
+{
+    extern Widget _XtOpenApplication();
+    VENDORINIT
+    return _XtOpenApplication (app_context_return, application_class, options,
+			       num_options, argc_in_out, argv_in_out, 
+			       fallback_resources, widget_class,
+			       args_in, num_args_in);
+}
+
+Widget
+XtVaOpenApplication(
+    XtAppContext *app_context_return,
+    _Xconst char* application_class,
+    XrmOptionDescList options,
+    Cardinal num_options,
+    int *argc_in_out,
+    String *argv_in_out,
+    String *fallback_resources,
+    WidgetClass widget_class,
+    ...)
+{
+    va_list	var;
+    extern Widget _XtVaOpenApplication();
+
+    VENDORINIT
+    va_start(var, widget_class);
+    return _XtVaOpenApplication(app_context_return, application_class, options,
+				num_options, argc_in_out, argv_in_out,
+				fallback_resources, widget_class, var);
+}
+
+#else
+
+#ifndef lint
+static int dummy;			/* avoid warning from ranlib */
+#endif
+
+#endif /* SUNSHLIB or AIXSHLIB */
+
+#if defined(SUNSHLIB) && !defined(SHAREDCODE)
+
+int _XtInheritTranslations = 0;
+
+extern CompositeClassRec compositeClassRec;
+WidgetClass compositeWidgetClass = (WidgetClass) &compositeClassRec;
+
+extern ConstraintClassRec constraintClassRec;
+WidgetClass constraintWidgetClass = (WidgetClass) &constraintClassRec;
+
+extern WidgetClassRec widgetClassRec;
+WidgetClass widgetClass = &widgetClassRec;
+WidgetClass coreWidgetClass = &widgetClassRec;
+
+extern ObjectClassRec objectClassRec;
+WidgetClass objectClass = (WidgetClass)&objectClassRec;
+
+extern RectObjClassRec rectObjClassRec;
+WidgetClass rectObjClass = (WidgetClass)&rectObjClassRec;
+
+extern ShellClassRec shellClassRec;
+WidgetClass shellWidgetClass = (WidgetClass) &shellClassRec;
+
+extern OverrideShellClassRec overrideShellClassRec;
+WidgetClass overrideShellWidgetClass = (WidgetClass) &overrideShellClassRec;
+
+extern WMShellClassRec wmShellClassRec;
+WidgetClass wmShellWidgetClass = (WidgetClass) &wmShellClassRec;
+
+extern TransientShellClassRec transientShellClassRec;
+WidgetClass transientShellWidgetClass = (WidgetClass) &transientShellClassRec;
+
+extern TopLevelShellClassRec topLevelShellClassRec;
+WidgetClass topLevelShellWidgetClass = (WidgetClass) &topLevelShellClassRec;
+
+extern ApplicationShellClassRec applicationShellClassRec;
+WidgetClass applicationShellWidgetClass = (WidgetClass) &applicationShellClassRec;
+
+extern SessionShellClassRec sessionShellClassRec;
+WidgetClass sessionShellWidgetClass = (WidgetClass) &sessionShellClassRec;
+
+extern HookObjClassRec hookObjClassRec;
+WidgetClass hookObjectClass = (WidgetClass) &hookObjClassRec;
+
+#endif /* SUNSHLIB */