if $did == 4 { write $+(-dw,*,$did(1,1).seltext,*) filename.txt | topic $chan $did(1,1).seltext | did -d $dname 1 $$did(1,1).sel }
This assumes that you have used /dialog -a to use the active channel window as the $active window. I haven't tested it, but you might need to specify $active instead of $chan, but I think either should work.
