Help for this page

Select Code to Download

Select or download this

perl -MTcl::Tk -we '$t=Tcl::Tk::tkinit->Text->pack;$t->bind("<<Modifie
+d>>"=>sub{if($t->editModified){print qq/chg\n/;$t->editModified(0)}})
+;Tcl::Tk::MainLoop'