(FILECREATED "30-Nov-87 16:00:35" ("compiled on " {QV}1.3KNEXT>NCFILEBOXCARD.;3) "12-Nov-85 14:59:23" recompiled changes: NC.MakeFileBox NC.FileBoxCollectChildren NC.AddFileBoxCard in "LOOPS/KOTO 9-Sep-87 ..." dated " 9-Sep-87 14:19:57") (FILECREATED "30-Nov-87 16:00:23" {QV}1.3KNEXT>NCFILEBOXCARD.;3 9003 changes to: (FNS NC.MakeFileBox NC.AddFileBoxCard NC.FileBoxCollectChildren) previous date: "14-Jul-87 20:22:35" {QV}1.3KNEXT>NCFILEBOXCARD.;2) (NC.LoadFileFromDirectories (QUOTE NCTEXTCARD)) NCAddStub.FileBoxCard D1 NIL gggho (21Q NC.AddCardTypeStub) (10Q NCFILEBOXCARD 5 Text 2 FileBox) ( 15Q ((DisplayedInMenuFlg . T) (LinkIconAttachedBitMap , NC.FileBoxIcon))) NC.FileBoxP D1 (I 1 NoMsgFlg I 0 Card) %@ gAhhi@ ol h(41Q NC.PrintMsg 35Q CHARACTER 24Q NC.RetrieveTitle 3 NC.RetrieveType) (6 FileBox) ( 30Q " is not a FileBox. Please choose again.") NC.MakeFileBox D1 (P 11Q SuperType P 10Q FieldValue P 7 CardTypeRecord P 6 CardTypeName P 5 NoteCardType P 3 Type P 2 TextStream P 1 Window P 0 Spacer I 3 ParamList I 2 NoDisplayFlg I 1 Title I 0 Card)  l l A@@ M!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O O!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O@hBCVolL Y@ Z`+` Jk JHl ` Jl JHl `@gg B@gi I(611Q LISTPUT 575Q NCP.CardProp 556Q TEDIT.INSERT 546Q TEDIT.INSERT.OBJECT 540Q NC.MakePlaceMarker 531Q TEDIT.INSERT 521Q TEDIT.INSERT.OBJECT 514Q NC.MakePlaceMarker 500Q NC.FetchSubstance 473Q WINDOWP 443Q NC.GetCardTypeFieldOfSuper 424Q NC.ReportError 421Q CONCAT 347Q NC.ReportError 344Q CONCAT 330Q NC.CardTypeRecord 322Q NC.CardTypeLoader 260Q NC.CardTypeRecord 234Q NC.GetCardTypeFieldOfSuper 215Q NC.ReportError 212Q CONCAT 140Q NC.ReportError 135Q CONCAT 121Q NC.CardTypeRecord 113Q NC.CardTypeLoader 51Q NC.CardTypeRecord 33Q NC.GetType 14Q CONCAT 11Q CHARACTER 4 CHARACTER) (605Q Don'tAttachUserSpecifiedPropsFlg 572Q NC.IDAlphOrder 567Q OrderingFn 562Q NC.AlphabetizedFileBoxChildrenFlg 535Q NC.FiledCardMarkerLabel 511Q NC.SubBoxMarkerLabel 504Q NC.MarkersInFileBoxesFlg 440Q MakeFn 432Q \\FILLME// 404Q MakeFn 365Q \\EMPTY// 355Q NoteCardType 315Q NoteCardType 301Q \\EMPTY// 271Q NoteCardType 231Q SuperType 223Q \\FILLME// 175Q SuperType 156Q \\EMPTY// 146Q NoteCardType 106Q NoteCardType 72Q \\EMPTY// 62Q NoteCardType 23Q CardObject) ( 462Q (Don'tAttachUserSpecifiedPropsFlg T) 415Q " still \\EMPTY// after autoloading." 410Q " of card type " 401Q "Field name " 375Q "NC.GetCardTypeField" 340Q "Cannot find full definition of card type: " 206Q " still \\EMPTY// after autoloading." 201Q " of card type " 172Q "Field name " 166Q "NC.GetCardTypeField" 131Q "Cannot find full definition of card type: ") NC.FileBoxCollectChildrenA0001A0008 D1 (NAME ERRORSET P 4 OneHook P 3 NewChild P 1 WasActiveFlg P 0 Window F 5 Card F 6 NewChildren F 7 NoDisplayFlg F 10Q RESETY) U UHo DVhd`Uo c U2W(Hhol ol n Hi hci IU V!JLIUhddddi U[UH iJZ(212Q NC.MakeChildLink 174Q NC.QuitCard 144Q NC.GetNoteCard 133Q NC.ActiveCardP 121Q NC.ClearMsg 113Q DISMISS 104Q NC.PrintMsg 100Q CHARACTER 67Q CHARACTER 42Q NC.SelectNoteCards 17Q NC.CheckForNotReadOnly 3 NC.FetchWindow) (31Q NC.SelectingFileBoxChildrenMenu) ( 73Q "Hence no children added." 62Q "No appropriate NoteCards or FileBoxes chosen." 36Q " Please shift-select new children." 14Q "Can't do filing in ") NC.FileBoxCollectChildrenA0001 D1 (NAME ERRORSET P 10Q RESETZ P 7 RESETY P 6 LISPXHIST P 5 CardListResetVar P 4 \NF P 0 OpInProgress F 11Q Card F 12Q RESETVARSLST F 13Q LISPXHIST F 14Q RESETY) [ ` W 1HgWgWg hWg hWcgWgWg hWgo hWcgWLd`WL YIhWLd`WL ZJgWLd`WL [Kg  hWco`hWc` HHg0W!gog hg_ OOW oH gci(520Q NC.PrintOperationInProgressMsg 510Q NC.CoerceToInterestedWindow 474Q ERROR! 465Q NAMED-RESETRESTORE 452Q NC.FileBoxCollectChildrenA0001A0008 413Q RELEASE.MONITORLOCK 365Q THIS.PROCESS 345Q NC.NoteFileProp 341Q NC.NoteFileProp 325Q NC.NoteFileFromNoteFileUID 270Q THIS.PROCESS 254Q NC.NoteFileFromNoteFileUID 206Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 60Q THIS.PROCESS 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (524Q DON'T 460Q ERROR 447Q INTERNAL 440Q CardListResetVar 422Q US 410Q NC.LockLock 374Q NC.CardBusyList 370Q NC.CardBusyList 336Q CardProcessInProgressList 321Q CardObject 310Q NoteFileTYPE# 275Q CardObject 265Q CardProcessInProgressList 250Q CardObject 237Q NoteFileTYPE# 224Q CardObject 202Q CardObject 171Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 514Q "Put Cards Here" 444Q (NC.FileBoxCollectChildrenA0001A0008) 362Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Put Cards Here") NC.FileBoxCollectChildren D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 NoDisplayFlg I 2 NewChildren I 1 Card I 0 WindowOrTextStream F 3 LISPXHIST F 4 RESETVARSLST) +A@ bS!Tog hgZ JI(46Q ERROR! 41Q RESETRESTORE 27Q NC.FileBoxCollectChildrenA0001 5 NC.CoerceToCard) (35Q ERROR 24Q INTERNAL) ( 21Q (NC.FileBoxCollectChildrenA0001)) NC.AddFileBoxCard D1 (P 5 FieldValue P 4 CardTypeRecord P 3 CardTypeName) ggooooog`hg0g!Kdq \L2]dgPKLd K \doK L2]dg oogoKo  MgKg M$ddg`ohhXIHZYJhh  YH(334Q LAST 330Q NC.AddCardType 237Q NC.GetCardTypeFieldOfSuper 221Q NC.ReportError 216Q CONCAT 146Q NC.ReportError 143Q CONCAT 130Q NC.CardTypeRecord 122Q NC.CardTypeLoader 65Q NC.CardTypeRecord) (261Q NC.GlobalInsertLinkMenuItem 253Q Insert% Link 234Q LeftButtonMenuItems 226Q \\FILLME// 201Q LeftButtonMenuItems 162Q \\EMPTY// 153Q NoteCardType 115Q NoteCardType 102Q \\EMPTY// 73Q NoteCardType 53Q Text 45Q LeftButtonMenuItems 37Q NC.FileBoxIcon 34Q LinkIconAttachedBitMap 5 Text 2 FileBox) ( 265Q (Put% Cards% Here (FUNCTION NC.FileBoxCollectChildren) "Collect new cards and file boxes into this FileBox.") 212Q " still \\EMPTY// after autoloading." 205Q " of card type " 176Q "Field name " 172Q "NC.GetCardTypeField" 137Q "Cannot find full definition of card type: " 31Q (DisplayedInMenuFlg T) 25Q (DefaultWidth 517Q) 21Q (DefaultHeight 310Q) 15Q (LinkDisplayMode Title) 11Q ((MakeFn NC.MakeFileBox))) (PRETTYCOMPRINT NCFILEBOXCARDCOMS) (RPAQQ NCFILEBOXCARDCOMS ((DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories (QUOTE NCTEXTCARD)))) (FNS NCAddStub.FileBoxCard) (GLOBALVARS NC.FileBoxIcon NC.MarkersInFileBoxesFlg NC.SubBoxMarkerLabel NC.FiledCardMarkerLabel NC.AlphabetizedFileBoxChildrenFlg) (FNS NC.FileBoxP NC.MakeFileBox NC.FileBoxCollectChildren) (FNS NC.AddFileBoxCard) (BITMAPS NC.FileBoxIcon) (DECLARE: DONTEVAL@LOAD (P (NC.AddFileBoxCard))))) (RPAQ NC.FileBoxIcon (READBITMAP)) (21 18 "OOOOOH@@" "OOOOOH@@" "OOOOOH@@" "H@@@@H@@" "H@@@@H@@" "H@B@@H@@" "H@@@@H@@" "OOOOOH@@" "H@@@@H@@" "H@@@@H@@" "H@B@@H@@" "H@@@@H@@" "OOOOOH@@" "H@@@@H@@" "H@@@@H@@" "H@B@@H@@" "H@@@@H@@" "OOOOOH@@") (NC.AddFileBoxCard) (PUTPROPS NCFILEBOXCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL