Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Tk::Button: How do I trigger a callback when button is pressed (as opposed to released)?

by golux (Pilgrim)
on Dec 26, 2012 at 04:31 UTC ( #1010315=note: print w/ replies, xml ) Need Help??


in reply to Tk::Button: How do I trigger a callback when button is pressed (as opposed to released)?

Hi perltux,

Use Button-1 for button-down events (as opposed to ButtonRelease-1 for button-up events). For example:

#!/usr/bin/perl -w use strict; use warnings; use Tk; my $mw = new MainWindow(-title => 'Button press example'); my $bt = $mw->Button(-bg => '#ffefb5', -text => 'Press Me'); my $txt = $mw->Text(-bg => 'white'); $bt->pack($txt); $bt->bind('<Button-1>' => sub { button_down($txt) }); $bt->bind('<ButtonRelease-1>' => sub { button_up($txt) }); Tk::MainLoop; sub button_down { my ($text) = @_; my $time = localtime(time()); $text->insert("end", "$time: Button Down\n"); } sub button_up { my ($text) = @_; my $time = localtime(time()); $text->insert("end", "$time: Button Up\n"); }
say  substr+lc crypt(qw $i3 SI$),4,5


Comment on Re: Tk::Button: How do I trigger a callback when button is pressed (as opposed to released)?
Select or Download Code
Re^2: Tk::Button: How do I trigger a callback when button is pressed (as opposed to released)?
by perltux (Scribe) on Dec 26, 2012 at 04:49 UTC
    Thanks, that works great!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1010315]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2014-12-25 13:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls