Dialog test {
  size -1 -1 100 58
  option dbu
  list 1,5 5 90 50, hsbar vsbar
}

on *:dialog:test:init:0: {
  did -az $dname 1 11111111111111111111111111111
  did -az $dname 1 22222222222222222222222222222
  did -az $dname 1 33333333333333333333333333333
  did -az $dname 1 44444444444444444444444444444
  did -az $dname 1 55555555555555555555555555555
  did -az $dname 1 66666666666666666666666666666
  did -az $dname 1 77777777777777777777777777777
}