; We want to popular the listbox with entries from the contacts.lst file 
on *:dialog:addressbook:init:0: {
  var %i = 1
  while (%i <= $lines(contacts.lst)) {
    set %email.address $read($scriptdirdata/contacts.lst, %i)
    did -a addressbook 2 %email.address
    inc %i
  }
}