Eliminate duplicate declarations for TABLEBROWSER record, remove TABLEBROWSERDECLS file (#877)

* Eliminate duplicate declarations for TABLEBROWSER record, remove TABLEBROWSERDECLS file

* change packages that used to load TABEBROWSERDECLS SOURCE to just LOADCOMP TABLEBROWSER

* make sure full RECORD is saved

* ARCHIVETOOL update of ARCHIVEBROWSER but no docs and looks like PARC-only

lispusers/DINFO

@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 3-Feb-2022 11:57:39" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>DINFO.;5
 65271  
+
(FILECREATED " 4-Aug-2022 09:56:25" {DSK}<home>larry>medley>lispusers>DINFO.;2
 65548  
 
-      :CHANGES-TO (FNS DINFO.UPDATE.TEXT.DISPLAY)
+      :CHANGES-TO (FNS DINFO.UPDATE.FMENU DINFO.UPDATE.MENU.DISPLAY DINFO.UPDATE.HISTORY 
+                       DINFO.UPDATE.GRAPH.DISPLAY DINFO.LAYOUTGRAPH)
 
-      :PREVIOUS-DATE "21-Jan-2022 23:16:01" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>DINFO.;3)
+      :PREVIOUS-DATE " 3-Feb-2022 11:57:39" {DSK}<home>larry>medley>lispusers>DINFO.;1)
 
 
 (* ; "
@@ -628,10 +628,10 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
              (SHOULDNT])
 
 (DINFO.UPDATE.FMENU

-  [LAMBDA (GRAPH NEW.NODE)
                                   (* jow "20-May-86 15:13")

-          
-          (* * Update the display of GRAPH's FreeMenu.
-
          If NEW.NODE is not specified, use Top node of GRAPH, and change Top node title.)

+  [LAMBDA (GRAPH NEW.NODE)                                   (* jow "20-May-86 15:13")

+
+         (* * Update the display of GRAPH's FreeMenu.
+
         If NEW.NODE is not specified, use Top node of GRAPH, and change Top node title.)

 
     (LET* [(W (fetch
 (DINFOGRAPH
 FMENU.WINDOW) of
 GRAPH))
            (NODELST (fetch
 (DINFOGRAPH
 NODELST) of
 GRAPH))
@@ -712,7 +712,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
 (DEFINEQ
 
 (DINFO.UPDATE.MENU.DISPLAY

-  [LAMBDA (GRAPH NODE)
                                       (* drc%: "25-Jan-86 18:20")

+  [LAMBDA (GRAPH NODE)                                       (* drc%: "25-Jan-86 18:20")

     (LET* [(DINFOW (fetch
 (DINFOGRAPH
 WINDOW) of
 GRAPH))
            (WINDOW (fetch
 (DINFOGRAPH
 SUBNODE.MENU.WINDOW) of
 GRAPH))
            [CHILDREN (DREVERSE (for
 ID in
 (fetch
 (DINFONODE CHILDREN) of
 NODE)
@@ -764,9 +764,8 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
                    (REDISPLAYW WINDOW)
                    (replace
 (DINFOGRAPH
 SUBNODE.MENU.WINDOW) of
 GRAPH with
 WINDOW)
                    (LET [(BITS (fetch
 (REGION BOTTOM) of
 (WINDOWPROP WINDOW 'REGION]
-          
-          (* Slide DINFOW up if our new menu is off the screen)

-
+                                                             (* Slide DINFOW up if our new menu is 
+
                                                             off the screen)

                         (AND (ILESSP BITS 0)
                              (RELMOVEW DINFOW (create
 POSITION
                                                      XCOORD _ 0
@@ -780,7 +779,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
            (CADR ITEM])
 
 (DINFO.UPDATE.HISTORY

-  [LAMBDA (GRAPH NODE SEL DISPLAY?)
                          (* drc%: "25-Jan-86 18:21")

+  [LAMBDA (GRAPH NODE SEL DISPLAY?)                          (* drc%: "25-Jan-86 18:21")

     (LET* ((DINFOW (fetch
 (DINFOGRAPH
 WINDOW) of
 GRAPH))
            (OLDWINDOW (fetch
 (DINFOGRAPH
 HISTORY.MENU.WINDOW) of
 GRAPH))
            (OLDITEMS (fetch
 (DINFOGRAPH
 HISTORY.ITEMS) of
 GRAPH))
@@ -839,17 +838,15 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
 (DEFINEQ
 
 (DINFO.UPDATE.GRAPH.DISPLAY

-  [LAMBDA (DINFO.GRAPH NODE FORCE?)
                          (* drc%: "27-Jan-86 16:19")

+  [LAMBDA (DINFO.GRAPH NODE FORCE?)                          (* drc%: "27-Jan-86 16:19")

     (LET [(DINFOW (fetch
 (DINFOGRAPH
 WINDOW) of
 DINFO.GRAPH))
           (LOCATION (CONS (fetch
 (DINFONODE PARENT) of
 NODE)
                           (fetch
 (DINFONODE CHILDREN) of
 NODE]
          (if
 (AND (NOT FORCE?)
                   (EQUAL LOCATION (fetch
 (DINFOGRAPH
 LAST.GRAPH.LOCATION) of
 DINFO.GRAPH)))
-             then
 
-          
-          (* don't need to relayout grapher display --
-
          just change which node is inverted.)

-
+             then
                                            (* don't need to relayout grapher 
+
                                                             display -- just change which node is 
+
                                                             inverted.)

                   (DINFO.INVERT.NODE
 (fetch
 (DINFOGRAPH
 GRAPH.WINDOW) of
 DINFO.GRAPH)
                          NODE DINFO.GRAPH)
            else
 (DINFO.SHOWGRAPH
 (DINFO.LAYOUTGRAPH
 DINFO.GRAPH NODE)
@@ -944,7 +941,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
             else
 (OPENW WINDOW])
 
 (DINFO.LAYOUTGRAPH

-  [LAMBDA (DINFO.GRAPH NODE)
                                 (* drc%: "25-Jan-86 18:20")

+  [LAMBDA (DINFO.GRAPH NODE)                                 (* drc%: "25-Jan-86 18:20")

     (LET* [(WINDOW (fetch
 (DINFOGRAPH
 WINDOW) of
 DINFO.GRAPH))
            (FONT (OR (FONTP (fetch
 (DINFOGRAPH
 MENUFONT) of
 DINFO.GRAPH))
                      MENUFONT))
@@ -1115,21 +1112,21 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
 )
 (PUTPROPS DINFO COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4678 6137 (DINFOGRAPHPROP 4678 . 6137)) (7391 24529 (DINFO 7401 . 9015) (DINFO.UPDATE 
-9017 . 11881) (DINFOGRAPH 11883 . 12301) (DINFO.SPECIAL.UPDATE 12303 . 14001) (DINFO.READ.GRAPH 14003
- . 15858) (DINFO.WRITE.GRAPH 15860 . 16950) (DINFO.SELECT.GRAPH 16952 . 17859) (DINFO.DEFAULT.MENU 
-17861 . 20385) (DINFO.FIND 20387 . 22973) (DINFO.LOOKUP 22975 . 24527)) (24530 27224 (
-DINFO.READ.KOTO.GRAPH 24540 . 27222)) (27225 29539 (DINFO.SETUP.WINDOW 27235 . 27916) (DINFO.CLOSEFN 
-27918 . 28351) (DINFO.SHRINKFN 28353 . 28549) (DINFO.EXPANDFN 28551 . 29108) (DINFO.ICONFN 29110 . 
-29537)) (29540 40800 (DINFO.ADD.FMENU 29550 . 30645) (DINFO.CREATE.FMENU 30647 . 34596) (
-DINFO.FMW.CLOSEFN 34598 . 35443) (DINFO.FMENU.HANDLER 35445 . 36084) (DINFO.UPDATE.FMENU 36086 . 38291
-) (DINFO.TOGGLE.MENU 38293 . 38883) (DINFO.TOGGLE.GRAPH 38885 . 39384) (DINFO.TOGGLE.HISTORY 39386 . 
-39930) (DINFO.TOGGLE.TEXT 39932 . 40798)) (40801 48499 (DINFO.UPDATE.MENU.DISPLAY 40811 . 44831) (
-DINFO.UPDATE.FROM.MENU 44833 . 45132) (DINFO.UPDATE.HISTORY 45134 . 47668) (DINFO.HISTORIC.UPDATE 
-47670 . 48497)) (48500 58666 (DINFO.UPDATE.GRAPH.DISPLAY 48510 . 49828) (DINFO.UPDATE.FROM.GRAPH 49830
- . 50273) (DINFO.GET.GRAPH.WINDOW 50275 . 50860) (DINFO.CREATE.GRAPH.WINDOW 50862 . 51979) (
-DINFO.SHOWGRAPH 51981 . 53706) (DINFO.INVERT.NODE 53708 . 55096) (DINFO.LAYOUTGRAPH 55098 . 58664)) (
-58667 64610 (DINFO.UPDATE.TEXT.DISPLAY 58677 . 60625) (DINFO.TITLEMENUFN 60627 . 61752) (
-DINFO.OPENTEXTSTREAM 61754 . 62970) (DINFO.SHOWSEL 62972 . 63705) (DINFO.GET.FILENAME 63707 . 64608)))
+  (FILEMAP (NIL (4744 6203 (DINFOGRAPHPROP 4744 . 6203)) (7457 24595 (DINFO 7467 . 9081) (DINFO.UPDATE 
+9083 . 11947) (DINFOGRAPH 11949 . 12367) (DINFO.SPECIAL.UPDATE 12369 . 14067) (DINFO.READ.GRAPH 14069
+ . 15924) (DINFO.WRITE.GRAPH 15926 . 17016) (DINFO.SELECT.GRAPH 17018 . 17925) (DINFO.DEFAULT.MENU 
+17927 . 20451) (DINFO.FIND 20453 . 23039) (DINFO.LOOKUP 23041 . 24593)) (24596 27290 (
+DINFO.READ.KOTO.GRAPH 24606 . 27288)) (27291 29605 (DINFO.SETUP.WINDOW 27301 . 27982) (DINFO.CLOSEFN 
+27984 . 28417) (DINFO.SHRINKFN 28419 . 28615) (DINFO.EXPANDFN 28617 . 29174) (DINFO.ICONFN 29176 . 
+29603)) (29606 40850 (DINFO.ADD.FMENU 29616 . 30711) (DINFO.CREATE.FMENU 30713 . 34662) (
+DINFO.FMW.CLOSEFN 34664 . 35509) (DINFO.FMENU.HANDLER 35511 . 36150) (DINFO.UPDATE.FMENU 36152 . 38341
+) (DINFO.TOGGLE.MENU 38343 . 38933) (DINFO.TOGGLE.GRAPH 38935 . 39434) (DINFO.TOGGLE.HISTORY 39436 . 
+39980) (DINFO.TOGGLE.TEXT 39982 . 40848)) (40851 48646 (DINFO.UPDATE.MENU.DISPLAY 40861 . 44982) (
+DINFO.UPDATE.FROM.MENU 44984 . 45283) (DINFO.UPDATE.HISTORY 45285 . 47815) (DINFO.HISTORIC.UPDATE 
+47817 . 48644)) (48647 58943 (DINFO.UPDATE.GRAPH.DISPLAY 48657 . 50109) (DINFO.UPDATE.FROM.GRAPH 50111
+ . 50554) (DINFO.GET.GRAPH.WINDOW 50556 . 51141) (DINFO.CREATE.GRAPH.WINDOW 51143 . 52260) (
+DINFO.SHOWGRAPH 52262 . 53987) (DINFO.INVERT.NODE 53989 . 55377) (DINFO.LAYOUTGRAPH 55379 . 58941)) (
+58944 64887 (DINFO.UPDATE.TEXT.DISPLAY 58954 . 60902) (DINFO.TITLEMENUFN 60904 . 62029) (
+DINFO.OPENTEXTSTREAM 62031 . 63247) (DINFO.SHOWSEL 63249 . 63982) (DINFO.GET.FILENAME 63984 . 64885)))
 ))
 STOP