Re: [MacPerl] keyUp detection

[Matthias Neeracher <neeri@iis.ee.ethz.ch>]

In article <199812170255.SAA08834@smtp2.Stanford.EDU>, Eric Albert <ejalbert@cs.stanford.edu> writes:
> At 05:08 PM 12/16/98 -0500, Thomas R. Kimpton wrote:
>> The event mask that you pass to WaitNextEvent() is and'ed with the
>> System event mask.  You need to add keyUp events to the system mask.
>> 
>> #include <Events.h>	
>> pascal void SetEventMask(short theMask);

> Yep.  I was browing through comp.sys.mac.programmer.codewarrior just now
> and saw Metrowerks' Greg Bolsinga say this in a message from 12/3:

> -----
> keyUps are filtered out by default on MacOS. To turn them
> on:

> ::SetEventMask(::LMGetSysEvtMask() | keyUpMask);

> Unfortunately, I'm stuck on a PC at the moment, so I have no idea of
> whether either of the above calls is implemented in MacPerl....

Sure.

use Mac::Events;
use Mac::LowMem;

LMSetSysEvtMask(LMGetSysEvtMask() | keyUpMask);

Matthias

-- 
Matthias Neeracher   <neeri@iis.ee.ethz.ch>   http://www.iis.ee.ethz.ch/~neeri
  "And that's why I am going to turn this world upside down, and make
   of it a fire so *bright* that someone real will notice"
                                -- Vernor Vinge, _Tatja Grimm's World_

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch