Skip to content

Inspectcode scrolls, has the correct window title #2222

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 7 commits into from
Jul 30, 2025
Merged

Inspectcode scrolls, has the correct window title #2222

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
9067cc0
Inspectcode scrolls, has the correct window title
rmkaplan Jul 21, 2025
aeab3d0
Add promptwindo so M-f search strings are locally visible
rmkaplan Jul 22, 2025
31baec3
Merge branch 'master' into rmk106--Fix--inspectcode-and-window-title
rmkaplan Jul 24, 2025
386bed8
Merge branch 'master' into rmk106--Fix--inspectcode-and-window-title
rmkaplan Jul 27, 2025
1b8d89f
Delete orphan file TMAX.TOC
rmkaplan Jul 27, 2025
fbaab1e
Fix FILETYPE for LLDISPLAY
rmkaplan Jul 28, 2025
b9f9913
MEDLEYFONTFORMAT More efficient store and read of numeric Interlisp a…
rmkaplan Jul 28, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
76 changes: 39 additions & 37 deletions library/tedit/TEDIT-WINDOW
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "30-May-2025 12:54:56" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;860 229476
(FILECREATED "21-Jul-2025 11:55:26" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;861 229641

:EDIT-BY rmk

:CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW)
:CHANGES-TO (FNS \TEDIT.WINDOW.CREATE)

:PREVIOUS-DATE "29-May-2025 15:02:25" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;858)
:PREVIOUS-DATE "30-May-2025 12:54:56" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;860)


