alias focus { dialog -m focus focus }
dialog focus {
title "Dialog focus the text"
icon $mircexe,0
option pixels
size -1 -1 306 76
edit "", 1, 8 12 290 21, autohs
button "&OK", 2, 142 43 76 23, ok default
button "&Cancel", 3, 223 43 76 23, cancel
}
on *:dialog:focus:*:*:{
if ($devent == init) {
did -a $dname 1 Focus the text
did -c $dname 1 1 1 $did($dname,1).len
}
}