Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    sub released{
    print 'Key: ', ${Ev('K')}, " released\n";
    }
    
  2. or download this
    #!/usr/bin/perl
    use warnings;
    ...
      $mw->bind("<Key>",  sub { } );
      $mw->bind("<KeyRelease>",  sub {&pressed } );
    }