(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
Expand Down Expand Up @@ -354,7 +354,8 @@
(DEFINEQ

(\TEDIT.WINDOW.CREATE
[LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 9-May-2025 12:11 by rmk")
[LAMBDA (WINDOW TSTREAM PROPS) (* ; "Edited 21-Jul-2025 11:55 by rmk")
(* ; "Edited 9-May-2025 12:11 by rmk")
(* ; "Edited 25-Apr-2025 21:24 by rmk")
(* ; "Edited 20-Apr-2025 15:21 by rmk")
(* ; "Edited 18-Feb-2025 09:49 by rmk")
Expand Down Expand Up @@ -392,7 +393,8 @@
(TEDIT.KILL WINDOW)
(\TEDIT.CLOSESPLITS (fetch (TEXTWINDOW WTEXTSTREAM) of WINDOW)
T))
(SETQ TITLE (LISTGET PROPS 'TITLE)))
[SETQ TITLE (OR (LISTGET PROPS 'TITLE)
(WINDOWPROP WINDOW 'TITLE])
(SETQ REGIONTYPE (OR (GETTEXTPROP TEXTOBJ 'REGION-TYPE)
(AND (LITATOM WINDOW)
WINDOW)))
Expand Down Expand Up @@ -3627,36 +3629,36 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (17103 17999 (TEDIT.DEFER.UPDATES 17113 . 17997)) (18000 43777 (\TEDIT.WINDOW.CREATE
18010 . 25172) (\TEDIT.WINDOW.GETREGION 25174 . 28664) (\TEDIT.WINDOW.SETUP 28666 . 32996) (
\TEDIT.MINIMAL.WINDOW.SETUP 32998 . 40409) (\TEDIT.CLEARPANE 40411 . 41128) (\TEDIT.FILL.PANES 41130
. 43775)) (43778 67751 (\TEDIT.CURSORMOVEDFN 43788 . 49398) (\TEDIT.CURSOROUTFN 49400 . 50088) (
\TEDIT.ACTIVE.WINDOWP 50090 . 51160) (\TEDIT.EXPANDFN 51162 . 51725) (\TEDIT.MAINW 51727 . 53007) (
\TEDIT.MAINSTREAM 53009 . 53343) (\TEDIT.PRIMARYPANE 53345 . 54115) (\TEDIT.PANELIST 54117 . 54613) (
\TEDIT.NEWREGIONFN 54615 . 57131) (\TEDIT.SET.WINDOW.EXTENT 57133 . 62387) (\TEDIT.SHRINK.ICONCREATE
62389 . 65122) (\TEDIT.SHRINKFN 65124 . 65533) (\TEDIT.PANEREGION 65535 . 67749)) (67783 100829 (
\TEDIT.BUTTONEVENTFN 67793 . 80766) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80768 . 88031) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 88033 . 89875) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89877 . 93547) (
\TEDIT.BUTTONEVENTFN.INACTIVE 93549 . 95979) (\TEDIT.BUTTONEVENTFN.INTITLE 95981 . 97816) (
\TEDIT.COPYINSERTFN 97818 . 98950) (\TEDIT.FOREIGN.COPY 98952 . 100827)) (100830 118072 (
\TEDIT.PANE.SPLIT 100840 . 104788) (\TEDIT.SPLITW 104790 . 112528) (\TEDIT.UNSPLITW 112530 . 116729) (
\TEDIT.LINKPANES 116731 . 117494) (\TEDIT.UNLINKPANE 117496 . 118070)) (119506 120397 (TEDITWINDOWP
119516 . 120395)) (120434 123537 (TEDIT.GETINPUT 120444 . 122887) (\TEDIT.MAKEFILENAME 122889 . 123535
)) (123586 131213 (TEDIT.PROMPTWINDOW 123596 . 123910) (TEDIT.PROMPTPRINT 123912 . 126539) (
TEDIT.PROMPTCLEAR 126541 . 128260) (TEDIT.PROMPTFLASH 128262 . 129520) (\TEDIT.PROMPT.PAGEFULLFN
129522 . 131211)) (131451 141855 (\TEDIT.FILENAME 131461 . 132233) (\TEDIT.DEFAULT.TITLE 132235 .
134614) (\TEDIT.WINDOW.TITLE 134616 . 136785) (\TEDIT.LIKELY.FILENAME 136787 . 139337) (
\TEDIT.UPDATE.TITLE 139339 . 141853)) (141898 154382 (TEDIT.DEACTIVATE.WINDOW 141908 . 147481) (
\TEDIT.RESHAPEFN 147483 . 149568) (\TEDIT.REPAINTFN 149570 . 149794) (\TEDIT.CLOSESPLITS 149796 .
152241) (\TEDIT.CLOSEPANE 152243 . 154380)) (154383 197182 (\TEDIT.SCROLLFN 154393 . 156624) (
\TEDIT.SCROLLCH.TOP 156626 . 158737) (\TEDIT.SCROLLCH.BOTTOM 158739 . 163069) (\TEDIT.SCROLLUP 163071
. 168797) (\TEDIT.TOPLINE.YTOP 168799 . 170468) (\TEDIT.SCROLLDOWN 170470 . 177509) (
\TEDIT.SCROLL.CARET 177511 . 180349) (\TEDIT.VISIBLECARETP 180351 . 182645) (\TEDIT.VISIBLECHARP
182647 . 183738) (\TEDIT.BITMAPLINES 183740 . 187660) (\TEDIT.SETPANE.TOPLINE 187662 . 188274) (
\TEDIT.SHIFTLINES 188276 . 197180)) (197183 208052 (\TEDIT.ONSCREEN? 197193 . 201744) (
\TEDIT.ONSCREEN.REGION 201746 . 205397) (\TEDIT.AFTERMOVEFN 205399 . 206296) (OFFSCREENP 206298 .
208050)) (208094 210908 (\TEDIT.PROCIDLEFN 208104 . 209764) (\TEDIT.PROCENTRYFN 209766 . 210211) (
\TEDIT.PROCEXITFN 210213 . 210906)) (210987 224212 (\TEDIT.DOWNCARET 210997 . 211790) (
\TEDIT.FLASHCARET 211792 . 213903) (\TEDIT.UPCARET 213905 . 215009) (TEDIT.NORMALIZECARET 215011 .
218229) (\TEDIT.SETCARET 218231 . 223582) (\TEDIT.CARET 223584 . 224210)))))
(FILEMAP (NIL (17100 17996 (TEDIT.DEFER.UPDATES 17110 . 17994)) (17997 43942 (\TEDIT.WINDOW.CREATE
18007 . 25337) (\TEDIT.WINDOW.GETREGION 25339 . 28829) (\TEDIT.WINDOW.SETUP 28831 . 33161) (
\TEDIT.MINIMAL.WINDOW.SETUP 33163 . 40574) (\TEDIT.CLEARPANE 40576 . 41293) (\TEDIT.FILL.PANES 41295
. 43940)) (43943 67916 (\TEDIT.CURSORMOVEDFN 43953 . 49563) (\TEDIT.CURSOROUTFN 49565 . 50253) (
\TEDIT.ACTIVE.WINDOWP 50255 . 51325) (\TEDIT.EXPANDFN 51327 . 51890) (\TEDIT.MAINW 51892 . 53172) (
\TEDIT.MAINSTREAM 53174 . 53508) (\TEDIT.PRIMARYPANE 53510 . 54280) (\TEDIT.PANELIST 54282 . 54778) (
\TEDIT.NEWREGIONFN 54780 . 57296) (\TEDIT.SET.WINDOW.EXTENT 57298 . 62552) (\TEDIT.SHRINK.ICONCREATE
62554 . 65287) (\TEDIT.SHRINKFN 65289 . 65698) (\TEDIT.PANEREGION 65700 . 67914)) (67948 100994 (
\TEDIT.BUTTONEVENTFN 67958 . 80931) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80933 . 88196) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 88198 . 90040) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90042 . 93712) (
\TEDIT.BUTTONEVENTFN.INACTIVE 93714 . 96144) (\TEDIT.BUTTONEVENTFN.INTITLE 96146 . 97981) (
\TEDIT.COPYINSERTFN 97983 . 99115) (\TEDIT.FOREIGN.COPY 99117 . 100992)) (100995 118237 (
\TEDIT.PANE.SPLIT 101005 . 104953) (\TEDIT.SPLITW 104955 . 112693) (\TEDIT.UNSPLITW 112695 . 116894) (
\TEDIT.LINKPANES 116896 . 117659) (\TEDIT.UNLINKPANE 117661 . 118235)) (119671 120562 (TEDITWINDOWP
119681 . 120560)) (120599 123702 (TEDIT.GETINPUT 120609 . 123052) (\TEDIT.MAKEFILENAME 123054 . 123700
)) (123751 131378 (TEDIT.PROMPTWINDOW 123761 . 124075) (TEDIT.PROMPTPRINT 124077 . 126704) (
TEDIT.PROMPTCLEAR 126706 . 128425) (TEDIT.PROMPTFLASH 128427 . 129685) (\TEDIT.PROMPT.PAGEFULLFN
129687 . 131376)) (131616 142020 (\TEDIT.FILENAME 131626 . 132398) (\TEDIT.DEFAULT.TITLE 132400 .
134779) (\TEDIT.WINDOW.TITLE 134781 . 136950) (\TEDIT.LIKELY.FILENAME 136952 . 139502) (
\TEDIT.UPDATE.TITLE 139504 . 142018)) (142063 154547 (TEDIT.DEACTIVATE.WINDOW 142073 . 147646) (
\TEDIT.RESHAPEFN 147648 . 149733) (\TEDIT.REPAINTFN 149735 . 149959) (\TEDIT.CLOSESPLITS 149961 .
152406) (\TEDIT.CLOSEPANE 152408 . 154545)) (154548 197347 (\TEDIT.SCROLLFN 154558 . 156789) (
\TEDIT.SCROLLCH.TOP 156791 . 158902) (\TEDIT.SCROLLCH.BOTTOM 158904 . 163234) (\TEDIT.SCROLLUP 163236
. 168962) (\TEDIT.TOPLINE.YTOP 168964 . 170633) (\TEDIT.SCROLLDOWN 170635 . 177674) (
\TEDIT.SCROLL.CARET 177676 . 180514) (\TEDIT.VISIBLECARETP 180516 . 182810) (\TEDIT.VISIBLECHARP
182812 . 183903) (\TEDIT.BITMAPLINES 183905 . 187825) (\TEDIT.SETPANE.TOPLINE 187827 . 188439) (
\TEDIT.SHIFTLINES 188441 . 197345)) (197348 208217 (\TEDIT.ONSCREEN? 197358 . 201909) (
\TEDIT.ONSCREEN.REGION 201911 . 205562) (\TEDIT.AFTERMOVEFN 205564 . 206461) (OFFSCREENP 206463 .
208215)) (208259 211073 (\TEDIT.PROCIDLEFN 208269 . 209929) (\TEDIT.PROCENTRYFN 209931 . 210376) (
\TEDIT.PROCEXITFN 210378 . 211071)) (211152 224377 (\TEDIT.DOWNCARET 211162 . 211955) (
\TEDIT.FLASHCARET 211957 . 214068) (\TEDIT.UPCARET 214070 . 215174) (TEDIT.NORMALIZECARET 215176 .
218394) (\TEDIT.SETCARET 218396 . 223747) (\TEDIT.CARET 223749 . 224375)))))
STOP
Binary file modified library/tedit/TEDIT-WINDOW.LCOM
View file
Open in desktop
Binary file not shown.
Binary file removed lispusers/tmax/TMAX.TOC
View file
Open in desktop
Binary file not shown.
118 changes: 61 additions & 57 deletions sources/INSPECT
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "16-Jul-2024 18:28:42" {WMEDLEY}<sources>INSPECT.;33 129220
(FILECREATED "21-Jul-2025 16:55:18" {WMEDLEY}<sources>INSPECT.;36 129584

:EDIT-BY rmk

:CHANGES-TO (FNS IMAGEOBJ\PROPFETCHFN IMAGEOBJ\PROPSTOREFN)
(VARS INSPECTCOMS)
:CHANGES-TO (FNS \TEDIT.INSPECTCODE)

:PREVIOUS-DATE " 4-Jul-2024 12:16:52" {WMEDLEY}<sources>INSPECT.;31)
:PREVIOUS-DATE "21-Jul-2025 11:55:38" {WMEDLEY}<sources>INSPECT.;35)


