$mw->bind( "Tk::Text", '<Alt-o>' => sub{ _openHandle( $HRI ); } );
  $mw->bind( "Tk::Text", '<Alt-c>' => sub{ closeHandle( $HRI ); } );
  $mw->bind( "Tk::Text", '<Alt-r>' => sub{
                                  if( $HRI->{'Data'}{'COM'}{'echo'} ) {
                                    $HRI->{'Data'}{'COM'}{'echo'} = 0;
                                  }
                                  else{ $HRI->{'Data'}{'COM'}{'echo'} = 1; } });