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