Hi,

What did I miss? You only want to yview and not select? Can you not copy WheelsUp and do yview instead of updown?

update:

If you remove your bind call and replace it with  $mw->focusFollowsMouse; then the Tk::Listbox natural wheel bindings work to scroll the listbox up down without changing the selection

But if focusFollowsMouse is too much focus flipping, simply give the focus to the listbox when the button is pressed

$b->Subwidget('arrow')->configure(
  -command => [ 'focus', $b->Subwidget('slistbox') ],
);
[download]

Also, $mw->WidgetDump can help you peek inside

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.