Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: perl/tk HLIST selections options

by SciDude (Friar)
on Jul 09, 2004 at 04:21 UTC ( #373040=note: print w/ replies, xml ) Need Help??


in reply to perl/tk HLIST selections options

Selecting everything is simple enough:

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

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 $_ }

Untested!


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


Comment on Re: perl/tk HLIST selections options
Select or Download Code
Re^2: perl/tk HLIST selections options
by sandeep.ses (Acolyte) on Jul 09, 2004 at 05:06 UTC
    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).

      Really, really untested code. Good luck!


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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://373040]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2015-07-05 08:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (61 votes), past polls