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

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

$text->focus(); 
$text->bind('myValidate', '<KeyPress>', [\&text_validate,Ev('A')]); 
$text->bindtags(['myValidate',$text->bindtags]); 

MainLoop();

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

  if ($A eq chr(19)) { #CTRL-s gedrückt
   print "CTRL-s gedrueckt. speichern.\n";
   save_me();
   $text->break;
  }
  elsif ($A eq chr(6)) {
   print "CTRL-f gedrueckt. Zeige Find Popup.\n";
   $text->FindPopUp;
   $text->break;
  }
  else {
   print "weiter\n";
  }
}

sub save_me {
print "saved\n";
}