alias testdialog { dialog $iif($dialog(test),-x,-m) test test }
dialog -l test {
title "test on your own :)"
size -1 -1 80 32
option dbu
edit "", 1, 5 5 70 10, autohs
button "button", 2, 6 18 40 10
check "check", 3, 50 18 25 10, 3state
}
on *:dialog:test:*:*: {
if ($devent != mouse) { echo -tsnc info event $qt($devent) in dialog $qt($dname) at ID $did }
}