lispusers/TEDIT-PF-SEE: Explicitly give up TTY process on close

I'm not sure  why the READONLY TEDIT-SEE windows get the TTY process, that may be the underlying problem.  But at least here I now make sure that the if the window is the tty process on closing, it gives it back to the exec.  Otherwise, the window pops back up if there is input (even wheel scroll interrupts) before the user clicks somewhere else

lispusers/TEDIT-PF-SEE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Oct-2021 15:22:43" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;28
 6665   
+
(FILECREATED "12-Oct-2021 22:31:01" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;30
 6975   
 
-      changes to%:  (FNS PF-TEDIT)
+      changes to%:  (FNS CLOSE-TYPED-WINDOW)
 
-      previous date%: "11-Oct-2021 10:07:08" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;26)
+      previous date%: "12-Oct-2021 15:22:43" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;29)
 
 
 (PRETTYCOMPRINT TEDIT-PF-SEECOMS)
@@ -108,7 +108,7 @@
          WINDOW])
 
 (CLOSE-TYPED-WINDOW

-  [LAMBDA (WINDOW ALL)
                                  (* ; "Edited 11-Oct-2021 09:09 by rmk:")

+  [LAMBDA (WINDOW ALL)
                                  (* ; "Edited 12-Oct-2021 22:30 by rmk:")

 
     (* ;; "Puts the region of WINDOW back on the region list for its type, for later reuse.  If ALL, closes all windows of the type of WINDOW (and recursively puts their regions also on the list).")

 
@@ -120,8 +120,12 @@
                                                                            (WINDOWPROP W 'WINDOWTYPE)
                                                                            )
                                  UNLESS
 (EQ W WINDOW) DO
 (CLOSEW W))
-                   ELSE
 (DSUBST (WINDOWPROP WINDOW 'REGION)
-                                   WINDOW TYPED-WINDOWS)))])
+                   ELSE
 (CL:WHEN (TTY.PROCESSP (WINDOWPROP WINDOW 'PROCESS))
+                                                             (* ; 
+
                                            "Otherwise, the window pops up if you don't click away")

+                                (TTY.PROCESS T))
+                         (DSUBST (WINDOWPROP WINDOW 'REGION)
+                                WINDOW TYPED-WINDOWS)))])
     WINDOW])
 )
 
@@ -139,6 +143,6 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (833 3903 (SEE-TEDIT 843 . 1253) (PF-TEDIT 1255 . 3901)) (3904 6353 (GET-TYPED-WINDOW 
-3914 . 5387) (CLOSE-TYPED-WINDOW 5389 . 6351)))))
+  (FILEMAP (NIL (843 3913 (SEE-TEDIT 853 . 1263) (PF-TEDIT 1265 . 3911)) (3914 6663 (GET-TYPED-WINDOW 
+3924 . 5397) (CLOSE-TYPED-WINDOW 5399 . 6661)))))
 STOP