CAMLprim value
ml_XtAddCallback( value widget, value cb_name, value cb_index )
{
_Xconst _XtString callback_name = callback_name_table[Long_val(cb_name)];
XtAddCallback(
Widget_val(widget),
callback_name,
ml_xt_callback,
(void *) cb_index );
return Val_unit;
}
CAMLprim
value caml_gp_camera_set_config(value camera_val,
value context_val, value widget_val) {
CAMLparam3(camera_val, context_val, widget_val);
Camera *camera = Camera_val(camera_val);
GPContext *context = Context_val(context_val);
CameraWidget *widget = Widget_val(widget_val);
int ret = gp_camera_set_config(camera, widget, context);
CHECK_RESULT(ret);
CAMLreturn(Val_unit);
}
CAMLprim value
ml_XtCreateManagedWidget( value name, value ml_widget_class, value parent )
{
WidgetClass widget_class = get_WidgetClass(ml_widget_class);
Widget wid = XtCreateManagedWidget(
String_val(name),
widget_class,
Widget_val(parent),
NULL, // ArgList args,
0 // Cardinal num_args
);
return Val_Widget(wid);
}
CAMLprim value
ml_XtUnmapWidget( value w )
{
XtUnmapWidget( Widget_val(w) );
return Val_unit;
}
CAMLprim value
ml_XtParent( value widget )
{
Widget parent = XtParent( Widget_val(widget) );
return Val_Widget(parent);
}
CAMLprim value
ml_XtWindow( value widget )
{
Window win = XtWindow( Widget_val(widget) );
return Val_Window(win);
}
CAMLprim value
ml_XtScreen( value widget )
{
Screen *xscreen = XtScreen( Widget_val(widget) );
return Val_XScreen(xscreen);
}
CAMLprim value
ml_XtDisplayOfObject( value object )
{
Display *dpy = XtDisplayOfObject( Widget_val(object) );
return Val_Display(dpy);
}
CAMLprim value
ml_XtDisplay( value widget )
{
Display *dpy = XtDisplay( Widget_val(widget) );
return Val_Display(dpy);
}
CAMLprim value
ml_XtUnmanageChild( value child )
{
XtUnmanageChild( Widget_val(child) );
return Val_unit;
}
CAMLprim value
ml_XtRealizeWidget( value widget )
{
XtRealizeWidget( Widget_val(widget) );
return Val_unit;
}
