alias test { dialog -m test test }
dialog test {
title ""
option pixels
size -1 -1 306 156
text "Enter or select the modes to delete:", 1, 10 12 290 16
combo 2, 8 92 290 120, sort edit drop result
button "&OK", 3, 141 125 76 23, ok default
button "&Cancel", 4, 223 125 76 23, cancel
}
on *:dialog:test:*:*:{
if ($devent == init) {
var %i 1,%g +n,+t,+T,+P,%f +t,%r $numtok(%g,44)
while (%i <= %r) {
did -a $dname 2 $gettok(%g,%i,44)
if ($gettok(%g,%i,44) != %f) { did -co $dname 2 0 %f | did -f $dname 2 }
inc %i
}
}
}