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

@@ -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