external create_with_label : string -> tree_item obj
      = "ml_gtk_tree_item_new_with_label"