(FILECREATED "22-Apr-87 21:35:19" ("compiled on " {QV}1.3K>NEXT>RHTPATCH241.;3) "12-Nov-85 14:59:23" recompiled changes: NC.MakeExternalSketchCopy NC.BuildMakeDocInspector in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "22-Apr-87 21:35:10" {QV}1.3K>NEXT>RHTPATCH241.;3 10574 changes to: (FNS NC.BuildMakeDocInspector NC.MakeExternalSketchCopy) (VARS RHTPATCH241COMS) previous date: "19-Apr-87 20:57:21" {QV}1.3K>NEXT>RHTPATCH241.;1) (LOAD? (NC.FindFile (QUOTE NCDOCUMENTCARD))) NC.MakeExternalSketchCopy D1 (P 0 SketchCopy I 0 SketchViewerOrImageObj) (h @ H H H@ @ @ (45Q MAKE.IMAGE.OBJECT.OF.SKETCH 42Q SKETCH.VIEWER.GRID 36Q SKETCH.VIEWER.SCALE 32Q SKETCH.REGION.VIEWED 25Q NC.ExternalizeLinkIconsInSketch 21Q SKETCH.COPY.ELEMENTS 15Q SKETCH.ELEMENTS.OF.SKETCH 12Q INSURE.SKETCH 3 SKETCH.ADD.ELEMENT) NIL () NC.DumpExportableCardToDoc D1 (P 16Q AlreadyExpanded P 15Q CopyFlg P 14Q ExpandFlg P 13Q ActiveFlg P 12Q ToCardType P 11Q ToCard P 10Q LinkLabel P 7 Link P 5 ExportSubstanceFn P 4 ThingToInsert P 3 OldLoc P 2 ShrunkenFlg P 1 DocObj P 0 CardStream I 12Q CardType I 11Q ExpandEmbeddedLinks I 10Q CopyEmbeddedLinks I 7 BuildBackLinks I 6 TitlesFromNoteCards I 5 HeadingsFromFileboxes I 4 SubSectionNum I 3 CurSection I 2 DocStream I 1 DocCard I 0 Card)  @ B 2B I[FgB@ Fg GgGg`A@gghdih IKB B @g ]@ Ag@Ag  @gi G H &G @ H GgMHkMH4L LB 'L "LkL  BIkg @ N*BIkjg @g J@ _O_Gg GOG_Gg GOG_O_g _OhdO ol OO.OOAOg OOOABCDEFGGG bN^7hd@ ol D(737Q NC.PrintMsg 733Q CHARACTER 722Q NC.RetrieveTitle 703Q NC.DumpCardToDoc 650Q NCP.LocalGlobalLink 622Q NC.PrintMsg 616Q CHARACTER 605Q NC.RetrieveTitle 566Q NC.FetchUserDataProp 462Q BLOCK 450Q SHRINKW 445Q NC.FetchWindow 433Q NC.SetUserDataProp 423Q TEDIT.SETSEL 373Q NC.CollectReferences 366Q TEDIT.COPY 363Q TEDIT.SETSEL 345Q TEDIT.SETSEL 335Q TEXTOBJ 325Q TEXTSTREAMP 317Q TEDIT.INSERT.OBJECT 311Q IMAGEOBJP 255Q NC.MakeExternalSketchCopy 247Q NC.FetchWindow 242Q NCP.SketchBasedP 233Q GRAPHEROBJ 226Q NCP.GraphBasedP 220Q NC.SetUserDataProp 207Q NC.SetUserDataProp 203Q NC.FetchUserDataProp 166Q NC.GetShrunkenWin 156Q NC.FetchUserDataProp 146Q NC.ChangeParaLeading 141Q NC.AddCRIfNeeded 123Q NCP.LocalGlobalLink 54Q NC.AppendStringToStream 44Q CONCAT 41Q NC.RetrieveTitle 16Q NC.AddCRIfNeeded 7 TEXTOBJ 3 NC.FetchSubstance) (645Q END 563Q SeenBefore 554Q Link 527Q ALL 502Q ALL 470Q Link 430Q SeenBefore 420Q RIGHT 410Q TEXTOBJ 360Q RIGHT 352Q TEXTOBJ 340Q TEXTOBJ 264Q ExportSubstanceFn 214Q SeenBefore 200Q SeenCards 173Q SeenCards 153Q SeenBefore 130Q TEXTOBJ 107Q LINKDISPLAYMODE 104Q END 77Q NC.DocBackPtrLinkLabel 71Q ToCardsBoxes 62Q ToCards 50Q Bold 31Q NONE 22Q TEXTOBJ) ( 726Q " only expanded once in this cycle." 611Q " only expanded once in this cycle.") NC.BuildMakeDocInspector D1 (P 1 InspectWindow P 0 Region I 0 MainWin) j@ g0`dKJh\J&LghohgogHHHkk Yd@ggg Igi I(146Q PUTWINDOWPROP 136Q ATTACHWINDOW 116Q INSPECTW.CREATE 112Q CREATEPOSITION 3 WINDOWREGION) (142Q NoteCardsMakeDocInspector 132Q LOCALCLOSE 127Q LEFT 124Q TOP 70Q NC.MakeDocInspectorSelectionFn 61Q NC.InspectorTitleCommandFn 50Q GETPROP 17Q NC.MakeDocParameters 11Q NC.MakeDocParameters) ( 65Q "MakeDocument Parameters" 55Q "Use left button to change values.") NC.EvaluateListCardSubstanceA0001 D1 (NAME ERRORSET F 0 Card) P d hh(11Q ERRORSET 3 NCP.CardSubstance) NIL () NC.EvaluateListCardSubstance D1 (I 2 InterestedWindow I 1 Message I 0 Card) B@ bABiA oi (31Q NC.EvaluateListCardSubstanceA0001 20Q NC.PrintMsg 5 NC.CoerceToInterestedWindow) NIL ( 25Q (NC.EvaluateListCardSubstanceA0001)) (PRETTYCOMPRINT RHTPATCH241COMS) (RPAQQ RHTPATCH241COMS ((* * Fixes bug #517: Sketch scaling lost when grabbed into a document.) (FILES (FROM NOTECARDSNEXT) KOTOSKETCHPATCHES) (DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE NCDOCUMENTCARD) )))) (* * NOTE: NC.Files should be changed to include KOTOSKETCHPATCHES. Also should copy KOTOSKETCHPATCHES over to notecards>1.3k>.) (* * Change to NCSKETCHCARD) (FNS NC.MakeExternalSketchCopy) (* * Change to NCDOCUMENTCARD) (FNS NC.DumpExportableCardToDoc NC.BuildMakeDocInspector) (* * Fix to minor bug in message printing.) (* * Change to NCLISTCARD) (FNS NC.EvaluateListCardSubstance))) (FILESLOAD (FROM NOTECARDSNEXT) KOTOSKETCHPATCHES) (PUTPROPS RHTPATCH241 COPYRIGHT ("Xerox Corporation" 1987)) NIL