#!/bin/sh
#\
exec wish "$0" "$@"

# keysym.tcl - zeigt die
# Key- und ASCII-Codes
# von Tastendrücken an

set t [text .t]
pack $t -expand y -fill both

bind . <KeyPress> {
  $t insert end "\t"
  $t insert end {%%K=%K %%A=%A}
  $t insert end "\n"
  $t see end
}