(FILECREATED " 7-May-87 10:22:32" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH255.;1
 2473   

      changes to:  (VARS RHTPATCH255COMS)
		   (FNS NC.ConvertVersion2SketchCard))


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

(PRETTYCOMPRINT RHTPATCH255COMS)

(RPAQQ RHTPATCH255COMS
 ((* * New function for NCCONVERTVERSION2TO3)
			  (FNS NC.ConvertVersion2SketchCard)
			  (* * Changes for NCSKETCHCARD)
			  (FNS NC.DeleteLinkIconSketchElement)))
(* * New function for NCCONVERTVERSION2TO3)


(DEFINEQ

(NC.ConvertVersion2SketchCard

  (LAMBDA (Card)                                             (* rht: " 6-May-87 17:18")


          (* * Turn the sketch record in the card's substance into a sketch imageobj.)



    (
NC.SetSubstance
 Card (
MAKE.IMAGE.OBJECT.OF.SKETCH
 (
NC.FetchSubstance
 Card)
							   (
NC.FetchUserDataProp
 Card (
QUOTE

										     RegionViewed))
							   (
NC.FetchUserDataProp
 Card (
QUOTE

										     Scale))))))
)
(* * Changes for NCSKETCHCARD)


(DEFINEQ

(NC.DeleteLinkIconSketchElement

  (LAMBDA (SketchElement Card Don'tCreateDeletedImageObjFlg)
                                                             (* rht: " 6-May-87 17:12")


          (* * This replaces the link icon for SketchElement from SketchWin with deleted link icon.)




          (* * rht 4/30/86: Changed to simply delete the link icon if NC.UseDeletedLinkIconIndicators is NIL)




          (* * rht 11/4/86: Now takes Don'tCreateDeletedImageObjFlg arg.)



    (DECLARE
 (
GLOBALVARS
 NC.DeletedLinkImageFns NC.UseDeletedLinkIconIndicatorsFlg 
			     NC.DeletedLinkImageObject))
    (LET ((Position (
SKETCH.POSITION.OF.ELEMENT
 SketchElement))
	  (SketchSubstance (
NC.FetchSubstance
 Card))
	  (LinkIcon (
SKETCH.IMAGEOBJ.OF.ELEMENT
 SketchElement))
	  (Window (
NC.FetchWindow
 Card)))
         (if
 (
AND
 NC.UseDeletedLinkIconIndicatorsFlg (
NOT
 Don'tCreateDeletedImageObjFlg))
	     then
 (create
 IMAGEOBJ smashing
 LinkIcon OBJECTDATUM ←(
IMAGEOBJPROP
 
									NC.DeletedLinkImageObject
											(
QUOTE

											  OBJECTDATUM)
											)
						  IMAGEOBJFNS ← NC.DeletedLinkImageFns)
		    (
AND
 Window (
SKETCH.ELEMENT.CHANGED
 SketchSubstance SketchElement Window))
	   else
 (
SKETCH.DELETE.ELEMENT
 SketchElement SketchSubstance T)))))
)
(PUTPROPS RHTPATCH255 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (517 1001 (NC.ConvertVersion2SketchCard 527 . 999)) (1039 2391 (
NC.DeleteLinkIconSketchElement 1049 . 2389)))))
STOP