let
create_from_stock ?accel_group s =
create_from_stock (
GtkStock
.convert_id s) accel_group