let make_icon_set ?pixbuf sources = let s = match pixbuf with | None -> Icon_set.new_icon_set () | Some pb -> Icon_set.new_from_pixbuf pb in List.iter (Icon_set.add_source s) sources ; s