$ perldoc -l -m Tk
C:\citrusperl\vendor\lib\Tk.pm

$ ack -hi ">bind.*button" C:\citrusperl\vendor\lib\Tk |tail
 $mw->bind($class,'<Control-ButtonRelease-1>','Control_ButtonRelease_1');
 $mw->bind($class,'<ButtonRelease-1>','ButtonRelease_1');
 $mw->bind($class,'<B1-Motion>',[ 'Button1Motion' ] );
 $mw->bind($class,'<Double-ButtonPress-1>',['Double1']);
 $mw->bind($class,'<Control-ButtonPress-1>',['CtrlButton1']);
 $mw->bind($class,'<Control-Double-ButtonPress-1>',['CtrlButton1']);
    $e->bind('<ButtonRelease-1>' => sub {
    $e->bind('<ButtonRelease-1>' => undef);
 $mw->bind($class,'<Button-6>',     ['xview','scroll',-1,'units']);
 $mw->bind($class,'<Button-7>',     ['xview','scroll',1,'units']);