87b3ee3134
WHICHKEY returns the keynumber as well as the keyname, for convenience * Added documentation
30 lines
3.1 KiB
Plaintext
30 lines
3.1 KiB
Plaintext
Medley WHICHKEY
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
WHICHKEY
|
||
1
|
||
|
||
4
|
||
|
||
By Ron Kaplan
|
||
This document was last edited in October 2025.
|
||
|
||
This file defines two trival functions, WHICHKEY and DOWNP.
|
||
(WHICHKEY DELAY) [Function]
|
||
WHICHKEY returns a pair (keynumber keyname) corresponding to the first key in the keyboard transition table that is down after DELAY milliseconds have expired. The DELAY gives the user time to find and depress the key after typing in the WHICHKEY expression in an exec. DELAY defaults to 3000. WHICHKEY returns NIL if no key is down after DELAY milliseconds.
|
||
(DOWNP KEYNAME DELAY) [Function]
|
||
Returns T if key KEYNAME is down after DELAY milliseconds.
|
||
|
||
Only the source file for WHICHKEY is provided, there is no compiled file.
|
||
(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter STARTINGPAGE# NIL LANDSCAPE? NIL FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))))) 1 $ 4 È $È 4 È $È 1 È $ 1 Š Š8 $ 1 Š Š8 $ J È $È PAGEHEADING RUNNINGHEAD / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) 0 CLASSIC
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN (CHARPROPS (COLOR . BLACK)) 3
|
||
TIMESROMAN $ (CHARPROPS (COLOR . BLACK))
|
||
HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN 0 <
|
||
! f A
|
||
I (((CLEARGET) (CHARENCODING . MCCS)))PROPS: .DATE:jÀô‹ Ð ;zº |