(FILECREATED "14-May-85 13:05:53" {PHYLUM}<NOTECARDS>RELEASE1.2>FGHPATCH010.;1
 1886   

      changes to:  (VARS FGHPATCH010COMS)
		   (FNS NC.DeletedLinkDisplayFn))


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

(PRETTYCOMPRINT FGHPATCH010COMS)

(RPAQQ FGHPATCH010COMS
 ((FNS NC.DeletedLinkDisplayFn)))
(DEFINEQ

(NC.DeletedLinkDisplayFn

  (LAMBDA (ImageObj Stream)                                  (* fgh: "14-May-85 13:04")

    (
SELECTQ
 (
IMAGESTREAMTYPE
 Stream)
	     (DISPLAY                                        (* This is being displayed on the screen)

		      (
PROG
 ((ImageBox (
NC.DeletedLinkImageBoxFn
 ImageObj Stream))
			     Bottom XSize YSize Left)
			    (
DSPXPOSITION
 (
IPLUS
 3 (
SETQ
 Left (
DSPXPOSITION
 NIL Stream)))
					  Stream)
			    (
SETQ
 XSize (fetch
 (
IMAGEBOX
 XSIZE) of
 ImageBox))
			    (
SETQ
 YSize (fetch
 (
IMAGEBOX
 YSIZE) of
 ImageBox))
			    (
SETQ
 Bottom (
IDIFFERENCE
 (
DSPYPOSITION
 NIL Stream)
						      (fetch
 (
IMAGEBOX
 YDESC) of
 ImageBox)))
                                                             (* don't bother to errorset this)

			    (
DSPFONT
 (
PROG1
 (
DSPFONT
 NC.LinkIconFont Stream)
					    (
PRIN1
 "Deleted" Stream))
				     Stream)
			    (
BITBLT
 NIL NIL NIL Stream (
ADD1
 Left)
				    (
IPLUS
 Bottom 2)
				    (
IDIFFERENCE
 XSize 2)
				    (
IDIFFERENCE
 YSize 4)
				    (
QUOTE
 TEXTURE)
				    (
COND

				      ((
EQ
 (
DSPOPERATION
 NIL Stream)
					   (
QUOTE
 ERASE))
					(
QUOTE
 ERASE))
				      (T (
QUOTE
 INVERT)))
				    BLACKSHADE)))
	     ((PRESS INTERPRESS)                             (* It's being displayed on a press file)

	       NIL)
	     NIL)))
)
(PUTPROPS FGHPATCH010 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (335 1804 (NC.DeletedLinkDisplayFn 345 . 1802)))))
STOP