Tk : how to map ButtonRelease to left mouse button?

Special_K has asked for the wisdom of the Perl Monks concerning the following question:

I am just getting started with Tk to make GUIs in Perl and am trying to make a button with a menu that appears when the user left-clicks on it. The following code does not produce any behavior when the button is left-clicked:

$pm->command(-label=>"rerun", -command=>[\&rerun, $dataset] );
$button->bind('<ButtonRelease-1>' => [ sub { push @menulist, $pm; $pm-
+>post( $_[1], $_[2] ) }, Ev('X'), Ev('Y') ] );
[download]

On the other hand, the following does produce the desired menu when the button is right-clicked:

$pm->command(-label=>"rerun", -command=>[\&rerun, $dataset] );
$button->bind('<ButtonRelease-3>' => [ sub { push @menulist, $pm; $pm-
+>post( $_[1], $_[2] ) }, Ev('X'), Ev('Y') ] );
[download]

If ButtonRelease-3 corresponds to the right mouse button, what corresponds to the left mouse button, if not ButtonRelease-1? I also tried ButtonRelease-2 but that didn't do anything either.

Comment on Tk : how to map ButtonRelease to left mouse button? Select or Download Code

Replies are listed 'Best First'.
Re: Tk : how to map ButtonRelease to left mouse button? by Discipulus (Canon) on Apr 01, 2019 at 19:55 UTC
Hello Special_K, It must be 1. Play the following snippet: `use strict; use warnings; use Tk; my $mw = tkinit; $mw->bind('<ButtonRelease>' => sub{ my($widget) = @_; my $e = $widget->XEvent; # get event object # ($keysym_text, $keysym_decimal) = ($e->K, $e->N) print "Button number ",$e->N," was released\n" } ); #ADD also this if unsure: #$mw->bind('<ButtonRelease-1>' => sub{ # print "Button number ONE was released\n" # } #); MainLoop;` [download] L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]
Re: Tk : how to map ButtonRelease to left mouse button? by tybalt89 (Monsignor) on Apr 01, 2019 at 20:36 UTC
This works for me. `#!/usr/bin/perl # https://perlmonks.org/?node_id=1231953 use strict; use warnings; use Tk; my $mw = MainWindow->new; $mw->geometry( '+300+300' ); my $button = $mw->Button(-text => 'Test', -command => sub { print "B1 released\n" }, )->pack; $button->bind('<ButtonRelease-1>' => sub { print "bind release\n" } ); MainLoop;` [download]	[reply] [d/l]