BROWSER: missing specvars, added MODERNWINDOW
This should be included with Masterscope
This commit is contained in:
rmkaplan
parent
e292ff99db
commit
ac1fcd2e2e
@ -1,13 +1,16 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "25-Mar-94 13:43:20" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>BROWSER.;4| 26296
|
||||
|
||||
changes to%: (FNS BROWSER.MIDDLEFN)
|
||||
(FILECREATED " 7-Feb-2022 14:06:19" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;3 26344
|
||||
|
||||
previous date%: "20-Jan-93 16:00:51" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>BROWSER.;3|)
|
||||
:CHANGES-TO (VARS BROWSERCOMS)
|
||||
(FNS GET.BROWSE.PP.WINDOW NUMSPATHS)
|
||||
|
||||
:PREVIOUS-DATE "25-Mar-94 13:43:20"
|
||||
{DSK}<Users>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
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user