external create_with_label : string -> image_menu_item obj
      = "ml_gtk_image_menu_item_new_with_label"