sig
  external add : GtkStock.item -> unit = "ml_gtk_stock_add"
  external list_ids : unit -> string list = "ml_gtk_stock_list_ids"
  external lookup : string -> GtkStock.item = "ml_gtk_stock_lookup"
  val lookup : GtkStock.id -> GtkStock.item
end