(FILECREATED "19-Nov-86 15:46:52" ("compiled on " {QV}1.3K>LIBRARY>NCOPENEVENTSCARD.;8) "12-Nov-85 14:59:23" recompiled changes: NCOpen.AddOpenEventsCardType NCOpen.CreateOpenEventsCard in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "19-Nov-86 15:46:45" {QV}1.3K>LIBRARY>NCOPENEVENTSCARD.;8 4793 changes to: ( FNS NCOpen.CreateOpenEventsCard NCOpen.AddOpenEventsCardType) (VARS NCOPENEVENTSCARDCOMS) previous date: " 5-May-86 19:19:32" {QV}1.3K>LIBRARY>NCOPENEVENTSCARD.;5) NCOpen.AddOpenEventsCardType D1 NIL ggoo (20Q NC.AddCardType) (5 Text 2 OpenEvents) ( 15Q ((LinkAnchorModesSupported NIL) (DisplayedInMenuFlg T)) 11Q ((MakeFn NCOpen.CreateOpenEventsCard))) NCOpen.CreateOpenEventsCard D1 (P 15Q FieldValue P 14Q CardTypeRecord P 13Q CardTypeName P 12Q SuperType P 11Q FieldValue P 10Q CardTypeRecord P 7 CardTypeName P 6 NoteCardType P 4 ReturnValue P 3 OpenEventCard P 2 NoteFile P 0 \NF I 2 NoDisplayFlg I 1 Title I 0 Card) @Hd`@H YI1gJ [ BK K h@@ N! Od _O_dgYOOd O _doO O_dg"oogoOo  OgOg O O! Od _O_dgYOOd O _doO O_dg"oogoOo  OgOg O@AoBlM\@o gL L L L(616Q NCP.RegisterCardByName 611Q NCP.CoerceToCard 604Q WINDOWP 575Q NCP.CardTitle 540Q NC.GetCardTypeFieldOfSuper 520Q NC.ReportError 515Q CONCAT 442Q NC.ReportError 437Q CONCAT 422Q NC.CardTypeRecord 413Q NC.CardTypeLoader 350Q NC.CardTypeRecord 321Q NC.GetCardTypeFieldOfSuper 301Q NC.ReportError 276Q CONCAT 223Q NC.ReportError 220Q CONCAT 203Q NC.CardTypeRecord 174Q NC.CardTypeLoader 131Q NC.CardTypeRecord 110Q NC.GetType 72Q NCP.OpenCard 65Q NCP.CacheCards 56Q NCP.ValidCardP 52Q NCP.LookupCardByName 32Q NC.NoteFileFromNoteFileUID) (600Q OpenEvents 535Q MakeFn 526Q \\FILLME// 477Q MakeFn 460Q \\EMPTY// 450Q NoteCardType 406Q NoteCardType 371Q \\EMPTY// 361Q NoteCardType 316Q SuperType 307Q \\FILLME// 260Q SuperType 241Q \\EMPTY// 231Q NoteCardType 167Q NoteCardType 152Q \\EMPTY// 142Q NoteCardType 100Q CardObject 46Q OpenEvents 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 572Q "Open Events" 555Q "Open Events" 511Q " still \\EMPTY// after autoloading." 503Q " of card type " 474Q "Field name " 470Q "NC.GetCardTypeField" 432Q "Cannot find full definition of card type: " 272Q " still \\EMPTY// after autoloading." 264Q " of card type " 255Q "Field name " 251Q "NC.GetCardTypeField" 213Q "Cannot find full definition of card type: ") NCOpen.EvaluateOpenEventsCardA0003 D1 (NAME ERRORSET F 0 Card) P d hh(14Q ERRORSET 6 READFILE 3 NCP.CardSubstance) NIL () NCOpen.EvaluateOpenEventsCard D1 (P 2 NoteFile P 0 \NF I 0 Card) 7hdo @Hd`@H YIoi (64Q NCOpen.EvaluateOpenEventsCardA0003 43Q NC.NoteFileFromNoteFileUID 10Q NC.PrintMsg) (37Q CardObject 27Q NoteFileTYPE# 14Q CardObject) ( 60Q (NCOpen.EvaluateOpenEventsCardA0003) 5 "Evaluating the Open Events card") NCOpen.OpenNoteFileFn D1 (P 1 OpenEventsCard P 0 RegistryCard I 2 When I 1 NoteFile I 0 FileName) HBgAA`A@ H &H Hg Y I I Hg (105Q NC.UnregisterName 72Q NCOpen.EvaluateOpenEventsCard 65Q NCP.ValidCard 61Q NC.LookupCardByName 50Q HARRAYP 45Q NCP.CardSubstance 37Q NCP.ValidCard 23Q NC.NoteFileFromFileName) (102Q OpenEvents 56Q OpenEvents 26Q NoteFile 13Q NoteFileTYPE# 3 AFTER) () (PRETTYCOMPRINT NCOPENEVENTSCARDCOMS) (RPAQQ NCOPENEVENTSCARDCOMS ((* * NoteCards Library Pakage to implement the Open Events card type. Used to allow NF to specify events that should happen at open time.) (FNS NCOpen.AddOpenEventsCardType NCOpen.CreateOpenEventsCard NCOpen.EvaluateOpenEventsCard NCOpen.OpenNoteFileFn) (P ( NCOpen.AddOpenEventsCardType) (PUTPROP (QUOTE OpenEvents) (QUOTE Don'tForceFilingFlg) T)) (GLOBALVARS NC.OpenNoteFileFns) (ADDVARS (NC.OpenNoteFileFns NCOpen.OpenNoteFileFn)))) (NCOpen.AddOpenEventsCardType) (PUTPROP (QUOTE OpenEvents) (QUOTE Don'tForceFilingFlg) T) (ADDTOVAR NC.OpenNoteFileFns NCOpen.OpenNoteFileFn) (PUTPROPS NCOPENEVENTSCARD COPYRIGHT ("Xerox Corporation" 1986)) NIL