Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 33064
Status: resolved
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: lamprecht [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Unimportant
Broken in:
  • 804.027
  • 804.027_500
  • 804.027_501
  • 804.028
Fixed in: (no value)



Subject: Tk::Widget::bindDump should work with Tk::Canvas
Tk::Widget::bindDump should call Tk::bind instead of bind to print the bindings for Tk::Canvas and derived widgets as well. Patch against current svn trunk attached. Thanks, Christoph
Subject: Tk-Widget-bindDump.patch
Index: Widget.pm =================================================================== --- Widget.pm (revision 10711) +++ Widget.pm (working copy) @@ -1433,7 +1433,7 @@ # print "Binding information for $w\n"; # foreach my $tag ($w->bindtags) { # printf "\n Binding tag '$tag' has these bindings:\n"; - # foreach my $binding ($w->bind($tag)) { + # foreach my $binding ($w->Tk::bind($tag)) { # printf " $binding\n"; # } # } @@ -1451,7 +1451,7 @@ push @out, sprintf( "\n## Binding information for '%s', %s ##", $w->PathName, $w ); foreach my $tag (@bindtags) { - my (@bindings) = $w->bind($tag); + my (@bindings) = $w->Tk::bind($tag); $n++; # count this bindtag if ($#bindings == -1) { @@ -1460,7 +1460,7 @@ push @out, sprintf( "\n$format1 Binding tag '$tag' has these bindings:\n", $n ); foreach my $binding ( @bindings ) { - my $callback = $w->bind($tag, $binding); + my $callback = $w->Tk::bind($tag, $binding); push @out, sprintf( "$format2%27s : %-40s\n", $binding, $callback ); if ($callback =~ /SCALAR/) {
Thanks, applied as change 10722. Regards, Slaven