7a32bd3051
Make the meta-key name a parameter and update the docs to match. Document how different OSes, keyboards, and window systems can affect results.
32 lines
3.1 KiB
Plaintext
32 lines
3.1 KiB
Plaintext
4
|
||
|
||
1
|
||
|
||
TAB-WINDOWS
|
||
1
|
||
|
||
4
|
||
|
||
By: Herb Jellinek (jellinek@newscenter.com)
|
||
This document last edited on October 20, 2024.
|
||
INTRODUCTION
|
||
TAB-WINDOWS is a utility that makes it easy to review all of the open windows in the Medley environment. Once it's running, press META-TAB, and keep pressing META and press and release TAB to pop up (TOTOPW) successive windows.
|
||
INTRODUCTION
|
||
How well this works depends on your personal Medley installation and preferences. The author uses this with a Mac-compatible keyboard under macOS using X Windows and SDL, with the "option" key serving as the META key via
|
||
(KEYACTION 'EXPAND '(METADOWN . METAUP))
|
||
|
||
FUNCTIONS
|
||
(START-TAB-WINDOWS 'DBK-META) [Function]
|
||
Call this to start the background TAB-WINDOWS process. Use the Process Status Window (PSW) to stop it.
|
||
(KEY-WINDOW) [Function]
|
||
This function starts a process that pops up a window that displays the keyboard and mouse buttons that are currently depressed. This might be useful for debugging code that handles keyboard and mouse input events, for instance.
|
||
|
||
(LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) 1 $ 1 <01> $ 1 <01> $ 4 <01> $<01> 4 <01> $<01> 1 <01> $ 1 <00> <00>8 $ 1 <00> <00>8 $ MODERN
|
||
Y K(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8)))
|
||
MODERN
|
||
TERMINAL
|
||
TERMINAL
|
||
<02> TERMINAL
|
||
MODERN
|
||
<02> MODERN HRULE.GETFN HRULE.GETFN HRULE.GETFN HRULE.GETFN - / x <00> )
|
||
j <00> DATE:h<><68>; ' 8z<38> |