(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "18-Mar-2022 21:45:55" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;8) "17-Mar-2022 23:16:03" brecompiled exprs%: READIMAGEOBJ in "FULL 17-Mar-2022 ..." dated "17-Mar-2022 23:16:09") (FILECREATED "18-Mar-2022 21:45:55" {DSK}kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;8 28006 :CHANGES-TO (FNS READIMAGEOBJ) :PREVIOUS-DATE "17-Mar-2022 22:48:26" {DSK}kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;7) COPYINSERT :D8 (P 3 IMOBJ P 1 INSERTFN P 0 TTYW I 0 IMAGEOBJ)  Hg Y!@JdhJKHlI@JhJhJJK !Kg YKkIKg Koioi (157 BKSYSBUF 152 PROCESS.EVAL 141 TTY.PROCESS 126 IMAGEOBJPROP 107 IMAGEOBJPROP 94 IMAGEOBJP 33 GETWINDOWUSERPROP 19 \INSUREWINDOW 14 WFROMDS 9 PROCESS.TTY 4 TTY.PROCESS) (121 OBJECTDATUM 102 PREPRINTFN 28 COPYINSERTFN) ( 146 (GETREADTABLE) 135 "") IMAGEBOX :D8 (I 2 MODE I 1 STREAM I 0 OBJ) @g @ABlH(10 IMAGEOBJPROP) (5 IMAGEBOXFN) () IMAGEFNSCREATE :D8 (I 13 CLASSNAME I 12 PREPRINTFN I 11 WHENOPERATEDONFN I 10 WHENCOPIEDFN I 9 WHENDELETEDFN I 8 WHENINSERTEDFN I 7 WHENMOVEDFN I 6 COPYBUTTONEVENTINFN I 5 BUTTONEVENTINFN I 4 COPYFN I 3 GETFN I 2 PUTFN I 1 IMAGEBOXFN I 0 DISPLAYFN F 0 IMAGEOBJGETFNS) `CP`d@dAdBdCdDdE dF dGdGdGdGdGdGPChPcNIL (7 |IMAGEFNSTYPE#|) () IMAGEFNSP :D8 (I 0 X) @@NIL (5 IMAGEFNS) () IMAGEOBJCREATE :D8 (I 1 IMAGEFNS I 0 OBJECTDATUM) %A A `d@dhdA(12 \ILLEGAL.ARG 5 IMAGEFNSP) (18 |IMAGEOBJTYPE#|) () IMAGEOBJP :D8 (I 0 X) @@NIL (5 IMAGEOBJ) () IMAGEOBJPROP :D8 (P 5 IMAGEFNS P 4 SET? P 3 VAL P 2 PROP P 1 IMAGEOBJ P 0 NARGS) eHjHkh kalaHllaHlhI I I]JdgILIKgMLMKJdgMLMKgMLMKJdgMLMKgMLMKJdgM LMK gM LMK JdgMLMKgMLMKJdgMLMKgMLMKJdgMLMKgMLMKJgMLMKIJKL (530 \IMAGEUSERPROP 54 \ILLEGAL.ARG 47 IMAGEOBJP 17 \ILLEGAL.ARG) (516 IMAGEFNS 506 IMAGEFNS 497 IMAGECLASSNAME 486 IMAGEFNS 476 IMAGEFNS 467 PREPRINTFN 457 IMAGEFNS 447 IMAGEFNS 437 WHENOPERATEDONFN 425 IMAGEFNS 415 IMAGEFNS 406 WHENCOPIEDFN 396 IMAGEFNS 386 IMAGEFNS 376 WHENDELETEDFN 364 IMAGEFNS 354 IMAGEFNS 345 WHENINSERTEDFN 335 IMAGEFNS 325 IMAGEFNS 315 WHENMOVEDFN 303 IMAGEFNS 293 IMAGEFNS 284 COPYBUTTONEVENTINFN 274 IMAGEFNS 264 IMAGEFNS 254 BUTTONEVENTINFN 242 IMAGEFNS 232 IMAGEFNS 223 COPYFN 213 IMAGEFNS 203 IMAGEFNS 193 GETFN 181 IMAGEFNS 171 IMAGEFNS 162 PUTFN 152 IMAGEFNS 142 IMAGEFNS 132 IMAGEBOXFN 120 IMAGEFNS 110 IMAGEFNS 101 DISPLAYFN 91 IMAGEOBJ 81 IMAGEOBJ 71 OBJECTDATUM 61 IMAGEOBJ) () \IMAGEUSERPROP :D8 (P 0 PLIST I 3 SET? I 2 VAL I 1 PROP I 0 IMAGEOBJ) -@HA'CH@ABhAB (41 LISTPUT) (25 IMAGEOBJ 5 IMAGEOBJ) () HPRINT.IMAGEOBJ :D8 (I 1 STREAM I 0 IMAGEOBJ) 8@hA` @@AlHi(27 PRIN2) (40 IMAGEFNS 33 IMAGEOBJ 22 HPRINTRDTBL 12 IMAGEFNS 5 IMAGEOBJ) () COPYIMAGEOBJ :D8 (I 1 TO I 0 FROM) 8A@A@A@HIINIL (43 IMAGEOBJ 37 IMAGEOBJ 27 IMAGEOBJ 21 IMAGEOBJ 11 IMAGEOBJ 5 IMAGEOBJ) () READIMAGEOBJA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 GETFN F 4 SI::NLSETQ-VALUE) i@RkShcgNIL (18 :NORMAL) () READIMAGEOBJ :D8 (P 6 OBJ P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 SUPPORTFILE P 0 UNDERREADIMAGEOBJ I 3 DATANBYTES I 2 NOERROR I 1 GETFN I 0 STREAM F 7 IMAGEOBJGETFNS F 8 *PROCEED-CASES* F 9 *CONDITION-HANDLER-BINDINGS*) iAA ]AWg'Agi Agi Y1oAoIo hdd oIh A5A -`WioWK gJaBhA Ng@ @ Ng@ NgC NgA C@d C N(255 SETFILEPTR 248 GETFILEPTR 239 IMAGEOBJPROP 227 IMAGEOBJPROP 215 IMAGEOBJPROP 210 GETFILEPTR 198 IMAGEOBJPROP 192 FULLNAME 177 IMAGEOBJCREATE 172 ENCAPSULATEDIMAGEFNS 147 READIMAGEOBJA0001 116 \DEFINEDP 106 DOFILESLOAD 91 MOUSECONFIRM 83 CONCAT 56 WHEREIS 41 WHEREIS 14 \DEFINEDP) (233 UNKNOWNGETFN 221 OBJSIZE 204 FILEPTR 186 FILE 153 :NORMAL 126 SI::NLSETQ-PROCEED-CASE 50 FUNCTIONS 35 FNS 26 FILE) ( 135 (CL:ERROR . SI::NLSETQHANDLER) 97 (SYSLOAD) 77 "?" 71 ". Shall I load the support file, " 65 "Trying to read an IMAGEOBJ with GETFN ") WRITEIMAGEOBJ :D8 (I 1 STREAM I 0 IMAGEOBJ) u@o@ gh@Hddi3 gHhhA` @@AlHi(88 PRIN2 26 HELP) (101 IMAGEFNS 94 IMAGEOBJ 83 HPRINTRDTBL 68 QUOTE 46 IMAGEFNS 39 IMAGEOBJ 32 READIMAGEOBJ 12 IMAGEFNS 5 IMAGEOBJ) ( 20 "No GETFN for IMAGEOBJ ") ENCAPSULATEDOBJ.BUTTONEVENTINFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 OBJ I 0 SI::*CLEANUP-FORMS* F 1 IMAGEOBJ F 2 STREAM F 3 WINDOW F 4 A19943) dRQg RQg iQg H"oS h hc$Q g(90 COPYIMAGEOBJ 76 \MVLIST 68 PRIN1 63 GETPROMPTWINDOW 46 READIMAGEOBJ 41 IMAGEOBJPROP 29 IMAGEOBJPROP 16 SETFILEPTR 11 IMAGEOBJPROP) (96 CHANGED 36 ENDOFOBJFILEPTR 24 UNKNOWNGETFN 6 FILEPTR) ( 57 "Still no support for this image object.") ENCAPSULATEDOBJ.BUTTONEVENTINFNA0002 :D8 (F 0 STREAM F 1 A19943) PgQ (11 CL:CLOSE) (5 :ABORT) () ENCAPSULATEDOBJ.BUTTONEVENTINFN :D8 (P 1 A19943 P 0 STREAM I 1 WINDOW I 0 IMAGEOBJ) 5@g ig HgI $(46 CL:CLOSE 34 \MVLIST 29 ENCAPSULATEDOBJ.BUTTONEVENTINFNA0001 15 OPEN 10 IMAGEOBJPROP) (40 :ABORT 24 ENCAPSULATEDOBJ.BUTTONEVENTINFNA0002 5 FILE) () ENCAPSULATEDOBJ.PUTFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 INSTREAM F 1 STREAM F 2 A19944 F 3 BEGOFOBJ F 4 DATANBYTES) PQSdT hc$(15 \MVLIST 10 COPYBYTES) NIL () ENCAPSULATEDOBJ.PUTFNA0002 :D8 (F 0 INSTREAM F 1 A19944) PgQ (11 CL:CLOSE) (5 :ABORT) () ENCAPSULATEDOBJ.PUTFN :D8 (P 5 A19944 P 4 INSTREAM P 3 INSTREAM P 2 BEGOFOBJ P 1 FILE P 0 DATANBYTES I 1 STREAM I 0 IMAGEOBJ) f@g @g @g H3o@ 1Ig ig LgM $h(94 CL:CLOSE 82 \MVLIST 77 ENCAPSULATEDOBJ.PUTFNA0001 63 OPENSTREAM 50 ERROR 32 IMAGEOBJPROP 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (88 :ABORT 72 ENCAPSULATEDOBJ.PUTFNA0002 58 INPUT 27 FILEPTR 16 FILE 5 OBJSIZE) ( 44 "No length information for this image object. Either delete this image object or load its support files.") ENCAPSULATEDOBJ.DISPLAYFN :D8 (P 8 YSIZE P 7 XSIZE P 6 OBJBOX P 5 TYPE P 4 GETFN P 3 OLDFONT P 2 FONT P 1 CURY P 0 CURX I 1 STREAM I 0 OBJ) % hA hA glghA JA @g @g @g !Nl_Nl_lJ lA oA HlIlA oA LA HINA OjlgAho jOlgAho jOjlgAho jdOlgAho KA (290 DSPFONT 283 RELDRAWTO 258 RELDRAWTO 233 RELDRAWTO 210 RELDRAWTO 187 MOVETO 174 PRIN1 166 PRIN1 155 MOVETO 141 PRIN1 130 RELMOVETO 91 IMAGEOBJPROP 77 IMAGEOBJPROP 63 IMAGEOBJPROP 49 DSPFONT 39 FONTCREATE 16 DSPYPOSITION 6 DSPXPOSITION) (270 PAINT 245 PAINT 220 PAINT 197 PAINT 119 FONTDESCRIPTOR 86 BOUNDBOX 72 TYPE 58 UNKNOWNGETFN 31 BOLD 24 HELVETICA) ( 277 (16 8 8 8) 252 (16 8 8 8) 227 (16 8 8 8) 204 (16 8 8 8) 160 "GETFN: " 135 "Unknown IMAGEOBJ type") ENCAPSULATEDOBJ.IMAGEBOXFN :D8 (P 3 HEIGHT P 2 WIDTH P 1 GETFN P 0 FONT I 1 STREAM I 0 OBJ) cglghA @g 2lH [oH oI H dLLZdlKljdh(73 STRINGWIDTH 67 CONCAT 56 STRINGWIDTH 30 IMAGEOBJPROP 19 FONTCREATE) (41 FONTDESCRIPTOR 25 UNKNOWNGETFN 11 BOLD 4 HELVETICA) ( 61 "GETFN: " 50 "Unknown IMAGEOBJ type") ENCAPSULATEDIMAGEFNS :D8 (I 0 GETFN) F@`