Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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

by golux (Chaplain)
on Dec 26, 2012 at 04:31 UTC ( [id://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

Replies are listed 'Best First'.
Re^2: Tk::Button: How do I trigger a callback when button is pressed (as opposed to released)?
by perltux (Monk) on Dec 26, 2012 at 04:49 UTC
    Thanks, that works great!

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (5)
As of 2024-03-29 13:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found