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