From e9200c73c9ccb7f1e15af8df72ca906eedc8417b Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 17 Jul 2024 23:39:33 -0700
Subject: [PATCH] WINDOWOBJ:  Install classname in IMAGEFNS

---
 sources/WINDOWOBJ      |  25 +++++++++++++------------
 sources/WINDOWOBJ.LCOM | Bin 12894 -> 12874 bytes
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/sources/WINDOWOBJ b/sources/WINDOWOBJ
index 0b231f8e..633b2560 100644
--- a/sources/WINDOWOBJ
+++ b/sources/WINDOWOBJ
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Apr-2024 18:08:13" {WMEDLEY}<sources>WINDOWOBJ.;26
 32448  
+
(FILECREATED "17-Jul-2024 21:54:38" {WMEDLEY}<sources>WINDOWOBJ.;27
 32550  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS ENCAPSULATEDOBJP)
-                  (VARS WINDOWOBJCOMS)
+      :CHANGES-TO (FNS IMAGEFNSCREATE)
 
-      :PREVIOUS-DATE " 5-Dec-2023 21:15:38" {WMEDLEY}<sources>WINDOWOBJ.;23)
+      :PREVIOUS-DATE "23-Apr-2024 18:08:13" {WMEDLEY}<sources>WINDOWOBJ.;26)
 
 
 (PRETTYCOMPRINT WINDOWOBJCOMS)
@@ -133,6 +132,7 @@
 (IMAGEFNSCREATE

   [LAMBDA (DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN WHENMOVEDFN 
                  WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN CLASSNAME)

+                                                             (* ; "Edited 17-Jul-2024 21:54 by rmk")

                                                              (* jds "19-Feb-85 09:33")

 
     (* ;; "returns a structure which contains the image functions for a type of image object.")

@@ -156,7 +156,8 @@
            WHENDELETEDFN _ WHENDELETEDFN
            WHENCOPIEDFN _ WHENCOPIEDFN
            WHENOPERATEDONFN _ WHENOPERATEDONFN
-           PREPRINTFN _ PREPRINTFN])
+           PREPRINTFN _ PREPRINTFN
+           IMAGECLASSNAME _ CLASSNAME])
 
 (IMAGEFNSP

   [LAMBDA (X)
                                            (* rrb " 1-Feb-84 11:13")

@@ -595,11 +596,11 @@ Either delete this image object or load its support files." IMAGEOBJ)
 (ADDTOVAR LAMA
 IMAGEOBJPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4826 23314 (COPYINSERT 4836 . 6363) (IMAGEBOX 6365 . 6545) (IMAGEFNSCREATE 6547 . 7742)
- (IMAGEFNSP 7744 . 7985) (IMAGEOBJCREATE 7987 . 8532) (IMAGEOBJP 8534 . 8775) (IMAGEOBJPROP 8777 . 
-14669) (\IMAGEUSERPROP 14671 . 15265) (HPRINT.IMAGEOBJ 15267 . 15856) (COPYIMAGEOBJ 15858 . 16601) (
-READIMAGEOBJ 16603 . 21960) (WRITEIMAGEOBJ 21962 . 23312)) (23528 32170 (
-ENCAPSULATEDOBJ.BUTTONEVENTINFN 23538 . 25321) (ENCAPSULATEDOBJ.PUTFN 25323 . 26438) (
-ENCAPSULATEDOBJ.DISPLAYFN 26440 . 28243) (ENCAPSULATEDOBJ.IMAGEBOXFN 28245 . 30421) (ENCAPSULATEDOBJP 
-30423 . 30731) (ENCAPSULATEDIMAGEFNS 30733 . 32168)))))
+  (FILEMAP (NIL (4785 23416 (COPYINSERT 4795 . 6322) (IMAGEBOX 6324 . 6504) (IMAGEFNSCREATE 6506 . 7844)
+ (IMAGEFNSP 7846 . 8087) (IMAGEOBJCREATE 8089 . 8634) (IMAGEOBJP 8636 . 8877) (IMAGEOBJPROP 8879 . 
+14771) (\IMAGEUSERPROP 14773 . 15367) (HPRINT.IMAGEOBJ 15369 . 15958) (COPYIMAGEOBJ 15960 . 16703) (
+READIMAGEOBJ 16705 . 22062) (WRITEIMAGEOBJ 22064 . 23414)) (23630 32272 (
+ENCAPSULATEDOBJ.BUTTONEVENTINFN 23640 . 25423) (ENCAPSULATEDOBJ.PUTFN 25425 . 26540) (
+ENCAPSULATEDOBJ.DISPLAYFN 26542 . 28345) (ENCAPSULATEDOBJ.IMAGEBOXFN 28347 . 30523) (ENCAPSULATEDOBJP 
+30525 . 30833) (ENCAPSULATEDIMAGEFNS 30835 . 32270)))))
 STOP
diff --git a/sources/WINDOWOBJ.LCOM b/sources/WINDOWOBJ.LCOM
index af786f33140d9accd086b7482b384f32fef70fa8..9deb3610dfbd979f29f84d7d236ee7d1ef2f2295 100644
GIT binary patch
delta 294
zcmcbYaw=s)xQL;-u2*S}u91O}iGq=#m8pr9vBkt}gL-pK1ui8+GlZm}g_Vhsm4TU(
zLQ+v`a(-?>W=?8~LTW`pQL(C(f~T*eyQ`aDuyc^BV~DFlW}bqQTd0qZ0<sBudU{F<
zDTyUOZP<)9G*Hsy(s1+iaRnM81vJG)K?$qtsukGH6^xBcO${c;GAhWSTCJ&I6%gba
z=II|Atm^_aWU>OI`Q}%QG0Yrk42%qX&RfGK`?2~;rMOFpNbMI05Zk=UIYTNyDw$#b
ah6N0Mo<3ZY*RzVUaA|0AZ9c&|O$Pw^{!P^Y

delta 334
zcmX?=axY~<xQLOlu46%wu91O}iGrbpm4Stoq4C6QgL*Sf1ui9INdp5b17j;gBPE5T
zqSWO4+=9%U)D(r(ih`nIRVxKoKWE2);7}jO5LXv}C$9j7%sd4pw@@D+1!Oby^z@Vz
zQW8sm8nGH~p`^*B;pXY%>dY483NmW)Oh$7y1!E%<6N|~wj0%3})@UkdggFKUD};Oc
zx%h_zEq3<z4c1h!3J7uy^Yjl5)^!1zqM)Q;s_T-P4DzJ0f{~$>p{bRzg^~i-<c*AS
zjK-TUFvc)*Brq^C@HuY{m~6u8t1A#7wt0hdhE#x5GQ<82%NYDTeRws@6>3<RJ$)VB
ZUETbGLm~rQm1{J4H8goQZ(*IL0|4XtSB?Mx