(FILECREATED "17-Dec-87 11:05:17" ("compiled on " {QV}1.3KNEXT>PMIPATCH066.;40) "12-Nov-85 14:59:23" recompiled changes: NCHist.HistoryCardMakeFn NCHist.HistoricizeNoteFile NCHist.CreateHistoryCardTitle NCHist.CreateHistoryDate NCHist.ComputeHistory NCHist.PutMainCardDataDisplayFn NCHist.PutTitleDisplayFn in "INTERLISP-D 8-Sep-87 ..." dated " 8-Sep-87 19:13:09") (FILECREATED "17-Dec-87 11:02:14" {QV}1.3KNEXT>PMIPATCH066.;40 53108 changes to: (FNS NCHist.HistoryCardMakeFn NCHist.CreateHistoryCardTitle NCHist.HistoricizeNoteFile NCHist.PutMainCardDataDisplayFn NCHist.PutTitleDisplayFn NCHist.CreateHistoryDate NCHist.ComputeHistory) (VARS PMIPATCH066COMS) previous date: "16-Dec-87 12:07:32" {QV}1.3KNEXT>PMIPATCH066.;39) (NC.LoadFileFromDirectories (QUOTE NCCOLLABORATORCARD)) (NC.LoadFileFromDirectories (QUOTE NCHISTORYCARD)) (NC.LoadFileFromDirectories (QUOTE NCLOGGER)) (NC.LoadFileFromDirectories (QUOTE PMIPATCH067)) NCP.CoerceToInterestedWindow D1 (I 0 WinOrCardOrNoteFile) @ (3 NC.CoerceToInterestedWindow) NIL () NCP.NewCardP D1 (I 0 Card) @ (3 NC.FetchNewCardFlg) NIL () NCP.NoteFileAddProp D1 (I 2 NEWVALUE I 1 PROP I 0 NoteFile) @AB (5 NC.NoteFileAddProp) NIL () NCHist.AddHistoryCard D1 (P 2 FieldValue P 1 CardTypeRecord P 0 CardTypeName) ggoogg!Hdq YI2ZdgPHId H YdoH I2Zdg oogoHo  JgHg Jo hh (232Q NCP.CreateCardType 221Q \APPEND2 207Q NC.GetCardTypeFieldOfSuper 171Q NC.ReportError 166Q CONCAT 116Q NC.ReportError 113Q CONCAT 100Q NC.CardTypeRecord 72Q NC.CardTypeLoader 35Q NC.CardTypeRecord) (204Q LeftButtonMenuItems 176Q \\FILLME// 151Q LeftButtonMenuItems 132Q \\EMPTY// 123Q NoteCardType 65Q NoteCardType 52Q \\EMPTY// 43Q NoteCardType 23Q Text 20Q LeftButtonMenuItems 5 Text 2 History) ( 216Q (("----------" (FUNCTION NULL)) (Compute% History (FUNCTION NCHist.ComputeHistory) "Computes a history from the current log file.") (Change% History% Event% Specs (FUNCTION NCHist.ChangeHistoryEventSpecs) "Change event specs used to compute a history.") (Convert% Pointers% to% Links (FUNCTION NCHist.ConvertPointersToLinks) "Converts all pointer icons to real links.")) 162Q " still \\EMPTY// after autoloading." 155Q " of card type " 146Q "Field name " 142Q "NC.GetCardTypeField" 107Q "Cannot find full definition of card type: " 15Q (DisplayedInMenuFlg T) 11Q ((MakeFn NCHist.HistoryCardMakeFn))) NCHist.HistoryCardMakeFn D1 (P 21Q MenuChoicesFn P 20Q DefaultMenuItemsFn P 17Q CategoryChoices P 16Q EventCategory P 11Q SuperType P 10Q FieldValue P 7 CardTypeRecord P 6 CardTypeName P 5 NoteCardType P 3 DateString P 2 HistoryFileBox P 1 ReturnValue P 0 NoteFile I 2 NoDisplayFlg I 1 Title I 0 Card) @ AH Z@@ M!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O O!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O@ABlLYJ J @J @Ad Hg@ o o [@Kl g @ okK @gH @g`qO O I_O_ HkO _O _"O@HlO"O_OOh__O_O&_(637Q NCP.CardUserDataProp 612Q NCP.CardUserDataProp 607Q NCLOG.StartLogging 577Q TEDIT.LOOKS 574Q NCHARS 563Q NCP.CardSubstance 557Q NCP.CardAddText 551Q CONCAT 546Q CHARACTER 536Q CONCAT 527Q DATE 520Q NC.NoteFileAddProp 510Q NCP.CardTitle 505Q NCHist.CreateHistoryCardTitle 475Q NCP.FileCards 467Q NCP.CacheCards 462Q NCP.CardCachedP 437Q NC.GetCardTypeFieldOfSuper 420Q NC.ReportError 415Q CONCAT 343Q NC.ReportError 340Q CONCAT 324Q NC.CardTypeRecord 316Q NC.CardTypeLoader 254Q NC.CardTypeRecord 230Q NC.GetCardTypeFieldOfSuper 211Q NC.ReportError 206Q CONCAT 134Q NC.ReportError 131Q CONCAT 115Q NC.CardTypeRecord 107Q NC.CardTypeLoader 45Q NC.CardTypeRecord 27Q NC.GetType 12Q NCHist.GetHistoryFileBox 3 NCP.CardNoteFile) (704Q EventCategory 660Q EventCategory 647Q EventCategory 621Q NCHist.EventCategories 616Q HistoryEventSpecs 603Q NCLogInfo 554Q START 514Q HistoryCards 434Q MakeFn 426Q \\FILLME// 400Q MakeFn 361Q \\EMPTY// 351Q NoteCardType 311Q NoteCardType 275Q \\EMPTY// 265Q NoteCardType 225Q SuperType 217Q \\FILLME// 171Q SuperType 152Q \\EMPTY// 142Q NoteCardType 102Q NoteCardType 66Q \\EMPTY// 56Q NoteCardType 17Q CardObject) ( 567Q (WEIGHT BOLD) 533Q " - " 524Q (DATEFORMAT NO.DATE NO.SECONDS) 411Q " still \\EMPTY// after autoloading." 404Q " of card type " 375Q "Field name " 371Q "NC.GetCardTypeField" 334Q "Cannot find full definition of card type: " 202Q " still \\EMPTY// after autoloading." 175Q " of card type " 166Q "Field name " 162Q "NC.GetCardTypeField" 125Q "Cannot find full definition of card type: ") NCHist.HistoryCardWhenSavedFn D1 (P 5 CRPosition P 4 AfterDashPosition P 3 Time P 2 Stream P 1 Card I 0 HistoryCard) y@ g HRhM@ 1oo [Jok k\Jl k ]JLML @KL @ oLK Y I@ IiHX(153Q NCP.SameCardP 145Q NCP.ValidCardP 137Q TEDIT.LOOKS 134Q NCHARS 123Q NCP.CardSubstance 117Q NCP.CardAddText 111Q TEDIT.DELETE 100Q TEDIT.FIND 74Q CHARACTER 63Q TEDIT.FIND 51Q CONCAT 46Q DATE 30Q NCP.CardSubstance 11Q NCP.NoteFileProp 3 NCP.CardNoteFile) (6 HistoryCards) ( 127Q (WEIGHT BOLD) 57Q "-" 43Q (DATEFORMAT NO.DATE NO.SECONDS) 37Q " ") NCHist.NoteFileWhenOpenedFn D1 (P 0 HistoryCard I 0 NoteFile) !@ g@hi X`jd (36Q NCP.OpenCard 17Q NCP.CreateCard 6 NCHist.GetHistoryFileBox) (33Q NCHist.HistoryCardPosition 23Q NCHist.HistoryCardPosition 11Q History) () NCHist.HistoricizeNoteFile D1 (P 2 OpenEventsCardWasCachedFlg P 1 OpenEventsCard P 0 OpenEventSExp I 0 NoteFile) M@ 8o@ I ZI HI IHI  JI @ oo@ (112Q NCP.ReportError 107Q CONCAT 72Q NCHist.NoteFileWhenOpenedFn 65Q NCP.CloseCards 56Q NCP.CardSubstance 52Q NCP.CardSubstance 43Q MEMBER 40Q NCP.CardSubstance 32Q NCP.CacheCards 24Q NCP.ActiveCardP 15Q NCP.GetOpenEventsCard 3 NCP.OpenNoteFileP) NIL ( 103Q "Can't historitize closed notefile: " 77Q "NCHist.HistoritizeNoteFile" 11Q (PROGN (NC.LoadFileFromDirectories (QUOTE NCHISTORYCARD)) (NCHist.NoteFileWhenOpenedFn NoteFile))) NCHist.CreateHistoryCardTitle D1 (I 0 Card) o@ g (23Q CONCAT 20Q NCP.NoteFileProp 12Q NCP.CardNoteFile 2 NCHist.CreateHistoryDate) (15Q Initials) ( 6 " ") NCHist.CreateHistoryDate D1 (P 0 SystemDate I 0 Card) 8o Hll oHkl oHll (65Q CONCAT 61Q NCHist.ShaveLeadingSpace 56Q SUBSTRING 42Q NCHist.ShaveLeadingSpace 37Q SUBSTRING 24Q NCHist.ShaveLeadingSpace 21Q SUBSTRING 6 DATE) NIL ( 46Q "/" 30Q "/" 3 (DATEFORMAT NO.TIME NUMBER.OF.MONTH)) NCHist.ComputeHistoryA0001 D1 (P 0 PredicateResult I 1 Key I 0 Value F 1 CollectionList) @kg@Qc@(5 BLOCK) (12Q NC.ActiveCardP) () NCHist.ComputeHistoryA0002 D1 (NAME ERRORSET P 5 HistoryEventType P 4 HistoryEventList P 3 HistoryEventTypes P 2 SectionPtrs P 1 SectionEndPtr P 0 LoggingStream F 6 HistoryCard F 7 NoteFile F 10Q NCLogInfo F 11Q RESETVARSLST F 12Q SectionStartPtr F 13Q RESETY) gWWhgWWhhWc@WX Vg `W `W IJJ"jcJIh VgJ hVg * dLd]`ddhK hHW H H 2Vl oo ol l g hciHKV (344Q NCHist.GetLogEventFromStream 327Q NCP.CardAddText 321Q CONCAT 315Q CHARACTER 310Q CHARACTER 277Q DATE 264Q CHARACTER 254Q EOFP 247Q SKIPSEPRS 242Q SETFILEPTR 221Q \APPEND2 164Q LAST 157Q NCP.CardUserDataProp 145Q NCP.CardUserDataProp 134Q \NCONC2 106Q NCP.CreateLinkType 75Q NCP.ValidLinkTypeP 64Q NCP.CardUserDataProp 54Q GETEOFPTR) (324Q END 205Q NCHist.HistoryEventHashArray 154Q HistoryEventSpecs 141Q SectionPtrs 101Q NCHist.HistoryLinkType 70Q NCHist.HistoryLinkType 61Q SectionPtrs 46Q NCLogInfo 15Q NCLOG.SuspendLogging 2 NCLOG.StartLogging) ( 303Q " ---" 274Q (DATEFORMAT NO.DATE NO.SECONDS) 270Q "--- ") NCHist.ComputeHistory D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 ActiveCard P 4 CollectionList P 3 ActiveCards P 2 NCLogInfo P 1 NoteFile P 0 HistoryCard I 0 Window F 12Q LISPXHIST F 13Q RESETVARSLST) @ 1H YHg ZIg L[dM/hbool o @hi dg8I 8^ %NININgI NiM]dgW! Wog hghg_ OO(274Q ERROR! 266Q RESETRESTORE 243Q NCHist.ComputeHistoryA0002 175Q NCP.LookupCardByName 140Q NC.CardDirtyP 131Q NCP.CheckpointNoteFiles 115Q NC.AskUserWithMenu 106Q CONCAT 77Q CHARACTER 42Q MAPHASH 22Q NCP.CardUserDataProp 12Q NCP.CardNoteFile 3 NCP.CoerceToCard) (261Q ERROR 251Q Cancel 240Q INTERNAL 216Q No 171Q OpenEventsCard 161Q NoteFile 147Q NoteFile 121Q Yes 37Q NCHist.ComputeHistoryA0001 32Q NoteFile 17Q NCLogInfo) ( 235Q (NCHist.ComputeHistoryA0002) 103Q "Checkpoint before computing history?" 72Q "Warning - information about cards not yet saved will not be logged." 66Q (Yes No Cancel)) NCHist.GetLogEventFromStream D1 (P 1 EventType P 0 LogEvent I 2 HistoryCard I 1 HistoryEventTypes I 0 Stream) & @ @ @ XYAI`BH H(42Q APPLY 20Q READ 12Q EOFP 6 SKIPSEPRS) (32Q NCHist.LogEventFnHashArray) () NCHist.ProcessLogEvent D1 (I 2 EventTypeArgs I 1 EventType I 0 HistoryCard) A`@B (12Q APPLY) (3 NCHist.LogEventFnHashArray) () NCHist.ChangeHistoryEventSpecsA0001 D1 (NAME ERRORSET P 5 HistoryEventSpecs P 4 \NF P 0 OpInProgress F 6 Card F 7 RESETVARSLST F 10Q NC.LockLock F 11Q NC.CardBusyList F 12Q Window F 13Q RESETY) 7W V 1HgVgVg hVg hWcgVgVg hVgo hWcgVLd`VL YIhVLd`VL ZJgVLd`VL [Kg  hWcoWchWcW HHgWV VgM Wi hV oH gci(454Q NC.PrintOperationInProgressMsg 444Q NC.CoerceToInterestedWindow 435Q NC.ClearMsg 426Q NCP.CardUserDataProp 415Q NCHist.AskHistoryEventSpecs 372Q RELEASE.MONITORLOCK 347Q THIS.PROCESS 327Q NC.NoteFileProp 323Q NC.NoteFileProp 307Q NC.NoteFileFromNoteFileUID 254Q THIS.PROCESS 240Q NC.NoteFileFromNoteFileUID 174Q NC.NoteFileFromNoteFileUID 125Q NC.SetUserDataProp 105Q NC.FetchUserDataProp 56Q NC.SetUserDataProp 53Q THIS.PROCESS 37Q NC.FetchUserDataProp 11Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (460Q DON'T 422Q HistoryEventSpecs 401Q US 320Q CardProcessInProgressList 303Q CardObject 273Q NoteFileTYPE# 260Q CardObject 251Q CardProcessInProgressList 234Q CardObject 224Q NoteFileTYPE# 211Q CardObject 170Q CardObject 160Q NoteFileTYPE# 145Q CardObject 141Q NC.ResetCardProcessInProgress 116Q OperationInProgress 102Q OperationInProgress 76Q OperationInProgress 72Q NC.SetUserDataProp 50Q ProcessInProgress 34Q ProcessInProgress 30Q ProcessInProgress 24Q NC.SetUserDataProp) ( 450Q "History Event Specs" 344Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 122Q "History Event Specs") NCHist.ChangeHistoryEventSpecs D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 Card I 0 Window F 4 LISPXHIST F 5 RESETVARSLST) )@ T!Uog hg[ KJ(44Q ERROR! 37Q RESETRESTORE 25Q NCHist.ChangeHistoryEventSpecsA0001 3 NCP.CoerceToCard) (33Q ERROR 22Q INTERNAL) ( 17Q (NCHist.ChangeHistoryEventSpecsA0001)) NCHist.AskHistoryEventSpecs D1 (P 31Q MenuChoicesFn P 30Q EventCategory P 27Q CategoryChoices P 21Q DefaultMenuItemsFn P 20Q EventCategory P 13Q EventCategory P 3 Choices P 2 Position P 1 OldEvents P 0 NoteFile I 1 HistoryCard I 0 MainWindow) A XAg Y`@ @ @ \LkZ`gJ `g0 `fd `OOHkMdNd`dg dgjdndh_dO _O Oh_O&_O `gI`QO*O ` [AgK `KbO&>E_ O _"HkO"_OOh__O_O&__.O$O(_0 _2O.AHlO2O._,O*O,h_*_(O&_&O$_$O,&_*I(347Q NCP.CardUserDataProp 332Q STYLESHEET 324Q STYLE.PROP 272Q STYLE.PROP 77Q STYLE.PROP 50Q WINDOWREGION 41Q \INSUREWINDOW 33Q WINDOWP 26Q NCHist.InitializeHistoryEventsSpecsStylesheet 16Q NCP.CardUserDataProp 6 NCP.CardNoteFile) (502Q EventCategory 405Q EventCategory 374Q EventCategory 353Q NCHist.EventCategories 343Q DefaultHistoryEventSpecs 327Q NCHist.HistoryEventsSpecsStylesheet 306Q NCHist.EventCategories 300Q SELECTIONS 275Q NCHist.HistoryEventsSpecsStylesheet 204Q DEFAULTMENUHELDFN 175Q CLRPROMPT 166Q NC.MenuFont 144Q EventCategory 133Q EventCategory 125Q MENUTYPE# 113Q NCHist.EventCategories 105Q ITEMS 102Q NCHist.HistoryEventsSpecsStylesheet 73Q POSITION 70Q NCHist.HistoryEventsSpecsStylesheet 22Q NCHist.HistoryEventsSpecsStylesheet 13Q DefaultHistoryEventSpecs) () NCHist.InitializeHistoryEventsSpecsStylesheet D1 (P 0 NumCategories)  ` XgHk2KJ>`didg dgjdndhdI M Nh]Kk[N&LgHk2KJiM Nh]Kk[N&Lg0`dKJh\J&Lg`gg gHk2KJgM Nh]Kk[N&Lgo (334Q CREATE.STYLE 253Q FONTCOPY 10Q LENGTH) (337Q NCHist.HistoryEventsSpecsStylesheet 324Q TITLE 273Q MULTI 256Q NEED.NOT.FILL.IN 250Q BOLD 245Q WEIGHT 242Q NC.MenuFont 237Q ITEM.TITLE.FONT 210Q EventCategory 201Q NCHist.EventCategories 173Q ITEM.TITLES 127Q SELECTIONS 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 31Q MENUTYPE# 14Q ITEMS 5 NCHist.EventCategories) ( 330Q "History Event Specs?") NCHist.InitializeHistoryEventHashArray D1 NIL ` ` gg` gg` gg` gg` gg` go` gg` gg` gg` gg` gg` gg` `(241Q PUTHASH 225Q PUTHASH 211Q PUTHASH 175Q PUTHASH 161Q PUTHASH 145Q PUTHASH 131Q PUTHASH 114Q PUTHASH 100Q PUTHASH 64Q PUTHASH 50Q PUTHASH 34Q PUTHASH 14Q HASHARRAY 5 HARRAYP) (244Q NCHist.HistoryEventHashArray 236Q NCHist.HistoryEventHashArray 233Q AddCardType 230Q Add% Card% Type 222Q NCHist.HistoryEventHashArray 217Q RelayoutBrowser.End 214Q Relayout% Browser 206Q NCHist.HistoryEventHashArray 203Q RecomputeBrowser.End 200Q Recompute% Browser 172Q NCHist.HistoryEventHashArray 167Q DelLink 164Q Delete% Link 156Q NCHist.HistoryEventHashArray 153Q MakeLink 150Q Create% Link 142Q NCHist.HistoryEventHashArray 137Q DelCard 134Q Delete% Card 126Q NCHist.HistoryEventHashArray 117Q Change% Card% Title 111Q NCHist.HistoryEventHashArray 106Q PutPropList 103Q Change% Card% Prop% List 75Q NCHist.HistoryEventHashArray 72Q PutMainCardData 67Q Change% Card% Substance 61Q NCHist.HistoryEventHashArray 56Q QuitCard.End 53Q Close% Card 45Q NCHist.HistoryEventHashArray 42Q EditCard.End 37Q Bring% Up% Card 31Q NCHist.HistoryEventHashArray 26Q GetNewCard 23Q Create% Card 17Q NCHist.HistoryEventHashArray 11Q NCLOG.HashArraySize 2 NCHist.HistoryEventHashArray) ( 123Q (AssignTitle.Begin PutTitle)) NCHist.InitializeLogEventFnHashArray D1 NIL ` ` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` `(254Q PUTHASH 240Q PUTHASH 224Q PUTHASH 210Q PUTHASH 174Q PUTHASH 160Q PUTHASH 144Q PUTHASH 130Q PUTHASH 114Q PUTHASH 100Q PUTHASH 64Q PUTHASH 50Q PUTHASH 34Q PUTHASH 14Q HASHARRAY 5 HARRAYP) (257Q NCHist.LogEventFnHashArray 251Q NCHist.LogEventFnHashArray 246Q NCHist.AddCardTypeDisplayFn 243Q AddCardType 235Q NCHist.LogEventFnHashArray 232Q NCHist.RelayoutBrowser.EndDisplayFn 227Q RelayoutBrowser.End 221Q NCHist.LogEventFnHashArray 216Q NCHist.RecomputeBrowser.EndDisplayFn 213Q RecomputeBrowser.End 205Q NCHist.LogEventFnHashArray 202Q NCHist.DelLinkDisplayFn 177Q DelLink 171Q NCHist.LogEventFnHashArray 166Q NCHist.MakeLinkDisplayFn 163Q MakeLink 155Q NCHist.LogEventFnHashArray 152Q NCHist.DelCardDisplayFn 147Q DelCard 141Q NCHist.LogEventFnHashArray 136Q NCHist.PutTitleDisplayFn 133Q PutTitle 125Q NCHist.LogEventFnHashArray 122Q NCHist.AssignTitle.BeginDisplayFn 117Q AssignTitle.Begin 111Q NCHist.LogEventFnHashArray 106Q NCHist.PutPropListDisplayFn 103Q PutPropList 75Q NCHist.LogEventFnHashArray 72Q NCHist.PutMainCardDataDisplayFn 67Q PutMainCardData 61Q NCHist.LogEventFnHashArray 56Q NCHist.QuitCard.EndDisplayFn 53Q QuitCard.End 45Q NCHist.LogEventFnHashArray 42Q NCHist.EditCard.EndDisplayFn 37Q EditCard.End 31Q NCHist.LogEventFnHashArray 26Q NCHist.GetNewCardDisplayFn 23Q GetNewCard 17Q NCHist.LogEventFnHashArray 11Q NCLOG.HashArraySize 2 NCHist.LogEventFnHashArray) () NCHist.ConvertPointersToLinks D1 (P 1 PointerIcon P 0 PointerIcons I 0 Window) #@ g Xdd@I @(32Q NC.ConvertPointerIconToLinkIcon 14Q TEDIT.LIST.OF.OBJECTS 6 TEXTOBJ) (11Q NC.PointerIconImageObjP) () NCHist.TurnLoggingOn D1 (I 0 Card) @ (6 NCLOG.StartLogging 3 NCP.CardNoteFile) NIL () NCHist.TurnLoggingOff D1 (I 0 Card) @ (6 NCLOG.SuspendLogging 3 NCP.CardNoteFile) NIL () NCHist.CreateLinkEventsMenuItemsFn D1 (I 0 NoteFile) @ (6 REVERSE 3 NCP.LinkTypes) NIL () NCHist.CreateLinkEventsDefaultMenuChoicesFn D1 (I 0 NoteFile) g@ o (20Q REMOVE 15Q \APPEND2 6 NCP.UserLinkTypes) (2 History) ( 12Q (FiledCard SubBox)) NCHist.CreateLinkEventsMenuChoicesFn D1 (I 2 NoteFile I 1 HistoryCard I 0 Choices) Ag@ o(7 NCP.CardUserDataProp) (3 CreateLinkTypesToLog) ( 13Q (Create% Link)) NCHist.DeleteLinkEventsMenuItemsFn D1 (I 0 NoteFile) @ (6 REVERSE 3 NCP.LinkTypes) NIL () NCHist.DeleteLinkEventsDefaultMenuChoicesFn D1 (I 0 NoteFile) g@ o (20Q REMOVE 15Q \APPEND2 6 NCP.UserLinkTypes) (2 History) ( 12Q (FiledCard SubBox)) NCHist.DeleteLinkEventsMenuChoicesFn D1 (I 2 NoteFile I 1 HistoryCard I 0 Choices) Ag@ o(7 NCP.CardUserDataProp) (3 DeleteLinkTypesToLog) ( 13Q (Delete% Link)) NCHist.EditCard.BeginDisplayFn D1 (L (3 Card 2 NoteFile 1 EventTime 0 HistoryCard)) hNIL NIL () NCHist.EditCard.EndDisplayFn D1 (P 1 Card P 0 NoteFile I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) DB C H I@)@og @I`o @l g h(77Q NCP.CardAddText 71Q CHARACTER 63Q NC.InsertPointerInText 60Q NCP.CoerceToLinkDisplayMode 44Q NCP.CardAddText 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (74Q END 51Q NCHist.HistoryLinkType 41Q END) ( 55Q (FLOAT FLOAT FLOAT) 36Q "Brought up ") NCHist.QuitCard.BeginDisplayFn D1 (L (4 Don'tDeactivateFlg 3 Card 2 NoteFile 1 EventTime 0 HistoryCard)) hNIL NIL () NCHist.QuitCard.EndDisplayFn D1 (P 1 Card P 0 NoteFile I 4 Don'tDeactivateFlg I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) DB C H I@)@og @I`o @l g h(77Q NCP.CardAddText 71Q CHARACTER 63Q NC.InsertPointerInText 60Q NCP.CoerceToLinkDisplayMode 44Q NCP.CardAddText 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (74Q END 51Q NCHist.HistoryLinkType 41Q END) ( 55Q (FLOAT FLOAT FLOAT) 36Q "Closed ") NCHist.MakeCard.BeginDisplayFn D1 (L (5 NewCardNum 4 Title 3 CardType 2 NoteFileNum 1 EventTime 0 HistoryCard)) hNIL NIL () NCHist.MakeCard.EndDisplayFn D1 (P 1 Card P 0 NoteFile I 5 CardNum I 4 Title I 3 CardType I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) oB E H I@T@og C@C g @og @I`o D@oD g @l g h(152Q NCP.CardAddText 144Q CHARACTER 135Q NCP.CardAddText 127Q CONCAT 114Q NC.InsertPointerInText 111Q NCP.CoerceToLinkDisplayMode 75Q NCP.CardAddText 61Q NCP.CardAddText 53Q MKSTRING 44Q NCP.CardAddText 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (147Q END 132Q END 102Q NCHist.HistoryLinkType 72Q END 56Q END 41Q END) ( 123Q " with title " 106Q (FLOAT FLOAT FLOAT) 67Q " card " 36Q "Created ") NCHist.GetNewCardDisplayFn D1 (P 1 Card P 0 NoteFile I 4 CardType I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) `B C H IdG@B@og D@D g @og @I`o @l g h(133Q NCP.CardAddText 125Q CHARACTER 117Q NC.InsertPointerInText 114Q NCP.CoerceToLinkDisplayMode 100Q NCP.CardAddText 64Q NCP.CardAddText 56Q MKSTRING 47Q NCP.CardAddText 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (130Q END 105Q NCHist.HistoryLinkType 75Q END 61Q END 44Q END) ( 111Q (FLOAT FLOAT FLOAT) 72Q " card " 41Q "Created ") NCHist.DelCardDisplayFn D1 (I 4 Title I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) !C@@oDol g h(34Q NCP.CardAddText 26Q CONCAT 23Q CHARACTER) (31Q END) ( 16Q "'" 11Q "Deleted card '") NCHist.CacheCardDisplayFn D1 (I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) @oCl (20Q NCP.CardAddText 15Q CONCAT 12Q CHARACTER) NIL ( 4 "Cached card ") NCHist.UncacheCardDisplayFn D1 (I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) @oCl (20Q NCP.CardAddText 15Q CONCAT 12Q CHARACTER) NIL ( 4 "Uncached card ") NCHist.SaveCard.BeginDisplayFn D1 (L (3 Card 2 NoteFile 1 EventTime 0 HistoryCard)) hNIL NIL () NCHist.SaveCard.EndDisplayFn D1 (I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) @oCl (20Q NCP.CardAddText 15Q CONCAT 12Q CHARACTER) NIL ( 4 "Changed card ") NCHist.PutLinksDisplayFn D1 (I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) @oCl (20Q NCP.CardAddText 15Q CONCAT 12Q CHARACTER) NIL ( 4 "Put links for card ") NCHist.PutMainCardDataDisplayFn D1 (P 1 Card P 0 NoteFile I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) fB C H IdM@HIH>IH4IgH )@og @I`o @l g h(141Q NCP.CardAddText 133Q CHARACTER 125Q NC.InsertPointerInText 122Q NCP.CoerceToLinkDisplayMode 106Q NCP.CardAddText 70Q NCP.LookupCardByName 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (136Q END 113Q NCHist.HistoryLinkType 103Q END 64Q OpenEventsCard 53Q NoteFile 41Q NoteFile) ( 117Q (FLOAT FLOAT FLOAT) 100Q "Changed contents of ") NCHist.PutPropListDisplayFn D1 (P 1 Card P 0 NoteFile I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) fB C H IdM@HIH>IH4IgH )@og @I`o @l g h(141Q NCP.CardAddText 133Q CHARACTER 125Q NC.InsertPointerInText 122Q NCP.CoerceToLinkDisplayMode 106Q NCP.CardAddText 70Q NCP.LookupCardByName 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (136Q END 113Q NCHist.HistoryLinkType 103Q END 64Q OpenEventsCard 53Q NoteFile 41Q NoteFile) ( 117Q (FLOAT FLOAT FLOAT) 100Q "Changed property list of ") NCHist.PutTitleDisplayFn D1 (P 2 OldTitle P 1 Card P 0 NoteFile I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) B C H Id}@xIHnIHdIgH Y@og @I`o @g Z(@oJoI o g @gh @l g h(221Q NCP.CardAddText 213Q CHARACTER 204Q NCP.CardUserDataProp 173Q NCP.CardAddText 165Q CONCAT 155Q NCP.CardTitle 134Q NCP.CardUserDataProp 125Q NC.InsertPointerInText 122Q NCP.CoerceToLinkDisplayMode 106Q NCP.CardAddText 70Q NCP.LookupCardByName 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (216Q END 200Q Card 170Q END 131Q Card 113Q NCHist.HistoryLinkType 103Q END 64Q OpenEventsCard 53Q NoteFile 41Q NoteFile) ( 161Q "'" 151Q "' to '" 144Q " from '" 117Q (FLOAT FLOAT FLOAT) 100Q "Changed title of ") NCHist.AssignTitle.BeginDisplayFn D1 (I 4 OldTitle I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) @g @gD (20Q NCP.CardUserDataProp 6 NCP.CardUserDataProp) (14Q Card 3 Card) () NCHist.AssignTitle.EndDisplayFn D1 (I 4 NewTitle I 3 Card I 2 NoteFile I 1 EventTime I 0 HistoryCard) @oDl (20Q NCP.CardAddText 15Q CONCAT 12Q CHARACTER) NIL ( 4 " to ") NCHist.MakeLinkDisplayFn D1 (P 2 DestinationCard P 1 SourceCard P 0 NoteFile I 10Q DisplayMode I 7 AnchorMode I 6 Label I 5 DestinationCardNum I 4 SourceCardNum I 3 LinkNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) ~ B D H E H I@XF@g L@oFo g @I`o @og @J`o @l g h(171Q NCP.CardAddText 163Q CHARACTER 155Q NC.InsertPointerInText 152Q NCP.CoerceToLinkDisplayMode 136Q NCP.CardAddText 123Q NC.InsertPointerInText 120Q NCP.CoerceToLinkDisplayMode 104Q NCP.CardAddText 76Q CONCAT 57Q MEMBER 54Q NCP.CardUserDataProp 34Q NC.CardFromUID 30Q NCLOG.UIDFromNum 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (166Q END 143Q NCHist.HistoryLinkType 133Q END 111Q NCHist.HistoryLinkType 101Q END 51Q CreateLinkTypesToLog) ( 147Q (FLOAT FLOAT FLOAT) 130Q " to " 115Q (FLOAT FLOAT FLOAT) 73Q " link from " 66Q "Created ") NCHist.DelLinkDisplayFn D1 (P 2 DestinationCard P 1 SourceCard P 0 NoteFile I 10Q DisplayMode I 7 AnchorMode I 6 Label I 5 DestinationCardNum I 4 SourceCardNum I 3 LinkNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) ~ B D H E H I@XF@g L@oFo g @I`o @og @J`o @l g h(171Q NCP.CardAddText 163Q CHARACTER 155Q NC.InsertPointerInText 152Q NCP.CoerceToLinkDisplayMode 136Q NCP.CardAddText 123Q NC.InsertPointerInText 120Q NCP.CoerceToLinkDisplayMode 104Q NCP.CardAddText 76Q CONCAT 57Q MEMBER 54Q NCP.CardUserDataProp 34Q NC.CardFromUID 30Q NCLOG.UIDFromNum 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (166Q END 143Q NCHist.HistoryLinkType 133Q END 111Q NCHist.HistoryLinkType 101Q END 51Q DeleteLinkTypesToLog) ( 147Q (FLOAT FLOAT FLOAT) 130Q " to " 115Q (FLOAT FLOAT FLOAT) 73Q " link from " 66Q "Deleted ") NCHist.RecomputeBrowser.BeginDisplayFn D1 (L (3 Card 2 NoteFile 1 EventTime 0 HistoryCard)) hNIL NIL () NCHist.RecomputeBrowser.EndDisplayFn D1 (P 1 Card P 0 NoteFile I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) DB C H I@)@og @I`o @l g h(77Q NCP.CardAddText 71Q CHARACTER 63Q NC.InsertPointerInText 60Q NCP.CoerceToLinkDisplayMode 44Q NCP.CardAddText 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (74Q END 51Q NCHist.HistoryLinkType 41Q END) ( 55Q (FLOAT FLOAT FLOAT) 36Q "Recomputed browser ") NCHist.RelayoutBrowser.BeginDisplayFn D1 (L (3 Card 2 NoteFile 1 EventTime 0 HistoryCard)) hNIL NIL () NCHist.RelayoutBrowser.EndDisplayFn D1 (P 1 Card P 0 NoteFile I 3 CardNum I 2 NoteFileNum I 1 EventTime I 0 HistoryCard) DB C H I@)@og @I`o @l g h(77Q NCP.CardAddText 71Q CHARACTER 63Q NC.InsertPointerInText 60Q NCP.CoerceToLinkDisplayMode 44Q NCP.CardAddText 21Q NC.CardFromUID 15Q NCLOG.UIDFromNum 6 NC.NoteFileFromUID 3 NCLOG.UIDFromNum) (74Q END 51Q NCHist.HistoryLinkType 41Q END) ( 55Q (FLOAT FLOAT FLOAT) 36Q "Re-laid out ") NCHist.AddCardTypeDisplayFn D1 (I 2 TypeName I 1 EventTime I 0 HistoryCard) @oBl g (23Q NCP.CardAddText 15Q CONCAT 12Q CHARACTER) (20Q END) ( 4 "Added card type ") NCHist.StartLoggingDisplayFn D1 (L (3 FullNoteFileName 2 NoteFile 1 EventTime 0 HistoryCard)) hNIL NIL () NCCollab.OpenNoteFileFn D1 (P 5 Item P 3 MenuItemRegion P 2 CollaboratorCard P 1 Menu P 0 UserName I 0 NoteFile) 1@` @o Yhio ILHMI [IKKI Zdgig@IL+h:ohdi@ *] H L\]H MiL\H Zooo J @J (273Q NCCollab.ChangeCurrentCollaborator 264Q NCP.ValidCardP 257Q NCCollab.HangOnCardUntilDone 237Q NCP.CoerceToCard 234Q NCP.CreateCard 214Q STREQUAL 176Q STREQUAL 173Q U-CASE 167Q U-CASE 157Q NCP.AskUser 153Q NC.CoerceToInterestedWindow 102Q MENU 61Q MENUITEMREGION 36Q NCP.PrintMsg 24Q NCCollab.MakeCollaboratorsMenu 14Q NCP.AddNoteFileIconMiddleButtonItems 2 USERNAME) (123Q MENU 116Q Collaborator 107Q NEWNAMES 66Q MENU 42Q MENU 11Q NCCollab.NoteFileIconMiddleMenuItems) ( 254Q "Selecting DONE indicates completion of updating this card. Will allow OpenNoteFile to continue." 250Q "Fill in parameters" 244Q "DONE" 144Q "Enter new name(s) for collaborator(s): " 33Q "Please select Collaborator name(s)" 21Q (("-- New Name(s) --" (QUOTE NEWNAMES) "Create a new collaborator information card."))) NC.NoteFileFromUID D1 (L (0 UID)) @d`NIL (5 NC.NoteFilesHashArray) () (PRETTYCOMPRINT PMIPATCH066COMS) (RPAQQ PMIPATCH066COMS ((* * The coms for NCCOLLABORATION, NCCOLLABORATORCARD, and NCHISTORYCARD should be changed to use NC.LoadFileFromDirectories like this:) (DECLARE: COPY FIRST (P ( NC.LoadFileFromDirectories (QUOTE NCCOLLABORATORCARD)) (NC.LoadFileFromDirectories (QUOTE NCHISTORYCARD)) (NC.LoadFileFromDirectories (QUOTE NCLOGGER)) (NC.LoadFileFromDirectories (QUOTE PMIPATCH067)))) (* * New for NCPROGINT) (FNS NCP.CoerceToInterestedWindow NCP.NewCardP NCP.NoteFileAddProp) (* * Changed in NCHISTORYCARD) (FNS NCHist.AddHistoryCard NCHist.HistoryCardMakeFn NCHist.HistoryCardWhenSavedFn NCHist.NoteFileWhenOpenedFn NCHist.HistoricizeNoteFile NCHist.CreateHistoryCardTitle) (* * New in NCHISTORYCARD) (RECORDS EventCategory) (GLOBALVARS NCHist.HistoryEventsSpecsStylesheet NCHist.HistoryEventHashArray NCHist.LogEventFnHashArray NCHist.HistoryLinkType NCHist.EventCategories NCHist.CardEvents NCHist.CreateLinkEvents NCHist.DeleteLinkEvents NCHist.BrowserEvents NCHist.CardTypeEvents) (VARS ( NCHist.HistoryLinkType (QUOTE History)) (NCHist.HistoryEventHashArray (HASHARRAY NCLOG.HashArraySize)) (NCHist.LogEventFnHashArray (HASHARRAY NCLOG.HashArraySize)) (NCHist.CardEvents (create EventCategory Name _ (QUOTE Card% Events) MenuItems _ (QUOTE (Create% Card Bring% Up% Card Close% Card Change% Card% Substance Change% Card% Prop% List Change% Card% Title Delete% Card)) MenuItemsFn _ NIL DefaultMenuItems _ (QUOTE (Create% Card Change% Card% Substance Change% Card% Title Delete% Card)) DefaultMenuItemsFn _ NIL MenuChoicesFn _ NIL)) (NCHist.CreateLinkEvents (create EventCategory Name _ ( QUOTE Create% Link% Events) MenuItems _ NIL MenuItemsFn _ (FUNCTION NCHist.CreateLinkEventsMenuItemsFn ) DefaultMenuItems _ NIL DefaultMenuItemsFn _ (FUNCTION NCHist.CreateLinkEventsDefaultMenuChoicesFn) MenuChoicesFn _ (FUNCTION NCHist.CreateLinkEventsMenuChoicesFn))) (NCHist.DeleteLinkEvents (create EventCategory Name _ (QUOTE Delete% Link% Events) MenuItems _ NIL MenuItemsFn _ (FUNCTION NCHist.DeleteLinkEventsMenuItemsFn) DefaultMenuItems _ NIL DefaultMenuItemsFn _ (FUNCTION NCHist.DeleteLinkEventsDefaultMenuChoicesFn) MenuChoicesFn _ (FUNCTION NCHist.DeleteLinkEventsMenuChoicesFn))) (NCHist.BrowserEvents (create EventCategory Name _ (QUOTE Browser% Events) MenuItems _ (QUOTE (Recompute% Browser Relayout% Browser)) MenuItemsFn _ NIL DefaultMenuItems _ (QUOTE (Recompute% Browser)) DefaultMenuItemsFn _ NIL MenuChoicesFn _ NIL)) ( NCHist.CardTypeEvents (create EventCategory Name _ (QUOTE Card% Type% Events) MenuItems _ (QUOTE ( Add% Card% Type)) MenuItemsFn _ NIL DefaultMenuItems _ NIL DefaultMenuItemsFn _ NIL MenuChoicesFn _ NIL)) (NCHist.EventCategories (LIST NCHist.CardEvents NCHist.CreateLinkEvents NCHist.DeleteLinkEvents NCHist.BrowserEvents NCHist.CardTypeEvents))) (* * General automated history card functions) (FNS NCHist.CreateHistoryDate NCHist.ComputeHistory NCHist.GetLogEventFromStream NCHist.ProcessLogEvent NCHist.ChangeHistoryEventSpecs NCHist.AskHistoryEventSpecs NCHist.InitializeHistoryEventsSpecsStylesheet NCHist.InitializeHistoryEventHashArray NCHist.InitializeLogEventFnHashArray NCHist.ConvertPointersToLinks NCHist.TurnLoggingOn NCHist.TurnLoggingOff) (* * Fns for the various event category functions) (FNS NCHist.CreateLinkEventsMenuItemsFn NCHist.CreateLinkEventsDefaultMenuChoicesFn NCHist.CreateLinkEventsMenuChoicesFn NCHist.DeleteLinkEventsMenuItemsFn NCHist.DeleteLinkEventsDefaultMenuChoicesFn NCHist.DeleteLinkEventsMenuChoicesFn) (* * Fns called to display the events in the History Card) (FNS NCHist.EditCard.BeginDisplayFn NCHist.EditCard.EndDisplayFn NCHist.QuitCard.BeginDisplayFn NCHist.QuitCard.EndDisplayFn NCHist.MakeCard.BeginDisplayFn NCHist.MakeCard.EndDisplayFn NCHist.GetNewCardDisplayFn NCHist.DelCardDisplayFn NCHist.CacheCardDisplayFn NCHist.UncacheCardDisplayFn NCHist.SaveCard.BeginDisplayFn NCHist.SaveCard.EndDisplayFn NCHist.PutLinksDisplayFn NCHist.PutMainCardDataDisplayFn NCHist.PutPropListDisplayFn NCHist.PutTitleDisplayFn NCHist.AssignTitle.BeginDisplayFn NCHist.AssignTitle.EndDisplayFn NCHist.MakeLinkDisplayFn NCHist.DelLinkDisplayFn NCHist.RecomputeBrowser.BeginDisplayFn NCHist.RecomputeBrowser.EndDisplayFn NCHist.RelayoutBrowser.BeginDisplayFn NCHist.RelayoutBrowser.EndDisplayFn NCHist.AddCardTypeDisplayFn NCHist.StartLoggingDisplayFn) (P (NCHist.InitializeHistoryEventsSpecsStylesheet) ( NCHist.InitializeHistoryEventHashArray) (NCHist.InitializeLogEventFnHashArray)) (* * Changed in NCCOLLABORATION) (FNS NCCollab.OpenNoteFileFn) (* * Add this expression to the end of the file coms for NCCOLLABORATION) (P (NCP.AddSessionIconMenuItem (QUOTE NoteFile) (QUOTE (% Collaboratize% NCCollab.CollaboratizeNoteFile "Collaboratizes a notefile."))) (NCP.AddNoteFileIconMenuItem (QUOTE ( Collaboratize NCCollab.CollaboratizeNoteFile "Collaboratizes a notefile.")) (QUOTE Open))) (* * New for NCDATABASE) (FNS NC.NoteFileFromUID) (* * Install the altered History card type) (P ( NCHist.AddHistoryCard)))) (DATATYPE EventCategory (Name MenuItems MenuItemsFn DefaultMenuItems DefaultMenuItemsFn MenuChoicesFn) ) (/DECLAREDATATYPE (QUOTE EventCategory) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) ( QUOTE ((EventCategory 0 POINTER) (EventCategory 2 POINTER) (EventCategory 4 POINTER) (EventCategory 6 POINTER) (EventCategory 8 POINTER) (EventCategory 10 POINTER))) (QUOTE 12)) (RPAQQ NCHist.HistoryLinkType History) (RPAQ NCHist.HistoryEventHashArray (HASHARRAY NCLOG.HashArraySize)) (RPAQ NCHist.LogEventFnHashArray (HASHARRAY NCLOG.HashArraySize)) (RPAQ NCHist.CardEvents (create EventCategory Name _ (QUOTE Card% Events) MenuItems _ (QUOTE ( Create% Card Bring% Up% Card Close% Card Change% Card% Substance Change% Card% Prop% List Change% Card% Title Delete% Card)) MenuItemsFn _ NIL DefaultMenuItems _ (QUOTE (Create% Card Change% Card% Substance Change% Card% Title Delete% Card)) DefaultMenuItemsFn _ NIL MenuChoicesFn _ NIL)) (RPAQ NCHist.CreateLinkEvents (create EventCategory Name _ (QUOTE Create% Link% Events) MenuItems _ NIL MenuItemsFn _ (FUNCTION NCHist.CreateLinkEventsMenuItemsFn) DefaultMenuItems _ NIL DefaultMenuItemsFn _ (FUNCTION NCHist.CreateLinkEventsDefaultMenuChoicesFn) MenuChoicesFn _ (FUNCTION NCHist.CreateLinkEventsMenuChoicesFn))) (RPAQ NCHist.DeleteLinkEvents (create EventCategory Name _ (QUOTE Delete% Link% Events) MenuItems _ NIL MenuItemsFn _ (FUNCTION NCHist.DeleteLinkEventsMenuItemsFn) DefaultMenuItems _ NIL DefaultMenuItemsFn _ (FUNCTION NCHist.DeleteLinkEventsDefaultMenuChoicesFn) MenuChoicesFn _ (FUNCTION NCHist.DeleteLinkEventsMenuChoicesFn))) (RPAQ NCHist.BrowserEvents (create EventCategory Name _ (QUOTE Browser% Events) MenuItems _ (QUOTE ( Recompute% Browser Relayout% Browser)) MenuItemsFn _ NIL DefaultMenuItems _ (QUOTE (Recompute% Browser )) DefaultMenuItemsFn _ NIL MenuChoicesFn _ NIL)) (RPAQ NCHist.CardTypeEvents (create EventCategory Name _ (QUOTE Card% Type% Events) MenuItems _ (QUOTE (Add% Card% Type)) MenuItemsFn _ NIL DefaultMenuItems _ NIL DefaultMenuItemsFn _ NIL MenuChoicesFn _ NIL)) (RPAQ NCHist.EventCategories (LIST NCHist.CardEvents NCHist.CreateLinkEvents NCHist.DeleteLinkEvents NCHist.BrowserEvents NCHist.CardTypeEvents)) (NCHist.InitializeHistoryEventsSpecsStylesheet) (NCHist.InitializeHistoryEventHashArray) (NCHist.InitializeLogEventFnHashArray) (NCP.AddSessionIconMenuItem (QUOTE NoteFile) (QUOTE (% Collaboratize% NCCollab.CollaboratizeNoteFile "Collaboratizes a notefile."))) (NCP.AddNoteFileIconMenuItem (QUOTE (Collaboratize NCCollab.CollaboratizeNoteFile "Collaboratizes a notefile.")) (QUOTE Open)) (NCHist.AddHistoryCard) (PUTPROPS PMIPATCH066 COPYRIGHT ("Xerox Corporation" 1987)) NIL