(FILECREATED "13-Sep-85 16:59:16" ("compiled on " {ERIS}LISP>DINFO.;7) " 9-Sep-85 19:21:52" recompiled changes: DINFO.UPDATE DINFO.INIT DINFO.CHANGE.GRAPHS DINFO.CREATE.FMENU DINFO.CHOOSE.GRAPH DINFO.UPDATE.TEXT.DISPLAY DINFO.TOGGLE.TEXT DINFO.DISPLAY.REF in "INTERLISP-D 10-Sep-85 ..." dated "10-Sep-85 08:25:46") (FILECREATED "13-Sep-85 16:57:31" {ERIS}LISP>DINFO.;7 31995 changes to: (VARS DINFOCOMS) (FNS DINFO.INIT DINFO.DISPLAY.REF DINFO.UPDATE DINFO.CHANGE.GRAPHS DINFO.CREATE.FMENU DINFO.CHOOSE.GRAPH DINFO.UPDATE.TEXT.DISPLAY DINFO.TOGGLE.TEXT) previous date: "13-Sep-85 00:01:51" {ERIS}LISP>DINFO.;2) DINFOA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) 5ohhPc` ` `g  ci(57Q DINFO.INIT 53Q DINFO.UPDATE 44Q GETWINDOWUSERPROP 32Q OPENW 22Q WINDOWP) (41Q CURRENT.GRAPH 36Q DINFOW 27Q DINFOW 17Q DINFOW) ( 3 (AND RESETSTATE (DINFO.RESET))) DINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DINFOA0001)) DINFO.UPDATE D1 (P 2 STATUS P 1 PREVIOUS.NODE P 0 GRAPH I 1 SEL I 0 NODE) @@o ` `g `g `g `g i ` o` @I7H@H@ Jg'H@ Jg'H@ Jg':H@A 1Jg'`g Jg'A`g H@A AJg'@A ` `gg `g (373Q RELEASE.MONITORLOCK 370Q GETWINDOWUSERPROP 357Q PUTWINDOWPROP 340Q CLEARW 335Q GETPROMPTWINDOW 326Q DINFO.UPDATE.HISTORY.DISPLAY 310Q DINFO.UPDATE.TEXT.DISPLAY 301Q GETWINDOWUSERPROP 256Q OPENW 253Q GETWINDOWUSERPROP 231Q DINFO.UPDATE.TEXT.DISPLAY 213Q DINFO.UPDATE.MENU.DISPLAY 177Q DINFO.UPDATE.GRAPH.DISPLAY 163Q DINFO.UPDATE.FMENU 137Q PRIN1 134Q GETPROMPTWINDOW 121Q GETPROMPTWINDOW 111Q OBTAIN.MONITORLOCK 105Q GETWINDOWUSERPROP 71Q FM.READSTATE 66Q GETWINDOWUSERPROP 46Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 21Q OPENW 12Q ERROR) (365Q MONITORLOCK 362Q DINFOW 354Q DINFO.BUTTONEVENTFN 351Q BUTTONEVENTFN 346Q DINFOW 332Q DINFOW 317Q HISTORY 276Q TEXTSTREAM 273Q DINFOW 263Q TEXT 250Q GRAPH.WINDOW 245Q DINFOW 240Q GRAPH 220Q TEXT 204Q MENU 170Q GRAPH 131Q DINFOW 116Q DINFOW 102Q MONITORLOCK 77Q DINFOW 63Q FMENU.WINDOW 60Q DINFOW 43Q CURRENT.GRAPH 40Q DINFOW 27Q CURRENT.GRAPH 24Q DINFOW 16Q DINFOW) ( 126Q "DInfo is busy" 7 "NOT A DINFO NODE") DINFO.INIT D1 (P 0 VAL) i dgo ` ` `gH H h`hdo gg gg ` g `gg `gg `gg `gg `9g`gggg h`gH `g   (321Q READFILE 315Q DINFO.CHANGE.GRAPHS 312Q DINFO.READ.GRAPH 306Q GETWINDOWUSERPROP 274Q PUTWINDOWPROP 255Q PACKFILENAME 222Q WINDOWADDPROP 206Q WINDOWADDPROP 172Q WINDOWADDPROP 156Q WINDOWADDPROP 142Q PUTWINDOWPROP 134Q GETPROMPTWINDOW 126Q MOVD 115Q MOVD? 104Q OPENTEXTSTREAM 66Q OBTAIN.MONITORLOCK 60Q PUTWINDOWPROP 43Q CREATE.MONITORLOCK 40Q DINFO.ADD.FMENU 35Q GETPROMPTWINDOW 27Q DETACHALLWINDOWS 21Q PUTWINDOWPROP 3 \IRM.GET.IRMWINDOW) (303Q GRAPH.FILES 300Q DINFOW 270Q GRAPH.FILES 265Q DINFOW 251Q DINFOGRAPH 246Q EXTENSION 243Q IRM 240Q NAME 235Q IRM.HOST&DIR 232Q DIRECTORY 225Q DINFO.INIT.FILE.NAME 217Q REPOSITIONATTACHEDWINDOWS 214Q RESHAPEFN 211Q DINFOW 203Q DINFO 200Q EXPANDFN 175Q DINFOW 167Q DINFO.QUIT 164Q SHRINKFN 161Q DINFOW 153Q DINFO.QUIT 150Q CLOSEFN 145Q DINFOW 137Q CLOSEFN 131Q DINFOW 123Q \IRM.DISPLAY.REF 120Q DINFO.DISPLAY.REF 112Q \IRM.DISPLAY.REF.SAVE 107Q \IRM.DISPLAY.REF 72Q DINFOW 54Q MONITORLOCK 51Q DINFOW 32Q DINFOW 24Q DINFOW 12Q TITLE 6 DINFOW) ( 100Q (NOTITLE T) 16Q "DInfo") DINFO.READ.GRAPH D1 (P 0 GRAPH I 0 FILE) ` ` o` @g ` o` @ ` o` H@g H@g H@g H(175Q FILENAMEFIELD 164Q FILENAMEFIELD 146Q FILENAMEFIELD 131Q PRIN1 126Q GETPROMPTWINDOW 113Q GETPROMPTWINDOW 101Q READFILE 74Q PRIN1 71Q GETPROMPTWINDOW 56Q PRIN1 53Q GETPROMPTWINDOW 45Q FILENAMEFIELD 35Q PRIN1 32Q GETPROMPTWINDOW 17Q TERPRI 14Q GETPROMPTWINDOW 5 GETPROMPTWINDOW) (172Q NAME 161Q DIRECTORY 143Q HOST 123Q DINFOW 110Q DINFOW 66Q DINFOW 50Q DINFOW 42Q NAME 27Q DINFOW 11Q DINFOW 2 DINFOW) ( 120Q "OK." 63Q " graph..." 24Q "Reading ") DINFO.WRITE.GRAPH D1 (I 1 FILE I 0 GRAPH) @A (4 WRITEFILE) NIL () DINFO.CHANGE.GRAPHS D1 (P 0 VAL I 0 GRAPH) |`g `g`g @`gH `g g `g @@ `g g `g @ @@ (171Q DINFO.UPDATE 156Q FM.CHANGELABEL 151Q GETWINDOWUSERPROP 140Q FM.ITEMFROMID 132Q GETWINDOWUSERPROP 121Q FM.CHANGELABEL 104Q GETWINDOWUSERPROP 73Q FM.ITEMFROMID 65Q GETWINDOWUSERPROP 53Q PUTWINDOWPROP 34Q WINDOWADDPROP 31Q GETWINDOWUSERPROP 10Q GETWINDOWUSERPROP) (146Q FMENU.WINDOW 143Q DINFOW 135Q GRAPH! 127Q FMENU.WINDOW 124Q DINFOW 101Q FMENU.WINDOW 76Q DINFOW 70Q TOP 62Q FMENU.WINDOW 57Q DINFOW 47Q CURRENT.GRAPH 44Q DINFOW 26Q CURRENT.GRAPH 23Q DINFOW 20Q CACHED.GRAPHS 15Q DINFOW 5 CURRENT.GRAPH 2 DINFOW) () DINFO.QUIT D1 (I 0 W) `g (13Q CLOSEW 10Q GETWINDOWUSERPROP) (5 GRAPH.WINDOW 2 DINFOW) () DINFO.RESET D1 NIL -` %` ` ` hgg h(46Q MOVD 31Q DETACHALLWINDOWS 23Q CLOSEW 15Q OPENW 5 WINDOWP) (52Q IRMWINDOW 43Q \IRM.DISPLAY.REF 40Q \IRM.DISPLAY.REF.SAVE 35Q DINFOW 26Q DINFOW 20Q DINFOW 12Q DINFOW 2 DINFOW) () DINFO.ADD.FMENU D1 (P 1 VAL P 0 FM.WINDOW) )H`gI H` Hgo (46Q PUTWINDOWPROP 33Q ATTACHWINDOW 23Q PUTWINDOWPROP 2 DINFO.CREATE.FMENU) (37Q REJECTMAINCOMS 30Q DINFOW 17Q FMENU.WINDOW 14Q DINFOW) ( 43Q (SHAPEW)) DINFO.CREATE.FMENU D1 NIL ooooooogggggg` ogggggg` ogggggg` ogggggg` oho (267Q FM.FORMATMENU 231Q MEMB 167Q MEMB 125Q MEMB 63Q MEMB) (226Q DINFOMODES 223Q HISTORY 220Q STATE 215Q HISTORY 212Q ID 207Q History 204Q LABEL 164Q DINFOMODES 161Q TEXT 156Q STATE 153Q TEXT 150Q ID 145Q Text 142Q LABEL 122Q DINFOMODES 117Q MENU 114Q STATE 111Q MENU 106Q ID 103Q Menu 100Q LABEL 60Q DINFOMODES 55Q GRAPH 52Q STATE 47Q GRAPH 44Q ID 41Q Graph 36Q LABEL) ( 255Q (((LABEL Lookup! SELECTEDFN DINFO.LOOKUP FONT (HELVETICA 12Q BOLD) MESSAGE "Lookup term in IRM index") (ID LOOKUP LABEL "" TYPE EDIT FONT (HELVETICA 12Q))) ((LABEL Find! SELECTEDFN DINFO.FIND FONT (HELVETICA 12Q BOLD) MESSAGE "Find term in text of current node") (ID FIND LABEL "" TYPE EDIT FONT (HELVETICA 12Q)))) 235Q (TYPE TOGGLE FONT (HELVETICA 12Q BOLD) SELECTEDFN DINFO.TOGGLE.HISTORY MESSAGE "Toggle recording and display of history") 173Q (TYPE TOGGLE SELECTEDFN DINFO.TOGGLE.TEXT FONT (HELVETICA 12Q BOLD) MESSAGE "Toggle display of the text of the current node") 131Q (TYPE TOGGLE SELECTEDFN DINFO.TOGGLE.MENU FONT (HELVETICA 12Q BOLD) MESSAGE "Toggle display of the subnode menu") 67Q (TYPE TOGGLE SELECTEDFN DINFO.TOGGLE.GRAPH FONT (HELVETICA 12Q BOLD) MESSAGE "Toggle display of the graph") 33Q (LABEL Display: TYPE TITLE FONT (HELVETICA 12Q)) 27Q ((LABEL Next! SELECTEDFN DINFO.SPECIAL.UPDATE FONT (HELVETICA 12Q BOLD) MESSAGE "Visit the node after the current node") (ID NEXT LABEL "" TYPE TITLE FONT (HELVETICA 12Q))) 23Q ((LABEL Previous! SELECTEDFN DINFO.SPECIAL.UPDATE FONT (HELVETICA 12Q BOLD) MESSAGE "Visit the node previous to the current node") (ID PREVIOUS LABEL "" TYPE TITLE FONT (HELVETICA 12Q))) 17Q ((LABEL Parent! SELECTEDFN DINFO.SPECIAL.UPDATE FONT (HELVETICA 12Q BOLD) MESSAGE "Visit the parent of the current node") (ID PARENT LABEL "" TYPE TITLE FONT (HELVETICA 12Q))) 13Q ((LABEL Top! SELECTEDFN DINFO.SPECIAL.UPDATE FONT (HELVETICA 12Q BOLD) MESSAGE "Visit the top node") (ID TOP LABEL "" TYPE TITLE FONT (HELVETICA 12Q))) 7 ((LABEL Node: TYPE TITLE FONT (HELVETICA 12Q)) (ID NODE LABEL "" TYPE TITLE FONT (HELVETICA 12Q))) 3 ((LABEL Graph! FONT (HELVETICA 12Q BOLD) SELECTEDFN DINFO.CHOOSE.GRAPH MESSAGE "Select DInfo graph to browse") (ID GRAPH! LABEL "" TYPE TITLE FONT (HELVETICA 12Q)))) DINFO.UPDATE.FMENU D1 (P 1 NODELST P 0 W I 1 NODE I 0 GRAPH) f`g @Hg HA Hg HAI Hg HAI Hg HAI (143Q FM.CHANGELABEL 121Q FM.ITEMFROMID 112Q FM.CHANGELABEL 71Q FM.ITEMFROMID 62Q FM.CHANGELABEL 43Q FM.ITEMFROMID 34Q FM.CHANGELABEL 25Q FM.ITEMFROMID 10Q GETWINDOWUSERPROP) (116Q PREVIOUS 66Q NEXT 40Q PARENT 22Q NODE 5 FMENU.WINDOW 2 DINFOW) () DINFO.SPECIAL.UPDATE D1 (P 3 NEW.NODE P 2 CURRENT.NODE P 1 GRAPH P 0 TYPE I 2 WINDOW I 1 BUTTONS I 0 ITEM) @g `g IHdgI!gJHdgJg JIK"goHi km K ` ` o` H km ` (242Q PRIN1 237Q GETPROMPTWINDOW 231Q SUBSTRING 223Q L-CASE 217Q PRIN1 214Q GETPROMPTWINDOW 202Q TERPRI 177Q GETPROMPTWINDOW 170Q GETPROMPTWINDOW 161Q DINFO.UPDATE 155Q PROCESSPROP 152Q CONCAT 147Q SUBSTRING 141Q L-CASE 125Q THIS.PROCESS 22Q GETWINDOWUSERPROP 6 FM.ITEMPROP) (234Q DINFOW 211Q DINFOW 174Q DINFOW 165Q DINFOW 130Q NAME 73Q Previous! 63Q Next! 51Q Parent! 40Q Top! 17Q CURRENT.GRAPH 14Q DINFOW 3 LABEL) ( 206Q "This node has no " 134Q "DInfo ") DINFO.LOOKUP D1 (P 5 LOOKUPFN P 4 GRAPH.LOOKUPFN P 3 GRAPH P 2 STRING P 1 EDIT.ITEM P 0 W I 0 ITEM) t`g Hg Id` `g !K\ LgJo IH Id` ZJKlM(143Q \ILLEGAL.ARG 127Q FM.EDITITEM 120Q STRING-EQUAL 101Q \DEFINEDP 61Q GETWINDOWUSERPROP 40Q \ILLEGAL.ARG 22Q FM.ITEMFROMID 10Q GETWINDOWUSERPROP) (146Q FREEMENUITEM 136Q FREEMENUITEMTYPE# 107Q DINFO.DEFAULT.LOOKUPFN 56Q CURRENT.GRAPH 53Q DINFOW 43Q FREEMENUITEM 33Q FREEMENUITEMTYPE# 17Q LOOKUP 5 FMENU.WINDOW 2 DINFOW) ( 115Q "") DINFO.CHOOSE.GRAPH D1 (P 6 GRAPH P 5 GRAPH.NAME P 4 GRAPH.FILE P 3 FILENAME) `dodi 0`g &dKg gKhhIHhZH&JHdIdg dgjdndhHdI  Lg LhZM`g 7` ` o` M` o` M`g ^L (341Q DINFO.CHANGE.GRAPHS 336Q DINFO.READ.GRAPH 326Q GETWINDOWUSERPROP 313Q PRIN1 310Q GETPROMPTWINDOW 276Q PRIN1 273Q GETPROMPTWINDOW 264Q PRIN1 261Q GETPROMPTWINDOW 247Q TERPRI 244Q GETPROMPTWINDOW 235Q GETPROMPTWINDOW 223Q GETWINDOWUSERPROP 201Q FILENAMEFIELD 167Q MENU 52Q FILENAMEFIELD 34Q GETWINDOWUSERPROP) (323Q CACHED.GRAPHS 320Q DINFOW 305Q DINFOW 270Q DINFOW 256Q DINFOW 241Q DINFOW 232Q DINFOW 220Q CURRENT.GRAPH 215Q DINFOW 176Q NAME 134Q DEFAULTMENUHELDFN 125Q CLRPROMPT 55Q QUOTE 47Q NAME 31Q GRAPH.FILES 26Q DINFOW 2 MENUTYPE#) ( 302Q " graph." 253Q "Already using " 10Q "Select Graph ") DINFO.UPDATE.MENU.DISPLAY D1 (P 20Q BITS P 17Q VAL P 16Q MENU P 15Q SCROLLABLE P 14Q LENGTH P 13Q CHILDREN P 12Q ID P 6 NODELST P 0 WINDOW I 1 NODE I 0 GRAPH) `g AA@B M@O  O  O`_``g di dkdj0 OS_N_OOh__M]O&_dYggIhhoh_O Oh_O&_OdJdg dgjdndhdK d LHH H OO jd`g O`O ։O i hohi XOHjO`OO րji H`g H H`gO `g jO `jdO  (635Q RELMOVEW 604Q \INSUREWINDOW 601Q GETWINDOWUSERPROP 567Q PUTWINDOWPROP 550Q REDISPLAYW 544Q ATTACHWINDOW 532Q ADDMENU 470Q CREATEW 452Q HEIGHTIFWINDOW 441Q CHECK/MENU/IMAGE 411Q GETWINDOWPROP 376Q UPDATE/MENU/IMAGE 360Q CLOSEW 353Q DETACHWINDOW 104Q GETWINDOWPROP 53Q FLENGTH 43Q DREVERSE 10Q GETWINDOWUSERPROP) (624Q DINFOW 576Q SUBNODE.MENU.WINDOW 573Q DINFOW 562Q SUBNODE.MENU.WINDOW 557Q DINFOW 541Q BOTTOM 536Q DINFOW 514Q MENU 504Q \DINFO.MAX.MENU.LEN 444Q BITMAP 424Q MENU 417Q \DINFO.MAX.MENU.LEN 406Q WIDTH 403Q DINFOW 333Q MENU 303Q DEFAULTMENUHELDFN 274Q CLRPROMPT 210Q QUOTE 205Q DINFO.UPDATE 101Q WIDTH 76Q DINFOW 72Q MENUTYPE# 63Q \DINFO.MAX.MENU.LEN 5 SUBNODE.MENU.WINDOW 2 DINFOW) ( 463Q "Subnodes" 223Q "Will visit this node if selected.") DINFO.TOGGLE.MENU D1 (I 0 ITEM) =@g `g `g  `g `g (72Q CLOSEW 67Q GETWINDOWUSERPROP 56Q DETACHWINDOW 53Q GETWINDOWUSERPROP 41Q DINFO.UPDATE.MENU.DISPLAY 32Q GETWINDOWUSERPROP 21Q GETWINDOWUSERPROP 6 FM.ITEMPROP) (64Q SUBNODE.MENU.WINDOW 61Q DINFOW 50Q SUBNODE.MENU.WINDOW 45Q DINFOW 27Q CURRENT.GRAPH 24Q DINFOW 16Q CURRENT.GRAPH 13Q DINFOW 3 STATE) () DINFO.UPDATE.HISTORY.DISPLAY D1 (P 5 MENU P 4 ITEMS P 3 VAL P 1 NEWITEM P 0 OLDWINDOW I 1 SEL I 0 NODE) 0 `g !A@gg@hhohY`g `gK K`dodi dkdLdg dgjdndhdJ HH H L)M`gg `gK Kgo ``g lC O&O_gg@hgAhho._ONO_OOh__O_Ok_O&_(315Q GETWINDOWUSERPROP 300Q PUTWINDOWPROP 263Q PUTWINDOWPROP 246Q ATTACHMENU 225Q CLOSEW 220Q DETACHWINDOW 107Q PUTWINDOWPROP 72Q GETWINDOWUSERPROP 10Q GETWINDOWUSERPROP) (354Q QUOTE 345Q QUOTE 342Q DINFO.UPDATE 312Q HISTORY.ITEMS 307Q DINFOW 304Q DINFO.HISTORY.LENGTH 271Q REJECTMAINCOMS 257Q HISTORY.MENU.WINDOW 254Q DINFOW 243Q TOP 240Q LEFT 235Q DINFOW 163Q DEFAULTMENUHELDFN 154Q CLRPROMPT 120Q MENUTYPE# 103Q HISTORY.ITEMS 100Q DINFOW 67Q HISTORY.ITEMS 64Q DINFOW 33Q QUOTE 30Q DINFO.UPDATE 5 HISTORY.MENU.WINDOW 2 DINFOW) ( 370Q "Will lookup this term in IRM" 275Q (SHAPEW) 126Q "History" 46Q "Will visit this node") DINFO.TOGGLE.HISTORY D1 (I 0 ITEM) 4@g `g  `g `g (61Q CLOSEW 56Q GETWINDOWUSERPROP 45Q DETACHWINDOW 42Q GETWINDOWUSERPROP 30Q DINFO.UPDATE.HISTORY.DISPLAY 21Q GETWINDOWUSERPROP 6 FM.ITEMPROP) (53Q HISTORY.MENU.WINDOW 50Q DINFOW 37Q HISTORY.MENU.WINDOW 34Q DINFOW 16Q CURRENT.GRAPH 13Q DINFOW 3 STATE) () DINFO.UPDATE.GRAPH.DISPLAY D1 (P 37Q GRAPH.REGION P 36Q WINDOW.REGION P 32Q SIBLING.GRAPHER.NODES P 31Q PARENT.GRAPHER.NODE P 30Q SIBLINGS P 27Q ID P 23Q PARENT P 17Q GRAPHER.NODE P 16Q CHILD.GRAPHER.NODES P 15Q CHILDREN P 14Q ID P 10Q NODELST P 7 GRAPH.WINDOW P 6 VAL P 0 GRAPHER.GRAPH I 1 NODE I 0 DINFO.GRAPH F 40Q DEFAULT.GRAPH.NODEFONT F 41Q DEFAULT.GRAPH.NODEBORDER F 42Q DEFAULT.GRAPH.NODELABELSHADE F 43Q MENUFONT)  ``g -``Ilddhohi `gN N@_0 A"d OO_O Oh_O&_O!0O7dZhddWDhdddW@JWBh_ O" O h_$O &_"O$_AhddnhdOhW@AWBh_AAO0O&"dO.O_(O* O(h_,O(&_*O,!0O0@d[dAOddWDhdddW@KWBh_6O8 O6h_:O6&_8O:_4O&hddWDhdO&O0hW@LWBh_2O4O O&hhWF XOOAhhWF HO H OO<O<O>i O> Mh g (1001Q SHOWGRAPH 772Q SHAPEW 761Q WIDTHIFWINDOW 750Q HEIGHTIFWINDOW 722Q GRAPHREGION 714Q \INSUREWINDOW 705Q LAYOUTGRAPH 663Q LAYOUTGRAPH 650Q \NCONC2 65Q PUTWINDOWPROP 50Q CREATEW 13Q GETWINDOWUSERPROP) (776Q DINFO.UPDATE.FROM.GRAPH 61Q GRAPH.WINDOW 56Q DINFOW 25Q DINFOGRAPHWINDOWPOSITION 20Q DINFOGRAPHWINDOWPOSITION 10Q GRAPH.WINDOW 5 DINFOW) ( 43Q "DInfo Graph") DINFO.UPDATE.FROM.GRAPH D1 (I 1 GRAPH.WINDOW I 0 GRAPHER.NODE) @gg@hhgo (32Q ADD.PROCESS) (23Q NAME 10Q QUOTE 5 DINFO.UPDATE) ( 27Q "DInfo From Graph") DINFO.TOGGLE.GRAPH D1 (P 0 GRAPH I 0 ITEM) ,`g @g Hd `g (51Q CLOSEW 46Q GETWINDOWUSERPROP 34Q DINFO.UPDATE.GRAPH.DISPLAY 22Q FM.ITEMPROP 10Q GETWINDOWUSERPROP) (43Q GRAPH.WINDOW 40Q DINFOW 17Q STATE 5 CURRENT.GRAPH 2 DINFOW) () DINFO.UPDATE.TEXT.DISPLAY D1 (P 5 TEXT.TRIPLE P 4 TEXTSTREAM P 3 PROPS P 2 TOBYTE P 1 FROMBYTE P 0 FILENAME I 2 SEL I 1 NODE I 0 GRAPH) AAAgigig`h@ `g %Hg g@g@gH H SHIJh]`gM `g \H`IJK L BFL LBBB hi  (L ol oH `hdo ` ` (^,N(354Q \INSUREWINDOW 343Q TEXTOBJ 334Q OPENTEXTSTREAM 317Q CONCAT 307Q MKSTRING 304Q CHARACTER 272Q CLOSEF? 264Q TEDIT.NORMALIZECARET 261Q TEDIT.SETSEL 253Q NCHARS 235Q TEXTOBJ 224Q CLOSEF? 220Q OPENTEXTSTREAM 202Q GETWINDOWUSERPROP 167Q PUTWINDOWPROP 143Q INFILEP 136Q PACKFILENAME 101Q FILENAMEFIELD 67Q GETWINDOWUSERPROP 56Q \APPEND2) (351Q DINFOW 346Q TEXTOBJ 340Q DINFOW 322Q DINFOW 211Q DINFOW 177Q TEXTSTREAM 174Q DINFOW 163Q LAST.TEXT 160Q DINFOW 131Q BODY 117Q DIRECTORY 106Q HOST 76Q HOST 64Q TEXTSTREAM 61Q DINFOW 34Q IRM.FONT 31Q FONT 25Q NOTITLE 21Q READONLY) ( 330Q (READONLY T) 313Q "Missing file is: " 277Q "Sorry, the documentation for this node is missing.") DINFO.FIND D1 (P 4 CHARNUM P 3 TEXTSTREAM P 2 STRING P 1 EDIT.ITEM P 0 W I 0 ITEM) `g Hg Ig Jo IH Ig `g KJ LKdiKLJ gi  Kdjd ` ` o` J` o` o` (260Q PRIN1 255Q GETPROMPTWINDOW 243Q PRIN1 240Q GETPROMPTWINDOW 226Q PRIN1 223Q GETPROMPTWINDOW 214Q PRIN1 211Q GETPROMPTWINDOW 177Q TERPRI 174Q GETPROMPTWINDOW 165Q GETPROMPTWINDOW 157Q TEDIT.NORMALIZECARET 154Q TEDIT.SETSEL 144Q TEDIT.NORMALIZECARET 141Q TEDIT.SHOWSEL 136Q TEDIT.SETSEL 126Q NCHARS 107Q TEDIT.FIND 77Q GETWINDOWUSERPROP 65Q FM.ITEMPROP 55Q FM.EDITITEM 47Q STRING-EQUAL 34Q FM.ITEMPROP 22Q FM.ITEMFROMID 10Q GETWINDOWUSERPROP) (252Q DINFOW 235Q DINFOW 220Q DINFOW 206Q DINFOW 171Q DINFOW 162Q DINFOW 131Q RIGHT 74Q TEXTSTREAM 71Q DINFOW 62Q LABEL 31Q LABEL 17Q FIND 5 FMENU.WINDOW 2 DINFOW) ( 247Q " Not found." 232Q "%"" 203Q "%"" 44Q "") DINFO.TOGGLE.TEXT D1 (P 0 OLDTEXTSTREAM I 0 ITEM) J@d` `g `g  `g ` ` H (107Q CLOSEF? 103Q CLEARW 75Q TEDIT.DEACTIVATE.WINDOW 64Q GETWINDOWUSERPROP 52Q DINFO.UPDATE.TEXT.DISPLAY 43Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 12Q \ILLEGAL.ARG) (100Q DINFOW 72Q DINFOW 61Q TEXTSTREAM 56Q DINFOW 40Q CURRENT.GRAPH 35Q DINFOW 27Q CURRENT.GRAPH 24Q DINFOW 15Q FREEMENUITEM 5 FREEMENUITEMTYPE#) () DINFO.IRM.LOOKUP D1 (I 0 STRING) @ ` (11Q IRM.SMART.LOOKUP 3 MKATOM) (6 DINFOW) () DINFO.DISPLAY.REF D1 (P 4 TO P 3 TO# P 2 FROM P 1 SHIFT P 0 NODE I 0 REF) Z`g g5@ AH@Iպ@[dIռH@JLdJ @```hi (127Q \IRM.DISPLAY.REF.SAVE 124Q \IRM.GET.IRMWINDOW 101Q DINFO.UPDATE 23Q DINFO.REF.TO.NODE 10Q GETWINDOWUSERPROP) (116Q IRMWINDOW 111Q IRMWINDOW 106Q DINFOW 14Q IRM 5 CURRENT.GRAPH 2 DINFOW) () DINFO.REF.TO.NODE D1 (P 4 NODE P 3 DINFO.BYTE P 2 IRM.BYTE P 1 FILE P 0 NODES I 0 REF) I`g @o @#H\ o LHILKKJL(53Q ERROR 26Q PACK* 10Q GETWINDOWUSERPROP) (5 CURRENT.GRAPH 2 DINFOW) ( 50Q "NODE NOT FOUND" 23Q ".TXT") DINFO.BUTTONEVENTFN D1 (P 2 EDITFN P 1 GRAPH.EDITFN P 0 GRAPH I 0 WINDOW) M@ `lk;`g !HY IgZHddi3 gHhh (112Q ADD.PROCESS 53Q \DEFINEDP 32Q GETWINDOWUSERPROP 6 GETMOUSESTATE 3 TOTOPW) (100Q QUOTE 61Q DINFO.DEFAULT.EDITFN 27Q CURRENT.GRAPH 24Q DINFOW 12Q LASTMOUSEBUTTONS) () DINFO.DEFAULT.EDITFN D1 (I 0 GRAPH) T`dodg dgjdndhHdI  dg@g g @g (121Q INSPECT 77Q INSPECT 61Q MENU) (116Q DINFONODE 103Q NODE 74Q DINFOGRAPH 65Q GRAPH 26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 2 MENUTYPE#) ( 10Q (("Inspect Current DInfo Graph" (QUOTE GRAPH)) ("Inspect Current DInfo Node" (QUOTE NODE)))) DINFO.DEFAULT.LOOKUPFN D1 (I 1 GRAPH I 0 STRING) 7` ` o` A` o` (64Q PRIN1 61Q GETPROMPTWINDOW 47Q PRIN1 44Q GETPROMPTWINDOW 34Q PRIN1 31Q GETPROMPTWINDOW 17Q TERPRI 14Q GETPROMPTWINDOW 5 GETPROMPTWINDOW) (56Q DINFOW 41Q DINFOW 26Q DINFOW 11Q DINFOW 2 DINFOW) ( 53Q " graph has no LOOKUPFN." 23Q "The ") (PRETTYCOMPRINT DINFOCOMS) (RPAQQ DINFOCOMS ((FILES TEDIT GRAPHER FREEMENU HELPSYS) (RECORDS DINFOGRAPH DINFONODE) (MACROS DINFO.SETQ DINFO.GETQ) (* Primary functions) (FNS DINFO DINFO.UPDATE DINFO.INIT DINFO.READ.GRAPH DINFO.WRITE.GRAPH DINFO.CHANGE.GRAPHS DINFO.QUIT DINFO.RESET) (* FreeMenu functions) (FNS DINFO.ADD.FMENU DINFO.CREATE.FMENU DINFO.UPDATE.FMENU DINFO.SPECIAL.UPDATE DINFO.LOOKUP DINFO.CHOOSE.GRAPH) (* Other menu functions) (FNS DINFO.UPDATE.MENU.DISPLAY DINFO.TOGGLE.MENU DINFO.UPDATE.HISTORY.DISPLAY DINFO.TOGGLE.HISTORY) (* Interface to GRAPHER) (FNS DINFO.UPDATE.GRAPH.DISPLAY DINFO.UPDATE.FROM.GRAPH DINFO.TOGGLE.GRAPH) (* Interface to TEdit) (FNS DINFO.UPDATE.TEXT.DISPLAY DINFO.FIND DINFO.TOGGLE.TEXT) (* Interface to HELPSYS) (FNS DINFO.IRM.LOOKUP DINFO.DISPLAY.REF DINFO.REF.TO.NODE) (* Provide hooks for implementors) (FNS DINFO.BUTTONEVENTFN DINFO.DEFAULT.EDITFN DINFO.DEFAULT.LOOKUPFN) (ADDVARS (BackgroundMenuCommands (DInfo (QUOTE ( ADD.PROCESS (QUOTE (DINFO)))) "Open a DInfo window for browsing documentation."))) (VARS ( BackgroundMenu)) (INITVARS (DINFOW) (DINFO.INIT.FILE.NAME) (DINFOGRAPHWINDOWPOSITION (CREATE POSITION XCOORD _ 1 YCOORD _ 1)) (DINFOMODES (QUOTE (GRAPH TEXT))) (DINFO.HISTORY.LENGTH 10) ( \DINFO.MAX.MENU.LEN 10)) (GLOBALVARS DINFOW DINFO.INIT.FILE.NAME DINFOGRAPHWINDOWPOSITION DINFOMODES DINFO.HISTORY.LENGTH \DINFO.MAX.MENU.LEN))) (FILESLOAD TEDIT GRAPHER FREEMENU HELPSYS) (RECORD DINFOGRAPH (NAME NODELST TOPNODEID CURRENTNODE DEFAULTHOST DEFAULTDIR TEXTPROPS LOOKUPFN EDITFN USERDATA)) (RECORD DINFONODE (ID LABEL FILE FROMBYTE TOBYTE PARENT CHILDREN NEXTNODE PREVIOUSNODE USERDATA)) (PUTPROPS DINFO.SETQ MACRO ((KEY VALUE) (LET ((VAL VALUE)) (WINDOWPROP DINFOW (QUOTE KEY) VAL) VAL))) (PUTPROPS DINFO.GETQ MACRO ((KEY) (WINDOWPROP DINFOW (QUOTE KEY)))) (ADDTOVAR BackgroundMenuCommands (DInfo (QUOTE (ADD.PROCESS (QUOTE (DINFO)))) "Open a DInfo window for browsing documentation.")) (RPAQQ BackgroundMenu NIL) (RPAQ? DINFOW) (RPAQ? DINFO.INIT.FILE.NAME) (RPAQ? DINFOGRAPHWINDOWPOSITION (CREATE POSITION XCOORD _ 1 YCOORD _ 1)) (RPAQ? DINFOMODES (QUOTE (GRAPH TEXT))) (RPAQ? DINFO.HISTORY.LENGTH 10) (RPAQ? \DINFO.MAX.MENU.LEN 10) (PUTPROPS DINFO COPYRIGHT ("Xerox Corporation" 1985)) NIL