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