Select Code to Download

$mw->bind($mw, "<Control-s>" =>  sub { print "not printed\n" } );
my $Notes_tw = $Tabs{'Notes'}->Scrolled(
...
        "tags=@tags\n";
  Tk->break;
}