Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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


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

Replies are listed 'Best First'.
Re^2: perl/tk HLIST selections options
by (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!

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://373040]
[Discipulus]: imperial infiltration
[marto]: Corion none of it is live, all recordings, in the first instance they need to transfer video from dead/dying media (DVDR, VHS, Laserdisc and so on)
[marto]: Discipulus, yeah pretty much robots going around parts of the plant humans can't

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2017-07-28 09:43 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (425 votes). Check out past polls.