Rmk30 WHEREIS for missing GETFN, TMAX fixed (#749)

* MACHINEINDEPENDENT: better searching for foo-fie

FINDFILE-WITH-EXTENSIONS, DOFILESLOAD

* MEDLEY-UTILS, PRINTFN:  WHEREIS/PF know about foo>foo-fie

* WHERE-IS:  Just MAKEFILE-NEW to get FUNCTIONS into the filemap

* ACE does LOADCOMP itself

* MACHINEINDEPENDENT:  FINDFILE-WITH-EXTENSIONS recognized SUBDIRECTORY

* SPELLFILE:  Calls FINDFILE-WITH-EXTENSIONS at the top

So FINDFILE and FILE-NOT-FOUND will consider FOO>FOO-FIE for file FOO-FIE

* WINDOWOBJ:  Missing GETFN does WHEREIS #748

* TMAX*:  Localize IMAGEFNS

The various IMAGEFNS were defined on TMAX itself, not on the file where the functions were (esp GETFN).

Also fixed some dependencies.  With new WINDOWOBJ, TMAX.TEDIT finds its image objects.

* WINDOWOBJ again:  SYSLOAD the GETFN file

Co-authored-by: Larry Masinter <LMM@acm.org>

sources/WINDOWOBJ

@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "17-Mar-2022 22:48:26" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;7
 27963  
+
(FILECREATED "18-Mar-2022 21:45:55" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;8
 28006  
 
       :CHANGES-TO (FNS READIMAGEOBJ)
 
-      :PREVIOUS-DATE "20-Dec-2021 23:47:45" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;5)
+      :PREVIOUS-DATE "17-Mar-2022 22:48:26" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;7)
 
 
 (* ; "
@@ -315,7 +315,7 @@ Copyright (c) 1986-1987, 1990-1991, 1993 by Venue & Xerox Corporation.
 (READIMAGEOBJ

   [LAMBDA (STREAM GETFN NOERROR DATANBYTES)
 
-    (* ;; "Edited 17-Mar-2022 22:47 by rmk: Added WHEREIS as a last resort.")

+    (* ;; "Edited 18-Mar-2022 21:45 by rmk: Added WHEREIS as a last resort.")

                                                              (* rrb "18-Mar-86 11:35")

     (DECLARE
 (SPECVARS UNDERREADIMAGEOBJ))
 
@@ -340,7 +340,8 @@ Copyright (c) 1986-1987, 1990-1991, 1993 by Venue & Xerox Corporation.
                        (MOUSECONFIRM (CONCAT "Trying to read an IMAGEOBJ with GETFN " GETFN 
                                             ". Shall I load the support file, " SUPPORTFILE "?")
                               NIL NIL NIL))
-             (DOFILESLOAD (LIST SUPPORTFILE)))
+             (DOFILESLOAD (LIST '(SYSLOAD)
+                                SUPPORTFILE)))
          (COND
             [(AND GETFN (GETD GETFN)
                   (CAR (NLSETQ (APPLY* GETFN STREAM]
@@ -527,11 +528,11 @@ Either delete this image object or load its support files." IMAGEOBJ)
 )
 (PUTPROPS WINDOWOBJ COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4897 21178 (COPYINSERT 4907 . 6434) (IMAGEBOX 6436 . 6616) (IMAGEFNSCREATE 6618 . 7813)
+  (FILEMAP (NIL (4897 21221 (COPYINSERT 4907 . 6434) (IMAGEBOX 6436 . 6616) (IMAGEFNSCREATE 6618 . 7813)
  (IMAGEFNSP 7815 . 8056) (IMAGEOBJCREATE 8058 . 8603) (IMAGEOBJP 8605 . 8846) (IMAGEOBJPROP 8848 . 
 14740) (\IMAGEUSERPROP 14742 . 15336) (HPRINT.IMAGEOBJ 15338 . 15927) (COPYIMAGEOBJ 15929 . 16672) (
-READIMAGEOBJ 16674 . 19824) (WRITEIMAGEOBJ 19826 . 21176)) (21392 27599 (
-ENCAPSULATEDOBJ.BUTTONEVENTINFN 21402 . 22538) (ENCAPSULATEDOBJ.PUTFN 22540 . 23655) (
-ENCAPSULATEDOBJ.DISPLAYFN 23657 . 25270) (ENCAPSULATEDOBJ.IMAGEBOXFN 25272 . 26160) (
-ENCAPSULATEDIMAGEFNS 26162 . 27597)))))
+READIMAGEOBJ 16674 . 19867) (WRITEIMAGEOBJ 19869 . 21219)) (21435 27642 (
+ENCAPSULATEDOBJ.BUTTONEVENTINFN 21445 . 22581) (ENCAPSULATEDOBJ.PUTFN 22583 . 23698) (
+ENCAPSULATEDOBJ.DISPLAYFN 23700 . 25313) (ENCAPSULATEDOBJ.IMAGEBOXFN 25315 . 26203) (
+ENCAPSULATEDIMAGEFNS 26205 . 27640)))))
 STOP