(FILECREATED "30-Jul-84 18:02:11" ("compiled on " {ERIS}BROWSER.;10) "30-Jul-84 02:52:09" recompiled changes: BRPATHS1 in "INTERLISP-D 30-Jul-84 ..." dated "30-Jul-84 03:04:50") (FILECREATED "30-Jul-84 18:01:49" {ERIS}BROWSER.;10 16587 changes to: (VARS BROWSERCOMS) ( FNS BRPATHS1) previous date: "18-Jan-84 17:03:01" {ERIS}BROWSER.;9) NUMSPATHS D1 (P 10Q X P 7 GRAPHNODE.LIST P 6 ROOTS P 5 TEM P 4 NAMED P 3 X P 2 CALLRELATION P 1 SEEN P 0 UNDONE I 6 MARKING I 5 NOTRACE I 4 SEPARATE I 3 AVOIDING I 2 INVERTED I 1 TO I 0 FROM F 11Q BROWSERFORMAT F 12Q BROWSERBOXING) `iCob@i hg SI HdOEdE mjI LGHONWW @ABCDEh I]MjMHHhhI HhjI L NL\@ABCDEF (263Q OLDMSPATHS 237Q BRPATHS1 231Q PUTHASH 213Q PUTHASH 154Q STBROWSER 133Q LAYOUTFOREST 106Q PUTHASH 75Q MSMEMBSET 53Q CLRHASH 44Q PARSERELATION 35Q MSLISTSET 11Q OUTPUT) (41Q CALL 2 TOPW) ( 25Q (NIL (NIL NIL . FNS) APPLY LAMBDA (X) (OR (GETPROP X (QUOTE MACRO)) (GETPROP X (QUOTE AVOID))))) BROWSER D1 (I 0 DISPLAYFLG F 0 BROWSERFONT) @P cgg gg (32Q MOVD 20Q MOVD 5 FONTCREATE) (27Q MSPATHS 24Q OLDMSPATHS 15Q MSPATHS 12Q NUMSPATHS) () BROWSER.WHENFNSCHANGED D1 (P 0 X I 2 REASON I 1 TYPE I 0 FNNAME F 3 PFWINDOW F 4 BROWSER.DESCRIBE.WINDOW F 5 BROWSERWINDOWS) S Sg @@S T Tg @@T U;d!HY3h)H$hn"gH Hgg HhhZ@JiI(135Q PUTWINDOWPROP 117Q DSPFILL 50Q BROWSERDESCRIBE 40Q GETWINDOWUSERPROP 30Q ACTIVEWP 23Q BROWSEPP 13Q GETWINDOWUSERPROP 3 ACTIVEWP) (132Q REDRAWBROWSEGRAPH 127Q BUTTONEVENTFN 110Q PAINT 35Q FNBROWSED 10Q FNBROWSED) () BRPATHS1 D1 (P 13Q X P 6 Y P 1 ENTRY P 0 TEM I 0 FROM F 14Q SEEN F 15Q GRAPHNODE.LIST F 16Q CALLRELATION F 17Q INVERTED) @ @WXjH@hddddddd`@hddhIWc@IW IW@W @Wi AJKA O"OI^ NL Mh\JZM&_ __OOh__O_O&_(217Q BRPATHS1 164Q MSPATHS2 130Q GETRELATION 120Q GETRELATION 77Q PUTHASH 6 MSPATHS2) (34Q BROWSERFONT) () BROWSER.LEFTFN D1 (I 1 NWINDOW I 0 NODE) D@h?@g @ @ (101Q BROWSEPP 76Q GET.BROWSE.PP.WINDOW 56Q BROWSERDESCRIBE 53Q GET.BROWSE.DESCRIBE.WINDOW 31Q GETWINDOWUSERPROP 23Q GET.BROWSE.PP.WINDOW) (26Q FNBROWSED) () GET.BROWSE.PP.WINDOW D1 (F 0 PFWINDOW) *P`Po cdgg Pgg P(46Q PUTWINDOWPROP 34Q PUTWINDOWPROP 20Q CREATEW) (43Q SCROLLBYREPAINTFN 40Q SCROLLFN 31Q PPREPAINTFN 26Q REPAINTFN 4 WINDOWTYPE#) ( 15Q "Browser print out window") GET.BROWSE.DESCRIBE.WINDOW D1 (F 0 BROWSER.DESCRIBE.WINDOW) 4P`Po cdgg Pgg Pgg P(60Q PUTWINDOWPROP 46Q PUTWINDOWPROP 34Q PUTWINDOWPROP 20Q CREATEW) (55Q SCROLLBYREPAINTFN 52Q SCROLLFN 43Q DESCRIBEREPAINTFN 40Q RESHAPEFN 31Q DESCRIBEREPAINTFN 26Q REPAINTFN 4 WINDOWTYPE#) ( 15Q "Browser describe window") BROWSEPPA0063 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 BOTTOM P 0 WIDTH F 2 WINDOW F 3 FN F 4 MACROY) I RgS R Rg R RgjhR YHhR Ih hci(101Q PUTWINDOWPROP 63Q DSPCLIPPINGREGION 56Q \INSUREWINDOW 47Q DSPYPOSITION 34Q PPREPAINTFN 27Q PUTWINDOWPROP 17Q CLEARW 12Q PUTWINDOWPROP) (41Q EXTENT 24Q EXTENT 6 FNBROWSED) () BROWSEPP D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 WINDOW I 0 FN F 4 RESETVARSLST) =` 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q BROWSEPPA0063 5 CURSOR) (54Q CURSOR 44Q ERROR 35Q INTERNAL 13Q CURSOR 2 WAITINGCURSOR) ( 32Q (DUMMY.FOR.ERRORSET)) PPREPAINTFNA0064A0065 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 WINDOW F 1 FN) hP Qkghh(4 LINELENGTH) (15Q PP* 7 TTYLINELENGTH) () PPREPAINTFNA0064 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 RESETVARSLST F 3 WINDOW F 4 FN F 5 EXTENT F 6 MACROY) gS USU j T TgMg`RcRog HIdRHcR RkI HhS ,nS TkghS HHkS `c i(224Q DSPRIGHTMARGIN 203Q DSPCLIPPINGREGION 165Q DSPRIGHTMARGIN 151Q DSPCLIPPINGREGION 142Q ERROR! 132Q NLEFT 123Q TAILP 75Q PPREPAINTFNA0064A0065 33Q EXPRP 30Q GETD 23Q PAGEHEIGHT 16Q MOVETOUPPERLEFT 6 DSPSCROLL) (230Q BrowserPPWindowWidth 173Q PF* 103Q TTYLINELENGTH 72Q INTERNAL 51Q TTYLINELENGTH 46Q TTYLINELENGTH 40Q EXPR 2 OFF) ( 67Q (DUMMY.FOR.ERRORSET)) PPREPAINTFN D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 EXTENT P 0 FN I 1 REGION I 0 WINDOW F 6 RESETVARSLST) P@g @ H<@ 1gJhhVc [og gKc gK MLj(111Q ERROR! 104Q APPLY 61Q PPREPAINTFNA0064 26Q TTYDISPLAYSTREAM 12Q \INSUREWINDOW 6 GETWINDOWUSERPROP) (75Q TTYDISPLAYSTREAM 65Q ERROR 56Q INTERNAL 34Q TTYDISPLAYSTREAM 3 FNBROWSED) ( 53Q (DUMMY.FOR.ERRORSET)) DESCRIBEREPAINTFNA0068 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 WIN F 2 EXTENT F 3 RESETY F 4 FN) iggl g Q QhhhPcgd g PcgQ hhPcgQ RQR j gTh ci(143Q MASTERSCOPE 130Q PAGEHEIGHT 123Q MOVETOUPPERLEFT 113Q DSPSCROLL 72Q TTYDISPLAYSTREAM 55Q SETTOPVAL 46Q GETTOPVAL 21Q DSPFONT 15Q FONTCREATE) (134Q DESCRIBE 107Q OFF 66Q TTYDISPLAYSTREAM 52Q MSPRINTFLG 42Q MSPRINTFLG 12Q BOLD 5 GACHA 2 DSPFONT) () DESCRIBEREPAINTFN D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 EXTENT P 0 FN I 1 REG I 0 WIN F 5 LISPXHIST F 6 RESETVARSLST) 6@g @ H#U!Vog hg\ Lh(62Q ERROR! 53Q RESETRESTORE 41Q DESCRIBEREPAINTFNA0068 12Q \INSUREWINDOW 6 GETWINDOWUSERPROP) (47Q ERROR 36Q INTERNAL 3 FNBROWSED) ( 33Q (DUMMY.FOR.ERRORSET)) BROWSERDESCRIBE D1 (I 1 WIN I 0 FN) EAg@ A A AgjhA hA hA hA h (102Q PUTWINDOWPROP 71Q DSPYPOSITION 60Q DSPCLIPPINGREGION 53Q \INSUREWINDOW 43Q DSPCLIPPINGREGION 36Q \INSUREWINDOW 31Q DSPYPOSITION 17Q DESCRIBEREPAINTFN 13Q CLEARW 7 PUTWINDOWPROP) (23Q EXTENT 3 FNBROWSED) () BROWSER.MIDDLEFN D1 (I 1 NWINDOW I 0 NODE) @htY` ` o` ` o` @` o` o` o` g@h @kg(176Q ADD.PROCESS 150Q PRIN1 136Q PRIN1 124Q PRIN1 112Q PRIN1 70Q PRIN1 56Q TERPRI 50Q PRIN1 36Q TERPRI 30Q TERPRI 20Q DEDITPROCESSRUNNINGP 13Q THIS.PROCESS) (217Q DF 154Q DF 145Q PROMPTWINDOW 133Q PROMPTWINDOW 121Q PROMPTWINDOW 107Q PROMPTWINDOW 65Q PROMPTWINDOW 53Q PROMPTWINDOW 45Q PROMPTWINDOW 33Q PROMPTWINDOW 25Q PROMPTWINDOW) ( 142Q "window then selecting 'Edit'." 130Q "into the Dedit " 116Q " " 62Q "You can call Dedit in the same process by typing " 42Q "Dedit can't run in two processes at once, yet.") DEDITPROCESSRUNNINGP D1 (F 0 \DEDITWINDOWS) PNIL NIL () REDRAWBROWSEGRAPH D1 (P 2 WN I 0 WINDOW F 3 BROWSERWINDOWS) <SH"hJgJ @gg @ hY@IiHX(45Q APPLYTOSELECTEDNODE 41Q PUTWINDOWPROP 26Q APPLY) (36Q APPLYTOSELECTEDNODE 33Q BUTTONEVENTFN 21Q NUMSPATHS) () STBROWSERA0070 D1 (I 0 WINDOW F 1 BROWSERWINDOWS) !QH hQ cd@HX(15Q DREMOVE) NIL () STBROWSER D1 (P 2 TMP P 1 W I 1 ARGS I 0 GRAPH F 3 BROWSERWINDOWS) S!HW@oAZAoAZ+o gg A@IhScIgg XoV=o;AAII IAI@@IYgg HXvoJ xoJ s(254Q CONCAT 235Q CONCAT 211Q SHOWGRAPH 157Q EQUAL 103Q WINDOWADDPROP 53Q SHOWGRAPH 42Q CONCAT) (206Q BROWSER.MIDDLEFN 203Q BROWSER.LEFTFN 100Q STBROWSERA0070 75Q CLOSEFN 50Q BROWSER.MIDDLEFN 45Q BROWSER.LEFTFN) ( 244Q " TO " 225Q " TO " 132Q " FROM " 116Q " FROM " 37Q "" 25Q "" 14Q "PATHS") (PRETTYCOMPRINT BROWSERCOMS) (RPAQQ BROWSERCOMS ((FNS NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN GET.BROWSE.PP.WINDOW GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN DESCRIBEREPAINTFN BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH STBROWSER) (FILES (FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER)) (GLOBALRESOURCES (BROWSEHASH (LIST (HARRAY 30)))) (DECLARE: DONTCOPY ( RECORDS BROWSEWIN PATHSARGS)) (VARS (BROWSERBOXING) (BROWSERFORMAT) (BROWSERWINDOWS) ( NODESELECTIONWINDOW) (PFWINDOW) (BROWSER.DESCRIBE.WINDOW) (BrowserPPWindowWidth 750) (BROWSERFONT ( QUOTE (GACHA 8)))) (P (MOVD? (QUOTE MSPATHS) (QUOTE OLDMSPATHS)) (MOVD? (QUOTE \MSPATHSBLOCK/MSPATHS2) (QUOTE MSPATHS2)) (PROG ((WC (FILEPKGTYPE (QUOTE FNS) (QUOTE WHENCHANGED)))) (OR (MEMB (QUOTE BROWSER.WHENFNSCHANGED) WC) (FILEPKGTYPE (QUOTE FNS) (QUOTE WHENCHANGED) (CONS (QUOTE BROWSER.WHENFNSCHANGED) WC))))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (SELECTQ (SYSTEMTYPE) (D (BROWSER T) ) NIL))))) (FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) (/SETTOPVAL (QUOTE \BROWSEHASH.GLOBALRESOURCE)) (RPAQQ BROWSERBOXING NIL) (RPAQQ BROWSERFORMAT NIL) (RPAQQ BROWSERWINDOWS NIL) (RPAQQ NODESELECTIONWINDOW NIL) (RPAQQ PFWINDOW NIL) (RPAQQ BROWSER.DESCRIBE.WINDOW NIL) (RPAQQ BrowserPPWindowWidth 750) (RPAQQ BROWSERFONT (GACHA 8)) (MOVD? (QUOTE MSPATHS) (QUOTE OLDMSPATHS)) (MOVD? (QUOTE \MSPATHSBLOCK/MSPATHS2) (QUOTE MSPATHS2)) (PROG ((WC (FILEPKGTYPE (QUOTE FNS) (QUOTE WHENCHANGED)))) (OR (MEMB (QUOTE BROWSER.WHENFNSCHANGED) WC ) (FILEPKGTYPE (QUOTE FNS) (QUOTE WHENCHANGED) (CONS (QUOTE BROWSER.WHENFNSCHANGED) WC)))) (SELECTQ (SYSTEMTYPE) (D (BROWSER T)) NIL) (PUTPROPS BROWSER COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL