Update docs, make configurable

Make the meta-key name a parameter and update the docs to match.

Document how different OSes, keyboards, and window systems can affect results.

lispusers/TAB-WINDOWS

@@ -1,8 +1,8 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Jun-2024 16:07:07" {DSK}<Users>hjellinek>Projects>IL>TAB-WINDOWS.;12
 2984   
+
(FILECREATED " 9-Aug-2024 11:31:37" {DSK}<Users>hjellinek>Projects>IL>TAB-WINDOWS.;13
 3078   
 
-      :CHANGES-TO (FNS TAB-WINDOWS IS-KEY-DOWN? START-TAB-WINDOWS KEY-WINDOW SHOW-KEYS)
+      :CHANGES-TO (FNS START-TAB-WINDOWS TAB-WINDOWS SHOW-KEYS IS-KEY-DOWN? KEY-WINDOW)
                   (VARS TAB-WINDOWSCOMS)
                   (PROPS (TAB-WINDOWS :COMPILE-FILE))
 
@@ -20,12 +20,12 @@
     (for
 KEY-NAME-LIST in
 KEYS-DOWN thereis
 (FMEMB KEY-NAME KEY-NAME-LIST])
 
 (START-TAB-WINDOWS

-  [LAMBDA NIL
-    (ADD.PROCESS '(TAB-WINDOWS
)
+  [LAMBDA (META-KEY-NAME)
+    (ADD.PROCESS (LIST 'TAB-WINDOWS (KWOTE META-KEY-NAME))
            'NAME "Window Tabber" 'RESTARTABLE T])
 
 (TAB-WINDOWS

-  [LAMBDA NIL
+  [LAMBDA (META-KEY-NAME)
 
     (* ;; "When the meta and tab keys go down, TOTOPW the next window in OPENWINDOWS")

 
@@ -36,7 +36,7 @@
              [PROGN (while
 T
                        do
 ([LET ((KEYS-DOWN (for
 K in
 \KEYNAMES when
 (KEYDOWNP K) collect
 K)))
                                 [if
 (AND (IS-KEY-DOWN?
 'TAB KEYS-DOWN)
-                                         (IS-KEY-DOWN?
 'EXPAND KEYS-DOWN))
+                                         (IS-KEY-DOWN?
 META-KEY-NAME KEYS-DOWN))
                                     then
 (if
 CURRENT-WINDOW
                                              then
 (TOTOPW CURRENT-WINDOW)
                                                   (SETQ CURRENT-WINDOW (CADR (FMEMB CURRENT-WINDOW 
@@ -49,6 +49,7 @@
 
 (SHOW-KEYS

   [LAMBDA NIL
+    (DECLARE
 (CL:SPECIAL \KEYNAMES))
     (LET ((WINDOW (CREATEW NIL "Keys down")))
          (WINDOWPROP WINDOW 'PROCESS (THIS.PROCESS))
          [WINDOWPROP WINDOW 'CLOSEFN (FUNCTION (LAMBDA (W)
@@ -67,6 +68,6 @@
            'NAME "Showing Keys" 'RESTARTABLE T])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (645 2961 (IS-KEY-DOWN? 655 . 791) (START-TAB-WINDOWS 793 . 915) (TAB-WINDOWS 917 . 2166
-) (SHOW-KEYS 2168 . 2845) (KEY-WINDOW 2847 . 2959)))))
+  (FILEMAP (NIL (645 3055 (IS-KEY-DOWN? 655 . 791) (START-TAB-WINDOWS 793 . 950) (TAB-WINDOWS 952 . 2219
+) (SHOW-KEYS 2221 . 2939) (KEY-WINDOW 2941 . 3053)))))
 STOP