Rmk78 IMINDEXto remove obsolete Tedit field dependency (#2073)

Removes dependency on \WINDOW field. Assigned to Frank, for when/if he
gets back to working on the IRM.

Author: fghalasz

doctools/IMINDEX

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Apr-2024 09:25:49" {WMEDLEY}<doctools>IMINDEX.;6
 37064  
+
(FILECREATED "24-Mar-2025 10:31:37" {WMEDLEY}<doctools>IMINDEX.;10
 37350  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS IM.INDEX.PUTFN IM.INDEX.GETFN)
+      :CHANGES-TO (FNS IM.INDEX.EDIT)
 
-      :PREVIOUS-DATE " 4-Apr-2024 23:17:47" {WMEDLEY}<doctools>IMINDEX.;5)
+      :PREVIOUS-DATE "17-Mar-2025 12:07:55" {WMEDLEY}<doctools>IMINDEX.;9)
 
 
 (PRETTYCOMPRINT IMINDEXCOMS)
@@ -163,11 +163,13 @@
               (TERPRI PTRFILE])
 
 (IM.INDEX.EDIT

-  [LAMBDA (OBJ TEXTSTREAM)
                                   (* ; "Edited 18-Jul-88 14:10 by burns")

-
+  [LAMBDA (OBJ TEXTSTREAM)
                                   (* ; "Edited 24-Mar-2025 10:30 by rmk")


+                                                             (* ; "Edited 17-Mar-2025 12:06 by rmk")


+                                                             (* ; "Edited 29-Jun-2024 00:14 by rmk")


+                                                             (* ; "Edited 18-Jul-88 14:10 by burns")

     (PROG* ((W (FREEMENU IM.INDEX.OBJ.FREEMENU.SPECS))
             (REGION (WINDOWREGION W))
-            [TEDIT.WINDOW (CAR (fetch
 \WINDOW of
 (TEXTOBJ TEXTSTREAM]
+            (TEDIT.WINDOW (TEDITWINDOWP TEXTSTREAM))
             (TEDIT.REGION (AND TEDIT.WINDOW (WINDOWREGION TEDIT.WINDOW)))
             OBJ.DATA OBJ.DATA.PROPLIST)
            (WINDOWPROP W 'IM.INDEX.OBJ OBJ)
@@ -640,13 +642,13 @@
 
 (IM.INDEX.INIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1692 15373 (IM.INDEX.CLOSEF 1702 . 2393) (IM.INDEX.COPYFN 2395 . 2580) (
-IM.INDEX.CREATEOBJ 2582 . 3928) (IM.INDEX.DISPLAY.STRING 3930 . 4351) (IM.INDEX.DISPLAYFN 4353 . 8450)
- (IM.INDEX.EDIT 8452 . 11920) (IM.INDEX.LIST.FROM.STRING 11922 . 12956) (IM.INDEX.SIZEFN 12958 . 13718
-) (IM.INDEX.STRING.FROM.LIST 13720 . 13965) (IM.INDEX.PUTFN 13967 . 14313) (IM.INDEX.GETFN 14315 . 
-14612) (IM.INDEX.BUTTONEVENTFN 14614 . 15371)) (15374 17444 (IM.INDEX.INIT 15384 . 17442)) (17445 
-29361 (IM.INDEX.MENU 17455 . 19143) (IM.INDEX.MENU.WHENSELECTEDFN 19145 . 25900) (
-IM.INDEX.OBJ.FREEMENU.SELECTEDFN 25902 . 29359)) (31877 37020 (IM.CHAP.COPYFN 31887 . 32067) (
-IM.CHAP.CREATEOBJ 32069 . 33495) (IM.CHAP.DISPLAYFN 33497 . 35457) (IM.CHAP.SIZEFN 35459 . 36461) (
-IM.CHAP.PUTFN 36463 . 36647) (IM.CHAP.GETFN 36649 . 36810) (IM.CHAP.BUTTONEVENTFN 36812 . 37018)))))
+  (FILEMAP (NIL (1677 15659 (IM.INDEX.CLOSEF 1687 . 2378) (IM.INDEX.COPYFN 2380 . 2565) (
+IM.INDEX.CREATEOBJ 2567 . 3913) (IM.INDEX.DISPLAY.STRING 3915 . 4336) (IM.INDEX.DISPLAYFN 4338 . 8435)
+ (IM.INDEX.EDIT 8437 . 12206) (IM.INDEX.LIST.FROM.STRING 12208 . 13242) (IM.INDEX.SIZEFN 13244 . 14004
+) (IM.INDEX.STRING.FROM.LIST 14006 . 14251) (IM.INDEX.PUTFN 14253 . 14599) (IM.INDEX.GETFN 14601 . 
+14898) (IM.INDEX.BUTTONEVENTFN 14900 . 15657)) (15660 17730 (IM.INDEX.INIT 15670 . 17728)) (17731 
+29647 (IM.INDEX.MENU 17741 . 19429) (IM.INDEX.MENU.WHENSELECTEDFN 19431 . 26186) (
+IM.INDEX.OBJ.FREEMENU.SELECTEDFN 26188 . 29645)) (32163 37306 (IM.CHAP.COPYFN 32173 . 32353) (
+IM.CHAP.CREATEOBJ 32355 . 33781) (IM.CHAP.DISPLAYFN 33783 . 35743) (IM.CHAP.SIZEFN 35745 . 36747) (
+IM.CHAP.PUTFN 36749 . 36933) (IM.CHAP.GETFN 36935 . 37096) (IM.CHAP.BUTTONEVENTFN 37098 . 37304)))))
 STOP