(FILECREATED "16-Feb-85 02:12:04" ("compiled on " {PHYLUM}RELEASE1.2>FGHPATCH004.;9) "20-Dec-84 12:07:22" recompiled changes: NC.InsertLinkFn NC.TranslateWindowPositionFn NC.AddSubstanceType NC.AddCardType NC.AddGraphSubstance NC.AddTextSubstance in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "16-Feb-85 02:11:36" {PHYLUM}RELEASE1.2>FGHPATCH004.;9 23342 changes to: (VARS FGHPATCH004COMS) (FNS NC.InsertLinkFn NC.TranslateWindowPositionFn NC.AddSubstanceType NC.AddCardType NC.AddGraphSubstance NC.AddTextSubstance) previous date: "16-Feb-85 00:05:40" {PHYLUM}RELEASE1.2>FGHPATCH004.;7) NC.LinksSupportedP D1 (I 1 AnchorModesList I 0 ID) #@ HdihAYiHI(6 NC.LinkAnchorModesFromType 3 NC.FetchType) NIL () NC.LinkAnchorModesFromType D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`LGg o@o h!@h`ZThJdiIiHM)MYMMh L\IKKJJdh(203Q NC.LinkAnchorModesFromType 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.LinkAnchorModesFromType 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.InsertLinkFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L8g o@o h@h`Z@hHM$MYMMh L\IKKJ(157Q NC.InsertLinkFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.InsertLinkFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.TranslateWindowPositionFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L9g o@o h@h`ZBhHM%MYMMh L\IKKJ(161Q NC.TranslateWindowPositionFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.TranslateWindowPositionFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.AddSubstanceType D1 (P 2 SubstanceType P 0 NewType I 2 VarsAssocList I 1 FnsAssocList I 0 SubstanceName) @oo `I@gA gA gA gA gA gA gA gA gA gA gA gA gA gB gB gB hX`HZd@` IY7(331Q REMOVE 256Q ASSOC 245Q ASSOC 234Q ASSOC 223Q ASSOC 212Q ASSOC 201Q ASSOC 170Q ASSOC 157Q ASSOC 146Q ASSOC 135Q ASSOC 124Q ASSOC 113Q ASSOC 102Q ASSOC 71Q ASSOC 60Q ASSOC 47Q ASSOC 17Q NC.ReportError) (334Q NC.SubstanceTypes 326Q NC.SubstanceTypes 312Q NC.SubstanceTypes 306Q NC.SubstanceTypes 252Q SubstanceLinkAnchorModesSupported 241Q SubstanceDefaultHeight 230Q SubstanceDefaultWidth 217Q TranslateWindowPositionToSubstancePositionFn 206Q InsertLinkInSubstanceFn 175Q UpdateLinkIconsInSubstanceFn 164Q DeleteLinksInSubstanceFn 153Q CollectLinksInSubstanceFn 142Q SubstanceDirtyPFn 131Q MarkSubstanceDirtyFn 120Q CopySubstanceFn 107Q PutSubstanceFn 76Q GetSubstanceFn 65Q QuitSubstanceFn 54Q EditSubstanceFn 43Q CreateSubstanceFn 23Q NC.SubstanceTypes) ( 14Q "Illegal substance type name: NIL" 10Q "NC.AddSubstanceType") NC.AddCardType D1 (P 5 CardType P 0 NewType I 4 VarsAssocList I 3 FnsAssocList I 2 SubstanceType I 1 SuperType I 0 TypeName) S@@oo>`YiooA&AhI`hZiooB `L`@ABgC gC gC gC gC gC gC gC gC gC gC gC gC gD gD gD gD gD hXh hHBKh J]d@` L\(507Q REMOVE 441Q \NCONC2 403Q ASSOC 372Q ASSOC 361Q ASSOC 350Q ASSOC 337Q ASSOC 326Q ASSOC 315Q ASSOC 304Q ASSOC 273Q ASSOC 262Q ASSOC 251Q ASSOC 240Q ASSOC 227Q ASSOC 216Q ASSOC 205Q ASSOC 174Q ASSOC 163Q ASSOC 152Q ASSOC 115Q NC.ReportError 112Q CONCAT) (512Q NC.CardTypes 504Q NC.CardTypes 450Q NC.NoteCardTypeMenu 444Q NC.CardTypes 377Q CardDisplayedInMenuFlg 366Q CardLinkAnchorModesSupported 355Q DefaultHeight 344Q DefaultWidth 333Q LinkDisplayMode 322Q TranslateWindowPositionToCardPositionFn 311Q InsertLinkInCardFn 300Q UpdateLinkIconsInCardFn 267Q DeleteLinksInCardFn 256Q CollectLinksInCardFn 245Q CardDirtyPFn 234Q MarkCardDirtyFn 223Q CopyCardFn 212Q PutCardFn 201Q GetCardFn 170Q QuitCardFn 157Q EditCardFn 146Q MakeCardFn 140Q NC.CardTypes 121Q NC.CardTypes 62Q NC.SubstanceTypes 21Q NC.CardTypes) ( 106Q "Unknown substance type field: " 102Q "NC.AddCardType" 40Q "Unknown type in super type field: " 34Q "NC.AddCardType" 14Q "Illegal type name: NIL" 10Q "NC.AddCardType") NC.MakeCardTypesList D1 NIL :ghddddddddddddddghdddhhhNIL (67Q NC.NoteCardTypeMenu 63Q NC.CardTypes 24Q Icon 2 NoteCard) () 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))) NC.AddGraphSubstance D1 NIL gogghgghgghgghgghgghgghgghgghgghgghgghho (207Q NC.AddSubstanceType) (157Q NC.TranslateWindowPositionToGraphPosition 154Q TranslateWindowPositionToSubstancePositionFn 146Q NC.InsertLinkInGraph 143Q InsertLinkInSubstanceFn 135Q NC.UpdateLinkImagesInGraph 132Q UpdateLinkIconsInSubstanceFn 124Q NC.DelReferencesToCardFromGraph 121Q DeleteLinksInSubstanceFn 113Q NC.CollectReferencesInGraph 110Q CollectLinksInSubstanceFn 102Q NC.GraphDirtyP 77Q SubstanceDirtyPFn 71Q NC.MarkGraphDirty 66Q MarkSubstanceDirtyFn 60Q NC.GraphCopySubstance 55Q CopySubstanceFn 47Q NC.PutGraphSubstance 44Q PutSubstanceFn 36Q NC.GetGraphSubstance 33Q GetSubstanceFn 25Q NC.GraphCardCloseFn 22Q QuitSubstanceFn 14Q NC.BringUpGraphCard 11Q EditSubstanceFn 2 GRAPH) ( 204Q ((SubstanceDefaultWidth 454Q) (SubstanceDefaultHeight 310Q) (SubstanceLinkAnchorModesSupported T)) 6 (CreateSubstanceFn (LAMBDA NIL (create GRAPH)))) NC.AddTextSubstance D1 NIL ggghgghgghgghgghgghgghgghgghgghgghgghgghho (214Q NC.AddSubstanceType) (164Q NC.TranslateWindowPositionToTEditPosition 161Q TranslateWindowPositionToSubstancePositionFn 153Q NC.InsertLinkInTextWindow 150Q InsertLinkInSubstanceFn 142Q NC.UpdateLinkImagesInText 137Q UpdateLinkIconsInSubstanceFn 131Q NC.DelReferencesToCardFromText 126Q DeleteLinksInSubstanceFn 120Q NC.CollectReferencesInText 115Q CollectLinksInSubstanceFn 107Q NC.TextDirtyP 104Q SubstanceDirtyPFn 76Q NC.MarkTextDirty 73Q MarkSubstanceDirtyFn 65Q NC.TextCopySubstance 62Q CopySubstanceFn 54Q NC.PutTextSubstance 51Q PutSubstanceFn 43Q NC.GetTextSubstance 40Q GetSubstanceFn 32Q NC.TEditCloseFn 27Q QuitSubstanceFn 21Q NC.BringUpTEditCard 16Q EditSubstanceFn 10Q OPENTEXTSTREAM 5 CreateSubstanceFn 2 TEXT) ( 211Q ((SubstanceDefaultWidth 454Q) (SubstanceDefaultHeight 310Q) (SubstanceLinkAnchorModesSupported T))) NC.AddLinkIndexCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeLinkIndex 13Q MakeCardFn 10Q TEXT 5 Text 2 LinkIndex) ( 27Q (LinkDisplayMode Title)) NC.AddStructEditCard D1 NIL #ggggghhgihh (40Q NC.AddCardType) (26Q CardDisplayedInMenuFlg 16Q NC.MakeStructEditCard 13Q MakeCardFn 10Q GRAPH 5 Graph 2 StructEdit) () NC.AddDocumentCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeDocument 13Q MakeCardFn 10Q TEXT 5 Text 2 Document) ( 27Q (LinkDisplayMode Icon)) NC.AddSearchCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeSearchCard 13Q MakeCardFn 10Q TEXT 5 Text 2 Search) ( 27Q (LinkDisplayMode Title)) NC.AddBrowserCard D1 NIL <ggggghgghhooogihh (71Q NC.AddCardType) (54Q CardDisplayedInMenuFlg 27Q NC.BringUpBrowserCard 24Q EditCardFn 16Q NC.MakeBrowserCard 13Q MakeCardFn 10Q GRAPH 5 Graph 2 Browser) ( 51Q (CardDefaultWidth 764Q) 45Q (CardDefaultHeight 536Q) 41Q (LinkDisplayMode Title)) NC.AddFileBoxCard D1 NIL 2ggggghhooogihh (57Q NC.AddCardType) (42Q CardDisplayedInMenuFlg 16Q NC.MakeContentsCard 13Q MakeCardFn 10Q TEXT 5 Text 2 FileBox) ( 37Q (CardDefaultWidth 517Q) 33Q (CardDefaultHeight 310Q) 27Q (LinkDisplayMode Title)) NC.AddGraphCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeGraphCard 13Q MakeCardFn 10Q GRAPH 5 NoteCard 2 Graph) ( 27Q (LinkDisplayMode Title)) NC.AddSketchCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeSketchCard 13Q MakeCardFn 10Q SKETCH 5 NoteCard 2 Sketch) ( 27Q (LinkDisplayMode Icon)) NC.AddTextCard D1 NIL (ggggghhogihh (45Q NC.AddCardType) (32Q CardDisplayedInMenuFlg 16Q NC.MakeTEditCard 13Q MakeCardFn 10Q TEXT 5 NoteCard 2 Text) ( 27Q (LinkDisplayMode Icon)) NCP.CreateSubstanceType D1 (I 15Q DefaultHeight I 14Q DefaultWidth I 13Q UpdateLinkIconsInSubstanceFn I 12Q DeleteLinksInSubstanceFn I 11Q CollectLinksInSubstanceFn I 10Q SubstanceDirtyPFn I 7 MarkSubstanceDirtyFn I 6 CopySubstanceFn I 5 PutSubstanceFn I 4 GetSubstanceFn I 3 QuitSubstanceFn I 2 EditSubstanceFn I 1 CreateSubstanceFn I 0 SubstanceName) @o@ @gAhgBhgChgDhgEhgFhgGhgGhgGhgGhgGhghhghhhgGhgGhgihh (233Q NC.AddSubstanceType 15Q NCP.ReportWarning 3 NCP.GetSubstancesTypes) (220Q SubstanceLinkAnchorModesSupported 210Q SubstanceDefaultHeight 200Q SubstanceDefaultWidth 153Q TranslateWindowPositionToSubstancePositionFn 144Q InsertLinkInSubstanceFn 134Q UpdateLinkIconsInSubstanceFn 124Q DeleteLinksInSubstanceFn 114Q CollectLinksInSubstanceFn 104Q SubstanceDirtyPFn 74Q MarkSubstanceDirtyFn 65Q CopySubstanceFn 56Q PutSubstanceFn 47Q GetSubstanceFn 40Q QuitSubstanceFn 31Q EditSubstanceFn 22Q CreateSubstanceFn) ( 11Q "Redefining substance type: ") NCP.CreateCardType D1 (I 20Q DefaultHeight I 17Q DefaultWidth I 16Q LinkDisplayMode I 15Q UpdateLinkIconsInCardFn I 14Q DeleteLinksInCardFn I 13Q CollectLinksInCardFn I 12Q CardDirtyPFn I 11Q MarkCardDirtyFn I 10Q CopyCardFn I 7 PutCardFn I 6 GetCardFn I 5 QuitCardFn I 4 EditCardFn I 3 MakeCardFn I 2 SubstanceType I 1 SuperType I 0 TypeName) @o@ @ABgChgDhgEhgFhgGhgGhgGhgGhgGhgGhgGhghhghhhgGhgG hgGhghhgihh @(261Q NC.AddCardType 15Q NCP.ReportWarning 3 NCP.GetCardTypes) (243Q CardDisplayedInMenuFlg 234Q CardLinkAnchorModesSupported 224Q CardDefaultWidth 214Q CardDefaultHeight 204Q LinkDisplayMode 157Q TranslateWindowPositionToCardPositionFn 150Q InsertLinkInCardFn 140Q UpdateLinkIconsInCardFn 130Q DeleteLinksInCardFn 120Q CollectLinksInCardFn 110Q CardDirtyPFn 100Q MarkCardDirtyFn 70Q CopyCardFn 60Q PutCardFn 51Q GetCardFn 42Q QuitCardFn 33Q EditCardFn 24Q MakeCardFn) ( 11Q "Redefining NoteCard type: ") (PRETTYCOMPRINT FGHPATCH004COMS) (RPAQQ FGHPATCH004COMS ((* * all these support new NoteCardType and SubstanceType records and the ASSOC calling parameters stuff for AddcardType and AddSubstanceType) (* * New fns to support No-Link cards/substances Should go in NCLINKS) (FNS NC.LinksSupportedP NC.LinkAnchorModesFromType) (* * New FNS for the NCTYPESMECH) (FNS NC.InsertLinkFn NC.TranslateWindowPositionFn) (* * Redefined from NCTYPESMECH) (RECORDS SubstanceType NoteCardType) (FNS NC.AddSubstanceType NC.AddCardType NC.MakeCardTypesList) (* * REDEFINED from various NCXXXCARD and NCXXXXSUBSTANCE files) (FNS NC.AddSketchSubstance NC.AddGraphSubstance NC.AddTextSubstance) (FNS NC.AddLinkIndexCard NC.AddStructEditCard NC.AddDocumentCard NC.AddSearchCard NC.AddBrowserCard NC.AddFileBoxCard NC.AddGraphCard NC.AddSketchCard NC.AddTextCard) (* * REDEFINED from NCPROGINT) (FNS NCP.CreateSubstanceType NCP.CreateCardType) (* * JUNK , just makes these changes work when loadedon top of old code) (P (NC.MakeCardTypesList) (NC.AddTextSubstance) (NC.AddGraphSubstance) ( NC.AddSketchSubstance) (NC.AddTextCard) (NC.AddSketchCard) (NC.AddGraphCard) (NC.AddFileBoxCard) ( NC.AddBrowserCard) (NC.AddSearchCard) (NC.AddDocumentCard) (NC.AddStructEditCard) (NC.AddLinkIndexCard )))) (RECORD SubstanceType (SubstanceName CreateSubstanceFn EditSubstanceFn QuitSubstanceFn GetSubstanceFn PutSubstanceFn CopySubstanceFn MarkSubstanceDirtyFn SubstanceDirtyPFn CollectLinksInSubstanceFn DeleteLinksInSubstanceFn UpdateLinkIconsInSubstanceFn InsertLinkInSubstanceFn TranslateWindowPositionToSubstancePositionFn SubstanceDefaultWidth SubstanceDefaultHeight SubstanceLinkAnchorModesSupported)) (RECORD NoteCardType (TypeName SuperType SubstanceType MakeCardFn EditCardFn QuitCardFn GetCardFn PutCardFn CopyCardFn MarkCardDirtyFn CardDirtyPFn CollectLinksInCardFn DeleteLinksInCardFn UpdateLinkIconsInCardFn InsertLinkInCardFn TranslateWindowPositionToCardPositionFn LinkDisplayMode CardDefaultWidth CardDefaultHeight CardLinkAnchorModesSupported CardDisplayedInMenuFlg)) (NC.MakeCardTypesList) (NC.AddTextSubstance) (NC.AddGraphSubstance) (NC.AddSketchSubstance) (NC.AddTextCard) (NC.AddSketchCard) (NC.AddGraphCard) (NC.AddFileBoxCard) (NC.AddBrowserCard) (NC.AddSearchCard) (NC.AddDocumentCard) (NC.AddStructEditCard) (NC.AddLinkIndexCard) (PUTPROPS FGHPATCH004 COPYRIGHT ("Xerox Corporation" 1985)) NIL