I don't like switching on 'focusFollowsMouse' on Windows as it has too many side effects, but many thanks for your last suggestion ($b->Subwidget('arrow')->configure(-command=>['focus',$b->Subwidget('slistbox')]);) which works fine, except for two minor flaws:

- when clicking on the entry box the listbox also opens but in that case without functioning mousewheel

- the currently selected option is now underlined (which is actually quite nice) except the first time the pop-up is opened for some reason always the first option is underlined, even if the entry field contains a different selected option.


Bingo! Your suggestion has put me on the right track and I have now come up with an even better solution that eliminates the first one of the two minor flaws listed above:

$b->Subwidget('slistbox')->bind('<Enter>', sub{$b->Subwidget('slistbox')->focus()});

Now I only still have to find a solution for the wrong underline the first time the listbox pops up.

In reply to Re^4: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows by perltux
in thread Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows by perltux

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":