external create_with_label : string -> list_item obj
      = "ml_gtk_list_item_new_with_label"