(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Jul-2022 14:18:56" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>lispusers>EDITFONT.;10) "10-Jul-2022 17:34:41" brecompiled exprs%: READSTRIKEFONTFILE in "FULL 10-Jul-2022 ..." dated "10-Jul-2022 17:34:47") (FILECREATED "12-Jul-2022 14:18:56" {DSK}kaplan>Local>medley3.5>working-medley>lispusers>EDITFONT.;10 28741 :CHANGES-TO (FNS READSTRIKEFONTFILE) (VARS EDITFONTCOMS) :PREVIOUS-DATE "27-Jun-2022 10:59:12" {DSK}kaplan>local>medley3.5>working-medley>lispusers>EDITFONT.;5) EF.INIT :D8 (F 2 EF.MENU F 3 EF.TITLEMENU) s`dodg dgjdndhHdI c`dodg dgjdndhHdI chNIL (85 DEFAULTMENUHELDFN 76 CLRPROMPT 60 |MENUTYPE#| 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 67 ((SAVE (QUOTE EF.SAVE) "Save EDITFONT's work back into font.")) 11 ((CHANGESIZE (QUOTE EF.CHANGESIZE) "Change size of character.") (DELETE (QUOTE (QUOTE EF.DELETE)) "Delete character.") (EDITBM (QUOTE (QUOTE EF.EDITBM)) "Edit character.") (REPLACE (QUOTE (QUOTE EF.REPLACE)) "Prompt for bitmap to replace character."))) EF.PROMPTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 PROMPTW) 4gQ hhPcg` hhPcQ (49 TTYINREAD 34 TTY.PROCESS 10 TTYDISPLAYSTREAM) (29 \RUNNING.PROCESS 24 TTY.PROCESS 4 TTYDISPLAYSTREAM) () EF.PROMPT :D8 (L (1 WINDOW 0 STRING) P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 0 PROMPTW F 5 LISPXHIST) N A Xd @H oH U!g $YH I (75 EVAL 69 TERPRI 57 SI::RESETUNWIND 52 \MVLIST 47 EF.PROMPTA0001 33 PRIN1 22 PRIN1 15 CLEARW 8 GETPROMPTWINDOW) (42 SI::RESETUNWIND) ( 27 " ") EF.MESSAGE :D8 (L (1 WINDOW 0 STRING)) A X@H h(16 PRIN1 8 GETPROMPTWINDOW) NIL () EF.CLOSEFN :D8 (L (0 WINDOW)) ,o gg@ @gh h(40 PUTWINDOWPROP 28 CLOSEW 9 ASKUSER) (34 MENU 21 DON'T 14 N) ( 4 "Close Editfont Window?") EF.CHARITEMS :D8 (L (3 CHARSET 2 TOCHAR8CODE 1 FROMCHAR8CODE 0 FONT)) n@ \dnihhdM]nCAXnCBY@C C@h Zdn[HI_NO/JOKLOihO@ OhdhMOm_M(112 GETCHARBITMAP 61 \CREATECHARSET 11 GETCHARBITMAP) (66 CHARSETINFO) () EF.BUTTONEVENTFN :D8 (L (0 WINDOW) F 1 EF.TITLEMENU) 4h@ @ @ @ Q X@kHh(40 MENU 33 MENUBUTTONFN 26 INSIDEP 21 LASTMOUSEY 15 LASTMOUSEX 9 DSPCLIPPINGREGION) NIL () EF.WHENSELECTEDFN :D8 (L (2 KEY 1 MENU 0 CHARITEM)) '@$Bdg@A g @A h(35 EF.MIDDLEBUTTONFN 19 EF.EDITBM) (25 MIDDLE 9 LEFT) () EF.EDITBMA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 1 CHARITEM F 2 BITMAP F 3 MENU F 4 SI::*RESETFORMS*) VgQSoQSn hTcQcQnj Qd cQRQhR (83 EDITBM 60 COPYALL 24 SHADEITEM) (4 SHADEITEM) ( 11 (0)) EF.EDITBM :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 BITMAP I 1 MENU I 0 CHARITEM F 4 LISPXHIST) AT!g $@njA A h(61 REDISPLAYW 56 WFROMMENU 49 UPDATE/MENU/IMAGE 26 SI::RESETUNWIND 21 \MVLIST 16 EF.EDITBMA0001) (11 SI::RESETUNWIND) () EF.MIDDLEBUTTONFN :D8 (L (1 MENU 0 CHARITEM) F 1 EF.MENU) Q Xd @AlHh(8 MENU) NIL () EF.CHANGESIZE :D8 (L (1 MENU 0 CHARITEM) P 3 \INTERRUPTABLE) 0A ZoJ doJ h XoJ doJ h dH Y@hdI @I@hA A h(123 REDISPLAYW 118 WFROMMENU 112 UPDATE/MENU/IMAGE 92 BKBITBLT 81 BITMAPCREATE 74 EVAL 67 EF.MESSAGE 53 EF.PROMPT 41 EVAL 34 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU) NIL ( 61 "Aborted." 47 "New width?" 28 "Aborted." 14 "New height?") EF.DELETE :D8 (L (1 MENU 0 CHARITEM) P 1 \INTERRUPTABLE) ?A dg d X@H@iA A h(59 REDISPLAYW 54 WFROMMENU 48 UPDATE/MENU/IMAGE 25 LAST 19 GETWINDOWUSERPROP 8 WFROMMENU) (14 CHARITEMS) () EF.ENTER :D8 (L (1 MENU 0 CHARITEM) P 1 \INTERRUPTABLE) Yo Xdoi i 3d$@H@hA A l h(85 \LISPERROR 77 REDISPLAYW 72 WFROMMENU 65 UPDATE/MENU/IMAGE 34 TERPRI 27 PRIN1 12 EF.PROMPT) (42 BITMAP) ( 21 "Aborted." 7 "Enter new bitmap (evaluated):") EF.REPLACE :D8 (L (1 MENU 0 CHARITEM) P 2 \INTERRUPTABLE) Z A YoI XdoI 3d$@H@hA A l h(86 \LISPERROR 78 REDISPLAYW 73 WFROMMENU 66 UPDATE/MENU/IMAGE 35 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU) (43 BITMAP) ( 29 "Aborted." 14 "New bitmap?") EF.SAVE :D8 (L (0 WINDOW) P 28 \INTERRUPTABLE) U@g X@g Yj[d\HnjO0`I_ dO I _"dO" llk _$dO$llk _&dO&_d^O]j_KH _KL ZHnjO0Hh_*_(Hhl_H _,Jhl_HOJOMONOOO OMh_6O4O2O6dO4dnj-O6_KOػLO_dOOO4k_4O0_0_6O4O2+O6__O_MO4OO6O4njNO4O/NO4OOjdJOjOOgg OO_O4k_4O0_0_*O*iO(_.O.iO,(519 BKBITBLT 304 \FONTRESETCHARWIDTHS 233 REVERSE 185 BITMAPCREATE 166 LAST 126 \ALLOCBLOCK 104 \ALLOCBLOCK 28 GETWINDOWUSERPROP 16 GETWINDOWUSERPROP) (513 REPLACE 508 INPUT 441 BITMAP 429 BITMAP 377 BITMAP 365 BITMAP 312 CHARSETINFO 289 CHARSETINFO 278 CHARSETINFO 267 CHARSETINFO 173 BITMAP 153 CHARSETINFO 143 CHARSETINFO 80 FONTDESCRIPTOR 63 FONTDESCRIPTOR 56 |CHARSETINFOTYPE#| 23 FONT 11 CHARITEMS) () EF.BLANK :D8 (L (7 WIDTH 6 DESCENT 5 ASCENT 4 LASTCHAR 3 FIRSTCHAR 2 FACE 1 SIZE 0 FAMILY)) N!@ bA3 Al B bCCl DDl EEl FFl G3 6Gd(h__hG DjCkkjGl `dE dF llk _dOllk _dOYdZGnj_"_ O"O  I\DkC_&_$O&O$LDk]Ckj_*_(O*O(nDk_._,O.O,EF_LnJndO ^INICD II`dgd@dAdBdjdj dj dj @ABjgh_0dO0lki _2dO2XdHI _4dO4O4HH I _6dO6O6 HH I I _8dO8O8 HIHH H_3 OiO Ckj__OOJOKOk_GDC O:nDk__OO'._@O>OO@O>k_>O:_:JOKOk_JO"GO"k_"LO&kLO&JO&O&k_&LO*MO*k_*LO.MO.k_.(642 LAST 611 \AVGCHARWIDTH 464 \ALLOCBLOCK 364 \FONTRESETCHARWIDTHS 346 BITMAPCREATE 195 \ALLOCBLOCK 173 \ALLOCBLOCK 143 \LISPERROR 121 LENGTH 85 \LISPERROR 72 \LISPERROR 59 \LISPERROR 46 \LISPERROR 32 \FONTFACE 25 \LISPERROR 11 U-CASE) (605 FONTDESCRIPTOR 594 FONTDESCRIPTOR 572 CHARSETINFO 564 CHARSETINFO 556 FONTDESCRIPTOR 550 FONTDESCRIPTOR 529 CHARSETINFO 521 FONTDESCRIPTOR 515 FONTDESCRIPTOR 494 CHARSETINFO 486 FONTDESCRIPTOR 480 FONTDESCRIPTOR 439 DISPLAY 392 DISPLAY 385 |FONTDESCRIPTORTYPE#| 376 CHARSETINFO 370 CHARSETINFO 353 CHARSETINFO 248 CHARSETINFO 211 CHARSETINFO 149 |CHARSETINFOTYPE#|) () COPYFONT :D8 (L (0 FONT))  `@ Xlki Y@Zlj__OOHJO\`L dM L dN L _dOllk _dOllk _dO[LnkĿKLnkĿKKIOKOk_<(154 \ALLOCBLOCK 132 \ALLOCBLOCK 110 COPYALL 24 \ALLOCBLOCK 13 NCREATE2) (221 CHARSETINFO 215 CHARSETINFO 200 CHARSETINFO 192 CHARSETINFO 177 CHARSETINFO 169 CHARSETINFO 103 CHARSETINFO 89 CHARSETINFO 75 CHARSETINFO 68 |CHARSETINFOTYPE#| 31 FONTDESCRIPTOR 7 |FONTDESCRIPTORTYPE#|) () READSTRIKEFONTFILE :D8 (P 1 CSINFO P 0 STRM I 5 CHARSET I 4 FONT I 3 FILE I 2 FACE I 1 SIZE I 0 FAMILY) Ejb @Cgg Xd H H@AB YH D[`dgd@dAdBdjdj dj dj @ABjghdJlki dKbIE D(146 \INSTALLCHARSETINFO 131 \ALLOCBLOCK 47 CLOSEF 40 \READSTRIKEFONTFILE 24 OPENSTREAM) (109 DISPLAY 62 DISPLAY 55 |FONTDESCRIPTORTYPE#| 19 OLD 14 INPUT) () BLANKFONTCREATE :D8 (L (7 WIDTH 6 DESCENT 5 ASCENT 4 LASTCHAR 3 FIRSTCHAR 2 FACE 1 SIZE 0 FAMILY)) @ABCDEFG (14 EF.BLANK) NIL () EDITFONT :D8 (P 12 ATOM P 7 WINDOW P 6 POS P 5 REGION P 4 WIDTH P 3 HEIGHT P 2 TITLE P 1 MENU P 0 CHARITEMS I 3 CHARSET I 2 TOCHARCODE I 1 FROMCHARCODE I 0 FONT) 7 @ bAjbBlbCjb@ABC X`d@di dldHdgdg dgjdndh_dO Y@g @g 0 @g $d O _O Oh_O&_O ZI i [I \dK ^dNLKh]dJ _dgH IOjd Ogg h(307 PUTWINDOWPROP 290 ADDMENU 279 PUTWINDOWPROP 265 CREATEW 245 GETBOXPOSITION 237 WIDTHIFWINDOW 232 BITMAPWIDTH 227 CHECK/MENU/IMAGE 220 HEIGHTIFWINDOW 214 BITMAPHEIGHT 209 CHECK/MENU/IMAGE 202 PACK* 197 PACKC 164 CHCON1 150 FONTPROP 136 FONTPROP 125 FONTPROP 38 EF.CHARITEMS 5 FONTCREATE) (302 EF.BUTTONEVENTFN 297 BUTTONEVENTFN 273 CHARITEMS 145 FACE 131 SIZE 120 FAMILY 90 DEFAULTMENUHELDFN 81 CLRPROMPT 72 EF.WHENSELECTEDFN 44 |MENUTYPE#|) () (PRETTYCOMPRINT EDITFONTCOMS) (RPAQQ EDITFONTCOMS ((* EDITFONT -- By Kelly Roach. Need to LOAD EXPORTS.ALL in order to compile this file. *) (INITVARS (EF.MENU NIL) (EF.TITLEMENU NIL)) (RECORDS CHARITEM) (FNS EF.INIT EF.PROMPT EF.MESSAGE EF.CLOSEFN EF.CHARITEMS EF.BUTTONEVENTFN EF.WHENSELECTEDFN EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.ENTER EF.REPLACE EF.SAVE EF.BLANK COPYFONT READSTRIKEFONTFILE) (FNS BLANKFONTCREATE EDITFONT) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (BITSPERWORD 16) (BYTESPERWORD 2 ) (MAXCODE 255) (DUMMYINDEX 256)) (FILES (LOADCOMP) FONT)) (P (EF.INIT)))) (RPAQ? EF.MENU NIL) (RPAQ? EF.TITLEMENU NIL) (RECORD CHARITEM (BITMAP (CHARCODE DUMMYFLG))) (EF.INIT) (PUTPROPS EDITFONT COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL