(FILECREATED "19-Nov-85 12:22:34" ("compiled on " {ERIS}GREGCO>KEYOBJ.;3) "12-Nov-85 14:59:23" recompiled changes: KEYOBJ.BUTTONEVENTINFN KEYOBJ.CREATE in "INTERLISP-D 19-Nov-85 ..." dated "19-Nov-85 10:39:55") (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 D1 (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(216Q \DECODETRANSITION 211Q \DECODETRANSITION 154Q LASTMOUSEY 147Q LASTMOUSEX 143Q KEYOBJ.DISPLAYFN 132Q IMAGEOBJPROP 105Q GETMOUSESTATE 101Q \DECODETRANSITION 72Q KEYOBJ.DISPLAYFN 61Q IMAGEOBJPROP 51Q TEXTOBJ 41Q IMAGEOBJPROP 24Q IMAGEOBJPROP 15Q IMAGEOBJPROP 6 IMAGEOBJPROP) (221Q DON'T 127Q UP 124Q STATE 111Q LASTMOUSEBUTTONS 54Q TEXTOBJ 45Q WINDOW 36Q DOWN 33Q STATE 21Q IMAGEBOX 12Q ABORTABLE 3 KEYNUMBER) () KEYOBJ.COPYFN D1 (I 2 TOSTREAM I 1 FROMSTREAM I 0 IMAGEOBJ) @g B (12Q KEYOBJ.CREATE 6 IMAGEOBJPROP) (3 KEYNAME) () KEYOBJ.CREATE D1 (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(132Q IMAGEOBJPROP 120Q BITMAPHEIGHT 114Q BITMAPWIDTH 103Q IMAGEOBJPROP 74Q KEYOBJ.INSTALL.BITMAP 70Q IMAGEOBJPROP 60Q IMAGEOBJPROP 50Q IMAGEOBJPROP 40Q IMAGEOBJPROP 35Q \KEYNAMETONUMBER 25Q IMAGEOBJPROP 4 IMAGEOBJCREATE) (110Q IMAGEBOX 100Q BITMAP 64Q ABORTABLE 54Q KEYLABEL 44Q KEYNAME 31Q KEYNUMBER 22Q UP 17Q STATE) () KEYOBJ.DISPLAYFN D1 (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(162Q ERROR 152Q BKBITBLT 140Q DSPYPOSITION 133Q DSPXPOSITION 120Q BKBITBLT 67Q IMAGESTREAMTYPE 60Q IMAGEOBJPROP 51Q ERROR 46Q IMAGEOBJPROP 6 IMAGEOBJPROP) (146Q REPLACE 114Q REPLACE 72Q DISPLAY 55Q BITMAP 43Q STATE 32Q INVERT 25Q DOWN 20Q INPUT 12Q UP 3 STATE) ( 157Q "NO OTHER STREAMS DEFINED FOR KEYOBJ.DISPLAYFN" 37Q "Illegal state in KEYOBJ") KEYOBJ.GETFN D1 (I 1 TEXTSTREAM I 0 INPUT.STREAM) @ @ (12Q KEYOBJ.CREATE 7 READ 3 READ) NIL () KEYOBJ.IMAGEBOXFN D1 (I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 KEYOBJ) @g (6 IMAGEOBJPROP) (3 IMAGEBOX) () KEYOBJ.IMAGESTREAMTYPE D1 (I 0 STREAM) g gg(5 STKPOS) (15Q DISPLAY 11Q INTERPRESS 2 TEDIT.HARDCOPY) () KEYOBJ.INSTALL.BITMAP D1 (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 @(151Q IMAGEOBJPROP 141Q CLOSEF 134Q CENTERPRINTINREGION 123Q BITMAPHEIGHT 117Q BITMAPWIDTH 74Q CENTERPRINTINREGION 60Q BITMAPWIDTH 43Q BITMAPHEIGHT 31Q DSPFONT 23Q DSPCREATE 14Q IMAGEOBJPROP 5 BITMAPCOPY) (145Q BITMAP 11Q KEYLABEL 2 KEYOBJ.TEMPLATE) () KEYOBJ.PUTFN D1 (I 1 OUTPUT.STREAM I 0 KEYOBJ) @g A @g A (25Q PRINT 21Q IMAGEOBJPROP 12Q PRINT 6 IMAGEOBJPROP) (16Q KEYLABEL 3 KEYNAME) () KEYOBJ.WHENOPERATEDONFN D1 (L (3 C 2 C 1 B 0 A)) gNIL (2 DUMMY) () TYPEA D1 NIL l.i l.h (13Q \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