1
0
mirror of synced 2026-01-30 13:47:04 +00:00
Files
Interlisp.medley/lispusers/TAB-WINDOWS.TEdit
Herb Jellinek 7ed120ca97 TAB-WINDOWS: Step through open windows
Start it running with `(START-TAB-WINDOWS)`.

Bonus: `(KEY-WINDOW)` starts a process that monitors keyboard and mouse button
events and displays them in a little window.
2024-07-19 10:59:52 -07:00

29 lines
2.8 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
4
1
TAB-WINDOWS
1
4
By: Herb Jellinek (jellinek@newscenter.com)
This document last edited on June 24, 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.
FUNCTIONS
(START-TAB-WINDOWS) [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È$4È$Œ1È$4È$È1È$1ŠŠ8$1ŠŠ8$TERMINAL
YK(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8) (POSTSCRIPT (TERMINAL 8)))
MODERN
MODERN
TERMINAL
TERMINAL
MODERN
MODERN  HRULE.GETFN HRULE.GETFN  HRULE.GETFN HRULE.GETFN-,  x 
j åDATE:hEåÖ1zº