Help for this page
-command => sub{push(@Sel, $n)} && sub{ $Selected[$i] = defined $Selec +ted[$i] ? undef : $n;}
-command => sub{ $Selected[$i] = defined $Selected[$i] ? undef : $n;}