Forums Scripts & Popups Populating dropdown combo boxes.

    var %i = 1 | var %i.max = $calc($chan(0) + $query(0))
    scid $did($dname,116).sel
    did -r $dname 117
    while ( %i <= %i.max ) {
      did -i $dname 117 %i $iif($chan(%i),$chan(%i),$query($calc( %i - $chan(0) )))
      inc %i
    }

alias combotest dialog -m combotest combotest
dialog ComboTest {
  title "Combo Box Test"
  size -1 -1 100 60
  option dbu
  combo 100, 5 5 90 50, drop sort
  combo 200, 5 20 90 50, drop sort
  button "Update", 900, 25 40 50 10
} 
on *:dialog:combotest:init:0:{
  var %i = 1
  var %tokens = *.mrc *.ini *.txt
  while (%i <= 3) {
    did -a combotest 100 $gettok(%tokens,%i,32)
    inc %i
  }
  did -c combotest 100 1
  var %item = $did(combotest,100,0).text
  var %null = $findfile($mircdir,%item,0,did -a combotest 200 $nopath($1-))
  did -c combotest 200 1
}
on *:dialog:combotest:sclick:900:{
  did -r combotest 200
  var %item = $did(combotest,100,0).text
  var %null = $findfile($mircdir,%item,0,did -a combotest 200 $nopath($1-))
  did -c combotest 200 1
}