github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Remove dependency on internal TEXTOBJ field

Browse Source
This commit is contained in:
rmkaplan 2025-03-17 12:04:27 -07:00
parent 97fdcbdfe3
commit 5366ae124c
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
doctools/IMINDEX
View File

@ -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 "29-Jun-2024 00:14:46" {WMEDLEY}<doctools>IMINDEX.;8 37147
: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 " 7-Apr-2024 09:25:49" {WMEDLEY}<doctools>IMINDEX.;6)
(PRETTYCOMPRINT IMINDEXCOMS)
@ -163,11 +163,11 @@
(TERPRI PTRFILE])
(IM.INDEX.EDIT
[LAMBDA (OBJ TEXTSTREAM) (* ; "Edited 18-Jul-88 14:10 by burns")
[LAMBDA (OBJ TEXTSTREAM) (* ; "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 (\TEDIT.PRIMARYPANE (TEXTOBJ TEXTSTREAM)))
(TEDIT.REGION (AND TEDIT.WINDOW (WINDOWREGION TEDIT.WINDOW)))
OBJ.DATA OBJ.DATA.PROPLIST)
(WINDOWPROP W 'IM.INDEX.OBJ OBJ)
@ -640,13 +640,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 (1676 15456 (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 . 12003) (IM.INDEX.LIST.FROM.STRING 12005 . 13039) (IM.INDEX.SIZEFN 13041 . 13801
) (IM.INDEX.STRING.FROM.LIST 13803 . 14048) (IM.INDEX.PUTFN 14050 . 14396) (IM.INDEX.GETFN 14398 .
14695) (IM.INDEX.BUTTONEVENTFN 14697 . 15454)) (15457 17527 (IM.INDEX.INIT 15467 . 17525)) (17528
29444 (IM.INDEX.MENU 17538 . 19226) (IM.INDEX.MENU.WHENSELECTEDFN 19228 . 25983) (
IM.INDEX.OBJ.FREEMENU.SELECTEDFN 25985 . 29442)) (31960 37103 (IM.CHAP.COPYFN 31970 . 32150) (
IM.CHAP.CREATEOBJ 32152 . 33578) (IM.CHAP.DISPLAYFN 33580 . 35540) (IM.CHAP.SIZEFN 35542 . 36544) (
IM.CHAP.PUTFN 36546 . 36730) (IM.CHAP.GETFN 36732 . 36893) (IM.CHAP.BUTTONEVENTFN 36895 . 37101)))))
STOP

BIN
doctools/IMINDEX.LCOM
View File

Binary file not shown.