I think you've found the simplest way around the problem.

Looking into the module's code, the binding is done deliberately, although it seems fairly safe to remove.

If you go into the subs (note that line 104 also calls the ButtonHack sub), you'll see the following: 

# This hack is to prevent the ugliness of the arrow being depressed.
#
sub ButtonHack {
    my ($w) = @_;
    my $b = $w->Subwidget('arrow');
    if ($w->{'buttonHack'}) {
    $b->butUp;
    }
}

[download]
So, from that, it seems a purely cosmetic thing, and isn't (shouldn't be) critical to the operation of the widget at all.

Of course, I don't know how ugly the depressed arrow button is *grin* .. maybe that's a factor.

I definitely need to point out I haven't tested this, at all, it's based on looking through the module's source code. I also wouldn't even think about changing the module's code, unless it's completely necessary.

I'd suggest that the hack round the problem that you've already found and are using already is probably the best way to go. That'll certainly be the simplest and easiest-to-implement solution, not to mention helping when it comes to the future maintaining of the script.

Hope that helps ..
-- Foxcub

Random Note: It's taken a long while to get here, but this is my 100th post. Roll on 1000 ...

In reply to Re: Tk::BrowseEntry eats click binding by Tanalis
in thread Tk::BrowseEntry eats click binding by tall_man

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


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.