#!/usr/bin/perl
use warnings;
use strict;
use Tk;

package Tk::MyText;

require Tk::Text;
use base qw/Tk::Text/;
Construct Tk::Widget 'MyText';

sub ClassInit {
  print "ClassInit [@_]\n";
  my($class,$mw) = @_;
  $class->SUPER::ClassInit($mw);
  $mw->bind($class,'<Control-KeyPress>','NoOp');
  $class;
}
#####################################################

package main;

my $top = tkinit;
my $text = $top->MyText->pack;

$text->eventAdd('<<Bogus>>' => '<Control-Key-G>','<Control-Key-g>');
$text->bind('<<Bogus>>',

sub { $text->insert('end'," <-- How do I supress this?\n") });

print $text->eventInfo('<<Bogus>>');

MainLoop;