/* static char rcsid[] =
	"$XConsortium: FToCback.c,v 1.2 90/07/15 16:18:34 rws Exp $"; */

/* 
 * Copyright 1988 by the Massachusetts Institute of Technology
 *
 * 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 M.I.T. not be used in advertising
 * or publicity pertaining to distribution of the software without specific, 
 * written prior permission. M.I.T. makes no representations about the 
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 */

#ifdef VMS
#   include	<X11_DIRECTORY/Intrinsic.h>
#else
#   include	<X11/Intrinsic.h>
#endif

/* ARGSUSED */
void
XmuCvtFunctionToCallback(args, num_args, fromVal, toVal)
    XrmValue	*args;		/* unused */
    Cardinal	*num_args;	/* unused */
    XrmValuePtr fromVal;
    XrmValuePtr toVal;
{
    static XtCallbackRec callback[2]; /* K&R: initialized to NULL */
    static XtCallbackList callback_list = callback;

    callback[0].callback = *(XtCallbackProc *)fromVal->addr;

    toVal->size = sizeof(XtCallbackList);
    toVal->addr = (caddr_t)&callback_list;
}
