Re^5: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows

Bingo! bind('<Enter>'

Nice! This will scroll by wheel even if focus is on the scrollbar

$b->Subwidget('slistbox')->toplevel->bind(
   '<Enter>',
   [ $b->Subwidget('slistbox'), 'focus' ] ## no closure here
);
[download]

Now for the underline, here is how you figure that out

install Tk::WidgetDump, and add $mw->WidgetDump; to your program before MainLoop

Then run the program, and click on the WidgetDump window

double click the 'listbox' entry which pops up

'Widget Info for Tk::Listbox...' where you click on the first "Option Switch" which pops up

'Edit config' which lets you edit the configuration live,

So change the value, then go back to your mainwindow and see if the underline is still there

Then simply incorporate that into your program

Comment on Re^5: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows Select or Download Code

Replies are listed 'Best First'.
Re^6: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows by perltux (Monk) on Apr 04, 2017 at 03:48 UTC
You are right I missed the scrollbar, but: `$b->Subwidget('slistbox')->toplevel` can be simply written as: `$b->Subwidget('choices')` I figured out the underline is coming from the 'activate' method of Listbox. I don't really get the point of the 'activate' method, I'll have to think about how to deal with it. I wish I could simply deactivate the 'activate' method altogether... ;)	[reply] [d/l] [select]
Re^7: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows by beech (Parson) on Apr 04, 2017 at 06:58 UTC
Hi Does the spoiler work for you? `$b->Subwidget('slistbox')->configure( -activestyle => 'none' );` [download] Seems to turn off underlining on windows	[reply] [d/l]
Re^8: Tk::BrowseEntry listbox scrollbar with Mousewheel on Windows by perltux (Monk) on Apr 04, 2017 at 16:22 UTC
Sorry, I missed the spoiler, yes it works great, many thanks, that solves the last issue.	[reply]