#!/usr/bin/perl use warnings; use strict; use Tk; my $mw = new MainWindow(); # 1. Entry $mw->Label(-text=>'Label 1: ')->pack; my $e1 = $mw->Entry()->pack; # 2. Entry $mw->Label(-text=>'Label 2: ')->pack; my $e2 = $mw->Entry()->pack; # Exit-Button $mw->Button(-text=>'End', -command=>sub {exit} )->pack; # -- Define Bindings -- # -- "Do play a Beep when <Alt-e> ist pressed - except # -- for: focus is on $e1" $mw->bind("<Alt-e>", sub { print "\a"; print "beep\n"; } ); $e1->bind("<Alt-e>", sub { } ); my (@bt) = $e1->bindtags; print "before-> @bt\n"; #In order to change the beep in the entry, without #affecting the $mw beep, you must change the bindtags #for $e1. Remove the toplevel and 'all' specs, or at #least move them to the end of the bind order. $e1->bindtags([$e1, ref($e1)]); # or, depending on your requirements... #$e1->bindtags([$e1, ref($e1), $e1->toplevel, 'all']); (@bt) = $e1->bindtags; print "after-> @bt\n"; MainLoop;
In reply to Re: How can I un-bind a button in Perl Tk
by zentara
in thread How can I un-bind a button in Perl Tk
by ghosh123
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |