Select Code to Download

$ perl -d:Trace -MTk -e" tkinit()->Text()->pack; MainLoop" 2>2

$ grep -i bind 2 |grep -i "<3>"
Tk/Text.pm:146:  $mw->bind($class, '<3>', ['PostPopupMenu', Ev('X'), E
+v('Y')]  );

sub MenuLabels
{
...
}

}

...
 return $w->{'_MENU_'};
}

$ perl -MTk -e" $a=tkinit(); $a->Button( qw! -text bam -command !, sub
+ { $b->eventGenerate(q!<3>!); } )->pack; $b = $a->Text()->pack;  Main
+Loop"