$what = $choices[$dialogLB->curselection];