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
    }
  }
}