#!/usr/local/bin/perl
use strict;
use warnings;
use Tk;
use Tk::TextUndo;

my $mw=MainWindow->new(-title=>'CTRL-S Test');
my $text = $mw->Scrolled('TextUndo', -scrollbars=>'osoe', -width=>40, -height=>15)->pack;
my $closebutton = $mw->Button(-text=>'Close', -command=>sub {$mw->destroy;})->pack(-fill=>'x');

$text->bind('<Control-KeyPress-r>',sub{$text->delete('insert - 1 chars'); print "CTRL-R gedrückt\n";});
$text->bind('<KeyPress>', [\&text_validate,Ev('A')]); 

MainLoop();

sub text_validate {
  my ($text,$A) = @_; 

  if ($A eq chr(19)) { # CTRL-S gedrückt
   #$text->break;
   print "Gotcha\n";
   $text->break;
  }
  else {
   print "weiter\n";
  }

}