1
0
mirror of synced 2026-03-26 18:33:26 +00:00
Files
Interlisp.medley/lispusers/EDITFONT.LCOM
2026-03-17 00:56:53 -07:00

161 lines
9.9 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "16-Mar-2026 23:19:02" ("compiled on " {WMEDLEY}<lispusers>EDITFONT.;42)
"12-Mar-2026 00:11:01" brecompiled exprs%: EDITFONT in "FULL 12-Mar-2026 ..." dated
"12-Mar-2026 00:11:10")
(FILECREATED "16-Mar-2026 23:19:02" {WMEDLEY}<lispusers>EDITFONT.;42 26474 :EDIT-BY rmk :CHANGES-TO (
FNS EDITFONT) (RECORDS CHARITEM) :PREVIOUS-DATE "12-Oct-2025 17:39:29"
{WMEDLEY}<lispusers>EDITFONT.;41)
EF.INIT :D8
(F 2 EF.MENU F 3 EF.TITLEMENU) r`do¿dg ¿dg¿jdnÿdhHdI
¿c`do¿dg ¿dg¿jdnÿdhHdI
¿cNIL
(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 EF.DELETE) "Delete character.") (EDITBM (QUOTE EF.EDITBM) "Edit character.") (REPLACE (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 gð•g@ @gh h(40 PUTWINDOWPROP 28 CLOSEW 9 ASKUSER)
(34 MENU 21 DON'T 14 N)
( 4 "Close Editfont Window?")
EF.CHARITEMS :D8
(P 13 CODE P 9 COL P 6 ROW P 2 C P 1 C8 I 2 ROWMAJOR I 1 CHARSET I 0 FONT) ªB²;lÿjAá3IHóKJ@
IJ@
h½LµMh\»IkÔ¹JkÔº°ÖM&¼°óljNMó³aOljB
OOó³AAáOlÖNØä_@
Od@
h_¿OµOh__¿OkÔ_°ÆO&_¿°òO
_¿NkÔ^°ŸO(156 \NCONC2 112 SLUGCHARP.DISPLAY 103 GETCHARBITMAP 31 SLUGCHARP.DISPLAY 23 GETCHARBITMAP)
NIL
()
EF.BUTTONEVENTFN :D8
(L (0 WINDOW) F 1 EF.TITLEMENU) 4h@
@ @ @ <00>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* F 5 CHARCODE F 6 SLUGCHARP) agQSoQSnÿÿ hTcQcd c¿QR¿QhRUi
oSg
(94 EDITBM 89 CONCAT 84 GETMENUPROP 68 CHARCODE.ENCODE 44 BITMAPCOPY 24 SHADEITEM)
(79 EDITFONTTITLE 4 SHADEITEM)
( 73 " in " 11 (0))
EF.EDITBM :D8
(L (2 CHARSET) P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 BITMAP P 1 CHARCODE P 0 SLUGCHARP I 1 MENU I 0 CHARITEM F 6 LISPXHIST) ;@@V!g ¿$H´A A (56 REDISPLAYW 51 WFROMMENU 45 UPDATE/MENU/IMAGE 31 SI::RESETUNWIND 26 \MVLIST 21 EF.EDITBMA0001)
(16 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
oJ
h XoJ
oJ
h dH
Y@hdI @I¿@hA A h(122 REDISPLAYW 117 WFROMMENU 111 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
(P 2 \INTERRUPTABLE P 1 SLUGBITMAP P 0 WINDOW I 1 MENU I 0 CHARITEM) NA nHg
ÉHg
àÐÉ
Y@I¿@iA A (75 REDISPLAYW 70 WFROMMENU 64 UPDATE/MENU/IMAGE 44 \GETCHARBITMAP.CSINFO 35 GETWINDOWUSERPROP 22 GETWINDOWUSERPROP 5 WFROMMENU)
(30 CHARSET 17 FONT)
()
EF.ENTER :D8
(L (1 MENU 0 CHARITEM) P 1 \INTERRUPTABLE) Xo Xdµoi
¿i °2dò#¿@H¿@hA ¿A †l
h(84 \LISPERROR 76 REDISPLAYW 71 WFROMMENU 64 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) Y A YoI
XdµoI
°2dò#¿@H¿@hA ¿A †l
h(85 \LISPERROR 77 REDISPLAYW 72 WFROMMENU 65 UPDATE/MENU/IMAGE 35 EF.MESSAGE 20 EF.PROMPT 8 WFROMMENU)
(43 BITMAP)
( 29 "Aborted." 14 "New bitmap?")
EF.SAVE :D8
(P 22 C8 P 21 BM P 20 CI P 14 SLUGWIDTH P 13 SLUGOFFSET P 12 SLUGBM P 11 CSINFO P 10 OFFSET P 9 WIDTH P 8 HEIGHT P 7 OFFSETS P 6 WIDTHS P 5 CB P 4 CBHEIGHT P 3 CBWIDTH P 2 CHARSET P 1 CHARITEMS P 0 FONT I 0 WINDOW) @g
@g
@g
jdåI!O&µ‚±nJàÐÉ
_dÈ_KOÔ[LOÈ_ ¿dO ñ¢¿O \KL
]HÉJàÐÉ dM¿_dÉ_OÉ^j_I1O&µ‚±ÁO_OnÐOÍOnkØÐOOØÍOjdMOjOOÈgg
I_"µ‚±ÝOMONOOONHÉJàÐOO_(d³(_*¿KO*ÈØ»LO*È_¿dOñ¢¿O\¿O&_&±þÁ_(d³W_*È_¿O*jdMOjOO*Ègg
¿O(lÿå_,¿OO,ÐOÍ¿NO,ÐOÍ¿OOÔ_¿O&_&±þ×_$²OO$lÿåÐOÍ¿NO$lÿåÐOÍ¿O"±þõ(422 BKBITBLT 240 BKBITBLT 127 COPYALL 113 BITMAPCREATE 67 \GETCHARBITMAP.CSINFO 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(416 REPLACE 411 INPUT 404 BITMAP 382 BITMAP 342 BITMAP 330 BITMAP 297 FONTDESCRIPTOR 288 CHARSETINFO 277 CHARSETINFO 267 CHARSETINFO 257 CHARSETINFO 234 REPLACE 229 INPUT 222 BITMAP 156 CHARSETINFO 145 CHARSETINFO 133 CHARSETINFO 92 BITMAP 75 BITMAP 27 CHARSET 16 CHARITEMS 5 FONT)
()
COPYFONT :D8
(L (0 FONT))
@ (10 COPYALL 5 FONTCREATE)
NIL
()
READSTRIKEFONTFILE :D8
(L (5 CHARSET 4 FONT 3 FILE 2 FACE 1 SIZE 0 FAMILY)) o @ABCDE
(21 FONTCREATE 9 HELP)
NIL
( 4 "USE MEDLEYFONT.READ.FONT")
BLANKCHARSETCREATE :D8
(P 25 W P 24 I P 21 I P 19 FS P 10 CBHEIGHT P 9 CBWIDTH P 8 CB P 7 SLUGOFFSET P 6 WIDTHS P 5 OFFSETS P 4 SLUGWIDTH P 3 CSINFO P 2 FONT P 1 DEVICE P 0 ROTATION I 8 WIDTH I 7 DESCENT I 6 ASCENT I 5 LASTCHAR I 4 FIRSTCHAR I 3 CHARSET I 2 FACE I 1 SIZE I 0 FAMILY) þ C£jb¿D£jb¿E¤lÿb
¿jDElÿ ¯oDEh
¿F¨Fl
¿G©Gl
¿ð@@ABjgC
ZdÞJÉCàÐÉ[¢±¨JJO&ÞO&g
_&<26>O&O&_&¿b¿O&O&_&¿b¿O&O&_&¿b¿O&O&_&¿¸O&Y`dg¿d@¿dA¿dB¿djÍ
¿djÍ ¿@ABjgh_¿dO¿llÿØi
_¿dO¿ºGµAoê b°,h_¿_¿Oµ‚±šiŸG EkØDÙkØð©Gl
¿`dFÍ
¿dGÍ ¿dnÿÿÍ¿lÿlØkØâ _¿dO¿lÿlØkØâ _ ¿dO ¿[dÉ^Gd¢± ¼DkÙjO*O(ó³3NO*ÐLÍ¿O*kÔ_*°í¦O_¿hˆO_¿O_¿O3 ±ÿGh±ÿLGEDO,µlÿEkØO*O(ó²'°T_2¿O0O.ó³äNO0ÐO2Í¿O0kÔ_0¿O,_,°ÊNO*ÐLÍ¿O*kÔ_*°È¼lÿjO*O(ó³NO*ÐGÍ¿O*kÔ_*°ìKÉ]EkØDO*O(ó³ MO*kØÐMO*ÐÈNO*ÐÈØÍ¿O*kÔ_*°ßNnÐLÍMEÐÈNEÐÈØ_MnÐOÍMnkØÐOLØÍDkÙjO*O(ó³MO*ÐOÍ¿O*kÔ_*°ìnEkØO*O(ó³MO*ÐOÍ¿O*kÔ_*°ìJÈ µjKÈ _"¿dO"ñ¢¿O"b JÈ µjKÈ _$¿dO$ñ¢¿O$bFGØ_MnÐÈNnÐÈØ_dO
_nÿÿOOjLOÈg
KOKDE KKÉJJGÍ JJÈ
µjdOñ¢¿OÍ
JÉÉCàÐKJJ ÍJ(1016 \AVGCHARWIDTH 921 \FONTRESETCHARWIDTHS 903 BLTSHADE 872 BITMAPCREATE 435 LAST 403 \ALLOCBLOCK 381 \ALLOCBLOCK 343 \LISPERROR 325 LENGTH 297 FIXR 271 \ALLOCBLOCK 142 FONTPROP 95 \FONT.CHECKARGS 72 \LISPERROR 57 \LISPERROR 44 ERROR 28 <=)
(1010 FONTDESCRIPTOR 996 FONTDESCRIPTOR 989 FONTDESCRIPTOR 968 FONTDESCRIPTOR 962 FONTDESCRIPTOR 952 FONTDESCRIPTOR 943 FONTDESCRIPTOR 933 CHARSETINFO 927 CHARSETINFO 909 CHARSETINFO 897 REPLACE 890 BITMAP 826 CHARSETINFO 815 FONTDESCRIPTOR 794 CHARSETINFO 783 FONTDESCRIPTOR 620 CHARSETINFO 419 CHARSETINFO 349 |CHARSETINFOTYPE#| 245 DISPLAY 208 DISPLAY 201 |FONTDESCRIPTORTYPE#| 137 SPEC 129 FONTDESCRIPTOR 102 FONTDESCRIPTOR 88 DISPLAY)
( 291 0.6 34 "ILLEGAL ARGS")
EDITFONT :D8
(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 4 TITLETAG I 3 NCOLUMNS I 2 ROWMAJOR I 1 CHARSET I 0 FONT) }
@ bdg
gð«@o
¿A µjb  @AB X`d@¿di ¿Cµl_¿dO¿dH¿dg¿dg ¿dg¿jdnÿdh_¿dO
¿Y@g
o@g
o@g
oA DoD
„o
ZIgJ I i
[I \dK
^dNLKh]dJ
_dgH Og@ OgA IOjd Ogg O @(377 MODERNWINDOW 370 PUTWINDOWPROP 353 ADDMENU 342 PUTWINDOWPROP 329 PUTWINDOWPROP 316 PUTWINDOWPROP 302 CREATEW 282 GETBOXPOSITION 274 WIDTHIFWINDOW 269 BITMAPWIDTH 264 CHECK/MENU/IMAGE 257 HEIGHTIFWINDOW 251 BITMAPHEIGHT 246 CHECK/MENU/IMAGE 240 PUTMENUPROP 227 PACK* 215 CONCAT 202 OCTALSTRING 191 FONTFACETOATOM 186 FONTPROP 170 FONTPROP 154 FONTPROP 59 EF.CHARITEMS 43 CHARSET.DECODE 36 ERROR 18 FONTPROP 5 FONTCREATE)
(365 EF.BUTTONEVENTFN 360 BUTTONEVENTFN 336 CHARSET 323 FONT 310 CHARITEMS 234 EDITFONTTITLE 181 FACE 165 SIZE 149 FAMILY 119 DEFAULTMENUHELDFN 110 CLRPROMPT 101 EF.WHENSELECTEDFN 65 |MENUTYPE#| 23 DISPLAY 13 DEVICE)
( 221 "" 209 " " 196 " " 175 " " 159 " " 31 " is not a display font")
(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)) (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 COPYFONT READSTRIKEFONTFILE) (FNS BLANKCHARSETCREATE EDITFONT) (DECLARE%:
EVAL@COMPILE DONTCOPY (RECORDS CHARITEM) (FILES (LOADCOMP) FONT)) (P (EF.INIT))))
(RPAQ? EF.MENU NIL)
(RPAQ? EF.TITLEMENU NIL)
(EF.INIT)
NIL