Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!apple!agate!shelby!unix!husc6!endor!siegel
From: siegel@endor.uucp (Rich Siegel)
Newsgroups: comp.sys.mac.programmer
Subject: Re: @ Operator & Keydown events in Think Pascal?
Message-ID: <4641@husc6.harvard.edu>
Date: 9 Nov 90 13:31:28 GMT
References: <29660.27364102@stjhmc.fidonet.org>
Sender: news@husc6.harvard.edu
Reply-To: siegel@endor.UUCP (Rich Siegel)
Organization: Symantec Language Products Group
Lines: 22

In article <29660.27364102@stjhmc.fidonet.org> Chris.Gehlker@p12.f56.n114.z1.fidonet.org (Chris Gehlker) writes:

>>       GetKeys(myKeys);
>>       TestKey := BitTst(@myKeys[1], i)

	Inside Mac defines a KeyMap as a packed array of [0..127] of Boolean.
Since versions of THINK Pascal prior to 3.0 didn't support bit-packing, this
type was redefined to be an array[0..3] of LongInt. Since 3.0 supports 
bit-packing, the definition was changed back to conform with Inside Mac. To
test the i'th key, just say:

	GetKeys(myKeys);
	TestKey := myKeys[i];

R.



 Rich Siegel	Software Engineer	Symantec Languages Group
 Internet: siegel@endor.harvard.edu	UUCP: ..harvard!endor!siegel

If you have telekinetic powers, raise my hand.