Help for this page
my $allowed=1; $text->bind('<<Modified>>' => ... do {$allowed=0;$text->editModified(0);$allowed=1} if $ +allowed; } );