dialog edit {
size -1 -1 200 100
edit "",1, 1 1 200 20
button "Insert",2,50 25 100 25
}
on *:dialog:edit:sclick:2:{
var %insert = Good
var %txt = $did(1),%len = $len(%txt)
var %pos = $did(1).selend | ;cursor pos
var %pos2 = %pos + 1 | ;offset
var %precur = $left(%txt,%pos),%postcur = $mid(%txt,%pos2,$calc(%len - $len(%precur)))
did -ra $dname 1 $iif(%precur,%precur) %insert $iif(%postcur,%postcur)
}