/*
** This file has some hand-written code wrapped by SWIG.
**
** For some reason I have yet to investigate, it likes to be at the
** END of the generated Wcl.i file, so it cannot be placed in Wcl-i.
*/

%inline %{

/*
** PERL callbacks are all fed through this function, which sets up to
** call _X11_Wcl_do_callback(), which knows how to call back into
** PERL.
*/
void
_X11_Wcl_register_callback(XtAppContext app_context, char *callback_name)
{
	WcRegisterCallback(app_context,
					   callback_name,
					   (XtCallbackProc)_X11_Wcl_do_callback,
					   (XtPointer)0);
}

%}
