(FILECREATED " 3-Feb-86 12:33:52" ("compiled on " {ERIS}LISP>KOTO>DINFOEDIT.;7) "12-Nov-85 14:59:23" recompiled changes: DINFO.CHANGE.GRAPHS DINFO.DEFAULT.EDITFN DINFO.UPDATE.HISTORY.DISPLAY in "INTERLISP-D 29-Jan-86 ..." dated "29-Jan-86 13:26:30") (FILECREATED " 3-Feb-86 12:32:36" {ERIS}LISP>KOTO>DINFOEDIT.;7 28207 changes to: (VARS DINFOEDITCOMS) (FNS DINFO.UPDATE.HISTORY.DISPLAY DINFO.CHANGE.GRAPHS DINFO.DEFAULT.EDITFN) (MACROS DINFOGRAPHPROP) previous date: "26-Jan-86 16:50:14" {ERIS}LISP>KOTO>DINFOEDIT.;5) DINFO.DUMMY.GRAPH D1 (P 0 DIR) Li hjhddddddddhhjhHg Hg Hg hdghIh(66Q FILENAMEFIELD 56Q FILENAMEFIELD 47Q FILENAMEFIELD 3 DIRECTORYNAME) (73Q DINFO.EDIT.MENU 63Q DIRECTORY 53Q DEVICE 44Q HOST) () DINFO.EDIT.MENUA0001 D1 (NAME ERRORSET P 5 TYPE P 4 USERDATA P 0 MENU F 6 GRAPH F 7 MACROY) Ti Vg'1Vg'`fVL`dododi dg dgjdndhdJ VgKhKH MgoMi MdgJV g`dododi dg dgjdndhdI gV ?MdgV 1gV &MdgV gVi MgV ci(515Q DINFO.TEDIT 501Q DINFO.EDIT.NODE 465Q DINFO.EDIT.NODE 447Q DINFO.DELETE.NODE 434Q DINFO.ADD.NODE 416Q DINFO.FETCH.GRAPH 403Q LISTPUT 302Q DINFO.SAVE.GRAPH 264Q PROCESSPROP 261Q CONCAT 256Q L-CASE 242Q THIS.PROCESS 224Q MENU 3 CLEARW) (506Q TEDIT 472Q EDIT.THIS 456Q EDIT 441Q DELETE 425Q ADD 410Q GET 354Q DEFAULTMENUHELDFN 345Q CLRPROMPT 313Q MENUTYPE# 310Q DINFO.EDIT.MENU 272Q PUT 245Q NAME 207Q DINFO.EDIT.MENU 145Q DEFAULTMENUHELDFN 136Q CLRPROMPT 104Q MENUTYPE# 51Q MENUTYPE# 44Q DINFO.EDIT.MENU 22Q DINFO.EDIT.MENU) ( 331Q "DInfo Edit Menu " 321Q (("Put Graph" (QUOTE PUT) "Save current graph to a file") ("Get Graph" (QUOTE GET) "Read a graph from a file and visit it") ("Add Child" (QUOTE ADD) "Add a child node to the current node") ("Delete Node" (QUOTE DELETE) "Delete a terminal node from the current graph") ("Edit Node" (QUOTE EDIT) "Edit a selected node with the node editor" (SUBITEMS ("This node" (QUOTE EDIT.THIS) "Start the node editor on the current node"))) ("TEdit" (QUOTE TEDIT) "Tedit the text of the current node")) 251Q "DInfo " 122Q "DInfo Edit Menu " 112Q (("Put Graph" (QUOTE PUT) "Save current graph to a file") ("Get Graph" (QUOTE GET) "Read a graph from a file and visit it") ("Add Child" (QUOTE ADD) "Add a child node to the current node") ("Delete Node" (QUOTE DELETE) "Delete a terminal node from the current graph") ("Edit Node" (QUOTE EDIT) "Edit a selected node with the node editor" (SUBITEMS ("This node" (QUOTE EDIT.THIS) "Start the node editor on the current node"))) ("TEdit" (QUOTE TEDIT) "Tedit the text of the current node"))) DINFO.EDIT.MENU D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 GRAPH F 4 RESETVARSLST) @` 1gHhhTcYog gIcgI KJ(73Q ERROR! 66Q APPLY 43Q DINFO.EDIT.MENUA0001 10Q TTYDISPLAYSTREAM 5 GETPROMPTWINDOW) (57Q TTYDISPLAYSTREAM 47Q ERROR 40Q INTERNAL 16Q TTYDISPLAYSTREAM 2 DINFOW) ( 35Q (DINFO.EDIT.MENUA0001)) DINFOEDIT.CLOSEFN D1 (P 0 GRAPH I 0 W) (@g HH oh@ gh(37Q MOUSECONFIRM 34Q GETPROMPTWINDOW 21Q DINFO.ISCHANGED 6 GETWINDOWUSERPROP) (43Q DON'T 3 DINFOGRAPH) ( 27Q "Graph has been changed") DINFO.MARKASCHANGED D1 (P 0 USERDATA I 0 GRAPH) .@H@gihigi (53Q LISTPUT) (47Q GRAPH.CHANGED 35Q GRAPH.CHANGED) () DINFO.UNMARKASCHANGED D1 (P 0 USERDATA I 0 GRAPH) -@H@ghhhg (52Q LISTPUT) (47Q GRAPH.CHANGED 35Q GRAPH.CHANGED) () DINFO.FORCED.UPDATE D1 (I 0 NODE F 0 GRAPH) Ph@ (11Q DINFO.UPDATE) NIL () DINFO.ISCHANGED D1 (I 0 GRAPH) @dg'NIL (17Q GRAPH.CHANGED) () DINFO.SAVE.GRAPH D1 (P 0 FILENAME I 0 GRAPH) o@'g@g@g@gg  hddg H^oi @H Xi oi Hi @Hg @Hg @Hg `g@o @ Hoi h(240Q PRIN1 226Q DINFO.UNMARKASCHANGED 222Q PUTWINDOWPROP 217Q CONCAT 177Q FILENAMEFIELD 161Q FILENAMEFIELD 144Q FILENAMEFIELD 134Q PRIN1 126Q PRIN1 116Q CLEARW 111Q DINFO.WRITE.GRAPH 104Q PRIN1 66Q PROMPTFORWORD 54Q MKSTRING 51Q PACKFILENAME) (206Q TITLE 203Q DINFOW 174Q DIRECTORY 156Q HOST 141Q NAME 62Q TTY 45Q DINFOGRAPH 42Q EXTENSION 35Q NAME 23Q DIRECTORY 12Q HOST) ( 234Q " Aborted" 214Q " DInfo Graph" 122Q "Written: " 100Q " ..." 3 "Put: ") DINFO.FETCH.GRAPH D1 (P 0 FILENAME I 0 GRAPH) @ ohi i oi o@$g@g@g@gg hddg  Hoi H `g oi (175Q PRIN1 164Q DINFO.UNMARKASCHANGED 161Q GETWINDOWUSERPROP 150Q DINFO.CHANGE.GRAPHS 145Q DINFO.READ.GRAPH 141Q PRIN1 123Q INFILEP 120Q PROMPTFORWORD 106Q PACKFILENAME 33Q PRIN1 23Q CLEARW 16Q MOUSECONFIRM 3 DINFO.ISCHANGED) (156Q CURRENT.GRAPH 153Q DINFOW 114Q TTY 102Q DINFOGRAPH 77Q EXTENSION 72Q NAME 60Q DIRECTORY 47Q HOST) ( 171Q " not found." 135Q " ..." 40Q "Get: " 27Q "Get Aborted." 11Q "Changes have been made.") DINFO.ADD.NODE D1 (P 3 I P 2 NEW.CHILD P 1 NODELST P 0 CURRENT.NODE I 0 GRAPH) X@!@kKIKk[KhdddHhdddh@ Zi JH @ oi oi (125Q PRIN1 114Q PRIN1 104Q DINFO.MARKASCHANGED 100Q DINFO.FORCED.UPDATE 71Q CLEARW 64Q DINFO.NODE.EDITOR) NIL ( 121Q "Add Child aborted" 110Q "OK, child added") DINFO.DELETE.NODE D1 (P 5 CHILDREN P 4 NEXTNODE P 3 PREVIOUSNODE P 2 PARENT P 1 NODELST P 0 NODE I 0 GRAPH) @o @HIHIHIHi H@oMoHo hi oi @HI JHJ KLKLLKH@HI@ @ i oi Hi ooi h(366Q PRIN1 350Q PRIN1 340Q PRIN1 327Q CLEARW 322Q DINFO.MARKASCHANGED 315Q DINFO.FORCED.UPDATE 222Q DREMOVE 174Q DREMOVE 164Q PRIN1 153Q MOUSECONFIRM 146Q CONCAT 104Q CLEARW 7 DINFO.READ/NODE) NIL ( 362Q "Sorry, only terminal nodes can be deleted." 355Q " deleted." 334Q "OK, node " 160Q "Delete node aborted" 143Q " ?" 134Q "Delete node " 120Q "The top node cannot be deleted" 4 "to be deleted") DINFO.EDIT.NODE D1 (P 0 NEW.NODE I 1 CURRENT.NODE? I 0 GRAPH) GA@@do @ i H@ @ oi oi (104Q PRIN1 73Q PRIN1 63Q DINFO.MARKASCHANGED 57Q DINFO.FORCED.UPDATE 44Q CLEARW 35Q DINFO.NODE.EDITOR 31Q DINFO.READ/NODE) NIL ( 100Q "Node Edit aborted" 67Q "OK, Node Edit completed" 26Q "to edit") DINFO.TEDITA0001 D1 (NAME ERRORSET P 4 L P 3 TEXTOBJ P 2 TEXTSTREAM P 1 FILE P 0 NODE F 5 GRAPH F 6 RESETY) UUH ` J ` `gg  K`io J , YiIH HIg HI gLg'gLg'gLg'UhLg'gLg'UhLg'gLg'UhLg' U ` `g ` `ggi U c i(420Q DINFO.FORCED.UPDATE 407Q WINDOWADDPROP 371Q ATTACHWINDOW 363Q GETWINDOWUSERPROP 351Q DETACHALLWINDOWS 342Q DINFO.MARKASCHANGED 333Q PACKFILENAME 170Q UNPACKFILENAME 157Q FILENAMEFIELD 145Q MKATOM 123Q FULLNAME 113Q TEXTOBJ 106Q TEDIT 71Q TTY.PROCESS 66Q THIS.PROCESS 62Q WINDOWDELPROP 45Q DETACHALLWINDOWS 34Q TEXTOBJ 25Q TEXTSTREAM 14Q DINFO.GET.FILENAME) (403Q DINFOEDIT.CLOSEFN 400Q CLOSEFN 375Q DINFOW 366Q DINFOW 360Q FMENU.WINDOW 355Q DINFOW 346Q DINFOW 326Q DIRECTORY 306Q DIRECTORY 302Q DIRECTORY 276Q DEVICE 251Q DEVICE 245Q DEVICE 241Q HOST 222Q HOST 216Q HOST 212Q EXTENSION 206Q EXTENSION 202Q NAME 176Q NAME 154Q NAME 116Q TEXTOBJ 76Q DINFOW 57Q DINFOEDIT.CLOSEFN 54Q CLOSEFN 51Q DINFOW 42Q DINFOW 22Q DINFOW) ( 103Q (READONLY NIL QUITFN NILL)) DINFO.TEDIT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 GRAPH F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DINFO.TEDITA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DINFO.TEDITA0001)) DINFO.NODE.EDITORA0001 D1 (I 0 W) @g (11Q NOTIFY.EVENT 6 GETWINDOWUSERPROP) (3 EVENT) () DINFO.NODE.EDITOR D1 (P 7 SIBLINGS P 6 NEXT P 5 ID P 4 PARENT P 3 NEW.NODE P 2 NEW.NODE P 1 WINDOW P 0 NODELST I 1 GRAPH I 0 NODE F 10Q RESETVARSLST) @A@H IgA Igg Igg gIhhhWcIdg Ig hddo  Igo@ Ig Ig I@ KHAK@H KAAKLCLKKLNO NMhNMO MdO KdHKKKHKK(365Q ATTACH 362Q DREMOVE 352Q LSUBST 347Q DREMOVE 332Q MEMB 242Q ATTACH 237Q DREMOVE 210Q DINFO.DECODE.NODE.FM 175Q GETWINDOWUSERPROP 166Q AWAIT.EVENT 163Q GETWINDOWUSERPROP 154Q PUTWINDOWPROP 151Q CONCAT 134Q MOVEW 131Q GETBOXPOSITION 116Q GETWINDOWPROP 107Q GETWINDOWPROP 57Q PUTWINDOWPROP 45Q PUTWINDOWPROP 42Q CREATE.EVENT 30Q PUTWINDOWPROP 12Q DINFO.EDIT.NODE.WINDOW) (172Q SAVE.CHANGES 160Q EVENT 140Q TITLE 113Q HEIGHT 104Q WIDTH 62Q CLOSEW 54Q DINFO.NODE.EDITORA0001 51Q CLOSEFN 37Q DINFO.NODE.EDITOR 34Q EVENT 24Q DINFOGRAPH) ( 144Q "Edit of DInfo node " 125Q "Position DInfo Node Editor window") DINFO.EDIT.NODE.WINDOW D1 (I 1 NODELST I 0 NODE) Iohogdgggog@ hhogggggog@ hhogggggog@ hhogggggog@A hhogggog@A g@ohogggog@A g@ohh (506Q FM.FORMATMENU 437Q MKSTRING 337Q MKSTRING 256Q MKSTRING 172Q MKSTRING 115Q MKSTRING 41Q MKSTRING) (442Q NODEID 417Q LABEL 410Q FONT 405Q NEXTNODE 402Q ID 342Q NODEID 316Q LABEL 307Q FONT 304Q PREVIOUSNODE 301Q ID 240Q LABEL 231Q FONT 226Q TITLE 223Q TYPE 220Q PARENT 215Q ID 163Q LABEL 154Q FONT 151Q EDIT 146Q TYPE 143Q FILE 140Q ID 107Q LABEL 100Q FONT 75Q EDIT 72Q TYPE 67Q LABEL 64Q ID 34Q LABEL 25Q FONT 22Q TITLE 17Q TYPE 13Q ID) ( 457Q (SELECTEDFN DINFO.SELECT.NEIGHBOR MESSAGE "Select a node to be the Next Node") 414Q (HELVETICA 12Q BOLD) 377Q (LABEL "Next Node:" TYPE TITLE FONT (HELVETICA 12Q)) 360Q (SELECTEDFN DINFO.SELECT.NEIGHBOR MESSAGE "Select a node to be the Previous Node") 313Q (HELVETICA 12Q BOLD) 276Q (LABEL "Previous Node:" TYPE TITLE FONT (HELVETICA 12Q)) 235Q (HELVETICA 12Q) 212Q (LABEL "Parent:" TYPE TITLE FONT (HELVETICA 12Q)) 160Q (HELVETICA 12Q BOLD) 135Q (LABEL File: TYPE EDITSTART ITEMS (FILE) FONT (HELVETICA 12Q)) 104Q (HELVETICA 12Q BOLD) 61Q (LABEL Label: TYPE EDITSTART ITEMS (LABEL) FONT (HELVETICA 12Q)) 31Q (HELVETICA 12Q) 10Q (LABEL ID: TYPE TITLE FONT (HELVETICA 12Q)) 3 ((LABEL Exit! FONT (HELVETICA 12Q BOLD) SELECTEDFN (LAMBDA (ITEM WINDOW) (WINDOWPROP WINDOW (QUOTE SAVE.CHANGES) T) (CLOSEW WINDOW)) MESSAGE "Exit DInfo Node editor, saving changes") (LABEL Abort! FONT (HELVETICA 12Q BOLD) SELECTEDFN (LAMBDA (ITEM WINDOW) (CLOSEW WINDOW)) MESSAGE "Abort DInfo Node editor, changes will be forgotten"))) DINFO.DECODE.NODE.FM D1 (P 0 STATE I 1 OLD.NODE I 0 FM.WINDOW) @ !AHg'AAHg' hdJI@g `@g @g g'@g `@g @g g'hh(161Q \ILLEGAL.ARG 156Q FM.ITEMFROMID 146Q FM.ITEMFROMID 131Q FM.ITEMFROMID 111Q \ILLEGAL.ARG 106Q FM.ITEMFROMID 76Q FM.ITEMFROMID 61Q FM.ITEMFROMID 46Q MKATOM 3 FM.READSTATE) (171Q NODEID 164Q FREEMENUITEM 153Q PREVIOUSNODE 143Q PREVIOUSNODE 135Q FREEMENUITEMTYPE# 126Q PREVIOUSNODE 121Q NODEID 114Q FREEMENUITEM 103Q NEXTNODE 73Q NEXTNODE 65Q FREEMENUITEMTYPE# 56Q NEXTNODE 42Q FILE 14Q LABEL) () DINFO.SELECT.NEIGHBOR D1 (P 0 NODE I 1 FM.WINDOW I 0 ITEM) cAg @d` dgogo @d` g'@gH @AH (140Q FM.CHANGELABEL 130Q LISTPUT 100Q \ILLEGAL.ARG 62Q DINFO.READ/NODE 57Q SHOULDNT 21Q \ILLEGAL.ARG 6 GETWINDOWUSERPROP) (123Q NODEID 116Q FREEMENUITEM 110Q NODEID 103Q FREEMENUITEM 73Q FREEMENUITEMTYPE# 45Q PREVIOUSNODE 32Q NEXTNODE 24Q FREEMENUITEM 14Q FREEMENUITEMTYPE# 3 DINFOGRAPH) ( 53Q "to be Previous Node" 41Q "to be Next Node") DINFO.READ/NODEA0001 D1 (NAME ERRORSET P 2 GRAPHW P 1 FM.ITEM P 0 FMENUW F 3 RESETVARSLST F 4 BLURB F 5 CROSSHAIRS F 6 RESETY) g` hhScg hhSci oi TTi gU hhSc`g Hg Id` IH IH `g Z gi hhScJg J i c i(262Q TERPRI 255Q READ/NODE 250Q GETWINDOWUSERPROP 227Q INTERRUPTABLE 217Q TOTOPW 213Q GETWINDOWUSERPROP 201Q DINFO.TOGGLE.GRAPH 173Q FM.CHANGESTATE 160Q \ILLEGAL.ARG 142Q FM.ITEMFROMID 130Q GETWINDOWUSERPROP 105Q CURSOR 75Q PRIN1 65Q PRIN1 54Q CLEARW 36Q TTY.PROCESS 33Q THIS.PROCESS 13Q TTYDISPLAYSTREAM 10Q GETPROMPTWINDOW) (245Q GRAPH 223Q INTERRUPTABLE 210Q GRAPH.WINDOW 205Q DINFOW 163Q FREEMENUITEM 153Q FREEMENUITEMTYPE# 137Q GRAPH 125Q FMENU.WINDOW 122Q DINFOW 101Q CURSOR 30Q TTY.PROCESS 5 DINFOW 2 TTYDISPLAYSTREAM) ( 61Q "Select node in DInfo Graph window ") DINFO.READ/NODE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 BLURB I 0 GRAPH F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DINFO.READ/NODEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DINFO.READ/NODEA0001)) DINFO.CHOOSE.GRAPH D1 (P 10Q X P 6 GRAPH P 5 GRAPH.NAME P 4 GRAPH.FILE P 3 FILENAME) 3 `dodi 0`g dKg IHhZH&J0`g dIHhZH&J o HdIdg dgjdndhHdI  !LhwLdog ]`g 7` ` o` M` o` M`g ^`g O h _g LOiO_(440Q FILENAMEFIELD 426Q DINFO.CHANGE.GRAPHS 423Q DINFO.READ.GRAPH 406Q GETWINDOWUSERPROP 371Q GETWINDOWUSERPROP 356Q PRIN1 353Q GETPROMPTWINDOW 341Q PRIN1 336Q GETPROMPTWINDOW 327Q PRIN1 324Q GETPROMPTWINDOW 311Q GETPROMPTWINDOW 303Q CLEARW 300Q GETPROMPTWINDOW 266Q GETWINDOWUSERPROP 254Q FILENAMEFIELD 231Q MENU 151Q \APPEND2 142Q UNION 111Q GETWINDOWUSERPROP 52Q FILENAMEFIELD 34Q GETWINDOWUSERPROP) (435Q NAME 403Q GRAPH.FILES 400Q DINFOW 366Q CACHED.GRAPHS 363Q DINFOW 350Q DINFOW 333Q DINFOW 321Q DINFOW 306Q DINFOW 275Q DINFOW 263Q CURRENT.GRAPH 260Q DINFOW 251Q NAME 176Q DEFAULTMENUHELDFN 167Q CLRPROMPT 106Q CACHED.GRAPHS 103Q DINFOW 47Q NAME 31Q GRAPH.FILES 26Q DINFOW 2 MENUTYPE#) ( 345Q " graph." 316Q "Already using " 146Q ((">> Empty Graph <<" (DINFO.DUMMY.GRAPH) "Start DInfo on an Empty editable graph")) 10Q "Select Graph ") DINFO.CHANGE.GRAPHS D1 (P 1 VAL P 0 CURRENT I 0 GRAPH) `g Hdd`g `gH HH oo` ^@`gI `g g `g @@ `g g `g @ @@ (244Q DINFO.FORCED.UPDATE 231Q FM.CHANGELABEL 224Q GETWINDOWUSERPROP 213Q FM.ITEMFROMID 205Q GETWINDOWUSERPROP 174Q FM.CHANGELABEL 157Q GETWINDOWUSERPROP 146Q FM.ITEMFROMID 140Q GETWINDOWUSERPROP 126Q PUTWINDOWPROP 106Q MOUSECONFIRM 103Q GETPROMPTWINDOW 63Q DINFO.ISCHANGED 52Q WINDOWADDPROP 36Q GETWINDOWUSERPROP 10Q GETWINDOWUSERPROP) (221Q FMENU.WINDOW 216Q DINFOW 210Q GRAPH! 202Q FMENU.WINDOW 177Q DINFOW 154Q FMENU.WINDOW 151Q DINFOW 143Q TOP 135Q FMENU.WINDOW 132Q DINFOW 122Q CURRENT.GRAPH 117Q DINFOW 100Q DINFOW 46Q CACHED.GRAPHS 43Q DINFOW 33Q CACHED.GRAPHS 30Q DINFOW 5 CURRENT.GRAPH 2 DINFOW) ( 75Q "" 71Q "Graph has been changed") DINFO.INIT D1 (P 0 VAL F 1 IRM.HOST&DIR) i dgo ` ` `gH H h`hdo gg gg ` g `gg `gg `gg `gg `*gQgggg h`gH  (302Q READFILE 276Q DINFO.CHOOSE.GRAPH 272Q PUTWINDOWPROP 253Q 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) (266Q GRAPH.FILES 263Q DINFOW 247Q DINFOGRAPH 244Q EXTENSION 241Q IRM 236Q NAME 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.DEFAULT.EDITFNA0001 D1 (NAME ERRORSET F 0 GRAPH F 1 MACROY) "i oi Pi oi ci(34Q PRIN1 23Q PRIN1 14Q PRIN1 3 CLEARW) NIL ( 30Q " DInfo graph is not editable." 10Q "The ") DINFO.DEFAULT.EDITFN D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 GRAPH F 4 RESETVARSLST) @` 1gHhhTcYog gIcgI KJ(73Q ERROR! 66Q APPLY 43Q DINFO.DEFAULT.EDITFNA0001 10Q TTYDISPLAYSTREAM 5 GETPROMPTWINDOW) (57Q TTYDISPLAYSTREAM 47Q ERROR 40Q INTERNAL 16Q TTYDISPLAYSTREAM 2 DINFOW) ( 35Q (DINFO.DEFAULT.EDITFNA0001)) DINFO.UPDATE.HISTORY.DISPLAY D1 (P 10Q VAL P 7 MENU P 6 ITEMS P 5 USERDATA P 4 GRAPH P 1 NEWITEM P 0 OLDWINDOW I 1 SEL I 0 NODE) `g 1AG@gg@hhoh`g LMILg'LgJhJ`dodi dkdNdg dgjdndhdK HH H N,O`gg `gO Ogo `Lg'lCOOLgILg' F`Lg'lCO"%O&gg@hgAhho_,O$O O,_*O(O*h_(_&O"_"O$k_$O*&_(_OOaO_OOh__O_Ok_6O&_(461Q LISTPUT 361Q PUTWINDOWPROP 343Q PUTWINDOWPROP 325Q ATTACHMENU 303Q CLOSEW 276Q DETACHWINDOW 64Q GETWINDOWUSERPROP 10Q GETWINDOWUSERPROP) (544Q QUOTE 535Q QUOTE 532Q DINFO.UPDATE 505Q HISTORY.ITEMS 467Q DINFO.HISTORY.LENGTH 455Q HISTORY.ITEMS 434Q HISTORY.ITEMS 403Q HISTORY.ITEMS 365Q DINFO.HISTORY.LENGTH 352Q REJECTMAINCOMS 336Q HISTORY.MENU.WINDOW 333Q DINFOW 322Q TOP 317Q LEFT 314Q DINFOW 241Q DEFAULTMENUHELDFN 232Q CLRPROMPT 176Q MENUTYPE# 160Q HISTORY.ITEMS 141Q HISTORY.ITEMS 61Q CURRENT.GRAPH 56Q DINFOW 33Q QUOTE 30Q DINFO.UPDATE 5 HISTORY.MENU.WINDOW 2 DINFOW) ( 560Q "Will lookup this term in IRM" 356Q (SHAPEW) 204Q "History" 46Q "Will visit this node") (PRETTYCOMPRINT DINFOEDITCOMS) (RPAQQ DINFOEDITCOMS ((FILES DINFO) (MACROS DINFOGRAPHPROP) (FNS DINFO.DUMMY.GRAPH DINFO.EDIT.MENU DINFOEDIT.CLOSEFN DINFO.MARKASCHANGED DINFO.UNMARKASCHANGED DINFO.FORCED.UPDATE DINFO.ISCHANGED DINFO.SAVE.GRAPH DINFO.FETCH.GRAPH DINFO.ADD.NODE DINFO.DELETE.NODE DINFO.EDIT.NODE DINFO.TEDIT DINFO.NODE.EDITOR DINFO.EDIT.NODE.WINDOW DINFO.DECODE.NODE.FM DINFO.SELECT.NEIGHBOR DINFO.READ/NODE) ( FNS (* redefined DInfo functions) DINFO.CHOOSE.GRAPH DINFO.CHANGE.GRAPHS DINFO.INIT DINFO.DEFAULT.EDITFN DINFO.UPDATE.HISTORY.DISPLAY))) (FILESLOAD DINFO) (PUTPROPS DINFOGRAPHPROP MACRO (ARGS (LET ((GRAPH (CAR ARGS)) (PROP (CADR ARGS))) (SELECTQ (LENGTH ARGS) (2 (BQUOTE (LISTGET (fetch (DINFOGRAPH USERDATA) of , GRAPH) , PROP))) (3 (BQUOTE (LET (( USERDATA (fetch (DINFOGRAPH USERDATA) of , GRAPH))) (if USERDATA then (LISTPUT USERDATA , PROP , ( CADDR ARGS)) else (LET ((RESULT , (CADDR ARGS))) (replace (DINFOGRAPH USERDATA) of , GRAPH with (LIST , PROP RESULT)) RESULT))))) NIL)))) (PUTPROPS DINFOEDIT COPYRIGHT ("Xerox Corporation" 1986)) NIL