get-tooltip.tcl