(PRETTYCOMPRINT INSPECTCOMS)
Expand Down Expand Up @@ -1802,24 +1801,29 @@
(\INSPECT/CODE/RESHAPEFN WINDOW])

(\TEDIT.INSPECTCODE
[LAMBDA (FN WHERE LVFLG RADIX PC CODEPRINTER) (* ; "Edited 11-Oct-2021 14:04 by rmk:")
[LAMBDA (FN WHERE LVFLG RADIX PC CODEPRINTER) (* ; "Edited 21-Jul-2025 16:54 by rmk")
(* ; "Edited 11-Oct-2021 14:04 by rmk:")
(PROG ((STREAM (OPENSTREAM '{NODIRCORE} 'BOTH))
WINDOW SEL)
(APPLY* (OR CODEPRINTER (FUNCTION PRINTCODE))
FN LVFLG RADIX STREAM NIL PC)
[SETQ STREAM (OPENTEXTSTREAM STREAM [SETQ WINDOW (DECODE.WINDOW.ARG
WHERE 400 280
(COND
((OR (LITATOM FN)
(NOT (CCODEP FN)))
(CONCAT "Code for " FN))
(T (CONCAT (COND
(PC "Code for frame ")
(T "CCODEP named "))
(fetch (COMPILED-CLOSURE
FRAMENAME)
of FN]
NIL NIL `(READONLY T PROMPTWINDOW DON'T FONT ,DEFAULTFONT]
[SETQ STREAM (TEDIT STREAM [SETQ WINDOW (DECODE.WINDOW.ARG
WHERE 400 280 (COND
((OR (LITATOM FN)
(NOT (CCODEP FN)))
(CONCAT "Code for " FN))
(T (CONCAT (COND
(PC
"Code for frame "
)
(T "CCODEP named ")
)
(fetch (
COMPILED-CLOSURE
FRAMENAME)
of FN]
NIL
`(READONLY T FONT ,DEFAULTFONT]
(COND
((AND PC (SETQ SEL (TEDIT.FIND STREAM "----------" 1)))
(* ; "Highlight location of PC")
Expand Down Expand Up @@ -2311,43 +2315,43 @@
("As Character array" '(8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR))
("As Fat Character array" '(16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR])
(DECLARE%: DONTCOPY
(FILEMAP (NIL (7776 46129 (INSPECTW.CREATE 7786 . 13081) (INSPECTW.REPAINTFN 13083 . 18619) (
INSPECTW.REDISPLAY 18621 . 27493) (\INSPECTW.VALUE.MARGIN 27495 . 27898) (INSPECTW.REPLACE 27900 .
28608) (INSPECTW.SELECTITEM 28610 . 29600) (\INSPECTW.REDISPLAYPROP 29602 . 32032) (INSPECTW.FETCH
32034 . 32457) (INSPECTW.PROPERTIES 32459 . 33100) (DECODE.WINDOW.ARG 33102 . 34830) (
DEFAULT.INSPECTW.PROPCOMMANDFN 34832 . 36860) (DEFAULT.INSPECTW.VALUECOMMANDFN 36862 . 38278) (
DEFAULT.INSPECTW.TITLECOMMANDFN 38280 . 41729) (\SELITEM.FROM.PROPERTY 41731 . 42173) (
\INSPECT.COMPUTE.TITLE 42175 . 43459) (LEVELEDFORM 43461 . 44180) (MAKEWITHINREGION 44182 . 46127)) (
46130 63435 (ITEMW.REPAINTFN 46140 . 47360) (\ITEM.WINDOW.BUTTON.HANDLER 47362 . 47781) (
\ITEM.WINDOW.SELECTION.HANDLER 47783 . 50450) (\INSPECTW.COMMAND.HANDLER 50452 . 54453) (
ITEM.WINDOW.SET.STACK.ARG 54455 . 56659) (REPLACESTKARG 56661 . 57760) (IN/ITEM? 57762 . 58644) (
\ITEMW.DESELECTITEM 58646 . 58910) (\ITEMW.SELECTITEM 58912 . 59174) (\ITEMW.CLEARSELECTION 59176 .
59531) (\ITEMW.FLIPITEM 59533 . 60006) (PRINTANDBOX 60008 . 62517) (PRINTATBOX 62519 . 63036) (
ITEMOFPROPERTYVALUE 63038 . 63433)) (63436 67177 (\ITEM.WINDOW.COPY.HANDLER 63446 . 65303) (
\ITEMW.FLIPCOPY 65305 . 65764) (BKSYSBUF.GENERAL 65766 . 67175)) (67569 92484 (INSPECT 67579 . 72109)
(\APPLYINSPECTMACRO 72111 . 73172) (INSPECT/BITMAP 73174 . 74326) (INSPECT/DATATYPE 74328 . 77842) (
INSPECTABLEFIELDNAMES 77844 . 79177) (REMOVEDUPS 79179 . 79384) (INSPECT/ARRAY 79386 . 80451) (
INSPECT/TOP/LEVEL/LIST 80453 . 81570) (INSPECT/PROPLIST 81572 . 82660) (NONSYSPROPNAMES 82662 . 82958)
(INSPECT/LISTP 82960 . 83399) (ALISTP 83401 . 83610) (PROPLISTP 83612 . 84252) (INSPECT/ALIST 84254
. 84730) (ASSOCGET 84732 . 84943) (/ASSOCPUT 84945 . 85210) (INSPECT/PLIST 85212 . 85696) (
INSPECT/TYPERECORD 85698 . 86055) (INSPECT/AS/RECORD 86057 . 87294) (SELECT.LIST.INSPECTOR 87296 .
89347) (STANDARDEDITE 89349 . 89632) (NTHTOPLEVELELT 89634 . 89950) (SETNTHTOPLEVELELT 89952 . 90712)
(DEDITE 90714 . 90921) (FINDRECDECL 90923 . 91506) (FINDSYSRECDECL 91508 . 91909) (
MAKE-INSPECTOR-PROFILE 91911 . 92296) (CONFIRM-SET 92298 . 92482)) (94308 102522 (INSPECT/ATOM 94318
. 98423) (SELECT.ATOM.ASPECT 98425 . 99569) (INSPECT/AS/FUNCTION 99571 . 101857) (SELECT.FNS.EDITOR
101859 . 102520)) (102563 107988 (INSPECTCODE 102573 . 103725) (\TEDIT.INSPECTCODE 103727 . 105705) (
\INSPECT/CODE/RESHAPEFN 105707 . 107246) (\INSPECT/CODE/REPAINTFN 107248 . 107986)) (108026 109632 (
INSPECT/HARRAYP 108036 . 108784) (HARRAYKEYS 108786 . 109165) (INSPECTW.GETHASH 109167 . 109394) (
INSPECTW.PUTHASH 109396 . 109630)) (109681 115890 (RDTBL\NONOTHERCODES 109691 . 110711) (GETSYNTAXPROP
110713 . 112211) (SETSYNTAXPROP 112213 . 113940) (GETTTBLPROP 113942 . 114860) (SETTTBLPROP 114862 .
115888)) (116395 117845 (WINDOW\INSPECTPROPS 116405 . 117260) (WINDOW\PROPFETCHFN 117262 . 117616) (
WINDOW\PROPSTOREFN 117618 . 117843)) (117994 120023 (IMAGEOBJ\INSPECTPROPS 118004 . 119070) (
IMAGEOBJ\PROPFETCHFN 119072 . 119602) (IMAGEOBJ\PROPSTOREFN 119604 . 120021)) (120160 128802 (
INSPECT/AS/BLOCKRECORD 120170 . 121170) (INSPECT/TYPELESS 121172 . 122563) (LIST-ALL-BLOCKRECORDS
122565 . 122840) (INSPECT/HUNK 122842 . 125445) (\INSPECT.DATATYPE.RAW.FETCH 125447 . 125773) (
\INSPECT.FETCH.8 125775 . 125924) (\INSPECT.FETCH.32 125926 . 126097) (\INSPECT.FETCH.CHAR 126099 .
126262) (\INSPECT.FETCH.FATCHAR 126264 . 126426) (\INSPECT.FETCH.PTR 126428 . 126599) (
\INSPECT.STORE.8 126601 . 126907) (\INSPECT.STORE.16 126909 . 127209) (\INSPECT.STORE.32 127211 .
127646) (\INSPECT.STORE.CHAR 127648 . 127974) (\INSPECT.STORE.FATCHAR 127976 . 128298) (
\INSPECT.STORE.PTR 128300 . 128647) (INSPECT/MAKE/CCODEP 128649 . 128800)))))
(FILEMAP (NIL (7716 46069 (INSPECTW.CREATE 7726 . 13021) (INSPECTW.REPAINTFN 13023 . 18559) (
INSPECTW.REDISPLAY 18561 . 27433) (\INSPECTW.VALUE.MARGIN 27435 . 27838) (INSPECTW.REPLACE 27840 .
28548) (INSPECTW.SELECTITEM 28550 . 29540) (\INSPECTW.REDISPLAYPROP 29542 . 31972) (INSPECTW.FETCH
31974 . 32397) (INSPECTW.PROPERTIES 32399 . 33040) (DECODE.WINDOW.ARG 33042 . 34770) (
DEFAULT.INSPECTW.PROPCOMMANDFN 34772 . 36800) (DEFAULT.INSPECTW.VALUECOMMANDFN 36802 . 38218) (
DEFAULT.INSPECTW.TITLECOMMANDFN 38220 . 41669) (\SELITEM.FROM.PROPERTY 41671 . 42113) (
\INSPECT.COMPUTE.TITLE 42115 . 43399) (LEVELEDFORM 43401 . 44120) (MAKEWITHINREGION 44122 . 46067)) (
46070 63375 (ITEMW.REPAINTFN 46080 . 47300) (\ITEM.WINDOW.BUTTON.HANDLER 47302 . 47721) (
\ITEM.WINDOW.SELECTION.HANDLER 47723 . 50390) (\INSPECTW.COMMAND.HANDLER 50392 . 54393) (
ITEM.WINDOW.SET.STACK.ARG 54395 . 56599) (REPLACESTKARG 56601 . 57700) (IN/ITEM? 57702 . 58584) (
\ITEMW.DESELECTITEM 58586 . 58850) (\ITEMW.SELECTITEM 58852 . 59114) (\ITEMW.CLEARSELECTION 59116 .
59471) (\ITEMW.FLIPITEM 59473 . 59946) (PRINTANDBOX 59948 . 62457) (PRINTATBOX 62459 . 62976) (
ITEMOFPROPERTYVALUE 62978 . 63373)) (63376 67117 (\ITEM.WINDOW.COPY.HANDLER 63386 . 65243) (
\ITEMW.FLIPCOPY 65245 . 65704) (BKSYSBUF.GENERAL 65706 . 67115)) (67509 92424 (INSPECT 67519 . 72049)
(\APPLYINSPECTMACRO 72051 . 73112) (INSPECT/BITMAP 73114 . 74266) (INSPECT/DATATYPE 74268 . 77782) (
INSPECTABLEFIELDNAMES 77784 . 79117) (REMOVEDUPS 79119 . 79324) (INSPECT/ARRAY 79326 . 80391) (
INSPECT/TOP/LEVEL/LIST 80393 . 81510) (INSPECT/PROPLIST 81512 . 82600) (NONSYSPROPNAMES 82602 . 82898)
(INSPECT/LISTP 82900 . 83339) (ALISTP 83341 . 83550) (PROPLISTP 83552 . 84192) (INSPECT/ALIST 84194
. 84670) (ASSOCGET 84672 . 84883) (/ASSOCPUT 84885 . 85150) (INSPECT/PLIST 85152 . 85636) (
INSPECT/TYPERECORD 85638 . 85995) (INSPECT/AS/RECORD 85997 . 87234) (SELECT.LIST.INSPECTOR 87236 .
89287) (STANDARDEDITE 89289 . 89572) (NTHTOPLEVELELT 89574 . 89890) (SETNTHTOPLEVELELT 89892 . 90652)
(DEDITE 90654 . 90861) (FINDRECDECL 90863 . 91446) (FINDSYSRECDECL 91448 . 91849) (
MAKE-INSPECTOR-PROFILE 91851 . 92236) (CONFIRM-SET 92238 . 92422)) (94248 102462 (INSPECT/ATOM 94258
. 98363) (SELECT.ATOM.ASPECT 98365 . 99509) (INSPECT/AS/FUNCTION 99511 . 101797) (SELECT.FNS.EDITOR
101799 . 102460)) (102503 108352 (INSPECTCODE 102513 . 103665) (\TEDIT.INSPECTCODE 103667 . 106069) (
\INSPECT/CODE/RESHAPEFN 106071 . 107610) (\INSPECT/CODE/REPAINTFN 107612 . 108350)) (108390 109996 (
INSPECT/HARRAYP 108400 . 109148) (HARRAYKEYS 109150 . 109529) (INSPECTW.GETHASH 109531 . 109758) (
INSPECTW.PUTHASH 109760 . 109994)) (110045 116254 (RDTBL\NONOTHERCODES 110055 . 111075) (GETSYNTAXPROP
111077 . 112575) (SETSYNTAXPROP 112577 . 114304) (GETTTBLPROP 114306 . 115224) (SETTTBLPROP 115226 .
116252)) (116759 118209 (WINDOW\INSPECTPROPS 116769 . 117624) (WINDOW\PROPFETCHFN 117626 . 117980) (
WINDOW\PROPSTOREFN 117982 . 118207)) (118358 120387 (IMAGEOBJ\INSPECTPROPS 118368 . 119434) (
IMAGEOBJ\PROPFETCHFN 119436 . 119966) (IMAGEOBJ\PROPSTOREFN 119968 . 120385)) (120524 129166 (
INSPECT/AS/BLOCKRECORD 120534 . 121534) (INSPECT/TYPELESS 121536 . 122927) (LIST-ALL-BLOCKRECORDS
122929 . 123204) (INSPECT/HUNK 123206 . 125809) (\INSPECT.DATATYPE.RAW.FETCH 125811 . 126137) (
\INSPECT.FETCH.8 126139 . 126288) (\INSPECT.FETCH.32 126290 . 126461) (\INSPECT.FETCH.CHAR 126463 .
126626) (\INSPECT.FETCH.FATCHAR 126628 . 126790) (\INSPECT.FETCH.PTR 126792 . 126963) (
\INSPECT.STORE.8 126965 . 127271) (\INSPECT.STORE.16 127273 . 127573) (\INSPECT.STORE.32 127575 .
128010) (\INSPECT.STORE.CHAR 128012 . 128338) (\INSPECT.STORE.FATCHAR 128340 . 128662) (
\INSPECT.STORE.PTR 128664 . 129011) (INSPECT/MAKE/CCODEP 129013 . 129164)))))
STOP
Binary file modified sources/INSPECT.LCOM
View file
Open in desktop
Binary file not shown.
Loading