(FILECREATED "29-Jun-87 17:04:24" ("compiled on " {QV}1.3K>LIBRARY>NCCOLLABORATION.;17) "12-Nov-85 14:59:23" recompiled changes: NCCollab.CollaboratizeNoteFile in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED "29-Jun-87 17:04:09" {QV}1.3K>LIBRARY>NCCOLLABORATION.;17 11684 changes to: ( FNS NCCollab.CollaboratizeNoteFile) previous date: "19-Apr-87 19:36:56" {QV}1.3K>LIBRARY>NCCOLLABORATION.;16) NCCollab.OpenNoteFileFn D1 (P 5 Item P 3 MenuItemRegion P 2 CollaboratorCard P 1 Menu P 0 UserName I 0 NoteFile) 1@` @o Yhio IL=MI [IKKI ZdgXg@ILh)o$]H L\]H MiL\H Zooo J @J (252Q NCCollab.ChangeCurrentCollaborator 243Q NCP.ValidCardP 236Q NCCollab.HangOnCardUntilDone 216Q NCP.CoerceToCard 213Q NCP.CreateCard 173Q STREQUAL 155Q STREQUAL 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) ( 233Q "Selecting DONE indicates completion of updating this card. Will allow OpenNoteFile to continue." 227Q "Fill in parameters" 223Q "DONE" 144Q "??" 33Q "Please select Collaborator name(s)" 21Q (("-- New Name(s) --" (QUOTE NEWNAMES) "Create a new collaborator information card."))) NCCollab.CollaboratizeNoteFile D1 (P 2 OpenEventsCardWasCachedFlg P 1 OpenEventSExp P 0 OpenEventsCard I 0 NoteFile) R@ =@ o@ @ H ZH IH HIH  JH hoo@ (117Q NCP.ReportError 114Q CONCAT 75Q NCP.CloseCards 66Q NCP.CardSubstance 62Q NCP.CardSubstance 53Q MEMBER 50Q NCP.CardSubstance 42Q NCP.CacheCards 34Q NCP.ActiveCardP 30Q NCHist.HistoricizeNoteFile 24Q NCCollab.OpenNoteFileFn 11Q NCP.GetOpenEventsCard 3 NCP.OpenNoteFileP) NIL ( 110Q "Can't collaboratize closed notefile: " 104Q "NCCollab.CollaboratizeNoteFile" 15Q (PROGN (NC.LoadFileFromDirectories (QUOTE NCCOLLABORATION)) (NCCollab.OpenNoteFileFn NoteFile))) NCCollab.GetCollabInfoBox D1 (P 0 Box I 0 NoteFile) (g@ H @oi X gH H(44Q NCP.RegisterCardByName 34Q NCP.MarkAsNotNeedingFiling 30Q NCP.CreateFileBox 15Q NCP.ValidCardP 6 NCP.LookupCardByName) (40Q CollabInfo 2 CollabInfo) ( 24Q "Collaboration Info") NCCollab.ChangeCurrentCollaborator D1 (I 1 CollaboratorCard I 0 NoteFile) A @ b @gA A (34Q NCInsp.InstallParams 30Q NCP.NoteFileProp 16Q NCP.ValidCardP 11Q MENU 6 NCCollab.MakeCollaboratorsMenu) (24Q CurrentCollaboratorCard) () NCCollab.RemoveCollaboratorCard D1 (P 0 CollaboratorCard I 0 NoteFile) @ H H (23Q NCP.DeleteCards 15Q NCP.ValidCardP 6 MENU 3 NCCollab.MakeCollaboratorsMenu) NIL () NCCollab.AccessCollaboratorInfo D1 (P 0 Result I 1 Item I 0 NoteFile) C@o H H Hdgg@o g@ Hg@ (100Q NCCollab.ChangeCurrentCollaborator 64Q NCCollab.RemoveCollaboratorCard 52Q NCP.CreateCard 26Q NCP.OpenCard 21Q NCP.ValidCardP 12Q MENU 7 NCCollab.MakeCollaboratorsMenu) (71Q CHANGECURRENT 56Q REMOVENAME 42Q Collaborator 34Q NEWNAMES) ( 47Q "??" 4 (("-- New Name(s) --" (QUOTE NEWNAMES) "Create a new collaborator information card.") ("-- Remove Name --" (QUOTE REMOVENAME) "Remove one of the collaborator information cards.") ("-- Change current collaborator --" (QUOTE CHANGECURRENT) "Change choice of current collaborator name."))) NCCollab.MakeCollaboratorsMenu D1 (P 15Q Item P 3 CurrentCollaboratorCard P 2 Menu P 1 ListOfCollaboratorNames P 0 ListOfCollaboratorCards I 1 ExtraMenuItems I 0 NoteFile) @ Q0Hd ONh_N&_OY@g [`HIR O_NOOA dLdodg dgjdndhdM ZK J O8J_OOoh_OOh__O_N|O&__ KO OJ` O_(345Q SHADEITEM 333Q NCP.SameCardP 321Q NCP.ValidCardP 204Q NCP.ValidCardP 122Q \APPEND2 117Q \APPEND2 60Q NCP.NoteFileProp 21Q NCP.CardTitle 3 NCCollab.ListOfCollaboratorCards) (342Q NCCollab.CollaboratorsMenuGreyShade 211Q MENU 153Q DEFAULTMENUHELDFN 144Q CLRPROMPT 64Q MENUTYPE# 55Q CurrentCollaboratorCard) ( 241Q "Selects this collaborator name or names." 135Q "Collaborator Name(s)") NCCollab.ListOfCollaboratorCards D1 (P 0 CollabInfoBox I 0 NoteFile) @ H H (20Q NCP.FileBoxChildren 12Q NCP.ValidCardP 3 NCCollab.GetCollabInfoBox) NIL () NCCollab.HangOnCardUntilDone D1 (P 4 WindowRegion P 3 Menu P 2 Window I 3 HelpMessage I 2 MenuTitle I 1 MenuButtonName I 0 Card) @ `AhChhHdIdBgl g HdIgl g HdI$dg dgjdndhHdI J \KLLLi (205Q MENU 163Q WINDOWREGION 77Q FONTCREATE 52Q FONTCREATE 3 NCP.OpenCard) (124Q DEFAULTMENUHELDFN 115Q CLRPROMPT 74Q BRR 67Q HELVETICA 47Q BRR 42Q HELVETICA 6 MENUTYPE#) () (PRETTYCOMPRINT NCCOLLABORATIONCOMS) (RPAQQ NCCOLLABORATIONCOMS ((* * Package of handy functions and cardtypes for collaborators.) (FILES ( FROM NOTECARDS) NCCOLLABORATORCARD NCHISTORYCARD) (GLOBALVARS NCCollab.CollabInfoExtraMenuItems NCCollab.NoteFileIconMiddleMenuItems NCCollab.CollaboratorsMenuGreyShade) (INITVARS ( NCCollab.CollaboratorsMenuGreyShade 4096)) (VARS (NCCollab.NoteFileIconMiddleMenuItems (QUOTE (( Collaborator% Info NCCollab.AccessCollaboratorInfo "Modify info for a known collaborator name, create a new one, or remove an existing one."))))) (FNS NCCollab.OpenNoteFileFn NCCollab.CollaboratizeNoteFile NCCollab.GetCollabInfoBox NCCollab.ChangeCurrentCollaborator NCCollab.RemoveCollaboratorCard NCCollab.AccessCollaboratorInfo NCCollab.MakeCollaboratorsMenu NCCollab.ListOfCollaboratorCards) (FNS NCCollab.HangOnCardUntilDone))) (FILESLOAD (FROM NOTECARDS) NCCOLLABORATORCARD NCHISTORYCARD) (RPAQ? NCCollab.CollaboratorsMenuGreyShade 4096) (RPAQQ NCCollab.NoteFileIconMiddleMenuItems ((Collaborator% Info NCCollab.AccessCollaboratorInfo "Modify info for a known collaborator name, create a new one, or remove an existing one."))) (PUTPROPS NCCOLLABORATION COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL