alias seltext dialog -m seltext seltext
dialog seltext {
title "Seltext in an Editbox"
size -1 -1 100 50
option dbu
edit "This is a line of text", 1, 1 1 98 10
button "Show", 2, 40 20 20 10
text "Here", 3, 20 35 60 20, center
}
on *:dialog:seltext:sclick:2:{
did -ri $dname 3 1 $did($dname,1).seltext
}
on *:dialog:seltext:mouse:1:{
if ($did(seltext,1).seltext == text) { did -ri $dname 3 1 WooHoo The Secret Word! }
}