From ac1fcd2e2e45ecb97f2129e4ef1b021e9a09288d Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 19 Feb 2022 18:29:37 -0800 Subject: [PATCH] BROWSER: missing specvars, added MODERNWINDOW This should be included with Masterscope --- library/BROWSER | 86 +++++++++++++++++++++++-------------------- library/BROWSER.LCOM | Bin 10110 -> 10459 bytes 2 files changed, 46 insertions(+), 40 deletions(-) diff --git a/library/BROWSER b/library/BROWSER index c941717d..53640727 100644 --- a/library/BROWSER +++ b/library/BROWSER @@ -1,13 +1,16 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "25-Mar-94 13:43:20" |{PELE:MV:ENVOS}LIBRARY>BROWSER.;4| 26296 - changes to%: (FNS BROWSER.MIDDLEFN) +(FILECREATED " 7-Feb-2022 14:06:19" {DSK}kaplan>Local>medley3.5>my-medley>library>BROWSER.;3 26344 - previous date%: "20-Jan-93 16:00:51" |{PELE:MV:ENVOS}LIBRARY>BROWSER.;3|) + :CHANGES-TO (VARS BROWSERCOMS) + (FNS GET.BROWSE.PP.WINDOW NUMSPATHS) + + :PREVIOUS-DATE "25-Mar-94 13:43:20" +{DSK}kaplan>Local>medley3.5>my-medley>library>BROWSER.;1) (* ; " -Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT BROWSERCOMS) @@ -31,6 +34,7 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (BrowserPPWindowWidth 750) (BROWSERFONT '(GACHA 8] [P (MOVD? 'MSPATHS 'OLDMSPATHS) + (MOVD? 'NILL 'MODERNWINDOW) (PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED] (OR (MEMB 'BROWSER.WHENFNSCHANGED WC) (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC] @@ -56,6 +60,7 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (NUMSPATHS [LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING) + (* ; "Edited 7-Feb-2022 13:57 by rmk") (* ; "Edited 11-Apr-88 11:08 by jrb:") (COND [(AND (WINDOWWORLD) @@ -72,37 +77,36 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (PROG [X NAMED TEM (UNDONE (MSLISTSET FROM T)) ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH) (CALLRELATION (PARSERELATION 'CALL] - (DECLARE (SPECVARS SEEN UNDONE)) + (DECLARE (SPECVARS SEEN UNDONE GRAPHNODE.LIST)) (CLRHASH SEEN) (for X in UNDONE do (PUTHASH X (COND - ((AND NOTRACE - (MSMEMBSET X NOTRACE)) - -1) - (T 0)) - SEEN) - (OR INVERTED (UPDATEFN X NIL 0))) + ((AND NOTRACE (MSMEMBSET X NOTRACE)) + -1) + (T 0)) + SEEN) + (OR INVERTED (UPDATEFN X NIL 0))) [do (COND - (NAMED (PUTHASH (CAR NAMED) - 0 SEEN) - [push ROOTS (fetch (GRAPHNODE NODEID) - of (BRPATHS1 (CAR NAMED] - (SETQ NAMED (CDR NAMED))) - (UNDONE [COND - ([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE) - SEEN))) - (EQ TEM 0) - (AND (LISTP TEM) - (NULL (CAR TEM] - (PUTHASH (CAR UNDONE) - (LIST NIL) - SEEN) - (SETQ NAMED (LIST (CAR UNDONE] - (SETQ UNDONE (CDR UNDONE))) - (T (RETURN] + (NAMED (PUTHASH (CAR NAMED) + 0 SEEN) + [push ROOTS (fetch (GRAPHNODE NODEID) + of (BRPATHS1 (CAR NAMED] + (SETQ NAMED (CDR NAMED))) + (UNDONE [COND + ([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE) + SEEN))) + (EQ TEM 0) + (AND (LISTP TEM) + (NULL (CAR TEM] + (PUTHASH (CAR UNDONE) + (LIST NIL) + SEEN) + (SETQ NAMED (LIST (CAR UNDONE] + (SETQ UNDONE (CDR UNDONE))) + (T (RETURN] (RETURN (LAYOUTFOREST GRAPHNODE.LIST ROOTS BROWSERFORMAT BROWSERBOXING] (PROG1 (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE) (* ; - "this LIST is actually an 'instance' of PATHSARGS") + "this LIST is actually an 'instance' of PATHSARGS") ] (T (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING]) @@ -204,7 +208,8 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (GET.BROWSE.PP.WINDOW]) (GET.BROWSE.PP.WINDOW - [LAMBDA NIL (* ; "Edited 31-Mar-87 11:23 by jop") + [LAMBDA NIL (* ; "Edited 7-Feb-2022 14:01 by rmk") + (* ; "Edited 31-Mar-87 11:23 by jop") (* ;  "returns the window for pretty printing from the browser.") (COND @@ -215,6 +220,7 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN) (WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN) (WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN) + (MODERNWINDOW PFWINDOW) PFWINDOW]) (GET.BROWSE.DESCRIBE.WINDOW @@ -446,10 +452,8 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (RECORD BROWSEWIN (ARGS GRAPH WINDOW)) (RECORD PATHSARGS (FROM TO . ETC) - [ACCESSFNS PATHSARGS ((DISCRIMINANT (CONS (fetch (PATHSARGS FROM) - of DATUM) - (fetch (PATHSARGS TO) - of DATUM]) + [ACCESSFNS PATHSARGS ((DISCRIMINANT (CONS (fetch (PATHSARGS FROM) of DATUM) + (fetch (PATHSARGS TO) of DATUM]) ) ) @@ -471,6 +475,8 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat (MOVD? 'MSPATHS 'OLDMSPATHS) +(MOVD? 'NILL 'MODERNWINDOW) + [PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED] (OR (MEMB 'BROWSER.WHENFNSCHANGED WC) (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC] @@ -482,10 +488,10 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat ) (PUTPROPS BROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1987 1988 1990 1993 1994)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1952 24987 (NUMSPATHS 1962 . 5228) (BROWSER 5230 . 5493) (BROWSER.WHENFNSCHANGED 5495 - . 7794) (BRPATHS1 7796 . 10062) (BROWSER.LEFTFN 10064 . 10922) (GET.BROWSE.PP.WINDOW 10924 . 11606) ( -GET.BROWSE.DESCRIBE.WINDOW 11608 . 12356) (BROWSEPP 12358 . 13232) (PPREPAINTFN 13234 . 16368) ( -PPRESHAPEFN 16370 . 16550) (DESCRIBEREPAINTFN 16552 . 17248) (BROWSERDESCRIBE 17250 . 18008) ( -BROWSER.MIDDLEFN 18010 . 19317) (DEDITPROCESSRUNNINGP 19319 . 19590) (REDRAWBROWSEGRAPH 19592 . 20355) - (STBROWSER 20357 . 24985))))) + (FILEMAP (NIL (2054 25148 (NUMSPATHS 2064 . 5246) (BROWSER 5248 . 5511) (BROWSER.WHENFNSCHANGED 5513 + . 7812) (BRPATHS1 7814 . 10080) (BROWSER.LEFTFN 10082 . 10940) (GET.BROWSE.PP.WINDOW 10942 . 11767) ( +GET.BROWSE.DESCRIBE.WINDOW 11769 . 12517) (BROWSEPP 12519 . 13393) (PPREPAINTFN 13395 . 16529) ( +PPRESHAPEFN 16531 . 16711) (DESCRIBEREPAINTFN 16713 . 17409) (BROWSERDESCRIBE 17411 . 18169) ( +BROWSER.MIDDLEFN 18171 . 19478) (DEDITPROCESSRUNNINGP 19480 . 19751) (REDRAWBROWSEGRAPH 19753 . 20516) + (STBROWSER 20518 . 25146))))) STOP diff --git a/library/BROWSER.LCOM b/library/BROWSER.LCOM index c62ed9b432d4fb6c27037caafe8a9158c68e7704..bdffbde2d8c3c18010fc0938d72a78ae3e4488ad 100644 GIT binary patch delta 1824 zcmbspOKjU@IBwIebsuU=pXuvs(yUG)!FKvcvnt3mFT znldlkUdZhhcXkuk3)|(wjfA|lS|}$ri)-cLUNkb3*xU&f!tLiDMBfn`|^;;9(zggb{S zI?TgG&>;pHL(sFTmJ%bfWLhYi14Gj+6RBCSLoj4qFA?aaljq0LWv~IiagEhO)HF(n}Iu>EaBtvg%w)@={i!*-87YERgGC7=7bE=!%%l1p6qP~G_TuG)BbR%-Zc|5NJV zPl+n6`D)RS_8sm2NY$e&l$$T5b@*PabQ~)Um-p{@7(N=s4!JAH0ng8Xp0nJM@$CF5 z&Ba)`^Eg69R2EIqf`*xx z(Vt=YEqP zVdI%}J6%u7-SPaHdlY>zboP4+(O=Eo4Tw5gN2pP}3%HAVx_Vu3{#QJd$D_NgImkIu zn>y&ydZ&k(XFh+bJhU=voOw1p` zD#GW-3kZ+KuOb}vUqg7ug%A8MApKQv&{+v6PtzehH;R@|JqOHkPQyE*O0tZyD)VSL z&VFD4EguA?ykI9o&QT!T0!&iFQ^nAZJ~8Rsnpo&NZL5Wz(N~CkwDaY}7~1|c5k)u> z92}w<+@a;=`eUoTKcY`N%RwJ%m4jn_b**~)U5B*uQ80iCUj$*Su27q0T2n1xG6J4g qh>@^w2ADA7|5+iic=p`22HGvo$xb|jVSYO|g>ZQCaubc|(fqihCZ8P4zLm;eR0%{ayJ zEEF(IGM6ppjw*1GacXLcg6zgV=6RI|8|DHL%KIOxY_OIg06sq#@N+Cf!STJ6APHP@ zl@sJuMY}&EiCSu2QH5DaoKtyq?Sf_C7}yY7iH0DP-`Ls8?ZJL&lmnWK%NjK9k`!Yx zNr=l{*e&M{3#EfSiy+!jEHk;du`?OWlKK>m;X{$npGueg(1iccpro?#dt zaIpw!tlJ0Ne$WI#h7_={BF7Y2Fcf!RB@CjxDyZf|#UTQ+l2-Y70p%#fRV9gnj{yv* zigG$GEtuavNGs;f0>7$=F;TWo{f!I86*bAHO@lz=Xim9Nw+bSO6t7}qc)|9(wY_2^ z@|o9k=SOWeTxaVhp1x5WY&V6x$L%KcuEHhrBe7+ob$;e%Tb63l;t8AYF%@Sg-)D(6 z-Su%+cUkry-Z_7Jd+D;J)19A+`R$r)Z#w-!I%OBLpDz$gmnx?I*2CoXub(BGPFol4 zU!D9+RR35c@>x&a8D-DcC%+JlU=m@aCS=bylKtk%7qafr`#a1yU5Of%F1<_d)}8uQ zeNcDhJ=U@~&*ZamSI5R*OZks)=kjT;EVXMY}Nz%z!&yIY9*cEwFC}N z_(EnQuprdWnJBEJVp!6+4ABdlNC@98DJ17KAq~MO%uA{jClCdE0h}s9;?suHaos`E zEE6`~bPNzt#D3$*F%~3gvz6+dWHk{j0gWMfbqU|ni+#j^CUV>avKCD8No~S->NqDz z<7o?p_&sMQlzTyW@t9 zu-Q^pt*eUh%sFekbh?_bg2pH08hZXo9va_uc3#;n7k2icbg&P13p?4;T^wrTQAc01 znX+1Sie|ExonhQ?4Em}mcOLUrzr6CqO#fE*Vg20I6ErR3SEtSGo!%*Pd+a%CLjCK5 zX2N#|UmzX~6;biiP`~MZKAb_!P#cKfQtOCg*ESK~v+%cTH&I?5*=#1gUN9bvXB;Hx z^Iqe{$fPk$UvKu}ufcdUI%DK%m&1z-Z#6oEKK)~U#MD@Ch@`O>mX{loR39!`l