(FILECREATED " 2-Aug-86 00:12:44" {QV}<NOTECARDS>1.3K>RHTPATCH083.;1
 1840   

      changes to:  (VARS RHTPATCH083COMS)
		   (FNS NC.InsertLinkInSketch))


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

(PRETTYCOMPRINT RHTPATCH083COMS)

(RPAQQ RHTPATCH083COMS
 ((* * Change to NCLINKS)
			  (FNS NC.InsertLinkInSketch)))
(* * Change to NCLINKS)


(DEFINEQ

(NC.InsertLinkInSketch

  (LAMBDA (SketchWindow Link SketchWindowPosition)           (* rht: " 2-Aug-86 00:08")


          (* * rht 8/20/85: Rewritten to use Richard's sketch programmer's interface. Eliminates references to sketch 

	  records.)




          (* * rht 10/1/85: Now checks that chosen position is actually within sketch, otherwise aborts by deleting link.)




          (* * fgh 2/6/86 Added Card argument.)




          (* * kirk 11Mar86 Deleted Card argument.)




          (* * rht 8/1/86: Now doesn't break if NULL Link.)



    (
AND
 Link (LET ((LinkIcon (
NC.MakeLinkIcon
 Link))
		      (Scale (
SKETCHW.SCALE
 SketchWindow))
		      SketchIcon Size Position)
		     (
SETQ
 Size (
IMAGEBOXSIZE
 LinkIcon))
		     (
SETQ
 Position (
OR
 (
POSITIONP
 SketchWindowPosition)
					    (
GETBOXPOSITION
 (fetch
 (
IMAGEBOX
 XSIZE)
								 of
 Size)
							      (fetch
 (
IMAGEBOX
 YSIZE)
								 of
 Size)
							      NIL NIL SketchWindow)))
		     (if
 (
AND
 (
INSIDEP
 (
DSPCLIPPINGREGION
 NIL SketchWindow)
					     Position)
				  (
SETQ
 SketchIcon (
SKETCH.IMAGE.OBJECT.ELEMENT
 LinkIcon Scale 
										    Position)))
			 then
 (
SKETCH.ADD.ELEMENT
 SketchIcon SketchWindow)
				SketchIcon
		       else
 (
NCP.DeleteLinks
 Link)
			      NIL)))))
)
(PUTPROPS RHTPATCH083 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (380 1758 (NC.InsertLinkInSketch 390 . 1756)))))
STOP