on *:dialog:testdia:sclick:2:{ var %x $didtok($dname,1,59) didtok $dname 3 59 %x set %testdiavar %x }