(FILECREATED "10-Oct-85 20:06:14" ("compiled on " {QV}RELEASE1.2I>NCSKETCHSUBSTANCE.;7) "19-Mar-85 14:34:17" recompiled changes: NC.BringUpSketchCard in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "10-Oct-85 20:05:51" {QV}RELEASE1.2I>NCSKETCHSUBSTANCE.;7 11290 changes to: ( FNS NC.BringUpSketchCard) previous date: "26-Aug-85 11:47:59" {QV}RELEASE1.2I>NCSKETCHSUBSTANCE.;6) NC.BringUpSketchCard D1 (P 2 SketchViewer P 1 Title P 0 Region I 2 Region/Position I 1 Substance I 0 ID) n@@ Z"l[jJ KkٰJ J . CA@@ @B @ @ Zgi Jgg J@g A@dg J(152Q NC.SetSubstance 136Q NC.SetupTitleBarMenu 125Q PUTWINDOWPROP 112Q 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) (146Q SKETCH 133Q Sketch 122Q NC.SketchCardShrinkFn 117Q SHRINKFN 106Q 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.SketchCardShrinkFn D1 (P 3 IconTitle P 2 ID P 1 Icon P 0 OldIconTitle I 0 W) F@g @g @ I@ @g HoJ [@gK KhdI h(102Q ICONTITLE 72Q PUTWINDOWPROP 57Q CONCAT 54Q NC.FetchTitle 42Q GETWINDOWUSERPROP 32Q SK.SHRINK.ICONCREATE 21Q NC.CoerceToID 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (66Q SKETCH.ICON.TITLE 37Q ICON 12Q ICON 3 SKETCH.ICON.TITLE) ( 50Q "NC: ") 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 11Q ActualLink P 10Q CollectItem P 7 LinkIcon P 6 SketchElt P 1 DirtyFlg P 0 SketchSubstance I 4 ReturnLocationsFlg I 3 ReturnLinkIconsFlg I 2 DatabaseStream I 1 CheckAndDeleteFlg I 0 ID) x @ Hg q JKI^ _ _Ad#OdAhOB hN@ iY!COO_DON OL Mh\JZM&(137Q SKETCH.POSITION.OF.ELEMENT 110Q NC.DeleteLinkIconSketchElement 100Q NC.ValidLinkP 43Q NC.FetchLinkFromLinkIcon 36Q SKETCH.IMAGEOBJ.OF.ELEMENT 15Q SKETCH.LIST.OF.ELEMENTS 3 NC.FetchSubstance) (12Q NC.LinkIconSketchElementP) () 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 (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.AddSketchSubstanceA0001 40Q GetSubstanceFn 32Q NC.SketchCardCloseFn 27Q QuitSubstanceFn 21Q NC.BringUpSketchCard 16Q EditSubstanceFn 10Q NC.MakeSketchCard 5 CreateSubstanceFn 2 SKETCH) ( 211Q ((SubstanceDefaultWidth 620Q) (SubstanceDefaultHeight 536Q) (SubstanceLinkAnchorModesSupported T))) (PRETTYCOMPRINT NCSKETCHSUBSTANCECOMS) (RPAQQ NCSKETCHSUBSTANCECOMS ((E (SETQ NC.SystemDate (DATE)) (PUTPROP (QUOTE NC.SystemDate) (QUOTE NewestFile) (ROOTFILENAME (FULLNAME (OUTPUT))))) (* * Stuff for the SKETCH Notecards substance.) ( FILES NCTYPESMECH) (GLOBALVARS NC.SketchTitleBarMenu NC.DeletedLinkImageObject) (FNS NC.BringUpSketchCard NC.SketchDirtyP NC.SketchCardCloseFn NC.SketchCardShrinkFn NC.SketchCopySubstance NC.MarkSketchDirty NC.CollectReferencesInSketch NC.SketchBasedP) (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)))) (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