picklist-item-add.tcl