Select Code to Download

$mw->bind( '<Control-KeyPress-a>',   [sub {print "Button a has been pr
+essed\n"}] );
$mw->bind( '<Control-KeyRelease-a>', [sub {print "Button a has been re
+leased\n"}] );

$mw->bind( '<Control-KeyPress-a>',   sub {print "Button a has been pre
+ssed\n"} );
$mw->bind( '<Control-KeyRelease-a>', sub {print "Button a has been rel
+eased\n"} );

$mw->bind( '<Control-KeyPress-a>',   [ \&say_button_pressed,  "a" ]);
$mw->bind( '<Control-KeyRelease-a>', [ \&say_button_released, "a" ]);
...
sub say_button_released {
    printf "Button %s has been released\n", $_[0];
}