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

[beech]

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
);

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

:)

<Reveal this spoiler or all in this thread>

[perltux]

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... ;)

[beech]

Hi

Does the spoiler work for you?

$b->Subwidget('slistbox')->configure( -activestyle => 'none' );

Seems to turn off underlining on windows

[perltux]

Sorry, I missed the spoiler, yes it works great, many thanks, that solves the last issue.