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); }
/* * Initializes the GbWidget structure. * I've placed this at the end of the file so we don't have to include * declarations of all the functions. */ GbWidget * gb_statusbar_init () { /* Initialise the GTK type */ volatile GtkType type; type = gtk_statusbar_get_type (); /* Initialize the GbWidget structure */ gb_widget_init_struct (&gbwidget); /* Fill in the pixmap struct & tooltip */ gbwidget.pixmap_struct = statusbar_xpm; gbwidget.tooltip = _("Status Bar"); /* Fill in any functions that this GbWidget has */ /* gbwidget.gb_widget_new = gb_statusbar_new; gbwidget.gb_widget_create_popup_menu = gb_statusbar_create_popup_menu; */ gbwidget.gb_widget_create_properties = gb_statusbar_create_properties; gbwidget.gb_widget_get_properties = gb_statusbar_get_properties; gbwidget.gb_widget_set_properties = gb_statusbar_set_properties; gbwidget.gb_widget_write_source = gb_statusbar_write_source; return &gbwidget; }