(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "18-Jul-2023 12:27:55" ("compiled on " {DSK}frank>il>medley>gmedley>lispusers>EVALOBJ.;2) "20-Jan-2023 22:50:00" tcompl'd in "APPS 20-Jan-2023 ..." dated "20-Jan-2023 22:50:04") (FILECREATED "18-Jul-2023 12:27:33" {DSK}frank>il>medley>gmedley>lispusers>EVALOBJ.;2 15110 :CHANGES-TO (VARS EVALOBJCOMS) :PREVIOUS-DATE "11-May-2018 08:22:13" {DSK}frank>il>medley>gmedley>lispusers>EVALOBJ.;1) EVALOBJ.BUTTONEVENTINFN :D8 (P 2 *READTABLE* I 1 STREAM I 0 OBJ) `dodg dgjdndhHdI  O@g`@g hghdo  @gh g(132 IMAGEOBJPROP 120 IMAGEOBJPROP 114 EDITE 95 COPY 90 IMAGEOBJPROP 65 ALLOW.BUTTON.EVENTS 58 MENU) (137 CHANGED 126 EVALUATED 101 Evaluation% Form 85 OBJECTDATUM 76 FILERDTBL 71 OBJECTDATUM 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 108 (:CLOSE-ON-COMPLETION) 11 ((|Edit evaulation form| T " Opens a window to edit the evaluation form"))) EVALOBJ.DISPLAYFN :D8 (P 2 FORM/FN P 0 FONT I 1 IMAGESTREAM I 0 OBJ F 3 TEXTSTREAM) A g?oA oA @g A oA HA @g IoIIgi@g Jd3@AS@lJJ (147 EVAL 123 IMAGEOBJPROP 85 IMAGEOBJPROP 73 DSPFONT 66 PRIN3 55 PRIN4 49 IMAGEOBJPROP 38 PRIN3 24 DSPFONT 5 IMAGESTREAMTYPE) (118 OBJECTDATUM 105 HARDCOPY 80 WHEN 44 OBJECTDATUM 10 DISPLAY) ( 94 (NIL HARDCOPY) 60 "}" 32 "{Eval: " 18 (TERMINAL 10)) EVALOBJ.IMAGEBOXFN :D8 (P 1 FONT P 0 FORM/FN I 3 RIGHTMARGIN I 2 CURRENTX I 1 IMAGESTREAM I 0 OBJ F 2 TEXTSTREAM) @g g@@g 3@g Hd3@AR@lHH @gi A gNo oI @g Iio I I jhjdddh(146 STRINGWIDTH 141 FIND-READTABLE 129 IMAGEOBJPROP 118 STRINGWIDTH 104 FONTCREATE 86 IMAGESTREAMTYPE 79 IMAGEOBJPROP 66 EVAL 42 IMAGEOBJPROP 29 IMAGEOBJPROP 10 IMAGEOBJPROP) (161 FONTDESCRIPTOR 153 FONTDESCRIPTOR 124 OBJECTDATUM 91 DISPLAY 73 EVALUATED 37 OBJECTDATUM 24 EVALUATED 15 CREATE/LOAD 5 WHEN) ( 136 "INTERLISP" 112 "{Eval: }" 99 (TERMINAL 10)) EVALOBJ.COPYFN :D8 (I 0 OBJ) "@g @g (31 EVALOBJ.CREATE 26 IMAGEOBJPROP 15 COPY 10 IMAGEOBJPROP) (21 WHEN 5 OBJECTDATUM) () EVALOBJ.CREATE :D8 (P 0 OBJ I 2 TEXTSTREAM I 1 WHEN I 0 FORM) ~@ @d3@@` Hgg Hgg HgA B-Ag$@d3@hBHl@@ Hgi H(122 IMAGEOBJPROP 109 EVAL 76 IMAGEOBJPROP 64 IMAGEOBJPROP 48 IMAGEOBJPROP 29 IMAGEOBJCREATE 7 ERROR!) (116 EVALUATED 85 CREATE/LOAD 70 WHEN 59 TRUE 54 TEDIT-TO-TEX-FN 43 EVALOBJ.DISMANTLEFN 38 DISMANTLEFN 24 EVALOBJ.IMAGEFNS) () EVALOBJ.GETFN :D8 (P 2 WHEN P 1 FORM P 0 DATA I 1 TEXTSTREAM I 0 FILESTREAM) %@ !Hd3@HYHHIJA (34 EVALOBJ.CREATE 5 HREAD) NIL () EVALOBJ.PUTFN :D8 (I 1 STREAM I 0 OBJ) !@g @g hA (30 HPRINT 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (16 WHEN 5 OBJECTDATUM) () PARAMS :D8 (P 3 PCELL P 2 P P 1 PROP I 0 PARAMS F 4 TEXTSTREAM) @Tg h "HTgI IZdd$JhZd3@JihZJo JIJKJJhIJKHXI (126 DREMOVE 80 PROMPTPRINT 36 STREAMPROP 17 \APPEND2 11 STREAMPROP) (30 PARAMETERS 6 PARAMETERS) ( 75 " is not a valid text parameter") TEXTSTREAMPARAM :D8 (I 1 DEFAULTVALUE I 0 PARAMNAME F 0 TEXTSTREAM) (g P @Pg A(30 STREAMPROP 17 STREAMP 9 BOUNDP) (25 PARAMETERS 4 TEXTSTREAM) () EVALOBJ.DISMANTLEFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTSTREAM F 1 SI::*RESETFORMS* F 2 OBJ) Bgd gh QclhP Rg P hddP (63 PRINTDEF 53 POSITION 47 IMAGEOBJPROP 36 TAB 22 SETTOPVAL 10 GETTOPVAL) (42 OBJECTDATUM 16 %#RPARS 4 %#RPARS) () EVALOBJ.DISMANTLEFN :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 CHAR# I 1 OBJ I 0 TEXTSTREAM F 3 LISPXHIST) '@Bk S!g $(32 SI::RESETUNWIND 27 \MVLIST 22 EVALOBJ.DISMANTLEFNA0001 8 SETFILEPTR) (17 SI::RESETUNWIND) () EVALOBJ.SELTOOBJ :D8 (P 0 OBJ I 2 WHEN I 1 SELECTION I 0 TEXTSTREAM) N@A @oi @A o o B@ H@A (75 REPLACESELWITHOBJ 64 EVALOBJ.CREATE 57 READ 52 FIND-READTABLE 42 OPENSTRINGSTREAM 37 CONCAT 27 TEDIT.SEL.AS.STRING 19 TEDIT.PROMPTPRINT 6 COLLECTIMOBJSINSEL) NIL ( 47 "INTERLISP" 32 "]]]]]" 13 "Evaluation form can't contain image object") (PRETTYCOMPRINT EVALOBJCOMS) (RPAQQ EVALOBJCOMS ((FILES IMOBJAPPLICATION) (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES (FROM LOADUPS) EXPORTS.ALL)) (FNS EVALOBJ.BUTTONEVENTINFN EVALOBJ.DISPLAYFN EVALOBJ.IMAGEBOXFN EVALOBJ.COPYFN EVALOBJ.CREATE EVALOBJ.GETFN EVALOBJ.PUTFN) (FNS PARAMS TEXTSTREAMPARAM) (COMS (FNS EVALOBJ.DISMANTLEFN EVALOBJ.SELTOOBJ) (P (AND (GETD (QUOTE ADDTOIMOBJAPPLICATIONMENU)) ( ADDTOIMOBJAPPLICATIONMENU (QUOTE (Eval% form (QUOTE EVALOBJ.SELTOOBJ) "Converts current selection to an evaluation object" (SUBITEMS (|Eval at Create/Load| (FUNCTION ( LAMBDA (TEXTSTREAM SELECTION) (EVALOBJ.SELTOOBJ TEXTSTREAM SELECTION (QUOTE CREATE/LOAD))))) ( |Eval at Hardcopy| (FUNCTION (LAMBDA (TEXTSTREAM SELECTION) (EVALOBJ.SELTOOBJ TEXTSTREAM SELECTION ( QUOTE HARDCOPY)))))))))))) (INITVARS (EVALOBJ.IMAGEFNS (IMAGEFNSCREATE (QUOTE EVALOBJ.DISPLAYFN) ( QUOTE EVALOBJ.IMAGEBOXFN) (QUOTE EVALOBJ.PUTFN) (QUOTE EVALOBJ.GETFN) (QUOTE EVALOBJ.COPYFN) (QUOTE EVALOBJ.BUTTONEVENTINFN) NIL NIL NIL NIL NIL NIL (QUOTE (LAMBDA (OBJ) ""))))) (GLOBALVARS EVALOBJ.IMAGEFNS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PARAMS ) (NLAML) (LAMA))))) (FILESLOAD IMOBJAPPLICATION) (AND (GETD (QUOTE ADDTOIMOBJAPPLICATIONMENU)) (ADDTOIMOBJAPPLICATIONMENU (QUOTE (Eval% form (QUOTE EVALOBJ.SELTOOBJ) "Converts current selection to an evaluation object" (SUBITEMS ( |Eval at Create/Load| (FUNCTION (LAMBDA (TEXTSTREAM SELECTION) (EVALOBJ.SELTOOBJ TEXTSTREAM SELECTION (QUOTE CREATE/LOAD))))) (|Eval at Hardcopy| (FUNCTION (LAMBDA (TEXTSTREAM SELECTION) (EVALOBJ.SELTOOBJ TEXTSTREAM SELECTION (QUOTE HARDCOPY)))))))))) (RPAQ? EVALOBJ.IMAGEFNS (IMAGEFNSCREATE (QUOTE EVALOBJ.DISPLAYFN) (QUOTE EVALOBJ.IMAGEBOXFN) (QUOTE EVALOBJ.PUTFN) (QUOTE EVALOBJ.GETFN) (QUOTE EVALOBJ.COPYFN) (QUOTE EVALOBJ.BUTTONEVENTINFN) NIL NIL NIL NIL NIL NIL (QUOTE (LAMBDA (OBJ) "")))) NIL