Merge pull request #1269 from Interlisp/fgh_ipfonts

Add ipfonts to release tars
2026-04-14 16:35:43 +00:00 · 2023-07-10 10:42:07 -07:00 · 2023-07-08 22:29:49 -07:00 · 2023-07-08 13:17:18 -07:00 · 2023-07-07 12:30:52 -07:00 · 2023-07-07 12:27:42 -07:00
195 changed files with 6680 additions and 4495 deletions
--- a/.github/ISSUE_TEMPLATE/documentation.md
+++ b/.github/ISSUE_TEMPLATE/documentation.md
@@ -0,0 +1,17 @@
+---
+name: Documentation problem
+about: Problems with this web site?
+title: ''
+labels: ''
+
+---
+
+**Errors happen. Please tell us the URL**
+
+
+**What does it say?**
+
+
+**What should it say?**
+
+**Screen shot**
--- a/.github/ISSUE_TEMPLATE/what_people_are_saying.yml
+++ b/.github/ISSUE_TEMPLATE/what_people_are_saying.yml
@@ -0,0 +1,32 @@
+name: "New entry for **What People Are Saying**"
+description: "Suggest a new entry for the **What People are Saying** page"
+title: "What People are Saying suggestion"
+body:
+  - type: dropdown
+    id: contentType
+    attributes:
+      label: "What type of entry?"
+      options:
+        - Blog
+        - Tweet
+        - Email
+        - Other
+    validations:
+      required: true
+  - type: input
+    id: entryLink
+    attributes:
+      label: Link to entry
+      description: "What is the link to the item we should add to the **What People are Saying** page?"
+    validations:
+      required: true
+  - type: textarea
+    id: additionalInformation
+    attributes:
+      label:  Additional information
+      description: "Use this space to supply any addiitonal information on the suggested item."
+    validations:
+      required: false
+  - type: markdown
+    attributes:
+      value: "## Thank you for your suggestion!"
--- a/.github/workflows/buildLoadup.yml
+++ b/.github/workflows/buildLoadup.yml
@@ -56,8 +56,8 @@ on:
 defaults:
  run:
    shell: bash
-    
-  
+
+
 jobs:

 ######################################################################################
@@ -83,7 +83,7 @@ jobs:
              echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
              echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
          fi
-        
+


 ######################################################################################
@@ -97,7 +97,7 @@ jobs:
    outputs:
      release_not_built: ${{ steps.check.outputs.release_not_built }}

-    steps: 
+    steps:
      # Checkout the actions for this repo owner
      - name: Checkout Actions
        uses: actions/checkout@v3
@@ -107,7 +107,7 @@ jobs:
      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}

      # Check if build already run for this commit
-      - name: Build already completed? 
+      - name: Build already completed?
        id: check
        continue-on-error: true
        uses: ./../actions/check-sentry-action
@@ -135,7 +135,7 @@ jobs:
    if: |
      needs.sentry.outputs.release_not_built == 'true'
      || needs.inputs.outputs.force == 'true'
-    
+
    steps:
      # Checkout the actions for this repo owner
      - name: Checkout Actions
@@ -162,7 +162,7 @@ jobs:
        with:
          owner: ${{ github.repository_owner }}
          repo: maiko
-          
+
      # Setup environment variables & establish job outputs
      - name: Setup Environment Variables
        run: |
@@ -198,7 +198,7 @@ jobs:
          token: ${{ secrets.GITHUB_TOKEN }}
          latest: true
          out-file-path: ${{ env.TARBALL_DIR }}
-          fileName: "${{ env.MAIKO_RELEASE_TAG }}-linux.*.tgz" 
+          fileName: "${{ env.MAIKO_RELEASE_TAG }}-linux.*.tgz"

      - name: Untar Maiko Release for use in loadup
        run: |
@@ -224,9 +224,9 @@ jobs:
        run: |
          Xvnc -geometry 1280x720 :0 &
          export DISPLAY=":0"
-          PATH="$PWD/maiko:$PATH" 
+          PATH="$PWD/maiko:$PATH"
          scripts/loadup-all.sh -apps
-      
+
      - name: Build loadups release tar
        run: |
          cd ..
@@ -237,7 +237,7 @@ jobs:
            medley/loadups/apps.sysout               \
            medley/loadups/whereis.hash              \
            medley/library/exports.all
-      
+
      - name: Build runtime release tar
        run: |
          cd ..
@@ -258,6 +258,7 @@ jobs:
                     medley/fonts/altofonts                      \
                     medley/fonts/adobe                          \
                     medley/fonts/postscriptfonts                \
+                     medley/fonts/ipfonts                        \
                     medley/library                              \
                     medley/lispusers                            \
                     medley/sources                              \
@@ -277,13 +278,13 @@ jobs:
      - name: Delete existing release with same tag (if any)
        uses: cb80/delrel@latest
        with:
-            tag: ${{ env.MEDLEY_RELEASE_TAG }} 
+            tag: ${{ env.MEDLEY_RELEASE_TAG }}
        continue-on-error: true

      - name: Push the release
        id: push_release
        uses: ncipollo/release-action@v1
