let pix_high = create_pix "high-item" (Filename.concat Cam_installation.pixmaps_dir "tdl-item-high.png") "high priority items"