let create_pix = let f file = GdkPixbuf.from_file_at_size file ~width: pix_size ~height: pix_size in fun cp -> try f cp#get with e -> prerr_endline (Printexc.to_string e); f cp#get_default