#!/usr/bin/perl --
use strict; use warnings;
use Tk;
my $mw = tkinit;
my $tt = $mw->Scrolled('Text')->pack;
$tt->bind( '<Key>' => sub {  warn $Tk::event->k, ' ', $Tk::event->K; }
+, );
$tt->bind( 'Tk::Text' => '<Key-semicolon>' => 'NoOp' );
$tt = $mw->Scrolled('Text')->pack;
$tt->bind( 'Tk::Text' => '<Key-semicolon>' => sub { warn 'semicolon re
+jected '; return !!0; } );
$mw->WidgetDump; use Tk::WidgetDump;
$tt->focus;
$mw->MainLoop;
[download]

Thanks!, Exactly what I needed, and very helpful

We're here to help you learn... but your question is tantamount to a "gimmé." Rather than ask others to solve your problem without any evidence of effort on your part (the gimmé), please read the documentation, write some code, and if that fails, debug. Then you'll be well served by asking Monks where the problem lies.

#!/usr/bin/perl --
use strict; use warnings;
use Tk;
my $mw = tkinit;
my $tt = $mw->Scrolled('anonText', -bg => 'white' );
$tt->pack( qw/-expand 1 -fill both / );
$mw->geometry('50x100');
$mw->WidgetDump; use Tk::WidgetDump;
$tt->focus;
$mw->MainLoop;

BEGIN {
    package Tk::anonText;
    use base qw/ Tk::Derived Tk::Text /;
    Construct Tk::Widget 'anonText';
    sub Insert
    {
        warn "@_ ";
        my( $w, $string ) = @_;
        return unless (defined $string && $string ne '');
        return if $string eq ';';
        return $w->SUPER::Insert( $string );
    }
    1;
}
__END__
[download]