diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/keysyms.pl')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/keysyms.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/keysyms.pl b/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/keysyms.pl new file mode 100644 index 00000000000..17f594d7061 --- /dev/null +++ b/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/keysyms.pl @@ -0,0 +1,20 @@ +use strict; + +sub keysyms { + + my( $demo ) = @_; + + my $mw = $MW->WidgetDemo( + -name => $demo, + -text => 'This demonstration displays the keysym for any keyboard character.', + -title => 'Display Keysyms', + -iconname => 'keysyms', + ); + + $mw->Label( qw/ -relief solid -width 20 /, -textvariable => \my $k )->pack; + + $mw->bind( '<KeyPress>' => sub { + $k = sprintf( "%s", $Tk::event->K ); + }); + +} # end keysyms |