(FILECREATED "22-May-85 16:37:54" ("compiled on " {PHYLUM}RELEASE1.2>NCSKETCHSUBSTANCE.;4) "20-Dec-84 12:07:22" recompiled changes: NC.SketchCardCloseFn in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "22-May-85 16:37:30" {PHYLUM}RELEASE1.2>NCSKETCHSUBSTANCE.;4 11411 changes to: (FNS NC.SketchCardCloseFn) previous date: "22-May-85 01:12:49" {PHYLUM}RELEASE1.2>NCSKETCHSUBSTANCE.;3) NC.BringUpSketchCard D1 (P 2 SketchViewer P 1 Title P 0 Region I 2 Region/Position I 1 Substance I 0 ID) W@@ Z"l[jJ KkٰJ J . JA@@ @B @ @ Zdgi J@g J(123Q NC.SetupTitleBarMenu 113Q PUTWINDOWPROP 102Q SKETCHW.CREATE 76Q NC.FetchScale 72Q NC.FetchTitle 66Q NC.DetermineDisplayRegion 61Q NC.FetchRegionViewed 47Q TTY.PROCESS 42Q \INSUREWINDOW 35Q TOTOPW 23Q FLASHW 6 NC.FetchWindow) (120Q Sketch 107Q DONTQUERYCHANGES) () NC.SketchDirtyP D1 (I 0 ID) @ g @ h@ h(27Q NC.FetchRegionViewed 17Q NC.FetchScale 11Q GETWINDOWUSERPROP 3 NC.FetchWindow) (6 SKETCHCHANGED) () NC.SketchCardCloseFn D1 (P 4 AttachedWindow P 3 NewRegion P 2 OldRegion P 1 Window P 0 ID I 0 WindowOrID) Y@@ Xd Yd@H d I I dL L II Ig i H h(125Q NC.DeactivateCard 121Q TTY.PROCESS 114Q PUTWINDOWPROP 104Q REMOVEPROMPTWINDOW 71Q CLOSEW 64Q DETACHWINDOW 52Q ATTACHEDWINDOWS 45Q SKED.CLEAR.SELECTION 34Q SKETCHW.CLOSEFN 26Q ALL.SKETCH.VIEWERS 23Q NC.FetchSubstance 13Q NC.FetchWindow 6 NC.CoerceToID) (111Q SKETCHOPMENU) () NC.SketchCopySubstance D1 (P 4 ToStartPtr P 3 ToEndPtr P 2 ToEndPtrLoc P 1 FromEndPtr P 0 FromStartPtr I 2 ToStream I 1 FromStream I 0 ID) PB l\BLl l BLl l BLl B ZBj Bj Bj A A A XA A A YABHI B [BJ BKl l BKl l BKl i(221Q BOUT 210Q BOUT 202Q RSH 172Q BOUT 164Q RSH 155Q SETFILEPTR 147Q GETFILEPTR 143Q COPYBYTES 104Q BOUT 76Q BOUT 70Q BOUT 62Q GETFILEPTR 56Q BOUT 45Q BOUT 37Q RSH 27Q BOUT 21Q RSH 6 GETFILEPTR) NIL () NC.MarkSketchDirty D1 (I 1 ResetFlg I 0 ID) @ gA (12Q PUTWINDOWPROP 3 NC.FetchWindow) (6 SKETCHCHANGED) () NC.CollectReferencesInSketch D1 (P 16Q SketchElt P 11Q SketchElt P 5 ActualLink P 4 CollectItem P 3 LinkIcon P 2 Links P 1 DirtyFlg P 0 Substance I 4 ReturnLocationsFlg I 3 ReturnLinkIconsFlg I 2 DatabaseStream I 1 CheckAndDeleteFlg I 0 ID) @ Q0H0d Og O dONh_N&_OAO OdI_[ Ai%MdAiMB iO`ih(CKMDLO L_OOh__O_O&_(232Q LOWERLEFT 165Q NC.ValidLinkP 133Q NC.FetchLinkFromLinkIcon 45Q NC.LinkIconImageObjP 3 NC.FetchSubstance) (200Q NC.DeletedLinkImageObject 31Q SKIMAGEOBJ) () NC.SketchBasedP D1 (P 0 SketchType I 0 NoteCardType) o@H@ @ H(25Q NC.FetchType 17Q NC.IDP) NIL ( 3 (SKETCH)) NC.TranslateWindowPositionToSketchPosition D1 (L (2 WindowPositionY 1 WindowPositionX 0 Window)) ABNIL NIL () NC.AddSketchSubstanceA0001 D1 NIL hhNIL NIL () NC.AddSketchSubstanceA0002 D1 (P 0 Value I 2 Region I 1 ID I 0 Stream) @ AH AH H(25Q NC.SetRegionViewed 15Q NC.SetScale 3 NC.GetSketchSubstance) NIL () NC.AddSketchSubstance D1 NIL ggghgghgghgghgghgghgghgghgghgghgghgghgghho (214Q NC.AddSubstanceType) (164Q NC.TranslateWindowPositionToSketchPosition 161Q TranslateWindowPositionToSubstancePositionFn 153Q NC.InsertLinkInSketch 150Q InsertLinkInSubstanceFn 142Q NC.UpdateLinkImagesInSketch 137Q UpdateLinkIconsInSubstanceFn 131Q NC.DelReferencesToCardFromSketch 126Q DeleteLinksInSubstanceFn 120Q NC.CollectReferencesInSketch 115Q CollectLinksInSubstanceFn 107Q NC.SketchDirtyP 104Q SubstanceDirtyPFn 76Q NC.MarkSketchDirty 73Q MarkSubstanceDirtyFn 65Q NC.SketchCopySubstance 62Q CopySubstanceFn 54Q NC.PutSketchSubstance 51Q PutSubstanceFn 43Q NC.AddSketchSubstanceA0002 40Q GetSubstanceFn 32Q NC.SketchCardCloseFn 27Q QuitSubstanceFn 21Q NC.BringUpSketchCard 16Q EditSubstanceFn 10Q NC.AddSketchSubstanceA0001 5 CreateSubstanceFn 2 SKETCH) ( 211Q ((SubstanceDefaultWidth 620Q) (SubstanceDefaultHeight 536Q) (SubstanceLinkAnchorModesSupported T))) (PRETTYCOMPRINT NCSKETCHSUBSTANCECOMS) (RPAQQ NCSKETCHSUBSTANCECOMS ((E (SETQ NC.SystemDate (DATE)) (UNMARKASCHANGED (QUOTE NC.SystemDate) ( QUOTE VARS))) (VARS NC.SystemDate) (P (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS))) (FILES NCTYPESMECH) (GLOBALVARS NC.SketchTitleBarMenu) (FNS NC.BringUpSketchCard NC.SketchDirtyP NC.SketchCardCloseFn NC.SketchCopySubstance NC.MarkSketchDirty NC.CollectReferencesInSketch NC.SketchBasedP) (DECLARE: DONTCOPY (FILES (FROM VALUEOF LISPUSERSDIRECTORIES LOADCOMP) SKETCH SKETCHOBJ) (FILES (FROM {PHYLUM}MAPS> LOADCOMP) NEWMAP)) (ADVISE CREATE.SKETCHW.COMMANDMENU ) (* * This stuff supports the "push-copy" method of copying links in NC) (FNS NC.TranslateWindowPositionToSketchPosition) (* * Add sketch substance type to SubstanceTypes list) ( FNS NC.AddSketchSubstance) (P (NC.AddSketchSubstance)))) (RPAQQ NC.SystemDate "22-May-85 16:37:32") (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS)) (FILESLOAD NCTYPESMECH) (PUTPROPS CREATE.SKETCHW.COMMANDMENU READVICE (NIL (AFTER NIL (NC.RemoveSketchMenuItems !VALUE)))) (READVISE CREATE.SKETCHW.COMMANDMENU) (NC.AddSketchSubstance) (PUTPROPS NCSKETCHSUBSTANCE COPYRIGHT ("Xerox Corporation" 1985)) NIL