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