let conv = { kind = `STRING; proj = (function `STRING (Some s) -> `STOCK s | _ -> failwith "GtkStock.get_id"); inj = (fun id -> `STRING (Some (convert_id id))) }