Select Code to Download

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