(FILECREATED "15-Dec-86 15:28:44" ("compiled on " {ERIS}KOTO>LISPUSERS>KEYOBJ.;1) "14-Dec-86 18:23:34" bcompl'd in "Xerox Lisp 14-Dec-86 ..." dated "14-Dec-86 19:02:05") (FILECREATED "19-Nov-85 12:22:23" {ERIS}GREGCO>KEYOBJ.;3 10904 changes to: (FNS KEYOBJ.BUTTONEVENTINFN KEYOBJ.CREATE) previous date: "28-Jan-85 01:34:31" {ERIS}KOTO>LISPUSERS>KEYOBJ.;1) KEYOBJ.BUTTONEVENTINFN D4 (P 4 Y P 3 X P 2 IMAGEBOX P 1 ABORTABLE P 0 KEYNUMBER I 7 BUTTON I 6 TEXTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SEL I 1 WINDOWSTREAM I 0 KEYOBJ) @g @g @g #@gg @gF  @Ahdi IHi `lj@gg @Ahdi E [E \KJjKdJjLIHi H g(142 \DECODETRANSITION 137 \DECODETRANSITION 108 LASTMOUSEY 103 LASTMOUSEX 99 KEYOBJ.DISPLAYFN 90 IMAGEOBJPROP 69 GETMOUSESTATE 65 \DECODETRANSITION 58 KEYOBJ.DISPLAYFN 49 IMAGEOBJPROP 41 TEXTOBJ 33 IMAGEOBJPROP 20 IMAGEOBJPROP 13 IMAGEOBJPROP 6 IMAGEOBJPROP) (145 DON'T 87 UP 84 STATE 73 LASTMOUSEBUTTONS 44 TEXTOBJ 37 WINDOW 30 DOWN 27 STATE 17 IMAGEBOX 10 ABORTABLE 3 KEYNUMBER) () KEYOBJ.COPYFN D4 (I 2 TOSTREAM I 1 FROMSTREAM I 0 IMAGEOBJ) @g B (10 KEYOBJ.CREATE 6 IMAGEOBJPROP) (3 KEYNAME) () KEYOBJ.CREATE D4 (P 3 DS P 2 BITMAP P 1 KEYLABEL P 0 KEYOBJ I 2 ABORTABLE I 1 KEYLABEL I 0 KEYNAME F 4 KEYOBJ.IMAGEFNS) ^hT A@"Hgg Hg@ Hg@ HgI HgB H Hg ZHgJ J jdh H(90 IMAGEOBJPROP 80 BITMAPHEIGHT 76 BITMAPWIDTH 67 IMAGEOBJPROP 60 KEYOBJ.INSTALL.BITMAP 56 IMAGEOBJPROP 48 IMAGEOBJPROP 40 IMAGEOBJPROP 32 IMAGEOBJPROP 29 \KEYNAMETONUMBER 21 IMAGEOBJPROP 4 IMAGEOBJCREATE) (72 IMAGEBOX 64 BITMAP 52 ABORTABLE 44 KEYLABEL 36 KEYNAME 25 KEYNUMBER 18 UP 15 STATE) () KEYOBJ.DISPLAYFN D4 (P 1 BITMAP P 0 SOURCETYPE I 4 OFFSETS0? I 3 TEXTSTREAM I 2 MODE I 1 IMAGE.STREAM I 0 KEYOBJ) v@g dggggo@g @g A g0DIhdAjdhdHg "IhdAhA hA hdHg o h(114 ERROR 106 BKBITBLT 96 DSPYPOSITION 91 DSPXPOSITION 80 BKBITBLT 55 IMAGESTREAMTYPE 48 IMAGEOBJPROP 41 ERROR 38 IMAGEOBJPROP 6 IMAGEOBJPROP) (102 REPLACE 76 REPLACE 58 DISPLAY 45 BITMAP 35 STATE 26 INVERT 21 DOWN 16 INPUT 10 UP 3 STATE) ( 111 "NO OTHER STREAMS DEFINED FOR KEYOBJ.DISPLAYFN" 31 "Illegal state in KEYOBJ") KEYOBJ.GETFN D4 (I 1 TEXTSTREAM I 0 INPUT.STREAM) @ @ (10 KEYOBJ.CREATE 7 READ 3 READ) NIL () KEYOBJ.IMAGEBOXFN D4 (I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 KEYOBJ) @g (6 IMAGEOBJPROP) (3 IMAGEBOX) () KEYOBJ.IMAGESTREAMTYPE D4 (I 0 STREAM) g gg(5 STKPOS) (13 DISPLAY 9 INTERPRESS 2 TEDIT.HARDCOPY) () KEYOBJ.INSTALL.BITMAP D4 (P 3 QUARTER P 2 DS P 1 KEYLABEL P 0 BITMAP I 0 KEYOBJ F 4 REGION F 5 KEYOBJ.FONT) m` @g "H ZUJ Id-H lۻIjKH KhcJ TKlITjdH H hJ J @gH @(105 IMAGEOBJPROP 97 CLOSEF 92 CENTERPRINTINREGION 83 BITMAPHEIGHT 79 BITMAPWIDTH 60 CENTERPRINTINREGION 48 BITMAPWIDTH 35 BITMAPHEIGHT 25 DSPFONT 19 DSPCREATE 12 IMAGEOBJPROP 5 BITMAPCOPY) (101 BITMAP 9 KEYLABEL 2 KEYOBJ.TEMPLATE) () KEYOBJ.PUTFN D4 (I 1 OUTPUT.STREAM I 0 KEYOBJ) @g A @g A (21 PRINT 17 IMAGEOBJPROP 10 PRINT 6 IMAGEOBJPROP) (14 KEYLABEL 3 KEYNAME) () KEYOBJ.WHENOPERATEDONFN D4 (L (3 C 2 C 1 B 0 A)) gNIL (2 DUMMY) () TYPEA D4 NIL l.i l.h (11 \DT 5 \DT) NIL () (PRETTYCOMPRINT KEYOBJCOMS) (RPAQQ KEYOBJCOMS ((FNS KEYOBJ.BUTTONEVENTINFN KEYOBJ.COPYFN KEYOBJ.CREATE KEYOBJ.DISPLAYFN KEYOBJ.GETFN KEYOBJ.IMAGEBOXFN KEYOBJ.IMAGESTREAMTYPE KEYOBJ.INSTALL.BITMAP KEYOBJ.PUTFN KEYOBJ.WHENOPERATEDONFN TYPEA) (VARS (KEYOBJ.IMAGEFNS (IMAGEFNSCREATE (FUNCTION KEYOBJ.DISPLAYFN) ( FUNCTION KEYOBJ.IMAGEBOXFN) (FUNCTION KEYOBJ.PUTFN) (FUNCTION KEYOBJ.GETFN) (FUNCTION KEYOBJ.COPYFN) ( FUNCTION KEYOBJ.BUTTONEVENTINFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) ( FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL)))) (INITVARS (KEYOBJ.FONT (FONTCREATE (QUOTE HELVETICA) 10))) (BITMAPS KEYOBJ.TEMPLATE))) (RPAQ KEYOBJ.IMAGEFNS (IMAGEFNSCREATE (FUNCTION KEYOBJ.DISPLAYFN) (FUNCTION KEYOBJ.IMAGEBOXFN) ( FUNCTION KEYOBJ.PUTFN) (FUNCTION KEYOBJ.GETFN) (FUNCTION KEYOBJ.COPYFN) (FUNCTION KEYOBJ.BUTTONEVENTINFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL ) (FUNCTION NILL) (FUNCTION NILL))) (RPAQ? KEYOBJ.FONT (FONTCREATE (QUOTE HELVETICA) 10)) (RPAQ KEYOBJ.TEMPLATE (READBITMAP)) (80 50 "OOOOOOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOOOOOO" "OO@@@@@@@@@@@@@@@@OO" "OH@@@@@@@@@@@@@@@@AO" "OH@@@@@@@@@@@@@@@@AO" "NL@@@@@@@@@@@@@@@@BG" "OFCOOOOOOOOOOOOOOLDG" "NKF@@@@@@@@@@@@@@FHG" "MEH@@@@@@@@@@@@@@A@C" "NK@@@@@@@@@@@@@@@@HC" "MG@@@@@@@@@@@@@@@@LC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NJ@@@@@@@@@@@@@@@@DC" "MF@@@@@@@@@@@@@@@@DC" "NK@@@@@@@@@@@@@@@@LC" "ME@@@@@@@@@@@@@@@@HC" "NKH@@@@@@@@@@@@@@A@C" "OBN@@@@@@@@@@@@@@GHG" "NDKOOOOOOOOOOOOOONLG" "OIAEEEEEEEEEEEEEEEFG" "OBBJJJJJJJJJJJJJJJKO" "OLEEEEEEEEEEEEEEEEEO" "ONBJJJJJJJJJJJJJJJOO" "OOOOOOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOOOOOO") (PUTPROPS KEYOBJ COPYRIGHT ("Xerox Corporation" 1985)) NIL