(I have no perl/Tk handy, so using Tcl::Tk CPAN module instead)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'
In reply to Re: Onchange-like event handler for Tk text widget
by vkon
in thread Onchange-like event handler for Tk text widget
by Lodae00
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |