(FILECREATED "17-Mar-87 15:44:13" {QV}<NOTECARDS>1.3K>NEXT>RBPATCH001.;2
 2487   

      changes to:  (FNS NC.AddSketchCard)
		   (VARS RBPATCH001COMS)

      previous date: "28-Feb-87 20:33:52" {QV}<NOTECARDS>1.3K>NEXT>RBPATCH001.;1)


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

(PRETTYCOMPRINT RBPATCH001COMS)

(RPAQQ RBPATCH001COMS
 ((* * Richard's fix to bug #417: Sketch menus reversed.)
			 (P (LOAD? (QUOTE {QV}<NOTECARDS>1.3K>NEXT>NCSKETCHCARD.DCOM)))
			 (* * Change to NCSKETCHCARD)
			 (FNS NC.AddSketchCard)
			 (* * This not for integration.)
			 (P (NC.AddSketchCard))))
(* * Richard's fix to bug #417: Sketch menus reversed.)


(LOAD? (QUOTE {QV}<NOTECARDS>1.3K>NEXT>NCSKETCHCARD.DCOM))
(* * Change to NCSKETCHCARD)


(DEFINEQ

(NC.AddSketchCard

  (LAMBDA NIL                                                (* rht: "28-Feb-87 21:28")


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




          (* * Added LinkIconAttachedBitMap field.)




          (* * rht 2/28/87: Ripped out old LAMBDA wrapper around GetFn.)



    (DECLARE
 (
GLOBALVARS
 NC.SketchCardIcon))
    (
NC.AddCardType
 (
QUOTE
 Sketch)
		      (
QUOTE
 NoteCard)
		      (
BQUOTE
 ((MakeFn , (
FUNCTION
 NC.MakeSketchCard))
				 (EditFn , (
FUNCTION
 NC.BringUpSketchCard))
				 (QuitFn , (
FUNCTION
 NC.SketchCardCloseFn))
				 (GetFn , (
FUNCTION
 NC.GetSketchSubstance))
				 (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))
				 (MiddleButtonMenuItems , (
SKETCH.COMMANDMENU.ITEMS
 NIL T))))
		      (
BQUOTE
 ((DefaultWidth 400)
				 (DefaultHeight 350)
				 (LinkAnchorModesSupported T)
				 (LinkDisplayMode Title)
				 (DisplayedInMenuFlg T)
				 (LinkIconAttachedBitMap , NC.SketchCardIcon))))))
)
(* * This not for integration.)


(NC.AddSketchCard)
(PUTPROPS RBPATCH001 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (773 2349 (NC.AddSketchCard 783 . 2347)))))
STOP