my $allowed=1;
$text->bind('<<Modified>>' =>
            sub {
		getText($text, @_); 
				do {$allowed=0;$text->editModified(0);$allowed=1} if $allowed;
	    } );