(FILECREATED "12-Dec-85 19:00:27" {ICE}<DENBER>LISP>ACEIMAGEOBJ.;2
 2503   

      changes to:  (FNS ACEOBJ.INIT ACEOBJ.DISPLAYFN ACETEDITOBJ)

      previous date: "26-Jun-85 17:11:44" {ICE}<DENBER>LISP>ACEIMAGEOBJ.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT ACEIMAGEOBJCOMS)

(RPAQQ ACEIMAGEOBJCOMS
 ((RECORDS ACEOBJ)
			  (FNS ACEOBJ.BUTTONEVENTFN ACEOBJ.COPYFN ACEOBJ.DISPLAYFN ACEOBJ.GETFN 
			       ACEOBJ.IMAGEBOXFN ACEOBJ.INIT ACEOBJ.PUTFN ACETEDITOBJ)))
[DECLARE: EVAL@COMPILE 

(RECORD ACEOBJ
 (SEQUENCE))
]
(DEFINEQ

(ACEOBJ.BUTTONEVENTFN

  [LAMBDA (ACEOBJ WINDOW)                                    (* MD "24-Jun-85 15:50")

    NIL])

(ACEOBJ.COPYFN

  [LAMBDA (ACEOBJ)                                           (* MD "24-Jun-85 15:50")

    NIL])

(ACEOBJ.DISPLAYFN

  [LAMBDA (ACEOBJ STREAM)                                    (* MJD "12-Dec-85 18:38")

    (if
 (
EQ
 (
IMAGESTREAMTYPE
 STREAM)
		(
QUOTE
 DISPLAY))
	then
 (
ACE.RUN
 (fetch
 (ACEOBJ SEQUENCE) of
 (
IMAGEOBJPROP
 ACEOBJ (
QUOTE
 OBJECTDATUM)
									  ))
			  STREAM 0 0])

(ACEOBJ.GETFN

  [LAMBDA (STREAM)                                           (* MD "24-Jun-85 15:49")

    (
ACE.GET.SEQ.FILE
])

(ACEOBJ.IMAGEBOXFN

  [LAMBDA (IMAGEOBJ STREAM)                                  (* MD "24-Jun-85 15:53")

    (CREATE
 IMAGEBOX
	    XSIZE _ ACE.SEQ.WIDTH
	    YSIZE _ ACE.SEQ.HEIGHT
	    YDESC _ 0
	    XKERN _ 0])

(ACEOBJ.INIT

  [LAMBDA (SEQ)                                              (* edited: "12-Dec-85 17:55")

    (
SETQ
 ACEIMAGEFNS (
IMAGEFNSCREATE
 (
FUNCTION
 ACEOBJ.DISPLAYFN)
					  (
FUNCTION
 ACEOBJ.IMAGEBOXFN)
					  (
FUNCTION
 ACEOBJ.PUTFN)
					  (
FUNCTION
 ACEOBJ.GETFN)
					  (
FUNCTION
 ACEOBJ.COPYFN)
					  (
FUNCTION
 ACEOBJ.BUTTONEVENTFN)
					  (
FUNCTION
 NILL)
					  (
FUNCTION
 NILL)
					  (
FUNCTION
 NILL)
					  (
FUNCTION
 NILL)
					  (
FUNCTION
 NILL)
					  (
FUNCTION
 NILL)
					  (
FUNCTION
 NILL])

(ACEOBJ.PUTFN

  [LAMBDA (ACEOBJ STREAM)                                    (* MD "24-Jun-85 15:48")

    (
ACE.PUT.SEQ.FILE
])

(ACETEDITOBJ

  [LAMBDA (SEQ)                                              (* MD "24-Jun-85 16:07")

    (
IMAGEOBJCREATE
 (create
 ACEOBJ
				SEQUENCE _ SEQ)
		      ACEIMAGEFNS])
)
(PUTPROPS ACEIMAGEOBJ COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (575 2421 (ACEOBJ.BUTTONEVENTFN 585 . 710) (ACEOBJ.COPYFN 712 . 830) (ACEOBJ.DISPLAYFN 
832 . 1156) (ACEOBJ.GETFN 1158 . 1293) (ACEOBJ.IMAGEBOXFN 1295 . 1519) (ACEOBJ.INIT 1521 . 2089) (
ACEOBJ.PUTFN 2091 . 2226) (ACETEDITOBJ 2228 . 2419)))))
STOP