poll-defs.tcl