> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of ????? ????????
> Sent: November 25, 2005 7:23 AM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Multiple bindings in Tk
>
> Hello, perl Users.
>
> I've been playing with Tk and encountered that I can't (or
> possibly don't know how to) bind more than one callback to
> the particular sequence (on the same tag level).
It's as easy as wrapping each callback you want triggered in a subroutine.
$widget->bind('<whatever'>,[\&yourcallback,@args]);
sub yourcallback
{
my @args = @_;
anothercallback(@args);
yetanothercallback(@args);
etc. etc.
}
sub another callback
{
#etc.
}
sub yetanothercallback
{
#etc.
}
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
