Wie finde ich heraus, wie der bind-Befehl lautet, der einer bestimmten Taste zugeordnet ist?

Inhalt:

Wenn man folgenden Code ausführt, erscheint ein Fenster, das einem zu jeder gedrückten Taste den bind-Befehl verrät, mit dem man dieses Ereignis abfangen kann:

---

#!/usr/bin/perl

use warnings;
use Tk;
use strict;

my $bind=' ';
my $main=new MainWindow(-title=>'Gettaste');
$main->geometry("140x30");

$main->bind('<Key>',[\&check_key,Ev('K')]);

$main->Label(-textvariable=>\$bind)->pack;

MainLoop;

sub check_key
{
$bind="'<$_[1]>'";
}

---

Ein ähnliches Programm findet man im Standardprogramm widget seit Tk804.xxx unter Miscellaneous, Show keyboard symbols.

-- IshKa - 18 Aug 2003