There's more than one way to do things | |
PerlMonks |
Re^4: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windowsby perltux (Monk) |
on Apr 04, 2017 at 00:15 UTC ( [id://1186926]=note: print w/replies, xml ) | Need Help?? |
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 Section
Seekers of Perl Wisdom
|
|