Selecting everything is simple enough:

# select everything
$lb->selectionSet(0, 'end' );
[download]

But, you only want to do this if no entry is selected.

@selected = $lb->curselection;
unless (@selected) {
$lb->selectionSet(0, 'end' );
}
foreach (@selected) {
  # do something with the index in $_
}
[download]

Untested!

selectionSet(0, 'end' ); dint seem to work it gives me an error entry end not found

Looking around some more, you may be able to get at the "end" value:

$listbox->index(index)

    Returns the integer index value that corresponds to index. If inde
+x is end the return value is a count of the number of elements in the
+ listbox (not the index of the last element).
[download]

Really, really untested code. Good luck!


SciDude
The first dog barks... all other dogs bark at the first dog.

$last_entry = ($hlist->info("children"))[-1];
[download]

So you have to test for the existence of the selection. For example, I wanted to delete an entry, and then have the active selection move to the next entry. If the next entry dosn't exist, go to the previous entry.Well you may have already deleted the "previous internal number" and you will get "entry dosn't exist" if you just try to go to the previous(or next) number. So you need something along the line of this sub. It just gives you the idea.

 sub{my $listnum =$h->info('selection');
                               $h->delete('entry',$h->info('selection'
+));
                                  if($h->info('exists', $listnum + 1))
+{
                                      $h->selectionSet($listnum + 1)
                                        }else{
                                            while($listnum--){
                                                if($h->info('exists',$
+listnum)){
                                                    $h->selectionSet($
+listnum);last}
                                             }
                                     }
                           delete $info{$key_sel};
[download]