let pix_done = create_pix "done-item"
    (Filename.concat Cam_installation.pixmaps_dir "tdl-item-done.png")
    "done items"