From 3692c8f1e689276b858642d081157f47d1002bf8 Mon Sep 17 00:00:00 2001
From: rmkaplan <69548581+rmkaplan@users.noreply.github.com>
Date: Wed, 30 Jul 2025 15:42:59 -0700
Subject: [PATCH] Removed a call to CENTRALWINDOW in Tedit's modernized
 buttoneventfn (#2223)

Uses uses Tedit's own knowledge of its window layout.  Test case is Lafite's mail scavenger
---
 lispusers/MODERNIZE      |  14 +++++++-------
 lispusers/MODERNIZE.LCOM | Bin 10541 -> 10524 bytes
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lispusers/MODERNIZE b/lispusers/MODERNIZE
index 349c4cc1..75dd3877 100644
--- a/lispusers/MODERNIZE
+++ b/lispusers/MODERNIZE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "30-Jun-2024 22:38:08" {WMEDLEY}<lispusers>MODERNIZE.;50
 30912  
+
(FILECREATED "23-Jul-2025 14:41:38" {WMEDLEY}<lispusers>MODERNIZE.;51
 30928  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS \MODERNIZED.TEDIT.BUTTONEVENTFN)
 
-      :PREVIOUS-DATE "27-Jan-2024 13:38:15" {WMEDLEY}<lispusers>MODERNIZE.;49)
+      :PREVIOUS-DATE "30-Jun-2024 22:38:08" {WMEDLEY}<lispusers>MODERNIZE.;50)
 
 
 (PRETTYCOMPRINT MODERNIZECOMS)
@@ -500,7 +500,8 @@
            (FUNCTION \MODERNIZED.TEDIT.BUTTONEVENTFN])
 
 (\MODERNIZED.TEDIT.BUTTONEVENTFN

-  [LAMBDA (W STREAM)
                                         (* ; "Edited 30-Jun-2024 22:29 by rmk")


+  [LAMBDA (W STREAM)
                                         (* ; "Edited 23-Jul-2025 14:41 by rmk")


+                                                             (* ; "Edited 30-Jun-2024 22:29 by rmk")


                                                              (* ; "Edited 29-Jul-2023 10:48 by rmk")


                                                             (* ; "Edited 13-Oct-2021 21:43 by rmk:")

 
@@ -512,9 +513,8 @@
            NIL
            (WINDOWPROP W 'MODERNIZE.TITLEPROPORTION)
            [APPLY (FUNCTION UNIONREGIONS)
-                  (for
 PANE in
 (\TEDIT.PANELIST (CENTRALWINDOW W)) collect
 (WINDOWPROP PANE
-                                                                                  'REGION]
-           (WINDOWPROP (CENTRALWINDOW W)
+                  (for
 PANE in
 (\TEDIT.PANELIST W) collect
 (WINDOWPROP PANE 'REGION]
+           (WINDOWPROP (\TEDIT.PRIMARYPANE W)
                   'TITLE])
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
@@ -622,5 +622,5 @@
 21329) (INCORNER.REGION 21331 . 22457)) (22517 24989 (MODERN-ADD-EXEC 22527 . 22958) (MODERN-SNAPW 
 22960 . 23503) (TOTOPW.MODERNIZE 23505 . 23933) (MODERN-MENUBUTTONFN 23935 . 24987)) (24990 27419 (
 \MODERNIZED.FREEMENU.BUTTONEVENTFN 25000 . 25647) (MODERNIZED.TB.BUTTONEVENTFN 25649 . 27417)) (27460 
-29151 (TEDIT.MODERNIZE 27470 . 27823) (\MODERNIZED.TEDIT.BUTTONEVENTFN 27825 . 29149)))))
+29167 (TEDIT.MODERNIZE 27470 . 27823) (\MODERNIZED.TEDIT.BUTTONEVENTFN 27825 . 29165)))))
 STOP
diff --git a/lispusers/MODERNIZE.LCOM b/lispusers/MODERNIZE.LCOM
index c7e06501e73d20c60ea305a5bccec5c021c2a7b3..2c93b0ab9abef639ef6e59ac2a7c2e07b6dac6e7 100644
GIT binary patch
delta 273
zcmZ1*G$&|6xUiA2u2*S}u91O}se+-2m5HI1@x&}+2}4Z<E+r!)gq)F)m7%ef>BOy$
zfk>iydU{F<Tq%hqsVNE=%1x{c43spvG~7IWT%Chl9Yb7QfQm5fvzS<|#BQiyY+z|*
zF}Z*-aI!I@7$eujTBXgu7&E09V<xA_s7&sav1PKboV<`tHpoyR#?vo2G{`mF)6c~}
zT*2H-AqHr+XNX=vkf*O>P-K9kpR0nofr4W|fKQ}?i3yr|W1s<0^+1I_p1~oT-DRI~
F0{|3iM@0Yt

delta 270
zcmbOev^Ho$_~e6(ViR)>Bn&haxRi`6b-haSbd3y*Ocacat&GjB3?^=Mv_=xu)6-K@
z;7Um>Nlj6}rrcCXlS{+R)5q00$kj2#)n)R2Mu~~F3hV|7#s-##Mw1H|1I3NZb-fay
zwip6!v9K~U1sXcBR-Vbka`R8dEGfps$tf}_lbdCnm@G{uFJzOCiShIc4h?b*_w;k|
z4_B}-RB(3n3kh=cfeM(LDmVrN_(Uq0SSp|@H8xX-0lLF8L@&V6&(+5>I7Go1P4{Lq
H*=O7U!f;3{