Code:
on *:dialog:txtdes:sclick:27: {
  while $active ischan && $did(26,1) {
    msg $active $ifmatch
    did -d $dname 26 1
  }
}