Help for this page

Select Code to Download


  1. or download this
     perl -MTk -e'$t = tkinit->Text->pack;$t->bind("<KeyPress>", sub{print $t->index("insert"),"\n"});MainLoop'