Anti-nuisance lawsuit warning: The purpose of these notes is to remind me, Zoegond, of stuff or to help me work stuff out. They may contain mistakes.
Quick
- ($a, $b....) = unpack("A2A7...", $packed)
- push( array, list )
Monday, December 23, 2013
Alt-F4 in Win32 Perl::Tk
How to make Alt-F4 work with Perl::Tk under Windows, like it really should by default:
$mw->bind( "<Alt-F4>" => sub { $mw->destroy(); } );
Or of course the sub could call a cleanup method which itself contains the call to destroy.
You don't seem to need the protocol call any more, Alt-F4 will work with just the binding as above.
