dialog -l test {
title "TEST DIALOG"
size -1 -1 50 70
option dbu disable
button "Test 6", 6, 2 55 46 10
button "Test 5", 5, 2 45 46 10
button "Test 4", 4, 2 35 46 10
button "Test 3", 3, 2 25 46 10
button "Test 2", 2, 2 15 46 10
button "Test 1", 1, 2 5 46 10
}
ON *:DIALOG:test:*:*: {
if ($devent == sclick) {
if ($did == 1) { var %bug = $input(Test input,euidbk60,Enter) }
if ($did == 2) { var %ok = $input(Test input,ouidbk60,Information) }
if ($did == 3) { var %warn = $input(Test input,woudbk60,Warning) }
if ($did == 4) { var %error = $input(Test input,houdbk60,Error) }
if ($did == 5) { var %ok = $input(Test input,qoudbk60,Question) }
if ($did == 6) { var %bug = $$?="Test input" }
}
}
alias testing { dialog -md test test }