(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Aug-2022 09:56:25" ("compiled on " {DSK}larry>medley>lispusers>DINFO.;2) " 4-Aug-2022 07:48:40" "COMPILE-FILEd" in "Welcome to Fuller sysout 4-Aug-2022 ..." dated " 4-Aug-2022 07:52:56") (FILECREATED " 4-Aug-2022 09:56:25" {DSK}larry>medley>lispusers>DINFO.;2 65548 :CHANGES-TO (FNS DINFO.UPDATE.FMENU DINFO.UPDATE.MENU.DISPLAY DINFO.UPDATE.HISTORY DINFO.UPDATE.GRAPH.DISPLAY DINFO.LAYOUTGRAPH) :PREVIOUS-DATE " 3-Feb-2022 11:57:39" {DSK}larry>medley>lispusers>DINFO.;1) (RPAQQ DINFOCOMS ((FILES TEDIT GRAPHER) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS DINFOGRAPH DINFONODE ) (FUNCTIONS DINFOGRAPHPROP)) (INITRECORDS DINFOGRAPH) (FNS (* ; "Primary functions") DINFO DINFO.UPDATE DINFOGRAPH DINFO.SPECIAL.UPDATE DINFO.READ.GRAPH DINFO.WRITE.GRAPH DINFO.SELECT.GRAPH DINFO.DEFAULT.MENU DINFO.FIND DINFO.LOOKUP) (FNS (* ; "Koto compatability") DINFO.READ.KOTO.GRAPH) ( FNS (* ; "Window functions") DINFO.SETUP.WINDOW DINFO.CLOSEFN DINFO.SHRINKFN DINFO.EXPANDFN DINFO.ICONFN) (FNS (* ; "FreeMenu functions") DINFO.ADD.FMENU DINFO.CREATE.FMENU DINFO.FMW.CLOSEFN DINFO.FMENU.HANDLER DINFO.UPDATE.FMENU DINFO.TOGGLE.MENU DINFO.TOGGLE.GRAPH DINFO.TOGGLE.HISTORY DINFO.TOGGLE.TEXT) (FNS (* ; "Other menu functions") DINFO.UPDATE.MENU.DISPLAY DINFO.UPDATE.FROM.MENU DINFO.UPDATE.HISTORY DINFO.HISTORIC.UPDATE) (FNS (* ; "Interface to GRAPHER") DINFO.UPDATE.GRAPH.DISPLAY DINFO.UPDATE.FROM.GRAPH DINFO.GET.GRAPH.WINDOW DINFO.CREATE.GRAPH.WINDOW DINFO.SHOWGRAPH DINFO.INVERT.NODE DINFO.LAYOUTGRAPH) (FNS (* ; "Interface to TEdit") DINFO.UPDATE.TEXT.DISPLAY DINFO.TITLEMENUFN DINFO.OPENTEXTSTREAM DINFO.SHOWSEL DINFO.GET.FILENAME) ( ADDVARS (BackgroundMenuCommands (DInfo (DINFO.SELECT.GRAPH) "Open a DInfo window for browsing documentation."))) (VARS (BackgroundMenu)) (INITVARS (DINFO.GRAPHS) (DINFOMODES (QUOTE (TEXT GRAPH))) (DINFO.HISTORY.LENGTH 20) (\DINFO.MAX.MENU.LEN 10)) (GLOBALVARS DINFO.GRAPH.FILES DINFOMODES DINFO.HISTORY.LENGTH \DINFO.MAX.MENU.LEN) (PROP (FILETYPE) DINFO) ( DECLARE%: DONTCOPY (TEMPLATES DINFOGRAPHPROP)))) (FILESLOAD TEDIT GRAPHER) (/DECLAREDATATYPE (QUOTE DINFOGRAPH) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((DINFOGRAPH 0 POINTER) (DINFOGRAPH 2 POINTER) (DINFOGRAPH 4 POINTER) (DINFOGRAPH 6 POINTER) (DINFOGRAPH 8 POINTER) (DINFOGRAPH 10 POINTER) (DINFOGRAPH 12 POINTER) (DINFOGRAPH 14 POINTER) (DINFOGRAPH 16 POINTER) (DINFOGRAPH 18 POINTER) ( DINFOGRAPH 20 POINTER) (DINFOGRAPH 22 POINTER) (DINFOGRAPH 24 POINTER) (DINFOGRAPH 26 POINTER) ( DINFOGRAPH 28 POINTER) (DINFOGRAPH 30 POINTER) (DINFOGRAPH 32 POINTER) (DINFOGRAPH 34 POINTER) ( DINFOGRAPH 36 POINTER) (DINFOGRAPH 38 POINTER) (DINFOGRAPH 40 POINTER) (DINFOGRAPH 42 POINTER) ( DINFOGRAPH 44 POINTER) (DINFOGRAPH 46 POINTER) (DINFOGRAPH 48 POINTER) (DINFOGRAPH 50 POINTER))) ( QUOTE 52)) DINFOA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 GRAPH.OR.FILE) P (5 DINFO.READ.GRAPH) NIL () DINFOA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 SI::*RESETFORMS* P 2 MONITORLOCK P 1 GRAPH P 0 W I 0 SI::*CLEANUP-FORMS* F 5 GRAPH.OR.FILE F 6 WINDOW.OR.REGION F 7 SI::*RESETFORMS* F 8 SETUP.ONLY? F 9 NO.FREEMENU?) V 4V Vohi U U do 1H UU5gH hhhg $Yddo [KZgJhhdWcJ IHW WIhdi I(195 DINFO.UPDATE 183 DINFO.SETUP.WINDOW 174 OBTAIN.MONITORLOCK 144 CREATE.MONITORLOCK 122 SI::RESETUNWIND 117 \MVLIST 112 DINFOA0001A0002 92 TTYDISPLAYSTREAM 87 GETPROMPTWINDOW 66 OPENW 57 CREATEW 45 WINDOWP 27 CREATEW 13 REGIONP 5 WINDOWP) (155 RELEASE.MONITORLOCK 107 SI::RESETUNWIND 81 TTYDISPLAYSTREAM 72 DINFOGRAPH 35 DINFOGRAPH) ( 139 "DInfo" 52 "DInfo" 20 "DInfo") DINFO :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 NO.FREEMENU? I 2 SETUP.ONLY? I 1 WINDOW.OR.REGION I 0 GRAPH.OR.FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 DINFOA0001) (8 SI::RESETUNWIND) () DINFO.UPDATEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 STATUS I 0 SI::*CLEANUP-FORMS* F 1 GRAPH F 2 NODE F 3 SEL F 4 MONITORLOCK F 5 SI::*RESETFORMS* F 6 FMENU.WINDOW F 7 WINDOW F 8 FORCE?) gThhdUc Ti W o VQRQRS QR V QRHg'QRW Hg'QR Hg'QRS QRSHg' (144 DINFO.UPDATE.HISTORY 128 DINFO.UPDATE.TEXT.DISPLAY 111 DINFO.UPDATE.MENU.DISPLAY 95 DINFO.UPDATE.GRAPH.DISPLAY 71 FM.GETSTATE 65 DINFO.UPDATE.FMENU 57 DINFO.UPDATE.TEXT.DISPLAY 42 PROMPTPRINT 32 FLASHWINDOW 23 OBTAIN.MONITORLOCK) (138 HISTORY 118 TEXT 102 MENU 84 GRAPH 4 RELEASE.MONITORLOCK) ( 37 "DInfo is busy") DINFO.UPDATE :D8 (P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 MONITORLOCK P 3 FMENU.WINDOW P 2 WINDOW P 1 PREVIOUS.NODE P 0 NODE I 3 FORCE? I 2 SEL I 1 NEW.NODE I 0 GRAPH F 8 LISPXHIST) pA@ @@@@J Jg@ H@Ho @ @W!g $J (109 CLEARW 104 GETPROMPTWINDOW 93 SI::RESETUNWIND 88 \MVLIST 83 DINFO.UPDATEA0001 58 ERROR 41 PUTWINDOWPROP 29 OPENW) (78 SI::RESETUNWIND 35 DINFOGRAPH) ( 53 "NOT IN NODELST") DINFOGRAPH :D8 (I 0 X) I@@@ @g ,@ $@g @g g (70 GETWINDOWUSERPROP 60 GETWINDOWUSERPROP 47 GETWINDOWUSERPROP 34 WINDOWP 26 GETWINDOWUSERPROP 14 WINDOWP) (65 DINFOGRAPH 55 MAINWINDOW 42 MAINWINDOW 21 DINFOGRAPH 5 DINFOGRAPH) () DINFO.SPECIAL.UPDATE :D8 (P 3 NEW.NODE P 1 CURRENT.NODE P 0 DINFOW I 1 GRAPH I 0 TYPE) A!A@dgA*dgIgI@g IAAi HK$`go@ AK A Z oJ @J H o (168 PROMPTPRINT 158 FLASHWINDOW 151 PRIN1 144 PRIN1 133 TERPRI 127 GETPROMPTWINDOW 118 DINFO.UPDATE 111 PROCESSPROP 106 CONCAT 80 OBTAIN.MONITORLOCK) (95 NAME 90 \RUNNING.PROCESS 51 Previous 41 Next 30 Parent 16 Top) ( 163 "DInfo is busy" 138 "This node has no " 100 "DInfo ") DINFO.READ.GRAPH :D8 (P 2 GRAPH P 1 DATA P 0 FULLFILENAME I 1 QUIETFLG I 0 FILE) A3i oi @g i oi @ H o@ `JIg'JIg' JIg'JIg'JIg' JIg'JIg'JHg JHg JHg JHg Aoi J(231 PRIN1 216 FILENAMEFIELD 202 FILENAMEFIELD 188 FILENAMEFIELD 174 FILENAMEFIELD 79 READFILE 74 ERROR 57 INFILEP 50 PRIN1 38 PRIN1 32 FILENAMEFIELD 20 PRIN1 8 TERPRI) (211 DIRECTORY 197 DEVICE 183 HOST 169 NAME 159 USERDATA 149 NODELST 139 FREEMENUITEMS 129 MENUFN 119 LOOKUPFN 109 TEXTPROPS 99 TOPNODEID 88 |DINFOGRAPHTYPE#| 27 NAME) ( 225 "OK." 68 "FILE NOT FOUND" 44 " graph..." 14 "Reading ") DINFO.WRITE.GRAPH :D8 (I 1 FILE I 0 GRAPH) Og@g@ g@g@g@ g@g@hA (76 WRITEFILE) (52 USERDATA 44 NODELST 36 FREEMENUITEMS 28 MENUFN 20 LOOKUPFN 12 TEXTPROPS 4 TOPNODEID) () DINFO.SELECT.GRAPHA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 GRAPH I 0 SI::*CLEANUP-FORMS*) z`o \` K`di dod`dg dgjdndhHdI  Jd (119 DINFO 108 MENU 33 EVAL 16 PROMPTPRINT) (79 DEFAULTMENUHELDFN 70 CLRPROMPT 61 DINFO.GRAPHS 40 |MENUTYPE#| 25 DINFO.GRAPHS 4 DINFO.GRAPHS) ( 52 "Select Graph" 11 "No Graphs installed -- load HelpSys or DInfoEdit") DINFO.SELECT.GRAPH :D8 (P 0 SI::*RESETFORMS*) 8g` hhhg $(49 SI::RESETUNWIND 44 \MVLIST 39 DINFO.SELECT.GRAPHA0001 19 TTY.PROCESS 4 ALLOW.BUTTON.EVENTS) (34 SI::RESETUNWIND 14 \RUNNING.PROCESS 9 TTY.PROCESS) () DINFO.DEFAULT.MENU :D8 (P 4 TYPE P 0 DINFOW I 0 GRAPH) @1H @V@`dodi gl g dIdg dgjdndhdJ [K L~`goL Ldgdgdgdg@ g@ Ldg@o g@ @ (240 DINFO.UPDATE 233 DINFO.ADD.FMENU 218 DINFO.LOOKUP 196 DINFO.FIND 182 DINFO.SPECIAL.UPDATE 142 PROCESSPROP 137 CONCAT 110 MENU 59 FONTCREATE 16 CLEARW 11 GETPROMPTWINDOW) (224 FreeMenu 204 Lookup 188 Find 174 Next 166 Previous 158 Parent 149 Top 126 NAME 121 \RUNNING.PROCESS 80 DEFAULTMENUHELDFN 71 CLRPROMPT 54 BOLD 47 HELVETICA 27 |MENUTYPE#|) ( 213 (LEFT) 131 "DInfo " 34 (("Top" (QUOTE Top) "Visit the top node in the graph") ("Parent" (QUOTE Parent) "Visit the parent of the current node") ("Previous" (QUOTE Previous) "Visit the node before this node") ("Next " (QUOTE Next) "Visit the node following this node") ("Find" (QUOTE Find) "Search the text of this node") ("Lookup" (QUOTE Lookup) "Lookup a new term in this graph") ("Expanded Menu" (QUOTE FreeMenu) "Add an expanded options menu."))) DINFO.FINDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 PAIR P 1 TEXTSTREAM P 0 STRING I 0 SI::*CLEANUP-FORMS* F 3 GRAPH F 4 BUTTONS F 5 DINFOW) i gTS0oS0hddgo Ug SH0Hboi IHhdi Z0oi IdiIJH gi  oi Idjd (162 TEDIT.NORMALIZECARET 157 TEDIT.SETSEL 148 PRIN1 136 TEDIT.NORMALIZECARET 131 TEDIT.SHOWSEL 126 TEDIT.SETSEL 114 NCHARS 102 PRIN1 88 TEDIT.FIND 77 PRIN1 56 GETWINDOWUSERPROP 45 TTYINPROMPTFORWORD 5 TERPRI) (119 RIGHT 51 TEXTSTREAM 34 TTY 10 MIDDLE) ( 142 "not found." 96 "OK." 71 " Searching..." 39 (13 27 10) 23 "Find: ") DINFO.FIND :D8 (P 1 SI::*RESETFORMS* P 0 DINFOW I 1 BUTTONS I 0 GRAPH) V@@i H o gH hhhg $(79 SI::RESETUNWIND 74 \MVLIST 69 DINFO.FINDA0001 49 TTYDISPLAYSTREAM 44 GETPROMPTWINDOW 32 PROMPTPRINT 22 FLASHWINDOW 14 OBTAIN.MONITORLOCK) (64 SI::RESETUNWIND 38 TTYDISPLAYSTREAM) ( 27 "DInfo is busy") DINFO.LOOKUPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 STRING P 1 OLD.STRING P 0 LOOKUPFN I 0 SI::*CLEANUP-FORMS* F 3 GRAPH F 4 BUTTONS) sSHEi S2IgTIoIhddgo SJ2JdSlHi oi Si oi (112 PRIN1 101 PRIN1 92 PRIN1 81 TERPRI 58 TTYINPROMPTFORWORD 14 CLEARW) (47 TTY 27 MIDDLE) ( 106 " graph has no LOOKUPFN." 86 "The " 52 (13 27 10) 38 "Lookup: ") DINFO.LOOKUP :D8 (P 1 SI::*RESETFORMS* P 0 DINFOW I 1 BUTTONS I 0 GRAPH) V@@i 5gH hhhg $H o (83 PROMPTPRINT 73 FLASHWINDOW 62 SI::RESETUNWIND 57 \MVLIST 52 DINFO.LOOKUPA0001 32 TTYDISPLAYSTREAM 27 GETPROMPTWINDOW 14 OBTAIN.MONITORLOCK) (47 SI::RESETUNWIND 21 TTYDISPLAYSTREAM) ( 78 "DInfo is busy") DINFO.READ.KOTO.GRAPH :D8 (P 6 FIELD P 5 N P 2 GRAPH P 1 DATA P 0 FULLFILENAME I 1 QUIETFLG I 0 FILE) %A3i oi @g i oi @ H o@ `l IkLMdKKJHg JHg JHg JHg Aoi Jk^MlXMlRMlLMl FMdl >dlJN2dlJN&lJN MdlJNl JNLMkԽC(280 SHOULDNT 183 PRIN1 168 FILENAMEFIELD 154 FILENAMEFIELD 140 FILENAMEFIELD 126 FILENAMEFIELD 79 READFILE 74 ERROR 57 INFILEP 50 PRIN1 38 PRIN1 32 FILENAMEFIELD 20 PRIN1 8 TERPRI) (163 DIRECTORY 149 DEVICE 135 HOST 121 NAME 88 |DINFOGRAPHTYPE#| 27 NAME) ( 177 "OK." 68 "FILE NOT FOUND" 44 " graph..." 14 "Reading ") DINFO.SETUP.WINDOW :D8 (I 2 NO.FREEMENU? I 1 WINDOW I 0 GRAPH) r@AAg@ A B@ @hdi Ag@o Agg Agg Agg (111 WINDOWADDPROP 95 WINDOWADDPROP 79 WINDOWADDPROP 63 PUTWINDOWPROP 58 CONCAT 39 DINFO.UPDATE.TEXT.DISPLAY 29 DINFO.ADD.FMENU 21 DETACHALLWINDOWS 15 PUTWINDOWPROP) (106 DINFO.EXPANDFN 101 EXPANDFN 90 DINFO.SHRINKFN 85 SHRINKFN 74 DINFO.CLOSEFN 69 CLOSEFN 45 TITLE 9 DINFOGRAPH) ( 53 " DInfo") DINFO.CLOSEFN :D8 (P 0 GRAPH I 0 W) ,@g HH" @gh (41 PUTWINDOWPROP 29 CLOSEW 10 GETWINDOWUSERPROP) (35 DINFOGRAPH 19 DINFOGRAPH 5 DINFOGRAPH) () DINFO.SHRINKFN :D8 (I 0 W) @ " (12 CLOSEW 5 DINFOGRAPH) NIL () DINFO.EXPANDFN :D8 (P 2 GRAPHW P 1 FMENU P 0 GRAPH I 0 W) =@ H Yd- g' H"J @ JgH (58 PUTWINDOWPROP 46 TOTOPW 40 OPENW 20 FM.GETSTATE 5 DINFOGRAPH) (52 DINFOGRAPH 25 GRAPH) () DINFO.ICONFN :D8 (I 0 W F 0 WINDOW F 1 TEDIT.TITLED.ICON.TEMPLATE F 2 TEDIT.ICON.FONT) 9Pg ,PgQP (Rhi  Pg (54 GETWINDOWUSERPROP 41 PUTWINDOWPROP 36 TITLEDICONW 25 \INSUREWINDOW 10 GETWINDOWUSERPROP) (49 ICON 18 ICON 5 ICON) () DINFO.ADD.FMENU :D8 (P 1 FM.WINDOW P 0 WINDOW I 0 GRAPH) @@ I IHg I H I @ Y@I IH IgH Igg Iggi @ (125 DINFO.UPDATE.FMENU 119 WINDOWADDPROP 102 WINDOWDELPROP 86 PUTWINDOWPROP 81 GETPROMPTWINDOW 69 ATTACHWINDOW 57 DINFO.CREATE.FMENU 49 WINDOWP 43 REMOVEPROMPTWINDOW 36 OPENW 28 GETWINDOWUSERPROP 14 WINDOWP) (113 DINFO.FMW.CLOSEFN 108 CLOSEFN 97 CLOSEW 92 PASSTOMAINCOMS 75 FM.PROMPTWINDOW 23 ATTACHEDWINDOWS) () DINFO.CREATE.FMENU :D8 (P 3 HEIGHT P 2 FM P 1 FONT P 0 ADD.ITEMS I 0 GRAPH) o@ @ `ggIhoooooogggggg` ogggggg` ogggggg` ogggggg` ohoH h J Jgi JgjK JgnK J(363 PUTWINDOWPROP 347 PUTWINDOWPROP 333 PUTWINDOWPROP 312 \INSUREWINDOW 303 FREEMENU 289 \APPEND2 261 MEMB 210 MEMB 159 MEMB 108 MEMB 13 FONTP) (353 MAXSIZE 339 MINSIZE 327 FM.DONTRESHAPE 256 DINFOMODES 251 HISTORY 246 INITSTATE 241 HISTORY 236 ID 231 History 226 LABEL 205 DINFOMODES 200 TEXT 195 INITSTATE 190 TEXT 185 ID 180 Text 175 LABEL 154 DINFOMODES 149 MENU 144 INITSTATE 139 MENU 134 ID 129 Menu 124 LABEL 103 DINFOMODES 98 GRAPH 93 INITSTATE 88 GRAPH 83 ID 78 Graph 73 LABEL 33 FONT 28 PROPS 20 MENUFONT) ( 283 ((LABEL Find! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) MESSAGE "Perform a string search in the selected text of the current node") (LABEL Lookup! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) MESSAGE "Lookup a term in this graph. LEFT for new term, MIDDLE to repeat last.")) 266 (TYPE TOGGLE FONT (HELVETICA 10 BOLD) SELECTEDFN DINFO.TOGGLE.HISTORY MESSAGE "Toggle the display of the History Menu") 215 (TYPE TOGGLE SELECTEDFN DINFO.TOGGLE.TEXT FONT (HELVETICA 10 BOLD) MESSAGE "Toggle display of the text of the current node") 164 (TYPE TOGGLE SELECTEDFN DINFO.TOGGLE.MENU FONT (HELVETICA 10 BOLD) MESSAGE "Toggle display of the subnode menu") 113 (TYPE TOGGLE SELECTEDFN DINFO.TOGGLE.GRAPH FONT (HELVETICA 10 BOLD) MESSAGE "Toggle display of the graph") 68 (LABEL Display%: TYPE DISPLAY FONT (HELVETICA 10)) 63 ((LABEL Next! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) MESSAGE "Visit the node after the current node") (ID NEXT LABEL "" TYPE DISPLAY)) 58 ((LABEL Previous! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) MESSAGE "Visit the node previous to the current node") (ID PREVIOUS LABEL "" TYPE DISPLAY)) 53 ((LABEL Parent! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) MESSAGE "Visit the parent of the current node") (ID PARENT LABEL "" TYPE DISPLAY)) 48 ((LABEL Top! SELECTEDFN DINFO.FMENU.HANDLER FONT (HELVETICA 10 BOLD) MESSAGE "Visit the top node") (ID TOP LABEL "" TYPE DISPLAY)) 43 ((LABEL Node%: TYPE DISPLAY FONT (HELVETICA 10)) (ID NODE LABEL "" TYPE DISPLAY))) DINFO.FMW.CLOSEFN :D8 (P 1 GRAPH P 0 DINFOW I 0 W) L@g H I2@ Ih I& I& I$ I" H (73 REMOVEPROMPTWINDOW 67 CLOSEW 59 DETACHWINDOW 51 CLOSEW 43 DETACHWINDOW 31 DETACHWINDOW 19 DINFOGRAPH 10 GETWINDOWUSERPROP) (5 MAINWINDOW) () DINFO.FMENU.HANDLER :D8 (P 1 TYPE P 0 GRAPH I 2 BUTTONS I 1 WINDOW I 0 ITEM) Ag g @@o@ km IdgdgdgdgH gHB IgHB (135 SHOULDNT 129 DINFO.LOOKUP 113 DINFO.FIND 98 DINFO.SPECIAL.UPDATE 55 MKATOM 50 SUBSTRING 40 ERROR 20 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (120 Lookup 104 Find 90 Next 82 Previous 74 Parent 65 Top 26 FREEMENUITEM 15 DINFOGRAPH 5 MAINWINDOW) ( 34 "Arg must be FreeMenuItem") DINFO.UPDATE.FMENU :D8 (P 2 NODE P 1 NODELST P 0 W I 1 NEW.NODE I 0 GRAPH) @ @A@I@IAghH @@H ghH JH ghH JIH ghH JIH ghH JIH (172 FM.CHANGELABEL 152 FM.GETITEM 140 FM.CHANGELABEL 121 FM.GETITEM 109 FM.CHANGELABEL 92 FM.GETITEM 80 FM.CHANGELABEL 71 FM.GETITEM 58 FM.CHANGELABEL 43 FM.GETITEM) (145 PREVIOUS 114 NEXT 85 PARENT 64 NODE 36 TOP) () DINFO.TOGGLE.MENU :D8 (P 1 SUBNODE.MENU.WINDOW P 0 GRAPH I 1 WINDOW I 0 ITEM) MAg g @@o@ Hd H&I I (74 CLOSEW 68 DETACHWINDOW 55 DINFO.UPDATE.MENU.DISPLAY 43 ERROR 20 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (29 FREEMENUITEM 15 DINFOGRAPH 5 MAINWINDOW) ( 37 "Arg must be FreeMenuItem") DINFO.TOGGLE.GRAPH :D8 (P 0 GRAPH I 1 WINDOW I 0 ITEM) EAg g @@o@ Hdi H" @(65 CLOSEW 56 DINFO.UPDATE.GRAPH.DISPLAY 43 ERROR 20 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (29 FREEMENUITEM 15 DINFOGRAPH 5 MAINWINDOW) ( 37 "Arg must be FreeMenuItem") DINFO.TOGGLE.HISTORY :D8 (P 1 HISTORY.MENU.WINDOW P 0 GRAPH I 1 WINDOW I 0 ITEM) MAg g @@o@ Hhdi H$I I (74 CLOSEW 68 DETACHWINDOW 55 DINFO.UPDATE.HISTORY 43 ERROR 20 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (29 FREEMENUITEM 15 DINFOGRAPH 5 MAINWINDOW) ( 37 "Arg must be FreeMenuItem") DINFO.TOGGLE.TEXT :D8 (P 2 MONITORLOCK P 1 GRAPH P 0 DINFOW I 1 WINDOW I 0 ITEM) sAg Hg IZi H o @@o@ Id J Idhi J (112 RELEASE.MONITORLOCK 106 DINFO.UPDATE.TEXT.DISPLAY 94 RELEASE.MONITORLOCK 88 DINFO.UPDATE.TEXT.DISPLAY 76 ERROR 55 PROMPTPRINT 45 FLASHWINDOW 37 OBTAIN.MONITORLOCK 24 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (62 FREEMENUITEM 19 DINFOGRAPH 5 MAINWINDOW) ( 70 "Arg must be FreeMenuItem" 50 "DInfo is busy") DINFO.UPDATE.MENU.DISPLAY :D8 (P 17 BITS P 16 MENU P 15 SCROLLABLE P 14 LENGTH P 13 CHILDREN P 12 ID P 8 NODELST P 1 WINDOW P 0 DINFOW I 1 NODE I 0 GRAPH) @a@&A@B O_O  O O`_`@ `dJHg di dkdj0 OK_O_OOh__O_O&_d[Koh_O Oh_O&_OdLdgdg dgjdndhdM d NII I OO jdHg O`O ֋O i hohi YO IjO`OO րji IHg I @I&I jO"HjdO" (446 RELMOVEW 421 \INSUREWINDOW 411 REDISPLAYW 405 ATTACHWINDOW 393 ADDMENU 358 CREATEW 341 HEIGHTIFWINDOW 335 BITMAPHEIGHT 330 CHECK/MENU/IMAGE 305 GETWINDOWPROP 292 UPDATE/MENU/IMAGE 276 CLOSEW 269 DETACHWINDOW 98 GETWINDOWPROP 74 FONTP 46 FLENGTH 36 DREVERSE) (400 BOTTOM 372 \DINFO.MAX.MENU.LEN 313 \DINFO.MAX.MENU.LEN 300 WIDTH 230 DEFAULTMENUHELDFN 221 CLRPROMPT 212 DINFO.UPDATE.FROM.MENU 93 WIDTH 81 MENUFONT 65 |MENUTYPE#| 56 \DINFO.MAX.MENU.LEN) ( 351 "Subnodes" 169 "Will visit this node if selected.") DINFO.UPDATE.FROM.MENU :D8 (I 2 BUTTONS I 1 MENU I 0 ITEM) $A g g @ (33 DINFO.UPDATE 25 GETWINDOWUSERPROP 15 GETWINDOWUSERPROP 5 WFROMMENU) (20 DINFOGRAPH 10 MAINWINDOW) () DINFO.UPDATE.HISTORY :D8 (P 14 ITEM P 10 I P 7 ITEMS P 3 NEWITEM P 2 OLDITEMS P 1 OLDWINDOW P 0 DINFOW I 3 DISPLAY? I 2 SEL I 1 NODE I 0 GRAPH) +@a@$@.BAd&ABhoBBABhoh[J@O.II I C|Ox`@ `dLdodi dkdOdgdg dgjdndhdM Hgg @N$NJeK`JlCO ON_OOO_OOh__O_Ok_O&_(207 ATTACHMENU 109 FONTP 87 CLOSEW 80 DETACHWINDOW) (227 DINFO.HISTORY.LENGTH 202 TOP 197 LEFT 171 DEFAULTMENUHELDFN 162 CLRPROMPT 153 DINFO.HISTORIC.UPDATE 116 MENUFONT 100 |MENUTYPE#|) ( 128 "History" 52 "Will re-lookup this term" 33 "Will re-visit this node") DINFO.HISTORIC.UPDATE :D8 (P 5 NODE P 4 GRAPH P 3 WINDOW P 1 SEL P 0 ID I 2 BUTTONS I 1 MENU I 0 ITEM) w@!@A g Kg HLLi K o MK Z oJ LMI (116 DINFO.UPDATE 107 PRIN1 96 TERPRI 90 GETPROMPTWINDOW 80 PROMPTPRINT 70 FLASHWINDOW 62 OBTAIN.MONITORLOCK 42 GETWINDOWUSERPROP 28 GETWINDOWUSERPROP 18 WFROMMENU) (37 DINFOGRAPH 23 MAINWINDOW) ( 101 "This node no longer exists" 75 "DInfo is busy") DINFO.UPDATE.GRAPH.DISPLAY :D8 (P 1 LOCATION P 0 DINFOW I 2 FORCE? I 1 NODE I 0 DINFO.GRAPH) ]@AABI@,@"A@ @A @ @I,@"g@o@ (90 PUTWINDOWPROP 85 CONCAT 54 DINFO.SHOWGRAPH 48 DINFO.LAYOUTGRAPH 40 DINFO.INVERT.NODE) (67 TITLE) ( 75 " - ") DINFO.UPDATE.FROM.GRAPH :D8 (I 1 GRAPH.WINDOW I 0 GRAPHER.NODE) :@7ggAg hg@hhgo (55 ADD.PROCESS 23 GETWINDOWUSERPROP) (45 NAME 31 QUOTE 18 DINFOGRAPH 12 QUOTE 7 DINFO.UPDATE) ( 50 "DInfo From Graph") DINFO.GET.GRAPH.WINDOWA0001 :D8 (I 0 W) @gh (11 PUTWINDOWPROP) (5 DINFOGRAPH) () DINFO.GET.GRAPH.WINDOW :D8 (P 0 W I 1 REGION I 0 GRAPH) :@"H @A Xgg @H"Hg@ H(54 PUTWINDOWPROP 36 PUTWINDOWPROP 20 DINFO.CREATE.GRAPH.WINDOW 11 WINDOWP) (48 DINFOGRAPH 31 DINFO.GET.GRAPH.WINDOWA0001 26 CLOSEFN) () DINFO.CREATE.GRAPH.WINDOW :D8 (P 3 BOTTOM P 2 LEFT P 1 DINFOREGION P 0 DINFOW I 1 REGION I 0 GRAPH) ]@H !IAl պIAl2ջjJJjl jKKjl AA hdi (90 CREATEW 82 CREATEREGION 68 RAND 54 RAND 11 \INSUREWINDOW) NIL () DINFO.SHOWGRAPH :D8 (P 7 WIDTH P 6 HEIGHT P 5 BOTTOM P 4 LEFT P 3 WINDOW.REGION P 2 GRAPH.WINDOW P 0 GRAPH.REGION I 1 DINFO.GRAPH I 0 GRAPHER.GRAPH) @ AH J JKKHi H LMdN``MـNLO``LفOIh @Jgd (128 SHOWGRAPH 115 SHAPEW 55 WIDTHIFWINDOW 46 HEIGHTIFWINDOW 24 \INSUREWINDOW 15 DINFO.GET.GRAPH.WINDOW 5 GRAPHREGION) (122 DINFO.UPDATE.FROM.GRAPH 98 SCREENWIDTH 90 SCREENWIDTH 76 SCREENHEIGHT 68 SCREENHEIGHT) () DINFO.INVERT.NODE :D8 (P 3 LAST.NODE P 2 NODE I 2 DINFO.GRAPH I 1 DINFO.NODE I 0 WINDOW) U@g H+hB*BJ*JK*JnKj@ YAIiHX@ (82 OPENW 58 REDISPLAYW 10 GETWINDOWUSERPROP) (5 GRAPH) () DINFO.LAYOUTGRAPH :D8 (P 23 PARENT.GRAPHER.NODE P 22 SIBLING.GRAPHER.NODES P 21 SIBLINGS P 20 ID P 16 PARENT P 12 GRAPHER.NODE P 11 CHILD.GRAPHER.NODES P 10 CHILDREN P 9 ID P 5 NODELST P 4 FONT P 0 WINDOW I 1 NODE I 0 DINFO.GRAPH F 27 DEFAULT.GRAPH.NODEFONT F 28 DEFAULT.GRAPH.NODEBORDER F 29 DEFAULT.GRAPH.NODELABELSHADE) @1@ `@0Ad OMONh_N&_O! 0O7dYhddW:hdddW6IW8h_O Oh_O&_O_AhddnhdOhW6AW8h_@O*AAM0O !dO(M_"O$ O"h_&O"&_$O&!0O*BdZdAOddW:hdddW6JW8h_0O2 O0h_4O0&_2O4_,O hddW:hdO O*hW6KW8h_.O,O O hhL OOAhhL (416 LAYOUTGRAPH 400 LAYOUTGRAPH 388 \NCONC2 13 FONTP) (20 MENUFONT) () DINFO.UPDATE.TEXT.DISPLAY :D8 (P 7 FULLFILENAME P 6 TEXTSTREAM P 5 OLD.TEXTSTREAM P 4 PROPS P 3 TO P 2 FROM P 1 FILENAME P 0 WINDOW I 3 OFF? I 2 SEL I 1 NODE I 0 GRAPH) @@A AAgigiggh@ @g &CICo/h1 _Zol oI HhdL @h(M Hgg Hgg HJKL ^B (209 DINFO.SHOWSEL 202 DINFO.OPENTEXTSTREAM 191 PUTWINDOWPROP 175 PUTWINDOWPROP 159 CLOSEF? 147 OPENTEXTSTREAM 137 OPENSTRINGSTREAM 132 CONCAT 121 MKSTRING 116 CHARACTER 100 MKATOM 95 INFILEP 70 GETWINDOWUSERPROP 57 \APPEND2 9 DINFO.GET.FILENAME) (186 DINFO.TITLEMENUFN 181 TEDIT.TITLEMENUFN 170 DINFO.ICONFN 165 ICONFN 65 TEXTSTREAM 42 DINFO.TITLEMENUFN 37 TITLEMENUFN 31 NOTITLE 25 READONLY) ( 126 "Missing file is: " 109 "Sorry, can't find the text for this node." 85 "This node has no text") DINFO.TITLEMENUFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 GRAPH F 1 MENUFN) PkQNIL NIL () DINFO.TITLEMENUFNA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 GRAPH) P (5 DINFO.DEFAULT.MENU) NIL () DINFO.TITLEMENUFN :D8 (P 3 SI::*RESETFORMS* P 2 SI::*RESETFORMS* P 1 MENUFN P 0 GRAPH I 0 DINFOW) @g Hi HI @H H g@ hhhg $g@ hhhg $@ o (169 PROMPTPRINT 159 FLASHWINDOW 148 SI::RESETUNWIND 143 \MVLIST 138 DINFO.TITLEMENUFNA0002 118 TTYDISPLAYSTREAM 113 GETPROMPTWINDOW 97 SI::RESETUNWIND 92 \MVLIST 87 DINFO.TITLEMENUFNA0001 67 TTYDISPLAYSTREAM 62 GETPROMPTWINDOW 50 DINFO.ADD.FMENU 38 \DEFINEDP 22 OBTAIN.MONITORLOCK 10 GETWINDOWUSERPROP) (133 SI::RESETUNWIND 107 TTYDISPLAYSTREAM 82 SI::RESETUNWIND 56 TTYDISPLAYSTREAM 5 DINFOGRAPH) ( 164 "DInfo is busy") DINFO.OPENTEXTSTREAMA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 THIS.TEXT P 0 TEXTSTREAM I 0 SI::*CLEANUP-FORMS* F 2 WINDOW F 3 FILE F 4 FROM F 5 TO F 6 SI::*RESETFORMS* F 7 PROPS) Rg STUhIR (HHHH i R gggRohhdVc oi Si oi SRTUW oi R I((152 DINFOGRAPH 145 PRIN1 134 OPENTEXTSTREAM 122 PRIN1 110 PRIN1 102 PRIN1 56 CLEARW 50 CLEARW 43 TEDIT.KILL 27 DINFOGRAPH 10 GETWINDOWUSERPROP) (71 WINDOWPROP 66 RESETSTATE 61 AND 5 TEXTSTREAM) ( 139 "OK." 116 "..." 96 "Fetching text from " 77 ((QUOTE LAST.TEXT) NIL)) DINFO.OPENTEXTSTREAM :D8 (P 0 SI::*RESETFORMS* I 4 PROPS I 3 TO I 2 FROM I 1 WINDOW I 0 FILE) 4gA hhhg $(45 SI::RESETUNWIND 40 \MVLIST 35 DINFO.OPENTEXTSTREAMA0001 15 TTYDISPLAYSTREAM 10 GETPROMPTWINDOW) (30 SI::RESETUNWIND 4 TTYDISPLAYSTREAM) () DINFO.SHOWSEL :D8 (P 0 CHAR# I 1 SEL I 0 TEXTSTREAM) RAd@dAj  &@A H@dHA hi  @djd (79 TEDIT.NORMALIZECARET 74 TEDIT.SETSEL 64 TEDIT.NORMALIZECARET 59 TEDIT.SETSEL 51 NCHARS 36 TEDIT.FIND 27 STRINGP 21 TEDIT.NORMALIZECARET 16 TEDIT.SETSEL) NIL () DINFO.GET.FILENAME :D8 (P 0 FILE I 1 NODE I 0 GRAPH) WAHMgHg @gHg @gHg @gH (84 PACKFILENAME 67 FILENAMEFIELD 46 FILENAMEFIELD 25 FILENAMEFIELD) (77 BODY 62 DIRECTORY 56 DIRECTORY 41 DEVICE 35 DEVICE 20 HOST 14 HOST) () (ADDTOVAR BackgroundMenuCommands (DInfo (DINFO.SELECT.GRAPH) "Open a DInfo window for browsing documentation.")) (RPAQQ BackgroundMenu NIL) (RPAQ? DINFO.GRAPHS) (RPAQ? DINFOMODES (QUOTE (TEXT GRAPH))) (RPAQ? DINFO.HISTORY.LENGTH 20) (RPAQ? \DINFO.MAX.MENU.LEN 10) (PUTPROPS DINFO FILETYPE :FAKE-COMPILE-FILE) (PUTPROPS DINFO COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2021)) NIL