(FILECREATED "16-Feb-85 02:11:12" ("compiled on " {PHYLUM}RELEASE1.2>FGHPATCH003.;2) "20-Dec-84 12:07:22" recompiled changes: NC.AddSubstanceType NC.AddCardType in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "16-Feb-85 02:10:29" {PHYLUM}RELEASE1.2>FGHPATCH003.;2 16876 changes to: (FNS NC.AddSubstanceType NC.AddCardType) (VARS FGHPATCH003COMS) previous date: "16-Feb-85 00:45:25" {PHYLUM}RELEASE1.2>FGHPATCH003.;1) NC.SubstanceCopyFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) }@d1`L2g o@o h@h`Z4hHMMYMMh L\IKKJ(143Q NC.SubstanceCopyFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.SubstanceCopyFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.MakeSubstanceTypesList D1 NIL hgNIL (6 Done 3 NC.SubstanceTypes) () NC.MakeCardTypesList D1 NIL :ghddddddddddddddghdddhhhNIL (67Q NC.NoteCardTypeMenu 63Q NC.CardTypes 24Q Icon 2 NoteCard) () NC.MarkCardDirtyFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L3g o@o h@h`Z6hHMMYMMh L\IKKJ(145Q NC.MarkCardDirtyFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.MarkCardDirtyFn 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.ListOfCardTypes D1 NIL -`AHI\LdgJ KhZYHXK&ZNIL (25Q NoteCard 2 NC.CardTypes) () NC.CollectReferencesFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L5g o@o h@h`Z:hHM!MYMMh L\IKKJ(151Q NC.CollectReferencesFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.CollectReferencesFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.DelReferencesFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L6g o@o h@h`ZhHM#MYMMh L\IKKJ(155Q NC.UpdateLinkIconsFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.UpdateLinkIconsFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.SubstanceDirtyPFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L4g o@o h@h`Z8hHM MYMMh L\IKKJ(147Q NC.SubstanceDirtyPFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.SubstanceDirtyPFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.SubstanceMarkDirtyFn D1 (I 0 NoteCardType) ,@ g@ g@ go@o (51Q NC.ReportError 46Q CONCAT 25Q NC.GrapherBasedP 14Q NC.SketchBasedP 3 NC.TeditBasedP) (31Q NC.MarkGraphDirty 20Q NC.MarkSketchDirty 7 NC.MarkTextDirty) ( 43Q ": Unknown note card type." 36Q "NC.SubstanceMarkDirtyFn") NC.DefaultCardWidth D1 (P 0 Type I 0 ID) @ H (12Q NC.DefaultWidthFromType 3 NC.FetchType) NIL () NC.DefaultCardHeight D1 (P 0 Type I 0 ID) @ H (12Q NC.DefaultHeightFromType 3 NC.FetchType) NIL () NC.DefaultHeightFromType D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L;g o@o h @h`ZGhHM(MYMMh L\IKKJ(166Q NC.DefaultHeightFromType 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.DefaultHeightFromType 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.DefaultWidthFromType D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L:g o@o h@h`ZEhHM'MYMMh L\IKKJ(164Q NC.DefaultWidthFromType 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.DefaultWidthFromType 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") (PRETTYCOMPRINT FGHPATCH003COMS) (RPAQQ FGHPATCH003COMS ((E (SETQ NC.SystemDate (DATE))) (VARS NC.SystemDate) (* * Internal variables) (GLOBALVARS NC.CardTypes NC.SubstanceTypes NC.NoteCardTypeMenu) (* * Note Cards Type Mechanism) ( RECORDS NoteCardType SubstanceType) (MACROS NC.Inherit) (FNS NC.SubstanceCopyFn NC.MakeSubstanceTypesList NC.MakeCardTypesList NC.MarkCardDirtyFn NC.AddSubstanceType NC.AddCardType NC.ListOfCardTypes NC.CollectReferencesFn NC.DelReferencesFn NC.EditFn NC.GetSubstanceFn NC.MakeCardFn NC.PutSubstanceFn NC.QuitCardFn NC.UpdateLinkIconsFn NC.SubstanceDirtyPFn NC.SubstanceMarkDirtyFn) ( FNS NC.DefaultCardWidth NC.DefaultCardHeight NC.DefaultHeightFromType NC.DefaultWidthFromType) (P ( NC.MakeSubstanceTypesList) (NC.MakeCardTypesList)))) (RPAQQ NC.SystemDate "16-Feb-85 02:10:30") (RECORD NoteCardType (TypeName SuperType SubstanceType MakeCardFn EditCardFn QuitCardFn GetCardFn PutCardFn CopyCardFn MarkCardDirtyFn CardDirtyPFn CollectLinksInCardFn DeleteLinksInCardFn UpdateLinkIconsInCardFn InsertLinkInCardFn TranslateWindowPositionToCardPositionFn LinkDisplayMode CardDefaultWidth CardDefaultHeight CardLinkAnchorModesSupported CardDisplayedInMenuFlg)) (RECORD SubstanceType (SubstanceName CreateSubstanceFn EditSubstanceFn QuitSubstanceFn GetSubstanceFn PutSubstanceFn CopySubstanceFn MarkSubstanceDirtyFn SubstanceDirtyPFn CollectLinksInSubstanceFn DeleteLinksInSubstanceFn UpdateLinkIconsInSubstanceFn InsertLinkInSubstanceFn TranslateWindowPositionToSubstancePositionFn SubstanceDefaultWidth SubstanceDefaultHeight SubstanceLinkAnchorModesSupported)) (PUTPROPS NC.Inherit MACRO ((NC.Fn CardFn SubstanceFn CardTypeVariableName) (PROG (SaveCardType ( AtomCardType (COND ((NLISTP CardTypeVariableName) CardTypeVariableName) (T (CAR CardTypeVariableName)) ))) (RETURN (OR (for CardType in NC.CardTypes when (EQ AtomCardType (fetch (NoteCardType TypeName) of CardType)) do (SETQ SaveCardType CardType) (RETURN (OR (fetch (NoteCardType CardFn) of CardType) (AND (fetch (NoteCardType SuperType) of CardType) (NC.Fn (LIST (fetch (NoteCardType SuperType) of CardType) ))))) finally (NC.ReportError (MKSTRING (QUOTE NC.Fn)) (CONCAT "Unknown note card type: " NoteCardType "."))) (AND (NLISTP CardTypeVariableName) (fetch (SubstanceType SubstanceFn) of (for SubstanceType in NC.SubstanceTypes when (EQ (fetch (NoteCardType SubstanceType) of SaveCardType) ( fetch (SubstanceType SubstanceName) of SubstanceType)) do (RETURN SubstanceType))))))))) (NC.MakeSubstanceTypesList) (NC.MakeCardTypesList) (PUTPROPS FGHPATCH003 COPYRIGHT ("Xerox Corporation" 1985)) NIL