(FILECREATED "15-Dec-86 16:30:35" {DANTE}<SNOW>4045>V1.4>NOTECARDS-4045XLPPATCH.;2
 1578   

      changes to:  (FNS 4045XLP.NoteCardsAdvice)

      previous date: "26-Sep-86 14:20:43" {DANTE}<SNOW>4045>V1.4>NOTECARDS-4045XLPPATCH.;1)


(* Copyright (c) 1986 by Xerox Corporation and Will Snow. All rights reserved.)

(PRETTYCOMPRINT NOTECARDS-4045XLPPATCHCOMS)

(RPAQQ NOTECARDS-4045XLPPATCHCOMS
 ((FNS 4045XLP.NoteCardsAdvice)
				     (P (4045XLP.NoteCardsAdvice))))
(DEFINEQ

(4045XLP.NoteCardsAdvice

  [LAMBDA NIL                                                (* edited: "15-Dec-86 16:29")

    [
ADVISE
 (
QUOTE
 NC.LinkIconDisplayFn)
	      (
QUOTE
 BEFORE)
	      NIL
	      (
QUOTE
 (
COND
 ((
OR
 (
NULL
 STREAMTYPE)
				      (
EQ
 STREAMTYPE (
QUOTE
 4045XLP)))
				 (
SETQ
 STREAMTYPE (
QUOTE
 DISPLAY]
    (
ADVISE
 (
QUOTE
 (
STRINGWIDTH
 IN NC.LinkIconImageBoxFn))
	      (
QUOTE
 AFTER)
	      NIL
	      (
QUOTE
 (
AND
 (
EQ
 (
IMAGESTREAMTYPE
 ImageStream)
				    (
QUOTE
 4045XLP))
			      (
RETURN
 (
IQUOTIENT
 (
STRINGWIDTH
 (
CONCAT
 "nn"
									      (if
 Label
										  then

										   (
CONCAT
 "<" 
											    Label ">")
										else
 "")
									      (if
 (
AND
 Label 
											   Title)
										  then
 " "
										else
 "")
									      (
OR
 Title ""))
								    ImageStream)
						     Scale])
)
(4045XLP.NoteCardsAdvice)
(PUTPROPS NOTECARDS-4045XLPPATCH COPYRIGHT ("Xerox Corporation and Will Snow" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (478 1445 (4045XLP.NoteCardsAdvice 488 . 1443)))))
STOP