alias tc dialog -m testclose testclose
dialog -l testclose {
title ""
size -1 -1 100 50
option dbu
edit "" , 1 , 20 20 60 10
button "Click Me", 900, 20 40 60 15
button "hidden", 999, 0 0 0 0, cancel
}
on *:dialog:testclose:sclick:999:{ .timer-tc -m 1 1 dialog -m testclose testclose }
on *:dialog:testclose:sclick:900:{ echo $active $did(testclose,1).text }