(FILECREATED "15-Dec-86 16:30:57" ("compiled on " {DANTE}<SNOW>4045>V1.4>NOTECARDS-4045XLPPATCH.;2)
"12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08")
(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)
4045XLP.NoteCardsAdvice D1
NIL g g ho o g ho (34Q ADVISE 15Q ADVISE)
(24Q AFTER 5 BEFORE 2 NC.LinkIconDisplayFn)
( 31Q (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))) 21Q (STRINGWIDTH IN NC.LinkIconImageBoxFn) 12Q (COND ((OR (NULL STREAMTYPE) (EQ STREAMTYPE (QUOTE 4045XLP))) (SETQ STREAMTYPE (QUOTE DISPLAY)))))
(PRETTYCOMPRINT NOTECARDS-4045XLPPATCHCOMS)
(RPAQQ NOTECARDS-4045XLPPATCHCOMS ((FNS 4045XLP.NoteCardsAdvice) (P (4045XLP.NoteCardsAdvice))))
(4045XLP.NoteCardsAdvice)
(PUTPROPS NOTECARDS-4045XLPPATCH COPYRIGHT ("Xerox Corporation and Will Snow" 1986))
NIL