$mw->bind($mw, "<Control-s>" =>  sub { print "not printed\n" } );
my $Notes_tw = $Tabs{'Notes'}->Scrolled(
  'TextUndo'
  , -background=>$COLOR{input_bgcolor}
  , -foreground =>$COLOR{input_fgcolor}
  , -scrollbars => 'se' 
  , -wrap => 'word' 
);

$Notes_tw->bind("<Control-s>", \&handlectl);

sub handlectl { 
  my @tags = $Notes_tw->bindtags;
  print
		' typefield=', $Tk::event->T,"\n",  
		' winfield=', $Tk::event->i,"\n", 
		' widgetfield=', $Tk::event->W,"\n", 
		' xrootfield=', $Tk::event->X,"\n", 
		' yrootfield=', $Tk::event->Y,"\n",
		' sendfield=', $Tk::event->E,"\n",  
		' state=', $Tk::event->s,"\n",  
		' unicode=', $Tk::event->A,"\n",  
		' KeySym=', $Tk::event->K,"\n",  
		' numeric=', $Tk::event->N,"\n",  
		' keycode=', $Tk::event->k,"\n",  
		"tags=@tags\n";
  Tk->break;
}