-        with: 
+        with:
          allowUpdates: true
          artifacts:
            ${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-loadups.tgz,
@@ -335,7 +336,7 @@ jobs:
          $url = "https://sourceforge.net/projects/tigervnc/files/stable/1.12.0/vncviewer64-1.12.0.exe"
          $output = "installers\win\vncviewer64-1.12.0.exe"
          (New-Object System.Net.WebClient).DownloadFile($url, $output)
- 
+
      # Run iscc.exe to compile the installer
      - name: Compile medley.iss
        shell: powershell
@@ -348,7 +349,7 @@ jobs:
      - name: Upload windows installer to release
        id: push
        uses: ncipollo/release-action@v1
-        with: 
+        with:
          allowUpdates: true
          artifacts: installers/win/${{ env.INSTALLER_FILENAME }}
          tag: ${{ env.MEDLEY_RELEASE_TAG }}
@@ -381,7 +382,7 @@ jobs:
            else
                remote_filename="${local_filename%.html}"
                remote_manname="man_medley.html"
-            fi            
+            fi
            remote_filepath="/srv/oio/static/${remote_filename}"
            remote_manpath="/srv/oio/static/${remote_manname}"
            # Fill in downloads page template
@@ -403,7 +404,7 @@ jobs:
            sftp -o StrictHostKeyChecking=no -b batch ubuntu@online.interlisp.org
        env:
            SSH_KEY: ${{ secrets.OIO_SSH_KEY }}
-      
+


 ######################################################################################
@@ -420,7 +421,7 @@ jobs:

    needs: [inputs, sentry, loadup, windows_installer]

-    steps: 
+    steps:
      # Checkout the actions for this repo owner
      - name: Checkout Actions
        uses: actions/checkout@v3
@@ -440,7 +441,7 @@ jobs:
        id: output
        run: |
          echo "build_successful='true'" >> $GITHUB_OUTPUT
-          
+
 ######################################################################################


--- a/.github/workflows/buildReleaseInclDocker.yml
+++ b/.github/workflows/buildReleaseInclDocker.yml
@@ -18,6 +18,9 @@ name: "Build/Push Release & Docker"

 # Run this workflow on ...
 on:
+  schedule:
+    - cron: '0 9 * * 1'
+
  workflow_dispatch:
    inputs:
      draft:
@@ -53,7 +56,7 @@ on:
 defaults:
  run:
    shell: bash
-    
+

 # Jobs that compose this workflow
 jobs:
@@ -72,17 +75,14 @@ jobs:
    steps:
      - id: one
        run: >
-          if [ '${{ toJSON(inputs) }}' = 'null'  ];
+          if [ '${{ toJSON(inputs) }}' != 'null'  ];
          then
-              echo "workflow_dispatch";
-              echo "draft=${{ github.event.inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ github.event.inputs.force }}" >> $GITHUB_OUTPUT;
+            echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
+            echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
          else
-              echo "workflow_call";
-              echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
+            echo "draft=false" >> $GITHUB_OUTPUT;
+            echo "force=false" >> $GITHUB_OUTPUT;
          fi
-        

 ######################################################################################

--- a/README.md
+++ b/README.md
@@ -105,8 +105,7 @@ dump of your system located in your home directory named
 specify a specific image to run, Medley restores that image so that
 you can continue right where you left off.

-* [Using Medley Interlisp](https://github.com/Interlisp/medley/wiki/Using-Medley-Interlisp)
-
+* [Using Medley Interlisp](https://interlisp.org/doc/info/Using.html)

 ## Naming conventions and directory structure

--- a/docs/ReleaseNote/APPENDIXA-THEEXEC.TEDIT
+++ b/docs/ReleaseNote/APPENDIXA-THEEXEC.TEDIT
--- a/docs/ReleaseNote/APPENDIXB-SEDIT.TEDIT
+++ b/docs/ReleaseNote/APPENDIXB-SEDIT.TEDIT
--- a/docs/ReleaseNote/APPENDIXC-ICONW.TEDIT
+++ b/docs/ReleaseNote/APPENDIXC-ICONW.TEDIT
--- a/docs/ReleaseNote/APPENDIXD-FREEMENU.TEDIT
+++ b/docs/ReleaseNote/APPENDIXD-FREEMENU.TEDIT
--- a/docs/ReleaseNote/APPENDIXE-ERRSYS.TEDIT
+++ b/docs/ReleaseNote/APPENDIXE-ERRSYS.TEDIT
--- a/docs/ReleaseNote/ENVOSCOVERSHEET.TEDIT
+++ b/docs/ReleaseNote/ENVOSCOVERSHEET.TEDIT
--- a/docs/ReleaseNote/Indexfinal.tedit
+++ b/docs/ReleaseNote/Indexfinal.tedit
--- a/docs/ReleaseNote/LOT.tedit
+++ b/docs/ReleaseNote/LOT.tedit
--- a/docs/ReleaseNote/PREFACE.TEDIT
+++ b/docs/ReleaseNote/PREFACE.TEDIT
--- a/docs/ReleaseNote/PRINTINGSPEC.TEDIT
+++ b/docs/ReleaseNote/PRINTINGSPEC.TEDIT
--- a/docs/ReleaseNote/SEC1-INTRODUCTION.TEDIT
+++ b/docs/ReleaseNote/SEC1-INTRODUCTION.TEDIT
--- a/docs/ReleaseNote/SEC2-NOTES-AND-CAUTIONS.TEDIT
+++ b/docs/ReleaseNote/SEC2-NOTES-AND-CAUTIONS.TEDIT
--- a/docs/ReleaseNote/SEC3-IRMFEATURES-I.TEDIT
+++ b/docs/ReleaseNote/SEC3-IRMFEATURES-I.TEDIT
--- a/docs/ReleaseNote/SEC3-IRMFEATURES-II.TEDIT
+++ b/docs/ReleaseNote/SEC3-IRMFEATURES-II.TEDIT
--- a/docs/ReleaseNote/SEC3-IRMFEATURES-III.TEDIT
+++ b/docs/ReleaseNote/SEC3-IRMFEATURES-III.TEDIT
--- a/docs/ReleaseNote/SEC4-IRMERRATA.TEDIT
+++ b/docs/ReleaseNote/SEC4-IRMERRATA.TEDIT
--- a/docs/ReleaseNote/SEC5-LIBRARY-MODULES.TEDIT
+++ b/docs/ReleaseNote/SEC5-LIBRARY-MODULES.TEDIT
--- a/docs/ReleaseNote/SEC6-USERS-GUIDES.TEDIT
+++ b/docs/ReleaseNote/SEC6-USERS-GUIDES.TEDIT
--- a/docs/ReleaseNote/SEC7-CLIMPLMNTN.TEDIT
+++ b/docs/ReleaseNote/SEC7-CLIMPLMNTN.TEDIT
--- a/docs/ReleaseNote/TABS2L.SKETCH
+++ b/docs/ReleaseNote/TABS2L.SKETCH
--- a/docs/ReleaseNote/TABSINFOP.SKETCH
+++ b/docs/ReleaseNote/TABSINFOP.SKETCH
--- a/docs/ReleaseNote/TABSLAYOUTL.SKETCH
+++ b/docs/ReleaseNote/TABSLAYOUTL.SKETCH
--- a/docs/ReleaseNote/TABSPEC.TEDIT
+++ b/docs/ReleaseNote/TABSPEC.TEDIT
--- a/docs/ReleaseNote/TOC.TEDIT
+++ b/docs/ReleaseNote/TOC.TEDIT
--- a/docs/ReleaseNote/Tab-Replacements.tedit
+++ b/docs/ReleaseNote/Tab-Replacements.tedit
--- a/docs/ReleaseNote/Titlepage.tedit
+++ b/docs/ReleaseNote/Titlepage.tedit
--- a/docs/ReleaseNote/bindercover.sketch
+++ b/docs/ReleaseNote/bindercover.sketch
--- a/docs/ReleaseNote/indexbase.tedit
+++ b/docs/ReleaseNote/indexbase.tedit
--- a/greetfiles/MEDLEYDIR-INIT
+++ b/greetfiles/MEDLEYDIR-INIT
@@ -1,11 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "22-Nov-2022 20:59:24" {DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;6 2860   
+(FILECREATED "13-Apr-2023 09:44:06" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;6 2925   
+
+      :EDIT-BY "lmm"

      :CHANGES-TO (VARS MEDLEYDIR-INITCOMS)

-      :PREVIOUS-DATE "22-Nov-2022 20:42:43" 
-{DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;5)
+      :PREVIOUS-DATE "10-Apr-2023 11:58:07" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;5
+)


 (PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -22,18 +24,19 @@

              (DWIMWAIT 180)
              (HELPDEPTH 4)
-              (HELPTIME 10)
+              (HELPTIME 1)
              (FILING.ENUMERATION.DEPTH 1)
              [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"]
              [USERGREETFILES `((,LOGINDIR "INIT" COM)
                                (,LOGINDIR "INIT"]
+              (COPYRIGHTFLG 'NEVER)
              (COPYRIGHTSRESERVED NIL)
              (AUTOBACKTRACEFLG 'ALWAYS)
              (MAXLEVEL 30000)
              (MAXLOOP 30000))
        (FNS INTERLISPMODE)
-        (ALISTS (FONTDEFS LARGER))))
+        (ALISTS (FONTDEFS))))

 (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
                   "")
@@ -49,7 +52,7 @@

 (RPAQQ HELPDEPTH 4)

-(RPAQQ HELPTIME 10)
+(RPAQQ HELPTIME 1)

 (RPAQQ FILING.ENUMERATION.DEPTH 1)

@@ -59,6 +62,8 @@
 (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
                       (,LOGINDIR "INIT")))

+(RPAQQ COPYRIGHTFLG NEVER)
+
 (RPAQQ COPYRIGHTSRESERVED NIL)

 (RPAQQ AUTOBACKTRACEFLG ALWAYS)
@@ -84,5 +89,5 @@

 (ADDTOVAR FONTDEFS )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1986 2811 (INTERLISPMODE 1996 . 2809)))))
+  (FILEMAP (NIL (2051 2876 (INTERLISPMODE 2061 . 2874)))))
 STOP
--- a/greetfiles/MEDLEYDIR-INIT.LCOM
+++ b/greetfiles/MEDLEYDIR-INIT.LCOM
--- a/internal/MAINTAIN.TXT
+++ b/internal/MAINTAIN.TXT
@@ -0,0 +1,2 @@
+MAINTAIN -- Network access to the PUP "Grapevine" server, which did
+            email, distribution lists. Written ~1985 mainly by Bill van Melle.
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

-(FILECREATED " 4-Aug-2022 09:50:04" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;2| 10212  
+(FILECREATED "23-May-2023 07:10:58" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;12| 10354  

-      :CHANGES-TO (VARS MEDLEY-UTILSCOMS)
+      :EDIT-BY "lmm"

-      :PREVIOUS-DATE "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
+      :CHANGES-TO (FNS GATHER-INFO)
+
+      :PREVIOUS-DATE "22-May-2023 22:57:21" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;11|)


 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -15,7 +17,8 @@
 (DEFINEQ

 (GATHER-INFO
-  (LAMBDA (PHASE)                                         (* \; "Edited 26-Dec-2021 18:56 by larry")
+  (LAMBDA (PHASE)                                           (* \; "Edited 22-May-2023 23:59 by lmm")
+                                                          (* \; "Edited 26-Dec-2021 18:56 by larry")
                                                          (* \; "Edited 24-Oct-2021 09:43 by larry")
    (SELECTQ PHASE
        (ALL (|for| I |from| 0 |to| 4 |do| (GATHER-INFO I)))
@@ -47,7 +50,7 @@
                                 DEFD))
           (|for| X |in| DEFINEDFNS |when| (CCODEP X)
              |do| (LET ((Y (PUTPROP X 'CCC (CALLSCCODE X))))
-                        (|for| REV |in| '(BLOCK-CALLED-BY CALLED-BY SPECIAL-BY GLOBAL-BY)
+                        (|for| REV |in| '(BLOCK-CALLED-BY CALLED-BY BOUND-BY SPECIAL-BY GLOBAL-BY)
                           |as| VAL |in| Y |do| (|for| S |in| VAL
                                                   |do| (PUTPROP S REV (CONS X (GETPROP S REV)))))))
           (SETQ CALLEDFNS NIL)
@@ -170,7 +173,7 @@
         (DRIBBLE))))
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (600 7357 (GATHER-INFO 610 . 6020) (MAKE-FULLER-DB 6022 . 6712) (MEDLEY-FIX-LINKS 6714
- . 7111) (MEDLEY-FIX-DATES 7113 . 7355)) (8396 10189 (MAKE-EXPORTS-ALL 8406 . 9365) (MAKE-WHEREIS-HASH
- 9367 . 10187)))))
+  (FILEMAP (NIL (624 7499 (GATHER-INFO 634 . 6162) (MAKE-FULLER-DB 6164 . 6854) (MEDLEY-FIX-LINKS 6856
+ . 7253) (MEDLEY-FIX-DATES 7255 . 7497)) (8538 10331 (MAKE-EXPORTS-ALL 8548 . 9507) (MAKE-WHEREIS-HASH
+ 9509 . 10329)))))
 STOP
--- a/internal/MEDLEY-UTILS.LCOM
+++ b/internal/MEDLEY-UTILS.LCOM
--- a/library/000docs/000-COVER.TEDIT
+++ b/library/000docs/000-COVER.TEDIT
--- a/library/000docs/001-TITLEPAGE.TEDIT
+++ b/library/000docs/001-TITLEPAGE.TEDIT
--- a/library/000docs/002-TOC.TEDIT
+++ b/library/000docs/002-TOC.TEDIT
--- a/library/000docs/003-LOF.TEDIT
+++ b/library/000docs/003-LOF.TEDIT
--- a/library/000docs/004-PREFACE.TEDIT
+++ b/library/000docs/004-PREFACE.TEDIT
--- a/library/000docs/005-INTRO.TEDIT
+++ b/library/000docs/005-INTRO.TEDIT
--- a/library/000docs/006-INDEX.TEDIT
+++ b/library/000docs/006-INDEX.TEDIT
--- a/library/BROWSER
+++ b/library/BROWSER
@@ -1,17 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED " 7-Feb-2022 14:06:19" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;3 26344  
+(FILECREATED "26-Apr-2023 12:41:36" {DSK}<home>larry>il>medley>library>BROWSER.;6 29801  

-      :CHANGES-TO (VARS BROWSERCOMS)
-                  (FNS GET.BROWSE.PP.WINDOW NUMSPATHS)
+      :EDIT-BY "lmm"

-      :PREVIOUS-DATE "25-Mar-94 13:43:20" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;1)
+      :CHANGES-TO (FNS BROWSER.LEFTFN NUMSPATHS STBROWSER MSPATHS.DISPATCH BROWSER 
+                       BROWSER.WHENFNSCHANGED BRPATHS1 GET.BROWSE.PP.WINDOW 
+                       GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
+                       BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH)
+                  (VARS BROWSERCOMS BROWSER.BORDERS)

+      :PREVIOUS-DATE "15-Apr-2023 18:55:36" {DSK}<home>larry>il>medley>library>BROWSER.;1)

-(* ; "
-Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation.
-")

 (PRETTYCOMPRINT BROWSERCOMS)

@@ -20,27 +20,26 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                GRAPHER)
               (CONSTANTS (CHANGEDSHADE 8840)))
-        (FNS NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN GET.BROWSE.PP.WINDOW 
-             GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN 
-             BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH STBROWSER)
+        (FNS MSPATHS.DISPATCH NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN 
+             GET.BROWSE.PP.WINDOW GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN 
+             DESCRIBEREPAINTFN BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP 
+             REDRAWBROWSEGRAPH STBROWSER)
        (GLOBALRESOURCES BROWSEHASH)
        (DECLARE%: DONTCOPY (RECORDS BROWSEWIN PATHSARGS))
-        [VARS (BROWSERBOXING)
-              (BROWSERFORMAT)
-              (BROWSERWINDOWS)
-              (NODESELECTIONWINDOW)
-              (PFWINDOW)
-              (BROWSER.DESCRIBE.WINDOW)
-              (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]
-        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (SELECTQ (SYSTEMTYPE)
-                                                  (D (BROWSER T))
-                                                  NIL])
+        [INITVARS (BROWSER T)
+               (BROWSERBOXING)
+               (BROWSERFORMAT)
+               (BROWSERWINDOWS)
+               (NODESELECTIONWINDOW)
+               (PFWINDOW)
+               (BROWSER.DESCRIBE.WINDOW)
+               (BrowserPPWindowWidth 750)
+               (BROWSERMAX 10)
+               (BROWSERFONT '(GACHA 8]
+        (P (MOVD? 'NILL 'MODERNWINDOW))
+        (VARS BROWSER.BORDERS)
+        (GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (BROWSER T])

 (FILESLOAD MASTERSCOPE GRAPHER)
 (DECLARE%: EVAL@COMPILE DONTCOPY 
@@ -58,64 +57,74 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
 )
 (DEFINEQ

-(NUMSPATHS
+(MSPATHS.DISPATCH
  [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)
+                                                             (* ; "Edited 15-Apr-2023 11:33 by lmm")
+    (IF (AND (GETD 'NUMSPATHS)
+             (WINDOWWORLD)
             (EQ (OUTPUT)
                 T))
-        [OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
-                                          APPLY LAMBDA (X)
-                                          (GETPROP X 'AVOID]
-        (RESETVARS ((MSPRINTFLG))
-                   (AND INVERTED (UPDATECHANGED))
-                   (STBROWSER
-                    [GLOBALRESOURCE
-                     BROWSEHASH
-                     (PROG [X NAMED TEM (UNDONE (MSLISTSET FROM T))
-                              ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
-                              (CALLRELATION (PARSERELATION 'CALL]
-                           (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)))
-                           [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]
-                           (RETURN (LAYOUTFOREST GRAPHNODE.LIST ROOTS BROWSERFORMAT BROWSERBOXING]
-                    (PROG1 (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE)
-                                                             (* ; 
-                                                   "this LIST is actually an 'instance' of PATHSARGS")
-                           ]
-       (T (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
+        THEN (NUMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
+      ELSE (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
+
+(NUMSPATHS
+  [LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
+    (DECLARE (SPECVARS INVERTED GRAPHNODE.LIST))             (* ; "Edited 26-Apr-2023 09:12 by lmm")
+                                                             (* ; "Edited 15-Apr-2023 18:43 by lmm")
+                                                             (* ; "Edited  7-Feb-2022 13:57 by rmk")
+                                                             (* ; "Edited 11-Apr-88 11:08 by jrb:")
+    [OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
+                                      APPLY LAMBDA (X)
+                                      (GETPROP X 'AVOID]
+    (AND INVERTED (UPDATECHANGED))
+    (OR DEPTH (SETQ DEPTH BROWSERMAX))
+    (WITH-RESOURCES BROWSEHASH (PROG [NAMED TEM (UNDONE (MSLISTSET FROM T))
+                                            ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
+                                            (CALLRELATION (PARSERELATION 'CALL]
+                                     (DECLARE (SPECVARS SEEN GRAPHNODE.LIST CALLRELATION))
+                                     (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)))
+                                     [do (COND
+                                            (NAMED (PUTHASH (CAR NAMED)
+                                                          0 SEEN)
+                                                   (PUSH ROOTS (fetch (GRAPHNODE NODEID)
+                                                                  of (BRPATHS1 (CAR NAMED)
+                                                                            DEPTH)))
+                                                   (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 (STBROWSER (LAYOUTGRAPH GRAPHNODE.LIST ROOTS
+                                                               (APPEND BROWSERFORMAT BROWSERBOXING))
+                                                    (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE
+                                                          MARKING DEPTH])

 (BROWSER
-  [LAMBDA (DISPLAYFLG)                                       (* rmk%: "16-Dec-83 15:39")
-    (COND
-       (DISPLAYFLG (SETQ BROWSERFONT (FONTCREATE BROWSERFONT))
-              (MOVD 'NUMSPATHS 'MSPATHS))
-       (T (MOVD 'OLDMSPATHS 'MSPATHS])
+  [LAMBDA (DISPLAYFLG)                                       (* ; "Edited 15-Apr-2023 14:55 by lmm")
+                                                             (* rmk%: "16-Dec-83 15:39")
+    (MOVD? 'MSPATHS 'OLDMSPATHS)
+    (MOVD 'MSPATHS.DISPATCH 'MSPATHS)
+    (SETQ BROWSER DISPLAYFLG)
+    (OR (FONTP BROWSERFONT)
+        (SETQ BROWSERFONT (FONTCREATE BROWSERFONT)))
+    (PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
+          (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
+              (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC])

 (BROWSER.WHENFNSCHANGED
  [LAMBDA (FNNAME TYPE REASON)                               (* DECLARATIONS%: (RECORDS BROWSEWIN))
@@ -134,78 +143,122 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                 FNNAME))
        (BROWSERDESCRIBE FNNAME BROWSER.DESCRIBE.WINDOW)))
    (for X in BROWSERWINDOWS do (COND
-                                               ((find GRAPHNODE
-                                                   in (fetch (GRAPH GRAPHNODES)
-                                                             of (fetch (BROWSEWIN GRAPH)
-                                                                       of X))
-                                                   suchthat (EQ (fetch (GRAPHNODE NODELABEL)
-                                                                       of GRAPHNODE)
-                                                                    FNNAME))
-                                                (COND
-                                                   ((fetch (BROWSEWIN GRAPH) of X)
-                                                    (DSPFILL NIL CHANGEDSHADE 'PAINT
-                                                           (fetch (BROWSEWIN WINDOW) of
-                                                                                         X))
-                                                    (WINDOWPROP (fetch (BROWSEWIN WINDOW)
-                                                                   of X)
-                                                           'BUTTONEVENTFN
-                                                           (FUNCTION REDRAWBROWSEGRAPH))
-                                                    (replace (BROWSEWIN GRAPH) of X
-                                                       with NIL])
+                                   ((find GRAPHNODE in (fetch (GRAPH GRAPHNODES)
+                                                          of (fetch (BROWSEWIN GRAPH) of X))
+                                       suchthat (EQ (fetch (GRAPHNODE NODELABEL) of GRAPHNODE)
+                                                    FNNAME))
+                                    (COND
+                                       ((fetch (BROWSEWIN GRAPH) of X)
+                                        (DSPFILL NIL CHANGEDSHADE 'PAINT (fetch (BROWSEWIN WINDOW)
+                                                                            of X))
+                                        (WINDOWPROP (fetch (BROWSEWIN WINDOW) of X)
+                                               'BUTTONEVENTFN
+                                               (FUNCTION REDRAWBROWSEGRAPH))
+                                        (replace (BROWSEWIN GRAPH) of X with NIL])

 (BRPATHS1
-  [LAMBDA (FROM)                                     (* ; "Edited 11-Apr-88 11:27 by jrb:")
-    (DECLARE (GLOBALVARS BROWSERFONT))
-    (PROG (TEM)
+  [LAMBDA (FROM DEPTH)                                       (* ; "Edited 25-Apr-2023 10:59 by lmm")
+                                                             (* ; "Edited 11-Apr-88 11:27 by jrb:")
+    (DECLARE (SPECVARS INVERTED)
+           (GLOBALVARS BROWSERFONT MISSING.GRAPH.NODEBORDER))
+    (PROG (TEM ENTRY TOFNS)
          (MSPATHS2 FROM)
          (COND
             ((EQ (SETQ TEM (GETHASH FROM SEEN))
                  -1)                                        (* ; 
-                                              "on NOPATHS list - create a node for it with no subs")
+                                                "on NOPATHS list - create a node for it with no subs")
              (SETQ TEM (create GRAPHNODE
                               NODEID _ FROM
                               NODELABEL _ FROM
                               NODEFONT _ BROWSERFONT
                               TONODES _ NIL))
-              (push GRAPHNODE.LIST TEM)
+              (PUAH GRAPHNODE.LIST TEM)
              (PUTHASH FROM TEM SEEN)
              (RETURN TEM))
             ((NEQ TEM 0)                                    (* ; "already expanded into a list")
              (RETURN TEM))
-             (T (RETURN (PROG ((ENTRY (create GRAPHNODE
-                                             NODEID _ FROM
-                                             NODELABEL _ FROM
-                                             NODEFONT _ BROWSERFONT)))
-                              (push GRAPHNODE.LIST ENTRY)
-                              (PUTHASH FROM ENTRY SEEN)
-                              (replace (GRAPHNODE TONODES) of ENTRY
-                                 with (for X
-                                             in (for Y
-                                                       in (COND
-                                                                 ((NOT INVERTED)
-                                                                  (GETRELATION FROM CALLRELATION))
-                                                                 (T (GETRELATION FROM CALLRELATION T)
-                                                                    )) when (MSPATHS2 Y)
-                                                       collect Y) when (SETQ X (BRPATHS1
-                                                                                        X))
-                                             collect (fetch (GRAPHNODE NODEID) of X)))
-                              (RETURN ENTRY])
+             (T [SETQ TOFNS (COND
+                               ((NOT INVERTED)
+                                (GETRELATION FROM CALLRELATION))
+                               (T (GETRELATION FROM CALLRELATION T]
+                (SETQ ENTRY (create GRAPHNODE
+                                   NODEID _ FROM
+                                   NODELABEL _ FROM
+                                   NODEFONT _ BROWSERFONT))
+                (PUSH GRAPHNODE.LIST ENTRY)
+                (PUTHASH FROM ENTRY SEEN)
+                (IF (AND TOFNS (<= DEPTH 0))
+                    THEN (REPLACE (GRAPHNODE NODEBORDER) OF ENTRY WITH (CDDR (ASSOC 'ENDOFLINE 
+                                                                                    BROWSER.BORDERS))
+                                )
+                         (RETURN ENTRY))
+                (replace (GRAPHNODE TONODES) of ENTRY with (for X
+                                                              in (for Y in TOFNS
+                                                                    when (MSPATHS2 Y) collect Y)
+                                                              when (SETQ X (BRPATHS1 X
+                                                                                  (- DEPTH 1)))
+                                                              collect (fetch (GRAPHNODE NODEID)
+                                                                         of X)))
+                (RETURN ENTRY])

 (BROWSER.LEFTFN
-  [LAMBDA (NODE NWINDOW)                                     (* ; "Edited 31-Mar-87 11:16 by jop")
+  [LAMBDA (NODE NWINDOW)                                     (* ; "Edited 26-Apr-2023 12:41 by lmm")
+                                                             (* ; "Edited 31-Mar-87 11:16 by jop")
                                                             (* ; 
                                                 "function that is applied upon selection of a node.")
-    (COND
-       ((NULL NODE))
-       ((EQ (fetch NODELABEL of NODE)
-            (WINDOWPROP (GET.BROWSE.PP.WINDOW)
-                   'FNBROWSED))
-        (BROWSERDESCRIBE (fetch NODELABEL of NODE)
-               (GET.BROWSE.DESCRIBE.WINDOW)))
-       (T                                                    (* ; 
-                                                            "if first time touched, pretty print it.")
-          (BROWSEPP (fetch NODELABEL of NODE)
-                 (GET.BROWSE.PP.WINDOW])
+    (PROG (FN SELECTION)
+          (IF (NULL NODE)
+              THEN (RETURN)
+                   (MOVEW NWINDOW)                           (* ; 
+                                                       " really want to just drag the content around")
+                   (RETURN))
+          (IF (NULL (SETQ FN (FETCH NODELABEL OF NODE)))
+              THEN (RETURN))
+          [SETQ SELECTION (MENU (CREATE MENU
+                                       ITEMS _ '(CallsFrom CallsTo Edit Show InspectCode]
+
+     (* ;; "Mot implemented: Ignore Avoid")
+
+          (DESTRUCTURING-BIND (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
+                 (FOR BW IN BROWSERWINDOWS WHEN (EQ (FETCH (BROWSEWIN WINDOW) OF BW)
+                                                    NWINDOW) DO (RETURN (FETCH (BROWSEWIN ARGS)
+                                                                           OF BW))
+                    FINALLY (PROMPTPRINT "No browser window found for" FN)
+                          (RETURN))
+
+                 (* ;; "Now we have the arguments to MSPATHS .. insert this node?")
+
+                 (SELECTQ SELECTION
+                     ((NIL) 
+                          (RETURN))
+                     ((CallsFrom CallsTo) 
+                                          (* ;; "new graph, FN at the root")
+
+                          (NUMSPATHS (CREATE SENTENCE
+                                            SUBJECT _ '(NIL NIL . FNS)
+                                            MSPRED _ 'QUOTE
+                                            OTHERSTUFF _ (LIST FN))
+                                 (IF INVERTED
+                                     THEN TO
+                                   ELSE FROM)
+                                 INVERTED AVOIDING NIL NOTRACE MARKING DEPTH))
+                     NIL
+                     (Ignore                                 (* ; "local ignore"))
+                     (Avoid                                  (* ; " global ignore"))
+                     (Edit (ED FN (IF (HASDEF FN 'FNS)
+                                      THEN 'FNS
+                                    ELSEIF (HASDEF FN 'FUNCTIONS)
+                                      THEN 'FUNCTIONS
+                                    ELSE (PROMPTPRINT FN "no definition")
+                                         NIL)))
+                     (Show (CL:UNLESS (EQ FN (WINDOWPROP (GET.BROWSE.PP.WINDOW)
+                                                    'FNBROWSED))
+                               (BROWSEPP FN (GET.BROWSE.PP.WINDOW))))
+                     (Describe (BROWSERDESCRIBE FN (GET.BROWSE.DESCRIBE.WINDOW)))
+                     (InspectCode (IF (NOT (CCODEP FN))
+                                      THEN (PROMPTPRINT FN "not compiled")
+                                    ELSE (INSPECTCODE FN)))
+                     (HELP])

 (GET.BROWSE.PP.WINDOW
  [LAMBDA NIL                                                (* ; "Edited  7-Feb-2022 14:01 by rmk")
@@ -253,9 +306,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                                                            BOTTOM])

 (PPREPAINTFN
-  [LAMBDA (WINDOW REGION RESHAPE)                       (* ; "Edited 11-Jun-90 14:11 by mitani")
+  [LAMBDA (WINDOW REGION RESHAPE)                           (* ; "Edited 11-Jun-90 14:11 by mitani")

-    (* ;; "repaints the browser pp window WINDOW.  Returns the width of the image so that caller can set the EXTENT.")
+    (* ;; "repaints the browser pp window WINDOW.  Returns the width of the image so that caller can set the EXTENT.")

    (PROG ((FN (WINDOWPROP WINDOW 'FNBROWSED))
           (EXTENT (WINDOWPROP WINDOW 'EXTENT))
@@ -265,25 +318,23 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                         (MOVETOUPPERLEFT WINDOW EXTENT)
                         (printout WINDOW .FONT DEFAULTFONT)
                         (COND
-                            ((for FPTYPE in MSFNTYPES
-                                when (SETQ DEF (GETDEF FN (ffetch (MSANALYZABLE FILEPKGNAME)
-                                                                 of FPTYPE)
-                                                          NIL
-                                                          'NOERROR))
-                                do (SETQ FNTYPE (ffetch (MSANALYZABLE FILEPKGNAME)
-                                                       of FPTYPE))
-                                      (RETURN DEF) finally NIL)
-                                                             (* ; 
-                                                           "set up linelength characteristics.")
+                            ((for FPTYPE in MSFNTYPES when (SETQ DEF (GETDEF FN (ffetch (MSANALYZABLE
+                                                                                         FILEPKGNAME)
+                                                                                   of FPTYPE)
+                                                                            NIL
+                                                                            'NOERROR))
+                                do (SETQ FNTYPE (ffetch (MSANALYZABLE FILEPKGNAME) of FPTYPE))
+                                   (RETURN DEF) finally NIL) (* ; 
+                                                             "set up linelength characteristics.")
                             (RESETLST
                                 (RESETSAVE (OUTPUT WINDOW))
                                 (RESETSAVE (SETREADTABLE T))
                                 (RESETSAVE **COMMENT**FLG)
                                 (if (EQ FNTYPE 'FNS)
-                                     then (printout WINDOW "(" .FONT LAMBDAFONT |.P2| FN .FONT 
-                                                     DEFAULTFONT T))
-                                 (DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION
-                                                                                   NIL WINDOW))
+                                     then (printout WINDOW "(" .FONT LAMBDAFONT .P2 FN .FONT 
+                                                 DEFAULTFONT T))
+                                 (DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION NIL 
+                                                                                 WINDOW))
                                        WINDOW)
                                 (PRINTDEF DEF (AND (EQ FNTYPE 'FNS)
                                                    2)
@@ -291,19 +342,19 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                                 (if (EQ FNTYPE 'FNS)
                                     then (PRIN1 ")" WINDOW)))
                             (fetch (REGION WIDTH) of (DSPCLIPPINGREGION NIL WINDOW)))
-                            (T                               (* ; 
-                                                           "set right margin out so wouldn't clip.")
+                            (T                               (* ; 
+                                                             "set right margin out so wouldn't clip.")
                               (DSPRIGHTMARGIN 5000 WINDOW)
                               (APPLY* (FUNCTION PF*)
                                      FN NIL (GETSTREAM WINDOW))
-                               (DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION
-                                                                                 NIL WINDOW))
+                               (DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION NIL WINDOW
+                                                                               ))
                                      WINDOW)
                               BrowserPPWindowWidth)))
                     (T 0])

 (PPRESHAPEFN
-  [LAMBDA (WINDOW)                                           (* lmm "20-Jul-84 15:48")
+  [LAMBDA (WINDOW)                                           (* lmm "20-Jul-84 15:48")
    (BROWSEPP (WINDOWPROP WINDOW 'FNBROWSED)
           WINDOW])

@@ -314,17 +365,18 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
    (PROG [(FN (WINDOWPROP WIN 'FNBROWSED))
           (EXTENT (WINDOWPROP WIN 'EXTENT]
          (COND
-             (FN (RESETLST (RESETSAVE MSPRINTFLG NIL)
-                        (RESETSAVE (OUTPUT WIN))
-                        (DSPSCROLL 'OFF WIN)
-                        (COND
-                           (EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
-                        (MSDESCRIBE FN])
+             (FN (RESETLST
+                     (RESETSAVE MSPRINTFLG NIL)
+                     (RESETSAVE (OUTPUT WIN))
+                     (DSPSCROLL 'OFF WIN)
+                     (COND
+                        (EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
+                     (MSDESCRIBE FN))])

 (BROWSERDESCRIBE
  [LAMBDA (FN WIN)                                           (* ; "Edited 31-Mar-87 11:15 by jop")
-          
-          (* ;; "puts the masterscope DESCRIBE information in the window DS.  Keeps tracks of which fn so if it changes the window can be updated.")
+
+    (* ;; "puts the masterscope DESCRIBE information in the window DS.  Keeps tracks of which fn so if it changes the window can be updated.")

    (WINDOWPROP WIN 'FNBROWSED FN)
    (CLEARW WIN)
@@ -337,9 +389,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                                                   (DSPYPOSITION NIL WIN])

 (BROWSER.MIDDLEFN
-  [LAMBDA (NODE NWINDOW)                                 (* ; "Edited 25-Mar-94 13:25 by jds")
+  [LAMBDA (NODE NWINDOW)                                     (* ; "Edited 25-Mar-94 13:25 by jds")
                                                             (* ; 
-                 "called when yellow selection from browser.  Call display editor on the function.")
+                   "called when yellow selection from browser.  Call display editor on the function.")
    (COND
       ((NULL NODE))
       [(THIS.PROCESS)                                       (* ; "processes are running.")
@@ -352,7 +404,7 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                              " " "into the Dedit " "window then selecting 'Edit'."))
                      (T (ADD.PROCESS `(ED ',(fetch NODELABEL of NODE])
            ((SEDIT SEDIT:SEDIT)                             (* ; 
-                                                     "SEdit doesn't have to worry about this stuff")
+                                                       "SEdit doesn't have to worry about this stuff")
                 (ED (fetch NODELABEL of NODE)
                     ':DONTWAIT))
            (ED (fetch NODELABEL of NODE]
@@ -360,8 +412,8 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation

 (DEDITPROCESSRUNNINGP
  [LAMBDA NIL                                                (* ; "Edited 31-Mar-87 11:27 by jop")
-          
-          (* ;; "is there a dedit process running?")
+
+    (* ;; "is there a dedit process running?")

    (AND (EQ (EDITMODE)
             'DEDIT)
@@ -369,73 +421,69 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation

 (REDRAWBROWSEGRAPH
  [LAMBDA (WINDOW)                                           (* DECLARATIONS%: (RECORDS BROWSEWIN))
+                                                             (* ; "Edited 15-Apr-2023 16:12 by lmm")
                                                             (* ; "Edited 31-Mar-87 11:24 by jop")
-    (PROG [(WN (find X in BROWSERWINDOWS suchthat (EQ (fetch (BROWSEWIN WINDOW)
-                                                                     of X)
-                                                                  WINDOW]
-          (AND WN (APPLY 'NUMSPATHS (fetch (BROWSEWIN ARGS) of WN)))
-                                                             (* ; "(OR WN (SHOULDNT))")
+    (PROG [(WN (find X in BROWSERWINDOWS suchthat (EQ (fetch (BROWSEWIN WINDOW) of X)
+                                                      WINDOW]
+          (AND WN (APPLY (FUNCTION NUMSPATHS)
+                         (fetch (BROWSEWIN ARGS) of WN)))    (* ; "(OR WN (SHOULDNT))")
          (WINDOWPROP WINDOW 'BUTTONEVENTFN (FUNCTION APPLYTOSELECTEDNODE))
          (APPLYTOSELECTEDNODE WINDOW])

 (STBROWSER
  [LAMBDA (GRAPH ARGS)                                       (* DECLARATIONS%: (RECORDS BROWSEWIN))
+                                                             (* ; "Edited 25-Apr-2023 21:05 by lmm")
                                                             (* ; "Edited 31-Mar-87 11:18 by jop")

    (* ;; "puts a browser graph for the args FROMFN in a window.  If a similar graph is already a window, that window is reused;  otherwise a new window is created.")

-    (WINDOWADDPROP (bind TMP for W in BROWSERWINDOWS
-                      when (EQUAL (fetch (PATHSARGS DISCRIMINANT) of ARGS)
-                                      (fetch (PATHSARGS DISCRIMINANT) of (fetch
-                                                                                  (BROWSEWIN ARGS)
-                                                                                    of W)))
+    (WINDOWADDPROP (bind TMP for W in BROWSERWINDOWS when (EQUAL (fetch (PATHSARGS DISCRIMINANT)
+                                                                    of ARGS)
+                                                                 (fetch (PATHSARGS DISCRIMINANT)
+                                                                    of (fetch (BROWSEWIN ARGS)
+                                                                          of W)))
                      do (replace (BROWSEWIN ARGS) of W with ARGS)
-                            (replace (BROWSEWIN GRAPH) of W with GRAPH)
-                            (SHOWGRAPH GRAPH (SETQ W (fetch (BROWSEWIN WINDOW) of W))
-                                   (FUNCTION BROWSER.LEFTFN)
-                                   (FUNCTION BROWSER.MIDDLEFN))
-                            (RETURN W)
+                         (replace (BROWSEWIN GRAPH) of W with GRAPH)
+                         (SHOWGRAPH GRAPH (SETQ W (fetch (BROWSEWIN WINDOW) of W))
+                                (FUNCTION BROWSER.LEFTFN)
+                                (FUNCTION BROWSER.MIDDLEFN))
+                         (RETURN W)
                      finally (SETQ W (SHOWGRAPH GRAPH (CONCAT "PATHS"
-                                                                  (COND
-                                                                     ((SETQ TMP (fetch
-                                                                                 (PATHSARGS FROM)
-                                                                                   of ARGS))
+                                                              (COND
+                                                                 ((SETQ TMP (fetch (PATHSARGS FROM)
+                                                                               of ARGS))
+                                                                  (CONCAT (COND
+                                                                             ((CADR (CADR TMP))
+                                                                              " FROM ")
+                                                                             (T " TO "))
+                                                                         (CADDDR TMP)))
+                                                                 (T ""))
+                                                              (COND
+                                                                 ((SETQ TMP (fetch (PATHSARGS TO)
+                                                                               of ARGS))
                                                             (* ; 
-                          "CADDDR here gets the thing that looks like it might be a function name.")
-                                                                      (CONCAT (COND
-                                                                                 ((CADR (CADR TMP))
-                                                                                  " FROM ")
-                                                                                 (T " TO "))
-                                                                             (CADDDR TMP)))
-                                                                     (T ""))
-                                                                  (COND
-                                                                     ((SETQ TMP (fetch
-                                                                                 (PATHSARGS TO)
-                                                                                   of ARGS))
-                                                             (* ; 
-                          "CADDDR here gets the thing that looks like it might be a function name.")
-                                                                      (CONCAT (COND
-                                                                                 ((CADR (CADR TMP))
-                                                                                  " FROM ")
-                                                                                 (T " TO "))
-                                                                             (CADDDR TMP)))
-                                                                     (T "")))
-                                                 (FUNCTION BROWSER.LEFTFN)
-                                                 (FUNCTION BROWSER.MIDDLEFN)))
+                            "CADDDR here gets the thing that looks like it might be a function name.")
+                                                                  (CONCAT (COND
+                                                                             ((CADR (CADR TMP))
+                                                                              " FROM ")
+                                                                             (T " TO "))
+                                                                         (CADDDR TMP)))
+                                                                 (T "")))
+                                             (FUNCTION BROWSER.LEFTFN)
+                                             (FUNCTION BROWSER.MIDDLEFN)))
                            (push BROWSERWINDOWS
-                                   (create BROWSEWIN
-                                          ARGS _ ARGS
-                                          GRAPH _ GRAPH
-                                          WINDOW _ W))
+                                  (create BROWSEWIN
+                                         ARGS _ ARGS
+                                         GRAPH _ GRAPH
+                                         WINDOW _ W))
                            (RETURN W))
           'CLOSEFN
           (FUNCTION (LAMBDA (WINDOW)                        (* ; 
-                        "The closing function for browser windows.  removes it from BROWSERWINDOWS")
+                          "The closing function for browser windows.  removes it from BROWSERWINDOWS")
                       (SETQ BROWSERWINDOWS (DREMOVE (for X in BROWSERWINDOWS
                                                        when (EQ (fetch (BROWSEWIN WINDOW)
-                                                                        of X)
-                                                                     WINDOW)
-                                                        do (RETURN X))
+                                                                    of X)
+                                                                 WINDOW) do (RETURN X))
                                                   BROWSERWINDOWS])
 )
 (DECLARE%: DONTCOPY 
@@ -457,41 +505,49 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
 )
 )

-(RPAQQ BROWSERBOXING NIL)
+(RPAQ? BROWSER T)

-(RPAQQ BROWSERFORMAT NIL)
+(RPAQ? BROWSERBOXING )

-(RPAQQ BROWSERWINDOWS NIL)
+(RPAQ? BROWSERFORMAT )

-(RPAQQ NODESELECTIONWINDOW NIL)
+(RPAQ? BROWSERWINDOWS )

-(RPAQQ PFWINDOW NIL)
+(RPAQ? NODESELECTIONWINDOW )

-(RPAQQ BROWSER.DESCRIBE.WINDOW NIL)
+(RPAQ? PFWINDOW )

-(RPAQQ BrowserPPWindowWidth 750)
+(RPAQ? BROWSER.DESCRIBE.WINDOW )

-(RPAQQ BROWSERFONT (GACHA 8))
+(RPAQ? BrowserPPWindowWidth 750)

-(MOVD? 'MSPATHS 'OLDMSPATHS)
+(RPAQ? BROWSERMAX 10)
+
+(RPAQ? BROWSERFONT '(GACHA 8))

 (MOVD? 'NILL 'MODERNWINDOW)

-[PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
-      (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
-          (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
+(RPAQQ BROWSER.BORDERS
+       ((NORMAL "Normal" 2 -1)
+        (GHOST "Shown elsewhere" 2 8840)
+        (RECURSIVEGHOST "End of recursive chain" 2 0 -1)
+        (MERGED "Includes other branches" 4 42405)
+        (SELFRECURSIVE "Includes self-recursive calls" 2 61375)
+        (RECURSIVE "Head of recursive chain" 4 28086)
+        (ENDOFLINE "exceeded depth limit" 6 64510)))
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
+)
 (DECLARE%: DONTEVAL@LOAD DOCOPY 

-(SELECTQ (SYSTEMTYPE)
-    (D (BROWSER T))
-    NIL)
+(BROWSER T)
 )
-(PUTPROPS BROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1987 1988 1990 1993 1994))
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (2085 28437 (MSPATHS.DISPATCH 2095 . 2569) (NUMSPATHS 2571 . 6158) (BROWSER 6160 . 6731)
+ (BROWSER.WHENFNSCHANGED 6733 . 8518) (BRPATHS1 8520 . 11171) (BROWSER.LEFTFN 11173 . 14599) (
+GET.BROWSE.PP.WINDOW 14601 . 15426) (GET.BROWSE.DESCRIBE.WINDOW 15428 . 16176) (BROWSEPP 16178 . 17052
+) (PPREPAINTFN 17054 . 20180) (PPRESHAPEFN 20182 . 20358) (DESCRIBEREPAINTFN 20360 . 21064) (
+BROWSERDESCRIBE 21066 . 21808) (BROWSER.MIDDLEFN 21810 . 23125) (DEDITPROCESSRUNNINGP 23127 . 23382) (
+REDRAWBROWSEGRAPH 23384 . 24148) (STBROWSER 24150 . 28435)))))
 STOP
--- a/library/BROWSER.LCOM
+++ b/library/BROWSER.LCOM
--- a/library/BROWSER.TEDIT
+++ b/library/BROWSER.TEDIT
--- a/library/CENTRONICS.TEDIT
+++ b/library/CENTRONICS.TEDIT
--- a/library/CHARCODETABLES.TEDIT
+++ b/library/CHARCODETABLES.TEDIT
--- a/library/CHAT.TEDIT
+++ b/library/CHAT.TEDIT
--- a/library/CLIPBOARD.TEDIT
+++ b/library/CLIPBOARD.TEDIT
--- a/library/CMLFLOATARRAY.TEDIT
+++ b/library/CMLFLOATARRAY.TEDIT
--- a/library/COLOR1.TEDIT
+++ b/library/COLOR1.TEDIT
--- a/library/COLOR2.TEDIT
+++ b/library/COLOR2.TEDIT
--- a/library/COPYFILES.TEDIT
+++ b/library/COPYFILES.TEDIT
--- a/library/DATABASEFNS.TEDIT
+++ b/library/DATABASEFNS.TEDIT
--- a/library/DEDIT.TEDIT
+++ b/library/DEDIT.TEDIT
--- a/library/EDITBITMAP.TEDIT
+++ b/library/EDITBITMAP.TEDIT
--- a/library/ETHERRECORDS.TEDIT
+++ b/library/ETHERRECORDS.TEDIT
--- a/library/FILEBROWSER.TEDIT
+++ b/library/FILEBROWSER.TEDIT
--- a/library/FONTSAMPLE.TEDIT
+++ b/library/FONTSAMPLE.TEDIT
--- a/library/FTPSERVER.TEDIT
+++ b/library/FTPSERVER.TEDIT
--- a/library/GCHAX.TEDIT
+++ b/library/GCHAX.TEDIT
--- a/library/GRAPHER.TEDIT
+++ b/library/GRAPHER.TEDIT
--- a/library/GRAPHZOOM.TEDIT
+++ b/library/GRAPHZOOM.TEDIT
--- a/library/HASH.TEDIT
+++ b/library/HASH.TEDIT
--- a/library/HASHFILE.TEDIT
+++ b/library/HASHFILE.TEDIT
--- a/library/MASTERSCOPE.TEDIT
+++ b/library/MASTERSCOPE.TEDIT
--- a/library/MATMULT.TEDIT
+++ b/library/MATMULT.TEDIT
--- a/library/PRESS
+++ b/library/PRESS
@@ -1,18 +1,21 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED " 5-Feb-2021 22:18:06" {DSK}<home>larry>ilisp>medley>library>PRESS.;2 455434Q

-      changes to%:  (VARS PRESSCOMS)
+(FILECREATED "10-Apr-2023 07:15:37" {DSK}<home>larry>il>medley>library>PRESS.;2 452576Q

-      previous date%: "20-Jan-93 14:25:20" {DSK}<home>larry>ilisp>medley>library>PRESS.;1)
+      :EDIT-BY "lmm"
+
+      :CHANGES-TO (VARS PRESSCOMS)
+
+      :PREVIOUS-DATE " 5-Feb-2021 22:18:06" {DSK}<home>larry>il>medley>library>PRESS.;1)


 (* ; "
-Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1981-1987, 1990, 1993, 2021 by Venue & Xerox Corporation.
 ")

 (PRETTYCOMPRINT PRESSCOMS)

-(RPAQQ PRESSCOMS
+(RPAQQ PRESSCOMS 
       [

 (* ;;; "PRESS printing support module")
@@ -28,7 +31,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
        
        (* ;; "Bitmap printing support")

-        (FNS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW WINDOW.BITMAP 
+        (FNS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW 
             \WRITEPRESSBITMAP)
        
        (* ;; "Basic PRESS data structure output functions")
@@ -101,7 +104,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
                                                         ROTATION TITLE)))
                              ((FULLPRESS RAVEN)
                                                             (* ; 
-                                                           "same as PRESS but can scale bitmaps")
+                                                             "same as PRESS but can scale bitmaps")
                               (CANPRINT (PRESS))
                               (STATUS TRUE)
                               (PROPERTIES NILL)
@@ -718,19 +721,6 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
          (\WRITEPRESSBITMAP BITMAP NIL NIL PRSTREAM)
          (RETURN (CLOSEF PRSTREAM])

-(WINDOW.BITMAP
-  [LAMBDA (W)                                           (* ; "Edited 12-Jun-90 10:38 by mitani")
-                                                             (* Returns all of the bitmap of the 
-                                                           window)
-    (PROG [BM (REGION (WINDOWPROP W 'REGION]
-          (CLOSEW W)
-          (SETQ BM (BITMAPCREATE (fetch (REGION WIDTH) of REGION)
-                          (fetch (REGION HEIGHT) of REGION)))
-          (BITBLT (WINDOWPROP W 'IMAGECOVERED)
-                 NIL NIL BM)
-          (OPENW W)
-          (RETURN BM])
-
 (\WRITEPRESSBITMAP
  [LAMBDA (BITMAP XPOS YPOS SCALEFACTOR CLIPPINGREGION PRSTREAM)
                                                            (* ; "Edited 12-Jun-90 10:39 by mitani")
@@ -2344,7 +2334,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 (RPAQQ SPRUCEPAPERTOPSCANS 4096)

 (RPAQ SPRUCEPAPERTOPMICAS (FIX (FQUOTIENT (FTIMES SPRUCEPAPERTOPSCANS \MicasPerInch)
-                                          ScansPerIn)))
+                                      ScansPerIn)))

 (RPAQ SPRUCEPAPERRIGHTMICAS (FIX (FTIMES 8.5 \MicasPerInch)))

@@ -2427,85 +2417,74 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE

-(DATATYPE PRESSDATA (PRHEADING                           (* The string to be printed atop 
-                                                           each page.)
-                               PRHEADINGFONT                 (* Font to print the heading in)
-                               PRXPOS                        (* Current X position)
-                               PRYPOS                        (* Current Y position)
-                               PRFONT                        (* Current font)
-                               PRCURRFDE PRESSFONTDIR PRWIDTHSCACHE PRCOLOR PRLINEFEED PRPAGESTATE 
-                               PDSTREAM ELSTREAM XPRPAGEREGION PRDOCNAME (PRLEFT WORD)
+(DATATYPE PRESSDATA (PRHEADING                               (* The string to be printed atop each 
+                                                             page.)
+                           PRHEADINGFONT                     (* Font to print the heading in)
+                           PRXPOS                            (* Current X position)
+                           PRYPOS                            (* Current Y position)
+                           PRFONT                            (* Current font)
+                           PRCURRFDE PRESSFONTDIR PRWIDTHSCACHE PRCOLOR PRLINEFEED PRPAGESTATE 
+                           PDSTREAM ELSTREAM XPRPAGEREGION PRDOCNAME (PRLEFT WORD)
                                                             (* Page left margin)
-                               (PRBOTTOM WORD)               (* Page bottom margin)
-                               (PRRIGHT WORD)                (* Page right margin)
-                               (PRTOP WORD)                  (* Page top margin)
-                               (PRPAGENUM WORD)              (* Current Page number)
-                               (PRNEXTFONT# BYTE)
-                               (PRMAXFONTSET BYTE)
-                               (PRPARTSTART INTEGER)
-                               (DLSTARTBYTE INTEGER)
-                               (ELSTARTBYTE INTEGER)
-                               (STARTCHARBYTE INTEGER)
-                               (VECMOVINGRIGHT FLAG)         (* If we're drawing a curve with 
-                                                           vector fonts, are we moving to the 
-                                                           right?)
-                               (VECWASDISPLAYING FLAG)
+                           (PRBOTTOM WORD)                   (* Page bottom margin)
+                           (PRRIGHT WORD)                    (* Page right margin)
+                           (PRTOP WORD)                      (* Page top margin)
+                           (PRPAGENUM WORD)                  (* Current Page number)
+                           (PRNEXTFONT# BYTE)
+                           (PRMAXFONTSET BYTE)
+                           (PRPARTSTART INTEGER)
+                           (DLSTARTBYTE INTEGER)
+                           (ELSTARTBYTE INTEGER)
+                           (STARTCHARBYTE INTEGER)
+                           (VECMOVINGRIGHT FLAG)             (* If we're drawing a curve with 
+                                                             vector fonts, are we moving to the 
+                                                             right?)
+                           (VECWASDISPLAYING FLAG)

-         (* Used during curve/line clipping to remember whether we were on-screen or 
-       not, so we know when to force a SETXY.)
+         (* Used during curve/line clipping to remember whether we were on-screen or not, 
+         so we know when to force a SETXY.)

-                               VECSEGCHARS                   (* Cache for vector characters while 
-                                                           we're moving to the left.)
-                               VECCURX                       (* Current X position within vector 
-                                                           code, in Dover spots)
-                               VECCURY                       (* Current Y position with vector 
-                                                           code, in Dover spots)
-                               PRSPACEFACTOR PRSPACEWIDTH (CHARWASDISPLAYING FLAG)
-                                                             (* Says whether we have been 
-                                                           printing characters inside the 
-                                                           clipping region)
-                               PRClippingRegion
+                           VECSEGCHARS                       (* Cache for vector characters while 
+                                                             we're moving to the left.)
+                           VECCURX                           (* Current X position within vector 
+                                                             code, in Dover spots)
+                           VECCURY                           (* Current Y position with vector 
+                                                             code, in Dover spots)
+                           PRSPACEFACTOR PRSPACEWIDTH (CHARWASDISPLAYING FLAG)
+                                                             (* Says whether we have been printing 
+                                                             characters inside the clipping region)
+                           PRClippingRegion

         (* The edges of the paper, as far as PRESS is concerned.
-       Used to protect SPRUCE users who get killed when the image goes off-paper)
+         Used to protect SPRUCE users who get killed when the image goes off-paper)

-                               )
-                        PRSPACEFACTOR _ 1 PRXPOS _ 0 PRYPOS _ 0 
-                                                             (* We assume that the origin is 
-                                                           translated to the bottom-left of the 
-                                                           page region)
-                        PRClippingRegion _ (create REGION
-                                                  LEFT _ SPRUCEPAPERLEFTMICAS
-                                                  BOTTOM _ SPRUCEPAPERBOTTOMMICAS
-                                                  WIDTH _ (DIFFERENCE SPRUCEPAPERRIGHTMICAS 
-                                                                 SPRUCEPAPERLEFTMICAS)
-                                                  HEIGHT _ 29210)
-                        [ACCESSFNS ((PRWIDTH (IDIFFERENCE (fetch (PRESSDATA PRRIGHT) of
-                                                                                         DATUM)
-                                                    (fetch (PRESSDATA PRLEFT) of DATUM)))
-                                    (PRHEIGHT (IDIFFERENCE (fetch (PRESSDATA PRTOP) of DATUM)
-                                                     (fetch (PRESSDATA PRBOTTOM) of DATUM)))
-                                    (PRPAGEREGION (fetch (PRESSDATA XPRPAGEREGION) of DATUM)
-                                           (PROGN (replace (PRESSDATA XPRPAGEREGION) of
-                                                                                         DATUM
-                                                     with NEWVALUE)
-                                                  (replace (PRESSDATA PRLEFT) of DATUM
-                                                     with (fetch (REGION LEFT) of 
-                                                                                             NEWVALUE
-                                                                     ))
-                                                  (replace (PRESSDATA PRBOTTOM) of DATUM
-                                                     with (fetch (REGION BOTTOM) of
-                                                                                         NEWVALUE))
-                                                  (replace (PRESSDATA PRRIGHT) of DATUM
-                                                     with (IPLUS (fetch (REGION LEFT)
-                                                                        of NEWVALUE)
-                                                                     (fetch (REGION WIDTH)
-                                                                        of NEWVALUE)))
-                                                  (replace (PRESSDATA PRTOP) of DATUM
-                                                     with (IPLUS (fetch (REGION BOTTOM)
-                                                                        of NEWVALUE)
-                                                                     (fetch (REGION HEIGHT)
-                                                                        of NEWVALUE])
+                           )
+                    PRSPACEFACTOR _ 1 PRXPOS _ 0 PRYPOS _ 0  (* We assume that the origin is 
+                                                             translated to the bottom-left of the 
+                                                             page region)
+                    PRClippingRegion _ (create REGION
+                                              LEFT _ SPRUCEPAPERLEFTMICAS
+                                              BOTTOM _ SPRUCEPAPERBOTTOMMICAS
+                                              WIDTH _ (DIFFERENCE SPRUCEPAPERRIGHTMICAS 
+                                                             SPRUCEPAPERLEFTMICAS)
+                                              HEIGHT _ 29210)
+                    [ACCESSFNS ((PRWIDTH (IDIFFERENCE (fetch (PRESSDATA PRRIGHT) of DATUM)
+                                                (fetch (PRESSDATA PRLEFT) of DATUM)))
+                                (PRHEIGHT (IDIFFERENCE (fetch (PRESSDATA PRTOP) of DATUM)
+                                                 (fetch (PRESSDATA PRBOTTOM) of DATUM)))
+                                (PRPAGEREGION (fetch (PRESSDATA XPRPAGEREGION) of DATUM)
+                                       (PROGN (replace (PRESSDATA XPRPAGEREGION) of DATUM
+                                                 with NEWVALUE)
+                                              (replace (PRESSDATA PRLEFT) of DATUM
+                                                 with (fetch (REGION LEFT) of NEWVALUE))
+                                              (replace (PRESSDATA PRBOTTOM) of DATUM
+                                                 with (fetch (REGION BOTTOM) of NEWVALUE))
+                                              (replace (PRESSDATA PRRIGHT) of DATUM
+                                                 with (IPLUS (fetch (REGION LEFT) of NEWVALUE)
+                                                             (fetch (REGION WIDTH) of NEWVALUE)))
+                                              (replace (PRESSDATA PRTOP) of DATUM
+                                                 with (IPLUS (fetch (REGION BOTTOM) of NEWVALUE)
+                                                             (fetch (REGION HEIGHT) of NEWVALUE])

 (RECORD FONTDIRENTRY (DESCR FONT# FONTSET#))
 )
@@ -2596,7 +2575,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 (RPAQ? DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765))

 (RPAQ? PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch))
-                                    (TIMES 10 \MicasPerInch)))
+                                (TIMES 10 \MicasPerInch)))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY

 (GLOBALVARS DEFAULTPAGEREGION)
@@ -2618,7 +2597,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu



-(RPAQQ PRESSOPS
+(RPAQQ PRESSOPS 
       (SetX SetY ShowCharacters ShowCharactersShortCode SkipCharactersShortCode 
             ShowCharactersAndSkipCode SetSpaceXShortCode SetSpaceYShortCode FontCode 
             SkipControlBytesImmediateCode AlternativeCode OnlyOnCopyCode SetXCode SetYCode 
@@ -2739,65 +2718,64 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1993, 2021 by Venu
 )

 (ADDTOVAR IMAGESTREAMTYPES (PRESS (OPENSTREAM OPENPRSTREAM)
-                                      (FONTCREATE \CREATEPRESSFONT)
-                                      (CREATECHARSET \CREATECHARSET.PRESS)
-                                      (FONTSAVAILABLE \SEARCHPRESSFONTS)))
+                                  (FONTCREATE \CREATEPRESSFONT)
+                                  (CREATECHARSET \CREATECHARSET.PRESS)
+                                  (FONTSAVAILABLE \SEARCHPRESSFONTS)))

-(ADDTOVAR PRINTERTYPES
-          ((PRESS SPRUCE PENGUIN DOVER)
-           (CANPRINT (PRESS))
-           (STATUS PUP.PRINTER.STATUS)
-           (PROPERTIES PUP.PRINTER.PROPERTIES)
-           (SEND EFTP)
-           (BITMAPSCALE NIL)
-           (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))
-          ((FULLPRESS RAVEN)
+(ADDTOVAR PRINTERTYPES ((PRESS SPRUCE PENGUIN DOVER)
+                        (CANPRINT (PRESS))
+                        (STATUS PUP.PRINTER.STATUS)
+                        (PROPERTIES PUP.PRINTER.PROPERTIES)
+                        (SEND EFTP)
+                        (BITMAPSCALE NIL)
+                        (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))
+                       ((FULLPRESS RAVEN)
                                                             (* ; 
-                                                           "same as PRESS but can scale bitmaps")
-           (CANPRINT (PRESS))
-           (STATUS TRUE)
-           (PROPERTIES NILL)
-           (SEND EFTP)
-           (BITMAPSCALE PRESS.BITMAPSCALE)
-           (BITMAPFILE (FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
+                                                             "same as PRESS but can scale bitmaps")
+                        (CANPRINT (PRESS))
+                        (STATUS TRUE)
+                        (PROPERTIES NILL)
+                        (SEND EFTP)
+                        (BITMAPSCALE PRESS.BITMAPSCALE)
+                        (BITMAPFILE (FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))

-(ADDTOVAR PRINTFILETYPES
-          [PRESS (TEST PRESSFILEP)
-                 (EXTENSION (PRESS))
-                 (CONVERSION (TEXT MAKEPRESS TEDIT (LAMBDA (FILE PFILE FONTS HEADING)
-                                                          (SETQ FILE (OPENTEXTSTREAM FILE))
-                                                          (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL
-                                                                 NIL 'PRESS)
-                                                          (CLOSEF? FILE)
-                                                          PFILE])
+(ADDTOVAR PRINTFILETYPES [PRESS (TEST PRESSFILEP)
+                                (EXTENSION (PRESS))
+                                (CONVERSION (TEXT MAKEPRESS TEDIT
+                                                  (LAMBDA (FILE PFILE FONTS HEADING)
+                                                         (SETQ FILE (OPENTEXTSTREAM FILE))
+                                                         (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL
+                                                                NIL 'PRESS)
+                                                         (CLOSEF? FILE)
+                                                         PFILE])
 (PUTPROPS PRESS COPYRIGHT ("Venue & Xerox Corporation" 3675Q 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3706Q
 3711Q 3745Q))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (16032Q 73011Q (\SEARCHPRESSFONTS 16044Q . 20001Q) (\GETPRESSFONTNAMES 20003Q . 26641Q) 
-(\PRESSFAMILYCODELST 26643Q . 30565Q) (\DECODEPRESSFACEBYTE 30567Q . 33356Q) (\CREATEPRESSFONT 33360Q
- . 35625Q) (\CREATECHARSET.PRESS 35627Q . 73007Q)) (73446Q 130434Q (PRESSBITMAP 73460Q . 103062Q) (
-FULLPRESSBITMAP 103064Q . 111076Q) (SHOWREGION 111100Q . 112442Q) (SHOWPRESSBITMAPREGION 112444Q . 
-113106Q) (PRESSWINDOW 113110Q . 117247Q) (WINDOW.BITMAP 117251Q . 120432Q) (\WRITEPRESSBITMAP 120434Q
- . 130432Q)) (130532Q 160405Q (\BCPLSOUT.PRESS 130544Q . 131521Q) (\PAGEPAD.PRESS 131523Q . 132760Q) (
-\ENTITYEND.PRESS 132762Q . 140256Q) (\PARTEND.PRESS 140260Q . 142645Q) (\ENTITYSTART.PRESS 142647Q . 
-146260Q) (SETX.PRESS 146262Q . 150115Q) (SETXY.PRESS 150117Q . 153121Q) (SETY.PRESS 153123Q . 154523Q)
- (SHOW.PRESS 154525Q . 160403Q)) (160467Q 275304Q (OPENPRSTREAM 160501Q . 165630Q) (\BITBLT.PRESS 
-165632Q . 170244Q) (\BLTSHADE.PRESS 170246Q . 171701Q) (\SCALEDBITBLT.PRESS 171703Q . 174327Q) (
-\BITMAPSIZE.PRESS 174331Q . 175271Q) (\CHARWIDTH.PRESS 175273Q . 177342Q) (\CLOSEF.PRESS 177344Q . 
-207333Q) (\DRAWLINE.PRESS 207335Q . 210673Q) (\ENDPAGE.PRESS 210675Q . 212145Q) (NEWLINE.PRESS 212147Q
- . 213560Q) (NEWPAGE.PRESS 213562Q . 214054Q) (SETUPFONTS.PRESS 214056Q . 217607Q) (\DEFINEFONT.PRESS 
-217611Q . 221733Q) (\DSPBOTTOMMARGIN.PRESS 221735Q . 222531Q) (\DSPCLIPPINGREGION.PRESS 222533Q . 
-224125Q) (\DSPFONT.PRESS 224127Q . 231121Q) (\DSPLEFTMARGIN.PRESS 231123Q . 232003Q) (
-\DSPLINEFEED.PRESS 232005Q . 233315Q) (\DSPRIGHTMARGIN.PRESS 233317Q . 234202Q) (\DSPSPACEFACTOR.PRESS
- 234204Q . 235610Q) (\DSPTOPMARGIN.PRESS 235612Q . 236375Q) (\DSPXPOSITION.PRESS 236377Q . 237115Q) (
-\DSPYPOSITION.PRESS 237117Q . 237635Q) (\FIXLINELENGTH.PRESS 237637Q . 241734Q) (\OUTCHARFN.PRESS 
-241736Q . 250772Q) (\SETSPACE.PRESS 250774Q . 252270Q) (\STARTPAGE.PRESS 252272Q . 256633Q) (
-\STRINGWIDTH.PRESS 256635Q . 272213Q) (SHOWRECTANGLE.PRESS 272215Q . 272736Q) (
-\PRESS.CONVERT.NSCHARACTER 272740Q . 275302Q)) (275344Q 406406Q (\ENDVECRUN 275356Q . 305174Q) (
-\VECENCODE 305176Q . 306225Q) (\VECPUT 306227Q . 315655Q) (\VECSKIP 315657Q . 316412Q) (\VECFONTINIT 
-316414Q . 323537Q) (\DRAWCIRCLE.PRESS 323541Q . 326044Q) (\DRAWARC.PRESS 326046Q . 326637Q) (
-\DRAWCURVE.PRESS 326641Q . 334577Q) (\DRAWCURVE.PRESS.LINE 334601Q . 343446Q) (\DRAWELLIPSE.PRESS 
-343450Q . 347227Q) (\GETBRUSHFONT.PRESS 347231Q . 351133Q) (\PRESSCURVE2 351135Q . 406404Q)) (412244Q 
-417070Q (\PRESSINIT 412256Q . 417066Q)) (446754Q 452043Q (MAKEPRESS 446766Q . 447272Q) (PRESSFILEP 
-447274Q . 451051Q) (PRESS.BITMAPSCALE 451053Q . 452041Q)))))
+  (FILEMAP (NIL (15752Q 72731Q (\SEARCHPRESSFONTS 15764Q . 17721Q) (\GETPRESSFONTNAMES 17723Q . 26561Q) 
+(\PRESSFAMILYCODELST 26563Q . 30505Q) (\DECODEPRESSFACEBYTE 30507Q . 33276Q) (\CREATEPRESSFONT 33300Q
+ . 35545Q) (\CREATECHARSET.PRESS 35547Q . 72727Q)) (73366Q 127171Q (PRESSBITMAP 73400Q . 103002Q) (
+FULLPRESSBITMAP 103004Q . 111016Q) (SHOWREGION 111020Q . 112362Q) (SHOWPRESSBITMAPREGION 112364Q . 
+113026Q) (PRESSWINDOW 113030Q . 117167Q) (\WRITEPRESSBITMAP 117171Q . 127167Q)) (127267Q 157142Q (
+\BCPLSOUT.PRESS 127301Q . 130256Q) (\PAGEPAD.PRESS 130260Q . 131515Q) (\ENTITYEND.PRESS 131517Q . 
+137013Q) (\PARTEND.PRESS 137015Q . 141402Q) (\ENTITYSTART.PRESS 141404Q . 145015Q) (SETX.PRESS 145017Q
+ . 146652Q) (SETXY.PRESS 146654Q . 151656Q) (SETY.PRESS 151660Q . 153260Q) (SHOW.PRESS 153262Q . 
+157140Q)) (157224Q 274041Q (OPENPRSTREAM 157236Q . 164365Q) (\BITBLT.PRESS 164367Q . 167001Q) (
+\BLTSHADE.PRESS 167003Q . 170436Q) (\SCALEDBITBLT.PRESS 170440Q . 173064Q) (\BITMAPSIZE.PRESS 173066Q
+ . 174026Q) (\CHARWIDTH.PRESS 174030Q . 176077Q) (\CLOSEF.PRESS 176101Q . 206070Q) (\DRAWLINE.PRESS 
+206072Q . 207430Q) (\ENDPAGE.PRESS 207432Q . 210702Q) (NEWLINE.PRESS 210704Q . 212315Q) (NEWPAGE.PRESS
+ 212317Q . 212611Q) (SETUPFONTS.PRESS 212613Q . 216344Q) (\DEFINEFONT.PRESS 216346Q . 220470Q) (
+\DSPBOTTOMMARGIN.PRESS 220472Q . 221266Q) (\DSPCLIPPINGREGION.PRESS 221270Q . 222662Q) (\DSPFONT.PRESS
+ 222664Q . 227656Q) (\DSPLEFTMARGIN.PRESS 227660Q . 230540Q) (\DSPLINEFEED.PRESS 230542Q . 232052Q) (
+\DSPRIGHTMARGIN.PRESS 232054Q . 232737Q) (\DSPSPACEFACTOR.PRESS 232741Q . 234345Q) (
+\DSPTOPMARGIN.PRESS 234347Q . 235132Q) (\DSPXPOSITION.PRESS 235134Q . 235652Q) (\DSPYPOSITION.PRESS 
+235654Q . 236372Q) (\FIXLINELENGTH.PRESS 236374Q . 240471Q) (\OUTCHARFN.PRESS 240473Q . 247527Q) (
+\SETSPACE.PRESS 247531Q . 251025Q) (\STARTPAGE.PRESS 251027Q . 255370Q) (\STRINGWIDTH.PRESS 255372Q . 
+270750Q) (SHOWRECTANGLE.PRESS 270752Q . 271473Q) (\PRESS.CONVERT.NSCHARACTER 271475Q . 274037Q)) (
+274101Q 405143Q (\ENDVECRUN 274113Q . 303731Q) (\VECENCODE 303733Q . 304762Q) (\VECPUT 304764Q . 
+314412Q) (\VECSKIP 314414Q . 315147Q) (\VECFONTINIT 315151Q . 322274Q) (\DRAWCIRCLE.PRESS 322276Q . 
+324601Q) (\DRAWARC.PRESS 324603Q . 325374Q) (\DRAWCURVE.PRESS 325376Q . 333334Q) (
+\DRAWCURVE.PRESS.LINE 333336Q . 342203Q) (\DRAWELLIPSE.PRESS 342205Q . 345764Q) (\GETBRUSHFONT.PRESS 
+345766Q . 347670Q) (\PRESSCURVE2 347672Q . 405141Q)) (410775Q 415621Q (\PRESSINIT 411007Q . 415617Q)) 
+(443570Q 446657Q (MAKEPRESS 443602Q . 444106Q) (PRESSFILEP 444110Q . 445665Q) (PRESS.BITMAPSCALE 
+445667Q . 446655Q)))))
 STOP
--- a/library/PRESS.LCOM
+++ b/library/PRESS.LCOM
--- a/library/READNUMBER.TEDIT
+++ b/library/READNUMBER.TEDIT
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,16 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "25-Jun-2022 18:22:01" {DSK}<home>larry>medley>library>SYSEDIT.;2 1373   
+(FILECREATED "29-Apr-2023 16:15:10" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1377   
+
+      :EDIT-BY "lmm"

      :CHANGES-TO (VARS SYSEDITCOMS)

-      :PREVIOUS-DATE "28-Sep-2021 10:16:44" {DSK}<home>larry>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)


-(* ; "
-Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT SYSEDITCOMS)

 (RPAQQ SYSEDITCOMS
@@ -22,8 +20,10 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
              (CLISPIFTRANFLG T)
              (CROSSCOMPILING 'ASK)
              (*REPLACE-OLD-EDIT-DATES* NIL)
-              (COPYRIGHTFLG 'PRESERVE))
-        (P (RESETVARS ((CROSSCOMPILING T))
+              (COPYRIGHTFLG 'NEVER)
+              (MSRECORDTRANFLG T))
+        (P (MOVD? 'APPLY* 'SPREADAPPLY*X)
+           (RESETVARS ((CROSSCOMPILING T))
                  (FILESLOAD (SOURCE)
                         EXPORTS.ALL])

@@ -43,12 +43,15 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.

 (RPAQQ *REPLACE-OLD-EDIT-DATES* NIL)

-(RPAQQ COPYRIGHTFLG PRESERVE)
+(RPAQQ COPYRIGHTFLG NEVER)
+
+(RPAQQ MSRECORDTRANFLG T)
+
+(MOVD? 'APPLY* 'SPREADAPPLY*X)

 (RESETVARS ((CROSSCOMPILING T))
           (FILESLOAD (SOURCE)
                  EXPORTS.ALL))
-(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
 (DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
 STOP
--- a/library/TCPIP.TEDIT
+++ b/library/TCPIP.TEDIT
--- a/library/TELERAID.TEDIT
+++ b/library/TELERAID.TEDIT
--- a/library/TEXEC.TEDIT
+++ b/library/TEXEC.TEDIT
--- a/library/TEXTMODULES.TEDIT
+++ b/library/TEXTMODULES.TEDIT
--- a/library/UNIXCHAT.TEDIT
+++ b/library/UNIXCHAT.TEDIT
--- a/library/UNIXCOMM.TEDIT
+++ b/library/UNIXCOMM.TEDIT
--- a/library/VIRTUAL.TEDIT
+++ b/library/VIRTUAL.TEDIT
--- a/library/WHERE-IS
+++ b/library/WHERE-IS
@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "XEROX-COMMON-LISP" READTABLE "XCL" BASE 10)

-(IL:FILECREATED "11-Mar-2022 22:40:32" 
-IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;2| 17501  
+(IL:FILECREATED "30-Apr-2023 13:54:00" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;2| 17396  

-      :PREVIOUS-DATE "13-Jun-90 01:24:39" 
-IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
+      :EDIT-BY "lmm"

+      :CHANGES-TO (IL:FUNCTIONS ADD-WHERE-IS-DATABASE)
+
+      :PREVIOUS-DATE "11-Mar-2022 22:40:32" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;1|)

-; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.

 (IL:PRETTYCOMPRINT IL:WHERE-ISCOMS)

@@ -379,15 +379,14 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
 (IL:PUTPROPS IL:WHERE-IS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "XCL"))

 (IL:PUTPROPS IL:WHERE-IS IL:FILETYPE :COMPILE-FILE)
-(IL:PUTPROPS IL:WHERE-IS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (1758 2090 (HASH-FILE-WHERE-IS 1758 . 2090)) (2092 2485 (HASH-FILE-TYPES-OF 2092 . 
-2485)) (2487 4652 (GET-WHERE-IS-ENTRIES 2487 . 4652)) (4654 5169 (WHERE-IS-READ-FN 4654 . 5169)) (5171
- 5327 (ADD-WHERE-IS-DATABASES 5171 . 5327)) (5329 5716 (ADD-WHERE-IS-DATABASE 5329 . 5716)) (5718 6197
- (DEL-WHERE-IS-DATABASE 5718 . 6197)) (6199 7351 (SAME-WHERE-IS-DATABASE 6199 . 7351)) (7353 8560 (
-CLOSE-WHERE-IS-FILES 7353 . 8560)) (8818 12235 (WHERE-IS-NOTICE 8818 . 12235)) (12237 12981 (
-WHERE-IS-NOTICE-INTERNAL 12237 . 12981)) (12983 13719 (WHERE-IS-FILES 12983 . 13719)) (13721 14086 (
-WHERE-IS-DEFAULT-DEFINE-TYPES 13721 . 14086)) (14088 14507 (WHERE-IS-NAMESTRING 14088 . 14507)) (14509
- 16521 (WHERE-IS-READ-COMS 14509 . 16521)) (16523 16794 (WHERE-IS-SET-WRITE-DATE 16523 . 16794)) (
-16796 17046 (WHERE-IS-GET-WRITE-DATE 16796 . 17046)))))
+  (IL:FILEMAP (NIL (1737 2069 (HASH-FILE-WHERE-IS 1737 . 2069)) (2071 2464 (HASH-FILE-TYPES-OF 2071 . 
+2464)) (2466 4631 (GET-WHERE-IS-ENTRIES 2466 . 4631)) (4633 5148 (WHERE-IS-READ-FN 4633 . 5148)) (5150
+ 5306 (ADD-WHERE-IS-DATABASES 5150 . 5306)) (5308 5695 (ADD-WHERE-IS-DATABASE 5308 . 5695)) (5697 6176
+ (DEL-WHERE-IS-DATABASE 5697 . 6176)) (6178 7330 (SAME-WHERE-IS-DATABASE 6178 . 7330)) (7332 8539 (
+CLOSE-WHERE-IS-FILES 7332 . 8539)) (8797 12214 (WHERE-IS-NOTICE 8797 . 12214)) (12216 12960 (
+WHERE-IS-NOTICE-INTERNAL 12216 . 12960)) (12962 13698 (WHERE-IS-FILES 12962 . 13698)) (13700 14065 (
+WHERE-IS-DEFAULT-DEFINE-TYPES 13700 . 14065)) (14067 14486 (WHERE-IS-NAMESTRING 14067 . 14486)) (14488
+ 16500 (WHERE-IS-READ-COMS 14488 . 16500)) (16502 16773 (WHERE-IS-SET-WRITE-DATE 16502 . 16773)) (
+16775 17025 (WHERE-IS-GET-WRITE-DATE 16775 . 17025)))))
 IL:STOP
--- a/library/WHERE-IS.DFASL
+++ b/library/WHERE-IS.DFASL
--- a/library/WHERE-IS.TEDIT
+++ b/library/WHERE-IS.TEDIT
--- a/library/lafite/docs/README
+++ b/library/lafite/docs/README
@@ -0,0 +1,10 @@
+Lafite README
+
+the end-user documentation for Lafite in a PDF is on Google Drive
+
+https://drive.google.com/drive/folders/1Zb2IudbnlzfEK5YzTcEr7k2liclFUquE?usp=sharing
+
+Here (in the GitHub Interlisp/medley repo) 
+you will find the .TEdit sources that can be used to produce the documentation using ths utility HCFILES on the file MEDLEY-UTILS in the "internal" folder.
+
+For Lafite there are two folders, one with the (latest) documentation and one with release notes.
--- a/library/lafite/docs/release-notes/ChangesLyric.tedit
+++ b/library/lafite/docs/release-notes/ChangesLyric.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-1-90.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-1-90.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-11-89.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-11-89.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-2-1-89.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-2-1-89.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-2-23-89.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-2-23-89.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-5-89.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-5-89.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-8-89.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-8-89.tedit
--- a/library/lafite/docs/release-notes/LAFITE-Delta-9-88.tedit
+++ b/library/lafite/docs/release-notes/LAFITE-Delta-9-88.tedit
--- a/library/lafite/docs/release-notes/LAFITEDELTA.TED
+++ b/library/lafite/docs/release-notes/LAFITEDELTA.TED
--- a/library/lafite/docs/release-notes/Lafite-85.TEdit
+++ b/library/lafite/docs/release-notes/Lafite-85.TEdit
--- a/library/lafite/docs/release-notes/Lafite-Jun-88.TEdit
+++ b/library/lafite/docs/release-notes/Lafite-Jun-88.TEdit
--- a/library/lafite/docs/release-notes/Lafite-Update.TEdit
+++ b/library/lafite/docs/release-notes/Lafite-Update.TEdit
--- a/library/lafite/docs/release-notes/LafiteImpl.ted
+++ b/library/lafite/docs/release-notes/LafiteImpl.ted
--- a/library/lafite/docs/release-notes/ReleaseMsg.TEdit
+++ b/library/lafite/docs/release-notes/ReleaseMsg.TEdit
--- a/library/lafite/docs/release-notes/Tasks.ted
+++ b/library/lafite/docs/release-notes/Tasks.ted
--- a/Show More
+++ b/Show More
Author	SHA1	Message	Date
Frank Halasz	e4b6f69e8e	Merge pull request #1269 from Interlisp/fgh_ipfonts Add ipfonts to release tars	2023-07-10 10:42:07 -07:00
Frank Halasz	52499052e8	Add ipfonts to release tars	2023-07-08 22:29:49 -07:00
Larry Masinter	b5f71670cb	Merge branch 'add-bigbitmaps'	2023-07-08 13:17:18 -07:00
Larry Masinter	d21dfe1061	Merge pull request #1256 from Interlisp/Minor-updates-to-LLREAD-and-SEDIT Minor updates to llread and sedit	2023-07-07 12:30:52 -07:00
Bill Stumbo	efae6d2911	Template for capturing 'What People are Saying' suggestions. (#1261 )	2023-07-07 12:27:42 -07:00
Larry Masinter	2aae0e7bb6	put back in IRM.SMART.LOOKUP needed for helpsys from menu (#1251 )	2023-07-07 12:27:06 -07:00
rmkaplan	02a6d7ad1b	Updated Tedit files for a few Lispusers packages--formatting and typos (#1246 ) * Updated Tedit files for a few Lispusers packages--formatting and typos * Format OBJECTWINDOW.TEDIT, delete WHEELSCROLL.TXT * Create CLIPBOARD.TEDIT Small (formatted) documentation file	2023-07-07 12:25:18 -07:00
rmkaplan	4826035054	CALENDAR, AOFD: Calendar had a Y2K problem, AOFD did not allow string-streams to reopen (#1204 ) * CALENDAR, AOFD: Calendar had a Y2K problem, AOFD did not allow string-streams to reopen There still may be some Y2K issues, I fixed the obvious ones, including how it interacted with Tedit * try recompiling --------- Co-authored-by: Larry Masinter <LMM@acm.org>	2023-07-07 12:18:46 -07:00
Larry Masinter	6c6856efb9	(PATHNAME NIL) now errors; don't try to add it to whereis list (#1188 )	2023-07-07 11:41:56 -07:00
Larry Masinter	871bbb735f	Add a few inits to SYSEDIT, obsoleting ABC (#1184 )	2023-07-07 11:30:42 -07:00
Larry Masinter	08852f7b55	Add TEDIT files for many Library packages (#1181 ) * WHERE-IS library doc * Gather keyboard files, add VIRTUAL.TEDIT * add UNIXCOMM.TEDIT * rest of TEdit library files * save table of contents index for reworking * Don't move around VIRTUALKEYBOARDS files; will move in separate commit * Add MATMULT from Envos/Medley	2023-07-07 11:25:17 -07:00
Bill Stumbo	4362618ea0	Add documentation template (#1257 ) Copied from Interlisp .github repo.	2023-07-06 08:27:05 -07:00
Larry Masinter	1659c452b5	remove POSTLOADUP from fileset... was removed (#1218 )	2023-07-03 16:37:59 -07:00
Larry Masinter	f5a8888aff	Add .tedit files which correspond to Medley release notes (#1124 )	2023-07-03 12:43:19 -07:00
Larry Masinter	4fed40bb85	Add BROWSERMAX to limit depth of paths graph (#1158 ) * Add BROWSERMAX to limit depth of paths graph * Update Browser to use left-button menu popup to select action	2023-06-30 16:56:54 -07:00
Larry Masinter	3cca8c4940	Fix places where rename of record LINE to XXLINE was incomplete (#1212 )	2023-06-30 16:42:07 -07:00
rmkaplan	d6a4b3bf88	SEDIT-WINDOW: use COPYINSERT instead of BKSYSBUF for shift-selection from titlebar Gets the package	2023-06-20 21:12:13 -07:00
Larry Masinter	b493d98aeb	fix GATHER-INFO for compiled code -- globalvars vs.bounc (#1219 )	2023-06-18 21:24:23 -07:00
Larry Masinter	beb4a77195	Recompile PRETTY (#1220 )	2023-06-17 21:40:34 -07:00
rmkaplan	d43846b4f4	SEDIT: SELECTC formatted like SELECTQ, copy-select from the titlebar Fixes long-standing irritants (for me at least). SELECTC is highlighted and format like SELECTQ and SELCHARQ. And left-button in the title bar with the copy (shift) key down does a bksysbuf of the thing being edited. The menu is available under the middle button, moving and reshaping still provided by modernize with the shift not down.	2023-06-17 20:18:17 -07:00
rmkaplan	28c673f296	LLREAD: CHARACTERNAMES saved with ALISTS instead of VARS commands Also CHARACTERSETNAMES. So that initial values don't smash or pick up the values that might otherwise be active in a development environment.	2023-06-17 20:14:00 -07:00
Frank Halasz	e067e02dde	Add on:schedule to buildRelease workflow so that Medley builds happen automatically on Mondays at 1am (#1225 ) * Add an On:schedule to the build release and docker workflow to build a new release every Monday at 1am * Add an On:schedule to the build release and docker workflow to build a new release every Monday at 9am UTC (1am or 2am Pacfic time, depending on daylight savings	2023-06-11 13:40:38 -07:00
Larry Masinter	1af56ddaa2	Add .tedit files for Lafite manual and release notes -- PDFs on Google Drive (#1209 ) * Add .tedit files for Lafite manual and release notes -- PDFs on Google Drive * use 'docs' for subfolder name; wliminate dup * Remove duplicate LAFITEMANUAL-GLOSSARY-CUSTOMER.TEDIT --------- Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>	2023-05-16 19:30:15 -07:00
Nick Briggs	16dd66a016	Pass --display/-d argument as -display not by setting DISPLAY env variable. (#1213 )	2023-05-16 19:28:21 -07:00
Larry Masinter	81b74be043	Another pass on CLOSEALL simplify by calling (OPENP) (#1182 ) * Another pass on CLOSEALL simplify by calling (OPENP) * Put back in checks for CLOSEALL IOMODE USERVISIBLE * \TERM.OFD and \LINEBUF.OFD are bound, no global * getting rid of \OPENFILES everywhere * one more \OPENFILES	2023-05-16 19:02:43 -07:00
Larry Masinter	f8a5d0fbe5	Rewrite code for deciding 'Good morning', 'Good evening' 'You're working late' Y2K (#1208 )	2023-05-16 19:00:49 -07:00
Larry Masinter	3e0ec62d27	Prettyfileindex knows about :EDIT-BY (#1205 )	2023-05-16 10:06:03 -07:00
Larry Masinter	654675661f	Do not set keyboard type without knowing better (#1211 )	2023-05-16 10:05:31 -07:00
Larry Masinter	3cb051ea7b	Allow (CLOSALL) to work after all (#1164 )	2023-04-19 19:47:11 -07:00
Frank Halasz	8bb283e0c4	Merge pull request #1154 from Interlisp/tweak-init2 Tweak INIT: HELPTIME 1 for more break windows; extend font profile	2023-04-19 18:03:08 -07:00
Frank Halasz	6fae5c14e9	Merge branch 'master' into tweak-init2	2023-04-19 17:54:43 -07:00
Frank Halasz	c58ef4ee56	Merge pull request #1161 from Interlisp/minor-usage-tweaks minor usage tweaks	2023-04-19 17:53:57 -07:00
Frank Halasz	730fc5b678	Merge pull request #1153 from Interlisp/who-line-only tweak WHO-LINE	2023-04-19 17:46:25 -07:00
Frank Halasz	8d54603329	Merge branch 'master' into who-line-only	2023-04-19 17:45:29 -07:00
Larry Masinter	21ceff5ad9	add internal/MAINTAIN.TXT to explain what MAINTAIN is	2023-04-18 15:21:35 -07:00
Larry Masinter	5a07e6c266	SYSEDIT also sets copyright flag	2023-04-18 15:16:07 -07:00
Larry Masinter	4a09d3a027	Init file set HELPTIME to 1 more break windows; copyright NEVER	2023-04-18 15:15:00 -07:00
Larry Masinter	691563024b	Yet another Logo with parameters for substrings. WINDOW.BITMAP move to Window (#1151 ) * Yet another Logo with parameters for substrings. WINDOW.BITMAP move to Window * Added LOGOW.DFASL, so rm LOGOW.LCOM * LOGOW: Add local variables for most of the hard-coded constants to make it easier to experiment with adjusting said constants. Adding kerning for substring1. * LOGOW: Add more kerning options. Cretaed separate kerned.prin3 function. * Set default params to Option 8. Added some top and right margins when placing LOGOW in screen so it doesn't look so squished into the corner. --------- Co-authored-by: Frank Halasz <frank@halasz.org>	2023-04-18 14:57:41 -07:00
Larry Masinter	0f49e248d3	Tweak INIT: HELPTIME 1 for more break windows; extend font profile	2023-04-13 09:56:16 -07:00
Larry Masinter	54782f5b21	tweak to WHO-LINE: hostname (don't use pup), change dir (don't offer directories that don't exist), package (sort so likely choices are at top)	2023-04-12 22:26:23 -07:00
rmkaplan	d34522d769	GITNFS: Doesn't error if clonepath defaults but is not required (#1123 ) If CLONEPATH is NIL, no error if the clone can't be found, just prints a note. If CLONEPATH is T, will error.	2023-03-30 09:59:27 -07:00
Larry Masinter	c501dc82fb	add :EDIT-BY initials to FILECREATED (#1074 )	2023-03-24 21:52:44 -07:00
Bill Stumbo	c256a8f411	Merge pull request #1110 from neauoire/patch-1 Changed wiki link to new docs url	2023-03-19 20:44:31 -04:00
Devine Lu Linvega	69dbe43d87	Update README.md	2023-03-19 16:45:17 -07:00
Devine Lu Linvega	989ec5b0b5	Changed wiki link to new docs url	2023-03-19 09:40:25 -07:00
Larry Masinter	fb1d14dfeb	once more	2023-03-01 07:53:44 -08:00
Larry Masinter	6d86932d35	remake ADISPLY	2023-02-28 06:50:17 -08:00
Larry Masinter	9ada6de6b9	Revert changes in \DRAWLINE.DISPLAY and add BIGBITMAPS to loadup & exports	2023-02-28 05:48:41 -08:00
rmkaplan	12b5e90727	GITFNS: Better default directory-finding, better pseudohosts (#1064 ) (#1065 ) * GITFNS: Better default directory-finding, better pseudohosts (addresses #1064) Also updated documentation * GITFNS: better error message in GIT-MAKE-PROJECT	2023-02-18 17:19:29 -08:00