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

sub InsertKeypress {
  my($w, $char) = @_;
   if (ord($char) < 27) {
     print chr(ord($char) | 0x40), "\n";
 # only Control-G/J/L/M/Q/R/S/U/W/Y/Z are making it to here 
   } else {
  $w->SUPER::InsertKeypress($char);
  }
}