static GtkTreeModel*
create_tree_model (void)
{
GtkTreeStore *store;
gint i;
GType *t;
volatile GType dummy; /* G_GNUC_CONST makes the optimizer remove
* get_type calls if you don't do something
* like this
*/
/* Make the tree more interesting */
dummy = gtk_scrolled_window_get_type ();
dummy = gtk_label_get_type ();
dummy = gtk_hscrollbar_get_type ();
dummy = gtk_vscrollbar_get_type ();
dummy = pango_layout_get_type ();
t = get_model_types ();
store = gtk_tree_store_new (N_COLUMNS,
t[0], t[1], t[2],
t[3], t[4], t[5],
t[6], t[7], t[8]);
i = 0;
while (i < G_TYPE_FUNDAMENTAL_MAX)
{
typesystem_recurse (i, NULL, store);
++i;
}
return GTK_TREE_MODEL (store);
}
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);
}
