From 588835603c2b23a7138bc90b97609a5c9deee542 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 12 Oct 2021 22:35:58 -0700
Subject: [PATCH] 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      |  24 ++++++++++++++----------
 lispusers/TEDIT-PF-SEE.LCOM | Bin 3586 -> 3677 bytes
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/lispusers/TEDIT-PF-SEE b/lispusers/TEDIT-PF-SEE
index 56bc5c8e..55630ce5 100644
--- a/lispusers/TEDIT-PF-SEE
+++ b/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
diff --git a/lispusers/TEDIT-PF-SEE.LCOM b/lispusers/TEDIT-PF-SEE.LCOM
index 8b90d1b6e60eab616edefb0b1a1d6a50d6bcadc3..70d0c477c6915144c3c19fbea042e3378b4097c8 100644
GIT binary patch
delta 317
zcmZpYxhpdvnZwA)%Gl7#z;I%Aq=d17rh<~8k*<GoiLQ}>k)eW-ft87gmGQ(o5<<>C
z{=u%gA&~*DF1q2KelGsu6aVP3LlsOmWRydgRPAYJY@lFfX>O{JoROH9o?5I>lCNr|
zpyB2htiXk7kfuUGQEFLcerd5nN@7W>s?}si#so&o&8AG&oCZbAj0{W;oD4v)Dbpbx
zM00@%K}H6TO%aZp3^~9&K_*Y;t*pWu+$JyJR*%sGtDlw$ruIX0pJa0g<_4*C5Ma<S
zG&E3f2@Z7%4pA^PFjR=~^a~CRa)tOy!O}z_BqUNVAjsd@H8@zo!W@|!u=x(R8WR92
CdrVOP

delta 225
zcmcaB(<Cz?nZwZ3%E-vd#CT$Mq=b=$rh<~8k*<GoiLQ}>k)Z-m($K)lWa1qOjsQ2^
z5LXw^kjZR}dhAf~$<~Z=lfN+rv05mYnVC)Az$mH@Q>Lj<P?TDhnO|D0kdj!Es%ix^
z*bvEJ11ke_D+7zkiHx31MrNBmnXEYtVwo8km>f76fM8RILpq4&0uh3Y3?7@D9XA<r
tfO&#Up3GZWg*O;Z-omXe%H|Nv4H9+`V9>CzRB#CnbqWsIY|f*`1OSbZGa3K@