From 140415f99c7590ad43058f4f302bbe40d9ffe586 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 24 Mar 2025 10:33:25 -0700 Subject: [PATCH] Use TEDITWINDOWP instead of \TEDIT.PRIMARYPANE --- doctools/IMINDEX | 27 ++++++++++++++------------- doctools/IMINDEX.LCOM | Bin 16862 -> 16858 bytes 2 files changed, 14 insertions(+), 13 deletions(-) diff --git a/doctools/IMINDEX b/doctools/IMINDEX index 63017ed8..3f6f1512 100644 --- a/doctools/IMINDEX +++ b/doctools/IMINDEX @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Mar-2025 12:07:55" {WMEDLEY}IMINDEX.;9 37246 +(FILECREATED "24-Mar-2025 10:31:37" {WMEDLEY}IMINDEX.;10 37350 :EDIT-BY rmk :CHANGES-TO (FNS IM.INDEX.EDIT) - :PREVIOUS-DATE "29-Jun-2024 00:14:46" {WMEDLEY}IMINDEX.;8) + :PREVIOUS-DATE "17-Mar-2025 12:07:55" {WMEDLEY}IMINDEX.;9) (PRETTYCOMPRINT IMINDEXCOMS) @@ -163,12 +163,13 @@ (TERPRI PTRFILE]) (IM.INDEX.EDIT - [LAMBDA (OBJ TEXTSTREAM) (* ; "Edited 17-Mar-2025 12:06 by rmk") + [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 (\TEDIT.PRIMARYPANE TEXTSTREAM)) + (TEDIT.WINDOW (TEDITWINDOWP TEXTSTREAM)) (TEDIT.REGION (AND TEDIT.WINDOW (WINDOWREGION TEDIT.WINDOW))) OBJ.DATA OBJ.DATA.PROPLIST) (WINDOWPROP W 'IM.INDEX.OBJ OBJ) @@ -641,13 +642,13 @@ (IM.INDEX.INIT) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1676 15555 (IM.INDEX.CLOSEF 1686 . 2377) (IM.INDEX.COPYFN 2379 . 2564) ( -IM.INDEX.CREATEOBJ 2566 . 3912) (IM.INDEX.DISPLAY.STRING 3914 . 4335) (IM.INDEX.DISPLAYFN 4337 . 8434) - (IM.INDEX.EDIT 8436 . 12102) (IM.INDEX.LIST.FROM.STRING 12104 . 13138) (IM.INDEX.SIZEFN 13140 . 13900 -) (IM.INDEX.STRING.FROM.LIST 13902 . 14147) (IM.INDEX.PUTFN 14149 . 14495) (IM.INDEX.GETFN 14497 . -14794) (IM.INDEX.BUTTONEVENTFN 14796 . 15553)) (15556 17626 (IM.INDEX.INIT 15566 . 17624)) (17627 -29543 (IM.INDEX.MENU 17637 . 19325) (IM.INDEX.MENU.WHENSELECTEDFN 19327 . 26082) ( -IM.INDEX.OBJ.FREEMENU.SELECTEDFN 26084 . 29541)) (32059 37202 (IM.CHAP.COPYFN 32069 . 32249) ( -IM.CHAP.CREATEOBJ 32251 . 33677) (IM.CHAP.DISPLAYFN 33679 . 35639) (IM.CHAP.SIZEFN 35641 . 36643) ( -IM.CHAP.PUTFN 36645 . 36829) (IM.CHAP.GETFN 36831 . 36992) (IM.CHAP.BUTTONEVENTFN 36994 . 37200))))) + (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 diff --git a/doctools/IMINDEX.LCOM b/doctools/IMINDEX.LCOM index c84836b84b3aec9d5c49ccc5560c57ad6343f9d4..0add273d6e17eddcb776cd03852f6f6939663aa2 100644 GIT binary patch delta 177 zcmccD%y_GraYDF=k%_KvVv(+qfsv_#p@EgLp_Q@u#B4n&Ljz3(E+r!agshQ~m63^+ zsrkfBx=cm}6Ca9OqRX0E85k*Pa%s4E`nWm=xjKfpx+o}NvtY6zqa25!fr7EQv8lo2 pFh)5hE``ZujPjFZ8I3oeU@YV30c!OO3HS7K@edE!93a?d004FrEFb^? delta 199 zcmccB%y_SvaYDF=p}DSaVv(+qfsv_#p^=q=xs|Eu#B4oDOHBnXB||fWq>-VOiKUg1 z$;8dNHpt?7dU{F9I)=EqOrFYU%BEm!Ze(IMIf7A+ zNr7u}1*5!(k)^IzX&%TOCJF`yR)!{4CT0_>