use Tk; my $t=tkinit->Text->pack; $t->bind('<<Modified>>'=>sub { if($t->editModified) {print qq/chg\n/;$t->editModified(0)} }); MainLoop;
In reply to Re^2: Onchange-like event handler for Tk text widget
by vkon
in thread Onchange-like event handler for Tk text widget
by Lodae00
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |