#!/usr/bin/perl --
use strict; use warnings;
use Tk;
use Scalar::Util qw/ weaken /;
my $mw = tkinit;
my $b  = $mw->Button->pack;

$b->bind(
    q/<1>/,
#~  sub { $self->onEnter($label, $obj_A) ; },
    [
        sub {
            warn qq/@_/;
            my $button = shift;
            my ( $self, @rest ) = @_;
            $self->onEnter(@rest);
        },
        weaken( $self ),
        weaken( $label ),
        weaken( $obj_A ),
    ]
);
MainLoop;
__END__