[snip]
alias closeMe {
if ($dialog(closeMe)) { /dialog -vie closeMe closeMe }
else { /dialog -md closeMe closeMe }
}
alias closeMe.check {
if (!$dialog($$1)) {
/set -u0 %err $input(Please close the dialog the correct way., ow, Invalid Closure)
/dialog -md $$1 $$1
}
}
dialog closeMe {
title "Close Me!"
size -1 -1 100 55
option dbu
box "My Really Cool Dialog", 1, 5 5 90 45
button "Close", 10, 10 15 20 10
button "Close", 20, 30 15 20 10
button "Close", 30, 50 15 20 10
button "Close", 40, 70 15 20 10
button "Close", 50, 10 25 20 10
button "Close", 60, 30 25 20 10
button "Close", 70, 50 25 20 10
button "Close", 80, 70 25 20 10
button "Close", 90, 10 35 20 10
button "Close", 100, 30 35 20 10
button "Close", 110, 50 35 20 10
button "Close", 120, 70 35 20 10, okay
}
on 1:DIALOG:closeMe:INIT:*: {
.timer [ $+ [ $dname ] ] 0 1 /closeMe.check $dname
}
on 1:DIALOG:closeMe:SCLICK:*: {
if ($did == 120) .timer [ $+ [ $dname ] ] off
/dialog -c $dname
}
[/snip]