(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "20-Jul-2022 08:41:05" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>lispusers>EDITKEYS.;3) "20-Jul-2022 00:05:07" brecompiled exprs%: BUILDFNKEYS in "FULL 20-Jul-2022 ..." dated "20-Jul-2022 00:05:12") (FILECREATED "20-Jul-2022 08:41:05" {DSK}kaplan>local>medley3.5>working-medley>lispusers>EDITKEYS.;3 7073 :CHANGES-TO (FNS BUILDFNKEYS) (VARS EDITKEYSCOMS) :PREVIOUS-DATE " 9-Feb-87 21:28:31" {DSK}kaplan>Local>medley3.5>working-medley>lispusers>EDITKEYS.;1) BUILDFNKEYSA0006 :D8 (I 0 X) /`É6gð´g ”@‚@ (44 BKSYSCHARCODE 29 SHIFTDOWNP) (24 SHIFT 16 \TEDIT.PROCENTRYFN 9 PROCESS 4 \TTY.PROCESS) () BUILDFNKEYSA0012 :D8 (I 0 ICONW) &`låjð³` @ ¿ h(33 CURSOR 27 EXPANDW 21 CURSOR) (16 WAITINGCURSOR 4 LASTMOUSEBUTTONS) () BUILDFNKEYS :D8 (P 14 KEY P 12 LST P 9 KEYN P 8 KEY P 0 ICONWINDOW I 2 NROWS I 1 TITLE I 0 KEYS F 15 KEY.TEMPLATE F 16 WBorder F 17 \ORIGKEYACTIONS F 18 \DOVEKEYACTIONS F 19 \DLIONKEYACTIONS) S@`@ALµ‚±—M¹dI¿Almþ ºdJ¿dB¿dg¿dg ¿dg¿jdnÿdh»dK ¿h`l×W @ Öl×ÕlW ÖÔj A o Xdgg H_ Oµ O  W$W&W"h! Oµ!Oh_¿NµOh^½L\±ÿ!O&¾°ö_Oµ2h_µ O_°Èµ O Oµ O h°ª_µ O Oð•O°¹O_°®(320 \KEYNAMETONUMBER 299 CHARCODE.DECODE 282 CHARCODE.DECODE 193 \KEYNAMETONUMBER 178 KEY.BITMAP 166 PUTWINDOWPROP 149 SHRINKW 139 KEY.BITMAP 133 ADDMENU 115 LENGTH 109 BITMAPWIDTH 38 SUBSTRING) (161 BUILDFNKEYSA0012 156 BUTTONEVENTFN 99 SCREENWIDTH 73 DEFAULTMENUHELDFN 64 CLRPROMPT 55 BUILDFNKEYSA0006 7 |MENUTYPE#|) ( 144 (0 . 0)) KEY.BITMAP :D8 (P 3 REGION P 2 QUARTER P 1 DS P 0 BITMAP I 0 X F 4 KEY.TEMPLATE F 5 MENUFONT) iT 1H YUI @d²3¿H lÛº@jJH Jh[I ¿KlJÚ¿@K°jdH H hI H(101 CENTERPRINTINREGION 90 BITMAPHEIGHT 84 BITMAPWIDTH 62 CENTERPRINTINREGION 49 BITMAPWIDTH 34 BITMAPHEIGHT 22 DSPFONT 14 DSPCREATE 5 BITMAPCOPY) NIL () (PRETTYCOMPRINT EDITKEYSCOMS) (RPAQQ EDITKEYSCOMS ((VARS KEY.TEMPLATE) (FNS BUILDFNKEYS KEY.BITMAP) (P (* could have (STRIKEOUT)) ( BUILDFNKEYS (QUOTE ((BOLD BOLD) (ITALICS ITALICS) (UNDERLINE (UNDER- LINE)) (SUPERSCRIPT (SUPER/ SUB)) (LARGER (LARGER SMALLER)) (DEFAULTS DEFAULTS) (CASE CASE) (CENTER JUSTIFY) (AGAIN REDO) (HELP HELP))) (QUOTE (Tedit Keys)) 1)))) (RPAQQ KEY.TEMPLATE #*(78 48)OOOOOOOOOOOOOOOOOOOLON@@@@@@@@@@@@@@@AOLO@@@@@@@@@@@@@@@@@CLO@@@@@@@@@@@@@@@@@CLMH@@@@@@@@@@@@@@@@DLNLGOOOOOOOOOOOOOOHHLMFL@@@@@@@@@@@@@@M@LJK@@@@@@@@@@@@@@@B@DMF@@@@@@@@@@@@@@@A@DJN@@@@@@@@@@@@@@@AHDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMF@@@@@@@@@@@@@@@AHDJJ@@@@@@@@@@@@@@@A@DMG@@@@@@@@@@@@@@@B@DNEL@@@@@@@@@@@@@@O@LLIGOOOOOOOOOOOOOOMHLOBBJJJJJJJJJJJJJJJLLNDEEEEEEEEEEEEEEEEGLOHJJJJJJJJJJJJJJJJKLOLEEEEEEEEEEEEEEEEOLOOOOOOOOOOOOOOOOOOOL ) (BUILDFNKEYS (QUOTE ((BOLD BOLD) (ITALICS ITALICS) (UNDERLINE (UNDER- LINE)) (SUPERSCRIPT (SUPER/ SUB) ) (LARGER (LARGER SMALLER)) (DEFAULTS DEFAULTS) (CASE CASE) (CENTER JUSTIFY) (AGAIN REDO) (HELP HELP)) ) (QUOTE (Tedit Keys)) 1) (PUTPROPS EDITKEYS COPYRIGHT ("Xerox Corporation" 1985 1987)) NIL