(loud) inclusive, if possible. A setting of -1 restores the default. Other
negative values generate a BadValue error.
[bell_pitch] member sets the pitch (specified in Hz) of the bell, if possible.
A setting of -1 restores the default. Other negative values generate a BadValue error.
if possible. A setting of -1 restores the default. Other negative values generate
a BadValue error. *)
type xMappingEvent
type xErrorEvent
| XMappingEvent of xMappingEvent xEvent
| XErrorEvent of xErrorEvent xEvent
// TODO: XGetErrorText()
#if 0
int ErrorHandler( Display *dpy, XErrorEvent *event )
char buffer[BUFSIZ];
XGetErrorText(dpy, event->error_code, buffer, BUFSIZ);
*/
printf("ERROR: %s\n", buffer);
CAMLprim value
ml_XSetErrorHandler( value unit )
{
XSetErrorHandler( ErrorHandler );
int ErrorHandler_closure( Display *dpy, XErrorEvent *event )
caml_raise_not_found();
// XInternAtom() can generate BadAlloc and BadValue errors.