CAMLprim value ml_gtkmisc_init(value unit)
{
/* Since these are declared const, must force gcc to call them! */
GType t =
gtk_gamma_curve_get_type() +
gtk_statusbar_get_type() +
#ifdef HASGTK210
gtk_status_icon_get_type() +
#endif
gtk_calendar_get_type() +
gtk_drawing_area_get_type() +
gtk_curve_get_type() +
gtk_misc_get_type() +
gtk_arrow_get_type() +
gtk_image_get_type() +
gtk_label_get_type() +
gtk_tips_query_get_type() +
gtk_pixmap_get_type() +
gtk_hseparator_get_type() +
gtk_vseparator_get_type() +
gtk_preview_get_type () +
gtk_font_selection_get_type() +
gtk_color_selection_get_type();
return Val_GType(t);
}
CAMLprim value ml_gdk_init(value unit)
{
/* Since these are declared const, must force gcc to call them! */
GType t =
gdk_color_get_type();
return Val_GType(t);
}
CAMLprim value ml_gtktext_init(value unit)
{
/* Since these are declared const, must force gcc to call them! */
GType t =
gtk_text_view_get_type() +
gtk_text_buffer_get_type() +
gtk_text_child_anchor_get_type() +
gtk_text_mark_get_type() +
gtk_text_tag_get_type() +
gtk_text_tag_table_get_type();
return Val_GType(t);
}
CAMLprim value ml_gtk_source_completion_init(value unit)
{ /* Since these are declared const, must force gcc to call them! */
GType t =
gtk_source_completion_get_type() +
gtk_source_completion_context_get_type() +
gtk_source_completion_provider_get_type() +
gtk_source_completion_proposal_get_type() +
gtk_source_completion_info_get_type() +
gtk_source_completion_item_get_type()
;
return Val_GType(t);
}
CAMLprim value ml_gtkrange_init(value unit)
{
/* Since these are declared const, must force gcc to call them! */
GType t =
gtk_progress_bar_get_type() +
gtk_hscale_get_type() +
gtk_vscale_get_type() +
gtk_hscrollbar_get_type() +
gtk_vscrollbar_get_type() +
gtk_hruler_get_type() +
gtk_vruler_get_type();
return Val_GType(t);
}
CAMLprim value ml_gtkwindow_init(value unit)
{
/* Since these are declared const, must force gcc to call them! */
GType t =
gtk_message_dialog_get_type() +
gtk_input_dialog_get_type() +
gtk_color_selection_dialog_get_type() +
gtk_file_selection_get_type() +
gtk_font_selection_dialog_get_type()
#ifndef _WIN32
+ gtk_plug_get_type()
+ gtk_socket_get_type()
#endif
;
return Val_GType(t);
}
CAMLprim value ml_gtk_source_language_manager_init(value unit)
{ /* Since these are declared const, must force gcc to call them! */
GType t =
gtk_source_language_manager_get_type();
return Val_GType(t);
}
CAMLprim value ml_gtk_source_style_scheme_init(value unit)
{ /* Since these are declared const, must force gcc to call them! */
GType t = gtk_source_style_scheme_get_type();
return Val_GType(t);
}
