alias test dialog -m test-x test-x
dialog test-x {
title "Test the -X"
size -1 -1 100 100
option dbu
list 100, 2 15 96 70
box "Listed %Vars to Unset" , 200, 1 5 98 98
button "OK", 900, 35 80 30 15, ok
[color:red]button "", 999, 0 0 0 0, cancel[/color]
}
on *:dialog:test-x:init:0:{
set %var-1 this
set %var-2 is a
set %var-3 sample
did -a test-x 100 $+(%,var-1) %var-1
did -a test-x 100 $+(%,var-2) %var-2
did -a test-x 100 $+(%,var-3) %var-3
}
on *:dialog:test-x:sclick:900:{
echo -s $($did(test-x,100).seltext,2)
unset %var-*
}
[color:red]
on *:dialog:test-x:sclick:999:{
unset %var-*
}
[/color]