#!/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 rejected '; return !!0; } );
$mw->WidgetDump; use Tk::WidgetDump;
$tt->focus;
$mw->MainLoop;