#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my $mb = $mw->Button()->pack;
$mb->configure(
    '-command' =>
    sub { ## closure here
        print join "\n",
            $Tk::event,
            $mb->XEvent,
            $mb,
            $Tk::widget,
            '',
        ;;;;;
        
    },
);
$mw->WidgetDump;
$mw->MainLoop();
__END__
Assuming 'require Tk::WidgetDump;' at - line 20.
XEvent=SCALAR(0x113de0c)
XEvent=SCALAR(0x113de0c)
Tk::Button=HASH(0xf44d9c)
Tk::Button=HASH(0xf44d9c)

##</code><code>##

$w->activate('@' . $Ev->x.",".$Ev->y);
$w->BeginExtend( $w->index('@' . $Ev->x.",".$Ev->y));