if(defined $lst->curselection)
    {
    ...