(FILECREATED "11-Mar-86 15:33:54" {QV}<NOTECARDS>1.3K>FGHPATCH023.;1
 2136   

      changes to:  (VARS FGHPATCH023COMS))


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

(PRETTYCOMPRINT FGHPATCH023COMS)

(RPAQQ FGHPATCH023COMS
 ((* * Fix to skecth card to take care of substance version stuff)
			  (FNS NC.AddSketchCard)))
(* * Fix to skecth card to take care of substance version stuff)


(DEFINEQ

(NC.AddSketchCard

  (LAMBDA NIL                                                (* fgh: "11-Mar-86 15:27")


          (* * fgh 11/14/85: Updated to conform to merging of cardTypes and SubstanceTypes.)




          (* * Added LinkIconAttachedBitMap field.)



    (
NC.AddCardType
 (
QUOTE
 Sketch)
		      (
QUOTE
 NoteCard)
		      (
BQUOTE
 ((MakeFn , (
FUNCTION
 NC.MakeSketchCard))
				 (EditFn , (
FUNCTION
 NC.BringUpSketchCard))
				 (QuitFn , (
FUNCTION
 NC.SketchCardCloseFn))
				 (GetFn , (
FUNCTION
 (LAMBDA (Card Length Stream Version)
					    (LET ((Value (
NC.GetSketchSubstance
 Card Length Stream 
										  Version)))
					         (
NC.SetScale
 Card (
CADR
 Value))
					         (
NC.SetRegionViewed
 Card (
CADDR
 Value))
					         (
CAR
 Value)))))
				 (PutFn , (
FUNCTION
 NC.PutSketchSubstance))
				 (CopyFn , (
FUNCTION
 NC.SketchCopySubstance))
				 (MarkDirtyFn , (
FUNCTION
 NC.MarkSketchDirty))
				 (DirtyPFn , (
FUNCTION
 NC.SketchDirtyP))
				 (CollectLinksFn , (
FUNCTION
 NC.CollectReferencesInSketch))
				 (DeleteLinksFn , (
FUNCTION
 NC.DelReferencesToCardFromSketch))
				 (UpdateLinkIconsFn , (
FUNCTION
 NC.UpdateLinkImagesInSketch))
				 (InsertLinkFn , (
FUNCTION
 NC.InsertLinkInSketch))
				 (TranslateWindowPositionFn , (
FUNCTION
 
						       NC.TranslateWindowPositionToSketchPosition))))
		      (
BQUOTE
 ((DefaultWidth 400)
				 (DefaultHeight 350)
				 (LinkAnchorModesSupported T)
				 (LinkDisplayMode Title)
				 (DisplayedInMenuFlg T)
				 (LinkIconAttachedBitMap , NC.SketchCardIcon))))))
)
(PUTPROPS FGHPATCH023 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (424 2054 (NC.AddSketchCard 434 . 2052)))))
STOP