Help for this page

Select Code to Download


  1. or download this
    C:\Users\peter.jones\Downloads\TempData\perl>perl pm.pl
Perl version v5.30.0
...
event: 1
event: 32
event: 0
  2. or download this
    my $save = $IN-> Mode;
END { $IN-> Mode( $save )};
$IN-> Mode(( $save | 0x0010 ) & ~0x0040 ); # +MOUSE, -QUICK_EDIT
  3. or download this
    C:\Users\peter.jones\Downloads\TempData\perl>perl pm.pl
Perl version v5.30.0
...
event: 1
event: 32
event: 0