Hello! I use perl 5.10 on a winXP platform (Perl ActiveState), with tkx for my GUI.

I use listbox for displaying data strings, one string per row. I have implemented a context menu bound to the right button of the user's mouse, which works well.

$list->g_bind("<3>", [
sub {my($x,$y) = @_; $listmenu->g_tk___popup($x,$y)}, Tkx::Ev("%X", "%
+Y")
]);
[download]

I now wish to bind this menu to a mouse-over event.

My problem is that I don't want the menu to appear when the mouse pointer enters the entire listbox. I only want it to appear when the pointer enters the row or rows that the user has selected.

There does not seem to be an obvious way of doing this. How will I go about solving the problem?

Thanks!