specify two events in Entry widget

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

Hi Monks

my $e = $mw->Entry(
    -validate        => 'key',
    -validatecommand => sub {$_[1] =~ /[perl\/Tk]/i},
    -invalidcommand  => sub {$mw->bell},
)->pack;
[download]

In the above, how to specify focusin event and the corresponding validate and invalid commands.

That means how to specify two events with different validate and invalidate subroutines for a widget

Comment on specify two events in Entry widget Download Code

Replies are listed 'Best First'.
Re: specify two events in Entry widget by Anonymous Monk on Jan 16, 2012 at 07:10 UTC
RTM, RTE Tk::bind, Tk::callbacks, Tk::bindtags, widget - Demonstration of Perl/Tk widgets ddg://site:perlmonks.org Tk focusin google://site:perlmonks.org Tk focusin Perl::Tk Is it possible to configure "anonymous" widgets? ddg://site:search.cpan.org Tk bind focusin, google://site:search.cpan.org Tk bind focusin, http://search.cpan.org/grep?cpanid=SREZIC&release=Tk-804.030&string=focusin&i=1&n=1&C=0 `demos/demos/widget_lib/entry3.pl examples/basic_demo examples/pfm examples/tie_basic` [download]	[reply] [d/l]
Re: specify two events in Entry widget by zentara (Cardinal) on Jan 16, 2012 at 11:42 UTC
See Entry widget, default value and validatecommand, and/or post a real code example showing what you are actually trying to do. I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply]