Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use Tk;
...

$f->focus;
MainLoop;
  2. or download this
    #!/usr/bin/perl
use warnings;
...
    print "keysym=$keysym_text, numberic=$keysym_decimal\n";
}