let make_params ~cont p ?label ?use_mnemonic ?stock =
let label, use_stock =
match stock with None -> label, None
| Some id -> Some (GtkStock.convert_id id), Some true in
make_params ~cont p ?label ?use_underline:use_mnemonic ?use_stock