I use a ctrl-s accelerator to save the contents of a text widget, but
I can't prevent the ctrl-s character from inserting into the text. How
can I do this?

fossildoc wrote:

use strict;
use warnings;

use Tk;
my $mw = tkinit;
my $t = $mw->Text->pack;
$t->bindtags(['MyTag',$t->bindtags]);
$mw->bind('MyTag', '', \&save);

MainLoop;

sub save{
print "saving\n";
Tk::break;
}

HTH, Christoph

On Feb 28, 4:03 am, Ch Lamprecht wrote:

fossildoc wrote:

Hi, Christoph -

Thanks again for responding. Below is the entire sub which contains
the problem. open_annotation_file() is a callback for a menu choice in
a "jpeg document window" Toplevel, whose address is passed to the sub.
Recall that when open_annotation_filie()is called a second time, a new
Toplevel and text widget are created and loaded with the appropriate
file, but that pressing a key while that second text widget's Toplevel
is active will cause the the anonymous sub to reference values from
the first text widget's Toplevel. There are no global variables. I
suspect the problem lies in the relationship between the Subwidget()
return value and bindtags(), neither of which I fully understand, as
the documentation is cryptic. I am running XP Home.

fossildoc schrieb:

Hi,

that's far too much code... And still not enough ;)
Does this behave the way you want:

Christoph

use strict;
use warnings;