(FILECREATED "12-Mar-87 13:04:02" ("compiled on " {QV}1.3K>NEXT>RHTPATCH188.;3) "11-Mar-87 13:17:31" tcompl'd in "Xerox Lisp 11-Mar-87 ..." dated "11-Mar-87 13:49:38") (FILECREATED "29-Jan-87 12:20:25" {QV}1.3K>NEXT>RHTPATCH188.;3 7009 changes to: ( VARS RHTPATCH188COMS) (FNS NC.FileBoxCollectChildren NC.AddParents) previous date: "28-Jan-87 20:24:01" {QV}1.3K>NEXT>RHTPATCH188.;1) NC.FileBoxCollectChildrenA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 3 OneHook P 2 NewChild P 0 WasActiveFlg I 0 SI§§*CLEANUP-FORMS* F 4 Card F 5 SI§§*RESETFORMS* F 6 NewChildren F 7 Window F 8 NoDisplayFlg) ÆgTgTg hTgg hUc gTgTg hTg hUc V³hd`To c ’Tµ-W³'Whol ol nè Wi h H¤T ¿V!IµKH¬Thddihdi ¿²®TZTW ‘i»IY°Ù(188 NC.MakeChildLink 174 NC.QuitCard 149 NC.GetNoteCard 140 NC.ActiveCardP 135 NC.ClearMsg 129 DISMISS 123 NC.PrintMsg 119 CHARACTER 110 CHARACTER 88 NC.SelectNoteCards 64 NC.SetUserDataProp 61 THIS.PROCESS 49 NC.FetchUserDataProp 28 NC.SetUserDataProp 13 NC.FetchUserDataProp) (79 NC.SelectingFileBoxChildrenMenu 58 ProcessInProgress 46 ProcessInProgress 42 ProcessInProgress 38 NC.SetUserDataProp 25 Put% Cards% Here 22 OperationInProgress 10 OperationInProgress 6 OperationInProgress 2 NC.SetUserDataProp) ( 114 "Hence no children added." 105 "No appropriate NoteCards or FileBoxes chosen." 84 " Please shift-select new children.") NC.FileBoxCollectChildren §D4 (P 3 SI§§*RESETFORMS* P 2 LISPXHIST P 1 OperationInProgress P 0 Window I 3 NoDisplayFlg I 2 NewChildren I 1 Card I 0 WindowOrTextStream F 4 LISPXHIST) @Aµ@ b AHo ´&A Y™HoI Tg ¿ (61 CL§VALUES-LIST 57 SI§§RESETUNWIND 54 \MVLIST 51 NC.FileBoxCollectChildrenA0001 40 NC.PrintOperationInProgressMsg 29 NC.OperationInProgress 23 NC.CheckForNotReadOnly 11 NC.FetchWindow 6 NC.CoerceToCard) (48 SI§§RESETUNWIND) ( 36 "Put Cards Here" 20 "Can't do filing in ") NC.AddParentsA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 3 WasActiveFlg P 2 OneHook P 1 ParentCard I 0 SI§§*CLEANUP-FORMS* F 4 Card F 5 SI§§*RESETFORMS* F 6 NewParents F 7 Window) ™gTgTg hTgg hUc gTgTg hTg hUc hg`To c d´T´ d!HµJY K¤I ¿TIW K¬Ihddihdi ¿‘iºHX°Ï(141 NC.QuitCard 127 NC.MakeChildLink 119 NC.GetNoteCard 110 NC.ActiveCardP 87 NC.SelectNoteCards 64 NC.SetUserDataProp 61 THIS.PROCESS 49 NC.FetchUserDataProp 28 NC.SetUserDataProp 13 NC.FetchUserDataProp) (78 NC.SelectingParentsMenu 75 NC.FileBoxP 58 ProcessInProgress 46 ProcessInProgress 42 ProcessInProgress 38 NC.SetUserDataProp 25 Designate% FileBoxes 22 OperationInProgress 10 OperationInProgress 6 OperationInProgress 2 NC.SetUserDataProp) ( 83 " Please shift-select the new parent FileBox(es).") NC.AddParents §D4 (P 5 SI§§*RESETFORMS* P 4 LISPXHIST P 3 OperationInProgress P 2 NewParents P 1 Card P 0 Window I 0 WindowOrTextStream F 6 LISPXHIST) =@ 1H YdHo ´&I [™HoK Vg ¿ (58 CL§VALUES-LIST 54 SI§§RESETUNWIND 51 \MVLIST 48 NC.AddParentsA0001 37 NC.PrintOperationInProgressMsg 26 NC.OperationInProgress 20 NC.CheckForNotReadOnly 10 NC.CoerceToCard 3 WINDOW.FROM.TEDIT.THING) (45 SI§§RESETUNWIND) ( 33 "Designate FileBoxes" 17 "Can't do filing in ") (PRETTYCOMPRINT RHTPATCH188COMS) (RPAQQ RHTPATCH188COMS ((* * Fixes bug reported by John Tang whereby cards filed in boxes not up on the screen were only "half" linked.) (* * Changes to NCFILEBOXCARD) (FNS NC.FileBoxCollectChildren) (* * Changes to NCCARDS) (FNS NC.AddParents))) (PUTPROPS RHTPATCH188 COPYRIGHT ("Xerox Corporation" 1987)) NIL